32000 REM TYPE YOUR PROGRAM ONCE FOR BASIC A+ -- "TYPO+"›32100 CLR :DIM Q$(20):QF=7:CLOSE #QF›32110 INPUT "File for output ? ",Q$:OPEN #QF,12,0,Q$:QREM=0›32130 QCNT=1:FOR QADDR=DPEEK(130) TO DPEEK(132)-1:QSUM=QSUM+PEEK(QADDR)*QCNT›32140   QCNT=QCNT+1:NEXT QADDR›32150 ? #QF;" Variable checksum = ";QSUM:? #QF›32160 QADDR=DPEEK(136):? #QF;" Line num range    Code  Length"›32170 QLINE=DPEEK(QADDR)›32180 WHILE QLINE<32000›32190   QLEN=0:QSUM=QLEN:QCNT=QLEN:? #QF; USING "#####  /-",QLINE;›32200   WHILE QCNT<12 AND QLEN<500 AND QLINE<32000›32220     QLEN=QLEN+PEEK(QADDR+2):QCNT=QCNT+1›32230     IF QREM AND  NOT PEEK(QADDR+4):QADDR=QADDR+PEEK(QADDR+2)›32235       ELSE ›32240       FOR QADDR=QADDR TO QADDR+PEEK(QADDR+2)-1›32250         QSUM=QSUM+PEEK(QADDR):NEXT QADDR›32255       ENDIF ›32260     Q$=STR$(QLINE):QLINE=DPEEK(QADDR)›32265     ENDWHILE ›32270   QSUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)›32280   ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);"    ";QLEN›32290   ENDWHILE ›32300 END ›