[comp.binaries.ibm.pc] v01i064: touch, program to adjust file time

maa@nbires.NBI.COM (Mark Armbrust) (12/18/88)

Posting-number: Volume 01 Issue 064
Originally-from: maa@nbires.NBI.COM (Mark Armbrust)
Submitted-by: maa@nbires.NBI.COM (Mark Armbrust)
Archive-name: ma_touch/touch.uue

[ Archive renamed to "ma_touch" after the author's initials, to avoid
confusion with numerous other "touch" programs.  Includes C source
suitable for Microsoft C 5.1.  Program works well.  -- R.D.  ]

I can't recall if there has been a touch posted in the past few months,
so here's one I wrote a while ago when I got [ticked] off at the one I
had that couldn't create files.  Last month we had a need to copy the
access time from one set of files to another, so it got that option
too.

There are a couple of switch differences from standard unix since it
was written before I had used unix much: the sense of -c is reversed
and -f became -r.

usage:  touch [-c] [-r] [-d mm/dd[/yy]] [-t hh:mm[:ss]] [-f file] files
           -c create file if does not exist
           -r force access to read-only files
           -d date to set; defaults to current date if time specified
           -t time to set; defaults to 00:00:00 if date specified
           -f copy file's time stamp to other files

Mark Armbrust

[
Uudecode as usual.

checksum     size (bytes)  file 
    6098        16881      this uuencoded posting
   41802        12229      ma_touch.arc

-- R.D.
]

BEGIN--cut here--cut here
begin 644 ma_touch.arc
M&@A-04M%1DE,10`E)24EN````%418UU5<-T````,(T"T";.FC)DT;,J`,/-&
M#@@Z;^J,00.BSIPT;LZ`:#)E"(@:+F(T4#!RC!DV8<[,Z='B"1X0+;20@0/S
MR@R81)@D<4+E2Q`I1Z:,;/.&3!DV/8225`!1(AH79?"4T9&@Z407;\2H`4$"
MA4XA*;C,*4,GC)PS=K!J'9F`#<8U#R-.7-'U:]BQ9<^FS:KF19D7;MZ4V3%R
MI-6G?*D>=C&&[1@V,,?`#-*5J%$V*;BB,(E29>;%C14`&@A43U5#2"Y#`"4E
M)24E[`H``%418UUGI"P7```,+U3024.'31D0(.B\J3,&#8@6+4`T#./FS,$V
M;\BD,9-F3)B!;]R`(/.QS!P0(4%P-'A2Q8L&"F`&!#$#Q),Q"L64D0,B1@X<
M-QY&;.("1!`Y;<3(J3.'#@B7,E6`D!'#)LXW.GGZQ(%#*`BB1I$J9>H4(H@P
M9,B4(0-"1`LS(E#"`2D2:DP%`=V\2>-F#)LZ:NV.X.L7\$$>336^<8'&!\S!
M??^J!<$#CIPW8TS.8>Q8`>3"DWF0>;.Y<53"DLO8A6EG+]LV8?BBX.N4Q42>
M4E6DV,':-8@J<\)81-$Z#9G=,&F#.%*&CI,Z;5#<?OH4N8+B;*<T-Y+&()4T
M;<I(1Q,&MW7LRYM_#T_<]7G?S.EP]PY>_'3=O._23L`_0=./3('0`P@PY+=?
M?V/(449)`A)HH!MT])>`@FB%Q$8>#1:8'(02GO$&'40P.*"&"AS(GX=TK'?0
MB/DUM11.">P!4P(F)I#'@G+D1R.'_6$$(1HZUDA2'D'RR!\:"^4X8XUM\%4'
M'644&6%_<Y0Q1DADZ-A'?V30\>"4_`TYQQ8QR-!%@WO,$`,+,N3`@IIOPO#F
MFC/(">>==M*99Q_Y]68<"+#Q!0(*Y9TQ!@MGR7&&'2DL:60"A8ZAXVW]J5"H
M'5MTH:.,=R40GXJ#6K>D&8-&*N"`,:3P6W##B:I``G>@T=U!*$`4J:J<\K?1
MH"BHH,(**UQZ*@@GM'`""'SP\92EBMHQ[`DOG*#JC)`H8(()@S*[:`IDGAG"
MB"!<F^VEW)HY+`R-OLK?''<0U!"OVC+:+:XPS8A@&%42.\8).MC+GT?YGC`$
MO_[^2R&4#<:@HX1*+;A&G^K^B^]!)\A!<,0)`$RQ%!=+..&"H[EQH8`*%YQ`
MPV$\7"_&&A-+1L?W!DP$S/WMBD((MBHZQK2O0F(`<,*)9YW'P%X*L<<HAH@P
MJ@O73.K-**K(<P(^=\E8D@U:W:0;3ZXX$ATN5'FE&VRQN++'6H=$AT,#QO=<
M&Z4V.[2$-J?](V4](:NLW6N#X$-/,DSM,]"M'DWWT[X*^RVQT8:+;>+-@K!X
ML=*"0.W/K`IM>'_`QKMYF&`/V:#;T,6];=.Z/FVUZ#SDG>S7+HC^MYA;\(U&
M"S%T(3CF0:/@JL<VAP#YMI;W;`#**G=Z>+;Q2CX@M,>*.[RSDQN[.^&:GRUA
MYT9KSR78-Y8W>G-OF\XHZC2J#CZ.>..`;O%4&V!U^#RM,*`,,.2/?MWKB\_#
M@#G(P>[FQS[[]20'^C,9_UQ`/[QMY7V7PY[O/I<^YI$+?H/+W`2]QQ_D?:YE
M)Z`#S3(V,6)18805O%G.#'4]#<Z-<\%J%@6C5I^$4=!J2*H#3]I&OM(12F[[
M4]_5=(@W&.@-=CGDR=]D,(,6]NYWR^M5\R:G@\I%T(44Y)X,.9@`K3EI:>EQ
MC@_)%<1!>9%K"&N=$5]WQJ[Y#00U$"`&>5<X+@9O>KOSH!T1-\7G5=&)=50>
M##W'1:N)#4OC$R/<?G@Z!0KQD&0KXA$-:25$_BV.@,R>(%-G0;G-48)0[(\>
M-PE",XP0A$:XF,F*MD6,)6"%DMJCZ<9PKB-.[UG&LF7S>O"\:-'+>&:P#&V>
MEIB=R`%1(E`(0]"@@X>02D%QJ$,:%'22E93!#6$(#Q?<((*A^:P,>"`("FC@
M30/T@8OQF4\90-4K,IILE`53BQG"4`<VT*%?K@0EZLZIO#*PH4K^THY\9L7.
M>$&1GS,")T$&]1\Z,&5H"+T+>K`7JAGE*IAR&"9#Z:`6.1RS+4P)6C,3LI!W
M;:$%8SC32>6@TA:\I@TO2,L67I"'/'2AI4Y!`S/;T(8MZ&`.<[@I"$Y**FN>
MR9ISV&8W=811C:*@F!Y%)@@@L0"42N1@![$F"'8U&I.`0"].46A3E#JTID*(
MF!PUIE2IV@*>F.$-<LC,6<:0&:"2%`04(D,++(0AI)*5J<(\ZT8[^M&XL)4M
M)$&80D!0)2^-I`SSK"<=3K+8,>A001`:"8-V-9#P,!8.5MI(&M;RUQF9E0YH
M)>Q:J^J4SAYDL8W=P6,C:T_*OH%`,-!!_G1K1*XR:`Z@'8-H2<O-L@86M8-5
M:UNF6E5270D.?9W5"2A;P_^T`0YW_1`:=J*2626UN#I2J%-0D"HMK6Q#3B'=
M(LDUH_L0\E6Y4M`9TM`4[BJ':W`SVZOD2U\H\40YL>Q4K&8UJ$'1<D!X]-OS
M8!`];-'R?\3*0>5RE0#\-LC"4HF!$5<@D8<0B\$+T^*B%L;/CSE4#B+!KWGO
MXJ?L;(>@-42!-=.5,?+(@3\JL.:F9E0'-Z0A)5(HPA&F,"$I]8<\9#/(T>3`
M&!>$@6T$PL,,B+"#!,SD#:`5"9+)8!"5P!4$=\@HPNPRH2:'@0T-0D&/YY"&
M,[AA+1*QL:I0D%>^@N`'!`)!,\L[(R;C(79X2#-M5*5C1W&4-(,RP4<5/32;
M^=D%8S`#&X3C.+RZX,]A"#2$:R*N!"T(2K_D#Y/1X&0HPT#*0ZBRE:7BZ9*\
M`,O7!,&6NTSF,O]Y#('6KZ@O#6A!0XC0LUH8;49S$A0H&E&,)O&H!O7H2$_Z
M#*%.P&E3J]QDEI29$ED(&]@"UKG6]21<$$$)DBH"V8H`43->&+O<Y1`Z\SK3
MT29AOF30S&DG-ZIMT6JWW]IC,KB@M*X<9<P.,H-Z'Y?:^!8!'#[BD'TOA&S_
M!N\[*92\@8.`!@;/J&"?FM:$*^2VL'$#AF`M$J1&?*D3=UC36E:#C#L5JH4-
M`UTU\U@?K^7D+^P@Q9LF3WK:4P?VYKAJ0>J&->CE#B(Q)EQQWK02^X<.`#K)
M_1:FH!.[0=FOFK77'IWI);\[UU&NP0U@H+!5,[8YW>UR8LOP`M<^Y27[Y;48
MP*YU'34;["C`(=9XT+H8I`H$',X[V+;F1K[#456!%WS8*AE)#O_=!W_C<]S_
M3`:\*[Z!$7F@J@POQ\#;CC*MJP'B83<D*1$[T8N6P^]&7>H,2;D(JIZ)7TAS
M$*V_O<]RISM%N!PE0Y_>V*F'Z'FO`Q_UQ)C&N>KQCT42Y"'CU>ND?K+K91"$
MV$LE/B!0VD'(/&Q$`Q_9JM<1`<4WH+N+?_!J@S+KR0"D&:TN#!@J?Y.Y#/W6
MCP@/,D@U?V:"?5!Q'T*_=VSA$G[N!S9)U""LUQ#GYP*$!T8)R`8+"$EE8VFD
MQGXKMC+HD4XPYEDR-BLT1BD)D&/!9E$\YF-`)F1$IB2O8B)U=S9<!W:G-F7Z
MLW]207*RMGM=]E8\D5>W-WF]-B"S\6MIUWLK"(#>)X#)MFSN=FN2)AS1%G0P
MATS*U!`C]1;95D_<]B'>1G/A-F[A9F[HYH'JUBYT\"Y+Z&1X$&\M0V\J<7#W
M5ECZIH7\!G$`YS$")S'Y4G!MJ''()735MG!]XW#]QG0IES(K5T(8MX<OUW&%
M]7&`0A$CEV5#N!EUR#`[YR\LYW(;%X5M(7/?5G.CY6^5*$J7&#$])UE`YX9^
MF'`]9G1O@'0@H'1,-HI.)UZ#0DY8EP"V)W^8A@=>UXNN)W8S.!,6X11:M79M
M5T-D]FASUR`M6(2'5FQ(2("=,GX\@1!`>(:5YS=_(T?8<FHW8`2C]T`+Z"-]
MDV:/MHV0=WCA$F4P8`0+*#H(@8"\MHW?B`<Q`(\%.$37B(Z\AFO<V!-_=X_Y
M6(Y?Y#5G")#K*'KM&(/Z^"J4-#83F)":UG>J<H\S\)"X%WVF]GK6)Q%L0'LW
MF&3;!W>VY@+-."#/N"/1B'K@)WPLI@`:"%1/54-(+D1/0P`E)25Y`@``=Q'2
M>'Q0.@0```QUYH0Y4T8'"!!TWM09@P;$EC=PZ*1YXV9.%Q!FTK`I,Z>!`H\0
M)5*<`R*,G((>/;88`P*2`2=OY+0)PX9-'H0*&8*XHY$-"#=OZ(`8<S(,G3(E
M?U)L409/FCETPK@1FG&CBX-4T#P%,8<G'9UCP@3DZ+$E@C1"$X(@\X;KFZL@
M4&3=NI4.&J0G[921,P?I&S,([^X,<]/NUJYH=6Y%(Y7,1C(@Q.0I"PE!'3=I
M\.!<B,9%BI0*6LAI^3+FS)J%<S;D65.IT#!FS)09([0HF184;6+4R!'N7)*(
MOS8,.Y8D6LH(U+)U"Q=%%<R:$W(&43PPTA:`@^M4WM;P',^@6T!NT^8%&3);
M7N3)<_$@3)DT=4O7V9<.2;M(JW(\47+,&([WI=$&1SA9-U0=<IPT%4("EN&"
M2D*A@88.Y&VAPQP6'01"5APAI=U=)(7E1F1(C0696O49&(9_`#(XX'UM2369
M`BU!0`9':9P$&1E&(=68BPX>E`1@N14F&(]'@7`8'+.ED5$99+!@H$0#(G>C
M&6*Q85^!,,0%`PPZ?!EFES$IY4894M[(I!MDI.'&&2!09&";)]$6TTUL/'64
M',B9F`)<0\;IAGR"48G4DDT^&:6!8R"HH%!('DJ2B0]^%!I@^K64@!1EA$'&
M?8*M^!^&0&(DQQMM@'""?OS]6!U:!::(7W^C=D1C988*:N`<3([A9!I0[K;1
M=Z!Y!%.2=ADU98-*DF2;H/^5Q*9U(YH8:QEIA<HBJ;G*B9]'O"8*+&3Z?8>5
M5B2=D89>H):1:GR[AC$@D%*>=(9)CK7X%PAHO'$'"&Q0!.=Q"D2U!H%J-35;
M'<@*-@:J,[%9*1H(5$]50T@N15A%`"4E)3(A``!5$6-='CVM*```#$VTM`)0
M`8!!$`#2`?CWCY``0`8!0`!@18"'B`$`0/JGD5Z51>P&L1-@!1T.`H/\$`A`
M9T`Z*`+0D1&03HD`2``&&3$@8)$7`XL^`/K1@DX#GT"%_GC1,MV(GC\7W0#$
M)V,=EQ4>\A$`H"D#`8J(!,#4@PJ`J^D8!/#C<EJ`'D.Z4NA!I.N('D;.NAST
M5DI7!NLZ'3,@!D#&=.0"X!Q,QG!";8H7.B%P%1VZ`#IY#C;C>)`/-`;K+%@!
M;)0>!*/PH+:#X)\=`^A,"!A$3,`H.0AZ9.13H`<#`&S1S0J`-*BB`XB,^./!
M]`"/H@/0>2+^\]^!*>CJ8:X]BD[NW0P6><`=;5R.0Z#[1-]#/>E0O>FNM#>.
M7#ES.LZAH\O2WCIV6-O9!D=N4`#0AP&!&#`@-`=X-N`8?R"H(`)L'!"(#P/R
M<H!ZZ)PPGU+P#1!`.K#X@],_DU7F`&8["3`8:!FY!IL7`8["V@+`\-;#!<!%
MQPX`Q2FE0TOH?`-D==>A8T.-JN&HXPX]HD/,D>[]`!\H5`8UU)#1J4*E?Y?5
M>!J.ZJ6CQC\]0/F'2V7\D\X7_^"4F0`H$D"'!$$>E]QR11'`7!T8X"($`%#@
MXLL`4*!#2(/$$(`+`82B(P]*M2'USPWHK"'`.C'@U,,8\/G@3P^-H:7$J)S1
MT4H/<L`WPZATP/>`F[OT8RFFNN146YU-O=+//S:``0`ZHE`J@!>+E-/%,+@(
M0JBAB*)S`:..+O/LH8DF0"TN^%P;[3X&T.:HAX5BBTX[X3:*BQL!E!OM-^DZ
M&DN[T"8:3;RX9)3H#\8.@]-'(;%#P!56K&#/.AT,\D\.?YRPB#&+(!,-.!,/
M$$S%Q[0``Y#P^$2`=1[3A\DB^"@,0Q_4/.S%%\DN"[!($!ACQ#P]>-98`!L`
M<P\VR<FSB!$$)&($/HT8(0\411^-3B;QIN1/5RJD),\`=Y#@66%==2#S/#P<
M8X0]!OT<]-!)(VUTHFDT[<?3=&#AFJ/FT&LN!>D"970/7-%100\#=(5"#Y#2
MD4(/!4"-2Q.;$H`3+@4(X&ZBZ10@[F#"<M4RLQ9L:L[B)VP*SN)XKZ,-3C_+
M(S0\7LL3P!5"TQ/*:4!$@\\B%K`6RP+3B#.`,+2K%DL!N>\NM#VA#!A+`M.`
M0SMNOP<OS``&>-<"`'@(3?399:-SB^2-;NW#S_"T7G;VGW!/P.4OL^/`UBJ,
M?S8Z@YC_LSVC#*B($?FH0,YM"-R/3W<(V!H+W*>T+ICO?O?0GXWZ][74,#`?
MID$`^D`"L]0!H`=BLQX!$V4"\SFM*UEX&RZZX+AZH2,:E+*;//`F%[YUY0.`
MZPH("->5$.`"&9L:`"X`44)SG8)2!%B'!'`1B4VY8W&BV!0Z%H>+38EC<9!*
M5`!F4RFCG<Z"K#,"/3:(CE4`\6?X.-XTT%&"/P"@`!JJGP2'UCPR/@``_`-C
M"3X`1^_,[W9CG",<67-'X)'12@Z<W\1*`,C3>`]\XL/>^Y#P167Y*R%/`0`M
M8-",$/!``',00#-`\(L%],0&7%G!/0+Q-`C(80"^D(@^''&-0!###PS8QQP@
M8($/[(<`,P!&HFA0`%S\@PF5'`0Y_&&#1)C`&P(HI@FTT1-CQ((`R4."#4:!
M#0$,X!Z)`"4`&#&,%7CC'MN@A1(J:0-&>.`)`[#``?CQ"QT8(!>`8,`*GI'+
M>:BBENB`$CZA0`!T].$?,V@'L.`P`&"YH:`V8$-TI)&/1(D#`+CPI".P@8N^
MV6`PW!``"0Z0J&Y$9Q>.X@@4_F&!C$ZRDJ.(@@X!4(-*)L(#?&.$`7XP``=\
M`!<`*($NA&"`2M9R$0Y`00'&X0)'&`"=)EB$#5@`@&(80`4%8(0V9K`-&_S#
M`QV<0P%JF8Y7#,`&3G5!5+6Q"XM>M8.U-"I2@<K4<=C`$<&8P3],`(@>=(4%
MN?B-+V`P@'F8@@X+R,4__I!+>;BB#AE81SD,X($#?&`1]_@%%@;`"DQ$@A7^
M``8=`H`$58CC'K4$*0``<8K)_@*G1*BD'!1@#V$`@@X%`,0C)@N$)>3A'+Z0
M00%^H5MB`2"WN^VM(@`P#(#Y@@P&^`5R_?E;W?Z"E^B(U3H&8%Q>/K<`Z.",
M+ZP+738,JP`#P!%@4P*I.A3`:Q\#0"[>N(O"V>,0DV4)`6CA@TH.01SR0,<!
M@`0T6@`S!$`5ZC@.L`NNG+4`'BB&!?B&TQ)44B@^T$/?C.(!4.QA``KFPP!H
MX>`0?&`8.[C''!3PA"<LH@'CL,<_HK$.>8!8Q`X8Q#O.5X`%%$$`=)#'/SJP
M#G<,`P"/,``@!J`+KN#``BH5G%H'8`*C,E6F+<EE)G(Q6KD:]K#[.,(1$N&#
M4PKV'X:]1S06$8U?9,07@0"`(\Y)61Z`@`[[X$$"Z'`/'C2`#F]0@&;7<`0G
ML,+-=$"'G.E`#CO3@0MZ;AL/1$`'$O"`"RT1PCK(,8-D!.'/D-;'HNE`@`&P
M>!J+N%@Z)A`-5`2@#LI81P#\;.@5)/H$F];%HR.]#G94^M*SUC2C.\WB;80Z
M&J,N]:FEL8Y+U)++"AW`-91]A&B<0]F`$(<_5B".11!C%`==!#8&L`]U%O,'
M0QA",6QP2E+X615ZKH,^T`R`M[)YNKE4Q9_?'.<YU[D!:%D$`-+M$D*T.Q'@
M'L(BKJ$*5K\9&X.FAJ'7D.@S;-H$LQZ`*B9]:TS30==T,``LN&#/=41CX\"V
MIU9A(8*)%\,(A[@&R57QA)2S^LXN2+0*-NV*B$_<UI:V.,8USO&)?YP+(5?%
M'!JQ\G4,(]ZU/,9^A_640FC6`+A`P&/X,=<A`\P>!A!$0>O``&-DO:"Z&,2&
M-5!)6IC8"@0HA#1@FXN)T,()E<1%*`:0R5Q.,&`&(%C1$"`TJMNAGYRF34_@
ML?>1ON9MZ.`-;8""C[>51!M?/,;*+O<OD%CA"HM0R2(*L`@2+J()YZL"4.H@
MP3XHH)*8]X,!$E&`1)`P$:!/A.@30?I'%$$!<L#EP1"`CAP$P!<9V3SM&?`%
M9#D2``##!3\B=8V<^``9@?N8!:#ORT@5`TB.;&)"\K$/*\S`'KD8E`S(P0]6
MR``<XM@'(#QB%"G](U^1\@1$,^*%XH*D"FM&9Z5#O8AT+"(?``%GI4.]B'0L
M(A]\21;98`%@@3TZ$!P9,P'(!X"'=`S(<U7$51U]12X!(>%O4;]HY084L_#A
MRJ\$`-#5:?!ET3./`_`E<@%G@(<#CKS-L)=DW(1`/'8,H5,@D1\`18JP4J4`
MV$5Q[1(Y`4"RRZ)R78956<3.RI6;BZP0\,6C0*L=PA`"L42'P:49P'+]^S=Q
MT;UUZRQ]\7*UBS`!`+:RN_+/#@%TR_XM`$:'@J1%^N#*I>OJ7K0DNP#3`M(L
M1$NL?P'(F0"W[[`Y^*"@PP``B^DY!]`Y`(!K;B;3,LBA"P!@F"@J`Q20JS.B
M890!`^0TX"%BSG(0<@K`*K#N`"0`/";8$0!KPBYE!*YA&I5DP#!%Q-;=$SR(
M'80K5@2Z&;`"V"@=!D;Q,+"N!2YO!$#Q#PWH///`(,00D(@1^BQ&QP("$I@*
M``@2L$X)`Z+S30`("K!8'1T,8HP`@_```!T:+,+!/P0`\H,(=123H3`<$N,A
M8^/4]L\Z;ZR0S"(^[+<.`8OT(4`0"_Q3ATQ.P+-(,-&`4P!@JM'@0(<+\N/@
M-*/,MX@1\(S"Q@!`"OG`=8MXP<\B11TPB!'\"%"DATJZDR8_QQSPT#H2H.G!
M?HL<(8!^!ER!CC<-=%BF`4G6<4Y]7GR6U77LL:,`?(O88<`Q1MCST").6!C!
M=8#PP`4=#Y3Z`AT*E*H#44[LX$P=[+A:1P5?$@#$#L;0T4!AAPU0HP#IW`,`
MJ::RJBI1MB:PB#$K&*'K@OX`BTXL_"B*3Y)T,!,*?EGB$DZ`AFZ3:((?#I!.
M(+2-0RXZR9Q+@(-RE'KJ"J[2P1`/JX9@:!-7VKC@O(Q!B$XC%-KHX!$ZKK/'
M=1`#8*@NYPHP@!'^`*':`A4OV"!CWQ!F1[6&J6;+N09<[(]J,L@;[<KH&)'P
MC77(U6E]JB60K8V+;/L/'>IN\<\@?GA:A[H8#.T'/R<ZJV:@`@QY72C[J1;%
MS)!*JA57[0E@!2X$`*":(PPH"H]!=130,`FY)D+`,40`1F&0!C2]B`?@WA&U
M@C;LEX@-^$%J&J5<LT,`IH891`<,ZYQPW8#_U(!.+66C"TP?#BRB(,9LNOVE
M/XD4,&>CW2Q"AYQ\T%G'-)$.'ECA!,1GV#\&\$-`(/[8,D`="'#J#QS\,7`=
M[K[L3H+O?"A@#Q$&,%!'!HMX$\@ZK@P0RP#3[+/(,-&,,P`VW=MS2*@!T$%`
M?>O4\&P+U5\_#3Z+(!/E`%!*&6J6GR="A()$JHD+``)(A*#T)P!C'"``@&""
M`02`"][P!2M;8T?7K$"TL-%A"X'P@P%T1X<#9-``Q:N#'=)D`$4<X0"84`T6
M*G<C.I#A2P9@G_6P!S_Y@8-^42K`_3!6&`.@(Q@*4)07_&%``!Q#4)_R@@$6
M,8_ZN$V`%E(!FI08B#\0`'@=K"(!DE<'#)@0A:KIQP(ZY*`$]!`=?@BBC1Z8
M%<'@@@P!0,<O$(`X`S3"$)[PQRBXL$0C(&`4"LS5*("P*0-8H6Y&-``5$)F.
MU)6J!$!+!Q8$<`P#8,$`O*G/*)"0'^:-0@KY,4)^H)`?)^1'"/GQ07Z44$@Q
M&``$```$'P(`@SKPP`B5="4,`+".&91J!2NA'2<K:<H]B0!9(%C)('S`20#<
MBG:F7,<#:*?*=22@5"VH0S1HQTHC*((`*41'/=RD,*>@XVM*5(T9R$DD>"Q3
MB0#H`P.X:8!0*/$>V!B%$DOE`N+0CI1&^-HE5<,#=B["G3ZX9#P54,E+\N8?
M#B#E-S'1`YG1008]F`H=:M`#-)P(!#U@@S,+*4K`+%.4SBQ`J9A0AP`8H53.
MW$`Z$!&`2HJ2-^L8ATT-``%>;F.G".#E-"::"$-PPA\]*,*)%-"#(YRH`#W`
M@C/-:`#F#<*H_@#!(K#:@C$`H`<5`(`=U$6!``P`&)-PP3].@0$)W"V0'PC%
M(A/A)@,HD%AI",#C#`#*2JKR(;A0@-C0\8=AI2,*>J5-4-<!C[VBDG96]0$I
MIUI)+6"2E]9)I&4?\L]"7C)L)S4``HXV4P!H4I19RH$!E$B'$]C3`%E:)BN;
M5DEX\K)/%'*!$@OPVL4829-*'(1=%XB+GJKF'S/#A0X&^XP!=(AH3*.#"&1;
M-SK@"DXM*```],FHRPD`N/S);&T1.0@7*)``Q1VL+V:6C@_\([WI>,$_<(8.
M<00@'2KXQW4:R,MY/,X61T5'+HB5@:'Y`*5`>Y83%N&/(P"B!T]]<`GJ4(]%
M'&,%QH""!ZR`CG8XEQA+O`=,(\F'?BQSD<[,PMT(:8\CO)(.3VA8$X@1`7!`
M0!D1P#&.J5%C"/#XQQ'@,3(@0`\(Z,/'08Z`+I+,#23SF!816.8A3S2!$]>M
M#A!8L0%:_,HZW&)(1EA')J:VR-9!D'`29`<&X%-!!9B/=J`,K0`Z&%H(U,$"
M;UWB`19QA0#"*1%6\(=PS[L.%2P3E">*0)X7<8`L^6Y/#O!3(`^0B2P!6M##
M)9$/_NJK+VD)8T3)U3J^:Q\P+-$&?#STE0WM!W_$DP1MKL,%C$&`%AC!TV'Q
M!SX'(0T`W$,;E@XTI_"!TP(,^R&-,`(Z>@8LD9&,'^C8!SD1L,S)TL%?Z$@%
M.>7D@$NN`!E2H<<Z"G`=6L/@UL%(PF+^4(]P+\(!S%-$`1`QKV1TD`=AX,,`
M`,$"$!C!P7U`;AW2H6IG4B`4G%R``4SY(*+A(Z7\'35]94&B-6H-S>UY#P7]
M8$$*^((WH5#@@O#!""_H8]`+3$<DYB9*.U]@T7ON\\@!??+A6J@"DM:SI8U`
M<I.C7-,M7\F7ML6@.E``%^:P4`*@.U5<M&-S/=?'T,.BCP7)`]#T6($]<F`#
M4M*!`^^^Y#HB#0!B>$$>_S""/!CR@Q-5P`BR\@,$UM&.ZQC![&A7.]N=.0\@
M*7$%@O;!;.MP`$-Y8%A6*(P^"H,/=+RA1@:@[HD*CPYA=<C,;81=R&&+L0J>
M(2(5/$(="`"+`(Q:!<!`!)RJ?67/&J!N@%C:B1*5T-8W]++_L`'S<G])8.6>
MCX6IE@404``$M4KV=)#`,O]:AR2AV@#_L(`"BF^CY5=7^;5WIO.!;P$'4)]$
MP^V=`4S]$(0S:N$&H,,$@A]]"'S?06K#*:E5@X``F$8P%/3!E.OP`BW_XPD"
M@`<.H`C2L@@W\`\'0&\J0`[KL`#7,076\@\5IRN$1SN'-&Y[56:3\CII)@!L
MIG]7%A")8P]^(`3K4`&Y1TBYYTKH<`P3"`2C9X%+9`Q.L!A^@&<>H((`B`?;
M``JNM`@_@("(4``+N`[<(&57MF?2$@"*M%I:4RD>*#O4!H+.!`7KL"(V0$AF
M1P`FH`A@A`YI\((Q:$C05X`TZ"`=X'\[2`U;V(5[EH-+%(0)2(0,*`U(Z$Q*
M6']-B'D1U!Z7$A_/YT1_QB#+I$M=I%I>)P&JA4H1H5J650>M]$H`X'>&A`YC
M0`!8PG,K@`\KP'&2UT785`=5Y@.&R`"L$$Z=(&@V\@].@`^%:``P\"!)X@=N
M(GC5E0$5=")EJ`_H\`5S0WX1D7;0I@9S,W@F8"B?H(HDPG%-0S3ZX$P#@`XU
M\(O5M72R=S3H`&&,MV'H,`VJ&'FV.'NY)(F&$@;*R(?+U$Q$@0LKP$L#@`NP
MI!H'H(S#L%^[I!K[8&+5YP.FYG++Q#RZB`M2)36T@0>#U0WZ*`#UR('M<3BR
MLRD8PQNEH@)U\`"+]@,_%V9(@"S9!)'5DG8K\`^E`@-\4`.ED@-_``,Y(%D&
MT'PC"8GCN$L3Y1+1$`XU.0#/<)/(,`CI``.+D`\OQ0,DJ5(\D`-^$`Z?<P_O
MT#-IHB`_\"Q\B''LX#6^0`\$H`BA,FIV-V(*H`/.8P\1-P#7(3AG!@`JQ@TK
M@`URH``[X`'Z0`!R0"3C\`_A`!?I4`)V`@T#8`#>(`!R4`.JA0T",`<E4``/
M(#;1@`WN@PZ,D`UW\P3TL0STXPC#L`C80`M*T!E8(`<00`+P@`2C()B5L`@N
MT)<!8`%]69G'D`[CT`Z50D</J0A$@$(>LS[M0T/Q,S_UHT-0MSR1%Q&^"00/
MDD"OI"/I``&)Y9L!4`?O0)P"``AD8`#OX$1QTS-&P0^^Z3PM(3W4,T/9LSW=
M\SWA,SX$L)Q&@#L<9`#$LSLSH'CH\`,51S,M0#NV@YZ[8P"X`#P$B0O)HS_\
MDR;X<$2`44`'M`X(<!T<!@[QZ9NC!3W<>9O?R3W>`S[C(#[D0P=0L`@\L`)\
M0"3[`P2>XP7P(RA(0$"S.`&$\69VP(N!\&&<QP_KH`%3I`_B@P4#``*H@@M4
M@C-0,`7H@`X5AP"+P`57*2V(<`#K<`'7\0N\86%0D&P!XIY$X**IM321M`[^
M0(`$L(!1R9"&@SCG\P^R:0`D,``\(`!UT"G,TZ#1,ST0JCT2*IX52I[E<P*:
MLP+[DR4VN`$"8CZR^87=4'$&L`-PTD'$"0*_,!>+D*=O$S>?<@Q\*!A-N0#;
M8#Z`\`3^8'\0A']7L`O^@(EM5P<I<!.XH%WHP")I`Q>9L`XDL!%Z]*FC```%
M8`G'4)X40FMPXP_5\C<$(#JAP@C8X`C`@`Z5,`![<7]<L0C7$#V9LD3^`*S"
M*AES,1&6L0@<9V&H4#X"0`I)$`WI,`^E,`'),`^DP$20D7GLH*S1`ZW`D"E$
MHD'22AF6L0+Y,`^F0!0;``P=H*A]IP]9P8'*RJ[62@#Q2JV7$0GG.@P<"!]@
M<:V:L@C?`"H(,`ZFV!1`HPKB@`\R``SSH`K;$ZE<X16S``#I(`0$(*E>0`!M
M:04#T`=1M@\`P`<,4*,#()SQQTL"4!H0M+`#:RB#\`\:@P[:X`];D"Y;4!VJ
M00%#DR!/6#@@X!7-R@C0(*RYT%-PT0A^``[SL`JL8+$4P)3(4'J`$`X'(`W@
MX#[O@`!#``[K<`[NR@H8<B(O5T-B2[9FB[8BL+9T8`Z-0`3_<*R;"COPX0O5
M$Y(G>!V^.0@/PF'4D)#"&0!'("((P'6T-@?F8&$@VX'Q(2TRY#XUI)LYM$/^
M\#\"H!H6H(Q-"44.DBI/(%IIX@\""D!).D4MTKI$@C$@>@3]`[N"TJ0I:ZYY
M>@"Q"P!LU(>&TY0KFQQJ`P`)4&CWX$>Q1`=(0#2"A2(S\"/1T$!"T!ERL`3/
MJP"`40<.<#$&,`%6@`!Y@`+_8P'YL`XV<&GXD[T"L+TA0+[FB[X-`"H=807\
M\#_TNP[8$!9+Y`0(0(`*0`OT&QV`<`HVV@_I$`;N\)K(NV')<0#_DP#YD`Y+
MX`XTBZ,+H*-"<+V+$`W<NPXT"PATX`8"?!-P02U9P@^8(G579P;P0\#C0`6P
MH``340=*@`Z6(``]@`IB-;U3N0C<H`L`U`,H,)@#H`N`8%KBL`C4`!D6L&<$
MS`H\X&8,L`/[0`<9@+'T@`XCP$MA``L-P,78R!JJD,/"F%/HT`"\)`Z1L@Y5
ML`Y%8)>]@`X]&@4NL0+*,`Y9EK*;P;T-X%+^X"`&D`5;X!KZ,`P(@@!S0`"T
MT+P>0+/"N0`DY"(:<#3XL`X,D`__PP'KT$?^$"UK0L.1D@YMT`X2NP#)D#9/
M\L"L?$B#'`*1/,GK0`X?`@Z6S"J+H`V:S,GK\`R@#`"BG`SIX`P`$`1TH`]C
M*VCYX`YS(`^+H#?\T`H,EJUT(`1(L`/!,`>XHI?PT`K:3`,#(`Q3,HGWH#_^
ML`Z7ZP]M,0#YD`A,4,K!4*+440#R[`_U_"R,H`V,$`T[$`U$80*,X`$<4!1_
MH)`F8`P&(`)3T@/50@<EP&`#,,[:3,W^T,W?W`N+(,[D7#[B<,[I;!?L[,Z!
M@@`.0@".@`WK0`$FX`\.`-%T$`'`R@C7L`/'4-".X`$8(#HWL`Z\4,T&`!?H
M0(R\XBLD$`!```28@`Y>,'O^T`3^@`X<\%26X`1.(&8W+=#!8#XF,`H)S6@"
ME+/`D`G#P,=%X`_:3!_(D`1!$`2Z\`]_8`([8`$>4`"&$0WJ0&%/,@#&(`<5
M<,[*<0_2,`+"@&'HP`#.A`"&S==U4`YPD07#(`51@`X=<")KQF`'-0#RD*N[
M>@=+9`TK<`U*D`A5X`]8D`5:,`Q3``4S(`T>(`52``7\14H?@`[L\LB#L'@?
MH`5;<#H+(`T*"RH*D"L";*UT=!/\,`D66V7YH`#B.]QYH`"PT`*J<`_;P&N^
MI@UV(0FQ[2`"<`_Q,`GD+0F',`T$``-%N1T$<`(>*PP+,`QU(`Y#^`2L8`CS
MYK=]&P`Z+0?R@`6`^Z]9$`ION0/$,`<&L`+$@$]T"1?KH`^<&GE^$%1U@`._
MT)?)+2U(0'CH,`6B<0+K@`0"X0(#@`0UO0/WT&EQLR`,P&'+Y05S``,B<CO^
M8.*1/-R0J".KFH;:,`C#\`#1L`WNLPZT@`3<FPZ2\$14$$`V8.)P<0`#7IE.
MP`!VD0-,,&=E0VNX8^)U(`_M^Y3:,``<(`<YL`C3X`C!H.*0F`,>()AS8`)`
M+N3;$`WK8.=VSN8),`#9$`J0F9;"BIF$S.8*8@&"B=Y$$@T*"PD*T`13``)2
M4`=NT`)4D`9M4`8@P`1I(`9R$`9RD`<@T`(@,`1O``=Y(`=I<`9H0`<@@`)C
MD`(@$`,Y@`,XT&]-D`9C(`=O,`=O8`:L3NIR``<1<")O4`=C@`8Z$.IF`!UE
M$`=UD`9R4`9S``)FD`9L4`9N$`:7+EB0P``?``"9_>T>``#B3N[F/N[E_NUU
M,`=A<`9ED.PX6NS'#@);T%5=0.\M(`?W7N]D``)MT`8O0`9DL`4OD`=YT`7[
MW@*LC@;(_N];H`-S,`<(C^_+7NW7?N\6+^V"!0*0L`!=!0*Y7@9A0`>8GO$@
MD`;+3@9O(.T@X`9OP.IE@`=I,`>L`@`<[_%R0.UO(`=C@.EA,`8]'_'QSNQA
M0`8M\`9NP`:@GO%SL/$=WP+]3@8CC^ET\`8@,`=E0`<[``)D4`9F$`9UP`9T
M,.U5#_)U(`?1[@:L+O4D?_++3@>6CNES``=E,`8HGP9E0`9.[_&L#O>7/O18
MK_5<[_5@+_9D;_4P``,ZD/B+#P-NS_53?_5T;_?5GO=[WP++/@:EOO367@8G
M0/9Q?_5TH.UP,/0OCP9ED/-,7[WRCNP@7^QLT.\NS^H_'_33+@(E,`<BL/4`
M8/*SK_.23@8N(%AP,/)HT/(O#_QN(/RL;_5M$`9N`.JECNW4WOES,/P`4/O2
M/NU=[P9XS_S.Y`9KX/)WX`8@D/JZ+@?87_7&[OK*_OIA+_O)K_U"C_NZS_N^
MG_QF4.S+C_W%3P?'__O['_SK_P;.#_W23_?FS_383__<C^W?C_V2/OYO4/[G
MC_8[C_T/\1`[H"<%`1`"`#`!$,N;@!U#OAA)PJ3(ER1.C#QQ`$`6``T`8%$`
M$*AC@``'*@*HD-'.@`4"AA00>2,C'P0``+P,``#2`0$T(1D0$%`GH0$U=Q)`
M(1)/1IH`!!`022>CD:4Q+?#$T"`!@ZL'$%BP\$]"`PD"_JGX`<!%6;,HW-1A
MPR8%@+1KVP)8T0+$B)B`&M@0R2"C%`5_`P-6H$!D@XP@:%J4D-':!AX\G#29
M<L2'#YA2;,"`@:.!@KINWM`!429TG3-H0,R!$V9,&1!FWL@!$4;.F3IM2M.9
MXSDF@,R;87BN.X=.ZS4@WM@I(\<,FS=W>@,%#F/&<!!IW-`I<X8Y"#)I[*0A
M\UI,'A#""R?XK1E&CNNA1Y=^<SKUZM:O8\\N+5[.&S>Y:=<;/P#T]@\`<M3A
M1@MTI)$;:7+X-UM2[&TFPW7.O1%&@VZ<`0(<;V0W6GP@/!<&>63T1A-U,<`7
MUX<A:N==&'/,D<89`.K6&P$!R/)/8;"XLI)O3="$P#0"O"&`%$(P`DP!$`#@
MP`>C+#6``7TY`LPB#A@`P"+Y/+'(/?W,0PH4N,@``!3+,#(,(]@@X0@V6O[R
M``"Y1`G+/_.X<L28BPPC)S!V$D3`(L;<`\TTZ-"1`"/:K`"-(]H,X@P\BQRC
M**..,B*,I(X(,\@S\+"B"#1.M+((,D8H(@P)_O``2QT&L#*/*NL<``D`/,A2
MQQIFNHI*`'3HXDL)`4RYB`=+\3.#-*HB,\X$BP@SP#!:JHK/(/_\0T<$)@30
M@3CS!*(/`/#084$@P@``P3K<.`F$EH.\`T&X'0RZCCB!+G+9ES84-@`\`>P$
M0`M1SJGE+C'IXX@UBYRSCPO_O$`+$+L$E(L%`#"B#*6Z/!!`,R'@\@\3)$-Q
B7!EDP)8&&Z^E,0<(8\B6(!QT++7K"+D4,(0!))!0DP<:`!!`
`
end
END--cut here--cut here