home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / text / hacking6.arc / DYCP.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-09-16  |  1.4 KB  |  24 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 78A9328501A200BD00D09D0038BD00D19D0039CAD0F1A9378501A01FA942187D, 3441
  8. 101 DATA 75C19D00CF9920CFA94038FD75C19D40CF9960CFE88810E4A27FBD00CF4A1869, 4302
  9. 102 DATA 209D80CFCA10F3A2278A0A0A0A0A9D00CE8A4A4A4A4A18693C9D30CEA9009D90, 3231
  10. 103 DATA 03CA10E58D3E03A2078E3D039D0038CA10FAA93885FEA99B8D1403A9C08D1503, 3338
  11. 104 DATA A97F8D0DDCA9818D1AD0A9A88D12D0A91B8D11D0A91E8D18D05860EE3C03A026, 3864
  12. 105 DATA AE3C03BD00CF2907994003BD00CF4A4A4A996803E8E88810EAA900A24F9D003C, 3256
  13. 106 DATA 9D503C9DA03C9DF03C9D403D9D903D9DE03D9D303ECA10E5AD3D038D16D0A226, 3739
  14. 107 DATA 18BC68038A7995C185FBA90479AAC185FCA920A00091FBA07891FB8A0A0980A0, 4224
  15. 108 DATA 2891FB6901A05091FBBD900385FDBD00CE7D400385FBBD30CE85FCA006B1FD91, 4440
  16. 109 DATA FB88B1FD91FB88B1FD91FB88B1FD91FB88B1FD91FB88B1FD91FB88B1FD91FBCA, 6225
  17. 110 DATA 109FEE19D0CE3D031028B99103999003C8C026D0F5AD3E03293FAABDBFC10A0A, 3593
  18. 111 DATA 0A8DB603CE3C03CE3C03EE3E03A9078D3D034C7EEA000306090C0F1215181B1E, 2159
  19. 112 DATA 202326282A2D2F3133353638393B3C3D3E3E3F3F3F00285078A0C8F018406890, 2268
  20. 113 DATA B8E008305880A8D0F82000000000000000010101010101020202020202020314, 1379
  21. 114 DATA 08091300091300010E000518010D100C05001303120F0C0C00060F1200030F0D, 304
  22. 115 DATA 0D0F040F1205000D0107011A090E050002190010011309000F0A010C01000000, 257
  23. 200 DATA END,0
  24.