Path: utzoo!utgpu!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!iuvax!bsu-cs!ibmbin From: john@dvinci.usask.ca (John John) Newsgroups: comp.binaries.ibm.pc Subject: v01i066: setenvjw, sets environment variables Summary: setenvjw.arc, sets environment variables Message-ID: <5233@bsu-cs.UUCP> Date: 18 Dec 88 05:01:05 GMT Sender: ibmbin@bsu-cs.UUCP Followup-To: comp.binaries.ibm.pc.d Lines: 359 Approved: dhesi@bsu-cs.UUCP Posting-number: Volume 01 Issue 066 Originally-from: john@dvinci.usask.ca (John John) Submitted-by: john@dvinci.usask.ca (John John) Archive-name: setenvjw/setenvjw.uue This program enhances your batch files. SETENV sets environment variables like MS-DOS but also allows embedded keys to access your disk drive letter, current directory, and DOS version. The SETENV program can also prompt for information from the screen in a batch file. This program is a .com file so those people who are concerned with size (like I am) now have a smaller version to run. The assembly language source and a documentation file is included. [ A possible altenative reply address to the submitter is: John Wolchak The copyright statement is enigmatic, allowing you to alter the source code but not to copy or redistribute it without permission. Since this was also sent to Simtel-20, from where I received another copy relayed by Keith Petersen, I will assume that distribution of the original source is OK, but distribution of the altered code is not. The command line may include special variables that represent values to be filled in by the program. These can represent: major or minor version of MS-DOS; current directory; current drive; current drive plus or minus a value; a value to be taken from the keyboard with prompting and an optional default value if just carriage return is typed. The program traces the parent COMMAND.COM's PSP pointer to its environment block, so it's about 99% portable but not 100% so, especially under Double-DOS, which has two COMMAND.COMs with different environment blocks. It is still a generic MS-DOS program, i.e., it is independent of your hardware configuration. Uudecode normally. checksum size (bytes) file 49892 19175 this uuencoded posting 27741 13896 setenvjw.arc -- R.D. ] BEGIN--cut here--cut here begin 644 setenvjw.arc M&@A3151%3E8N05--``3?T2$``'@10,G M#\8S:!*B&)/":0X<.$"(R0-"R1LT:Z^\83,&39@U=7CF34(ZM'L7!O%&#HBI3.64(7.5 M#D8QP],F1,KSS7`0;2B7P0.'39HQ`FNR=CT'-D07I,V`R./].5ZFMG$[;PNB M]^_@Y941QAP%D?'&&'5(1%%_GND45FUND`$"@1&"5]!8T/5'6![!S4&;;6ST M%\9:GJ4&@D#P@5#552`8B*""";51QQP)V79'&'E@E>%7O;5QDAN4\:<77WYE M]09((H%PQVYKC:4<92RV$<9O()C1G'VBX5=<6\Y)V9E:9:2X(E;^`3>;;@6) M$59";\@7'I:C@;!&<7<01,9-=S2W!E9WE,$&&RF61MT<8WB5!EAY40=41*G4Y333'@&F$@!U%PQJZ:;&=EW.C&5$., M..58D!0PQ0U+@`##%5#A584;J+$&VZ3,R=V6T M@98.4TDY!U<$XL80"S)-99X;:TR(T%LH#S#5>&7(`.E:);_E`LTNFVR'"SUB M7*;+9\!8TH!S),C;'#J4R0(93)=94G-G.`4##&B45!*-%]&A0P()J.&C9&6< MY@:YQ-HU50)$)#M6$-*%@?%X`GU19@)DB)$`##.@`39-"\$%$8QDF:411V/$ MC1L9=<54`$U03`'%B5AY=.16!I5-N$=EF)$&'G6-`0>C8)-QQ]Y8_ZTBIJ/# MD:Z&;4@9(=!OC%326U^T:4;IIU_M=P*`,^30X'.E:T;)M9%!QJ)SU(4[;'KP MCOKOP0LNUX+0I[769+@UO_479+@MO>^J3Y&&'@6U"<);PU^?4/ATA%%7&%_@ M7I8<>/>>.O`@!*$\\Z]C7UP(=[^S$*0N6"9TO M3"4A@P+MP,"+X$UO.(!!B^H`!Q3`(`4E<4,=_E0ZO?F.!>3C7P0'6+SX1:HN M>?@"'![B(SHX$`8XH)Y!+OBZ$Y1@A[6#0T).4!<\Z)"'2ORA#81H/O35A0U/ M3*(/\Y8`$2"QAR(H21VRV,,/=A$*4GA"$Z!`A3`JX`UDC*+I'LB_)YCA>`AY MW1&A2)?O_69W/Z0!%2]X1?!UKH5=+,$?W3C&/R)2!"4@0A&,X$8G.O*'^Z,) M$3H7AA4FI"QLJ$-!LE<7#EYRCC:@P0A+>$+^;=(,G;Q-X4*)004DT$!SL,/X M!%D^0I8$B[C4I1E%$$Q&@N\-N7PD$9XP!2NX\9;(;,,N!VG%7QYS9(_$91N, MJ4UE,K,)S[3;'<@POK[ULIH*P.(8QOG(=9+!F.Y\Y!"N0(1P+J]/&%6& M,?PPB.>LI08WNAJ/3G0(:I1<$8:0T>]]48Z]NX%#,QC'+>J-HFE<(Q5:JH!. M=@=_PSQ(0F9(O`59!".'*XCED,05*\3`!2)<3&-B@(,6',P.+8C!8R+CQD=. MIC*7REC/*N"13%$D,NT`@A>`0+08SXTH3P0"+M04D9 M?'"",QVKN[69I2B#TYP(@.BB!.V=+ M6"D?##=?`X%,WEJ0$I3@3-+985B*-Q;8Z(0C;U8+"(1@T2I%*BS2S>Z+.9O> M,@OZIE51C5:2)!TZE,H-6.&/E?YT*K54K4RR+71AI5P(TH) M@L=9JO=5SC&(DYQM-Y;WW!=X8GN MFG",^DI:L/(&YRH)(W0PV=X$26PI'[MX>:T@">$7;!CHL]JK%D$=(O*LW4A( MQX<2"&MB,H!\W5K3MA6-KH5'PP5EFR-;$NZXR;FW((+[D;I#GOK<>Y1(A4A- MI@5E4D"PMQR\&\;%ONFUL7<2L%"N2BMD`]@(>VLID\"-=Y%W$[[RD/[%36A) MO$@9OD`C_'GI(0E081L2VX9F)V`,>`B.S!,;YYO[:`YB2.Q$R#!S!92DYJEA MN742\/(WQ#Q!-+SV'.E`%WJ$BHXQ>0^&2G`3$,:$4#:UH.T,(,LN MTBT8G!`*T8YX9)-\>O1IG("I<0E@@V^`SFZ:'"&/8^%>+<$VAK'9)C@QI$D2 M(KT;Z4"(,O"37V+5X`8]:(@BJLL"H"N3(#@\]"I?$'7:P;9V,N3<>,CSZ;SP M1Q,D^,EU(#8RWM<>!C0@WN&J(\)5RH.C$_4QNVI)B`QBD#6U-WM]>*B;T[R5 M.IH_,086U'=[]A5K0$(HQA\3$Q*-6MUD1)TT$%R4']Z!S7XQX)[&'C]=X8S*(`$*`(&F(/'@2E# M]SK\888_,'F6=S\*Q&\T<8$IH@2=QQS#T8$!6(,P@'O\(X*AZ!85HCZE"&ME M<(H0F(H7L8I%B(&<-S;>\7N$YX'!(0(9]8D(R!^CZ(ME"(S""#81V&O&R#^N MF(RNLXRT2(.(=X/2F![4.#NH"`+%`3[BXXV;=P4%<0;&X7OCR(EZX(FY.`>3 M5S5;\@5ZUR=`11,R(1`RZ(P#&`;Z2)`%$)"L,7EBP([&`9"GLF[\`PD'0%H$ MDHT)D#01*8`O(40CMUH(F(BYH9&U](\.&8F)12/(5(DT82PFPA^"AWUCXXB0 MJ#4*T(Z15W^T9XLWJ(4@L`6PT07!81LEH8I#YY/'QXG1R#]"Q8?5*!]WV)+( MP7<5*)/:@8>DUY2G!QNJLX?\$7`(,7O')P:GQX4+U$`T079F(V^=H8> M61NGAY9AF4>_.)<)J!.)89:\E4!O>)1XP#]!4"$68R(HHI-=N84U2)1IT`5Y M62/\YW\'68O/6`(+"0*ZF&( M!(\8F)KAN)H*@).C^6.2>'].V)LU>9GD:(,X.(VBJ([#V")NLXK-*2"LUX(8 M*(^F48^+F5TNB94LJ)5\V)T0>).T&7DZ&7GHZ9PLF9^NXY]#5Q+*.1?I>1'U MEWWJ(0?+20>L"39($'UXUF%UT6&WR1PU]86)!0X:!GN'93!P).U&$\ M5P:N`X!\MX\(N$=:%(0$YDD).I#LR94)T"BN`QLB.@<]H:4U*H1?6#XK2B,M MVBDP"GRG)81""1LXBCQC9)HQF4<>4BI@`9C]<7I%RD='FJ0_IS=,FAXE@$9J MQ$90*E^W,:6G6:)82J+9M:@TJHWZ^8B1ISH'@YJQ*([]::B/"*`+.C91>ALE M@9,8VJ&$P:A@XZ%^>@`M9VEXAZI=F@8ZV6$QD)V4Z(130%H"UAS>*8`P8(X7.0!C M\8-R<*;:6'E&TD,Q4**T9WL#^'$&"&FLD1#'FC:-"0)9I9M'*40RT7UEVAQV M2J\TJ*BEZJ7Q:GIARC\>$7RKBJZW:*^VRCI\A'?!!P+#5WRDFJ7,VJ@C"K`F M"J:,VF$RD*&UAWC$ISI2H(!RPEIB\`87H:L5TE'SXK`+$K$ENHFV"%*\68^! M!X7)9G%5^!7ZD9Q\-`/76H,W8`9"=`0V&U\$@1L,8FLQ^K+$9Z`_6W]+J*9?2K7/6(`$BQ%8NW[*UK4( M"[9H*GQC:W1I6[6J<[64*08XR[4'BWAT"S8/"[,".JY*-#`FP4;3>"JYA`[5\I+A3"Y16Z[:4N;ER*[C%1[ABF[H9J[;> M4GM[2[HIMC*=4P;7%[A?R[J%>[<3:ZI7>K$5&Z\"J)M!"P(PI*V*!XHI9KI/ M:WD=E@.4^@:O>*G4.;7#"I;\TP3-5@;"VJ9Y9$J'1)`+6R":&JMX:DB`Q)!Z MQGMUNJ?@T6Q9A[?"*[I6^9)DJT4Y4'^+BK&.6K&3%ZFU*3=X*V\3&B%X]D([NRGXDN=X[Y*ZJ?)VZ0(O(XXZ<")*K]7^J_!V[HW+*8Z3*8\_*(^/*Q` M#`*--,11.:=`:J=)C+Y,W*M,##^JCV M%ZT5Z)KD:QZNT;.A>Y0:!Y62NY76Z[V?A+Z\"7C_4V0HEICI0Y5^%:3'9TF= M,[`QVW\:R)-8GTJ7]]FXGW*+HEW*T(\6@I'%^J3`960:Y_Q":D#JJGEJ@`. MW+%".:]%20LZ`5:R)(R"X(90QL,[V MF@"W^J4RL,[AK&8+H!96HH0RC+%"RC1;0#>/6"9&Z2U3Q#_C(B7M8FY(>RB( M?+@.G,T9I*DSX+&M.IG]42KAE1"-$GQ.^Z5H&1R>G+X@L(<.K&*C%#^EC'=U MN:N249C\HS&FD49Z,]%&;3/N`+"J;QC M41XS$H2Z`SX!%;/`V0*-C8!CL5R1W;S],4X1F@!RF$=FP$,I=AJIL18$5Q>3 M37`9>H.*C-23.TII`,)VZKK]G-C"[*DU*`(PT-@0F="'*T\O;VB?3)\JEQ1H/<=V_ M1)LBWAP9JM!VXQMF0L)QR(8_?6!(\2=DDW"VD11=V]N:N;??<:`+XK=::Y-W M3)O7":%X^]_U%]\"2.`TX3\24MJU$]+@53SM?=P4K`7"*1\@0<^YT19KH07] MF("/>.)4*A,>7B(7LA9D/C\;GJ'^+-L%P1_X?=+BET?E%Y=MU@+,X1S\E:PC M"L@TC+$R6L-IN,4$>]98NXORNN<@L`)=R]20@^A&#C9*?GHP8&N^RJUFH!_= M2ZSM?,RU'9^YFK^MK)T5.!@^PCSU^\JUNL\3C*W(JV8%$'G8)ZZC[J\4V[N` MS*#0+<"A7[*+O$;8SFL5K]\,PKJ/Q MU.P^2J>T&4\=C.LS#+R/G*+-KBD!\<71CJ;3 MWNEC/$;93L038L3=?J<=(DYD$.Y+^L2`.D]$@.X+S4[K;L7[B^RENNOB&DS1 M:ZFJ&]>-&O'4WI2]S06;"07?H6>NGK%OOJT/48]`OB=>P:5^GJJ` M[NY?:NTY2H20XQ469UD>JNCCU5'((=[L&(A6>J[!00,R!=(+3N4.`?3F==NV MF$F"(=),ORH-?H:[*['R-TZLG%VN#+E&H!82;^HLJ+VSO>J0*Q-TYWYHK]B8 MV\YJ8A45\O/E)?2`3YKBVOGL;OBIBOI;^6P;J\%T/*U+H'C!+0.S_%V M/:#*;LW"S9\#+*$4VF;!]%"[9>PRC^R'O^QZ'Y7R7J9@C/B`7.UB?.W`M%L\ M:A#^KL9?>4UV0/#CWIG`]3-2O)^[5<<=G^L6F_L?O_OY/Z;S#NV<.^C_?WS% MGT>-M%L\VN_4UV0/#CWIF1Q$Q6H/#7)$RM"&BW#_'HC]?=Q#^5"H[` MC(=3//^%#_'HC[O<#=+$11;F\J+LF"#6[;+O7:)*WMN_K3KUK=GLF"#6O:_? MW*_MKX=VOG#66!#$M%L$:(WPOULQ#Z+VG_M9K/@?O_MZ#P627AN*3DPB\.AZ M#P62CJO*8Y>(QTO;&@:;_I`U/ZRLVO;\(0)V(`+RGTM=#S9?[X2H+F?M8?V3 M/[ZJGZW>3^N>'4P:W?&YWO'H#]A]'3^__O[M%4WR/S+T#Z+VG_OIK\7Y/Z;S M#NV<.^C_?WS%S]/7)$W:[N]J_)775'1@$V?]X<9_FA#`93OE.<715,<=G^L6 MF_L?O_OY/Z;S#NV<.^C_?WS%GT>-%$T\VN_4U%!S9QUA]N_*<)$4G? MI/#7Y'VM"&BW#_'HC]<$5_'@",QX.,71M/&YWO'HC[O<#=+$11;F\J+LF"#6 M[;+O3=[>;NF"=*T(R\X&'\26[.5L,1'8I]W1Q,&MN'F_C*E?BJU8D\BO*T1" M$#=KL*HUR,[B2T(R*`:G,_ENOQN?A1HMHG&3?P#4<1IT$'^4KCP4_-NJ4]^: MS8X)8MW[^LTT6#Y!'^<3$7_Q.J1\H[MIZJ7:!,&XJCRU@:Z^3=_>K=GLF"#6 MO:_?7!M4%/3I,YKQ5^?DMW#66!#$%$T$:(WP'TTQ#Z+VG_M9K/@?O_MZ#P62 M7AN*3DPB\.AZ#P62CJO*8Y>\&M:U&@:;_I`U/ZRLVO;\(0+;)/\CT_5@\_5. MB.IRUA[6/_GCJ_K9ZOVT[MG:I-$=G^L=C_[>.:0P($CKJ$V*6SH%7;':Y/GJ MW^N__OY?5BX/!69;"J+VG_OIK\7Y/Z;S#NV<.^C_?WS%S].4C4_:[N]J_)64 M72X$/^Z=J4CU)<7[*0?"U(J`=OOVG_L?O_OY/Z;S#NV<.^C_?WS%GT>-1%#- MCL9''*]K3'`$/^Z=&4D&A5`*3]G"U(J`=OL0C_Z`3>3CX4/\4ZG@",QX.,5R M8`<;G^L=C_ZX>]X@#>I67^6J^]XEJN2]'>'9Z]V:+>;YC?+?W*_MKX=VOG#6 M6!#$%%`$:(WP7U];"J+VG_M9K/@?O_MZ#P627AN*3DPB\.AZ#P62CJO*8Y>( MIT^9'@:;_I`U/ZRLVO;\(0("]5`!U?5@\_5.B.IRUA[6/_GCJ_K9ZOVT[MD$ MI]$=G^L=C_Z`W=?QTY_GN91"+?DLZ)XJ!P).L`*$_Z4VC;VPS(=`;*=6K98< MQ):KDR9E=S958XT%497RF=UV&1QXV=1\")L]_9>XJCQVB;JJ8P170@=Y`@)S M+[UK&L!';9B(F=083YNM0_\@.@?2*LK\02!%4SQ^FUFA/030=AZA603@=25. M#D`'433%HSY(Q%1A'!PQ($A+G9NZO39#`&WG$9I%`%Y7XN0`=!!%4SSJ(_R, MTR.W/0>$V>DQ,$5+G9NZ':]C@-"BPR@-3=3MGQ>:4SQ+PAJ\:#W(!KAI.P>$ MV>F^$ZH(00-DD';R!H,M`U\T<(.B232$<[+[=A'C_:7#J]NO7H,T$)3E28]T M0`,#C['1R('9D@S1^M,XYC@-"BPR@-S:I_JN@6$_@#TA^M MD\'B*J,L5S85SQ2_C*E6;/1FOZHU.`.Z"=+\4=VYH3X$4C1S$7]5?7H<1W,K M=-/;F=Y_F"#6_3J"%W_Q.@8(_3SGT]"LRLAT7?1>J?=)<%K283395>G!P7&9 M;EGI:#U&4_/#RJJ^:@`$4C3%<[+[=A'CC<0(C3NZT]"LRLATC8?R!HLTDF(& MDMV(LQM:BV(3=\%QNS9#L!M:BV(5=5$_<26"JE,_<24HM48KU0./3LQS`-+' M[#9$8S1?&A9'S3_NU_,(J&?C<>!$`R.WS?MC$O@U)QUX2(]C MSA#T#Z)S(*VB?,QN0S0P\NC!$18@??*E-P=';1&221-A_UQ.[1E6R.DH78-C@-#4L9OBJSX3]VIS M"2]Y0:VZ\1!U@!AT:#V$`U_I"&IKX^&C.1ULD2?LF'&^&7]Z1Q@1#+G<*Y//=OP/8=W-+UZ#G/11P9)^0XL8%MQ3]+8+NNHW=OL`;(&MH' MN)=^B";2(8QS_P9=#S9?OYW[5[D^-\)2WYES_P:Y?`?05@8L#([`_."2\<^= MF8X_TX=)E<'BJG>$4?%,\JGWBU6OF>O6W)4@9L M_^ERZ8=6^O5."(,M4WLD:UD$`OFE4]!@./D#D`9D^(?CD1""I_J))^LL,O>T MD0;RL27KN&W)4@;-?)$9F40`=,QN@X?;EBPU$\&0B^IRUA[6/_GC:Y[QH_J) M)^M+YMG;EBPU4ZQ5:<5?OYW[5[EX4]!97/:)1^X(./=OD,'BNFW)4C,5SQ1[ M6.1XN&W)4@;0_Z4".`8(K>(,K?K>QKIJ4#7;EBQE(+5(C-`JSM"(IT\R1&^N MUH=)1<9PP&V,(T9PP&V-:[Z\BM"WY#:221-,,!$[T1,#YS:W?7IC@-""N987 M(9DTP003L1,]H3ZSC]T1.:2FUY+9#?"YJSI-P&!8(0,@,/=O`&C>.:2)1^X( MJ`8SHNBS'_[/IFYLSS^5"H[`7/3'E\0XK!"]*!^;(2$3!\VE=WK4H3I#0/6_ MCTP"T?_RF=T`WR)N_:78*O5:P!KC;'5(RM4OJ3I\N"C0?-`ZD-#@M^*_T="7 M[C?5(T'8!HR7-6N,@]?;UWVAG6AT:#T3Q)=7\6"[*!WPD@`'BZYAH0-;0!V[ M"HD\2 M3L9PP&T6WB*TL249_FSJULPJ/QVO%>>B"%Y74B9VJN++!P.\5#T25#PYFS[. M=@?09C)"_FSJULS;ZG[282!XN"@(8;8R#,AG^_\@CWA23_(),?>T`?ZD3_I" MJ>++QW$\FBD%`5_+&$!UR`)XO7W=E^GN]_;)`L/RQ^)T"#4E(>NC2,I&K@$E M`1H(4T5414Y6+D-/30`$WQ,'``!X$8=8I]-E"0``#.EX$1@``)(7!``,`(`C MYTT;.'2@2'G2!`H5```(`"A!IHR9$D2*&"DH2".9-W/L$'DRQ8I)E&U63FE" M<,P=,D.N$"D`@(R<-';*$)&2Q$H1GE""4$'2`^$0BE.@%!G2XP``B10M]IA2 MA@Z((F[LI&GHIDT9-UZMA/D91@R;,B"@-#PC)TP;$%9BN(`!`L68%"!BX&CA MY(V=%C%RX,`!0DP>$$K>H'$#XLH;-F/0A%GCHH&"*G/"G(&;9HX.$""F%*%2 MQ(D5$#SLK$W3]JT/V++9U"GCPW."!+%GU^;=^'$:.B?F@)A3AHT9$'3>@"A3 MEWEG!;^#ZR8^)@SE-&[&Z.X(8DV9/,KGU,D,(HQIWPE0<>01#QVQX0,/=)2!!QU[YGD;#UU^R9N8T;4WAYDK MIKEF&=<5@8==1)9Q&B0#,-=G6$&FZ*%_'`FI0PD3>E98GSK$AREH<)50PI@@ M;,A0&"$$I5F,9;&;BA'1[)G MLL'&&W?D"L(8;W3T'G9N2,=M&P*Z04:;R;(!1Z]>[D;A;S#`@(9O9XE%EEFV MRL:66W!1YUX99,`KP[S8U3N6@_AZI2]M_&Z[81A]!IP`##,0G(#!]W*X'!QA MC$&:2+[",*,X$(`B!/!0`AT4`"\\'0O`S?@`K,N33B\" MI&-!`)#+$<`55BSBSQ&^F!'`(@Z0$<`\IA#O1?;;^\+&]^&/7SX!7GRQ#C'K MR`$)`.?;#KX8`0P0S"+PL(+RZK`/6I``$63X1^R\L`AKX$UO^?,'+0*@-QX@ M@`X*X,$?ZE`!62"`%@+0VQ-D`0(0ZLV#)@S!.KZABL7501NR:$`*9:&`%)[/ M>`VH@P.TUS;V^6%\I'B=*N*7#BC\8Q'WN)SA$'HCB%`>0C@0BD16*@,8O`$$]&_Q0>70X@`Z$08<-L(X>B*#"/V@!`D20@!8^ M0&``$$$$`3C!!7SSFP'6P0W]>>"'NT/"*'YH2.OM#@BCX)\7TH&!?Z3#&OY0 M!!$"P(,5T"%X+:@#$Q0!#T5000"`T`<,Y(".5.;@#^,`A#I@0(L,Z(T`00"$ M/SP)`14(@P=!Z`,$`AF`!,"B!.D@A3\$\$LM_`$>L<.>$;1GNP((````9$4+ MH.;W/;A!.V=SPB0&-PVZ]!-].U3`$?0I@N[^85TC`"2#`%)T0CKPL-.,>L"='`AJ2'TQ`KP: ME8A9Z`=+;1D"7,84K07@R5JY2409]*.@M\M=`'9G30",0@$!\(`O*(!-`C@" M&[ZP0&==,`H"!."SOL"(\9I`AP14$P+8A,P<=#*,.\'#"!%[52-G18Q&C3ITJ8A&Q,D*/,N"!T@AKR!DZ?M&31J M/8),N1*$F(M*WJ!Q>N4-FS&1U[@(2/?QF323X21MDV;.9Z=TWD2E8YC.2Q!C MWA1F83LBY3=JHV-???'G8;IRRI!I3J>MF(@P*X+H:_V-]S87R^"!0W&,?.5R M,.<<4VXTEH09(.1AWWG357===MO5%%<86(%`QAMCU(&6&VH!!]8995@%%AE7 MB44B6D$QF!UKW,TA71A280<69)+%1T=C+C5G(88:I@5"&W7,H1:,=X21AU7$ M!35&=FW``=9%UL%4&DTVX:033W>\Y)10*UZD8QMA%-:3>4F"!=Y+0($)7!J5 MX8B&CA"6P9UX4=H6HEIO((@?@VNX055<9(`XWT]K6'5'&5(9:&%S8[`11AH\ M/0E8B'`TM908>EG$H$]`U1FGB&-(9&E'0<(4AEH*U@$454ZU-<<:*8A6$"0& MY+;;:`(IX!),<^3!81AX@)`G")Z^T0:8;I#8G`X$)3#E0SS8P99;<)7A`PC1 MPEB'M01EV]9;<5VKHZ324D2B6&29M:%:TGY;;8(+]C4'&L1*%U!A9K`)DWGI MM8"OOK(&E"T;VXHKXE7ML=G5L#:Q20>X,'FH4ZB>-;9$&4?*Z)08,`541AL< MDU&8LM`]&-G$U&&6,%=NPG1QQFR5P:P"=)4PQATD]A5C>G2H6G+$JJ;'X:+I MA?I3'L/1#$()%\YAQWQ^3=JS'#]O9A28:IAWV7-)U]PTEE'S[#.QUR7V(YM: M>T9@UTN3T=9D.O\E-M5D`RV'T&JM]ZJ%;\,4EU9)L5U""T[%+?78G@;MH]YK M\(T<3,RY$20()[AQ`@A_IXS"'+$F6<(*A8>=%>(/*CXTXXXG1[!5E5^>>5*; M=Y[KP`5K;"?E)539I%I,EV$QX0,/U.%!Q_#!7\L#6LZ%`:(/)W`74)9) MP53G\B'.X;RU(.BH-W]&JB=LU=FYX6)<025;]V'IS5&I^?%9A95:#DM79[O4 MQM48\?H=W[U5URM7[=*`H("H(4A#.AS=='0',9M,QG.L$=GN0F0[%7=N M@YWTG$IAQ/I8I70BAXO@#V)(4@!]Z#45KJR%8"%*'XFBU*J/F02,4>()QSAE M*C=D``!2DDP0E4X$X3GD"$ M(MPP5P%)PL9.!9R.""$(5.C)1$($DE(MK03UFI1-0N0CH2R%*S"!):<@4J$/ M2N=9*X#R4/^\'8LE(KXS'"32`41 M336YB2';L$7OA!($9]B6<[*H%L-%9C+B*9)\=KFU=\K@D\:G,J`IP7Q:1*!.BV(=;$,W;PI#&:`U`0H]2P^E4E!A5]=8`#&:*:TQI453!@H@-PQ+=!YJ0,IS"P057S9(;Y"0M!SX1; MU%S(IG(%,J@[;FB!'I(BG;4^S#9YH(Y5Q)(=P:1,?&Q:7UE] M%)#'.A$$.;)*9."@G(U2+RR>7>K0SAJ_]07$44(:7WRJ-ES0;E6.B`Q>5M2S MSHXI@+J(3$\;3"*^]\R35Z%%9!`YJA.LD*$QF37O9NEEN/D^%":S;*(@( MH`CE3:\Q3)P^29`BX&$G_)$909++T0Q9FO>9K3S?7%Z3M M_96'=_GD_-#5&:6\LPE3:('9K"#-IMG!!35^PQQX$MP:]RV:TR21V^SP@O7( M(6DK'@O?[&`5(O0-D=)<`0QT0-**T$N:*$'-+)]FQ2C'`#65,1Z2QZOD?"F% M=[GK9PQ!D`7[`,4(96=F(<&RS:H"`1,HI)8YHP4U MQ24SE\UW**!(<\_.]-T+LO""I?69#K`L09YAN05*.Z$+V,J"#Q"M@/D1!,YG M_@YUUB?-,1GX*@I#'RR#FV&YHL%`H[0UO.I@NX"XL@0\N.H7VN4#6(HG/6:( M2ZC6)\!](4@H6V;*Y#P6W<:RJZG5:DP3PK`&7JD*)JFBT63$8I_7=#9=TE5+ M<>,K'B']A(3C6J]O3VS;,"3-FJ#,-Q+8<[24*B`(#274?&#RWZ$TIW%6A#/Z MII`4LK@Q2&`T6T5!LQBZ!.0*6DJ1FMY4&=L5G*4G$_+!N5-!8:7IW322@\CW M1DBV2$14&[4BF/+@0J%52#8H:4[1HH(5_4WIPDAY<3:`XXDDZ^BO@2 M+)FW2RD*^IQ>-*E_56;EPGFZ9G0;'NEDIGL(JE-`IJX?]J"].(&_#N'Q8/CR M%FZU@375)`\UOJ0Y&,+H6Y9**;24,VRL!UWQ@>38L/D!>=XV/:"7Z"=;^LY_ M/@T@6#WI"\+Y-)Q>##U00^Q'WWK;?[YQLER> M]04AH*HKS!X0K"'YQ!^1\8V%4/!(1PU#5JD+A*E2Z<^W\-E5`_:-5?SCG\'[ MW0M_0<8_`/&3/U@A`HP2_D2+"@`!5,`!2`Q+-F7+-O7!AMH%3I"/9-4 M)U[T%]WEA^-($2'R249@'G52*DIQ8A*G-A3'6M7E,$\Q3MQA1>EQ'$)B&`%A M3CU0`T?%'1082^6X/O((!09"/U9A=Q6!*!8BKU8<(-G'VQG/8'!*T="'3PQD&KH@#>Q:M9ABZ4X/BDB M!8_B!F)`%5EHF20TA/VX6H_Q7[("<+[8.-18(0I!!*GT6GNB'A5A'EP4!&[0 M;4`A!$EQ!BTP!4V!A1T!(R["/H)A%:"1!$+0!)0T!-$($NX5%$1I+#:"2$)! M$5J!/HXB!X)"AX?!."L($QEF7U=QFA_3&-BIGI#!GH[!2RY3!,@)B4I@)""@ M!`V',;+"F7I($=T62T(8G753(P!"```U<``P$!!6=9&:B!`C.05R"1`S9@`RU``S@`D@'A D!%E1$F5'+R@@!$E`!4ZP$"F`&KWQ&\$!!-KS*@2A`0$!&@`` ` end END--cut here--cut here