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