ianj@sactoh0.UUCP (Ian R. Justman) (12/16/89)
And finally, here's LT29.COM. It too, is self-documenting, but you
might want to take note of this: it can not only type files crunch
or no crunch in a .LBR, it can extract files using UNARC syntax,
plus, it can also be used as a replacement for TYPE for already-
extracted files, crunch or no crunch.
To extract and uncrunch/unsqueeze files: the syntax is:
lt29 [du:]lbrfn du:afn.aft
To type files in a library, the syntax is:
lt29 [du:]lbrfn afn.aft for specific files, or:
lt29 [du:]lbrfn for all typeable files.
The program is self-documenting, if you need help.
Enjoy!
begin 644 lt29.com
MPU8!6C-%3E8!`/D``!0`_P#_``___P```$%"4T%20T%22T)!1$-23$,_344_
M14E23$D_5$Q"4D\_/U`_1%18(U)"35(_3%,_4E-94P`````````````A```B
M]AHY(JXK,:XK.A,!/#H_`,IP`3(3`1&P*SX:S1P(/B`R0QO-5@@Z/AO-E@G-
MZP+UPI@!*O8:?;01"@K*-`019PK-A@?QPJX!S<X"S4H'VC<$S7H#S2@&S0<$
MPH4"Y2%`&SH6`:;APH@"/G:]PH@"/O^\ROT!/;S*ZP$]O,*(`LT2`BKN&LUU
M$B%E#=J_`L/"`LT2`BKN&LW=%2%E#=J_`L/"`LT'!,T2`LWA!LUP!MK"`LWB
M!,,&`A$]#<V)!R%#&P8+-B`C!<(=`G`10QL&"-7-Q@/1M\I[`OY;RF4"_B["
M2`+-;P<&`Q%+&\,J`@0%RF`"S6\'$A,%PRH"S6\'S<8#M\I[`OY;PED"/B#-
M;P<^6\UO!\W&`_Y=RE8"M\)L`LWY"<2M!\QE!\DR:ROE.D,;UB#"FP(A%@&V
MPLL%,D`;S?D)Q*T'X<QE!SIK*[?"P@)]Y<WB!.%\S>($S<8#RK,"P\("S8D'
M,:XKS?D)Q#\$PZ(!.NL:M\+>`C+J&CH-`3+K&B%E*P8)KW<C!<+D`LD&#"%<
M`!'X<G"*\R!!LR&!LA;0!^_B#:&03*5P,1+!L&"\TG""%,0B(!&SY2,@,;
MS><'/,H3!,W_`RJ^*SJP*[<10PW"-`3EQ/\#(;`KS04'(=`KS04'(?`KS04'
M(1`LS04'X2M\M<(S`\D1^1H:&_X@RAD$S>H'/,H3!!/K$1P;!@O-)PC-S@+V
M_\.Z`Q%4#<V&!R$<&^410QL&"\TG"*\2X<TP"%XC5M4C7B-6ZR,B\!KA(AD;
MKS(;&S($&\WG!SS*,00^(<T<"+?",00^@#+H&B&O*R+F&LDZZ!H\,N@:\N8#
MS?0#*O`:*R+P&GVTRO`#S?\#M\+P`RKF&B,BYAI^O\D^_[?)KS+H&B&O*R+F
M&LD^%!'X&L,<",W&`\#US<8#9_%OR1$1"L,T!!$>"LV)!Q&9"LV&!\T""A%D
M#,2&!\,W!!$3#<V&!\W@"2JN*_G).O0:M\I7!"KR&C8:(SSR200Z]1H\,O4:
MS8T$.D$;S98)$4(;/A#-'`@Z/QO#E@GQ*O(:=R,B\AHZ]!H\,O0:\*\R]!HZ
M]1H\,O4:_B#`U3I!&\V6"<VR!!&P*SX:S1P(.C\;S98)S9L%RK`$_@/*RP71
MR3KU&CPA91LB\AHB8QL],O4:R/7K/AK-'`@10AL^%<T<"+?"X0<J8QL1@``9
M\<.\!/7-^0G";@3Q_AK*P@+U.FPKM\)_!?'^$,(&!3H7`;?"EP4^$.9_]<W1
M!3H0`;?$7P7Q_@K`S0(*PC,%.FDK/#)I*T<Z#@&WRC,%N!&^#<J_`CKJ&D<Z
MZQH]^E\%N-)?!:\RZAH170W-B0?-;P7^!L)9!7@],NH:$0@-S8D'S9L%S:0%
M_A/*;P7F7_Y3P,V;!<IO!<VD!=8:P#+K&LFO,FPK\=8@V,@R;2L>(,WR!3IM
M*SW"B`4R;"O)/@8>_\T<"+?)_@/*RP7^"\K+!?X8RL4%_B#(YE_^0\K+!?Y+
MRLL%_EC`S6@'P\("$?8,PS0$7_X)R@$&_@W"X`6OP_8%_@C"[04Z:BL]^,/V
M!?X@VOD%.FHK/#)J*\T/!GO*;P?)'B#-\@4Z:BOF!\(!!LDZ$0&WR'O^(-(F
M!OX-R/X(R/X'R/X*P+_).@\!M\C-^0G`!@,A%@$C!<(V!GZWR`8#$20;&N9_
MOLI0!G[^/\(V!B,3!<)#!B$D&Q&*#<V)!P8#?LUO!R,%PF$&$9X-P[\".F@K
MM\*/!LV;!MC^D,*6!LV;!MBWPHL&/I#)/<IP!CTR:"LZ9RLR9RNWR1$``#IF
M*T\Z92NWPK0&U<W&`\(Q!-%//@@],F4K>0]/]2$P+!D9&1GQTLD&(R->(U9Z
MYH#*H@9Y,F8K>O[^/AHWR'L_+\G-!P01,"Q\M<CEU<T'!-'K<R-R(^7-!P3K
MX7,C<B/KX2O#YP9^M\`CY>4&"W[^(,(<!R,%P@T'X<-(!^$1+!L&"QK^/\HL
M![["2`<C$P7"(@<J[AKKX08/S2<(ZR+N&BKV&B,B]AK)X<DJ]AI]M#?(*R+V
M&BKL&A$<&P8/S2<((NP:M\G-:`<^#<UO!SX*]=5?_@K"?@<ZZAH\,NH:/@;-
M'`C1\<G-:`?5&K?*E@?-;P<3PXH'T<G5$28-S8D'S6\%T<8:YE_-;P?^6<DZ
M01O-E@D10AL^#\T<"#RWQ)@'PL("KS+T&C+U&C)B&SX3S1P(/A;-'`@\]3H_
M&\V6"?'`$:<-PS0$$?@:S?D'_O_`&K<^_\`Z$@$2/A'-'`C^_\CEU<4AL2N'
MAX>'AX5OC)5G!@L3S2<(P='A/@_EU<5/S04`P='AR7X2(Q,%PB<(R<4&"'[F
M?_X@Q&\'(P7",P@^+LUO!P8#?N9__B#$;P<C!<)'",')/AG-'`@R/1O-E`DR
M/!LA@`!^Y3R%;S8`/B`KOLIP"'[F7_Y5PI0(*W[^),*4""M^_B#"E`@V`#H6
M`2\R%@'A$5P`S4T)S5T)VAD$1SH\&[C*L`@Z$P&XVE<)U7@R/QLR/AO1&LV?
M"=I7"1/-YPC$30D1;`"O$C)`&\U="=H9!,KF"'@R01L:,D(;KQ(],D`;$P8(
MS?0(_B["\@@C!@/-(`G*%0G^*L($"3X_PP4)(Q(3!<+T",T@"<H="2/#"PD^
M(!(3!<(5"7ZWR7[F?\WP"?Y_R/X]R/XLR/Y?R/XNR/XZR/X[R/X\R/X^R/Y;
MR/Y=R/X@R-"_R2-^M\C^(,I-"<D1W0W#-`0^.LW("=J/"?X$TH\)3W[-\`G6
M0-@2(\V4"4<-RHH)!@#-M`G8#<J*"<VT"=CV`7@CR<V4";_)/O_57SX@S1P(
MT<FWR.4J/1N]X<CE*A0!*3W"K`GA/\E^UC#8_@H_V"/U>(>'@(='\8!'R<7E
M#O\K(PR^RMP)Q4X,#<'"S0DW>>'!R3H\&\V6"3H]&U\^#LT<",G^8=C^>]#F
M7\G-`@K(.D`;M\GE*@L!?N&WR4UE;6)E<B!.;W0@9F]U;F0-"@H`#0I,5#(Y
M(%MD6W5=.EUL8G(O9FEL96YA;64@6V1;=5TZ75MC;VUP;VYE;G1=(%LD=5T@
M("`@(&)Y($,N0BX@1F%L8V]N97(-"EY3('!A=7-E+"!>0R!A8F]R="P@7E@@
M;F5X="!F:6QE+"!>6B!S=&]P<R!P86=I;F<`#0H@("!4>7!E+W5N8W)U;F-H
M+W5N<W%U965Z92]U;DQ:2"!F:6QE<R!O<B!,0E(@;65M8F5R<PT*("`@1')I
M=F4O=7-E<B!A9G1E<B!L8G(O9FEL96YA;64@8V%U<V5S(&9I;&4@;W5T<'5T
M+@T*("`@)%4@870@96YD(&1I<V%B;&5S('5N<W$O=6YC<B]U;FQZ:"!O9B!C
M;VUP<F5S<V5D(&9I;&5S#0H@("`H=VEL9&-A<F1S('!E<FUI='1E9"D-"@I%
M>&%M<&QE<SH-"B`@($(^3%0@03,Z2$5,3$\@4T]54D-%+D%:32`@("`@("`@
M6V-O;G-O;&5=("`@("`H9&5F875L=',@=&\@2$5,3$\N3$)2*0T*("`@03Y,
M5"!,6DA%3D-/1"Y$64,@("`@("`@("`@("`@("!;8V]N<V]L95T@("`@("AH
M86YD;&5S($Q:2"!E;F-O9&EN9RD-"B`@($$^3%0@4U%5145:12Y$44,@("`@
M("`@("`@("`@("`@6V-O;G-O;&5=#0H@("!!/DQ4($A%3$Q/("HN*B`@("`@
M("`@("`@("`@("`@(%MC;VYS;VQE+"!A;&P@='EP86)L95T`("`@0CY,5"!"
M.DA%3$Q/($$T.E-/55)#12Y!44T@("`@("!;9FEL95T-"B`@($(^3%0@0CI(
M14Q,3R!!-#I33U520T4N05%-("15("`@6V9I;&4@=VET:"!N;R!U;G-Q=65E
M>F5=#0H@("!!/DQ4($(Z0U)53D-(+D%:32!!.B`@("`@("`@("`@(%MF:6QE
M70`-"BLK($%"3U)4140@*RL-"@`-("`@("`@("`-`$5A<FQY($5/1BP@86)O
M<G1E9``@97AI<W1S+"!P=7)G92`H>2]N*3\@`"`]/CX@`$Q"4B!F:6QE(&-O
M<G)U<'0`365M8F5R.B``6VUO<F5=(``-"@H'0V]R<G5P="!O<B!U;FMN;W=N
M(&9O<FUA="!F:6QE#0H`!R`N+BY#86XG="!T>7!E(&$@)P`G(&9I;&4-"@`-
M"@H'3F\@<W!A8V4L(&%B;W)T:6YG``=4;V\@;&]N9RP@=')A;G-F97(@=VET
M:"!+340-"@`'06-C97-S(&1E;FEE9`T*`$Q:2"!C;V1I;F<@0V]P>7)I9VAT
M("AC*2`Q.3@Y(&)Y(%)O9V5R(%=A<G)E;BX-"DUA>2!B92!U<V5D(&]R(')E
M<')O9'5C960@;VX@82!N;VXM<')O9FET(&)A<VES(&]N;'DN#0JOPVL./@'#
M:@X^`L-J#CX#PVH./@0W*C@P^<D`````````````````````````````````
M``````````$!`0$!`0$!`0$!`0$!`0$"`@("`@("`@("`@("`@("`P,#`P,#
M`P,#`P,#`P,#`P0$!`0$!`0$!04%!04%!04&!@8&!@8&!@<'!P<'!P<'"`@(
M"`@("`@)"0D)"0D)"0H*"@H*"@H*"PL+"PL+"PL,#`P,#0T-#0X.#@X/#P\/
M$!`0$!$1$1$2$A(2$Q,3$Q04%!05%145%A86%A<7%Q<8&!D9&AH;&QP<'1T>
M'A\?`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,$!`0$!`0$!`0$
M!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0$!`0%!04%!04%
M!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%!04%
M!04%!04%!04%!04%!@8&!@8&!@8&!@8&!@8&!@8&!@8&!@8&!@8&!@8&!@8&
M!@8&!@8&!@8&!@8&!@8&!P<'!P<'!P<'!P<'!P<'!\4A.P@!.P$1`0!S(W(C
M"WBQPAH0(8<4`3L!$74"<R-R(Q,+>+'"+1`A$1(!.P$1``!S(W(C$PMXL<)!
M$"$["`$Z`1&Q"L5.(T8C?B.!$A-^(X@2$\$+>+'"51`A_18!.@$1``!S(W(C
M$Q,+>+'"=!`A)PT!.@$1.P%S(W(C<R-R(Q,+>+'"B1`A__\B)0TC(@\2P<G%
M*B,-/H"\PK<0/@"]PK<0S6X1(00`.4XC1B$1$@D)3B-&(3L("0DT7B/"TA`T
M5B,C?BNZVN,0PE\1?KO27Q'%Y0,C(R-^*[K:Y1#"]Q!^N]KE$.OC&RL:=QLK
M&G?AZW,C<N'E$8<4*1E>(U8A)PT9&7$C<'K^`MHG$<(K$7O^==(K$2-Q(W`A
MAQ0)"7YS7R-^<E?AQ41-(2<-&1EQ(W!Z_@+:4A'"5A%[_G725A$C<2-P(8<4
M"0ES(W+!(2<-"0E.(T9XL<+&$,')Q2%U`N4AAQ01.P@!``#57B,^`K[:CA'"
ML1$^=+O2L1%[ZR&'%`EW(QIWX>5^(V9O(WRW'V=]']7K(3L("7<C<N$#`R/1
M$Q/C*WRUX\)\$>$A.@$!=@(1``#EU2$["!D97B-6(WXC9F\9Z\4A.P@)"PLK
M>KXKVMT1PNX1>[[:W1$#`^'EU<5067V13WR81['**A+%(3L(&0E471,K?A(K
M&PMXL<(*$L'1U2&'%!D)5%T3*WX2*QL+>+'"(!+!(3L("=%S(W(AAQ0)P=%S
M(W+A*Q,3`P-\M<+'$0%U`@LAAQ0)"5XC5B$G#1D9<2-P/@*ZVFX2PFH2/G2[
MVFX2(W$C<'BQPDH2P<GU/O_#?A(1]:\R/3#Q(CHPS1$4VF@.^<U8%*\R/#`Z
M/3"WPL,2S<8#VF,._G;"7@[-Q@/:8P[^_<)>#@X`S0D5M\K#$@W:8P["LA+#
M8P[-Q@/-Q@/^$,)9#LW&`\W&`\T0$*\R/C`A```B/S`!Q`<A```V(",+>+'"
MYQ(AQ`?ES5@3?/X!TA$3?<T3%4W1(0``&7$3>N8'5]7#]!+"&A-]_@#*5!,1
M`O\91$W-B1,CT=5[E6]ZG.8'9^LA```9?NOCY1$``!EWS1,5X2-\Y@=GXR-\
MY@=G"WBQPBX3P_02T<-5#L4J;QE$37C^`MIM$\)\$WG^==)\$\V[$PDI$8<4
M&4XC1L->$R&+_0GEY<VD$.'AP<G%S>43Y>410`\93M$-#0WZIA/5S;L3T1D9
MZ\.7$^$!<`X);B8`*2DI*2DI/C^CM6_!R<4Z/C"WPM(3S0D5VF,.(3\P-@`C
M=SX(/3(^,"H_,"DB/S`^`(]O)@#!R<7-"17:8PYO)@`Z/C!//@B1ROX3*3W"
M^1/K*C\P?;-O?+)E+@`B/S!E;\')U>7K(08`.2(X,"%Q&AGK*@$`(WJ\VC$4
MPE04>[W25!3!*C@P*WRXVE`4PD,4?;G:4!1\NMI5%,)0%'V[VE44Z]&WR>'1
M-\D!)``A>11XL<@+Q4XC1B->(U8CY2HZ,`GK<R-RX<'#7A0["!(0AQ0E$!$2
M.1`["$T0L0I3$/T6;!`G#8$0)0V<$`\2H!`C#:80$1*_$#L(QQ"'%`D1)PT1
M$8<4+!$G#3P1AQ17$2<-8!&'%'01.PAW$8<4D1$["*@1.PC*$3L(VA$["`(2
MAQ08$CL(+!*'%#02AQ1,$B<-5!(``.42```$$P``,!,``#@3;QE:$X<4<Q/E
MU<7-Q@/!T>')Y=7%(3PP-<WB!,'1X<D-"@I#;W!Y<FEG:'0@*&,I(#$Y.#8-
M"B!B>2!3=&5V96X@1W)E96YB97)G(&%N9"!#+D(@1F%L8V]N97(-"@DR,#$M
M-C<P+3@W,C0),C`S+3(X,2TQ-#,X+@T*($UA>2!B92!R97!R;V1U8V5D(&9O
M<B!N;VXM<')O9FET('5S92!O;FQY+@`:)!7-YQ7:QQ7YS2(:_G;"PA7-(AK^
M_LHH%CX"P],5/@3#TQ4^`\/3%3X!-RI,,/G)K\/4%<WG%=K'%?G#+Q;K(0(`
M.2),,"'_`!DN`")5,#XPA&<B5S`^*(1GY2]G)")=,.%\Q@AG+@#K*@8`?)+8
M.DTP*E4PO-HE%F=ZO#_KR<TB&K?"*!;-.!K-(AK-(AKUS2(:S2(:\?XATM$5
M_B#24!;-5A;#I1;->1;#TQ8A_P\B6S#-<Q@^##)(,*\R3C"O(?__]>7-WA?A
M\3S";!;KR<U>&3X!,DXP/B`R4C#-:!8&!,4A_W^OS=X7P07"BQ:O,E(P9V\B
M6S`1___)ZR)",,TT&=K9%=7-0Q<A1#!^-@"WS-@7T3I!,+?*I1;--!G:V175
MS4,7T</%%NLB0C#-(QG:&A?5S4,7(40P?C8`M\S8%]$Z03"WRM,6_O["_Q8\
M,D$PP],6ZR)",,TC&=H:%]7-0Q<J0C`Z3S#-LAG1P_\6>_X`RMD5_@'"PA6O
M9V\B13`R03#->18^"3)(,#X",DDP/@$R1###TQ8Z3C"WRE87U>LZ5C"$9W[V
M('?1*ETP.=+'%3I6,()G:W[FW_Z`PH07/@$R1##E/B`R4C#-V!>O,E(PX7[^
M@,K,%59\QA!G7GKFW_J>%U?ES587X7S&$&=^PZ87?,809WXR3S!/*DHP)"7"
MOA?^D,JY%V\ES2P:)")*,,DF`")*,+?*TQ<]R&=]S2P:)<++%\D^D,,L&BI"
M,#I/,$<Z3C"W>,(Q&/7ES>D89SI6,(1GT?%/1'[^@,H3&'S&,&=^M\H/&$=\
MQA!G;F##]1=@S8\8S2H8?,809W$J6S`K(ELP?+7`/3)!,,ER?,809W/)]>7-
M?1G1*D4P.E8PA&<Z4C"R=WS&$&=S?,809_%W*D4P(R)%,",Z23"\P!<R23`Z
M2#`\_@W*;1@R2##)/OXR03#)*E4P-G\C'H`!`!#-AA@!`$`>`',C"WBQPH88
MR<75Y7W&96_2IQ@D.E8PQA"\PJ<8.E8P9SI6,,8/E$=]+SS"M1@$3U1=S=P8
MTL\8*E4P.E8P1WJ01TO-W!C:PA7KX7S&,&?-*ACKT<')?OZ`R",+>+'"W!@W
MR85OC)57]@CF'Q]G1WT?;T_2`ADC>K=\'_@^#"DI*2GK+@`IZRGKTA,9"3W"
M"QDI%RD7*1<I%VSF#\G--!EZ/:?`>_X$T/X"TB,9R1$``#I(,$<Z1S!/>8?,
M6!E/>Q=?>A=7!<(_&7DR1S!ZL\`WR<TB&C<7R2I5,`$`$!Z`S888`0`@S808
M*E<P-G\C`0`H'H##AAA'S08:3'[^@,J.&<VA&<.!&>LJ13#K<GS&%&=S.E@P
M9WF49\GK*E,P&3I8,%=\NM`1BQ,9R4<^_S)1,'C-!AI,?OZ`RN<9.E$P_O_"
MX1GE5GS&%&=N.E8P@F=^YB#"X!DB4##AS:$9P[P9*E`P?/[_R.LJ6S`C(ELP
M*D(PZSI/,$?-*AA\QA!G<%TI*2DIK&][Y@]G.E@PA&<CY>LJ63`9(E,PX<G%
MU>7-Q@/AT<')]<75Y<WB!.'1P?')*E<P$77L>Y5O>IQG(EDP(5L:$4$P`0L`
M?A(C$PMXL<)0&LD`__\!``"`"0(`````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
I````````````````````````````7S!?,/__91L`````````````````
`
end
--
Home: Ian Justman |UUCP:(1) My CP/M machine. |"One of the few
6612 Whitsett Drive | (2) My host. |die-hard CP/M
North Highlands, CA |(1) !pacbell!sactoh0!ijsys!ianj |addicts left on this
(916) 344-5360 95660|(2) !pacbell!sactoh0!ianj |planet"