home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / very-able (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  48 lines
  1. 10 rem *** very-able *** buck childress (11/25/85) ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data...":print:j=49152:l=90:c=11
  4. 40 forb=0toc:reada:pokej+b,a:x=x+a:nextb:reada
  5. 50 ifx<>athenprint"error in data line"l:end
  6. 60 x=0:j=j+12:l=l+10:ifl<470then40
  7. 70 ifl=470thenc=4:goto40
  8. 80 print"data ok and loaded...":print:print"sys 49152 to activate...":end
  9. 90 data32,68,229,173,1,8,162,8,133,253,134,252,1453
  10. 100 data134,254,169,1,133,251,160,0,152,145,45,153,1597
  11. 110 data0,194,153,0,195,200,208,245,141,244,193,141,1914
  12. 120 data245,193,141,251,193,141,253,193,141,255,193,162,2361
  13. 130 data0,232,208,253,160,2,177,251,200,209,251,208,2151
  14. 140 data7,201,0,208,3,76,219,192,170,173,253,193,1695
  15. 150 data208,19,138,72,152,72,166,214,160,0,24,32,1257
  16. 160 data240,255,104,168,104,170,76,204,192,169,0,141,1823
  17. 170 data253,193,238,251,193,173,251,193,201,12,144,75,2177
  18. 180 data169,0,141,251,193,32,225,255,208,1,96,173,1744
  19. 190 data141,2,201,2,208,13,173,245,193,201,255,240,1874
  20. 200 data45,238,245,193,76,178,192,201,4,208,226,173,1979
  21. 210 data245,193,240,3,206,245,193,172,245,193,185,0,2120
  22. 220 data194,133,251,185,0,195,133,252,160,0,177,251,1931
  23. 230 data133,253,200,177,251,133,254,140,244,193,169,147,2294
  24. 240 data76,185,192,169,13,32,210,255,173,244,193,240,1982
  25. 250 data11,169,0,141,244,193,160,2,177,251,170,200,1718
  26. 260 data177,251,32,205,189,173,255,193,208,5,169,32,1889
  27. 270 data32,210,255,162,0,142,254,193,160,3,169,0,1580
  28. 280 data141,252,193,173,255,193,240,10,162,0,142,255,2016
  29. 290 data193,169,32,32,210,255,200,177,251,240,8,201,1968
  30. 300 data131,240,4,201,143,208,3,76,109,193,201,34,1543
  31. 310 data208,19,174,254,193,208,6,141,254,193,76,226,1952
  32. 320 data192,169,0,141,254,193,76,226,192,174,254,193,2064
  33. 330 data208,192,201,65,144,27,201,91,176,184,141,255,1885
  34. 340 data193,174,252,193,240,50,162,0,142,252,193,72,1923
  35. 350 data169,32,32,210,255,104,76,100,193,174,255,193,1793
  36. 360 data240,176,201,58,176,152,201,48,176,22,201,36,1687
  37. 370 data208,6,141,252,193,76,100,193,201,40,208,5,1623
  38. 380 data169,42,32,210,255,76,226,192,32,210,255,141,1840
  39. 390 data253,193,76,246,192,173,251,193,208,13,172,245,2215
  40. 400 data193,165,251,153,0,194,165,252,153,0,195,166,1887
  41. 410 data253,165,254,240,20,134,251,133,252,160,0,177,2039
  42. 420 data253,72,200,177,253,133,254,104,133,253,76,47,1955
  43. 430 data192,173,253,193,208,11,166,214,160,0,24,32,1626
  44. 440 data240,255,76,174,193,169,13,32,210,255,160,40,1817
  45. 450 data169,45,32,210,255,136,208,250,32,225,255,208,2025
  46. 460 data1,96,173,141,2,201,4,208,243,169,0,141,1379
  47. 470 data251,193,76,143,192,855
  48.