home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / power basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  726 b   |  17 lines
  1. 10 input"[147]starting address";sa$:sa=val(sa$)
  2. 20 fori=satosa+121:reada:pokei,a:n=n+a:next
  3. 30 ifn<>16955thenprint"[147]error in data":stop
  4. 40 a=int((sa+11)/256):b=sa+11-a*256:c=int((sa+46)/256):d=sa+46-c*256
  5. 50 pokesa+1,b:pokesa+6,a:pokesa+34,d:pokesa+39,c
  6. 60 print"sys"sa"to use":new
  7. 70 data169,11,141,34,3,169,192,141,35,3,96,165
  8. 80 data123,201,2,240,26,165,122,133,251,165,57,133
  9. 90 data181,165,58,133,182,169,0,133,183,169,46,141
  10. 100 data6,3,169,192,141,7,3,76,243,243,133,252
  11. 110 data165,183,208,18,230,183,169,145,32,210,255,165
  12. 120 data181,133,20,165,182,133,21,76,167,198,165,183
  13. 130 data201,1,208,9,230,183,56,165,251,229,95,133
  14. 140 data253,132,254,196,253,240,13,200,200,177,95,240
  15. 150 data9,164,254,165,252,76,26,199,198,254,169,95
  16. 160 data133,252,169,26,141,6,3,169,199,141,7,3,208,231
  17.