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