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