Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!lll-winken!ncis.tis.llnl.gov!dog.ee.lbl.gov!hellgate.utah.edu!csn!magnus.ircc.ohio-state.edu!news
From: fseipel@hpuxa.ircc.ohio-state.edu (Frank E. Seipel)
Newsgroups: comp.sys.atari.8bit
Subject: Basic Relocator (Line Renumbering)
Message-ID: <1991Mar2.045740.23752@magnus.ircc.ohio-state.edu>
Date: 2 Mar 91 04:57:40 GMT
Sender: news@magnus.ircc.ohio-state.edu
Organization: The Ohio State University
Lines: 90
Originator: fseipel@hpuxa.ircc.ohio-state.edu
Nntp-Posting-Host: hpuxa.ircc.ohio-state.edu


 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