home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 May / 1993-05.d64 / arrays (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  624 b   |  21 lines
  1. 1 poke53280,6:poke53281,6:print"[147]"
  2. 80 print "(64 only) m/l array access"
  3. 90 dim a%(20)
  4. 100 data 165,47,133,34,165,48,133,35,160,2,24,177,34,101,34
  5. 110 data 141,192,3,200,177,34,101,35,141,193,3,165,34,105,7
  6. 120 data 133,34,144,2,230,35,160,3,169,1,145,34,24,165,34
  7. 130 data 164,35,105,2,133,36,144,1,200,132,37,160,1,24
  8. 140 data 177,34,113,36,72,136,177,34,113,36,72,24,165,36,164,37
  9. 150 data 133,34,132,35,105,2,144,1,200,133,36,132,37
  10. 160 data 205,192,3,152,237,193,3,176,12,160,0,104,145,36,200,104
  11. 170 data 145,36,24,144,203,104,104,96
  12. 200 for j=828 to 939
  13. 210 read x:t=t+x
  14. 220 poke j,x
  15. 230 next j
  16. 240 if t<>10638 then stop
  17. 300 sys 828
  18. 310 for j=1 to 20
  19. 320 print a%(j);
  20. 330 next j
  21.