home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 September
/
Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64
/
Centerfold
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
38 lines
10 rem *** centerfold *** buck childress ***
20 rem *** p.o. box 13575 salem, or 97309 ***
30 printchr$(147)"loading and checking data line:":d=49152
40 fora=0to11:readb
50 ifa=0thenf=peek(64)*256+peek(63):printchr$(19)tab(31)f:print
60 ifb<0orb>255then80
70 poked+a,b:e=e+b:c=c+1:nexta:readb:ifb=ethen90
80 print"error in data line:"f:end
90 e=0:d=d+12:ifc<312then40
100 print"the data is ok...":print
110 print"sys 49152 to activate...":end
120 data169,18,162,192,160,0,120,141,143,2,142,144,1393
130 data2,140,49,193,88,96,173,49,193,208,28,165,1384
140 data207,208,24,173,141,2,174,50,193,141,50,193,1556
150 data236,50,193,240,10,201,5,208,9,141,49,193,1535
160 data32,67,192,76,72,235,201,6,208,249,141,49,1528
170 data193,32,94,192,76,72,235,173,32,208,141,51,1499
180 data193,24,105,8,141,32,208,32,242,192,173,51,1401
190 data193,141,32,208,169,0,141,49,193,96,169,0,1391
200 data166,214,164,211,141,52,193,142,53,193,140,54,1723
210 data193,32,68,229,32,11,193,140,60,193,173,52,1376
220 data193,141,55,193,172,55,193,177,107,141,56,193,1676
230 data177,111,141,58,193,169,39,56,237,55,193,168,1597
240 data177,107,141,57,193,177,111,141,59,193,169,19,1544
250 data56,237,52,193,24,109,55,193,168,173,56,193,1509
260 data145,105,173,58,193,145,109,169,20,24,109,52,1302
270 data193,56,237,55,193,168,173,57,193,145,105,173,1748
280 data59,193,145,109,206,55,193,16,179,165,105,24,1449
290 data105,40,32,31,193,144,3,32,40,193,206,60,1079
300 data193,208,155,238,52,193,173,52,193,201,20,208,1886
310 data139,174,53,193,172,54,193,24,32,240,255,76,1605
320 data88,192,32,11,193,168,177,105,145,107,177,109,1504
330 data145,111,200,208,245,32,40,193,165,106,201,8,1654
340 data144,236,96,169,4,162,194,133,106,134,108,169,1655
350 data216,162,198,160,25,133,110,134,112,169,0,133,1552
360 data105,133,107,133,109,133,111,96,230,106,230,108,1601
370 data230,110,230,112,96,0,0,0,0,0,0,0,778