home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Trim (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  58 lines
  1. 10 :
  2. 20 printchr$(147)"loading and checking data line:":j=50000:l=80:c=11
  3. 30 printchr$(19)tab(31)l:print
  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<580then30
  7. 70 print"data ok and loaded...":print:print"sys 50000 to activate...":end
  8. 80 data32,220,196,141,176,197,141,177,197,162,10,238,1887
  9. 90 data176,197,32,252,196,224,48,176,5,162,61,32,1561
  10. 100 data252,196,32,225,255,208,3,76,220,196,32,228,1923
  11. 110 data255,201,20,240,215,201,78,240,4,201,89,208,1952
  12. 120 data233,174,176,197,224,3,144,22,201,78,240,196,1888
  13. 130 data174,177,197,208,57,162,71,32,252,196,32,228,1786
  14. 140 data255,240,251,76,80,195,32,210,255,201,78,208,2081
  15. 150 data8,169,79,32,210,255,76,188,195,162,24,32,1430
  16. 160 data252,196,173,176,197,24,109,177,197,141,177,197,2016
  17. 170 data162,27,173,176,197,201,1,240,150,162,44,76,1609
  18. 180 data91,195,169,1,162,8,133,251,133,253,134,252,1782
  19. 190 data134,254,32,220,196,160,178,153,0,197,200,208,1932
  20. 200 data250,165,253,166,254,133,251,134,252,32,213,196,2299
  21. 210 data177,251,208,3,76,220,196,32,213,196,177,251,2000
  22. 220 data170,32,213,196,177,251,32,205,189,169,32,32,1698
  23. 230 data210,255,32,213,196,162,0,161,251,208,3,76,1767
  24. 240 data148,196,174,178,197,224,143,240,55,166,212,208,2141
  25. 250 data54,174,177,197,224,2,240,4,201,32,240,37,1582
  26. 260 data224,2,144,39,201,143,208,35,174,179,197,208,1754
  27. 270 data8,141,178,197,169,58,76,83,196,224,58,208,1596
  28. 280 data12,174,180,197,240,7,169,20,32,210,255,169,1665
  29. 290 data143,141,178,197,76,142,196,141,179,197,201,58,1849
  30. 300 data240,3,141,180,197,201,128,144,39,166,212,208,1859
  31. 310 data35,56,233,127,170,160,255,202,240,8,200,185,1871
  32. 320 data158,160,16,250,48,245,200,185,158,160,48,9,1637
  33. 330 data32,234,196,32,210,255,76,118,196,56,233,128,1766
  34. 340 data32,234,196,32,210,255,32,213,196,76,9,196,1681
  35. 350 data32,225,255,240,67,32,223,196,32,213,196,173,1884
  36. 360 data178,197,208,11,165,251,166,252,133,253,134,254,2202
  37. 370 data76,214,195,173,182,197,240,5,162,137,76,252,1909
  38. 380 data196,162,0,32,252,196,169,19,141,119,2,169,1457
  39. 390 data13,141,120,2,141,121,2,141,122,2,169,4,978
  40. 400 data133,198,76,49,168,230,251,208,2,230,252,96,1893
  41. 410 data32,68,229,169,0,133,198,133,199,133,212,133,1639
  42. 420 data216,96,174,181,197,240,3,142,182,197,166,211,2005
  43. 430 data224,79,144,3,142,181,197,96,189,8,197,240,1700
  44. 440 data250,32,210,255,232,76,252,196,13,83,89,83,1771
  45. 450 data53,48,49,51,52,0,13,13,68,69,76,69,561
  46. 460 data84,69,32,32,83,80,65,67,69,83,0,13,677
  47. 470 data13,68,69,76,69,84,69,32,82,69,77,65,773
  48. 480 data82,75,83,0,13,13,18,32,32,65,82,69,564
  49. 490 data32,89,79,85,32,83,85,82,69,63,32,40,771
  50. 500 data89,47,78,41,32,32,0,13,13,89,79,85,598
  51. 510 data32,77,85,83,84,32,65,78,83,87,69,82,857
  52. 520 data32,89,69,83,32,84,79,32,65,84,32,76,757
  53. 530 data69,65,83,84,13,79,78,69,32,80,82,79,813
  54. 540 data77,80,84,46,46,46,46,46,32,40,80,82,705
  55. 550 data69,83,83,32,65,78,89,32,75,69,89,41,805
  56. 560 data0,13,13,18,76,73,78,69,32,84,79,79,614
  57. 570 data32,76,79,78,71,13,0,0,0,0,0,0,349
  58.