Source Code
9950 SAVE "1029%9"
\n9960 LIST
\n9965 REM DELETE LINES 9950-9960 B4 USING THIS SUBROUTINE
\n9970 STOP
\n9971 LET A=16509
\n9972 INPUT S
\n9973 PRINT S
\n9974 LET L=256*PEEK A+PEEK (A+1)
\n9975 IF L=S THEN RETURN
\n9976 IF L>=9970 THEN GOTO 9979
\n9977 LET A=A+4+PEEK (A+2)+256*PEEK (A+3)
\n9978 GOTO 9974
\n9979 PRINT S;"NOT FOUND"
\n9980 PRINT "LAST LINE TO BE RENUMBERED=";
\n9981 GOSUB 9971
\n9982 LET AE=A+3
\n9983 PRINT "1ST LINE TO BE RENUMBERED=";
\n9984 GOSUB 9971
\n9985 PRINT "1ST NEW LINE NUMBER=";
\n9986 INPUT N
\n9987 PRINT N,"INCREMENT LINES BY:";
\n9988 INPUT I
\n9989 PRINT I
\n9990 IF A>AE THEN GOTO 9997
\n9991 IF N>9969 THEN GOTO 9999
\n9992 POKE A,INT (N/256)
\n9993 POKE (A+1),N-256*INT (N/256)
\n9994 LET A=A+4+PEEK (A+2)+256*PEEK (A+3)
\n9995 LET N=N+I
\n9996 GOTO 9990
\n9997 PRINT ,,"RENUMBER COMPLETE"
\n9998 STOP
\n9999 PRINT ,,"CANT COMPLEAT. LINE NR>9969."
