[comp.sources.atari.st] v03i056: wd -- Uudecoding program

koreth@panarthea.ebay.sun.com (Steven Grimm) (05/31/90)

Submitted-by: bill%biomel@cs.dal.ca (Bill Silvert)
Posting-number: Volume 3, Issue 56
Archive-name: wd

Here is a version of UUD (I call it WD) that takes as many files on the
command line as you want and also offeres various options (-v and -d
especially).  I use it all the time on Unix systems, but haven't tried
it on the ST since I never decode there -- however, I haven't changed
the ST-specific code, so it should work OK.

-- 

William Silvert, Habitat Ecology Division, Bedford Inst. of Oceanography
P. O. Box 1006, Dartmouth, Nova Scotia, CANADA B2Y 4A2.  Tel. (902)426-1577
UUCP=..!{uunet|watmath}!dalcs!biomel!bill
BITNET=bill%biomel%dalcs@dalac		InterNet=bill%biomel@cs.dal.ca



table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 wd.arc
M&@AW9"YC        VR@ FAH  +X4EJNV/TLX   ,+U0T4 !"!8@J=<B :-$"z
M!)DR8]X\!!$&1)TZ9=Q$?*C03!HV94"("3-F#0@Z;T2F<1-&3AX09M[(:>-By
M8$&;!HW(>=/F))J00LK(65,&Y$N9:<ZL#,.&!8@V$M-X+*-0S,LF4X@XE4)$x
MBE,E4) 0 6$"Q!4F4VH2-$CE)X@@=%JF 7&D2!,B3Z: L"-T3IHW;D!$; /Gw
M(U40=]+000.BR94A(&2XP*.V((BV(;'BU<M7CE_ B!4SIE)'CI@W0RJS=5O%v
M31H\>_O^#9QXL> QJGVFF1/;\VP0NY^&>:@C<@T03M[8 1$C!PX<3L>@">/Fu
MS&&K9M$"#]P\!PS5+P8.#(@31% 0<TJ'1 EB.E^?(>'LA",4?9XVI]E0I*.;t
M-YPW*]'A @@HU'577DYIAN!!3B2!A0N0#) "3N$I,)Y "HP@E1L/F4&779L-s
M-$*'*X5DX&;,B9@1&5(-I$*%&IK!81D>5M$@%B*2Z$9(-CJ88H8KMJ@ >1ENr
MV&%C6>65(XTE(HEB#"IR*.2+XA5IQI$G*IFACB%-D<443@311!$@B&!=&V2\q
M,8<(2WJT(PA/1LFB&2)*=:2"4[39I)=@BDFF"&W,D>::>KX9)Y!2TFGED2%Np
MR>2;;;1DT@E<<'&"G$+&>&2/.#KJ9I=?ACEFF76XA@>;GC89Z5 @G/#"I8C.o
M6:6&&K&14$@\S$$'BV^X@(8/L]I)XX<'YEEDK;>"P(.:8JQ$AJ_ IOIF$7+Ln
M) <*;J0  @A[F!>1:VZ@($,*.X!0!AZ*84LN"'T4&M(54B1!11$);"O"'6*@m
M.N*C(<4T4QAT)$"&OY'2X2X(<-1!AZ[7XI%" F8DO# *>+"@:YH*3P@D&W.4l
M<3"UUJJ[[;GI9GLPO/+2:^\=^G()DTP%)R!?@(KN^RG""C-,\<,1YTRQQ;N^k
MD3&FBA[,QAMOP)' '6@81F ,&@]T+AU"!69$$DR0J4),](5+KM1X4"U'8-*Uj
M5!##8\"1!PI?*S!UU8)-)\?9=,@Q!L!L[U!EV7.K8!T=;MPA$QEYS^IR$T%@i
M,00204AAG T',Y&$$T5D[<3C!U^=M>4@V$##P4X\(443G-L 0P(!4<3&T7?Ph
MYB\(.,!@KD82'<:W?_6QT225TF:6N.9%Z#6##(;S"\(4142!.!:MZ@&KS7LFg
MW\3DK88!*]_HE1''&'HK$"!,:7A&AU,=C\%A=#^5Y)0;=;3!1O<# 5_02DZIf
M(#0=W6.OPG]SY"]W06,H34O.X#^S;2@,;2C#%H!GN2XXY0TR0J "&5@$)W2Ae
M@'V;@]#L%I(>(*<*3&!"_>(BA[^!P(-. "$3,%@0CX!D#EM8'O"F<$'4&>0_d
M >K+25+BPHQ(D#>\^UX/V8>?^G@0!BP4 QNHLP:GP*$E_/$@I6!P@NY][XERc
M )Q30.*&_@WD>P\10QW.<$(0P&!];Y".28[XP!VEZ4UL[,UI.E;&,Z('#6^Xb
M0QEC8$4W\$<Z=%!B#!.WN,8Y4#!DX.(60C<ZSJT !#.X8)4BM1(4#' ,3AF@a
M';3UO4N62W^:W((D%;"'@23@>U!Y2/<2((<R*$57]?E>&IRBAE5B[R&Z6B#6z
M*E?!0XK1#%N0'.4::,O_;>TU0H&? D[I(4N6< S*BHRV2KE,B,$,;R(( AN@y
MHJN7O8$-\D&:AR[RD(V$Q XS< $-"%2".6A+!C5H07+LT(+G<,$-(F"!*2/$x
M)U$5H6T)L.:_Z( "$=Q3!  5:,$*6H4YA,$ZQ2$G"+;0 C=T8:(M(,-%*6J'w
MC;: -RR2@T?Y$]*+KD1B+>CA01-*,&RN=)4*Q>83X$"'V12GH@OQ 7)2HKLWv
M=2P.&-%(2*0#D36\U)0Q):@(9EI3P-Q4(2W0*1'*($8RIK(,1ZUF2Y7*5)LNu
M9#E1!8$5A#+'D%PUJP'=:D&[ZM2%\.:14]C@&$(24HB@Q"4OFQM3]'-2A8'Ot
MA6A-ZEIIZM46\.>15!A@&4@:/KO*Y"6OVRL([B>QOY9A#H%5JPB2X*&^TB&Es
M3@M.0Q:3$?3L:B7 X4T=.J:0,/#&LZ %26!!)A,40&V5[;+0,@,HAP&6,90Qr
M&&4"3,DTIZ& MP/< @PNV@,IMN $TT2J5 @4(>26< O!/:$4R0!=$/"!#P2Rq
M[AFPRUPI$@&ZVC*!"9 * D@0X+@"O*X,RMLJ+E Q!=%=9H3".,8]PK0/YN)8p
M2*:+@NK&=[S9;6ZK[-#=[X;WP.35;JNL@%ZRK+>:[7VO>+<P7PE/L<+43$"$o
M.E-6_R(5P$6A(X$-W-OK)EB*;F@P>.';8@33]P1.J+!Z]SF ]@Z QLGML((_n
MC%]N\=@-:43#&IGSWP"KN)DL3NZ+6T4'&3^XQA$>,A5T?&$1]SA"0);OC>T+m
M8AYK<@4K6&6$+LD0-0^ P)>,YKB,K%\":):<Q6G";OQ2G9,HEK&M',-=\^ "l
MM+J7MM>*00T &J'<>IF$)O0@<(4;(0+S]PP:$[&=KZG4Q)9PL0X)7QG;>5 6k
M0'JQ"46Q@($#Y0%L>,HGF(.5PVQC#T^!RSSV,:TY/.;[YM?+9TZSF9_99A[#j
M^9ER_K5[[YR0/.]Y)6348&GF&NI #[K0^&0T 1!MVT6[V=$1DC8'?UM".Y#7i
MS9:FZA@SO6Q.%S2NTZ:KJ#U(:GQ:3*YE2+63!]S,5U\T!%(DL[('P&PR%*<Uh
M:T#R'0*3M*8&A@?M]$&I!7-@1@^ VXK6=XH]IM\!B*&585@#3(,]<F*W *;'g
M/@,T>2!-.GNYX,Z> Y_)V$,0L"2!V$:HFS'N[1,C5;SD/H.Y@XO;*C&30+M>f
MKH>?F]ZR[!K6 O_U*0/CP8NM!*9H4QL*#IA IX@@5Z=U@P]TCM0>PE#I*%0Ae
M;O?M<AN:5B8AH<Y+AL,BAS/%LC>_;$$JE-;:IJ$'2*0(LG4J@W*E <V9-/G d
MS;Z%-#!7\$+G\ H<_U_IF@$%XI[K--W./[\H\25OXQ!\$ 8PQM2&,17I&!8!c
M)I.]\]@C># B>O -@D<RC(N8Q[>V&L)'$*1N19/U$,.@[?J.2P4%QXS]W  Nb
MG*$HFP J0 &:82\4;7EP52+?)_2EOP+JR\'Z]:7BMWU>30)G/B3,3V$(!Y[Ua
MM7&]#.33O9O1AK?W1Z?B3=XXC]N_]0AVG>(UEE $MG54]S)=TW]YYW5R@%#6z
MEW;KYW(1 G,@, 34<0+\D32E56_YQ&IY9W'<-B[YMVKI5E7:\GKN)@)24 ;#y
M07QFL!-M4!P:Z!3OQU*& 4..5T;JMT)(143Z<41%MTS'=VITL'FITWEI\'GFx
M$C; 1UJD9QNG1Q'9LWIW57QIA4QSXT%"6'NF)0>X)X2[QV1N!WP0M(7$QSL!w
M=7S)5Q_,AWT#%WW39X7@AWUNYH;=!X=E]&&5MTRY=2'E,06@5@=P,'H=$@9Uv
MP ;\43?4,0=+Y'!^ID1E !ZF]#I;5T>&%TTGT"J&AV;: DB"=(,>U )\%(FMu
M-XE2U"JT1(G 88FMHH6>DXDK0$N:&#>!Q :-]WBU)(IS0XJK>(F/U(JIR'++t
M4TA2X(J;B :S6(ME!(K%=(PG  8G\'B<2(N7^(P[X':# 16!T08* S"_88;1s
MN 4GX ?/6$;?> )>0(UN1QV315IS<XV@H8UQP8AFJ$1,=(>8R(=KD3W\ 8BCr
MUU,AP45G8!MQX8A.P1YA8 < HA"#(3'$=S0+4Q$&01T*\0(@ "$#0"&F- :)q
ME!'*]7BAN$R2.!<>% .GZ$$U4(D\@$*B0SH55(DKX$$S<(HO"0(TD&D)H)&*p
MY(GAM9%NT'A:F& [F9-:*&0@H ;XU3U$8AD=TQ+2D5?MH8(/,3>MAXA=M(B_o
M,9 @ 0+^"(G+=#1)PRUN%RFP-#=>&8BOHXV&F 9PD)7E5#NOQ7!O4G-F*#-0n
M5( G8#TP5980^&;-9 9_,P<H\$ODDP9Z4 9C*)C;T8 ?]( AYE['MR-WT$-Lm
MLXF 45/L4P9J1@#'!QA4P9G*5@ CN&YYM5 B4 2B-X8]E'.,5@ D0U PH&VJl
M1D>-60 2F!PBX4JHM96&5@#<-@.PR6/@-@ \B&;HUDP,HQ&$$9AU8 9>AY5Ek
ML(&+)F&O"8$$\#?.63AU]BV6B1'C9WS&63?("0?*R9QE(@:X&1@;: .*.9V-j
M20!S@$=ZY(/:]W$JF'T=%YSF!YYCD)R(*0)"4 1',#G0N9[/]YYY1(G:IYTKi
MP9W :6R79Z!ZI%YRI";YIGT2HS._E&I(Q46\475U@WL9BG+-Q*':\DL4U0(<h
M^GAX6"=7,BR-<H;-A +\4T9_$SB#,YY.X9L1LI?\ATOC@S!JHG$"IB)#6GX/g
M.@=WXP:7)Y@B8)Y*X08E\ ;MM($F<%5.X:/:PGSC0C1(U9@$=X)XUAC/UF=#f
M)$';<9M/JI4EHIH[5RVU%0.OF8>61R!9F'XJQ'YUDS9K T$)Z&>?-H3SEZ=Xe
MPZ<2=*67!:@GMF_[EZ=:1ZC_AZ7*!*,H@ +W4T9<DQ&4ZG_P9Q;Q,B]%IF Yd
MN'A@VFP32!U(=H%=,UD*4UD]!(.896_!UX%M&C(UF8<P2B"7IBV:%11I2DX0c
M$175X:H3YZCYAG7: TT>A#S*DS@P150E449(ID8@\ -F! +%\9%5*#XF5DWEb
M(WKR64UM^1#8F59C<#0=0ZD9TSV:,BR<\G-HD$J9VJ=7U38C$"2*$E"<^48=a
MQ&1SB@*Y.IK89)H*X:L; 6W""JO$"E!]$):N)39:B31FV7IH65-K25>_BDMGz
MRIF657Q[."088AE"( ?$-Q+/6A$XY$?UP1Y,J"M0%'RCYT>F-SA<J3\U*CARy
M0#@,LS[:TDJOY+#ZPS#EPK.[X;#?XP;=$V+%!1*3J@(,XV%<4&7:XF#(U[1#x
MUBI%QC#$:4H$%@)T\WT@T$IT4!J!D8.KE+1E@ (,D2UM9[9(Q[1U P+,1RE0w
M:V$$XK;+5XK=):%36S=76S=9:Z0$PK5VN[.+);:+J8/59+9+2[4!-[=2:[<>v
M9K7:@K7"!K@H(+@,0[AA.S:'^X.L5+B<"[0#T;%):1!)T$5QL3JCYYQGFD!0u
M@5>OLXCUL5J/B)$*8)UAX(AL,Q AACTF*DR\9$&K)+1CN1U_M#X(NDS$Z[/&t
ME#;X8W22B*QF]$G*XD'!R#C#*!BQ^(UC\'C*6"4/%08KH0-'AP)^N5B B9A^s
M49B'N9PRJ+:@>J=M)X%%\ 1&@!A-DY6H196*R(V@X9QLBE3<UG-Z:$K#6;GEr
M>YS[*9[]Z:0K,:#2*742>+H+"1)4<Q*]597^&Q@ /%MN>BWJZ;G.6T:_I(6Wq
MAZD9NA#\NDPJ,,)X6[;Y&Q+(=UPTI9C3*'4M3%/)&U#.6VP%O%LZ[$&_!,/&p
M);TY/(1M1V#<^V^?"#5[*8%$ (BZ<S<7C#W[F\']RX@=G&VS6ELWH*&62W5'o
M5*)+Y 9+QCWN>HS="ZU_>ZO8 @(^X$&>H[EBVZPTU<:.=@9O8)!G(+Y&.[I5n
M4KJ"D320Y8)GRA[W8Z@%VV>N!0)Y(#0@H,>J QAGP)4#$:YGJS&]^S^_.SG!m
M>TCW0XO 2TRFM+SUH3]B  ?UHS##BYO%^STJ4#>S2([&J$2MW+.QY$<V%QU.l
MP849<<M#.[M=E!1N9+Q:^<M&IY<A5K[G.S'J2YB&Z2&(N1**&:I[^9AE$)F&k
M,9F#[$<+BIDF.% %%:;U>[_FZ2\AL2(!W'%F4*X4BJZ(VG'<A@-@'% 'C)0?j
M:Q!B.$Y!94X=X30_8+MNK,#\Z;YELB(;Z)L1S*/PN:U>!K9U3'X#K9\%39ZEi
MZ01$D- $^L0G. 5KH):%0::&7$%CP1[_&:!.8&@#H,S:1V#-G+X&O;[1+!(&h
M3<T29LVSB<W:K+1%IJ"7J6:T>8+E?)OH;!X 2CTQ42K/LIOM;*YG>S^K.<^_g
M66?Y.38+C*-E<M("ZA31J6#329\AUYU>YM)_B=4RW;[D:=/QRY@M?7F0*9D]f
M79G?G)F:-=0B>P;&2!%FX+!:[03KK&E-_<Y0G9E2+=8)$)P;6EH>ZLOA$J+]e
MRD4ENIPGRD4J2F;X7!Y)\%K\H8ZE$DY4(VB'40:$00<OX8]$#7>C!WRF'=!Kd
MP7?ERT4+[=,,ZK'E<02@QH3-PA)X9=H N1A<:<]E),N"I *_)%SE&QAQ;$;:c
MHL?L$:[*),C[;!']7#O_G)6L384)3-$,;- B@- YNM$0/3:7G8_1S5NMI,LUb
M1ZW%84([$C:3M2._G=U67=%>MQ+E>BL;^,4+[:5_(YF.W7&R#<[5Y&B")0)Aa
M*@3#@3"M!'MJ^B8EH!"HU:H@$(,\*(.:*H#-]*^[FN"FW0,Q^-\!A7&WA8^6z
MX8= E1'4YJP?W6?7S3OA2KZL!-L>A),<:5'C;1F9#1R'Z!:B35.EW23GC-I,y
MJ-I-TN*N36!BK-S=O)T"+LA0D.!/2(]F/ ?Q+8FI7$8F8*+22]ENMG)?RT6?x
MA'@B 0>Q2-R!*,1E;)^"/%8B:P8O,5VN110=(1/Q'9J8QM&Y*.-FY!17+L3+w
M62ZPS7*,#>@9$8OM26#"38MF?E$LQY[[%-3B;$HBD!R!<1$H3MUQ8S80-P8^v
ML$5-\N!G*N$Q6!"IO#[MTQ0<*$&KN>$*T>$?OIQ1_<&V%<+:!VX$D,IMW&CDu
M)\C:I!^+$1QJL%J'F!(J[I263CL8NQ@ 0Q%PT#6MU3R7R!XJV)1;Z5X"G< 0t
M(7H2JN+LE^T*\:UCW4PFRMCTI:S+\WS%#NZ.F>'J=N>:9>+]/%3I8Q*;6\P0s
MU$SC\M>-IJA4S>XD"+!*!>\H+N]%]=X$DN^!%9O\1B >H:W;/N^+%S[=I.X#r
MT*W?OL+A3B#C3MEPFZS2DSCH/N\[O.ZXVNZZ>H*V^5/Q'C<%;ULIH.\#H/!Mq
M7?+__N[:L_+%#AHN_]>'3>*K(10A<0<$7Q)UWF\0?\WB+MGDWO'9LSW/)X%7p
ML!-]IO(#W^ A >JH%8./7N&IGD#:9N?L!ND+)>D"+U29/C?!L>DZM1*PE.!Co
MJ/8YQ^=*3]GD<ZS:AG'T+-;A=JP^G/&8=ZS19.Z3,[F [_'+B@5Y*,B4Y5<5n
M<08[P8]C. ,BD0=4PQLHL$Z>=?8D(3;NE!M,F/FW(WCQ 2 HJQ#L@1VJ#!]Sm
MUTH[5![FJ:IT4%GL47-FX *!$1RT:_HI036JNUHVM\>MGX^+O]FJ.X:DU1/+l
M/N2GZ2%,F)K7[E<>%,IYJ=@V!U-]3A8F2G1(Q;9OK%..WG'1IS"QB(59--RIk
MS.@L)P/>A<''F,KD=5$^H%,TX&9NT/>5UDQJVY[A3P?C3Z?E3XON'USH3Y-1j
M^^C;@@*)O@7N/U_P3WC:5O\GUZ#>22#YKWW[W_^)O@7N/U_HWSGKG^A;X/Z1i
M1&D$4/\GUZ ==^4S.?\27;YO[$%F< <B2S7PC.HD><QN\$ 9HRTIJ>1>2K\?h
M;/!W(+*624:87-V/J-)X7\^Y1;KY# )&X"PO.S4V5P94<1@]9.%).+30]D#Lg
MF!AT5#>051KL6!Z@T=[\X?RM/1#]O<TI;,KM:$Q#S+M:&Z,SZD$U>Z.(.2[5f
M++_++(%Z)G/$9]^V,A$UEW<\CW%?O';Z9[GGQ_0XO:AVHW7V-WOQ9G'T1U#Ve
M!Z3N%((=LZAVHW7V!Z3NI*["XB%98BSE:P0 4S='B("%NN=*WN@:4Z]%6KXDd
M,5<RAX"%:D8UJ3'UFBBFM,Q@C^>D28'H[2P'NX$SZ&::-01RS3[$QQX@IQ .c
ME4"6Q?..YF@;E\1]V4H8&"[V5R8+^+Z*:=->RH,CSY<T+YK:IUDIN()]UM[\b
M43Z,V((\<; ;.(,A*)OA3)IAJA.&F:JY*Q-T<+ ;.(-=?"TY4,^.QM*6^])8a
M/<H5]+[5++]>JM-P39G>_-/A3)IA:IL.'!BF'09[G<OW31P3_JH;.(-=G&@@z
M*-$)<,_]2M#;;='."<%>/7"XJ[L6%^"V*M_AB=5->IYEXA3JN=!@;9\]WY49y
MT:%;"**PODH$1J(T#4P,D:)W:-D^/X$BSX18Q!_I80:P]]L#.*,>5+,WBIB^x
M6<TJ! (2/*H&)Z8R1WQ8Q!]]BEKV;2L<85D'NX$S"%,8YYMKMW%MAT515!#\w
M U-8!#AM7+Y8!#AP#.W:@D6 <X=XV:]8Q!_,AT6 (ZKB;."D^N19A![+R>!Mv
ML!L%(QW%H?;;T?8*\?8EP.EQ;Z%0Y$1UZ8&R'@.U*M'EJ^$GF((KV&=8Q!\Eu
M, 83MS]!^H.DF\\@  4BZT?"1]I9N5666<D$(@0RL1-"WQ&&K&=CL!-%$"ECt
MP!O8000'&1)# !@[06@EF(]!\+#\,0>1LCHI.QT<[!9F4(CZ808@00;6H1 Ss
MXT>U;[NI8P6-TSA', 4Q4'P#XVX1DWAGX$YGWT)P<+2FE";RX4?FF_K'94PIr
M8 (#Y$[=T[%I(A]^9+ZI'P9PH#&FW(YRDP!; P?=8\KM*#<)H )A  ='6\JNq
M3+1^=)-.89^?B\OM*#<)P+21ROW'549;0^8KD*4!=U])W&],?P(E %T\=C]Cp
M<%P)M7%[:<01D^L57QM->5P#=S=T= +<I0,6JC!I,,.PG )AD/IPJFUA$(@So
M>=:7%R#:!M;VR6-W0T>Q=@(ZH'T=6A#'94PJD )A  >9R?THL&1,&XMQ*W"/n
M?C]C@ )KH&UA$(@S>=:7IS_:!M;VR6-W0T<G, 8GH /:=S]C,,.PG )A  ?:m
M%@:!.)-G?7D!HFU@;9\\-HB%2 <ZH'WW,P;'97$$[FBY1;KY# )0X%<Y9!URl
M\+Y?NX*P(0(+R)4,N76]K#&F/#>EXA=G4,P!<DK=8\IS4RI^<0;%'""L=+2Ek
M[,H.6RI^<0;%'" )$ ?D$ZD#& =E-!<4Z;7,]YI(Q9 H$ >]#% =FHHE\+6Kj
M9'[5"P(Y8)/W,P:8IX4G<%^KI'_5=#]C@'DJ#*=:> )! %W=DUOW,P;'1;BXi
MW([_@\:DQ*)8 B):4K[(&G QIBU"\"WW(RY.02ER %VK) 3?<C_B$AWTJG_+h
M)#%\<UST:J^ K !OO<V:K+67QWA#U#[F*5)2QW_V9UDP-$3M8YXBA>$,WTH8g
M&"[V5R8+^+Z*:=->RH,CSY<T+YK:IUDIN()]UM[\43Z,V((\<; ;.(,A*)OAf
M3)HZ89BIFKLR00<'NX$SV,77D@/U_+GUSGU#U#[F^7V>JW_5%-[A$J> K  :e
! )HZd
 c
end