home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Highlight (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  30 lines
  1. 10 rem *** highlight *** buck childress * 5/14/86 ***
  2. 20 rem *** p.o. box 13575, salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=53000:l=110:c=11
  4. 40 printchr$(19)tab(31)l:print
  5. 50 forb=0toc:reada:ifa<0ora>255then80
  6. 60 pokej+b,a:x=x+a:nextb:readchecksum
  7. 70 ifx=checksumthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:l=l+10:ifl<300then40
  10. 100 print"data ok and loaded...":print:print"sys 53000 to activate...":end
  11. 110 data173,20,3,174,21,3,224,207,240,43,141,240,1489
  12. 120 data207,142,241,207,169,14,141,243,207,141,246,207,2165
  13. 130 data141,32,208,141,33,208,169,62,162,207,160,1,1524
  14. 140 data132,252,140,244,207,136,140,245,207,120,141,20,1984
  15. 150 data3,142,21,3,88,96,165,209,133,253,165,210,1488
  16. 160 data24,105,212,133,254,165,251,166,203,134,251,224,2122
  17. 170 data3,144,55,224,7,176,51,197,251,240,44,165,1557
  18. 180 data199,208,40,165,212,208,36,165,216,208,32,189,1878
  19. 190 data240,207,168,200,173,141,2,201,1,208,2,136,1679
  20. 200 data136,152,157,240,207,160,0,224,3,240,5,200,1724
  21. 210 data224,6,208,31,153,32,208,108,240,207,173,0,1590
  22. 220 data2,240,7,165,204,208,244,141,0,2,173,146,1532
  23. 230 data2,208,236,165,209,197,252,240,22,133,252,173,2089
  24. 240 data245,207,162,0,157,0,216,157,0,217,157,0,1518
  25. 250 data218,157,0,219,232,208,241,174,245,207,160,255,2316
  26. 260 data200,192,40,176,19,177,209,16,3,56,233,128,1449
  27. 270 data201,32,240,240,201,48,144,7,201,58,176,3,1551
  28. 280 data174,244,207,138,141,134,2,164,213,48,5,145,1615
  29. 290 data253,136,16,251,108,240,207,0,0,0,0,0,1211
  30.