home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 April
/
1987-04.d64
/
secondary
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
29 lines
10 poke56,peek(56)-1:clr:h=peek(56):l=peek(55):sa=h*256+l
20 fori=satosa+214:reada:pokei,a:x=x+a:next
30 ifx<>27368thenprint"[144]data statement error.":stop
40 lv=sa+24:lh=int(lv/256):ll=lv-lh*256:pokesa+1,ll:pokesa+6,lh
50 sv=sa+141:sh=int(sv/256):sl=sv-sh*256:pokesa+11,sl:pokesa+16,sh
60 print"[147][144]sys"sa"to activate"
70 data 169,24,141,48,3,169,192,141,49,3
80 data 169,141,141,50,3,169,192,141,51,3
90 data 96,76,51,245,133,147,169,0,133,144
100 data 165,186,208,3,76,19,247,201,3,240
110 data 249,144,234,164,183,208,3,76,16,247
120 data 166,185,32,175,245,169,96,133,185,32
130 data 213,243,165,186,32,9,237,165,185,32
140 data 199,237,32,19,238,133,174,133,2,165
150 data 144,74,74,176,127,32,19,238,133,175
160 data 133,3,224,3,208,16,104,104,32,229
170 data 244,165,2,133,20,165,3,133,21,76
180 data 48,225,224,2,208,22,104,104,162,0
190 data 32,229,244,134,45,132,46,169,0,32
200 data 144,255,32,51,165,76,89,166,76,229
210 data 244,165,186,208,3,76,19,247,201,3
220 data 240,57,144,52,165,185,201,1,208,13
230 data 32,250,245,32,215,170,169,1,133,10
240 data 76,111,225,201,2,208,26,32,253,174
250 data 32,138,173,32,247,183,132,193,133,194
260 data 32,253,174,32,138,173,32,247,183,132
270 data 174,133,175,76,250,245,76,89,246,76
280 data 241,245,76,48,245