10 PRINT"POKE44,192:POKE56,208:POKE49152,0:";
20 PRINT"LOAD"CHR$(34)"BASIC EXAMINER"CHR$(34);",8"
21 PRINT"RUN":I$="RUN"
30 FORI=1TOLEN(I$):POKE631+I,13:NEXT
40 POKE631+I,13:POKE631+I+1,13:POKE631,13:POKE198,I+1:END