32000 REM Type Your Program Once -- "TYPO"¢32100 CLR :DIM Q$(20):QF=7:CLOSE #QF:? "File for output ";¢32110 INPUT Q$:OPEN #QF,12,0,Q$:QREM=0¢32130 QCNT=1:FOR QADDR=PEEK(130)+256*PEEK(131) TO PEEK(132)+256*PEEK(133)-1¢32140 QSUM=QSUM+PEEK(QADDR)*QCNT:QCNT=QCNT+1:NEXT QADDR¢32150 ? #QF;"Variable checksum = ";QSUM:? #QF¢32160 QADDR=PEEK(136)+256*PEEK(137):? #QF;" Line num range Code Length"¢32170 QLINE=PEEK(QADDR)+256*PEEK(QADDR+1)¢32180 IF QLINE>=32000 THEN END ¢32190 QLEN=0:QSUM=QLEN:QCNT=QLEN:? #QF;" ";QLINE,"- ";¢32200 IF NOT (QCNT<12 AND QLEN<500 AND QLINE<32000) THEN 32270¢32220 QLEN=QLEN+PEEK(QADDR+2):QCNT=QCNT+1¢32230 IF PEEK(QADDR+4)=0 AND QREM THEN QADDR=QADDR+PEEK(QADDR+2):GOTO 32260¢32240 FOR QADDR=QADDR TO QADDR+PEEK(QADDR+2)-1¢32250 QSUM=QSUM+PEEK(QADDR):NEXT QADDR¢32260 Q$=STR$(QLINE):QLINE=PEEK(QADDR)+256*PEEK(QADDR+1):GOTO 32200¢32270 QSUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)¢32280 ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);" ";QLEN¢32290 GOTO 32180¢
