L RFS (C) BEEBUG 1985? LEHIȅIh`h`HIh`HHHy  !@  L(hH hhh`hhh`!TITLEwe EXEC !BOOT *!TITLEwe WORDEASE Hp*!BOOTS` *KEY10 *WORDWISE|M:SELECT SEGMENT 9|M:LOAD TEXT "W.UTILS"|M|!|I|!|I|M *FX138,0,138 1C*T.Ar|A4 STANDARD PAGE LAYOUT EPDHCEYOUR HEADER HERE DFCEYOUR FOOTER. PAGE-PP HP3 |Header 3 lines down TS6 |Top Space = 6 lines 0<=HP<=TS FP3 |Footer 3 lines down BS6 |Bottom Space = 6 lines 0<=FP<=BS LM0 |Left Margin = 0 LLY*T.A|Q 70|Line length 70 characters PL72|Page Length 72 lines JO  |Justification On EM  |Enable message to change paper *T.B-l|A5 STANDARD PAGE LAYOUT EPDHCEYOUR HEADER HERE DFCEYOUR FOOTER. PAGE-PP HP3 |Header 3 lines down TS6 |Top Space = 6 lines 0<=HP<=TS FP3 |Footer 3 lines down BS6 |Bottom Space = 6 lines 0<=FP<=BS LM0 |Left Margin = 0 LLO*T.B|# 45|Line length 45 characters PL48|Page Length 48 lines JO  |Justification On EM  |Enable message to change paper 5r*W.UTILS7MREM Main Menu *FX15 *KEY10|!|I *DISC IFV%<4A.Z$<>""T.G.b Z$="Empty" V%=0 .a O."DRIVE"+ST.V% .b *FX4,2 *FX210 *FX214,2 *FX213,50 V.3,7,26 *FX213,100 CLS D. V.&9D81;&8D83; P." W O R D E A S E" TI.2 V.134 P." (C) Beebugsoft 1985 "; V.131 P."FrC#ee:" V.31,31,3,131 IFFR.<500T.V.8,8,&8885; P.FR. V.28;24,39,2,134 P."A. Auto-Version Save"; V.131 IFVARFR.<50T.V.8,8,&8885; P." $ "; P.VARFR. V.134 P."B. Basic Status" V.134 P."C. Copy Segment to Segment" V.134 P."D. Disc Menu" V.134 P."E. Edit Te#xt/Segment" V.134 P."F. Function Key Editor" V.134 P."G. Gen Utils (Strip/Renumber/Align)" V.134 P."H. Hardcopy Codes" V.134 P."I. Individual Symbols" V.134 P."J. Standard Page Handler" V.134 P."K. Program Utils (Analyse/Compact)" V.134 P."L. Label Printer#" V.134 P."M. Mail Merge" P. V.134 P." T EXIT to Text"; V.131 P." Text= "; P.F$ V.134 P."0-9 EXIT to Segment"; V.131 P." Seg8= "; P.Z$ V.134 P." R Run Segment" V.134 P." W Wipe Seg/Text" V.134 P." @ Change Text Drive "; V.131 P."= "; P.V% P.6# V.131 P."Select Option "; .c *FX15,0 X$=GCK$ IFX$>"`"T.X$=CH.(ASCX$-32) IFX$="*"T.G.n IFX$="@"T.G.p IFX$="W"T.G.i IFX$="T"T.G.h IFX$="R"T.G.t IFX$>="A"A.X$<="M"T.G.e IFX$<"0"ORX$>"9"T.G.c .d S.SE.VALX$ DI. END .e P.X$; S.SE.8 IFX$=Z$T.G.g *ROM *OPT1,0 LOL#.TE."W."+X$ *DISC Z$=X$ .g V.26 IFX$="E"T.PROCy *FX15 *FX138,0,152 END .h S.TE. DI. END .i PROCx V.28;24,39,18 CLS P. V.131 P."Wipe Text (T) or Seg (0-8) ? "; V.134 .j X$=GCK$ IFX$="T"ORX$="t"T.G.k IFX$<"0"ORX$>"8"T.G.j IFX$="8"T.Z$="Empty" S.SE.VALX$ P."#SEG "; P.X$; G.l .k S.TE. P."TEXT"; .l V.7 P. V.133 P."Are You sure ? "; X$=GCK$ IFX$<>"Y"A.X$<>"y"T.G.m IFX$="8"T.Z$="Empty" DE.TE. .m C.TOP G.b .n P. P."*"; X$=GLK$ IFASCX$=13T.G.o O.X$ .o V.131 P."Press Any Key "; X$=GCK$ IFX$="*"T.G.n G.b .p PROCx V.2?#8;24,39,18 CLS P. V.131 P."Text Drive ="; V.134 .r V%=GET IFV%<48ORV%>51T.G.r P.CH.V% V%=V%-48 P. G.a .t PROCw V.28;24,39,18,12 P. V.131 P."Run Seg (0-9) ? "; V.134 .u X$=GCK$ IFX$<"0"ORX$>"9"T.G.u S.SE.VALX$ V.26 *FX15 O.("FX138,0,"+ST.(144+VALX$)) *FX13'#8,0,27 END .v V.28;24,39,3 CLS .w *FX213,50 V.7 *FX213,100 E. .x *FX213,200 V.7 *FX213,100 E. .y PROCx V.28;24,39,18 CLS V.148 D. V.172 TI.39 P. V.131 P."Edit Text (T) or Seg (0-7) ? "; V.134 .z X$=GCK$ IFX$="T"ORX$="t"T.G.ab IFX$>="0"A.X$<"8"T.G.aa G.z .*W.UTILS # aa S.SE.VALX$ G.ac .ab S.TE. .ac E.h*W.Aʑo S.TE. C.TOP DI. *FX213,50 V.28;24,39,18 CLS V.148 D. V.172 TI.39 V.28;24,39,19 V.131 P."TEXT AUTO VERSION NUMBER" IFF$<>""T.G.b P. V.131 P."No Filename on Record" .a V.131 P."Please Supply New Filename" V.131 P."Or Press Return to Exit "; V.134,7 W$=GL\#K$ IFW$=""T.G.f IFLENW$<8T.G.e CLS V.133 P."Filename too long" P. G.a .b P. V.131 P."Old Filename "; V.134 P.F$ C.BO. FK.3 TY.CH.13+F$+CH.13 C.UP C.AT0 F."#." IFEOT=0T.G.c C.UP C.AT0 W$="" Y%=7 G.d .c W$=GCT$ W$=W$+GCT$ Y%=9 .d X$="" R. W$=W$+X$ X$=GCT$ U6#.X$>"/"A.X$<":"ORX$=CH.13 C.L. X$=ST.(VALGL.+1) C.UP C.ATLENW$ DE.ATLENX$ Z%=LENW$ IFZ%+LENX$>Y%T.Z%=Y%-LENX$ C.ATZ% TY.X$ C.AT0 W$="" X$="" R. W$=W$+X$ X$=GCT$ U.LENW$=Y%ORX$=CH.13 C.BO. FK.3 DE.M. C.TOP V.131 P."New Filename "; V.134 P.W$ P. V.131,7 P."*W.AYOK ? "; IF(GETA.&DF)=89T.G.e V.134 P."No" G.a .e P."Yes" F$=W$ SA.TE.F$ .f DI. *FX213,100*W.B*FX3,4 *FX213,50 V.26,7 CLS CLOSE#0 X%=0 Z%=0 D. V.&9D86;&8D81; P." STATUS DISPLAY" TI.2 P. V.134 P."Seg Len Contents" .a S.SE.X% .b U$="W.@@@@@" SA.TE.U$ T%=OP.U$ Y%=EXT#T% X$=GLF$#T% V.31,1,5+X%,134 IFX%<10T.P.X% IFX%=10T.P."T" V.31,5,5+X%,13#0 P.Y% IFLENX$>25T.PROCe V.31,12,5+X%,131 IFY%=0T.PROCf P.X$ CLOSE#T% Z%=Z%+Y% X%=X%+1 IFX%=8T.X%=9 IFX%<10T.G.a IFX%>10T.G.c S.TE. G.b .c V.31,1,13,&3886;31,5,13,130 Y%=794 Z%=Z%+Y% P.Y%; V.31,12,13,131 P."REM Basic Status"; V.31;19,131 P."Total Used "; P y*W.B~.Z% V.131 P."Total Free "; P.FR. S.SE.8 .d V.3 *FX3,0 O."DELETE "+U$ V.31;22,134 *FX213,200 P."Press Any Key "+CH.7; *FX213,100 X%=GET *FX15 *FX138,0,153 END .e PTR#T%=0 X$="" D. X$=X$+GCF$#T% TI.25 E. .f X$="Empty" V.8,134 E. *W.CS V$="0" IFY$<"0"ORY$>"7"T.Y$="T" .a *FX3 V.26,12 D. V.&9D86;&818D; P." COPY SEGMENT TO SEGMENT" TI.2 P. P. V.134 P."A. Change Source (0-7,T):"; V.135 PROCm V.134 P."B. Change Target (0-7,T):"; V.135 PROCn P. V.134 P."C. Copy and Overwrite Target" V.134 #P."D. Copy to Cursor in Target" P. V.134 P."E. Exit to Source" V.134 P."F. Exit to Target" P. V.134 P."M Exit to Main Menu" P. V.131 P."Select Option "; .b REP. PROCh *FX21 X%=&DF A.GET U.X%=77OR(X%>64A.X%<71) IFX%=77T.G.p IFX%<>70T.G.c V$=Y$ G.d .c IFX%P#<>69T.G.e .d IFV$="T"T.S.TE. IFV$<>"T"T.S.SE.VALV$ C.TOP DI. END .e IFX%>66T.G.f PROCl IFX%=65T.V$=X$ IFX%=66T.Y$=X$ V.31,15,15 G.b END .f V.31;X%-60,131,31;15,131 X$=CH.X% S.SE.VALV$ IFV$="T"T.S.TE. C.TOP X%=0 *FX210,1 D. F.MARKERS IFEOT=0T.X%=X%+1 C.RI. +D#TI.2 *FX15 *FX210 IFX%<2T.G.g P."Copy marked text (Y/N) "; V.134 PROCj IFX%=TR.T.X$=X$+"+" P. V.131 .g P."Start copying (Y/N) "; V.134 PROCj IFX%=0T.G.a W$="W.@@@@@" IFLENX$=1T.SA.TE.W$ IFLENX$=2T.SA.M.W$ S.TE. IFY$<>"T"T.S.SE.VALY$ IFX$<"D"T.LO.TE.W$ *FX3#,86 DI. IFX$>="D"T.LO.TTCW$ O.("DELETE "+W$) G.a .h *FX213,50 V.7 *FX213,100 E. .i *FX213,200 V.7 *FX213,100 E. .j PROCi *FX21 X%=&DF A.GET IFX%=78T.G.k IFX%<>89T.G.j P."yes" X%=TR. E. .k P."no" X%=FA. E. .l PROCi V.31,27,X%-61 P." " V.31,27,X%-61 REP*W.C#. X$=GCK$ IFX$="t"T.X$="T" U.X$="T"OR(X$>="0"A.X$<="7") PROCo E. .m X$=V$ G.o .n X$=Y$ .o IFX$<>"T"T.P."seg "+X$ IFX$="T"T.P."text" E. .p *FX15 *FX138,0,153t*W.Dcat255ޛޠ Ϡ ޠՍ G ---I   п8П"*:|a{LϠL `d`DIR !  I*W.Dcat0 ޠ    Ϡ ޠ Ս   G  - - - I п8   П "*:|a{ L Ϡ L `d`DIR !  ?V*W.Ds3 *FX213,50 V.12,7 D. V.&9D8D;&8D81; P."Filename Description Size" TI.2 *FX213,200 Z%=A% V.28;24,39,2,23,255,32,&FFF4;&8E,&450;96; X%=&44 Y%=4 Q%=255 A%=10 CA.&FFF1 A%=234 Y%=255 X%=0 T%=0 CA.&445 *ROM *OPT1,0 O.("LOAD W.Dcat"+ST.T%) *DISC IFT%>0TI#.T%=&300 T%=&900-T% N%=0 CA.T% IFN%=0T.G.y T%=T%+&C1 CLOSE#0 .a O%=&700 Q%=64 .b Q%=Q%+1 IFQ%>90T.Q%=48 V.Q%,131 X$=CH.?O%+"." D. O%=O%+1 X$=X$+CH.?O% TI.7 O%=O%+1 P.X$; R%=OP.X$ IFEXT#R%<4T.G.x X$="" R. X%=ASCGCF$#R% IFX%<32ORX%>126T.X%=46 X$=X$+CH.X% U.Xs#$="REM"ORX$=".|"ORLENX$>3 V.133 IFX$="REM"T.V.8,130 IFX$=".|"T.V.8,134 IFLENX$<4T.X$="" Y%=LENX$ P.X$; .x R. X%=ASCGCF$#R% U.X%>32A.X%<127OREOF#R% IFEOF#R%T.G.z R. Y%=Y%+1 IFX%<32ORX%>126T.X%=46 V.X% X%=ASCGCF$#R% U.X%=13ORY%=22OREOF#R% .z V.13,10,8,8,8,8,%#8,8,134,8 X$=ST.EXT#R% D. V.9 TI.6-LENX$ P.X$; CLOSE#R% X%=0 Y%=0 CA.T% *FX21 N%=N%-1 IFN%>0A.Y%>0T.G.b IFY%>0T.G.d Y%=Q% IFY%<65T.Y%=Y%+43 IFX%>90T.X%=X%A.&DF IFX%>47A.X%<58T.X%=X%+43 IFX%>64A.X%<=Y%T.G.c IFX%=13T.G.m V.7 G.b .c IFX%>90T.X%=X%-43 OS.("FX18H#38,0,"+ST.X%) .d Y%=Q% P. V.134 P." Choose file by letter "; V.135,65,45,Y%,32,131 IFY%<65T.Y%=Y%+43 R. V.7 V. X%=GET IFX%>96T.X%=X%-32 IFX%<48ORX%>90T.X%=63 V.X%,8 IFX%>47A.X%<58T.X%=X%+43 IFX%>Y%T.V.63,8 U.X%>64A.X%<=Y% P. P. V.134 P." Return to Menu"; #V.135 P." M" IFN%=0T.G.e V.134 P." Continue Catalogue"; V.135 P." Space" .e V.134 P." Load to Seg/Text"; V.135 P." 0-7 or T "; V.131 .f V.7 Y%=GET IFY%>96T.Y%=Y%-32 IFY%=77T.G.m IFY%=32A.N%>0T.G.h IFY%>47A.Y%<56T.G.i IFY%=84T.G.g V.63,8,7 G.f #.g S.TE. P."Text" G.j .h P. D. V.127 TI.120 V.11 D. V.127 TI.40 V.11 G.b .i P."Seg "; V.Y% S.SE.Y%-48 .j X%=1272+X%*8 X$=CH.?X%+"." IFY%=84T.F$="" D. X%=X%+1 X$=X$+CH.?X% IFY%=84T.F$=F$+CH.?X% TI.7 LO.TE.X$ A%=Z% V.26 CLS C.TOP DI. END .y V.7 P. P." No texz*W.DUt files." P. P." Press a key"; A%=GET .m A%=Z% V.26 CLS *FX213,100 *FX15 *FX138,0,153*W.E *FX214,2 *FX4,1 *FX225,160 .a Z%=1 .b DI. .c PROCw Y%=5 .d P. Y%=2 X$="F0=Cursor Top " PROCu IFZ%=3T.Y%=4 X$="F3=Replace (Sel)" PROCv Y%=2 X$="^=UP" PROCv IFZ%=1T.Y%=4 X$="F1=Find and Edit " PROCv Y%=2 IFZ%=4T.Y%=4 X$="F4=Replace (Glob)" PROCv P. Y%=2 U#IFZ%=2T.Y%=4 X$="F2=Replace (Sing)" PROCv Y%=2 X$="F5=Quit F9=MENU" PROCv P. Y%=5 X$="Search String ?" T%=0 G.f .e U$=V$ Y%=5 X$="Replace String ?" .f PROCv *FX15,1 P. V.134 V$="" .g X%=GET IFX%<32ORX%>126T.G.h V$=V$+CH.X% V.X% G.g .h IFX%<>127ORV$=""T.G.#j V.X% X%=LENV$ TY.V$ C.L.X% V$="" IFX%=1T.G.i D. V$=V$+GCT$ DE.L. TI.X%-1 .i DE.AT G.g .j IFX%=13T.G.l IFX%<>138A.X%<>139A.X%<>160T.G.k IFX%=139T.C.UP IFX%=138T.C.DOWN IFX%=160T.C.TOP G.b .k IFX%=165T.G.n IFX%=169T.G.y IFX%<161ORX%>164T.G.g Z%=X%-160 G.c ع#.l IFT%=0A.V$=""T.G.b P. T%=T%+1 IFZ%>1A.T%<2T.G.e IFZ%=1T.U$=V$ .m IFZ%=4T.G.q F.U$ IFEOTT.G.r FK.1 C.L. DI. V.28;13,1,14 V.134 C.RI. PROCx X$="This one ? " PROCu P. X$="(Y, N or Q to Quit) " PROCv DE.L. W$=GCK$ IFW$="Q"ORW$="q"T.G.b IFW$<>"Y"A.W$<>"y"T.G#.p IFZ%<>1T.G.o .n PROCx *FX4,2 DI. END .o REPL.U$,V$ DI.1 PROCs IFZ%=2T.G.c .p C.RI. G.m .q R. REPL.U$,V$ PROCs U.EOT .r DI. PROCw X$="NO MORE FINDS" PROCu P. P. P. P. P. X$="Press Any Key to Restart " PROCv W$=GCK$ C.TOP DI. G.c .s IFASCV$<>TR.T.G.t IFAS*W.E CGCT$=13T.DE.L. .t E. .u V.28;24,39,17 CLS V.148 D. V.172 TI.39 .v V.129+Y% P.X$; E. .w *FX213,50 V.7 *FX213,100 E. .x *FX213,200 V.7 *FX213,100 E. .y *FX15 *FX138,0,153l *W.F X$="FnKeys" .run *FX213,50 V.7 *FX213,200 *FX4,2 *FX201 1 *FX21 V.26,12 D. V.&9D86;&8D81; P." FUNCTION KEY EDITOR" TI.2 V.28;20,39,2 P. Z%=0 Y%=239 D. O."FX138,0,"+ST.(176+Z%) *FX138,0,250 V.131 P."*KEY"+ST.Z%; V.135 IFZ%<10T.V.32 X%=GET IFX%<>250T.G#.f V.8,133 P."Empty"; G.n .f T%=0 R. IFX%<128T.G.p X%=X%-128 V.124 PROCnl V.33 PROCnl .p IFX%<>127T.G.q X%=63 V.124 PROCnl G.c .q IFX%>31T.G.c X%=X%+64 V.124 PROCnl .c V.X% PROCnl X%=GET Y%=Y%-1 U.X%=250 .n P. Z%=Z%+1 TI.10 *FX201 D. V.9 TI.22 V.&9D87;129 #P.Y%; P." Bytes left"; V.28;24,39,21 .ref V.12,134 P."M:Menu S:Save C:Change filename"; V.134 P."*:*KEY L:Load from"; V.131 P.X$ V.10,131 P."Select Option: "; .ri V.31,15,4 .gt V.7,32,8 *FX21 X%=GET IFX%>96T.X%=X%-32 IFX%=77T.G.x IFX%=83O:#RX%=76T.PROCzz IFX%=76T.G.run IFX%=67T.G.ch IFX%<>42T.G.gt V.42,26,31;23 .del D. V.127 TI.80 P."|!! ="; V.130 P."GREEN"; V.135 P."CODE |!"" = WHITE CODE" P."*KEY"; *FX4 W$=GLK$ IFW$<"0"ORW$>=":"ORVALW$>15T.G.del O."KEY"+W$ *FX4 2 G.run .zz V.X%,8 W$=X$ I#FX%=83T.G.cs IFW$="FnKeys"T.*ROM X%=OPENINW$ CLOSE#X% IFX%=0T.E. *OPT1,0 OS."LOAD "+W$ *DISC X%=76 E. .cs OS."SAVE "+W$+" FFFF0B00+100" E. .ch V.67,31,30,1 P." "; V.31,30,1 X$=GLK$ IFLENX$>0A.LENX$<10T.G.ref V.7 X$="FnKeys" G.ref .x V.26 *FX213,100H*W.FLM *FX15 *FX138,0,153 END .nl T%=T%+1 IFT%<32T.G.r D. V.32 TI.40-T% T%=0 .r E.U*FnKeys (bffW9G(]fffffff*BASIC *SPELL Dear Sir, Yours sincerely, :SELECT TEXT :SELECT SEGMENT :FIND"*INFO*.* P.VARFREE *INFO*.* P.VARFREE #*W.G \ IF(Y$<"0"ORY$>"7")T.Y$="T" .b *FX210 V.26,12 D. V.&9D86;&8D81; P." GENERAL UTILITIES" TI.2 V.31;6,134 P."A. Strip Embedded Commands" P. V.134 P."B. Renumber Section Numbers" P. V.134 P."C. Align Numbers" P. P. V.134 P." M Main Menu" V.134 P.= #" 0-7,T Change Target" .c V.31,8,15,134 P."X Exit to "; IFY$="T"T.P."Text "; IFY$<>"T"T.P."Seg "+Y$; V.31,10,3,131 P."Target Area: "; IFY$="T"T.P."Text "; IFY$="T"T.S.TE. IFY$<>"T"T.P."Seg "+Y$; IFY$<>"T"T.S.SE.VALY$ V.31;18,131 P."Select Option "; *F#X210 *FX213,200 V.32,8,7 X$=GCK$ *FX21 IFX$>"`"T.X$=CH.(ASCX$-32) P.X$; V.8 *FX210,1 IFX$="A"T.G.j IFX$="B"T.G.l IFX$="C"T.G.v IFX$="M"T.G.aa IFX$="X"T.G.h IFX$="T"T.G.e IF(X$>"/"A.X$<"8")T.G.f G.c .e S.TE. Y$="T" V.32 G.c .f S.SE.VALX$ Y$=X$ V.32 G.c .h D#I. END .i *FX210 V.31,13;7 P."Press any key "; V.8,8,8 X%=GET G.b .j *FX210 1 DI. V.31;0,130 P."Deleting-0 "; V.134 Z%=0 U$=GL. C.AT0 C.UP Y%=0 IFSOTT.G.k R. C.UP Y%=Y%+1 U.SOT C.TOP .k D. R. F."|G" Z%=Z%+1 DE.AT R. X%=ASCG. DE.L. U.X%=13ORX%=7 IFX%=13A. #Y%>0T.Y%=Y%-1 V.31,10; P.Z%-1; U.EOT C.TOP R. REPL.CH.7+CH.13,"" U.EOT C.TOP R. REPL.CH.7,"" U.EOT C.TOP IFY%>0T.C.DOWNY% F.U$ DI. *FX15 *FX210 G.i .l V.31;20,131 P."Selective ?"; V.134 P."(Y/N)"; V.135 PROCu N%=X%=0 P. P. V.131 P."Renumber references ?"; E#V.134 P."(Y/N)"; V.135 PROCu Z%=X%=0 PROCms W$="" PROCt Y%=TR. O%=0 Q%=0 R%=0 C.TOP IFT%T.F.MARKERS IFT%T.C.RI. G.r .d F.CH.13 C.RI. .r R. X$=GCT$ U.(X$<>" "A.ASCX$<>TR.A.X$<>CH.13)OR(ASCX$A.T%)OREOT IFASCX$OREOTT.G.x IFX$<>CH.2T.G.g F.CH.7 C.RI. G.r .g IF!#X$<"0"ORX$>"9"T.G.d IFN%T.G.n C.L. TY." " DI. DE.L. C.RI. V.8,134,31;0,131 P."Renumber ? (Y/N)"; V.8327;2200;8,31,34;7968;18; PROCu IFX%=0T.G.d DI. PROCt .n S%=0 V$="" W$="" R. DE.L. V$=V$+X$ IFX$="."ORW$<>"."T.G.o S%=S%+1 IFY%<4T.G.o IFS%=1T.O%=VALV$ IFS% #=2T.Q%=VALV$ V$="" W$="" .o X$=W$ W$=GCT$ U.(W$<"0"ORW$>"9")A.W$<>"."OREOT U$=W$ C.L. IFX$="."T.S%=S%-1 IFX$<>"."T.V$=V$+X$ IFY%<4T.G.p IFS%=0T.O%=VALV$ IFS%=1T.Q%=VALV$ IFS%=2T.R%=VALV$ Y%=S% G.s .p IFS%>=Y%T.G.q IFS%<2T.R%=0 IFS%=0T.Q%=0 .q Y%=S% IFS%=0T3#.O%=O%+1 IFS%=1T.Q%=Q%+1 IFS%=2T.R%=R%+1 .s W$=ST.O% IFS%>0T.W$=W$+"."+ST.Q% IFS%=2T.W$=W$+"."+ST.R% TY."/\"+W$ V.31,1;83,45 P.W$; V.152 IFZ%ORW$=V$T.G.d C.TOP V$=" "+V$ .a F.V$ IFEOTT.G.m C.RI.LENV$ X$=GCT$ IFX$<>" "A.ASCX$<>13T.G.m C.L.LENV$+1 DI. V.131 l#D. V.9 TI.LENV$-1 V.8071;1;83,45 P.W$; V.8088,13;131 P."Reference ? (Y/N) "; V.31,31;135 PROCu IFX%T.REPL.V$,"\/"+W$ DI. PROCt C.RI. G.a .m C.TOP F."/\"+W$+U$ G.d .x IFASCX$T.C.L. IFASCX$T.DE.L. C.TOP R. REPL."/\","" U.EOT C.TOP R. REPL."\/"," " U.#EOT C.TOP F.U$ DI. G.i .t V.31,1;83,45 P.W$; V.8088;13;134 P."Renumbering "; V.13 E. .u *FX213,200 *FX210 V.9 R. V.7,8 X%=GET IFX%>96T.X%=X%-32 IFX%<32ORX%>90T.X%=32 V.X% U.X%=89ORX%=78 *FX21 X%=X%=89 *FX210,1 E. .v Z%=0 PROCms V.31;0,130 P."#Aligning "; V.134,8 C.TOP IFT%T.F.MARKERS IFT%T.C.RI. .w X%=ASCGCT$ IFX%<>91T.G.y Y%=0 R. Y%=Y%+1 O%=ASCGCT$ U.O%=32ORO%=13ORO%=46 IFY%>Z%T.Z%=Y% .y IFT%=0A.X%T.G.w C.L. F.CH.13 C.RI. IF(T%A.X%=TR.OREOT)=0T.G.w .z C.TOP IFT%T.F.MARKERS IFT%T.C.RI. .ai X%=A#SCGCT$ IFX%<>91T.G.ad DE.L. Y%=Z% R. Y%=Y%-1 O%=ASCGCT$ U.O%=46ORO%=32ORO%=13 C.L.Z%-Y% IFY%>0T.TY.CH.2+"TI"+ST.Y%+CH.7 .ad IFT%=0A.X%T.G.ai C.L. F.CH.13 C.RI. IF(T%A.X%=TR.OREOT)=0T.G.ai .ax IFT%=0T.G.mf C.TOP F.MARKERS C.RI. F.MARKERS IFEOT=0T.DE.L. .mf #C.TOP F.U$ DI. G.i .ms R. U$=GCT$ U.U$<"0"ORU$>"9"OREOT C.L. U$=GL. T%=0 C.TOP F.MARKERS IFEOTT.G.nm V.31;24,131 P."Marked section only ?"; V.134 P."(Y/N)"; V.135 PROCu T%=X% IFT%=0T.G.nm C.RI. F.MARKERS IFEOT=0T.TY.CH.13 .nm C.TOP DI. E. .aa *FX15 *FX138,*W.G0,153zW+ [$p 2 //4a;-__DܐBC!R_@ ~[Vl 7z-ǚ