Renumber

9900 REM "renumber"
          John Sims
          SINCUS
          P.O. Box 36
          Johnson City,NY 13790
9901 INPUT  "First line to renum
ber ";f: IF f<1 THEN GO TO 990[illegible]
9902 INPUT  "Last line to renumb
er ";e: IF (e<f) OR e>9999 THEN
GO TO 9902
9903 INPUT "New number for ""f""
 ";r: IF r<1 THEN GO TO 990[illegible]
9904 INPUT "step ";s: IF s<1 THE
N GO TO 9904
9905 LET p=PEEK 23635+256*PEEK 2
3636: LET v=PEEK 23637+256*PEEK
23638: PRINT "Turn on printer":
PAUSE 120: CLS
9906 LET n=256*PEEK p+PEEK (p+1)
: LET l=PEEK (p+2)+256*PEEK (p+3
): IF n<f THEN GO TO 9910
9907 IF n>e OR p>=v THEN LPRINT
: LLIST : STOP
9908 LET a=PEEK (p+4): IF a=236
OR a=237 THEN LPRINT CHR$ a;TAB
8;n;TAB 16;r
9909 LET p1=INT (r/256): POKE p,
p1: POKE p+1,r-p1*256: LET r=r+s
9910 LET p=p+4+l: GO TO [illegible]