10 A$="QREAD"
20 PRINT"[147]LOADA$,8":PRINT"SYS5217"
21 Q$="SAMMY"+CHR$(13)
30 POKE198,2:POKE631,13:POKE632,13
35 FORX=1TO6:POKE632+X,ASC(MID$(Q$,X)):NEXT
40 POKE198,8: END
10000 N$="QUIK":OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END