home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C128 / TEXT / HACKING3.ARC / MISSING.64 (.txt) < prev    next >
Commodore BASIC  |  1992-07-19  |  822b  |  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.