home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 August
/
1987-08.d64
/
sid chip
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
809b
|
28 lines
10 rem copyright 1987 compute! publications inc. - all rights reserved
20 adr=49152:chk=0:c=0:poke 646,0
30 read byt:if byt=999 then60
40 poke adr,byt:c=c+1:adr=adr+1
50 chk=c+byt+chk:goto30
60 if chk<>12604 then100
70 sys 49152
80 for j=1 to 5000:next
90 poke 54276,0:poke 54283,0:poke 54290,0:end
100 print"[147]error in data statements. check typing."
110 data 162,024,169,000,157,000
120 data 212,202,016,250,162,024
130 data 189,064,192,157,000,212
140 data 202,016,247,120,169,038
150 data 141,020,003,169,192,141
160 data 021,003,088,169,000,133
170 data 003,096,165,003,056,233
180 data 029,133,003,141,001,212
190 data 173,028,212,141,022,212
200 data 074,074,074,074,141,015
210 data 212,076,049,234,000,000
220 data 000,000,129,013,000,001
230 data 036,000,000,021,013,000
240 data 000,004,000,007,065,012
250 data 000,000,000,247,063,065
260 data 012,000,000,000,247,063
270 data 999