home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / vari-scan 128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  3.0 KB  |  65 lines
  1. 10 rem *** vari-scan 128 *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=4864
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(66)*256+peek(65):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<636then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 4864 to activate...":end
  12. 120 data104,104,32,129,146,79,78,0,169,29,162,19,1051
  13. 130 data141,2,3,142,3,3,169,69,141,0,3,142,818
  14. 140 data1,3,76,236,20,169,0,162,19,133,251,141,1211
  15. 150 data0,255,134,252,169,251,141,185,2,162,1,160,1712
  16. 160 data0,177,251,32,119,255,230,251,208,238,230,252,2243
  17. 170 data165,252,201,22,144,230,76,198,77,173,0,2,1540
  18. 180 data201,95,208,22,32,129,146,79,70,70,0,169,1221
  19. 190 data198,162,77,141,2,3,142,3,3,169,63,76,1039
  20. 200 data20,19,201,65,144,4,201,91,144,3,76,63,1031
  21. 210 data77,32,250,81,162,0,160,0,140,120,21,140,1183
  22. 220 data118,21,189,1,2,240,47,48,153,201,32,208,1260
  23. 230 data3,232,208,242,72,173,120,21,208,10,192,0,1481
  24. 240 data240,6,104,201,48,176,238,72,104,153,1,2,1345
  25. 250 data201,48,176,10,141,120,21,201,40,208,3,141,1310
  26. 260 data118,21,232,200,208,204,153,1,2,165,45,166,1515
  27. 270 data46,133,251,134,252,134,254,160,0,177,45,133,1719
  28. 280 data253,173,16,18,174,17,18,133,65,134,66,152,1219
  29. 290 data145,65,200,208,251,141,125,21,141,127,21,32,1477
  30. 300 data92,21,160,2,177,251,200,209,251,208,7,201,1779
  31. 310 data0,208,3,76,194,20,170,177,251,141,123,21,1384
  32. 320 data142,124,21,160,3,32,92,21,141,126,21,173,1056
  33. 330 data127,21,240,8,162,0,142,127,21,32,247,20,1147
  34. 340 data200,177,251,208,3,76,162,20,201,131,240,4,1673
  35. 350 data201,143,208,3,76,165,20,201,34,208,7,174,1440
  36. 360 data126,21,240,212,208,207,174,126,21,208,208,201,1952
  37. 370 data65,144,22,201,91,176,200,141,127,21,174,119,1481
  38. 380 data21,208,55,174,122,21,224,2,144,51,76,8,1106
  39. 390 data20,174,127,21,240,190,201,58,176,173,201,48,1629
  40. 400 data176,228,201,32,240,178,201,36,240,21,201,37,1791
  41. 410 data240,17,201,40,240,13,201,41,240,9,201,44,1487
  42. 420 data208,29,174,118,21,240,24,141,119,21,174,122,1391
  43. 430 data21,157,128,21,238,122,21,201,41,208,11,173,1342
  44. 440 data118,21,208,3,206,122,21,76,251,19,201,40,1286
  45. 450 data208,17,232,142,121,21,173,118,21,208,8,169,1438
  46. 460 data0,141,127,21,141,122,21,76,8,20,32,247,956
  47. 470 data20,32,95,21,166,253,165,254,240,20,134,251,1651
  48. 480 data133,252,160,0,177,253,72,200,177,253,133,254,2064
  49. 490 data104,133,253,76,218,19,173,125,21,208,37,169,1536
  50. 500 data0,141,0,255,32,129,146,13,18,86,65,82,967
  51. 510 data73,65,66,76,69,32,73,83,32,78,79,84,810
  52. 520 data32,73,78,32,85,83,69,46,46,46,13,0,603
  53. 530 data169,0,141,0,2,141,0,255,76,55,77,162,1078
  54. 540 data0,189,0,2,240,18,201,92,208,6,236,121,1313
  55. 550 data21,76,19,21,221,128,21,208,79,232,208,233,1467
  56. 560 data236,122,21,208,71,104,104,169,0,141,0,255,1431
  57. 570 data173,125,21,208,29,32,129,146,13,18,86,65,1045
  58. 580 data82,73,65,66,76,69,32,73,83,32,73,78,802
  59. 590 data32,85,83,69,46,46,46,13,13,0,32,129,594
  60. 600 data146,76,73,78,69,58,32,0,173,123,21,174,1023
  61. 610 data124,21,32,50,142,169,13,32,210,255,141,125,1314
  62. 620 data21,76,165,20,169,0,170,157,128,21,232,208,1367
  63. 630 data250,141,119,21,141,121,21,141,122,21,169,63,1330
  64. 640 data141,0,255,169,0,96,0,0,65,72,83,0,881
  65.