home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / Surveyor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  598b  |  15 lines
  1. 1 rem *** surveyor c-64 ***
  2. 2 a=49152:printchr$(147)
  3. 3 forj=atoa+95:readb:pokej,b:x=x+b:nextj
  4. 4 ifx<>14696thenprint"error in data...":end
  5. 5 c=int(a/256):d=(a-(c*256))+13:pokea+1,d:pokea+3,c
  6. 6 print"data ok * sys"a"to activate...":end
  7. 7 data169,13,162,192,120,141,143,2,142,144,2,88
  8. 8 data96,173,141,2,166,254,133,254,201,5,208,69
  9. 9 data228,254,240,65,169,1,133,204,165,211,133,252
  10. 10 data165,214,133,253,165,209,166,210,24,101,252,144
  11. 11 data1,232,134,251,170,165,251,32,205,189,169,42
  12. 12 data32,210,255,165,243,166,244,24,101,252,144,1
  13. 13 data232,134,251,170,165,251,32,205,189,166,253,164
  14. 14 data252,24,32,240,255,169,0,133,207,76,72,235
  15.