home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 December / 1993-12.d64 / graph.ml (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  247b  |  14 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 100 data 174,0,33, 169,88, 224,0, 240,6
  3. 110 data 32,210,255, 202, 208,250
  4. 120 data 169,13, 76,210,255
  5. 200 for j=8192 to 8211
  6. 210 read x:t=t+x
  7. 220 poke j,x
  8. 230 next j
  9. 240 if t<>2814 then stop
  10. 300 for j=-6 to 6
  11. 310 poke 8448,j*j
  12. 320 sys 8192
  13. 330 next j
  14.