10 "A" CLS : WAIT : PRINT "Load first file" : WAIT 0: CLOSE : OPEN :C=0,AA$=""
20 X=10000
40 INPUT #1AA$: CURSOR 72: PRINT AA$: IF LEFT$ (AA$,5)="CHECK" LET H= VAL RIGHT$ (AA$,3): GOTO 70
50 N= VAL LEFT$ (AA$,5),M= VAL RIGHT$ (AA$,3),C=C+M: IF X=N POKE N,M:X=X+1: GOTO 40
60 WAIT : PRINT "ADDRESS MISMATCH! EXITING!": CLOSE : GOTO 90
70 C=C-256* INT (C/256): IF H=C PRINT "CHECKSUM OK!": CLOSE : GOTO 90
80 WAIT : PRINT "CHECKSUM NOT OK!": CLOSE
90 CLS : WAIT : CLOSE: PRINT "Next file" : WAIT 0: OPEN :C=0,AA$=""
100 X=20000
120 INPUT #1AA$: CURSOR 72: PRINT AA$: IF LEFT$ (AA$,5)="CHECK" LET H= VAL RIGHT$ (AA$,3): GOTO 150
130 N= VAL LEFT$ (AA$,5),M= VAL RIGHT$ (AA$,3),C=C+M: IF X=N POKE N,M:X=X+1: GOTO 120
140 PRINT "ADDRESS MISMATCH! EXITING!": CLOSE : END
150 C=C-256* INT (C/256): IF H=C PRINT "CHECKSUM OK!": CLOSE : END
160 PRINT "CHECKSUM NOT OK!": CLOSE : END