! This Macro is used to create listing files of TECO macros by converting control characters. ! J0I$127I$27I$I^A^B^C^D^E^F^G^H^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^\^]^^^_$0,.X40K ! EDITOR.TEC This is the initial program selector macro. It decides which TECO macro is being invoked and then chains to it. ! EI$518ET^UW$$HXZ ::STEV$"SEI^EQWVT52.TEC$' ::STEC$"S0XHEI^EQWTECO.TEC$' ::SEDV$"S0XHEI^EQWTECO.EDV$' ::SEDS$"S0XHEI^EQWTECO.EDS$' HK$$ ! This is TECO.EDS whose function is to get the file spec. and then bring in EDITOR.EDS. ! G*J:S]$"S0XW'HKEI$ET&518-518"NMY'ET&518-518"E^D^U5U9ET#1ET27^TQ9^TET&(1^_)ET$ 1ET@^A\$<$[?2l\518ET@^UO\ETUZ14ET!A!^TU7Q7-32*(Q7-9)"EOA$'Q7-13"E^TUZ'Q7-27"E13U7'Q7-6"E27U7'QZETQ7^T\ 71M592M572M574M561M5ET#(-32767)ET!B!EN*.*$GZXZJ6U7:S^ES$"S-.DZ"NHX4 J:S*$"SEN^EQ4$:EN$"SHKG*-1U7'HX4'1%7+''0"EHK:Q4"E:ER^EQH.DEF$"SAZ-2"GZJ-2D'''^A ^A:GH^A> ^A."N:Q4"E^A(default) - ^A'HT' ^AHTOS$'(Q7-3)*(Q7-26)"EHKEX'Q7-13*(Q7-27)"EJ:S*$"SHX4HKEN^EQ4$10U7OU$'0;'Q7I$>'Z"EOB$'HXZHK:ER^EQZ$"F^A ^A:GH^A TO CREATE FILE '^A:GZ^A' ?^AMOQ7&95U7Q7-89*(Q7-27)"N18U7GZOR$'' 72M574M5518ET:ERSET.^EQH$"SAHXA'HK:ER^EQWEDITOR.^EQH$"SGFGAHXFHKXAMF:ERUSER.TEC$"SYHXYHK'JMH''MI$$ ! This is TECO.EDV whose function is to get the file spec. and then bring in EDITOR.EDV. ! G*J:S]$"S0XW'HKEI$ET&518-518"NMY'ET&518-518"E^D^U5U9ET#1ET27^TQ9^TET&(1^_)ET$ 1ET@^A\$<$[?2l\518ET@^UO\ETUZ14ET!A!^TU7Q7-32*(Q7-9)"EOA$'Q7-13"E^TUZ'Q7-27"E13U7'Q7-6"E27U7'QZETQ7^T\ 71M592M572M574M561M5ET#(-32767)ET!B!EN*.*$GZXZJ6U7:S^ES$"S-.DZ"NHX4 J:S*$"SEN^EQ4$:EN$"SHKG*-1U7'HX4'1%7+''0"EHK:Q4"E:ER^EQH.DEF$"SAZ-2"GZJ-2D'''^A ^A:GH^A> ^A."N:Q4"E^A(default) - ^A'HT' ^AHTOS$'(Q7-3)*(Q7-26)"EHKEX'Q7-13*(Q7-27)"EJ:S*$"SHX4HKEN^EQ4$10U7OU$'0;'Q7I$>'Z"EOB$'HXZHK:ER^EQZ$"F^A ^A:GH^A TO CREATE FILE '^A:GZ^A' ?^AMOQ7&95U7Q7-89*(Q7-27)"N18U7GZOR$'' 72M574M5518ET:ERSET.^EQH$"SAHXA'HK :ER^EQWEDITOR.^EQH$"SGFGAHXFHKXAMF :EB^EQZ$"S-1UFY1+'0"EEW^EQZ$''MI$$ ! This is EDITOR.EDS the main editing macro that does all the work. The main level is in register I and it uses all the other macros. To be restarted just issue '^UMI$$' Register Y is reserved for USER.TEC and registers A, B and C for the use of the user. All other registers are in use by the editing macros, mostly holding subroutines which can be used by the user to drive other macros. ! @^UI$<:]4;>^D-32226ET0W0ED-1EUMH61M5-1^X92M515UUQ7-27#QF"E6U7OV$' OA$'Q7-32"GQ5OA$' (Q7-9)*(Q7-32)"E(Q7-9)*(Q7-32)"EQ5-1"L-Q5U5.UZ[4^U4 $<2,-1:S^EG4$;-D>]4'' Q7-9"E0MGQW-Q6"GI .$.UZ0L<^Q,1:S^ES.$"FZJ0;'.-QZ"E^SD0;'> 0MGQW/8-(Q6/8)< $>0MG(QW-Q6&7)::FS^ES$$UZ-1%5"EOA$''9U7'Q5QU-20"GMD'OA$' Q7-26"E0;'Q7-25"EMY61M5OA$'Q7-17"E28U7'Q7-19"E30U7'(Q7-23)*(Q7-22)*(Q7-30)*(Q7-28)*(Q7-5)"E(Q7-23)*(Q7-5)#Q5"EOX$' Q7-30#Q5"E-100U520U7OV$'MU$OA$'Q7-21"EQ5"G1-Q5K'OA$'Q7-24"EQ5"N1MJ'15WOA$' Q7-20"EQ5"LQ5+100"GOA$''-1UJQUWMROA$'Q7-18"E1ET@^A/$Fa /47U68<1%6$10>^A ^A8<^A0123456789^A>^U4$[4QWU4[4QE-1U473M52<89M556^TQ4+32^T97^T]4>@^A/$G$H/0UZ-32226ETMQOA$' Q7-16"E1<.UZ0UT-5MT^A Change ^A:QV"G^Aas last (L), ^A'^Afile (F) or buffer (DEF) ? ^AMO^TQ7-13"EMO$'Q7-21*(Q7-127)"E0;' Q7-32"E127U7'Q7&95UZQZ-76"E0UZ0;'QZ-70"EQF"L0UZ''^U4Buffer$QZ"E^U4File$':^U4 Search For:$[4]KM6"E-1UZ0;'.UZGKG4[4]KQZ,.X4QZ,.D:^U4 Change To:$M6"E-1UZ0;' QZ"EIMH$'I1UTQ5<:F$QZ"N5+'78I$QZ,.XVQZ,.DGK-DG4-DI;$QZ"EI0TT$'I>$ QZ,.:XVQZ,.D0UZ>(Q7+1)*QZ"EQ5"E32767U5'QZWMV'OA$' Q7-14"EQNUZMFQZUN-1UJ0MEZ-."EG22R'Q5-1"GQ5-1+'3 Q5"E0UN'QW+4U4Q5"L-Q5-1UN'Q4/8UZQZ"GQZ< $>'Q4&7UZQZ"GQZ' Q5"LON$'QN"G!N!1%N\$I. $QN-10"LI $'0MGQ6UW'QE-QW/4*3UVOA$'Q7-13"EMO$-1UJQ5"E<::S^ES $"F::S $;'>-1ME'QU-20"G[5MD]5'Q5-1"L<::S^ES $UZ::S $#QZ;>-1ME1-'Q5OA$'Q7-12"EQ5"EQF"N0LQ7I$0MJOP$''Q7I$OA$'Q7-11"EQ5"E0MJMQQ7-127"EHK'-2WOA$'Q5KOA$' Q7-10"E0MG^Q-3"L0U6'Q5"E0MEOA$'Q5"L<::S^ES $UZ::S $#QZ;>-1ME0U6.U81-'Q5Q6&7>Q8JOA$' Q7-8"EQ5-1"L1U5'.U40L.UZL."N-1A-10"ER''."N-1A-13"ER''."N-1A-12"ER''QZ-."GL' 0MGQ5-1"G1-Q5+Q6+'0MGQ5-1"E.-Q4"NOA$'QEMG'OA$'Q7-7"EQE-QW/4*3UVQ5"E38-QUUUQUWOA$'MF0MJOA$' Q7-6"EQF"NQ5"LEK0UF0U511U7OV$'Q5"E0L0,.PWEF0U5127U7OV$'-1UFECEB^EQZ$'QF"E:EB^EQZ$"S-1UF1+'0"EEW^EQZ$1UF''OA$' Q7-4"E0MG-Q5<0K.U8::S $"F^Q"GQ8JQ6/8< $>Q6&7''Q8JLQ8-.;Q6MG>Q8JQ6MG.U8Q5<.U8KG2Q6"NQ6MG'.-Z;>Q8JOB$'Q7-3"E89M555^T32^T0;' (Q7-2)*(Q7-1)"EQ5"E^QU5'Q5"LQ5+."L-.U5'Q5C-Q5U5'Q7-1*32U7Q5<::S^EA$"S-1A&(32^_)#Q7I$R-D'Z-."GC>'OA$' Q7-27"NQ7I$OA$'MO-67"EQ5<.-Z;C>OA$'Q7-68"EQ5<-.;R>OA$' (Q7-45)*(Q7-43)"E44-Q7U5Q5UZMO"DQ7MPQZ*Q5U5'OV$'Q7"DQ7MPOV$' Q7-63"EMO-77"EQ5"G(Z-.)*."E-1^XJ''^U4Search: $M6"FOA$'Q6-2WG4^Y-2X8^YKOS$' Q7&31#32U7Q7-48"EQ5LOA$'Q7-52"E-Q5LOA$'Q7-45"E28U7OV$'Q7-44"E30U7OV$'Q7-49"E JQ5-1"GQ5-1LOA$'Q5"E-1UF56U7'' Q7-50"EZJ(QF+1)#Q5"E^E+1"E12I$'A'Q5-1"G1-Q5L'OA$' Q7-51"E!X!Q5"EQ7UZ0L::S^ES$"S0K'I.$LG22R-1ME0MG0LD-1%6$QZU7QE-QW-Q6"LOA$' Q7-23"EQWUZQWU6'Q7-5"EQE-Q6UZQEU6'Q7-51"EQE-QW-Q6/2+QWUZQZU6' QZ/8"GQZ/8< $>'QZ&7"GQZ&7'Q6MGOA$' Q5-1"GQ5MGOA$'0^Q"EQW"E::S^ES$$OA$''.UZQWMGQZ-."E0L'OA$' Q7-53"EQ5"E0MJ62M5MO-127"E.,ZK'61M5OA$'Q5<.-Z;D>OA$' Q7-54"EQ5"E.UZ<:S^EQ8$;^SD>QZJOA$'Q5"L-Q5+1'.+1+^S"GFR$'OA$' Q7-55"E.UZQ5"L-Q5U528U7MU0U5'Q5<:S^EGX^N^EGX$"FZJ1+'0"ER'>QZ,.DOA$' Q7-56"E!P!1UR0MG0LQ5-1"L0,.PW0,.K-Q5'QF"NQ5"GQ5P0U6''^N"L0MJ'JQ6MGOA$' Q7-57"EQ5"E0MJMOI$OA$'Q6"E0MG'0LQ5"L-1*QRUR-Q5U5'."E1UR'^Q+.-Z"E-1UR'Q5*QR*15LQ6MGOB$' Q7-46"EQ5"GZ-."E-1-^X^XJ''0U6!S!.U4Q5UZQZ"E:@N/^EQ8/U5'QZ"NQ5:@S/^EQ8/U5'Q5"F0MJQZ"NQ4J'QZ"EMHG8-1WHK^A File search failed - EOF reached. <^F> for top-of-file. ^AMS1U5Q7-6"EMHOV$'Q7-26"EOV$''''OA$'Q7-83"E25U7OV$'Q7-81"E-32226ET^U4Teco *$M6"FQ6WOA$'G4^YX9^YKOC$' Q7-27"E0U6!C!M9$-32226ETED"G0ED'-1EU$Q6"NQ6W'^DOA$'Q7-80"EQ4"E.+1U4'Q5LQ4-1,.X7Q4-1,.KG70U6OB$' Q7-82"EQ5"EG9OA$'Q5"L.UZ-'Q5Q5"LQZJ'OA$'!R!0U8Q7-65"E-1U8'Q7-66"E1U8'Q8"NQ5*Q8U5Q6"E0MG'Q5LQ6MG0U8OB$'> 518ET62M571M5Q7-26"EMH^AEDS Exit^AQF"N^A from ^A:GZ:G2':G2EC662ETQF"N^UWEDS.DEF$:ER^EQW$"SG*HXWAHK'EW^EQW$GZG2'EX'0U7$ @^UJ\[ZUZQZ"E7M3-3W'QZ"GMH^A EDITOR.EDS Editing: ^A:G*^A ^A Convert to UPPER CASE ----------------------- ------ ----- ^B Convert to lower case |PF1 |PF2 |PF3 < ^ < PF4 | ^C Suspend |BLUE |RED |GREY >Cursor > USER | ^D Delete to |Save |TECO |Unsave ------> -----| ^F Top of file ^AQF"N^A(Open)^A'^A | 7 | 8 | 9 < v < - | ^G Set defaults |Kill |Next |Scroll >Cursor > <- | ^H End of line |word |page | |-------+-------+-------> ------> -----| ^N Auto-Paragraph (^AQN:=^A) | 4 | 5 | 6 < -> < , | ^P Paste |Up |Delete |Delete >Cursor > -> | ^R Ruler |line |next |Insert Auto: On)^AQU-20"L^A^H^Hff)^A'^A |-------+-------+-------> ------> -----| ^U Kill start of line | 1 | 2 | 3 < <- < | ^V Purge buffer (2>Tabs 3>Space)|Top of |End of |Left >Cursor > | ^W Left margin (^AQW:=^A) |page |page |margin ------> ENT | PF4 ^= ^Y Execute USER.TEC | 0 | . < ENT < | ^Z Exit edit |Down line |Repeat >Search > | Kp, ^> Forward word | |^A^X"E^AMatch any case^A'^X"N^AExact matching^A'^A < | Kp- ^< Back word ----------------------- ------ ----- Insert new line Enter arguments: - default <1>^AMQ$']Z\ @^UL\!4!Q2-1JQJ"EQ1+1J'!2!Q2-."EO4$'.-Q1"EO4$'QJA-32"NQZCO2$'I $1%2$1%3"L!3!Q2-."EO4$'.-Q1"EO4$'QJA-32"EQZCO3$'O2$'-1-QJUJ\ ^U0.,:;?!$@^UM\[2U20MT.UZ<:S^X^EL$;R-1A-13"N13I$'>QZJ0MG0L<^Q,:S $;-D-(0^Q)+8&(7^_)+(0^Q)> Q6MGQW+(0^Q)"L-1A-32"ER'3,-1:S^EG0$"SR''.UZQ2<:FS^EQ2$ $;>QZJ^Q,:FS^ES $ $"FL-1MEG22RQZ-."G.UZ''QZJ<^Q,:FS^ES$ $;>QZJ<^Q,:S^EG0 $;I $>L2R]2\ @^UN\QE-QW-10"L0MJ'QE-QW-9"G0L.U50MT<^Q,:S $;-D-(0^Q)+8&(7^_)+(0^Q)>Q5J^Q,:FS^ES $ $$Q5J^Q-QE-1"GQEC0A-13"EO0$'!1!^Q"G0A-32"E0^Q,-1:S^N^ES$"SFS^ES$ $2RO0$'''0^Q,-:S^ES$"SR(0^Q),-:S^N^ES$"FQ5+QEJO2$'O1$'!2!G2!0![1[2[3Q5J.U1:S $"S2R-(0^Q)-QV"G-(0^Q)-QEU3Q3"L.U20LQWC^Q,:S^N $"SR'.U1QJ+QJ+1UZ^Q,:S $"SQ1JML'0U30L'']3]2]1' 0L^Q,:S^ES$"S0^Q-^S"E-^SU30KQ3/8<9I$>Q3&7''''LQW!Z!\ @^UR$-1UT!N!-1UJQP"GQP+'QWU6Q5"E."G0L'-:S $Q6MG.U5:S^EC$"FQ5J'1U5'0MM0LQ6MG.U0-1U2<:FS ^ES $ $;-L>Q0J<.-Z;0A-13"E0;'L1%2>Q0JQ2MMQ0J0L.U2 Q5+99"L<^Q,:S^EG0^ES$;^S+1DG2>Q2J'Q5"G.U4[5<0LQE+1-(^Q);MN>]5 0L.-Q4"LQWMG'::S^ES$"S0KQW/8<9I$>QW&7'0L::FS^ES $ $"S-L'''Q2JQ5"G:S $"FZJ''Q5-1"G:S^EC$"S0LQWMG:S^N^ES$"SR-3W-1W-1%5$ON$'0L''0MT$ @^UG\U60U7Q6"E.U80LQ8-.%6<0A-32"L0A-27"N0A-9"E6-(Q7&7)%6$-2U7'%71%6''C%7>OZ$' Q6"N0L-Q6U9Q6<.-Z;0A-32"L0A-13"E0;'0A-27"N0A-9"E6-(Q7&7)%9$-2U7'%71%9''C%71%9"GR'Q9;>'!Z!\@^UH\72M574M5\ @^UO\^TU7Q7-29"E25U7'Q7-31"E24U7'Q7\@^UP\[ZU7Q7UZQ7"E48U7'0U5']Z\ @^UQ\62M5MO$(Q7-13)*(Q7-27)"E^T$'61M5\@^US\^A Type any character to continue:^A70M5^A a^A71M50MJMQ\ @^UT\[ZUZQZ"L72M5-QZ<75M510^T>72M5'QQ"E70M572M54<75M510^T>72M571M5QT"L^AWorking...^A'QZ"GQT"GQT='1%T'']Z\ @^UU\1QZJ' Q5I $FR$0U6-1W0;' Q7-22"EQ5-1"EJ0I$127I$I^A^B^C^D^E^F^G^H^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^\^]^^^_$0X40K ZJI $JI $<:S^EG4$;-D><:S^N^M^EL$;-2A-10"NR13I$C'><:S^M^EL$;R0A-12"E10I$'><:S^M^N^EL$;R10I$>ZJ-DJD'0MG0L.U3<:FS^ES $ $;>Q3JQ5-2"E<.-Z;:S $;0L0U2<.-Z;0A-13"E0;'0A-9"E32760&Q2+7U2'C1%2&7"E-1A-32"E-8U4<-.;-1A-32"N0;'-D1%4;>Q4+9"G<9I$8%4;>' Q4"LQ4+8'''>>' Q5-3"E<:S $;-D-(0^Q)+8&(7^_)+(0^Q)>'Q3JQ6MG-1W0MJ0;'Q7-5"EQ5UEQ5-1"E0MGQ6UE'0;'>1U5\ @^U1\70M572M5-Q6+1<75M510^T>72M571M5\^U2 $^U3[7U7[ZETUZ1ETQ7^TQZET]Z]7$^U5U927M3Q9M3$ @^U6\0UT62M5.U8ZU4-3U6-3MT72M510^TQ5:=32^T:G4OR$' Q7-127"E-DZ-Q4"N-1AU9-DQ9-27"E32U9'Q9-31"G68M575M51+'0"E13^T-Q6-2<75M565M5>!R!72M510^TQ5:=^A ^A:G4Q4,ZT''' Q7-27"EMO$Q7-27"E!1!27I$Q4,ZX472M5-1U70;'O0$'>-32226ET61M5Q4,ZKQ8JQ6-2WQ7\ @^UD\0MGQE-Q6"L0UT127I$.-1,.X4QWMG.U31UQ::S^ES$UZ0MMMN0UQQ3JS^EG4$-D'\ @^UE\U4Q4"NI.$Q4"LR-2+'1+'0U4Q4"N-Q4D'Q4"E<2,-1:S^EGX$;-D>'\ ^UX $12:^UX$11:^UX$0:^UX$^UF1UR45UV0UW60UE-1UJ0UN0UQ$ ^U9!Christopher Mackay. DIGITAL. Reading.!$ ! This is EDITOR.EDV the main editing macro that does all the work. The main level is in register I and it uses all the other macros. To be restarted just issue '^UMI$$' This macro is designed for those who do not want to know TECO or who must not get to TECO. ! @^UI$<:]4;>^D-32226ET0W0ED-1EUMH61M5-1^X92M515UU OA$'Q7-32"GQ5OA$' (Q7-12)*(Q7-9)*(Q7-32)"E(Q7-9)*(Q7-32)"EQ5"EQ7-9"E0LI.$L-1MEI. $-LD1MEL2R-D0MG0LQE-QW-Q6/2+QWU6Q6"GQ6/8<9I$>Q6&70L'OA$'.UJ[4^U4 $<2,-1:S^EG4$;-D>]4'' Q7-9"E0MGQ6-QW"LQW-Q6/8<9I$>QW-Q6&7-1%5'9U7'Q5QU-20"GMD'OA$' Q7-26"EMH62M571M5^AEDV Exit from ^A:GZ:G2:G2EC662ET^UWEDV.DEF$:ER^EQW$"SG*HXWAHK'EW^EQW$GZG2EXOA$'Q7-25"E38-QUUUQUWOA$'Q7-17"E28U7'Q7-19"E30U7' (Q7-23)*(Q7-22)*(Q7-30)*(Q7-28)*(Q7-5)"EMU$OA$'Q7-21"EQ5"G1-Q5K'OA$' Q7-20"E15UU-1UJQUWMROA$'Q7-18"E70M5^Aa ^A47U68<1%6$10>^A ^A8<^A0123456789^A>^U4$ETU41ET[4QWU4[4QE-1U473M52<89M556^TQ4+32^T97^T]4>Q4ET71M572M50UZMQOA$' Q7-16"E1<.UZ72M54<75M510^T>72M5^A Change: ^A:QB"G^AAs last (L), ^A'^AFile (F) or Buffer (def) ? ^AMO^TQ7&95UBQB"E1UB' Q7-21"E0;'QB-76"E0UB0;'(QB-70)"EQF"L0UB''^U4Buffer$QB"E^U4File$':^U4 Search For:$[4]AM6"E0;'.UZGAG4[4]AQZ,.X4QZ,.D:^U4 Change To:$M6"E0;'QB"EIMH$'I1UTQ5<:F$QB"EIN$'QB"NIS$'QZ,.XBQZ,.D GA-DG4-DI;$QB"EI0TT$'I>$QZ,.:XBQZ,.D0UB>(Q7+1)*QB"EQ5"E32767U5'MB'OA$' Q7-14"E0ME3I $Q5"E0UY0UN0UW-1UJ23UUQUWOA$'Q5-1"G1UYQ5-2UN'QY"G1%N\$I.$8UWQWU6Q6/8<9I$>Q6&7'OA$' Q7-13"EQ5"E0ME'-1UJQ5^T$OA$'Q7-11"EQ5"EHK'Q5KOA$' Q7-10"E0MG^Q-3"L0U6'Q5Q6&7>Q8JOA$' Q7-8"EQ5"E0L::S^ES$UZ0K^QMG0MG0LQE-QW-Q6/2+QWUZQZ/8<9I$>QZ&7QE+^QMGOA$' .UZZMG0MGQ5-1"G1-Q5+'Q6MGQ5-1"EQZ-."GQZJ'QZ-."EQEMG''OA$' Q7-7"EMFMXOA$'Q7-6"EECG*HX4HKEB^EQ4$-1UFOA$'Q7-4"E0MGQ5<.UZKG2Q6MG.-Z;>QZJOA$' Q7-2"EQ5"E^QU5'Q5<::S^EA$"S-1A#32I$R-D'Z-."GC>'OA$'Q7-1"EQ5"E^QU5'Q5<::S^EA$"S-1A&(32^_)I$R-D'Z-."GC>'OA$' Q7-27"LMJ0U7OA$'MO-27"EOV$'Q7-67"EQ5<.-Z;C>OA$'Q7-68"EQ5<-.;R>OA$'Q7"DQ7MPOV$' Q7-63"EMO-77"EQ5"G(Z-.)*."E-1^XJ''^U4Search: $Q5UAM6"FQ6WOA$'G4^Y-2X8^YKOS$' Q7&31#32U7Q7-48"EQ5LOA$'Q7-52"E-Q5LOA$'Q7-45"E28U7OV$'Q7-44"E30U7OV$'Q7-49"EQ5"E0L0,.P0,.D'JQ5-1"GQ5-1L'OA$' Q7-50"EZJ(QF+1)#Q5"E^E+1"E12I$'A'Q5-1"G1-Q5L'OA$'Q7-51"EQ5"E0L::S^ES$UZ0KOA$'Q5-1"GQ5MGOA$'0^Q"EQW"E::S^ES$$OA$''.UZQWMGQZ-."E0L'OA$' Q7-53"EQ5"E.,ZKOA$'Q5<.-Z;D>OA$'Q7-55"EQ5*15U565U7OR$'Q7-57"EQ5*15U566U7OR$'Q7-54"E.UZQ5<:S^EGC^N^EGC$"FZJ1+'0"ER'>QZ,.DOA$' Q7-56"E!P!1UR0MG0LQ5"E0,.PW0,.KQF+1"E^E+1"EZJ12I$'A''QF"NQ5"GQ5P0U6''^N"LMX'JQ6MGOA$' Q7-46"EQ5"GZ-."E-1-^X^XJ''0U6!S!.U4Q5UZQZ"E:N^EQ8$U5'QZ"NQ5:S^EQ8$U5'Q5"FMXQZ"NQ4J'QZ"EMH^A EOF - File search failed for: ^A:G8^A <^F> for top-of-file ^AMS1U5Q7-6"EMHOV$'Q7-26"EOV$''''OA$'Q7-81"E20U7OV$'Q7-83"E25U7OV$'Q7-80"E.U4Q5LQ4,.X7Q5"EQ4J'0MGOB$' Q7-82"EQ5#(.-Q8)"E:Q7U5127U7OV$'Q5OA$'!R!0U8Q7-65"E-1U8'Q7-66"E1U8'Q8"NQ5*Q8U5Q6"E0MG'Q5LQ6MG0U8OB$'> 518ET62M571M5Q7-26"E^AEDV Exit from ^A:GZ:G2:G2EC662ET ^UYEDV.DEF$EN^EQY$:EN"SG*HXY'EW^EQY$GZG2EX'$ @^UJ\MH^A EDITOR.EDV Editing: ^A:GZ^A ^A Convert to UPPER CASE ------------------------------- ^B Convert to lower case |PF1 |PF2 |PF3 | ^ | ^C Suspend |BLUE |RED |GREY |Cursor | ^D Delete to |Save |Justify|Unsave |up | ^E Right margin (^AQE-1:=^A) |-------+-------+-------+-------| ^F Top of file ^AQF"N^A(Open)^A'^A | 7 | 8 | 9 | v | ^G Restore defaults |Scroll |Next |Scroll |Cursor | ^H End of line |up |page |down |down | ^K Kill to |-------+-------+-------+-------| ^N Auto-Paragraph (^AQN:=^A) | 4 | 5 | 6 | > | ^P Paste |Up |Delete |Delete |Cursor | ^R Ruler |line |next |Word |right | ^T Justify (Auto - On)^AQU-20"L^A^H^Hff)^A'^A |-------+-------+-------+-------| ^U Kill start of line | 1 | 2 | 3 | < | ^V Purge buffer (2>Tabs 3>Space)|Top of |End of |Left |Cursor | ^W Left margin (^AQW:=^A) |page |page |margin |left | ^? ^X Help |---------------+-------+-------| PF4 ^= ^Y Auto-Justification | 0 | . | ENT | ^Z Exit edit |Down line |Repeat |Search | Kp, ^> Forward word | | | | Kp- ^< Back word ------------------------------- Insert new line Christopher Mackay, RG. DIGITAL Enter arguments: - default <1>^AMQ$\ @^UL\!4!Q2-1JQJ"EQ1+1J'!2!Q2-."EO4$'.-Q1"EO4$'QJA-32"NQZCO2$'I $1%2$1%3"L!3!Q2-."EO4$'.-Q1"EO4$'QJA-32"EQZCO3$'O2$'-1-QJUJ\ @^UM\[2[ZU2MT.UZ@^UZ/.,:;?!/<:S^X^EL$;R-1A-13"N13I$'>QZJ0MG0L<^Q,:S $;-D-(0^Q)+8&(7^_)+(0^Q)>Q6MGQW+(0^Q)"L-1A-32"ER'3,-1:S^EGZ$"SR''.UZQ2<:FS $ $;>QZJ^Q,:FS^ES $ $"FL-1MEG22RQZ-."G.UZ''QZJ<^Q,:FS^ES$ $;>QZJ<^Q,:S^EGZ $;I $>L2R]Z]2\ @^UN\QE-QW-10"LMX'QE-QW-9"G0L.U5MT<^Q,:S $;-D-(0^Q)+8&(7^_)+(0^Q)>Q5J^Q,:FS^ES $ $$Q5J^Q-QE-1"GQEC0A-13"EO0$'!1!^Q"G0A-32"E0^Q,-1:S^N^ES$"SFS^ES$ $2RO0$'''0^Q,-:S^ES$"SR(0^Q),-:S^N^ES$"FQ5+QEJO2$'O1$'!2!G2!0![1[2[3Q5J.U1:S $"S2R-(0^Q)-QV"G-(0^Q)-QEU3Q3"L.U20LQWC^Q,:S^N $"SR'.U1QJ+QJ+1UZ^Q,:S $"SQ1JML'0U30L'']3]2]1' 0L^Q,:S^ES$"S0^Q-^S"E-^SU30KQ3/8<9I$>Q3&7''''LQW!Z!\ @^UO\^TU7Q7-29"E25U7'Q7-31"E24U7'Q7\@^UP\[ZU7Q7UZQ7"E48U7'0U5']Z\@^UQ\62M5MO$(Q7-13)*(Q7-27)"E^T'61M5\ @^UR$-1UT!N!-1UJ[5QP"GQP+'QWU6Q5"E."G0L'-:S $Q6MG1U5'0MM0LQ6MG[0.U0-1U2<:FS ^ES $ $;-L>Q0J<.-Z;0A-13"E0;'L1%2>Q0JQ2MMQN+1"E' Q0J0L.U2Q5"N<0LQE+1-(^Q);MN>0L::S^ES$"S0KQW/8<9I$>QW&7'''Q2J:S $"FZJ']0]5Q5-1"G:S^EC$"S0LQWMG:S^N^ES$"SR-3W-1W-1%5$ON$'0L''MT$@^US\^A Type any character to continue:^A70M5^A a^A71M5MXMQ\ @^UT\QQ"E70M572M54<75M510^T>72M571M5QT"L^A...Working^A'QT"GQT='1%T'\ @^UU\1QZJ' Q50U6-1W0;' Q7-22"EQ5-1"EJ0I$I^A^B^C^D^E^F^G^H^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^\^]^^^_$0X40K ZJI $JI $<:S^EG4$;-D><:S^N^M^EL$;-2A-10"NR13I$C'><:S^M^EL$;R0A-12"E10I$'><:S^M^N^EL$;R10I$>ZJ-DJD'0MG0L.U3<:FS^ES $ $;>Q3JQ5-2"E<.-Z;:S $;0L0U2<.-Z;0A-13"E0;'0A-9"E32760&Q2+7U2'C1%2&7"E-1A-32"E-8U4<-.;-1A-32"N0;'-D1%4;>Q4+9"G<9I$8%4;>'Q4"LQ4+8'''>>' Q5-3"E<:S $;-D-(0^Q)+8&(7^_)+(0^Q)>'Q3JQ6MG-1WMX0;'Q7-5"EQ5UEQ5-1"E0MGQ6UE'0;'>1U5\ @^UV\3(QE-QW)/4UV\@^UX\7M3-3W\@^U1\70M572M5-Q6+1<75M510^T>72M571M5\^U2 $^U3[7U7[ZETUZ1ETQ7^TQZET]Z]7$^U5U927M3Q9M3$@^U6\Q5"N62M5'.U8ZU4-3U6M110^TQ5:=^A ^A:G472M510^TQ5:=^A ^A:G4Q4,ZT''' Q7-27"E!0!MO$Q7-127"E8^T32^T8^TOD$'Q7-27"E27I$Q4,ZX472M513^T-1U70;'O0$'>Q4,ZKQ8J61M5Q7\ @^UD\0MGQE-Q6"L0UT127I$.-1,.X4QWMG.U31UQ0MMMN0UQQ3JS^EG4$-D'\@^UE\[4U40I$I $11I$12I$.-7,.X4-7DQ4"NI.$Q4"LR-2+'1+'0U4Q4"N-Q4D'Q4"E<2,-1:S^EG4$;-D>']4\ ^UC $12:^UC$11:^UC$^UF45UV0UW60UE-1UJ1U50U60U70U80U90UN0UQ$ @^UG\U60U7Q6"E.U80LQ8-.%6<0A-32"L0A-27"N0A-9"E6-(Q7&7)%6$-2U7'%71%6''C%7>OZ$' Q6"N0L-Q6U9Q6<.-Z;0A-32"L0A-13"E0;'0A-27"N0A-9"E6-(Q7&7)%9$-2U7'%71%9''C%71%9"GR'Q9;>'!Z!\@^UH\72M574M5\ MF ! This is LISTEC.TEC, a macro to create a file of a TECO macro that is printable. ! J0I$127I$27I$I^A^B^C^D^E^F^G^H^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^\^]^^^_$0,.X40K ! This is B2SFMT.TEC, a formatting and resequencing macro for BASIC+2 programs. It uses a structure of labels and references to resequence a BASIC+2 that has had formatted labels inserted as comments. ! Q5"G.UZQ5<:FS^ES $ $;>QZJQ5<0L.-Z;^Q,:FS $& $"FZJI& $'3R<-.;-1A-38"N0;'-D> 0L.UZ::S^ES$UZ0AUZ(QZ-33)*(QZ-92)*(QZ-44)*(QZ-59)UY0L::S^ED$"F.-QZ"E9I$' QY"N::S^ES$"S0MG0KQ6/8<9I$>Q6&7'0LI !$0L33UZ0UY' QY"E0L::S^ES$U4D0L::S$U40MGQ6-QW"L0KQW/8U6Q6-1"L1U6'Q6< $>Q6*8U6'0LQ6/8UYQY*8MG0KI $QZI$QY<9I$>' ' L3RQE/8+2<9I$>QE/8+1*8MG.UZI.$L3R-1MEQZJDL>' Q5"L0L.UY-Q5<0L.UZ^Q,:S!$"S0MG0L::S^ES^X$"SQ8-."E-DI $'''QZJ^Q,:S&$"S-D0LI.$L-1MEG2-LD'L>QYJ' Q5"EECHK[Z[A[B[CMH^A Definitions: :*START*: 10 Main code 100 or 1000 :*SUBRT*: 10000 Subroutines :*CHAIN*: 15000 Chain entry points :*ERROR*: 20000 Error routines :*DEFNC*: 25000 Defined functions :*MODND*: 30000 End First lines to :*START*: numbered in 10's, rest in 20's^A QF"E^U4Resequence File:$M6"SG4-2D0MEJ0MEZ"EGZJZ"EOZ$'':S.$"FZJI.$'J:S$Z-."EZJIB2S$'HXZ'HKMH'^A Lines from :*START*: are offset by 'x' Legal: x = A - S (0-19) Default: A = 0 (any other character) * sets all to 0 Resequence ^A:GZ^A using offset 'x' = ^AMO-127*(Q7-21)"N -1UYQ7-42"N0UYQ7&95-64"GQ7&95-84"LQ7&95-64UY''QY='^A Opening ^A:GZ^A for resequencing. ^A :EB^EQZ$"S@^UC$0U60U70U5-1UZ-1UJ-1U4-1UA-1UB-1UCZJ-1A-13"E10I$' QY+1"GJ:S:*START*:$"S-:S^ED$"S0LZ-.UJ''J:S:*SUBRT*:$"S-:S^ED$"S0LZ-.U4'' J:S:*CHAIN*:$"S-:S^ED$"S0LZ-.UA''J:S:*ERROR*:$"S-:S^ED$"S0LZ-.UB'' J:S:*DEFNC*:$"S-:S^ED$"S0LZ-.UC''J:S:*MODND*:$"S-:S^ED$"S0LZ-.UX'''J<:S ^ED$;0LZ-.-QJ"EQ7"GQ7\-^S-1U6^SD'1U7Q6+1Q7-100"L10+'Q7-20U71UZ'Z-.-Q4"EQ7-10000"L9980U71UZ'' Z-.-QA"EQ7-15000"L14980U71UZ''Z-.-QB"EQ7-20000"L19980U71UZ''Z-.-QC"EQ7-25000"L24990U70UY-1UZ''Z-.-QX"EQ7-30000"L29980U70UY1UZ'' \$0KQZ"G20%7+QY\$'QZ"L10%7\$'QY"L0KI0$'0TT>JK-1-^N;>EC0UX-1UJ$MC @^UC/J:S^EQB$"SJ:GB^A ^AQ7=<:S^EQB$;^SC-:S^ED$$R-:S^N^ED$$\$^SDQ7\$S^EQB$>'/ ER^EQZ$HKXA:_:*$"SJQ7,ZKJGAHXAHK-1-^N;>'HK:QA"G^A Adjusting line references: ^A0UZEB^EQZ$EC'QF"L:EB^EQZ$"SA'''']C]B]A]Z'