home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 06 / dycp-ntsc.bas.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-02-01  |  1.4 KB  |  25 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. 90 end
  8. 100 data 78a9328501a200bd00d09d0038bd00d19d0039cad0f1a9378501a01fa942187d, 3441
  9. 101 data 75c19d00cf9920cfa94038fd75c19d40cf9960cfe88810e4a27fbd00cf4a1869, 4302
  10. 102 data 209d80cfca10f3a2278a0a0a0a0a9d00ce8a4a4a4a4a18693c9d30cea9009d90, 3231
  11. 103 data 03ca10e58d3e03a2078e3d039d0038ca10faa93885fea99b8d1403a9c08d1503, 3338
  12. 104 data a97f8d0ddca9818d1ad0a9b08d12d0a91b8d11d0a91e8d18d05860ee3c03a01c, 3862
  13. 105 data ae3c03bd00cf2907994003bd00cf4a4a4a996803e8e88810eaa900a24f9d003c, 3256
  14. 106 data 9d503c9da03c9df03c9d403d9d903d9de03d9d303eca10e5ad3d038d16d0a21c, 3729
  15. 107 data 18bc68038a7995c185fba90479aac185fca920a00091fba07891fb8a0a0980a0, 4224
  16. 108 data 2891fb6901a05091fbbd900385fdbd00ce7d400385fbbd30ce85fca006b1fd91, 4440
  17. 109 data fb88b1fd91fb88b1fd91fb88b1fd91fb88b1fd91fb88b1fd91fb88b1fd91fbca, 6225
  18. 110 data 109fee19d0ce3d031028b99103999003c8c026d0f5ad3e03293faabdbfc10a0a, 3593
  19. 111 data 0a8db603ce3c03ce3c03ee3e03a9078d3d034c7eea000306090c0f1215181b1e, 2159
  20. 112 data 202326282a2d2f3133353638393b3c3d3e3e3f3f3f00285078a0c8f018406890, 2268
  21. 113 data b8e008305880a8d0f82000000000000000010101010101020202020202020314, 1379
  22. 114 data 08091300091300010e000518010d100c05001303120f0c0c00060f1200030f0d, 304
  23. 115 data 0d0f040f1205000d0107011a090e050002190010011309000f0a010c01000000, 257
  24. 120 data end,0
  25.