[comp.binaries.amiga] v90i065: FAM 1.1 - serialize directory access in arexx programs, Part02/02

Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (02/16/90)

Submitted-by: Darren New <new@udel.edu>
Posting-number: Volume 90, Issue 065
Archive-name: util/fam-1.1/part02

# This is a shell archive.
# Remove anything above and including the cut line.
# Then run the rest of the file through 'sh'.
# Unpacked files will be owned by you and have default permissions.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: SHell ARchive
# Run the following text through 'sh' to create:
#	fam-1.1.zuu02
# This archive created: Thu Feb 15 20:09:49 1990
echo "extracting fam-1.1.zuu02"
sed 's/^X//' << \SHAR_EOF > fam-1.1.zuu02
XMO(%7(#%>!J-4)#6?0ZO<G`5;?DQ&+SDECUW75_=[E,4[*N(O_8L2W-=0WV=P)
XMV9)*=DBJSA6J=ES:>DHV)/0YS(T9$7@JDG5'[S8_!!(ZX(-@LM*$H-$=^K%P\
XMX(E1+&$T)U0^]@%Y,T&%='VX;UN*<8`[XH@]![)/?I25H0TSMODR&4/=O^D10
XM%\(;1<)M?XL"=A`FUI;.:TWABBMGM9QOEJO0F^NY*)$#M_)OZW*D\M4K\RT17
XM+9O71'XL"K!U8Q0T._.%*@.8(9-FSN;>B)UT^]U(\2W?!8?;JX-N2,:@3`;8<
XM8_H3>U&])A%Y4=NC]O8Y@LT2Y^;&#VY("9<SSB(K[.%T;Z``;"8@;75Y[XGF_
XMU$U&X_>&W$5&%48H<$8@7<$&>T&D2F5:)Q'<<B`W\Y,Z6<E/_C<N^9,T1H/<J
XMP_$;\5A!<3Q]EFUI7<<?CAAFB8>G6(/(`Q?D$S&%_Z:3-KRWZY)]?SL$L0[D;
XM,X0"/B<$BE.Y.`U74LXT)I%D]/4L%C?AOCX_AC@3O-,=A!1"XEL&IN5XF#&J1
XM<:0P$'QU?)YD,+,\#3,J2P$LDA,#,."7X6J70:"*:>$"[C[D11[O"S26#@8RJ
XM/_V`PV&1(*`$56"N9(1@"M:B91C?O]=";\`A+".9JE4J3\0@7@B&K#*JZ5Z<!
XMDYMDRR0XK2TG$V_L%>J&`/NHS*DP^"JI^DH$SGUNR.W=;MB>\)DCJC,E![AR6
XM"A`#<E$6RX47H0P"5;`H2?8_\25&12!K0)*]6BSO1H\8++P75AI;%=4=*@,DV
XMN;M8BX47*JGJ4UHU_99*8\`A)@>/$,EU5L6DK:(@ZUTD:;XB^G'6&L=I9Y\'X
XM@EWH74QT:@M2;6.D\0TP/FU*:DRK<`]GO6/;1D<26Y_5.2CVG8&\0$FK9+]2,
XM10+9=@TQP">&?"4;<A+SAJ=&G`:@1]PB-^O("X.%*,`TYSM]?&5K2A)0^JZ8>
XMR7/'/:LD(Y/P=DJ+WD2A0WAD*A.^R\M:M&C5'P-9WH1PD1?[Z;.2+F_YT:VG7
XMN0-]++]DK#@Y/"/;;`!M2X]65Z\LNXC>M&$<@MU)(3$172]%IH1*1C4Q.2]S#
XMM%0&MK1#!;C>@#[];,6;(.!8'Z&*'`0MW]\M<"(Z-1`#,K`$#`A>JB@'6864N
XMDQ:@%"JQ?BBO<B2O[&>`ZEB@HP$:9`F0ND.C75*)T,@B+46-M)9%A=QBC>D8S
XM>ABA2YPYO14\[!#Y2C)_34Y5%,5V.2I$-"$C<0P_;$#ZDJ#028^:)?'D-KD9'
XM\%<!N<M>,AB'"K2@![47!"J@;O`\Z@'\?#D5>-6\SFPS&)K%=``4"%$XHH2_P
XMZ"H[)#5T)RE2/U+;LN`L^H*LP!:TLN#FATK*#PG%H1`*G['X%D2YLQ4\00RD3
XMK0)SP^K*T;N#I.N&01TI0D"`@Y+`"T:&0-R^Y]))FMRKPPQ-0"S@`9YP0QY")
XM@I@(3$`LJ+;SXB@F@DP;('-A"5B*-W!EZ(`>6#=")!#IP($!%(2"'&`O?LPOC
XM]9D_F%!L'TAP1'RMO7@1*#B]6@@<B#!X`EO8!L%V2.!`3%D_R6.CM3&I(`S'%
XM0!)(`G.A&![#)'<N;&%+F!-M[.M8A)'@)("*>THRP"4B;!2=<^"Z$DMXAM8!.
XMX1T)5A%+2I6R\2<`Y;W1I7`H(O;0EB(;8PS#[)*]P"SD0%=H?LI04?V>BL0D_
XMR-JN<7J4P>B@MY'!`N\,#_$N8:!0\95GLL7@A6^X.A]!/,`B6J$_JHI7R(?3L
XMJ?9("]-`+=C%WB@0:?"H0;N@0CYV2"%)/"?J7&P&T.`&1(.%D`X=T4.XB>/A;
XMIT2(_"`+&]$ZR43S8!)N4.%0&%O"9324X9)$.$Q\ZQNBPUJP#:;P+!+.2V`09
XM(((32I6%$A*A!U/X+N'EN2@,UM-K.,M%67!&(Z'TD7U1.!+.=^@/!XY@1*T32
XMYU^Z@E08BJ9C<$FY"K$N\$@X&HN\8VD8C,)AAVA@_,H3`P-LA$)H<4(F`NN;I
XM7A)A$AT9`^/4%D)7T1=JJFCL!-8'?'X#=<@3>J*B]`Y"4;SVQ0\T0!N'YM"4Y
XMRS)*?D#SNP(ZQU\PA8'AAQQ'>1`,X:']3!XJLQ<]R4W!A2"N-@#`3?(2"<5UY
XMV0E(T>5!NN'"(C;#9DA/I^234)"0\"$B@FL:&&Q!*%C&2B8%9DE:VQ#C13!$N
XM!&K!?S!#$+@0>F!=X(H#@61"QYE15;KF*$X)\]=)YF&3$!)#BWDHFNA`('`C<
XM_,L6WS$K8A1["#28`B>!C?_E3S60W2A0N%-TB"YNJK*-D:0S!RX$^,@^>8*/6
XM\"UOMS]J35N(6D.1/(8/5,4JN`=EH6(F,"%>"\$@.0("W*?$_0(!'Z4``%RD.
XM```'#R"0?>1Y`0``PP````$```````````!,;W=F365M;RYI;F8`*@`08<`7H
XM"4QO=R!-96UO<GD@4V5R=F5R+FEN9F\`05-$1RUL;7,```"T`4````!`*2,H&
XM``#'00`0`(!!@T\`N`#P`\#``@`&$`0`XARX@Q@S:L1(@`#%=$`V:C@X8J-)#
XM@PT'"C"(#(S$DP?Q/#C`CP>`/^!D'@!@$X_/F3P!X.&A,^C0/_\.P.N)!ZE2A
XMFSB+]A0*=*I4H51I_L"'!Z;7KR;Y?7CDSP^`?^#$DC7[#Y_:LF?YJ05DEI^_5
XM?_\>X:M[-^_>N'CULL47^"_:N74!O/TC5_%8?XSY.28;&:SEDQ.,A!DS)DF2Q
XM5$&F$#FB8\P+-F7FS`$0$-RGQ/T"`2VH``"$I0``>`U*OSU"A`,``*D"```!3
XM````````````87-D9RUL;W<N;&EB`"@`$'7S%0EA<V1G+6QO=RUM96TN;&EBP
XM<F%R>0!!4T1'+6QM<P```+0!0````$`I(R@```$`&#!/H$&!`PX:%&!PET*%F
XM`](U%`+(21TE_`P2$"B`'2``"0[J,?C(H!IP`A&$!"90@4$]*`$X,```FD`*C
XM`FT"L""0)0`,)!\&\"`P@(JBB(2*X^B&HZ=_4/\9Y&%0B4&B`NV%F4/F3`LV3
XM;^ZT:%.FC0LV:<3("2,G#X"M74&`O0.";)LW;4&$85-&#AT0<_K:Z0L"10P8O
XM+934<=,"QXT4#5P.>0,GCYPT9]#\C9'#,0@A>4`$F4+D"(@D;L;@A8,W#)TR(
XM9"(#@-(W[Q07():DL?-F;AHZ>F0C.0<`C`@@(YP`$#$""0`3122Z&&%5A9!4_
XM`%Q$!Z"".@`93+[1M"BE*0XA34&`<&!QBODS!"A:'`["``D7SU4X8=%4A(@F[
XM3KCR#P%A>/`?18@!`,$DP$#3!@`2L/"@"`'^@YL`X8%!P'SG``*(A,L%T0YWM
XM`?KCCQ*`G&%`&``$0`08ZH070``<`N",?B@\J`((#)Q!A`AL`*``B!2ZXH\>]
XM*)X!`PA``"D3`ZF,5AH`%)CQ&7843,`'``4`@,!U,@F1`D@S;+E1A!.6*`D*J
XM5("!2WAS`"!?'<,1X`\)2)B0A'Y$BH"$B"0:R4Z2!,#Q#QA6*L$B`)P<)0<`)
XM1%:H`XIF%.H/&$P<AT(2("@J$"1"!`('!9$*."D@9C@@`A,@%%"JA6!0<]P(`
XM3`@YPA(RS5`$A&)ZV6L"@*KP*@04A?<'"#4ZP>>$?@9;XJ`I0J!I$J\2P&,8_
XM+!3[S:,6P4%C'2]\"8@2&,`G!2!@X`/"%^?6"(P$V)C!3W@)<0@(&20TJ8:08
XM"!Z%YG(5NB""$J.^ZD)X)GR+$#L&1?`0`#2U9)`$!O$DD`8&H6"0$%49I)Q`U
XM4AADA4%:&.2%06(8U)1`CPIDQT,#R(.0.C#+/-`Z-0<$W*?$_0(!`JD``'VH)
XM``!!%+9*G-:T````A0````$```````````!L;W<M;65M+F9D`&(`$P`0SA$`;
XM"4%31$<M;&US````M`%`````0"DC*```1XP0$V9.&1!?F+RYTZ1,&R$%RR@00
XM*"9-01`S8$P<`:>.&#9IQBA0T:*D21!NWLAI$X8-"#-UW(RAD^:-FSD@3.K<J
XMR;.GSY\F%4@I<T8A0X=#XZ"`HI*.DS!MRK"8`B?,F#(I4`2!\2)(C!0*B)09B
XM6G1APS9)ES9]&C7K5K`"R[@AHR`@W*?$_0(!9*H``&"I``!!%+=.12PS`0``A
XM!`$```$```````````!$2$XM861D:2YT:6\`(0`0@'0."41(3BUA9&1I=&EOZ
XM;G,`05-$1RUL;7,```"T`4````!`*2,H```5!"%#I@P9$#!BM#!21DR+'#!`K
XMB,D#@D@8.7+*N`'AI,P=$"C<>`12IR`;%P;KI%"@@`J:,B#@R'E#AV8>.&7F:
XM@`CCYJ#,,&?:A-$ITJ!!$#5!"%T#D\Y+$$&F$#D"@LV;CVW*M'DCA^*<,G+L0
XM@`5QA^L:!7?2.'U3A\Y.$'/HU!$#PDP:-C#1A!$KL8S&G02/)G6:1J=8.7/28
XMO-GXQDS5JRVRMG&!AF40-G/>L$#ZU(41(G7OPD1A9F8;LFC2C$'#&>;/H$/)&
XM@H5Y1B/8,'2.VDD3!L1G&5"D!#G2)$@*$(45I'$SADW)HR\SNF#IDN>:.9NC,
XM3@V1H'N+%A4O9G3#4D%`W*?$_0(!`K,``+2J``!!%-%4Y3]S#0``3@@```$`K
XM``````````!L;W<M;65M+F@`:6\`$P`04H(`"4%31$<M;&US````M`%`````Y
XM0"DC*```7ZA0H$)%`AUTYO3`07!@P01LWMQIT:9,&Q=H&C9,,.0-G#QRTIQ!7
XM0P=$C!PX;H`0D@=$D"E$CH!(XF;,&SEP;H:A4X8,B!8NV;`!(44DR3E$R\PI4
XM(\=.SXU-PK0$(:8,"!!FY)0IPZ:E5C)IYM`)*:8.3Y]F;H)P\\9-"YMM*LH9"
XMDR;,4#AU<+Y9.F<C'#EO[*0ATQ,$'31AKU:<,R?,F3()M-()D\8-TLJ3Q]!QE
XMX=(.939AQ+"QFE8.B#I+-U8&`5<N7;M7_[XA4T<STM(@K!21D@5$F\IIVL"VN
XM65/IG#1M.7=TNS%SR9<Q9]:\F5/.SL([KZ*0`2-&"A`U;,QH`:.&C!R<JRP%H
XML;HUTQ8;7]\%3-LVB#MI#K\Q>S6,630WI:''3LBY`<(;9K@$DTPTV:27=6=MZ
XM-`<:=@U5%0B"E7$'=DC9]%%((Y5465:5/5:1&R6%X89/<*1AW1AYN*#10T:HI
XMY=Y<=0T5!AQPL)'&&`2VA12"AJ%A54035=3&32TMU113"L:T$7Y"@7"&=2B"M
XM``=36])1!VRH'?EC&98II25@@A'FTV$[Z;!1`F%\=X5586C%VE?Y%0;"'&]4D
XM=(>1=K)G8![[F4;&&V/4<>)D\#V4P%6&%2BCHV)\E\5^>Y+I$VH@A,&:1RT10
XM>1B=//H()!V2OCF&I9C"(56G5SDE1Y/"5=DI&;^Y$=98!#J%U597L47'FY"63
XM@<<86X'EQAD@D%`##),Z9%`0_]VD`PA0,#4K"%-PMD0:=KR!9'YZ$/2"`@H(3
XMM!$5;YRVWJ@@($F114QF^J1IA-;A&VHI"H7H=0>Z896H1J;VD%ARU.:E5G-P!
XM!L(51AKH:;P2^4;OMI^NF%^!(!B[ZQPL%'FD1(T:I&2]3LIZ7QI51O3&&EBI'
XM);+%C#EF574EY;OGEG29D<93#ZT&+Y!5TM&N%&6<P81$35B$=!P.)Y$@O(LUJ
XM]IB6-XEXVWXKLM"<D10G>7$>":0,)95#=8Q'&+E:!>_2933=1A-S,*OS''7`B
XM47("/?[LDZ<Y80:ET8+.3/10A".M---.EP'UC`9)/;.\)V]KMFD^KX@4GQ4=3
XM5N*!HYK&IH%,-/'%$$\XL3<125"11.I?!#'$$DX\<0431<24>\CYK5REL)FN\
XM"(+.GE9M,V=4`%K&WJ59=3>`=;#A$W"HVB6@VXC=]K/T*Q]69':>L5%'&=&NU
XMF_V>8QA9T56)N5L8X1U;EA?VV<%+^=CVRKK1H68"KU68,VO,^I9V![G1C5DH6
XM^-./T#`\3.&M5'E(@<.2%Q8)I<\B=/+7'9!B/Y)5KDE,41GA@'<'RI0$-YY">
XM6H_R,"7$I.]3T?/)A0@3!C)TA3T)8HO`[A.&K<GA,'#Y7%;ZU,"\=$IO?C%5/
XMD-PPJ7,I`&$*`P$!#5@W$.Q!`64;2Q2;5K.KL:$-7VA#W7:`Q8@L*UY@-`-H6
XMSD#&/I`17>IZ2/C&YT,T?D&-CC$7ND9`F,Q9I71?8(+MOM"$(C3A";PY7>I8D
XMY[K4@2`!,,`##"9)R4DJ@(]E\*,438<Z)S#R=4Z(W>QJ=[O<'2%W"4`!"DX0F
XMA!/P@`<RH$$*^+#**;B2!S&PP2Q7281;XF"6)SC""5(`1VDE($QFB!X(^E@9X
XM,_504&XJR$:^"(>Q@*`'($!!Z9H`A;%\)PC^&H/<4#"%ZSW!#-NL8LA@P(04R
XMD%$%3L2D)LNIAS*<,YUG*-OU$(0"*&I&BHR;6]V(*<]F;I*;8TE`%A/VSRE:O
XMY(`@&$A!=UBZ*3B!;59)@`AZ2(8SM.!^%_&1&*PS*Q$4$RIE4-'GB%0$.0#&:
XM-$A;F&4^E2MFB2$,8X#9$-N0E,45L'%QT.,EF4E1TPDA"$1P0A`*F8`6Q"`!9
XM`EEFWI2(JK8<*$$X6PM&(WJNB?[1=+4K9!.:*@.HJL!B2]I6A?Y550.9X3.%*
XM@2>ZTE60NA8$!#72X.=\)#"DU%!-(.A."XQ0!C&T(`<PH$I+B%`GK1C("1HRY
XM3+L>B#,L2G$GJ$(6>%R`AY`%P0E32$+(RD"',3CL*G9-K6I7RUJ[.E$!QN*)K
XM'`SDSY(P(0TCK5-+5.#0-@BAAV5X(VSQ(%L#F9%9BNOMTU"0OCI%%%M9N^CZX
XM0K;-;IIF"JY"ECOIJH`=)``*T=UJ^P#W!L')(0&$\Y0;HH<XIN3J.CY!V.>T_
XM\A>ED`E5R^JN0F?FAJU>]2KY,DU6":?`%W90;&D%85/&I-]'H:U3=.!)&ZHIC
XMV>#]C696(Y]^L8M3R+#'KU@S;X55)*B-6:^>/NDM%S,L(S)ZEV&/2D."WLJ&L
XM]51$14@IHFE`H)4S[`I"'*-0CJM"IOZ,`5G5[$F+]SN$O#B6#ET)&;S:<D,>-
XMIY1/!M+Q5;02!SJ6Y`[[X=Z%M`(?[SY*#6703&':)V/T@BUL\TIP_J"4GZ6PW
XM(4%8.A!_$-1@M-8+!6]@8!OR$(+OJ`5>6>WO^HIHY2XKY2P@$'*GV%#F_6JE\
XMABTALH%ZO"NF*!D$R;/*'`<V-;!))B\"\TG'7'J3/MN$,*PA\87"M*9V$4:V2
XM;;L/&EHRM`IA!:YD:+%0PS48$!"A#,D-Z'*;:YJS@O>'TBW#=M7E8F,C.VG*D
XM=5QWNPN"*JRH7?#*I!G27!(B`4XK@MD/4I+]TS8\C3.7TE=H^"0^GMPP)\=!I
XME5.ZPNTV\"O613L?8,QBT*HT[RH>PR^SM"R;*[$MFS(;0T2.<\91<5ND)(W@[
XMMM\93QFO*)-7J=T7H""%(!RA"2^A:PM6SO*UW*166*E#3=J*%);;_.8XS[G.P
XM=\YRN8[@+XX13KQP>SB`MONWZV&WW)YF$JN@!`8RN"30SR!TD1:]MTBWRK&5V
XM#E00Q!($..C.)34EX[D&!-RGQ/T"````````````````````````````````E
X;`````````````````````````````````/R#_
X``
Xend
Xsize 45882
SHAR_EOF
echo "End of archive"
exit
-- 
Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
Mail comments to the moderator at <amiga-request@cs.odu.edu>.
Post requests for sources, and general dicussion to comp.sys.amiga.