1 FORA=832TO900:READB:POKEA,B:NEXT:REM M/CODE SAVER IN TAPE BUFFER
2 DATA162,0,181,43,157,144,3,232,224
3 DATA16,208,246,96,169,160,133,187,169,3,133,188,169,7,133,183,169
4 DATA8,133,186,169,1,133,185,169,0,133,10,169,0,133,193,169,192,133
5 DATA194,169,69,133,174,169,192,133,175,32,237,245,162,0,189,144,3
6 DATA149,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
21 POKE870,0:POKE874,192:REM LOW AND HIGH FOR START OF SAVE
22 POKE878,128:POKE882,196:REM LOW AND HIGH FOR END OF SAVE
30 SYS845:REM SAVE + REPOKE POS