0 CLR
10 POKE53280,6:POKE53281,6:PRINT"[147]"
100 DATA 32,228,255,170,240,250,160,0,132,252,160,4,132,253,160,0
110 DATA 145,252,200,192,250,144,249,72,24,165,252,105,250,133,252
120 DATA 164,253,144,1,200,132,253,104,192,8,144,227,201,13,208,209,96
200 DATA 32,228,255,170,240,250,160,0,153,0,4,153,250,4
210 DATA 153,244,5,153,238,6,200,192,250,144,239,201,13,208,227,96
300 FOR J=8192 TO 8239
310 READ X:T=T+X
320 POKE J,X
330 NEXT J
350 FOR J=12288 TO 12317
360 READ X:T=T+X
370 POKE J,X
380 NEXT J
390 IF T<>12130 THEN STOP
400 PRINT "SCREEN SCREAMER ..."
410 PRINT "(PRESS RETURN TO END)"
420 INPUT "PROGRAM 1 OR 2";P
430 S=0
440 IF P=1 THEN S=8192
450 IF P=2 THEN S=12288
460 IF S=0 GOTO 420
470 SYS S