home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 07 / tech.64.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-02-01  |  1.1 KB  |  20 lines
  1. 1 s=49152
  2. 2 deffnh(c)=c-48+7*(c>64)
  3. 3 ch=0:reada$,a:printa$:ifa$="end"thenprint"<[215][200][201][212][197]><[195][204][210]>":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 78a97f8d0ddca9818d1ad0a9ad8d1403a9c08d1503a9318d12d0a91b8d11d0a0, 3802
  8. 101 data 00a24086fc84fb9891fbc8d0fbe6fc10f7a94485fca9328501984a4a4aaabd5e, 4749
  9. 102 data c10a0a0aaaa9d069008d4ec0bd00d091fbe8c88a2907d0f4c000d0dda9378501, 4128
  10. 103 data b9004499084c99105499185c99206499286c99307499387cc8d0e5a9008d3c03, 3258
  11. 104 data 8d3d038d3e0398098099004099284099504099784099a04099c84099f0409918, 3236
  12. 105 data 41a9ef994041c8c028d0db5860a9968d00ddeaeaac3c034ce1c0eab900cf8d16, 4464
  13. 106 data d0b900ce8d18d0eaeaeaeaeaeaeaeaeaeaeaeaeaeaeaad12d0c9781016c8cad0, 5850
  14. 107 data d9b900cf8d16d0b900ce8d18d0c8a2074cbbc0a9978d00dda9168d18d0a9088d, 4132
  15. 108 data 16d0ad00dc2d01dcaaac3e032908d008c8c00410038c3e038a2904d00888c0fc, 3160
  16. 109 data 30038c3e03ad3d03186d3e03100ead3e0349ff1869018d3e03ad3d038d3d034a, 2139
  17. 110 data aa29070908ac3c039900cf8a4a4a4a0a9900cece3c03a9018d19d04c31ea1408, 2759
  18. 111 data 091320091320140503082d1405030820060f1220033d3634200219200d050f12, 652
  19. 200 data end,0
  20.