Linecheck

Related Content

• In Sync: Linecheck (article)

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