home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
screamer.ml
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
629b
|
25 lines
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