Generates checksums for lines.
Content
Image Gallery
Source Code
9988 REM LINE CHECK
9989 REM by John Bell
9990 LET loc=26710
9991 LET total=0: LET linum=PEEK loc*256+PEEK (loc+1)
9992 LET length=PEEK (loc+2)+PEEK (loc+3)*256
9993 FOR a=(loc+4) TO (loc+length+2) STEP 2
9994 LET total=total+PEEK (a)-PEEK (a+1)
9995 NEXT a
9996 LPRINT linum;TAB 6;total
9997 LET loc=loc+length+4
9998 IF linum=9999 THEN STOP
9999 GO TO 9991