5 ONI+1GOTO10,20,40
10 I=1:LOAD"CON.CHAR",8,1
20 I=2:LOAD"CON.ASS.",8,1
40 PRINT"[147]L[207]"CHR$(34)"CON.MAIN"CHR$(34)",8:":FORI=0TO9:PRINT"R[213]":NEXT
50 POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW