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