home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 June / Ahoy_Magazine_86-06_1986_Double_L.d64 / trackdown vic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  917 b   |  21 lines
  1. 10 rem *** trackdown (vic-20) *** buck childress (11/07/85) ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 poke55,76:poke56,29:clr
  4. 40 printchr$(147)"loading and":print"checking data.":print
  5. 50 forj=7500to7657:reada:pokej,a:x=x+a:nextj
  6. 60 ifx<>22021thenprint"error in data.":end
  7. 70 print"data ok.":print:print"sys 7500 to activate.":end
  8. 80 data162,0,172,1,16,200,200,132,253,169,16,133
  9. 90 data254,161,253,141,234,29,230,253,161,253,141,235
  10. 100 data29,230,253,169,5,141,236,29,169,16,133,252
  11. 110 data162,0,173,236,29,133,251,173,236,29,197,251
  12. 120 data208,22,201,6,240,18,161,251,201,34,240,4
  13. 130 data201,35,208,8,169,6,141,236,29,76,112,29
  14. 140 data161,253,240,7,193,251,240,39,76,221,29,161
  15. 150 data251,240,44,32,227,29,32,227,29,161,253,240
  16. 160 data60,32,227,29,161,253,141,234,29,32,227,29
  17. 170 data161,253,141,235,29,32,227,29,76,112,29,230
  18. 180 data251,161,251,240,6,32,227,29,76,119,29,174
  19. 190 data234,29,173,235,29,32,205,221,169,13,32,210
  20. 200 data255,32,227,29,76,112,29,230,253,208,2,230,254,96
  21.