Generates checksums for program lines. Merge to check listings.
Appears on
Gallery
Source Code
9987 REM ! LIST 9988 REM ! LPRINT 9989 REM !INT +START,STOP,BYT,LINE,LENGTH,SUM,ODD,I 9990 REM ! OPEN # 9991 LET start=256*PEEK 23636+PEEK 23635: LET stop=256*PEEK 23628+PEEK 23627: LET byt=start 9992 LET line=0: LET length=0: LET sum=0 9993 LET line=256*PEEK byt+PEEK (byt+1): LET byt=byt+2 9994 LET length=256*PEEK (byt+1)+PEEK byt: LET byt=byt+2 9995 LET odd=1: FOR i=1 TO length: LET sum=sum+(odd+1)*PEEK byt: LET odd=NOT odd: LET byt=byt+1: NEXT i 9996 PRINT line;TAB 6;": ";length;TAB 13;": ";sum 9997 LPRINT line;TAB 6;": ";length;TAB 13;": ";sum 9998 IF byt<stop THEN GO TO 9992 9999 STOP