home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / squiggle.ml (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  676b  |  23 lines
  1. 10 poke53280,6:poke53281,6:print"[147]"
  2. 100 data 169,147,32,210,255,162,10,169,17,32,210,255,169,29
  3. 110 data 32,210,255,202,16,243,169,0,133,253,169,192,133,254
  4. 120 data 162,0,142,0,34,160,0,177,253,141,1,34
  5. 130 data 78,1,34,78,1,34,41,3,141,2,34,173,0,34
  6. 140 data 10,10,13,2,34,170,189,115,32,208,8,173,0,34
  7. 150 data 141,2,34,16,234,32,210,255,169,157,32,210,255
  8. 160 data 174,2,34,142,0,34,189,131,32,32,210,255
  9. 170 data 32,225,255,240,16,173,1,34,200,192,4
  10. 180 data 144,190,230,253,208,2,230,254,208,175,96
  11. 190 data 221,0,176,174
  12. 200 data 0,221,173,189
  13. 210 data 189,174,192,0
  14. 220 data 173,176,0,192
  15. 230 data 145,17,29,157
  16. 280 print "squiggle!"
  17. 300 for j=8192 to 8326
  18. 310 read x:t=t+x
  19. 320 poke j,x
  20. 330 next j
  21. 340 if t<>15825 then stop
  22. 400 sys 8192
  23.