fseipel@hpuxa.ircc.ohio-state.edu (Frank E. Seipel) (03/02/91)
Here is the description of my line renumbering program, from the
A.C.E.C. BBS @ (614)-471-8559:
26/2/89 C45:Relocatr
Written by yours truly. Program to relocate a BASIC LISTed file. Will
renumber the file. User inputs starting line of new file, line increment.
All GOSUB/GOTO/RESTORE/TRAP/ON GOSUB/ON GOTO statements are adjusted so
that the new listing runs as-is. Also works with assembly language files.
Handy for making listings for readable and creating space for modifications
in a crowded program. Also useful for putting together two subroutines
which previously existed in the same range of lines. Writes out another
listed file; use ENTER to load output file.
-Frank Seipel
Use uudecode to uncompact file.
---------------------cut here--------------------------------
begin 0666 RELOCATE.BAS
M 4T!3@'^ 3$,0 Q33U520T6D1$535*1,3J1414U0I%135*1,24Y%4ZA!
M4\U35$%2U$Q)3L-43U1,24Y%TTS.R4/,5$53U,K4TTQ.5<U,3D?4S$Q)3D73
MUP"! ! 4 ($!% % !0 @0(H !T + &! U0! "P!@02 @4 !0!!!84"
MQ0D! & =! 0 "$ 0 )0%< I %P
M"T 4 ,0 4 $ R .0 0 \ $
M 100(@ !) P $T 3 4 !5 $ !D %$K
M#@ !11%( [#D @ "P2@3L.0" +!*".PY! P L$H,[
M#D$# "P2A#L.0 4 +!*%.0Y!)0 L%FX 408@%!T@$@\1("#"
MP=/)PZ#2Q<S/P\'4S](4-S .0 ( $@X 2#@ !11, Y
M 0 2#@ !(.0!0 %G@ *@8@%"H@#Q\@(" @(" @(%=R:71T
M96X@8GD@1G)A;FL@4V5I<&5L%H( 6P8@% D@%# @#R)&:6QE;F%M97,@;75S
M="!I;F-L=61E(&1E=FEC92!N86UE%%@@#R,H:2YE+BP@1#H@<VAO=6QD('!R
M96-E9&4@9FEL96YA;65S*11;(!:, #PH( \@16YT97(@<V]U<F-E(&9I;&4@
M*"Y,4U0@;W(@+D%332D4+R@/ 3X5%#P"' Y %@ 2@!:6 $0&(!0P( \E
M16YT97(@9&5S=&EN871I;VX@9FEL92 H+DQ35"!O<B N05--*10W* \!/A44
M1 (<#D 6 !*!%J 4 8@%# @#R5)<R!T:&4@<V]U<F-E(&9I;&4@87-S
M96UB;'D@;&%N9W5A9V4_%$,H#RA915,@;W(@3D\I(#X5%% "' Y %@ 2
M@Q:J $L/-H8M#@ !0_!X,W#D ! #P.0 $ +#0/ 5DI@S<.
M0 $ / Y 0 L- \!>1M+-H8M#D ! !:T #T&(!0I( \>16YT
M97(@;F5W('-T87)T:6YG(&QI;F4@;G5M8F5R%# @#P$^%10] AP.0!8
M$H<6O@ W!B 4(R /&$5N=&5R(&YE=R!L:6YE(&EN8W)E;65N=!0J( \!/A44
M-P(<#D 6 !*(%L@ *@Y!!) 4*A<<#D ! !(.0 0 $@X
M 2@!;2 !D.00)0 %!DVB2T. %MP $! "' Y 0 2
M@A;F "47-H4XB24.0 $ +"U!.H(L%"4VB2V))0Y 0 6\ *#D$"
M( !;Z " .$1P.0 $ %" ?#D$'4@ !(.0 $ %@0!+" 7' Y
M 0 2#D $ !(. $H 4+#:*+0X 6#@$W(!<<#D "
M !(.0 @ $@X 2@10J#D$&( !0W(#XZ#D$!)0 "P6
M& $[$ (<#D ! !*"%!XVBBV*)0Y 0 4.S:"-T(Z@BPE#D !
M "PN/CH.00%5 +!8B 4P5+0Y $ 2#D 0 !0S( \90W5R<F5N
M=&QY('!R;V-E<W-I;F<@;&EN911%+0Y &0 2#D 2 !1,($$Z@BP6
M+ $1!P>&&Q$*#D$$ !8V 0\/-HLM#@ !9 201-HLMBR4.0 $
M %"0VA"Z"-XL\BR4.0 0 +!9* 24/!X0T#P5'3U1/(!L;-HPM#D %
M !0E"@Y!!A 65 $E#P>$- \%1T]354(;&S:,+0Y !@ 4)0H.
M0080 %EX!60\'A#0/!51(14X@&RTVC2U .H(WBR4.0 4 /(LE#D %
M "PL%$,'C2$.0$< *HT@#D!8 !M/-HPM#D % !19"@Y!
M!A 6: $E#P>$- \%5%)!4" ;&S:,+0Y !0 4)0H.0080 %G(!
M)0\'A#0/!5)%4U1/&QLVC"T.0 @ %"4*#D$&$ !9\ 20:!X(WBSR+
M)0Y @ L- \#3TX@&R0*#D$$( !:& 1X4!XL@0CJ"+"8.0 4
M&QX*#D$#( !:0 1D/-HXM#D ! !09# Y!!0 6F@$N)" <#D "
M !6')8@D*XHF#D ! "P5@C>.+!44+@H.00* %J0!%A8(CRV+
M&4(Z@BPF#D % !:N 3L=!X(WCSR/)0Y !0 L- \&($=/5$\@&RLV
MD"V/)0Y !@ 4,3:++9 4.PH.001@ %K@!.QT'@C>//(\E#D %
M "PT#P8@1T]354(;*S:0+8\E#D ' !0Q-HLMD!0["@Y!!& 6P@$1
M!PF/%!$*#D$#D !;, 1D/-HPM#@ !09# Y!!9 6U@$\$3:0
M+9 E0CH].I$L+!0>!X(WD#R0+#0/ 2P;+#:0+9 E#D ! !0R-HLMD!0\
M"@Y!!& 6X $3"3:++9 4$PH.00.0 %NH!108@%"8@#QM%<G)O<B!I
M;B!O<&5N:6YG(&1A=&$@9FEL97,40B /%V-H96-K(&9I;&5N86UE*',I+W1Y
M<&5S%$45%O0!#P\VDBT. %OX!31$VC2U .H(WCCR.+"P4)P>-(0Y
M1P JC2 .0%@ &S4VCBV.)0Y 0 40S:2+9(E#D ! !1-
M"@Y!!1 6" (&!B06$@(/#S:3+0X 6' (1$3:3+9,E#D !
M !8F B,,!X4XDRPBC1L@-I$MAR6()"N3)@Y 0 L%",D%C "$PD'E"")
M&Q,*#D$%0 !8Z @<'(((61 (])R /'TUA:V5S(')E9F5R96YC92!T;R!N
M;VXM97AI<W1A;G04.B /#&QI;F4@;G5M8F5R(!6-%#T5%DX",0LVCBV+)8P4
M$3:5+8X4&PP.004 %"<VC2U!.H(WE2PL%#$,#D$%, !98 EL<-H,N
M@C<.0 $ /)4F#D ! "P4,S:#-T(Z@RPE#D ! "PN/3J1+!1*
M-H,W0CJ#+"4.0 $ +"Z"-XXL%% V@BZ#%%@VBRV+)8P46R068@(7# Y!
M!9 4%PH.00.0 %FP"7A H/CH.00$E +!0B'PY!!U( 2#@
M !0W!T8Z#D$!E0 "PB#D$!-@ !LZ(!1;( \<1FEL92!C;VYV97)T
M960@<W5C8V5S<V9U;&QY+A1>%19V DU-( \)15)23U(M(" @%48Z#D$!E0
M "P5#Q @870@;&EN92!N=6UB97(@%48Z#D$!A@ "PE1CH.00&' +"0.
M00)6 %H ",@8@%"H@#Q]O8V-U<G)E9"!P<F]C8V5S<VEN9R!T:&ES(&QI
M;F4Z%"T@%#(@@A46B@)3!B 4+" /(49I>"!B860@;&EN92!N=6UB97(@97AP
M<F5S<VEO;B!O<A13( \B9&%T82P@<F5,25-4(&9I;&4L(&%N9"!T:&5N(')E
M+7)U;A:4 AL5( ]T:&ES('!R;V=R86TN%!@@%!L5%@" #P\9#P=$.E)%3$]#
M%AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
&&AH:&AH:
end