home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 03 / missing.64.ntsc.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-02-01  |  822 b   |  16 lines
  1. 1 s=49152
  2. 2 deffnh(c)=c-48+7*(c>64)
  3. 3 ch=0:reada$,a:printa$:ifa$="end"thenprint"[147]":sys49152:end
  4. 4 forf=0to31:q=fnh(asc(mid$(a$,f*2+1)))*16+fnh(asc(mid$(a$,f*2+2)))
  5. 5 ch=ch+q:pokes,q:s=s+1:next:ifch=athen3
  6. 6 print"checksum error":end
  7. 100 data 78a97f8d0ddca9018d1ad08d15d0a9578d1403a9c08d1503a91b8d11d0a9fa8d, 3773
  8. 101 data 12d0a9e68d01d0a233a0008d17d0bdaec048290f9d00ce9934ce9d68ce999cce, 4159
  9. 102 data 684a4a4a4a9d00cf9934cf9d68cf999ccfc8ca10d95860eaeaeaeaa037eeffcf, 4830
  10. 103 data ceffcfeabe00ceb900cf8d20d08e20d08d20d08e20d08d20d08e20d08d20d08e, 4502
  11. 104 data 20d08d20d08e20d08d20d08e20d0eaa9008810d08d20d0a967ce65c010038d65, 3942
  12. 105 data c038ed65c08d68c0ee19d04c31ea0990099b00992b0890298b089c2089ab089c, 3558
  13. 106 data 2f80a9fb089c2f87a0f97b180c6f076140096b48ec0f6741e130096b48ec3f77, 3274
  14. 107 data 1111000000000000000000000000000000000000000000000000000000000000, 34
  15. 108 data end,0
  16.