home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / screamer.ml (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  629 b   |  25 lines
  1. 0 clr
  2. 10 poke53280,6:poke53281,6:print"[147]"
  3. 100 data 32,228,255,170,240,250,160,0,132,252,160,4,132,253,160,0
  4. 110 data 145,252,200,192,250,144,249,72,24,165,252,105,250,133,252
  5. 120 data 164,253,144,1,200,132,253,104,192,8,144,227,201,13,208,209,96
  6. 200 data 32,228,255,170,240,250,160,0,153,0,4,153,250,4
  7. 210 data 153,244,5,153,238,6,200,192,250,144,239,201,13,208,227,96
  8. 300 for j=8192 to 8239
  9. 310 read x:t=t+x
  10. 320 poke j,x
  11. 330 next j
  12. 350 for j=12288 to 12317
  13. 360 read x:t=t+x
  14. 370 poke j,x
  15. 380 next j
  16. 390 if t<>12130 then stop
  17. 400 print "screen screamer ..."
  18. 410 print "(press return to end)"
  19. 420 input "program 1 or 2";p
  20. 430 s=0
  21. 440 if p=1 then s=8192
  22. 450 if p=2 then s=12288
  23. 460 if s=0 goto 420
  24. 470 sys s
  25.