Program renumbering routine.
Content
Image Gallery
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