1 IFA=0 THEN A=1:LOAD"SPRINT",8,1
2 A$="[147]SYS32768"+CHR$(13):POKE198,LEN(A$)
3 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT
4 NEW