Renumber 1

Source Code

    1 REM "renumber"-TSUG of Las Vegas
    2 LET j=PEEK 23627+256*PEEK 23628-121
    3 FOR n=0 TO 119: READ b
    4 POKE j+n,b
    5 NEXT n
    6 GO TO 9991
    7 DATA 1,0,b,33,83,92,94,35,86,235
    8 DATA 167,126,184,35,56,10,32,4,126,185,56,4
    9 DATA 43,77,68,201
   10 DATA 35,94,35,86,25,35,24,232
   11 DATA 33,0,b,17,0,b
   12 DATA 1,0,b,167,126,35,184,56,4,192,126,185,208
   13 DATA 43,1,5,39,167,126,35,184,56,4,192,126,185,208
   14 DATA 43,114,35,115,235,1,0,b,9,235,35,78,35,70,229,9,68,77,225,35
   15 DATA 62,14,190,32,5,35,b,b,b,b
   16 DATA 62,236,190,40,4,60,190,32,3
   17 DATA 35,54,143
   18 DATA 35,229,167,237,66,225,56,226,35,24,175
 9988 GO TO 9991
 9989 SAVE "RENUMBER" LINE 1
 9990 STOP 
 9991 CLS : PRINT "old starting line number:";: INPUT q: PRINT q
 9992 LET VARS=PEEK 23627+256*PEEK 23628: POKE VARS-120,Q-256*INT (Q/256): POKE VARS-119,INT (Q/256)
 9993 LET Q=USR (VARS-121): POKE VARS-86,Q-256*INT (Q/256): POKE VARS-85,INT (Q/256): PRINT "ADDRESS: ";Q,: PRINT "LENGTH; ";PEEK (Q+2)+256*PEEK (Q+3)+4''
 9994 PRINT "NEW STARTING LINE NUMBER: ";: INPUT Q: POKE VARS-83,Q-256*INT (Q/256): POKE VARS-82,INT (Q/256): PRINT Q''
 9995 PRINT "STEP: ";: INPUT Q: POKE VARS-48,Q-256*INT (Q/256): POKE VARS-47,INT (Q/256): PRINT Q''
 9996 PRINT "OLD LINE STOPPING NUMBER: ": INPUT Q: POKE VARS-80,Q-256*INT (Q/256): POKE VARS-79,INT (Q/256): PRINT Q: STOP 
 9997 IF USR (VARS-87) THEN 
 9998 PRINT AT 13,5;"RENUMBERING COMPLETE.": STOP 
 9999 REM 5555!S\\^#V FOR PI~LN #8 ~EXP 8+MD<>#^#V# CONTINUE !PI~#LN 8USR ~EXP FORMAT +'PI~#LN 8USR ~EXP FORMAT +r#s FOR FOR #N#F RESTORE DM LLIST #>###> GO TO PEEK (<PEEK  #6\::# RESTORE PI GO SUB B LLIST 8 STOP #CODE