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 ¢
