10 PRINTCHR$(147):IF PEEK(772)=124THEN30
20 PRINTCHR$(19)"RUN "CHR$(34)"CP-LOAD.128":POKE842,19:POKE843,13
21 F$="ED DV.*"+CHR$(13):FORI=1TO8
22 POKE843+I,ASC(MID$(F$,I,1)):NEXT:POKE208,10:END
30 PRINTCHR$(19)"LOAD "CHR$(34)"CP-LOAD.64"CHR$(34)",8"
40 RN$="RUN":PRINT""
50 PRINTCHR$(145)RN$CHR$(19);
60 F$=CHR$(13)+CHR$(13)+"ED DV.*"+CHR$(13)
70 FOR I=1TO10:POKE630+I,ASC(MID$(F$,I,1)):NEXT:POKE198,10:END