home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / LEADERB1.D64 / checker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-27  |  600 b   |  19 lines
  1. 10 IFA=0THENA=1:SYS65418:LOAD"CHKSUM",8,1
  2. 20 IFA=1THENA=2:T=0:E=0:F=0:POKE2,0:POKE816,0:POKE817,204:GOSUB60
  3. 22 IFA<>2THEN30
  4. 25 DIMF$(99),T(99):FORI=1TO99:READF$(I),T(I):IFF$(I)="END"THENI=99:A=3
  5. 27 E=E+T(I):NEXT
  6. 30 T1=PEEK(2):T=T+T1:IFFTHENPRINTT1:IFT1<>T(F)THENGOSUB80:END
  7. 35 IFF$(F+1)<>"END"THEN40
  8. 36 PRINT:PRINT"DISK OKAY":PRINT
  9. 38 END
  10. 40 PRINTF$(F+1);TAB(12);"EXIST=";T(F+1);TAB(28);"DISK=";
  11. 50 POKE2,0:F=F+1:LOADF$(F),8
  12. 60 PRINT"[147]":POKE53281,0:POKE53280,0
  13. 70 PRINT"INSERT FRONT OF DISK AND HIT RETURN
  14. 71 [161]A$:[139]A$[178]""[167]71
  15. 72 [142]
  16. 80 [151]53281,2:[151]53280,2:[153]:[153]"CHKSUM FAILURE":[142]
  17. 100 [131]WORLD CLASS,194,LEADERBOARD,109,WC,10,PLAY,131,EDITOR,205
  18. 110 [131]BACKUP,144,FASTBACK,73,SLOWBACK,102,FASTLD,118,END,0
  19.