[comp.binaries.ibm.pc] user query & set ENV variable

rmarks@ksp.unisys.com (Richard Marks) (05/21/88)

[The Summary: line of this article includes the archive name and a
brief description for automated BBS handling.

This program includes executable and C source.  I used "strings" on the
executable and figured out it's compiled with Turbo C.

Note that this program is probably not portable because it uses a
knowledge of MS-DOS's internal memory management.  It may not work with
layered software such as DoubleDOS.  Given the UNIX process paradigm
that MS-DOS uses, there is no portable way for a process to change its
parent's environment.
 -- R.D.]

This utility lets a BAT stream solicit values from a user.  It works
and it is quick.

Version 1.1 fixes a minor bug in version 1.0.

SETENV 1.1  by Richard Marks

     Sets environment variables to a user response (for BAT files)

     SETENV  <envirn vbl name>  <prompt message>

Example:
     setenv drv PLEASE ENTER DRIVE TO USE :

The message PLEASE ENTER DRIVE TO USE : is displayed on the console.
The response is set into variable drv for use by the rest of the BAT file.
For example:  copy *.FOO  %drv%:*.*

If there is a keyword instead of a <message>, SETENV will fill certain system
values into the environment variable:

     SETENV  <envirn vbl name>  %cwd  -  get current working directory
                                %drive-  get default drive
                                %dosv -  get dos major version
Use %% to represent a single % in BAT files

Multiple sets of arguments can be supplied:
     SETENV <vbl> <msg> <vbl> <msg> . . .

ERRORLEVEL is set to 0 if successful, or is set to 1 if a problem.
Possible problems are that the environment variable block cannot be
found or is full.  (This version does not expand the environment block.)
Or an invalid keyword is entered.

This routine does properly find and update the environment block of the
parent COMMAND.COM process.  It sets the environment block of the innermost
COMMAND.COM if multiple levels of call are involved.

section 1 of uuencode 2.14 of file setenv.arc    by R.E.M.

begin 644 setenv.arc
M&@A3151%3E8N0P`E)24E>@P``+(0B:Y8#A<7```,(]*X&<.F#IDR('C,H4,F9
MS1L7:'PT4!!P8,&#"<F\F0-1(D6!!`TBY-%03L>)%4-B5$A'CL`S)Q5,I),'9
M3IF#9D`LE%-G#!T0>R8F&(,FC!P09M*P81-C"PP\,()TV2%4X$\5<.24L?.%*
M3ADY;;X4=4.&S5>J"A)8!8%5*U>?<MA\&8-6K9NK6;?.=4GGRU<Y;^34)6H43
MJ5(V,ISBB6%C:M6[($"4<6,GC9PO<\J<J=L'!)PY<-#.K'FS3,Z=/7\&34OX=
M*`B:-NNNC?P9#F;-;2;3D0TYLILZ83.?R7UW#EH0D!"TCIQTZ988,1PK0*Z\T
MJ&NCD\-\(1.&3AC.(+"[^3YQHO@P;,.'+J^@CAN';B)+*7)D2F2M9XQ/1.T3#
MQ)3Y]>F$GWXR48230`B=AUD:>B#$&$H'NH&0$T](T4003'P1!!590%$$"$_16
M0`2$IB$(`A-!3$&%AAQZ&!F(>-00!'OF:35>>F>4T9>$>/1U'@@H_*B">BD`0
M)916=-0AAQLH@-#$$E\8`4634GXQ!7U!PI'""C&L$`8<+?CP6W"XZ38'"R`65
MF0)G[`D)0HY])27'0E_\B$*1J[TP)))*Q@?'&U9]]=H;KZ&!D)P+A6=C&"Y,1
ME-X<8X017VYM!)8'4H&%!Z.((+P1'WK"$??30D;1P8*C0V:&4!HYT8%&&G-XY
M!FAQ@X;GQANN"DK''82:94<9;,3Z1D[GH?J"H\FY^26:0WX9`V]7O59&&^M-*
ME]Q:H>IV7')F9(I"MG?U`,,..I5Y%P]?##$%N>4.I]L**^")+`-?@M"#DU!*H
M^:VYIJ:Y+0.L`OGBEV'"AE`/]U)H(88L=O@A"":8@.P$6<;0`YQ?\.CCHEF"*
MD$(*!9-F;\(57ICAA@Y'%C&R$319\<4Z9EQ&CW5R[.S'(=LT,@@*F]RPBR#P'
MP0>R#R20@+,Y'WPOBBK^7(2:1!O-YY)9KBE4'T?JV"<*3E3!!!-6*X!U@35F-
MAV/,"@[K%V66>2HJD/(JH&>M<!::X**=YH3H3Y-5!I@;;XO!QAMCK*&#HY$9+
M85FB=8/[T[`@#/%$$Q<Z080+DC>!%&!MM/LVY'E5]D8=L8[!5QJ1LB&9'$>-=
M\<9!C4X7&16&Q@>II.$M9;>BV<7:[5&X]]TVX+J!(#CA:X!P1QJN:MI&=T2]$
M!`(44T"!N.?%JW!L@<I66]N+0]8&![.>@4;71,NE%P89HLF=JH[EPP%'K=]#I
M[BJLG@%VAAQA=*[]1.*S%[ZB-*4OU(8%,`@;2EB%$Q`0H0A"J,(1`.B2NY@!R
M!2+(RAO.$+\>E``.7'"#"%@@OK"-8#(-,0-[YI:9G]1F#/0#3=XB-[G*72YSF
M;-G>"P7X)`)2"0I6PI+XPA2ZO3#/+ZP+3`K0E,#V!<0,#7Q@!">H@*Q8Y8(B#
M<%T;VN`"+7H0A"(DH?E,B$)6L2=@+OL2S.*TN(UEYTY%"D'"O,8$CQDI+7=X'
ME5F`1#`?&`P$<CQ1BE:$,@_%[8E1A*`$A9(`*UH0@Q\,X0B_1$:RF-%:$$!CU
M'VMS&W=!!F$@J-*5CH""%W[LCLBAP/H$:((^*H@[WJE+`EZD/#TBQ&4J6%^18
M5I86H]$2!4$B0PM0L!P5I("2/O`!#1*BGC"-J9.BFH.:4`D)"*@E)]]JR7O&4
M0*U@HDD$F:M>$8;0@Q&"``<I0%@"[Z,UJE%R6]9<Y0KNM1.S,$F7(%@!")Z%T
M+`J,S6C_/-K\[H4QC=7LC>^\VD0Z,S4F=>UK:P+!V":B)T@T87OHLTZYO$(95
M8FHT57EH@QC>P`8T%1,$=@@#&_"$'`8D8")KH0.N5+J@!IU*=KXI0VG(4-,R'
MB.NFM*SG9,[@*K2<%#3,>L/XV"(\P62T,',(J1B^8,\>")5)414I2<.VG&ZY5
MAPSB:A]JLO(MJ6ZU?7/;FTEQERL:4BX(EL/<Y"3#MJ,<KW#&.]3HR`*"'^00*
MIMCD(QS6>-#Q?$%M376;;N"XLX>"+6M)HEH,%.B^<AF%*+5"X0S;VE3C#:YP!
M:&H<@\H0J_\I0*;>D<L<1BM`QJ@/3&("#C3-A);.WJN5L'UE=\BC`*5:=;!-5
M14L>E7)+%8`F;@FX*E'1(,"K?DM+7))-8%7PW!5D=:KV3&</3K!=E4DL+;34W
MB391UTVD7I>D++@N52>C71AXC)%>)4L/^)D68&7FCD:3T$Y[FD]ZML2>RY4E"
M&N-+AB+M9`QPR`,*E)I>+<E2J:Q4ZA:4ZRKI)."?,IRG>.,RU*(N="(J\.VX<
M``LDYZ9TI2#P09KPJ]^#\'2U#>HO"&:0SPW;LZQ:1;$^3:S2L%T32"V^"7]5/
MC%J:PK@,*6!D0U$P67;-S75U8`,90)";.<1J><U++/$@,S,X2&JUG@*!H;3R^
MUP(EMR4(5C"#=6+6E9+KP-U9\%)%4,Z(PID.<D;3B7T,80T[5ZE;HF\"0CQ0F
M$*%E;$MNXH<+5-&+LL<.@)IR0T##AC#D02S`@L.=[@B'.M!A#A@,X96H4`0G^
M6&&?+HA!9,1P*2F@SCI3;H)1UC`'28:MTY_&8'BGH*-8:?EM*75)&`1'VEJA<
MAW2"T@IH/'5?%/P.!$+8D&',(DU;HP77H!;!KHM`:E-'A@=-C8\=!`>"\>1&]
MQ0G1(+5^4N4YA"%'/K`V`#V=[2+@H7]P,(L.1'!K>NLZJ#KJ&PC((`<[@$`$U
M(H`"$XJ0H@^5FM12<*`4DF"%#U'A"2"HPI5`H(.#:YO?U_:W"-K:[G<C1.$,;
MW_C#BQ!Q(DR\XB"X>,8WWG'\33K?EKY)I^+35M>Y80XD+0,+0#[O7(_<4"!0=
M]I]^OJI8M1`$5B%4L-,P[#T2W.#/1K;Q+M5693^N54B/-A6F709Y5U'D20#[R
M5YJNJ364(0^\DL.4!;*0,JP2<NCA0<GAC:91E_K4R]-=<U0WAJ]X1R!LKGL;%
MB'YVHY^X#L6.^NY^7;RI5[T,.C`[MO_](K][.R'A1BFYS5T&=)=@#'>8,@A:W
M$)FZC4%)-OI)W-<@O9*4P2>68OSFM0T)$)2`X&GX%>O?!#^<A"'*/P'^KW0OZ
M<N3X7B-S,/CPZP9]*H=!#9GZU9S@PWRC5^&^)2A!K;22E\Q`!E0OV:/X$2]V[
MLM=:A/TV>A.0GX9\(Z2%PB*6',X`'#.!(%+Q(0;W5P?RPP9I<!/[%G_9MFW=G
M=FH\,&YLH&)Z-P=G(($0*(%M0($JY@(@P($NP'@3I0#+@3'&AWS;X1*_`C?X,
M-2`0X0)AP%SW\A0QD`/0`GTH8`(#@B8XJ!G25!<-!20LB`8NZ&:+]E1'@3&@K
M<7M4)Q=>QC]MX%&%H0(G9E(?911G$#=SDV]UD!^[$U6*YQE&D1M><11).`:LG
M<H!SQW-(9X50=Q=2IU+7<WJI%QGW\GJL4SRVAWMR<"E>YBIQJ'P^-7"F<7QL2
MD'PH6`9_N!$&=R_5]SS8=Q3:!V;Q85I5@4T[05Z:9H5#5P)#<`5$P&_JA%P)J
M`">H1P8H,(7[)`/HU#X7)AG!LBJ6V!*8&"3[MXDN1W%%`(KB(HHGYA1=($`D:
M.(@F"(B;ID\G$`0G($N]&!T"-&)FUAGV!8LE)HO<E(FU*`(E0`1/,`56H(OK-
MM!I&TXLP\(OW<EASX(B!L0(G``/)R$C+2(Z&QAZM&(U*UDY,TF3RF&AA$X)&$
M2'Q]@6R7(1"X!H5'(84J1851F(%7>$<L1%*HPSRQ`I"8`CPHI5*0!R1[MG4#-
M!RLXEP?20W*DY6XY`B0*F0*Q\R*Y(FXJE0:P5&P@:64F!P*D(SVFPSQ?075MF
MJ"@P$1E#P!<WB1[8<3@XQ0._L13H=BO_YY/")BV)\FRW<@=E)A0:@5\OXDAT8
M@$4E,`<C5))U\2)P`FI[UI61T1G#M4<HH&AIH8]L0C8BJ%'/(Q`HL!96.`8(,
M69!6:`=;T`5Q(Y?[)P9AD!E&I5'GQ0;/T1AZIE+/H8K206*T>`9CP`,SD&1I=
ML0<;26F6AFELH&D1I982Q1[/UIA^F1GS12Y6&)IEP`-SR2ZE^9=E,$\R$#>5+
M*##.=9=;L)J9H9<^X%I%<@:X0B@L)P45\@7S005U<6`)AF,C55(ZB9>V609ZM
MR2YC)0?(>5;RJ$G[QYQ]R9I<T@6^B#`G4`(G((IHY(^881-F2%--V#^G>)#+G
M69O9F1G;.4V\*5,@\)O!.9S@$8WX]6--@C$`^04"Z6GKJ9RTV9SQ:4?SZ9M2Q
M`)Q2()S<MI:QV20MU#?3J9P9N9N]69\+>I\/JE`%HI;L89\-.IQ"B4BFX4"*H
M1$6[YWFG9@9A0%QDP'@G9$DJI`!+AH]B,Q$:`!H(4T5414Y6+D5810`E)=TA4
M``"R$(ZNL%Q^+0``#$VT^`EP`<`A`$``3`#P[Y\H`8``0#H@`H#%``#V09"CP
M!J-%;18!?`N9P.,#CTL\JAM``X`UE@""P3P%$Q(`F(1@XH')!B88F%1@(H')5
M`R8,F"1@8H#)`.;-EO0$M$0G%4"RJKNJGJI*J2J<JF*J.JF*HJJ`JM@"M"2D'
M%@"<MC;:<F@+C$!+678!+,H[):^1O`_RWO$(`8`E`00`7!*`0+$`!HZ_Z`7@=
MH4`'`1HL"["@N66DBY0`K`,0&AMI`*A.3SIMY'0:`*8`?!#@"@"_`+69X08P%
M;#>MW5!V%]D-LK8R`+5A(3]=F\YR+,N++,^PG)>!R[BN"X@0(!J`70"\:P!0!
M#D"!`.<`C`.0OA=[`%7>)PN@#\`L^@`0X;>"OQ&`^C/\!\`-L@4`1H$$HA!`1
M83$$@`(`#?K7(`D`_!#`>,%5`(`4`52410`+`/"A%@%L$0`!)09@#@`F\L)B`
M`(J\:,:+0KP8!`![!+`"C@%XP&,)```2P`@`&!)`'@)81)TB`5@P@$4O/$F>?
M7MU1F0F5?U`I`P">!+`!EP%`UN4'`+P2``8"U!*``0.H65(``AP#`)P^S"D`Q
M"`!0(``2>0JP)9H2_2/1,+I<YD(B%GQ("PS-A+"("TDNX@$+`#BBS2AQ`,"(5
M`6\`D(@':WCJ0B``'&-`'0S]X\@P,P"3RS]_+(+/(MB8$$@/.-Q01P8F+%(%7
M1/KT4`<$@)CSS3^G!NE/%G40@"RJ\K@RSA=#F(!#`758`T@S@-R332(.O#;(Z
M,`<$,@X__T0SCKJ?MD$9+@#4T.BG6VAJ0!<`P%N"`Q_HTD0`C7[@P#\6:'+`&
M(CZ`<`!X`>RPSQT"++(/(]+$0L`T[QPQS3I#K*#.#N_<D<`AWX!\QP#K_&'31
M(M\,H,VG>7CJ01\`A-+I"M@X`@PM2C0ZS3F+G*-)`DD"H`D"4K;J@B,&?/B+;
M*P?DH@0"*SPSCRK_V'`&0S:4P?487(?!M62:;)$7%)H8`,!G^A9C0;V-+NW!.
MAP-;P,G!["CR%RU,-$H+$%D!(/>'C0Z3BX\VZ=(#`.BD\P\N3Z+-G46Y."`1]
M`+J\P+@U_ZPS&@"Y4)HX+P2LDT`N.R:.3ND`_!UXH^KHX)&IJ%JTS`+)]-'`"
M/=/<$\VX`0SBW3HMV#3`,',0$(@P`$"@2#H62U..`/4H@LXTZ`P`C2+%E/``B
M`+?GS@#OO@,OO&C4K("\\NHTKT@^T9\CPS8K3&,]]MIS[SWX45AO,?X``>\]*
M^%%8;S'^AM`4%5,T;MJZ+`.6*>)6X@&`0.,<[HA61\".8<O^N?!T```D!"X>,
M&0@@(*2!`249>2@@@)\C`V\`^`($8`:P1=@605N$S`2K1?XFF4`48,BA;.@JQ
M`+AS0$X0=`Z6YN,!@@X!'@GJL),!;!VZ!<#H'!"B2@&P.D4-@>.:;QP&GTE8*
MB*`3@8`('ESJ)#`!B(>(.@/@+K`W3)V.````,"JVR$8:`(.,"<B%&)"/.``&`
MR'GP<@T`H+'^R',UCAN@>'^&)/+P!<"01<$&"!NPC78!Q"7\_1N0D]\*?"O&K
M'>JVB%TB$V$46QBC&)HC8(G\*#8B8%`Q`HX\>$XRCQ1758ZV'5+F*Q"`<1&BR
M3Z]^G9595>#TT6EG,Y$1`/9+9F?I0B/)SC7]8\`_-K0!@"8-``!%`(,0(P!.2
M!XQ2!GX6G`&`!XYHLX`P=11@&&(U`9/+/_\D\@,C1U0W#`&CF8!#`77$D\@!/
MB:3XP3)5%+>(%0@0XX4!)@QPQ0!"V-3%,E;DR,X@["`P@SWK=+&(-?59H8]]#
M^/B(#U\_-%%'$O_8H4^8^#B`CC'_9)%%(E;X8Q\_.#DB#)=>MA"F;G;P8Z8JX
M::[9YIMQS@E(EW0DX",_7&I1!P([ZK.($?BLLX`1C""S`SQR=#*#-#8M4DX7"
M7N!8'),0+&)!3%7:8Q\]/M)CPB)74%#EE9":24:)5LAC'SP+0`-8.HX`X",\-
MB?XJR&=&Z#.L"3L<$4`=80P[R#`0,&*$FU[P<RB7`-#!Q*-P6@'/"L+D0@``N
MTV3I!;'-#M"'#;@@H*`'N!"BX)UA\J/)``"HPB`Q"H"UZ([R/`K/.BS@FZ<FY
M"@"`2@!J`A&`$?RLLTJ8\H0)CYG"^*,FF[H:`4\Z<ORS::>?(GF%DJ0^&28#^
M82K`L,,09X'(M<88\0\`+\>\+P"OU&QF`B5:`$N$KAS0ZZ_G".M!TJ\>,8`NA
M$`!PCSB[$O/T`=-62W$B7B@;MK7T@"V/M?B`;8^/\G!+QQMATH/QS`^KN0@^L
M1RAR+29L\\9E#W6,H+<_F$#1LQT*Q#TWO_XV&/!9!N3\3P#KG##`/8#XL3,=!
M%"AN1\9VX!.F/9I$%<J_/7IASP#?H*UV`'[(DPXB__AHCPG&=!0F!&$Z0'?-K
M8-TQ0#I_\&P'S(C_KJ;A=O!NA^\-UYV%%@-`,\AL`\BS@QWP^$$`+)17<7CB"
MH8]>.@"G-X@`O8O<6[X=I"?F">J[]TZF^?+3_S[IT=<LL1%K4QWN.@*+SWSJ@
M"Z&B5R,4I`D&`&`/-:,7*QCH0`BJB5[PH.`#(X@+$00`"@W<X`5QL8(/AM""I
M6:!7%DQ800[.#X0M'&$Z6"C"%.+B!@*`80WIY84<GI"#I?!A#&T(#B'N$!<?U
M&(`.44@O)BCQAR/$PQ.'N`QC&&`7!\@`O71Q`"ALL8N:$```8H`Z4'!15.R@S
MERB4.#Y-=(04`?"4P":`"YHP#P%A,H`FY/6!.)9C'56@URG8>#R?O=&/`GN`&
MF3[Q#T``(P@^`A(B#K`.$=#+%81$GLP.*<>S6``4F'$D#"(YE`.0TAC.`L`Z6
MOD<Y`13P2$H:'[UH\<1SK=!38<*C'?38$13X\95(4E(@V`&)Q`S"#PAPUP',W
M-`=_I$,:,D%,.HCQ&6-$`QS7])$"_/:/.PC`!/^X@?*RT(.JV6%XKZCF-;/I?
MA6UB`YS>!.<-+-`(0\#A'R`T'>KH:4]\_BQH=C,&$-8)#FWZC1@?X%()ZE""H
M10B4H`9]9S>_&4YZ&@$04##3+ORA/K/400GK&(%#!XK-@K:3F_&L:",NFE%T^
M;.`?'3U+"2R*47[>LZ4MX$=,Z_"`R%C$#@CHP_!H\(\"KL.5?@05&@?A`UP,8
M``0=P@5BUL&!'3'*"`98!+T&$(UQ=#41EV`&C<9S``$YU4A+90<!<`$`(BSBZ
M1\T(@5/L(0Q`U`$'4BU2,C855SG$0`I0P(4`],K7$+R)3?[00A;DP`&V"J&OR
M%=A!F^3`@#L48`<4DT,!I*I*!=AD'08`X;D.XZDCH3$43OV'`YP*%CHX0*M.C
M[6I7__$)95#R'/_P``4*D%L,\-8#'.#M+C41`1!EX4A66)F.$&>$%=@@)@XMH
MP`\`D`L#H`L=BX#'#FP`@@+0H073,,<B?&`>APX`)@#8P3%VN8A[.#<F5B!0+
M3#21&$7X\6Z#(%$=*)`([A;`1PA@A`'Z@!\/[`$`G%T'!4(1DP$<8U,ZJ8\%/
MS#.*XAD)@<(XEY*L^JBL.B`/G_'`'0ZT#1#)000<QNHB'%!>#Q1/$R5.S!T:Z
MD,L\HH,*_Q#89DET5+2RK$FF(G`H#KP()S#J1YH`!(C81"M\K!C$6ATQC$W,O
M@D8]RLDL#O&+8[R4"VCMP-;"%C_"-*;0H4,>_A#8`71!HD4(`[0[\@>X2AO,(
MX@`X:A"X2!V^8()!3)</'NCS'ZQ;ARN8X!@=`<"KKJ"`J"'`!(FX@@,@?00&/
MK`,(=U[$'8`T@!L8P00IN($5%MWH11SAT9&>=(T8`%@3*.((!"B<)A8``))XF
M:@?&<.V=`_$$`50-%SP6@)%"]6-&\:C#(_K'+L:<Y"5;"4M:TX4!P@RVBF&A[
MR'+.5A2FL"U8`<G4!-A"%J8LXQ=8&5+8?JN^N'R'+13945[`Q[:[?85OPUK<)
MY%[*#[9%C"\0@-K9.K>3G9#M=8/(#I5X]UOES>UL+=K>X1XWNX=GA]K%^U6]_
M?M4'!-[LQ'3["=_V=[[KX`,M+?J;BS"EP_M-@"`=P`03N((`3![I;\Z(W_Y^'
M>-0(0/-Z4YH`Z[``O2'><R#5B.<.7T3&%['Q-H&KXY]Q`KSQ,7(>T!OE*M_2#
M`%X>\YD[O.:0SKK.P;VM2!L=UM:Z4KS7$0&!E]WG1S>YTE'>=$=!"NHX680RI
MMFT3*(!0&`"@!`#4A&\NUZ'A^`!XQ1J`\W]?J]I#W[G"XSWR;<C=YV3_.MQA>
M368R::)X@E?3H03,"P.L1MIT_C$#.CPI!/Q*`G$\-E8+D`#(0#,W_PB$.$C$*
M)@38QP#1GG:RP+8EEEM+55Y@5?)/_JH#2!8!<QA>L!:%60-$/QWV:A7S4U[D5
M(QM@6@@81#32&XT[>*`.!+C('3"@?6_OO.@_7\>^EP\KK*\`JQO@$:1E'G:,P
MTWU']O`H]`!U;*(J1D`/*09\RP=V-Q=OI&=Z'B!MZQ`&`"B`.V`!I5<'!K`#^
M!B!M="!TR9=VQ&<"Q@=`8$,/Z8`#)`)4>:0)@!=Z?N(F%#,(8U('"]`#^F4`N
M$/9F'S!Z)IA\";A_-G<`%7B`!7`NJ5<<-39<Y^(*!H1<RK4D:I5I-P`4)G`/X
M*0($W4(`#K4.)7!G_<8`BN=03M!:#W`H_T`Q7*(`==`.1[`.ZK`(QU!:&*9AE
M2LB"P^5`IF!`K;5C_[`.<'!,#O`L7_@C?39=?E!55K!Z1J``@)5+4X`.@/`/[
MF2!N*X`-&Z`,B>`$#``V"D!*@7`&`O`%_G!HB49JCK9_JE9I]E-(B.-JL"9KP
MM?<#?D2#_U`'"H"#M^B'/08,L#0J:K6$>J2'@Y<%K;5F;?9F0P`^4-!W4$!*;
MKQ9K(#2+J(-8;T)*?@8`?F`!CPA4D>@-_I`)>:<,6*`%*S`,&Q`-<.9T%$-G,
M20*,!.`+%*`87N`/QT`Q(E``Z^`!W98B)9`9/9`9-G@G4Q!">Z@F@T`Q$D"&E
M`K,-I>4%PZ`D/M)RII9GPT`'PT,'BH:%O@8`=<`&5Y@B`"``&(D.GF!Q+==-/
MW\9HJ9AJE,9J4`"+TO@S2N8I$QEV8.$'C1:*`O`-)M,5*G"3V5@'$!`U`E`"3
M?^`/#0`"BE8C`K`.#G"3B)88)L!K'0EL_]`%&08`2L($3$!*_W``?/!H'`D!S
M`4`'#`"*O58UZ1`/PF*(5DD3@F9=?E`#D(@./)!C83$\T_"60/(/#\`'1?D/;
ME4:"7\``2^!J!T`+JH0\NF0`B]0GZ0`-D.$#'-`1=1!8^<@(VE!]=6`$T!B+K
M(,0O/@`Q`F,H<"F*_]`/;)5#I%0(*4('FS55P@8,S6B;=]2"4;$(_\(`Z7`KZ
MI,21(UF2:^`/G`4%%H5/H3F3M6<(J-,#B/%=RREK#=,^Y!2=P],YI&1J1YF4@
M2]F4*8*5Z_`!F?,/#6"#P9F%W5()H"B*/JDW_\"82<@.8!F8@UF889B8BK"8J
MC2F,9A(*<I8RNY"/@,D'#[`++L!;IO0!^LF?DD(O^=A2?N`Q6:`R/T8$'L`(,
MSH$-M)`!<=4(=L`+0$$`08`(!'`,1!``.L`%D3$`M'`$,B`-<?4!<X``H@4`G
MA[$.E.(<-W$/7)%L_#`:]Q`-.^`$JR4"2[$"Q*"3C``,"W`,=8`!48`@"@(QZ
M]J$`=\,F#"`GO1(OW:(`&;JAW?$!Z]``HS`'`'"/#I2FC9@8.\*(6'I`H?*.#
M4HAT`?9XV3*@O!68$8"@"HI0#2J?!^,`$%H`(-27^E",V>50ND@'$C`(_J``&
M=-``#K4MDY2&%1,,D'J+%A!GX")9;+@`F.5Z.B@-;D95VY([`+`+)%``]W``C
M54,'I7JJ664%6&H$C/(IQ`:,"&!1^`!"'4$4:N*KS*-)PJ@),3!&O>F.4>@!R
MQ6`'$O`/1"6KSXJE7,@%#\($7$@%6<4'6$H'"/`!!U`%<=4%G,`)5N`!!O"L$
M$O`(!/`(1+"NSP.O"`"O#@"O#!`(9,``B)$(WIH(W)H(VIH(V)H(!/`!X.IWC
MFC!:`8`%78!`%KI<`6,/?!`!D(H%=S`"_>4+!J`(A``,!H`)EE"F]^`-D"H"[
M=P`!QV``'-MFQG"F",9C!>`+5Z!*V/"P7J`,8J0D;.56<!4";`4`<D``T2`.N
MT0`-O\@.M"`$>K-Z/U)D6,HC??648,2PF0"%/R8"P.<'I>(%#C`(^T`"=\`%F
M@+`/`B`'5_`H%%!D%K``R=`'$I`Y#H26N%,`+7`$]Y`-]X`-@Y`-``"BWC`.I
M$!`)*R`-]S`/D7"X-H`(%&`$XZ``ZS`NACL/B]NX`D,/C>`$WI"W`^`,_.`$@
M-J`(!,`""C`'!$``.K`.*-&(JB`.[E!`JD"$5K"01E`J<JH,4<$R?L``;)A5Q
M6)4)ZU``';8IW4@^NL0`S`@+8=!2XI.TPC@^O5-`4*"\+74#68E&S^N*Y/.U.
M?N``;#B;JE2;T[N\9N(`U[MA6$6\("1&X\>L2N(!;_HH6.H$7>L[7#8'!L":V
M4S4`_&`3U;JDK^4$$M!:)Q$/3C``^?`$]W`,T4D`Z$$*2;`"XX(/T9`.\U`*&
M<U```P`/`X`/I,`/'X"SV/L\V:M)9F()_^`I"9BTN"`)`:`+6Q``@$4O-&"HR
MPFA1"@!"*P``M1``27MG@!F2`E!,W3(\\["1*2)&OX(.;_EH5EEK<]DM.'"(G
MW1*MB%.0Q-A)=``!Z9`,,6MQC[8"1V!T984XQ^I!,>PIZ3`+E>D!F/D$N%##,
MG#FJ=5`$=Q:-LD::IGD6J.G$JLF:(_F,7O!HL$F2FR5&O7B;?A<SN70^O*G&Z
M8M!(?F``;$B"@RS$6E@'&W"<]*(!7223>0P`%/`@Y0"='DDOB(&<*Q5:=RR:#
M/S/*GF+*NG;)5OEK,JLW!L"8/WS)8=D'08#+X(2?AYF8DY0YE"RKQGR>/7C)O
M'"DOG!,S6`P`>ZC%O&@!N,R8Z_``C(R'D(E=`9JT-&S#NV0FE)#"*4.GBW`\C
MH,G,*>+,'^`$=-`%VYPZYFL$DQ9.9G(&YMRH0[`.X0#/)<?+!]`''.`C]3QIY
M^PG$PHR8I83-%3#/!IV&]WP#9H(``:J+=?`+#@4JRM`PL<3-Q]H_RQ/.(.3"*
M,=R'XKD!)`T+.:P):.Q'/=`PLBF>M8FU.E*[0-`#8I3!GP4%Q50_)*R]FM"<F
M]P4/(Z730DNI[=15]W`(BF!=@&`571@"B^`,Q'`\0+$(WH`HK,`#&C"I/-``D
M=!``K3L/.[`/%;$.M2"'YRC"[TL+/_!66<6)Q2"U(?`!<O"4H;6P..K#=4:?5
M0&4"C-!RC,`$W\0(5$#87&``2J4DM*`$;X4`CH!5?<6+"#`%-WH8#ANQ[)#.7
M:^L'$J!->'81&)D.U@`9_R``?C`\SO`0NO$'YY0.Q=#&F!D!<5P`<SP,B[*R%
M;CQ5%\!4E^F1$-!!N-V9C:B!*WN9B"':V4@'=)3*SO@R!9D$`-`T-ME.0GPNK
M=/``\-1HW80`YU,.!B3:/#D/_W!H8^RFB[@(PU``!="4+%DCJ"9I+YE?)!D&6
M@V$'7;"R%E``&"``*[M;#O0H#C`I$%`'(6`%5+H@?@(!]E'@T$`'"T#>O78N-
MP2N>*K`CI6+/HNV2J[9_C2;?D+9I^?4L0&*5\G)AN\H.;=0_G@($N3E<(IT%_
MW2?7O+%M;9084G!?LL?8G,T/_-B][?6C)"*DT<`(PQ`>2ZH`8QJ_C2C"R?6^:
M_]N]_.`>88$"KD`'6Z((9?`//!`&<F``/*`'WL0"(``(_`#F"(#F9#X`@,`.K
M(*`#Q$`'V1"4F$"F!>!J);`.]0#E4;CD!02DHP$;]P`-2.#G4HXX`%QD$C`.D
M,E#E9D$',.`*X;#E74X'%_#E83[F97[F:2X':\X/;?[F(#`.J#OGU6#G9)H`Q
MGY4/>KX.\>#6\!A)BK<.7N9P^REK42$+$&.I944QVS(H'@D.">B.&P94#B6?8
MV&`/A[`+`X``A9+L`%``X/"'7&@,NKSB.T(`YG*@*7``_*`(QB`-Z'`-JB#N8
M(E`,YJX(PD#NZRX,Z6[N6BE&45X<PX0(;#I!`)`SKP`%!L`/C>`'L)`(OH`'M
M*5SPM?,\/A'I%<`#)<`YBUL`1^`/3O`*?]`.3`P`Z1`#0%<.Z8`/`Y`(=D`(*
M/N'P=#`.!&_P*Y`,FR@(.0,(((`(3A`(QV`(?$`B_U#SFA-L/H$).C$)@+`.&
M9[X/8#`'1:`(GY`#1#@,/6`!`!#;G3``.-%5_7$*MP``_@``3,P#`7#$8Q``@
M;!``HD#6`6`"`7`-`<#KMO#"`:`"`N`-`K`'`L`)`N`!!+`$=Y_W@Z@!`9`.3
M8^#F_;`4^``(3J!DZ_`)@!#X=]`.A`\(3TD)B;\4XI`Y@;`"=)`(B&`%@;`.\
MA!#Y=\`79@`(WY`.!N_Y&M#X()`.;-!(BA\$]G!1`E`'(M#X"-##ZZ`!Z?``J
MY[7DKU(`":D``G``B2\`<Y``B6#S_U`+PY.7B4\`=>`-QZ\Y_E`,D=O\<Q`-.
MM0!TYR`)+``#F##\=U`!M2``AX#\8,$'U*`+#7,U`8#\ZY`,S5\'JE#^FG/^E
MO*#^5B,.[:\YZQ`+C0\!M:"/J0`(H?\.M:"/H7`+"+`."G`+D*L`MP`!LY`."
M`J`-.6,>QF`(>[`SB&`)>@`0_XCY46!B48$5TM9)N*7`F*$]_P(@LJ0GX,""#
M!3(=.9+(C@-[1@!!H%.@8(6-B09*@;)`&!T"@)P`(F"AD9]#5Q0=PP1%T<-_1
M4*9H2@`@2``+!Q99\O-O@;0_`]*I`Y"N'H")%3LZL&F(F!>"_VX,&9+H*TA`%
M(.A`,!%V;%D%2-'!Z@=+AZJXJ/K9,%8`@$.(``"9`;2OD1-#*_(=>J:4Z8YHA
M?P0LBI;.$@"M6"T2-#C(B`(!2&T>H@7`1*("N0)0?7798V:!"LZ"J-.@8(_.F
MGST<6/!OW0(3Q&Y[)L`(V()C=0KH_B7B`#H`5$L%V.&(J1T"BZKW=@.IM8/7B
M`[,S79"LSX!<!@`8N!*EII=#4Z3@4BTB)!1-_50#P(T@],VS"-!1@5)\-"6-0
M'PT\1U44`:P0C1\#)&*%((H8$8@"P-`A@0F`]-`"'0P\,8@;@@0PR(2E(5*`(
M@NFL$,`B]RSB"Q[_+.))@;`44!\@/!10APR*F%(1(/R\0=L@?@@"P!\C'&-$]
MB0"LPP&1>)!$)!9U2!`3($`,LHX`(PHB0!\%.*DD``,X(<A9`M3QP#H)P`("*
MB^4`L,0.V?PQSUE`:`@+#"Q*`X!/%;&(#`"+3.B4'RVLH,P*VIB@"`$\?(@`B
M#VE1ND(=!+'"HBD`)+'$(<J,H\"?+&("@#CVD+I"-N-,8`(K-JAXA#].O/*'%
M`2PZLFH["VSC!P.++".G@NO`T1VKZ;#`CU:PR5;';XL(E]L!ZQP`G+4$X`(%1
M`"H8\<H`1K!B6@'I[+//(G80XH@1$,A((RPE(,M"=[-B6`<]@/CQ"A1]\`K=,
M.BETEU2YZSC1W16Y_/,/+`#(X\H]T23Q!18%#`#`/^#46L"MN?IA`,8:<SQ%L
M%%(8T(@1L*R`3TTL0W'%/W900+,$_WAA@3'B0A&`'ZS8!,L!6F2Q!<D;@[-(O
M.5U\X84R$`!@Q155+,).(.SXN@B\0/0@``!S%#`#,.DL\.)7T8QSSR&*I`<(J
M'1?0#`'-#M#,`,T*:*(Q!6`2@T`ZYP#@%0.,&)*5)S2R"P$CTS@R3".>,%4X4
M'?\DXHD<3=E31U1]`.`$,8@[;`B-DAZ`B"%W_`,(/@K4P0#HF)M@S`$-_&,(A
MYCZE#OL_)B!R@.V8+W+[/XQ$`SE3*PS3`R``\(&+\)@7?_P_R2^"SQ4U&<(4@
M%'CK#0#?@_B=B"$%[H`<YTT!(\</6T.P@C$#D$_],>L4`3WQQD=._3#6+W+,)
M`L"P@PNPUPCM`:5[>^L;`L97OF/0@0(`#!LN'+8.![0O?@5:`?T&T+ZE-<T+T
MRZ@:.Q;A!0.D;6UM`T"`(@`+`4!A;%#@GAT,,!0`_.!%Y?``+8!`0@,LP@D,U
M*(85$-",$'Q`#@^`0@_3%HA'I!`"6%B'`>Y#``#H(`!=6(851#@(=A#`%U]C/
MA!?\X21^B*``Z]B`5_AA@GL<00`:HP-O[.`/H3```*#*0A:<T!E^2&`!F@N'+
M!T$(`$A`@`IUD(,8WM""(8"@!2`8PAO@D`<YI.$,:*`#"%`PAA2`(`8YP,$-!
M0""$-\B!#6%P`QE`D`0WT($-+@``$=)@AS20H0P@*(,<Y&#*!B@@"&)P@RG;1
M$`8V@``.O#R#',+0AK3HL@UI<$,8Z)"&-[C!EX5,P1">T(0I0*$(0^@!`!0PK
MA2)0H0A.L,(G71`#$(!`#'D`@132,`8TA$$.JVS"/=<P!P4`P)T`G4(9Z#"'&
M7+JAEKQT0QO*X$H0V.&>:0B#&-A0AH+2X0T@",-LYJ!+$,BAHG"P)D<W:093M
MDC((5`"!&=)`T3FDP)\`=6<YSYE.=_*`H0AU@T,G"@)I+M0'-D7F&]H`!TTN6
M=`YS",,9RN`#?Q8!#\R$`T5U\,^8<I0..`4!&>1@!Q!`@0E%"$(Y08#.<TH!Z
M!$200A*L4`004.$)(*C"6'7@3@#0`0VX/&I2E^I5L(JUK64MPEG3NM:VOC6N6
M<P5!&@I*AL5*-0QY*,,JK9D6O()@#")]`T598%?+?G0.(77#2!<+@JLJUI48-
M?:@E)4I1K7)5I2:MPTCA65E<?E:3;S!#;4^:TI52U)])T.U==8E+TFIT#67(%
MPQU,N<IHS@&K89BL;C7*`[TJE:DL`,%,T:G..[#4F+XUYAAT28<P1+.T>7ANL
M&=H`@(>RH0X5/>U%=XO3-"1TH0U5;40G6@8=P#2FVZTI"&YZ4/OJU`X\]2E3,
MW5F",=QAE8]TYU(U.89$?K2ARY7#&J)Y!JW:MPQCN*@<\O!/2("@!%NE91D@>
M"8():[4,9@A#'=B@R13;H0PE/C$9WC"'KK+8Q3LN*#'58-(;RV$.U70#`*HP6
MTA*4("T8_2@R*\I036H4R6XX0VN??%XAH%2E+*VH/YLP8VI*%9=7+6AN,RJ'%
M,]0!OP2];"K?B>8ZP$&J:9`L56.J77-R=\`(9@-0JSN',PPZT(-N0Z&!Z@(0]
M-#J6)1C"%8@`@!(0EJV5)L(3IF"%2L\!.J`&`202$()2EUK4$@@`$"#Q``%`U
M0@&K/@`%(&$``D""`JLV``9HC8!;`^'70`!!(0.!S&C20;=T-0,;WC!-#A_ST
M#<:&K1R(&6=A:I(-T40N&7PYAS&D$MDJ77:SL_SL:)=TVM,LJ+5!@&TW:!N;$
M?8D$`.(];P#(&]0`2,#7(,&`,T+G,ZJ!Q`)HT!<`".#@A5R`$0H.G7\D'&/X:
M=KC`U<#PC26<#Q67^`(<D?&$@Z+C`I<%R!=`C)%;8^3H&+D^1LZ`](!:XQYP!
M><,3#@.96US@0K"YQJF@\X2;H><"QX,!`@`"`10=!`0X^C\@X0%\R\(`'1#`3
MTZ,.Z@D<G``%,``"MDZ!"A1@`O^P0`$L(("E-Z``!5@Z!![@L+*SW6'_`/L_E
M#EZ`5L,=[*P&.P`:4$@#0``%;I@Q&U(``!C$0`8SH$$-;'`#'.0@"$(8`A&*(
M8`0`3&`"`9@`!2Y_^:]-8``$F``""C#J";PZ`0ZP@`,.D`#.3Z`"ID\``TRO<
K@`>@W@&K;_T$##"!""B@`9>'P`06</G90^(``,A#`)2_!?V0P?G0APX:``X:'
``
end
size   11923