1 FORA=832TO884:READB:POKEA,B:NEXT:REM M/CODE LOADER IN TAPE BUFFER
2 DATA162,0,181,43,157,128,3,232,224
3 DATA16,208,246,96,169,160,133,187,169,3,133,188,169,8,133,183,169
4 DATA8,133,186,169,1,133,185,169,0,133,10,32,165,244,162,0,189,128
5 DATA3,149,43,232,224,16,208,246,96
9 SYS832:REM STORE POS
10 A$="TEXT FX PROG/ V1":FORA=1TO16:B=ASC(MID$(A$,A,A)):POKEA+927,B:NEXT
20 POKE854,16:REM LENGTH OF FILENAME
30 SYS845:REM LOAD + POKE POS