home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 February
/
1994-02b.d64
/
sample.ml
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
232b
|
12 lines
10 poke646,14:poke53281,6:poke53280,14
100 data 162,0,189,14,32,32,210,255
110 data 232,224,6,208,245,96
120 data 72,69,76,76,79,13
200 for j=8192 to 8211
210 read x:t=t+x
220 poke j,x
230 next j
240 if t<>2290 then stop
300 sys 8192
900 rem $2000-$2013, 8192 to 8211