home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Downshift 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  473 b   |  13 lines
  1. 1 rem *** downshift 64 ***
  2. 2 a=53000:printchr$(147)
  3. 3 forj=atoa+67:readb:pokej,b:x=x+b:nextj
  4. 4 ifx<>9903thenprint"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,21,162,207,120,141,20,3,142,21,3,88
  8. 8 data96,165,203,160,0,201,4,208,8,232,208,253
  9. 9 data200,192,64,144,248,201,5,208,8,232,208,253
  10. 10 data200,192,128,144,248,201,6,208,8,232,208,253
  11. 11 data200,192,192,144,248,201,3,208,8,32,159,255
  12. 12 data165,203,184,80,244,76,49,234
  13.