10 POKE53281,0:POKE53280,0
20 PRINT"[147][129]          PROGRAMMER'S PAGE [146]"
30 PRINT""TAB(9)"1 - NOISE BOMB"
40 PRINTTAB(9)"2 - CRAZY CURSOR"
50 PRINTTAB(9)"3 - WACKY CHARACTER SET"
60 PRINTTAB(10)"PRESS 1-3 TO RUN"
70 GET A$:IF A$="" THEN70
80 IF A$="1" THEN GOSUB120:GOTO70
90 IF A$="2" THEN GOSUB180:GOTO70
100 IF A$="3" THEN GOSUB240:GOTO70
110 GOTO70
120 POKE 792,193:POKE 808,239:POKE 780,115:POKE 782,228:SYS 43806
130 PRINT "38911 BASIC BYTES FREE":PRINT:PRINT "READY."
140 POKE 204,0
150 GET K$:IF K$="" THEN150
160 POKE 54296,15:POKE 54296,0:GOTO160
170 REM ***  CURSOR ROUTINE  ***
180 PRINT"[147]"TAB(10)"COPYING ROM TO RAM"
190 PRINTTAB(13)"PLEASE WAIT ..."
200 FOR I=40960 TO 49151:POKE I,PEEK(I):X=I+16384:POKE X,PEEK(X):NEXT
210 POKE 60291,157:POKE 60296,145:POKE 60356,29:POKE 60361,17
220 POKE 1,PEEK(1) AND 253:PRINT"  TRY YOUR CURSOR KEYS":END
230 REM *** BACKWARDS CHAR SET ***
240 PRINT"[147]"TAB(11)"POKING IN NEW SET"
250 PRINTTAB(13)"PLEASE WAIT ..."
260 POKE 56334,0:POKE 1,51
270 FOR I=0 TO 2048:J=I-(I AND 7)*2:POKE 12295+J,PEEK(53248+I):NEXT I
280 POKE 1,55:POKE 56334,1:POKE 53272,29
290 END