5 POKE53280,6:POKE53281,15:POKE646,15:PRINTCHR$(147)
10 IFA=0THENA=1:LOAD"DAT",8,8
20 PRINTCHR$(147)"NEW"
30 PRINT"LOAD"CHR$(34)"MAIN"CHR$(34)",8"
31 PRINT"RUN"
40 POKE631,19:FORI=0TO7:POKE632+I,13:NEXT:POKE198,9