Renumber

Source Code

    1 REM     RENUMBER                        \''\''\''\''\''\''\''\''                   from the book entitled       "THE TIMEX SINCLAIR 2068"          by ROGER VALINTINE           entered by G.F. Chambers     
    2 INPUT "First line to renumber ";f: IF f<10 THEN GO TO 1
    3 INPUT "Last line to renumber ";e
    4 INPUT ("New number for ";f;" ");r: IF r<10 THEN GO TO 3
    5 INPUT "Step ";s: IF s<1 THEN GO TO 4
    6 LET p=PEEK 23635+256*PEEK 23636: LET v=PEEK 23637+256*PEEK 23638
    7 LET n=256*PEEK p+PEEK (p+1): LET l=PEEK (p+2)+256*PEEK (p+3): IF n<f THEN GO TO 9
    8 IF n>e OR p=v THEN LIST : STOP 
    9 LET p1=INT (r/256): POKE p,p1: POKE p+1,r-(p1*256): LET r=r+s
   10 LET p=4+p+l: GO TO 6
 9998 SAVE "RENUMBER" LINE 1
 9999 VERIFY ""