Classic Computer Magazine Archive PROGRAM LISTING: bestofanticv1b/TYPO.LST


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

Back to previous page