0 SCREEN,0:PRINT:PRINT"  CHKSUM 2.2 by James Main Kenney 1996":PRINT:MAXFILES=2:DEFINTA-R:ONERRORGOTO6:W$="bytes > 126":INPUT"File to append data to";L$:PRINT:IFL$>""THENOPENL$FORAPPENDAS1:GOTO4ELSE4
1 IFNOTEOF(2)THENB=ASC(INPUT$(1,2)):N=N+1:S=S+B:M=(M+B*(1+(NAND63)))AND16383:IFB<127THEN1ELSEH=H+1:GOTO1
2 BEEP:K=MMOD95+32:PRINTN"bytes; chk:"S;M;K;CHR$(K):IFHTHENPRINTH;W$
3 IFL$>""THENPRINT#1,F$;SPACE$(12-LEN(F$));USING"###### ####### ###### ### ";N;S;M;K;:PRINT#1,CHR$(K):IFHTHENPRINT#1,,H;W$
4 H=0:M=0:N=0:S=0:F$="":INPUT"File to check";F$:IFF$=""THENMENUELSEP=INSTR(F$,"."):IFPTHENF$=LEFT$(F$,P-1)
5 F$=F$+".DO":CLOSE2:OPENF$FORINPUTAS2:GOTO1
6 PRINT,"Error"ERR:RESUME4