[comp.windows.ms] Source code to Palette Changer for the 1000

rogerson@PEDEV.Columbia.NCR.COM (rogerson) (01/11/89)

	Here is the source code to the Palette Changer and Palette
	Control programs posted before this message.  

	Although these programs are only meant for a Tandy 1000, they
	are still good examples (I hope) to learn from.  They use the
	following features of Windows:
		- Reading and writting to WIN.INI file
		- Painting on a dialog box
		- Using a CreateDialog to manage a main Window
		  ( Like HexCalc in _Programming Windows_ )
		- Painting an Icon

	You should only have to remove one function call to get
	this program to run on non-Tandy 1000 computers. In fact it
	may run as is, but who knows what the Change Palette Bios call
	I used does on other computers.  Palette Changer is also interesting
	because it is probably one of the shortest useful Windows program
	there is.

	This program was entirely developed on a Tandy 1000A. 

 	The documentation for this program is not in this archieve, but
	in the archieve with the Compiled versions.

	Viel Glueck!
	-----Dale
		Rogerson-----

	[ This file is uuencoded and ZOOed.  To use this file you must
	first uudecode it to get the file 'pal-src.zoo'.  The ZOO program
	can the be use to unarchieve it.
	]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

begin 600 pal-src.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $        !W*?$
M_0(!DP$  '$    B #<#!<#B 0  (@$   $    Y,0  -0!P86QE='1E+F1E
M9@ @"@!_Y6              0"DC*   =[082+"@P8,($RI<V$#!#A!0@C I
M0H5*$1=$BA@!T>8-F3ILRH @4\9,&C=IZ*1YXP:$R9 @4%PY2>;-G3D@[)21
M,V>EFQ0-!2X<2K1HPH8-G01I4@2$TZ=0(88)28=.F889IPR1D@0*E21/G$ ]
M 65JF:HBA["D(^<-&Y=OY("@@T8DE3!NR.0!$0.&7Q M8@Y) 8*(61!2WIS9
M.8<EWQPX<IQH.(5*%2%1,Y^XDL1)Y<LNBF I,EG!D"<9,T=M\L1*D2!")F(-
M0B6(:JBL7<.>"*))%29?H<A6@.0UE"E)M#3-W%<&#<JUARQ!KCPS#1@Y;#04
M#>6)%"I3;C?,?"4OE+9CG *),3YJ$#%OZM"!"D1&>ZA2RLPY2W]&0PT! =RG
MQ/T" 2 (  #: 0  (@ W VB0H \  $8&   !            <&%L971T92YD
M;&< ( H ?]Q\             $ I(R@  %^H^$*PH,&#"!,J7,BP(<(&"B""
MF$BQHL6+%*&$85.&#ITR+H@P.2(18T4B:3:^.0-"R!L\9>: J#.G#!D08O* 
MT,C18QD00]"$<7.FC)R2#I,J7<J4H(H7$"$*;$JU850%)D^F9+.RY4L05,JT
M@<,FS$<09MX<Q9KU(L^.9X,.+;IV8M6["9]>A1*$21$J5(J ()*D[Y,C()@\
M"4+DB9,A?9F :/+$2I$@0OP.3C(%LA0BF#778 $BQ@W2,7# 0%V#!L0A3(),
MF4)1Q%N?(EX'@4(EB6,0MC?"_3GDC1LZ<MZPR:U@"I4LFB=>F?*E<A$IL:% 
M*4($!!\0T[] YNW;B7?PU*=DF=*DB),JY\,W2>(DR7PM180\P0)12)$C])5$
MT1".42'%$Y*)8,)M'XF F@PQD":"&'5X9)R#+5%WQ(%50*$?%O%IR"$4(8J'
M1!),$$$:#:BQ"$(-JX&00PT"3D2@$P8B")P),&!H41)$$/&%$$MLJ")P%%KH
M!H9"4"<%8[X)405@OWT7'A68.?<$B592-\2)*9:XX1,=DH8#:3*<5IH-#]8(
M5($')FA"##Y>!*20CA4A89)T7$A:DU\\2=@34E)I7I<FHGCDF2#0, -J;)8F
M@YLWYBBG#'7^&.075%SQQ)X5]KGDGTY"2>B45%2)7J(IFDE:#3E VB9; \*I
MHX(S9#K1G9PB(441>B(9JI\9!FIJH:D>NNJ7BKH*P@VCK3FK197&"9P0)JA%
MAE&Z\JK?9]>!JB23I0Z*K*KA,=LJ"(SF$"$(,T0:PZ2TVA@8%E34IBL(O/)%
M'Q5HNBA#K"#(X&(-.%!JJYS%<27''/O.&^.$PXY:[)@=?BCFB"6J>Z0-,48;
M0PSRQD!CO6_B:*T(0I0UQAK[\KMI9D$,L82XHI)KK+FHHDL=EDVFRN6J& ^=
M+IA'WA!C# 3/X.*\"JM\:\MUE!&SS$)F5D6P%(]+ZLY1]JSLT<T^&^,,[\K 
M*-0H5WOK$7*448;%=FZZ(;!.X$PLH(*&;6C'2).F](J/POLTO=0N#-P0>0QU
M-:]#9!%$WL)Z76S?I_Z-J,>"AQRMVM-6Y':"4MAT-=:!<J>WQ7P?*S;@90\.
M@@UJ@BYIU)8"UT0811T71K>;-A'$$>YAN;K.F)\[MI>!FRUXTP2SG;C4"0J1
MW!UT:YKU@5=0WG7.7R?_^N;-R^XN:3.LC;CHBHL =QAY/&[WDUD<'[[KFB];
M_M(P%&Y[#*YI6_N($ 8YK $$[XL?:7:U*2(4B7[VNQS^D@6[=8WL:02C@;S6
M5ROJ 8<)='!!2]A0M4SQB@E4T!K7^+2W<OF-@N0KVP71]RY'A:Z#N1,!"$4(
M-[EE[X14N)M[(M@ZGN6/;!8$(.%6I#[<K6R'0&E<]E"'PLA-CH@NS!P,]2=#
M);XH6AJ\H8W:!\72D0%X0D+AKX[TO1:"38L^8]619C@[-=%@:1P<HP=U&,+)
M\&YN=/@=:8 H/.+A* A8?*/R*CA'+]Z 8*T18\IRF(4RL($K=]@7K[)0!"8H
MY@J)%-\1F==%%YT/7DT4X!ZO@(8T-&B!VOO"%4X4F%!.,(Z<*XT78] _]&W0
MB;=ZPA).)S-A)I((13 "%*HP!20L$E%%*Q'0M&0T4JY+?1E\6@"GE\/2U80.
M,0,29![3R40NLYG/7-4TA<9(TMA@@]EL$3#E-(4PV,%JL*P(KZ80!,N8DYG.
M')\ZL\3.&%K08 ^*9VD"Z!XB7&4J>(DH0:YB$I2HA"4NP0-:U (";W:D)15#
MBD0CJI>(*,"C=,CH9@R#&,4PQC&0\>1DK!,:P1"F,T'X3$U+4SL9H(:7@@N@
M<Z CF/"(Y A&>%)[2@2%+76H/_\)$,HN,CK@H'0GPL$-:5KP+A',(9!T2,,8
M,#0;\13O.NT$08R>!H-()6RJW%R9":YJA.2T 4-<3631-&;0C\E*1CZ%5QXQ
M4E41U/.>9QSDIOAI&3:RD'593&=XHHFH=6XIK4"%U]D.YR:J#K ,9@A#'=@ 
M3L4*"9E&"$(54&A+(VX1B4>J06!GL-; 2J\MA14FAH!DS,J!KUBH/6= 1_D%
MR@XT:)?MJSM?-=NU;1.W[1O"4,9@R=T289Q#**=OW2A<R?Z,H,GEXKI QEST
M.1<B#;W*5300$-RGQ/T" 9D+  !G"   (@ W TW7,P<  #(#   !        
M    <&%L971T92YH &< ( H ?]4%             $ I(R@  %^H:$&PH,&#
M"!,J7,BP10,%(")*G$B1(I0P;,K0H5/&!9*'#QN*'$E2H8H7#P6"2.(&31HQ
M:>B H(.F# @S;]BP>7,GC9LS((B4,>,S9IHW;N: ./EP!)FA/FTZ>7*$2)(A
M0: T"3)ER92F3XFZD?K$2A(I5*H$8;*D2)8A3X@4^:K *=2Q(*8Z&=)D[I0@
M1^:"O4MV2I8I?:E(N4K7KEBR1*0$N6)$<M_!C_,^:7N82A J13!'U6QX"MPF
M6YT0:1QV]%3)4T!+>0*%-6'22)Y<N9)$M6[1>"5._?RD"7";PI\(24)E*Y3C
M$Z<.89($BI G0:00@9Y\B)0BG^<JKC*$"O>(4XT\<6*^;NO@Z(L707U$RGG-
MB8,82<(DM/O;R371VU98W#<5;44XL5]_!B+H1(/?'9'$>@V:-AL33%3X1!6J
M-0@:%LT5H=A5#5[QT7^9)<=;>D9,(:)M*<9WFG$HCI;<$D$XH402("F@4A-E
MN%''2D2<H!13->*5!!%?!'%=%514%)$,-<#0HT '25'&'!H%E09&;P EQ!MX
M@(!$&6$\)<=*;N D1QMAT'&4&P<AZ=AH2S+YEQ5%$"%E#%5"E^<7<AD11!5,
M1#D1H#%<.9!!%V6TD4U$?+F3F&2:B:::;+H)IYQ(U8F2CRJ $*E&'($@19I'
M@2!$'1LA=>2H=RI)!)-"+%&?GQ7) (.52=HTZ'I%2#DE#(T&2R235%SQA+$@
M^"J#H+=^0042WQ7;*PPS4(OK$]H5(<6V-'C[!11!]*8H1;[6X"B12KDY4TT@
MA"''EB#X-*]-08CQ!JQCEFGG>\)6VY\1Z[(+@PWF+G8$$@E+Y.L-[YXZJ5*K
MDM'JJ[$FM12M!"_[A1!,!#'$$G_^:B[)56A;40S(FEM?$0FF/*VR@PZ118[&
MPMPMSM5^QVO*Y0+-Y%:!L1<$13"[:_3(LUWA1,H,/UU?$%GT# /%3Q.AJV19
M,PT##N8FRK++$L&<0]E4S%SSHC"SK3//3,>0;*T%,YFHT'_&<#/>(B>*=(*>
MI1W#SX /FD41&.KV<@Q%)UZMB<RA;;C3*97*,1VR?FSNGI9+-(/*"CRD04#<
MI\3] @$-#P  X L  "<24@/ED]P$  #U @   0           '!A;&5T=&4N
M<F,  " * ']@,@            ! *2,H  !?J&A!L*#!@P@3*ES80 &(AQ C
M/H02A$D1*E2*N) RY&&+AU+*S'E31\Z8,B",I&%3IJ''A3!CRFRAXD7#AB/2
MN!G#I@X9E#SFT,G#T@4:'SAU\O0)](Y.,F_NS#&*5$'.G3U_@A !)PQ+.G3*
M&!5Q4T$0,23I"'F#!P21)!6?''E8@P6(&3?LQKB10^^-&@VG4,EB$<25*5^(
M,#EB1$J0)D5 \#&,&,H3*%6@-!12Y$@2)RXA#LF(A<I6*%[+@$4Y!$T8-V?*
MR!%AMT4,NS;TRO![&P2.T ]'%RF]=<@;-F_D@!CC&K9L$&:2@Z#RFDP>$#%@
M:*<-PK;=W2!D@-_;^[=#T4^<4)'RA,E6[MZW"@U#)\T8[E,0"V$29,@2*46,
MAAMX,]0% @TX? <<",(1)X(5LLV1QAMN8.<"#/#U1@-X-,!@5P[@F1=1@Z:)
M8!P<><B1QAEHT(%=#CCDD*%=&]I5@X<@@&B7B**15J(-("CQVHLQSG@@>#;@
MJ*-O"PZ1WGKMO5=;;R+,5]]]=N7WQ7[]+='88T70"-X-">9(((_!^;@5$:F!
M4 0;=% (@A1OQ";'2&X820,-=OD68IE,GI?F<"72<,,,(#2Q$AL@3$&''&6$
MT<:<9+B@)Y\/+8D#H&@RJ*8(3)2!ATYGQ.E&EAW)D ,,-\APJ5XP8+IIGYT>
MP5YF0CR!Q59'%.%$$D5P)]&P\<6 :0SBT8BI##8LR,2G[/4JQ13I"3ML1,66
M&<,,F,Z0VT.UW@I%KKN*4,<<9;BAFK77=M?;#3@B"UX.RS8K* C/$KK53B:%
M448(4!1!1!%6A"!'G1%2:.0-QW*[8YF=#FP$9E,@(405&*6WU1-+L-MN;S5\
M&T,-F-:@+::'?4%%$$((=EF33[+GG@C<)4$$$5]89 05=E5)!WWVX8>8SCQC
MA^,,X,D ,0TPJR>SE"#8C+,421R!1-$^ XUEHT,7L;->,Y2)]'=+-^0K$669
MI%16**'V55@ND,'&&0UI$!#<I\3] @                              
M                                  #\@]RGQ/T" 3X0  !4#P  (@ W
M VU8\0$  .H    !            <&%L971T90!L>2!B>0H ?Z/Q        
M     $ I(R@  $=\&4BPH,&#"!,J7'BP@8(1#D> F$BQ(@@H8=B4H4.G#(@6
M()J$65/&2!J-$2,R7,FRY<J4#QTZA)-Q8T<7<LK,T0&"ID:.97".Z5D3J LT
M1'_>),/FC,.*<H:VD)/49M"H,A7XM.KBC1@U/+<:'2KV)IJG%,>P^2B5" @F
M29Q0^1)$RI$I'X_,N?/Q29@Y'Z_(^*@%CL>R0<=D1>RB#)XR88O>]*JFJE$R
M9<R@G<@FC9LU-$"\</*DB.6.HH,PT1'#!@L0KU_/Z2SFSFO&F#4K@$I6\E6=
MBWTW?AQ9Z>\YFT%$/7W<H8: W*?$_0(!$R8  (40   G$HTN\EY..0  5A4 
M  $   !N,0  ( !P86QE='1E+F, (&)Y"@!_DT,             0"DC*   
M&RAXH:*%P8,($RI<R+"APQ8"04B<2)$BE"!,BE"A4L3%$! M0$QY4T?.F#(@
MZ+P! 24,FS)TZ* <@B:,FS-EY$2LR+-G3S-OY*1$@Y**33)Y0,2 P72GSZ<]
M40Q) 8*(2Y12WN"4,^>-&Z4Y<.38^;"LV;,*5;P02%!@D"I4D#R1HF.BU9<@
MBK!1^37KUJY?*1XIXB1)D;I2G@R6,N6)$Z<]:=R8 :))&C9L1-*14R9,&Q!2
MR+BH6&=.&3<PZ[H98S),F1!0BA I8B6$'*TY 4/FR:0,GC0W^;(0^5%&#A@W
M9 @4"*6*%"A/IA0!">)*&CIHAJ:9 P+.[3-R/(/(0Q+$&)OF:]Y$B1TET)+F
MW[ ).F<W:=-D0(A):MT-F3=W<*<2"#8E]8890Z$4@PT$VA'&96&(@=<8\M'G
MPG(*).$&47)<9]-)=8%@GT](^#:$2V-(%!)-8<CQ$G=0P*2'?/E] <5WX;71
M!G!G5 ?<?P%^T1T-,]PP(E0^53$'CR ,P5D8,A&1ADM:I;02' ^Z08>/_@%X
M)$]0I&%&$61<IV)E:;#V1E=FT/$EDA4-$11G8]#!1E)3P$0'DT:\,49I(  E
MU!)EY"'&&RWFIZ%,<I@1QDEO4A3$H770(<-$*];D8ADPRD@C"#;BZ-F.-W$)
MY!Q"PD$D#)'"*5%+P.U9JE<)5C7E?#T*\08>K4ID!&=E-%'&9]2QN&FG=,S(
M1HTW:I4CJ3WV=VJJ,L0P0Z]PPJHED^3!EP2%;F!(%EKDEKN06@*- -P8;-1!
M!DH\_#>'"VCXD.ZZ[;X+ @]ST$$&&VF(0:^]"JB[6KXHB=#22S&50:\(]Q[L
M+KQW_ C@O/5BV"^4::;7(@ASZ!$$'' XX1E*6W0!0@\@*'Q5PR* L(- 0F3!
MT5/[+:QG&3,K4//-/NTGYWQR](S$%4X0\10:=_C7YY]S]+SQGBG^/!T(3I1Q
MA\X-;U%#%U+3P7'5-E_]Q+)<R^0UV )-W?'124N$QA";L2'$?&.L870026?4
M$QH:]MNS0/.5:D004K 4Q!1#8%2=?\VF6!$*<!,Q7!UN+'D&:F0,=\5<EH/ 
MA&-'4-6S$$\\P00(AR=^$>..3TK2EE%5?GGF:6Q>1N?5@3[<Z$Z4+C/-J:_>
MNN*PKRX%IS#Y1#G2H6.N.>>>^RXZZ:8+9,<;:>2'I(;7I8T2",\G/1SJJH.0
M0L_;=P^GG'#D$80<X24U$0I6@[#V^67K__7ZVN.>]Z"B+3I("T 2*5_H8C6<
M6*F/?0)\GWIP(C[\]6]M#Q370 IBK@Z:"UT*$(@#7]>XU?6G"5DB'^ R)[;5
ME&$X:+A1&>P0N!:>9#AL@$/(AM &,C !."\$@1MX2(8IH % *=@-$OA&!+]5
M9(4;<R$,94A#%GZ(9[MA A2F0(7$\22'.^SA#U'3LXHXT"=#[*$1 51&BNQ!
MB=#S"1JNX)_A*: B39C"$9[2ACF<H8T3@=X0F+"X*5"D:61@5QCFP)W!W9$B
M8B)?"&+(F2I&\21)?*1/WJC)GB!2D8QT0;_R@)>GL&P(4_@"$J0@&RD$X0H@
MX$.34FD%5A+!E5< I"?] \IYY= ,;J C&2)'$98)DYBZY,DGV;#(>8U!#$-@
MPQR*@(?-A*$B+(.!':&RS&:ZX)G"I*8UL0D";2:S(MT,)11M.+YB@F"=5]SF
M4]*)L6_1RI18JP(35G?.0_*2F>H<0DFZ(I2>L(P)B"*#0+D2%/+E<Y_#20(1
MAO %Q"4&EMGKI#+_Z4TTB$$.0GC4&L!#DCJNK$FJF\L7KI"$I#T!EBM0BCQ]
M0D\7@%$/PG)#'4S6AG:RS GZY.>;:GK3:#:3I^-C6<A&5K*3V?%-D41!")9W
MANTPRJB,))\)Z)F"3+I*(IRA0TF^<C@F2&>F/>D#AIY8PY/"TX6.?*(P3^JD
MSD3I5E5"P5MO"#*1D0RIPX'!<("ZSXSN!GQTJ. <_3.<+E:A"  ,H4:9YC0_
M 8IE1X )$=APAB3(I UZ%28+)$J$+PAA"4>0 A$B6Y$UWN& =U"A:(5(1-=F
M](ET<]'=_+2&DV:6#IOM[&=#RU@0D-9&06@I%6Y+D3S1X6F 0L%O@^O98<FV
MN,<];6I7:UB-W@$-ET&)=&$B+$:& 2=:[>,9!AO4P :VJV_B)%2B&H(DS$%*
M5#I#>>=P7O$NEG<F4"]\-;I);%$A/)ECIDSVV]_T^I&Y<)+2'+!$AS&@@<'H
M14& 'XQ6J*B5P!3Y<$7".E80J-<%6VN1>)+Y8;9PT(,- 6$ W5= V*+@G;EE
MPW#<("4[;"<-7IG#CJ<@$SBH#XYQFUO==B"1W9R1QVGP\9*"W.$G$[D,1DZF
M?"GBMA01X7.J!0$9[C"TH&R!!BICV1Y <P0AD$^P$X$S#%(P'"FTF7PRJ$$-
MAB,1./>9SMCZ*D_L[&84P#G/>RXGG=E<:$0/Q]$@0#15^A!7BB!!"%*HPA20
M\$XAR*$T:$@F$B9*$31,-)FL' (5)D(G.B3SC!))0S+G<$0YT X.:2C#269=
M:]JI! Z5GHBI/X)9S0Y!KSEFK6!@$LU<:VEY=4)VW89C@E8K>R*XUC5*6(:"
M5KO@4#%YPV="XNU?4^4%0NSQCX.<3$&1+PTGA0&3X<T#$-!@WBM8@5<+#&*Y
M>1K4='V23$8",#+\F];CI4/66L0I.I19#GJ=* O&_/ MI*$+7>VGOS]-ZY/F
MZ25U>H(8U*#K+45\"# \.!JNS9-?N[/<;S!R3+-]$A"H  3POKD;K@SL+T&[
MA6? R\F'X^V7M&DXOV9!H$=<<A=TZ QHH /28PZ"F>>ZYBRO"!'*P+ RB)SD
MT?YXR;]>\J&C0>49_Y*(*;*\ERRR#!.5MHM@.-&LMWB#,'8("-N7'_C)CWYA
MR ,*IF"2^<EA.%OOE^'W/9'\$7X,AE];,O.7>#I$_FM:=K*6<!YLB;@;!?#.
MYKSW!8(:X%O?7ZI\Y"_N\<+3S^)LT^C="9+W&*]% 7QOT@3+4,&%S8'Q$LF?
M[R6_FRTWOG^<WTV708 Y(/>E"$<PI!S^N%:*?#[TY1Q]O4V/\WP#OR+&[\GT
MZ>6",&2'90MBLJ"?0A"1-$]\(!!"$J)CW,V#$"KC1T/Y,\-MG(,@!"Q# R#P
M ^4$ G41 ^L#%>V'$3V@39CS(MQA&C'!)+HB!^\B!_?W%/GW;?S'>>NG@#<'
M?TY0!VT@!CEA);IG$^B5@3ZQ@6)P?BSA$G, >^KW@2#0?@^'@A:F@BAA)@/"
M@CT1*SA@ X:&!TM!;=.'A&>0=2&V&Q]&>[5W+K<W8XKB!N'S,C)Q8_\U'&+P
M6^#S?97S3L(T><6C'UYHA34(@L:%( =6!RCQ)/EA!K?Q&2SE!"[04DD0*.%E
M<[<'?M4W$5'5A3 !/BO#,HX%64<2?A5Q-L.$A66P!3"09B#P6\UB!N&U* ZU
M5']U,L/A,FP  R+ 9S(%83S!B.*S!3$@B91X&Y;X$IAX8YK85#W5B0L3 Z$H
M$3%P*:2XB&CCB%L@ ZH($Y5XB9L'BWXEBT'DB3)PBTJA3;M($:;HBS,0C(G%
MBL1H<GW%5(#5,@LS \P8 S6@/AT&C;W(,&J#9KXEC-;HBL68C9LXBRU3@1=X
MB\XXCA.Q=A/!=:;Q)6LF:.U'!41A&@3"&;4"6]RQ=8Y2!WO1)!7"%7SX)=%H
MCH\8B2<E4QH' A&Y,Z@HB;EHCQ*1D5T#C">U%!Z)D>6HD=,XDN%XD2!YCI)8
M@!=Y=Q61,XX8;VGH*NTG=G6R.S$HD0^I44+3D!/!,BTYD6!3$3G)=27'DSD(
MA P9/X87>"A0E(.E->*3@.WG! A4E!69-2GFDS*F42RR'A54E*9#$3BX>[4R
M!:Q1!J>!@EP9EG%"%'DC!6%0)F\@!)7"%\35.=F%6JHU6D106JBC6D4@!8))
MF("Y6LE$$[JV!G:)EWH9;F[0EXEI6H0T!$MPF5> !$G $4K7;S98BB?9-109
M4]F5F4M@=R[V!:[YFK 9F[(YF[19F[9YF[$9ENAC/(B#/"4$ K)3*1''6</1
M4^:%$\.18CF"0RV1(YD4AJ;&63TC/;G#.2;&*?R%$ST#9DJCG)[1,\"S1VS0
MG-\I$.&W?&$H-SG6&VTB,Q+1?DU0&EMB@B C-E3SDUQFGV\31^I9-U*0.U&'
M5A>A7%R4::K6'8WTAR!3,166'2A@G-E9!E2AB!-Q'@)Y!4WP!7A(!420!!BA
M&#K0*TKF(NQ).\4&7)Q57:#U3L$548/Y!1EA!*OVC'^38_\)=5MRHM0U7"Q*
MG,;UHE*0!$> !#-:DA1!8G+P%2APB)%U)!:*$AB*7,H5HJ*)EC<'D,P# @"#
M&MS!<$+T!EL"',!)*9;"A962($EA&M8U(/2)&KO#DT[I$T)0!E7E!@6DA2T*
M B:@0QE4I1-1!)"3)72 ISZZI]S1I'XJ$1KB( 4')67P<UJXGF5P= _%!(V5
M:=/!A#U1!7! !HYJ8SA6-R4JCA=I$8(*6RHDJ91Z X^&J*ZRJ"[1/8X*J:'J
M(C<:=>P%42!PB'WJ*ISJJ3(!JB/*!K>Z)30*)J=J,;$E=\0*H%(' JP::9K*
M$TBJI$S:>13QI-61H4/P!$W0!$Q$I7 25=[Y&3W ,A+U!*L) A0*%8!*!OB%
M*\.Y7KN*J=/:@C!18DMJKZ4J$?B(,T^B-Y#QK]5*/F4E'9'UA"J FPS;L [[
ML%^@FV5X/"3D.,LC@?-:G-C97\E)GFW G"K6!L\91]%)?0I G;J3'Q#:7]L)
M.B!0KN!).EKJL3W#2<NWFQ(A!D3P!E,0!G:P.[HT!PQJ8>2SLCCQ?1/1KN;Q
M=MNJH87!H1XZ.D<@KA+TF)$)9)/)ER7KHJ4U!4%@!;+!M5\P&X>C3U0@MEX+
MMJMEI!/A7- U!PFWH]:5L3_:M5\K&U1QK#.YLSW[L_EAB)AZD^]Y<P@9!@H9
MI@*R$A?;/'(H;B+ALW#:AW!2L"APL)#U5/VFK5':K=\:KKTBM-=!M"A0KDC[
M54H+)]J:KDM M:-)$8A5093(<%HRKXNFLSP+N62@M^OWKO&J%71[K4L'L)TA
ML)+5NJD[47PS!$7 !*S;NA+!NWAU!G1KN?>Z?A\UO-@J:,=KMVK;O,[KF'5Y
MEUB[EUY!J/1Z7&D;MB*2J,X+%<=%MF_!!&=;MU^0OFO;KU]ENWW+DX#[6.J7
ME%LR((N[);_BN/N;'W$ZFM<;!L0;O!7*M.];!&4KO][;NN +F>*;E^1;F3UZ
MOB]JOZ'9OLX;P1,\OR0<O\O%MOG+M[A[4I;+9 ",@@,<*'-8%9-JN N9P#:X
MP W,OCWQ+@FY%Q4\FI1+O=DK:'T@PA/1?H2A-*#;H.1#NO@))SQ\Q&)VPX<[
MQ!J8KTEJL!B!L!J7Q$K\54P<-T\LND8KH5,,5EQLK?PJ$ H+L7(\QQ ;EH73
M(Q2[.+]Y3+>1(I:)<Q@61.4*LLZ)9$HC1V.X&RAKG9 4R,G$G?-$LUDDLSXQ
MGB&;>1HUH$Y !05:!0>*H,G4.E"0&!]1$3D4.<'I:KLARJ3\17 0.0,L:DU 
M&%4@1SE5!\FT@P75$SOD!G9 !WII!L17O%PVM Z:!H%<NDG[)IJ;H5.0!8SC
MK>":-%K,$^3JL87XHQ6%.G QH0Y\RGV<RB>%0FO >WU<0U>$ JD,0S54O3[1
MNV>@*WB@5S74B:DLS[>XA5KZRN%,IN[<$[_BEI&#SBZ$ N#L)ZG\SSQ1Q=CR
MKU"ACV7@P)2+D+ 5.7^,S!N+G"_KL83L&6E'S#[1S%\P!*P4!!Q1S3QQ8:=1
M!^E(!U.0!_TR++?\QT8<:&.)$S/]3K><JY9:J3P]'$U@!!4%!;$1-[(4U/5;
M!!?A2E0P%PHM$3<=+"NMA3OMT^2C105*%2(0!"9 ICVY,RX0UK<H4=O\!' 1
MPF-<&4(=!$3=Q+&DUO7;12U5.O@[$0P-TCTATD&@:DE@!29]&$M\I>#%'>?1
M4S3LN&$R)F6R)3H\7P@B59[)G0;ML0/6OJ?K*M<<LLILV0X\KH]-663PMIL]
MQFYK67 +VJ)=UQ\(T9TM:*4--7&;HL.ESW^Y71^=UDWHPS[!VKHM:*AMVBW]
MMBCPU#[AT*X"T3CWV"% NJTM-XCTMB=%6$R@VA1QU\S,M)LKS9ZKVV?LH,S=
MVV[4VL>KKB@M:%YYBC0ID9(8E$1#W5 1U15TWHY(W%!AW>#]P (I48WC!,K+
MO&1\<S.<M;32V.MWT&,PPRQ#SN;L)P1]$B@PP.S,0O3]%/ LS_3,0ITXP/@,
M0[-EX ,\X3X1T L^!@U>!@;-SW[RX>XMO QLQ:@+P1]\M^7]55?0(3(QC"]!
M9!UR$\:HC9S(C2X!BFB-VX)V'8B" O(MD9#8!</1R[\<S,.Q%+>MQ#5^'0O>
MBF6@XSS2X^^8C+48BLTMPD8>!DANE;Z8BDVN!T/@R\!<!V80Y7,&XCU1Y3>^
MCEF^&5ONCLA(BRZQC$-.Y)BM$F2>Y!H)C&F^YD_NYG ^Y2),YU<>7EK.XWJ^
MC9[HC7\.Z$@RYF7^E2C)Y'V%Z&W^YLW(Z.WKZ#A^YSLNO9/^XR(@CSD!YO>=
MUII.Z%V#9H?.YE ^ZG+.$WX7E8)'ZS(Q'&:YXD$3L"Z.)-MK6HLYXR$-XZ7E
M&(<AWL[^!53P.<R>U],>%ZP4[;&^M/G]HH4Y&W01YG:=!_#',N5*';6M6L3>
M$Q=\M1I,F9:Y[I:37:!SF"Q NNW.$VGYF#9LB=;9E)(KPNS=4#]EYDJ>WCL3
M>V/\[ADLX)6YA:FYUYMY7)WYF45PZ9C>$P4O%*@)[JJYZS-I[ JZ?LDN!*IY
M[3QQ\DSP6"I?$<F>6D5 &"^?K=,^!%G -S6/WRAQ7+:T\Q*1[. Z&)L<!$#O
M[3T/[A?E!$<?\ZZ4!4T_[40 F$$ ]=+^[:4EORCO\E>?]%E/!3)/\UU/O_*+
M\SH_]L<EOS^/]B\JOT-/&%1@]&Q?6EFPO*-S!5&/]2OEF2=-[CF;!SF([M@<
M$A.OF?L^EU;[\!L\[R!/\9S)]QFO[WZO'R2/UT@BQCW1?J>1']G=N7$S!2Q%
M!4/ :00^\L-KI"*MR52@\G-:IW<JAL5EJ,0=5<8U!_9DA6/0EWD+)^U70+5R
M^VLL:#6FK%HX6S00Y;WZ5;R]\1_8^X):D,H:_((&JXTJ$[0ZK+N5-S]=KX^5
M_!_XJY]*_+5J-WC36[K[%,/?)<N*_>4_'-$J \3]KJ^OS[)/W?8-%2(]&P7Z
M!%:OVU"P)G0@"M2!ZQ#(WLSYJVX!"W-!!2"&P[:$RBM8%$U9$9.+%L@Z5LCJ
M:"++2#DTRL6D.LR'T0 ! =RGQ/T"                                
M                                 /R#W*?$_0(!"B<  %HF   G$A<Q
M.P%1 0  L     $           !P86QC:&< +2T@+2TM"@!_-A<         
M    0"DC*   1WP92+"@P8,($RI<>+"!@A$.1X"82+$B""AAV Q!<P9$"Q!-
MPJPI8R0-FS(1(S)<R;+ERI0/'<+).(:CBS=BU.@ ,9--S3,NQCBL.(:-QS$>
MB8!@DL0)E2]!I!R9XO'(G#L>GX29X_&*#(]:X)3A2=.F4 4RRP(M@Z?,SIX_
M;^8DZ],FF3)FAE)DD\;-&AH@7CAY4H3NS\!!F.B(88,%",>.Y_ 5<\<Q7+MX
M'6H("-RGQ/T" 78J  !1)P  )Q+B,%9ZF 4  "4#   !    CC$  "  <&%L
M8VAG+F, ("TM+0H ?^E5             $ I(R@  !LH>*&BA<&#"!,J7,BP
MH<,6 D%(G$BQHL6)4((P&8+DB(LA B."@,(FS)@R(.B@23,'!!PY;\[("=,&
M1!HW*=&@9/(D"!$0;^2 D%+%"8@Y9<;02?,&YQLS.<N(O)+$B8NJ24"82<.F
MC N)5W3BO'*3S)L[+=F\"4.FI4J48]ZHE=/R#E<V(,1(52!Q#)HP;LZ4(9/R
M3<XW2(^&L3,X;YZ18;K2H8-R2%,Z,-FX$(EB2 H01"*CE!*S#-VF(&+DP)%#
MY,/7L&,K5/%"X(B;8]C4(8.2A]DY+M#XL(U;-V\0/.RZ,8LV^' % N?0";-T
M# B_883.T1,$#APG-%%NZ0*B!P@14$1/+B,"Q([HTZN#$)*%2A'(DBEOJ='E
M/70%-]$Q4A!3#*$1"&2YT408-X&  AI)N"$=8">Q  (:4,A1AAT13NA&A2"P
M <=V0[1!!A,WE6&A&R62,04:9Z4@TD1(!.$$$4S<5Q&$$D[WH8H79KAAASZ>
MY%]%3$ Q!1527"0BB2:BZ$891U(4X$42L6CBBV=5.=$>(?%EI1L"VN2E1!/*
M5X<;3.$D11%'3 &"'&?X-Z-$Z>57QA8PD&?>$670D>%37)41H8 H',6==^"U
M 21ZD<$@@H42Q0#"9V?B%ZA^,?@) J""PK155X<ZJ&AWWX5G(:1LQ#!II3)<
MZMZ=FJZWA0R>@CKHJ(:2:>IVJ#;Z:)XRO)H:#+)FFN>F>\Z0:Z"[%EIJHL R
MJNIY><Y@; PU)$OKLK;2\&RHA)+J*[6+INKHJD($Q9L<KR*+:9@5F1&4@VF4
M!P(,.]B$' @U])O&"BO(*.9%8!Y\$9W!N1 &&OK&8$._6%9\$4$@3!%HK93-
ME\03<I9*&ZT5,8R&PWB9EVB^(9A' P@_[ N"#JFE0#&6&&O4 [)K=C5'2TA-
M=M,9\[EKVL@*6V2R"V*D;*;%4%>$,;@=.U%'&WH)18=A0_P5&$I(6[RT&!";
M1_6>:?07-<XJ@&#97(5=Y[5@-@FX-0AA5QP@#C:@  ,>,<!@H0ET#DZGS213
MU >]%&E(1QURX(2"$1I-4<2\22^N@ 8! =RGQ/T" >PK  "]*@  )Q(;,;%$
ME@$  /<    !            <&%L8VAG+F1E9@ M+0H ?X8.            
M $ I(R@  '>T&$BPH,&#"!,J7-A P0X04((P&8+DB LB18R :/.&3!TV94"0
M*6,FC9LT=-*\<0.B)$@0**Z8)//FSAP0=LK(F:/238J& A<*'4HT8<.&3H(T
M*0*BJ=.G$,.P&8+F3$.,4X9(20*%2I(G3IZ>@"*U#!TZ(:F&<7-&9\LW<D#0
M01.2REHR>4#$@,$71 N80U* (%(6A)0W;7>NU)L#1XX3#:=0J2($JN435Y(X
MD4S911$L12 K&/($HV6H39Y8*1)$"),B5X-0"7+Z:>K5K5^#:%*%B5<HKQLB
M80UE2A(M3"WOE4$C\NPA2XPCMTP#1@X;#34$!-RGQ/T"                
M                                                 /R#W*?$_0(!
M 3$  #,L   A$E*UXIL2#   S@0   $   "N,0  ) !R96%D;64N<W)C #*9
M"@!_>)$             0"DC*   &R@02'"@P8((#RI,R% AB(<0(T:LUJRB
MQ8L8,VK<R!$C+H$20T*<);*DR9,H)<X"F1($R981H81A4X8.G3(@AKQQ0T?.
M&S8P1[),^3(H")DT;>(<@B:,FS-EY!AU.11ET: =,4Y=J0#F5:-6HLY)LQ-$
M#!<PIC[DZA4FBB$I0!"9B5/*&ZARYI2-D0-'#J]53WY52[@DVY:#05!!DV8.
M"#@^S\@)TP:$G#)QZJ2Y[#B,8J=D\IB%01H$:)6!3286V23-&)]ZS= !<26-
M&S)O[CB6@<.&"\!=$1<>KCJU89C)LG;<A=BXR-4A=<FE"\(N7KUN1$HGZCPD
M=(G2:=R8 :(U&Z!3>I:A7)W,P^U6NZN$*9U)&3RVS]#9R0+$E"$@R) ###?(
M  )\@LD7T7<1(:,<1[PT%QQ1Q%6(VH16093<$44XD401&3'W4')US%&&&S4]
M>)&(:RDX$D3;2?$$AU),\803[\'XD!NOC1%&&2% 400115@10F1BE87@810^
MY&!6$3JI8D=1MHBA8!9F2=65)E$SY9=@5N1+08LU!H(63SSQ6!ACK!$&5"",
ML1,=8=CF&!UHX*17'7*,@9.<9."T'PAXXH1433?E-*=/0)UVJ%(",>447H]%
M-ED;CIGQAE2%?G:;:#&0EM9IK;WV1FRSU79;;KOU]IMB>0KT:*(Z\<2H:;<=
M19=2.37U5%1QOM$&'&G0Y!YD=UW:6:ZXC5%'&R?220=9V85QF4!D--93&F+4
M<9-[83@&11!,A$J:"V@^X0)+ I7I6+JF]<E8&7;\.6>=;MR9)PB:GI=;?OP6
M6\8<.A24$AR[)AI1"R@U$<8:91@A,+^;ZIH4K8O^Y"+"%Y?A AH0,7Q2GF$$
M*I49 F^<L,>!FJ%RQR[T^3*B++-Q!@@BFU0KG79:-O ;?/H)0LNVI3'M3IE6
MG.U,=[EHH1AOX#'PS$JY,$;(*"VV% A[]FEOH(2^83'-BMJJL4$'SS0&&C=+
ME'-)#D.,,DT42S7K4K[B]?+:9[C0\MYL6[TP2@!V+32@@HK=Z=V]3AH5F?MF
M.\>VW1Z=W1MF$+JOX5_C9*8890#,1AIM&%V&>X-RZ&$1N+I7XHDUK:N UB82
M>H?8MFDJ1QMA6 ["?6L[SG4>DY>!*0A-U0L"Z">"4*\<HMDQ4QUAB$'WH-""
M8)OF96!+;QELO $'M#R!@+GF9I[V1J%2J8J;;I4F2]D<KR9A6F7(VI%&MD]Q
M7_L<Q+L)I@1R!Z.!K%.<TUZULE,&,^AN-H.Z#,)$@Z=3X>0.:!!;\G"2)S; 
MX70@@);LVI6GR^BN#/V! DW"A1/<@, -ZP-!'> 0OI)QCVM \UK80)"''((@
M?#X"BA"$,(7Z@>!V=6"#>R;#/H%L$%<]1-'OV% [.?&$3;/)W@?SLI.9L$$T
MNKMA A'WFR!0\0W]&0N/NJ> -IQJ-J_+B_DRAR<S(4LR['$A#&?SQ$Y- 7-T
MN(.U<$*$[X5O?-$"P1*,)L8<^DD@B-.>8_;XPC*<#H2G*>!YS.>&+P;+#69X
MW6/*(#Z:C% !4[#D#9OUK&CUCEH*/ JYS 4#=*6I;JMLS!C84"=H245][%.@
M[GAGN5,6P0UJ>$,>0E"0%CC3F7.AB7.LDR0W/-.9 M% 0 #<I\3] @      
M                                                          #\
M@U-E92!004PQ,# P+EI/3R!F;W(@1&]C=6UE;G1A=&EO;B!A;F0@0V]M<&EL
M960@9F]R;7,*4V]U<F-E(&-O9&4@9F]R(%!A;&5T=&4@0V]N=')O; I3;W5R
M8V4@0V]D92!F;W(@4&%L971T92!#:&%N9V5R"E5S92!465!%(&-O;6UA;F0@
3=&\@=FEE=R!T:&ES(&9I;&4N"B!#
 
end