Line Renumber Routine

Gallery

Source Code

9950 SAVE "1029%9"
9960 LIST 
9965 REM DELETE LINES 9950-9960 B4 USING THIS SUBROUTINE
9970 STOP 
9971 LET A=16509
9972 INPUT S
9973 PRINT S
9974 LET L=256*PEEK A+PEEK (A+1)
9975 IF L=S THEN RETURN 
9976 IF L>=9970 THEN GOTO 9979
9977 LET A=A+4+PEEK (A+2)+256*PEEK (A+3)
9978 GOTO 9974
9979 PRINT S;"NOT FOUND"
9980 PRINT "LAST LINE TO BE RENUMBERED=";
9981 GOSUB 9971
9982 LET AE=A+3
9983 PRINT "1ST LINE TO BE RENUMBERED=";
9984 GOSUB 9971
9985 PRINT "1ST NEW LINE NUMBER=";
9986 INPUT N
9987 PRINT N,"INCREMENT LINES BY:";
9988 INPUT I
9989 PRINT I
9990 IF A>AE THEN GOTO 9997
9991 IF N>9969 THEN GOTO 9999
9992 POKE A,INT (N/256)
9993 POKE (A+1),N-256*INT (N/256)
9994 LET A=A+4+PEEK (A+2)+256*PEEK (A+3)
9995 LET N=N+I
9996 GOTO 9990
9997 PRINT ,,"RENUMBER COMPLETE"
9998 STOP 
9999 PRINT ,,"CANT COMPLEAT. LINE NR>9969."