'===========================================================================
' Subject: PALETTE LIBRARY                    Date: 08-27-96 (14:14)       
'  Author: Joe Lawrence                       Code: QB, PDS                
'  Origin: Lawrencej@ufrsd.k12.nj.us        Packet: LIBRARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PAL.ZIP",4^6:Z&=37995:?STRING$(50,177);
U"%up()%9%%%I-%r?%:FQW+v'o*%%%K5%%%0%#%%j'%fruq%jSgfOxV&<,>[]5iw-
U"xx80[SbVW]kyc&/mpqPT-^[[uyQrfl-KBCr1'>jQA[X*gPn*#HFeh7Dvt_CK%#h
U"hH5_Phj[xu9tZ1EhNBG;,w%mLyN5dWDZDZ6w<G_hR>F6=L;m,0q2=cS,hRvO'XI
U"MuNr^7aXa^g-^>0x&:7>ILy9(wYmh<S7ihGY#ctCVB\>]5K$sa_av'BUK'e0v40
U"L'-36[EU#LFzo%\''6C.xuAQ3\i;E4_f6A9uZUYxO-eX-0Wv5Z/(MUrsw0CD:eH
U"ngQV6\R>o.mz($Jm#]_$ugJl?;50/_WfB+ht_lRxBc^M(>RdG^obyArZLlvV#L,
U"j:Y?ljkeGSe3YClJG6L7E8QGgxs$)p5K2'?tJfJ9g'^M'P,'Y5mo+Y\0u/etW=A
U"v/z>IDC0Zp^9;eR&_&j'D0-=X4bollRE%8JqN7gqWi_6.dAJu*VMU3OYVz3q#B\
U"OXWjDZu*p#E39--q5LHjeI#Rtx8L9S]WPT]&C&PY&-i5(VJnPybD+P*zOw^et%_
U"vTIo3a&.j9K/qs4vWE_R%<o2dfq%C]VY)0OY7&>Y>d-e4-6*8pui_5Y_#FnNnQ/
U"*I$ihndFbIdvq0DjKEK2lo5g#*Fa*pS//mab5*TJ/Te?R^jse&[M22S:x>1d8UZ
U"qyN+4F$oq'R0[IYyX<Sr,L)i#8=%&JG;pK+PDmMk.\tbmSrLn<]7KU<zlB:6PE/
U"3<1?F02h1#.<K9(.$-QZ&t0tiGsw2Iddc'ZD91d(bj5Z9\;CR*/jy6j8I#,&-ZG
U"d[rkfL&GJIVI3*W<Z5;=2B3Jgc(z[J*$DtuR)hxc7:v<\6*f\,4mHLD2qji.CjN
U"taiFu=.z[n>RPjY(pd1spSkq;Zg0&ZJywR%uwxR%/9+1mGpw*,OiEDxeIoK(z$D
U"Sv5_8V_nv-?xDxF<?1b3<ak%HEVTlyr-_$dp<^%K[KeG<8zUJ_G&2N7t-5g2TcW
U"+xP,$oQCxOOAGASwJk+,-=YWC?trj)%n6WliFCH+,5J*RX+GtvZ3Kl^dcbjvw#t
U"BQ0vEWZCm&\8M#Xfrg8h+nr.r=_OZ2qgV?1Q?ijH4xWysw+,[?sC<I3ZwKj:ujj
U"jm^:a-7zP\&A.Cu_/>9qth1f;*EMkOb6Mc_\=+M>>*'YiyR9a$1>4*gfg/LK(*k
U"2J[^ymrcG-4YcQu&l<cP>=Ct4'eF9bYFHWo&ZmR<02)IO5kekk4s(gIbruQ)*<0
U"jiYsSmt-C<h&v&bJPYG?PgG%ES<_b4J>\zN3Jv]$>3$aG/0f8j^w'-50Y>Qg'<v
U"9>,nIjzhV9zRluYe0'na0(_uMsB.0ZxUWX6T-G7=ohHHm0d'_1IX,OXLisT8X+_
U"WA7LZ30N];J/O<FIe'MX<%GtbW&Z-GiQd6WO9wB3,.'95D:biNJq,rf)\MGaIcg
U"n.2p4*bdJyalhRe6u_p4X56W7wknmK#ORM\ta[l6#1tMDfnV0.r[oH$&l?wai0>
U"&=_fB/O$SqeO^Yq9&&5r)hw^KcU,eH-O-P%H7*AO&Z)0-5LVM<44L4Lb=?^=pSE
U"4IZBFV2be3RyAUV#<kupb/rDD=9^fv_gZ_><*ahC4\t8D]xYg,m0t<:'eCcZY:I
U"wgKx$UJlEtKF,Pi5I;\8uq[JKoKd*xiCAFsOk-duSMNq326;obhS3.-D#5\F5x&
U".u6U3Fwy,CG=q(o=':8e$Mq4W?SAnh\EvVS8AZq*,N(u%p()9%%%%-.%ha8.FP-
U"G%?<K%7%kk%%%,%%%%ufq%SvqgHfT.+7yzxdTiXTl%66m09D1#J%XZyu[X.4d(M
U"Y]W(/i+G:1W+*U(5rg)U4_oLb)%2h^^5R_-eR1+91I-CBBNB&8vX*BjFH*mYD_x
U"Z2D9;=qotbu8xdpYNvh&WXk4kbJGb$3gF5KfW\,*hUcxnI/$1,d5FlpSFF2,%g-
U"F/:WO%0.?/rE4/?P6Gu:Qg7(jiE^QULY(NG3[<9z)*COp?9BZEARFxI%fEYFEY&
U"Df_-)Qjf4C(/M[&QM=,^kg+,\/39:gh/Rfo)#cY1UkOXe?&)YdOMdd5Quo4PS:7
U"W5Pj_16p:+M2UV/*HQYjG+B/hBCAU8?%+Se0/+*t/f^h&a1&L/EPS:7W5Pj_1Qp
U":;g=0>i5#a/P/+Z5%T<:jicreS6iC>K&.<<(1-GfZ?wlNdQu9Zka.*v/U1)VJF3
U"^70/E8SQA(I0QStK)7mUF<YJG78yQk#&5),.F=I'(lm3/-#WW/[GF+?#gGqU^9g
U"&,K91Bp75Q)%%;f^a1&z/Z[a0T9FkQ1>99;q%]/h:e5Tv?%b]9VqX+G9H;7PXeS
U"tE]%(-R)m)P(u+)Z/JM:n%IdD$M%JKZ%kT,51+fRoggO'4F?we0[c;(/GC[K<;w
U"PcHZY-JOgT2X/s9/#=(kg1*B0.r%Sn)1:yp3[shHuU&,NS*mUf51(X_+,4i]aX*
U"(9J0iVK3]Xh8uC#QYS<mO:5.*8/;3EPKM;UVYVn'&H9a$)4G?:8Z+)]_5=:%29%
U"[xE,w:+:YZVwSV?=1G9J:u:*2#E17/:_3;'n'/H<cTiVM9:<I)(dRkl7mUU3+h9
U"%kAg2;'7/:iWq;PViL:kT5EICGsO0mQ$.54bE:#YYvu):di=cM<v#]2dR3O^_eT
U"a2<0%1=F0^/0N%YS8<)n'4(:cT)2cKZ1+O0XFoX#F\hNMWS#_:'T)%k%:5Q:'JZ
U"$\7'$m6i#AU%?wE8c_<?Qm%D9#f)#9Y\B]&X<:Hq.&M(j<7g]a+-0:BUj)gT*/_
U"'(u%'pE1?##\mhnTN;cDi&e^&+SAH$iJK4,F?*SC&Q=e?$S<CMg-hIu/ZpX'O::
U"Ti6eV((?9s9<^q.EwOCPbSU(B\_4:iO?eTBYo=.z+0U)bSo<mR&JE.wIE2ApI%C
U"T49i95%)j0Py.gZK/417SXJ?CMSED?*)bP4&#7*)<e.='rE13a/+EEQ^_:4ti\\
U"'&t;^KG:/K;swTFhi(+VSnY&o)h$',SU-(J/=[S(-W(HLqVKg.400.$%Tri1O;P
U"4&/$yfd2AU(\o.S:UDogU9v8mU%1GE6Cw0;g&0Sa'sPZh)X;O<:Ki[;RFtZUk;Q
U"BI'0PeLH4Fw?(*mT&U%9GE/[qU(E[U4oZCF'+N;VD).H/93w2R2?CMMPzo05.De
U"b&a.6%F9kfI1qQhe_(4)=9O9k'Q1DfC:K/.?;pI-Fd;T/2VO/g)=P&U=7[:)EL/
U";3#h>QTa:i9%8T2i3q;Vvig:kRD\?*'32r./I)[PimAVAMTFLYN'14*0,reV(Ya
U"1u+],5u,bKU.2/IAqU;eG%e;-,i_y.f2K+GVY]k8Tkq>sY0YQ,QgU=&Uh1IRg/E
U"R.wMV/SG3WQFoQ,.9:^q2/cb?c>TTZS\oU*Keo-e:)9G*c&Pbu4a,ZpqR+?Y.bo
U"5:P+[12+0<=g%,hi%Q>P.i[EeOH?^?M''4L'6U1-10W&3e>y99_Q/H4Y5kVR%aK
U"+#/41DR7mP^'G=O09kG<uo:0I7)OUsTX%607II:1^MPJiGFQ1n.ebK41dPq<'GR
U"5/16/Q1AG%CVcni+e/Ph??)MT%b-'053]JU>+J06'0a8504]YMY<=DI&\KO6UP4
U"&K/C(QOju13z/R'5(D&;R2I18&eN,9#BU&?X[3V+)b=m)P(u-$D/Z5.'$0<EeRh
U"?s+G<hkoaZfL)PoV]TF9;NZ-WU_3g&,#E<//dcQS#S/R%RGfYZGI4cQ9fq9];DF
U"?.M_P%unH<r(=8OCI04+9,U%7GE/D[_+B0Z&'-QDY(GI>cQrKiBkTZYT*,8/MU(
U"$\0OU+,,FDPYZ0'=*H9d0YzG0gcQ9q+;GfPQasr>&/5ifIaqS8n?d]9^''*H99K
U"q5GyZ%khPNPk73guEL5=SmA?,1UB4F35[eK9<)A'(T9;[Q0H#ZYk8RKq>&)fZ%9
U"$4a*'Z5&.mU8+:7't9?AG6cSUtO:(h7UN<2\Fq17=3pg%Y=E.\uh?]-;<u&$HO2
U"W2O^0DuM<PiLH+P%]a[5T+*mU%*gQU=+2jUCEgV7'R,T:JBi.AOc\I-899zaXF-
U"T=q7E.KER<;92o)'O<\Ju,X094?*R',\k122/AEES7w;OfYBfQ(.:;^o50BT2g/
U"%]IfKH]<7GX3/;MBq'?p.:yp]\ffUU+/*U6Cw/3'0YVG/4[;*u1*J0dpAQ(ZaYu
U"'wOh)Lo%4iea&gEDCYS#Zn0i?K1FlZ9+PU9p'[,='\mF*_;H\)+-/Pb?5G]:\?7
U"+S9T/?:=>DUB<[/SMg/],E#_%f6a-H^i);&Oo]-b.;*qF\U?U*nOM=.,N_0FJ))
U"m8P2i&nK($ZR7M<#3WT-U.5G/Q^qVYA/PG'%5ZY#cgdml4.gU[E+[N==C,bfvU=
U"tcr(At?-A0U?18/aQza[NS.Frn*U0hw\wUrUb_j2Hxq$rryp\xV1(&OwXo.Z.ue
U"%E\/t,cfV$KX=lwl$\XiW<DT:loNWLZnZ/vQrm/\:x5^7t1T&)kxw.uEL7z><\W
U"fc[WoA(:ya?^MYvS0/:>6DjcgOJAI1x\'OH$36OQyUc68ZIOcUiEj^oOBo1a&>g
U"VHHCttwOg\yh,eQ<f4f8\s2znD,%4/;_tr3>U^a_&20;P_n'Go.6rUVY-W,_wiT
U"[Cw*6ye2gdo0+;fn)mD.>H(8[3ip).rFC.lT9;YH?Z>%P.LJn.yNL97(b=1AR%o
U"CvZt%-/p2GtQ=irT+3cTaYCi(TD0,r30s]N^;nrOpg>gol9m?aKdRuS2pUU0Fmo
U"uJ,x'N0Gvm4grETnLwRcacJlr\EDb\>%1MX?g>xn$xGyY0Kd=zs]s#68]ddJJ^o
U"kIp.,QqDkGK96Xlk_XqQ2+Y]E^P4B]=$$Y+3&=3,0DFT',UW-ON?a^c%8YzTr,r
U"vM4Q1L4kR^-&mj^yCTGCdDo#Ps*v5YjGrcJsG\&s9f##n,oKjC^8gVf$IdZkAT1
U"nP<lbiQ><f.<r50blBpH%0rdMCG:o]^SHs6m;BmHZftTnlSibHHe-K.P=>K$/E3
U"kFt%Bl]lY-t0KV]cH$6x8lHmT7($fA$dT>cG$mc-dL#I^wVLQC6,Z[]z<p^8iy.
U"Q0LXJQWoeHsb1V,R$ZEDkUn^wN^cqTrVWTCEM7N8q.N0G%8;H0'6Sk_e-qD%l&7
U"jUI;iRK]OMRC6PbDvjD.qjb<N+4ORDF[*HIB0Kl:J.oQv,DL3r=deE=lt[jzRfp
U"UE>/^%vB?k-_6TkWM'RCw29Vq;.[(XjNqgQ-qzGPm+-1+HM#d]%64-QJt(si&n?
U"A>#P=h^3:E]%;ss$sm&-<D8f#))sIS$THNXrg95-k[cxRE2;=Na=fND2s<r6ts2
U"[3WZ/bu.bJR*P77]Gyfbl[/r,SH\tcLJ3Nb]A+L;C(2f0G,PiQ<u#(?*2<6qfAF
U"$;?6TY45V#QF+yfm#?)>Z&c?Cr[G7k\F$w&mnRG#oF*$VjVbapG(uC2Y7g8+id%
U"L<UGjL=MobERf>/f#?6ickYbm-V<:?#>Z=Hc>[bcMb<kPozJ;dl1$x[-U,PH_9#
U"8yNf:4W01cf0yulegg6duVph-j7LpLz\VtgbE$GBSjQ%>)?bWKiLTY1>+ZRSB9D
U"D4y%GUfrOfH]jX/']]0CPVF&X9C9KX8&Nc8\bJ\=(stqA:MFEZGO1g=D%bUNdh#
U"b2[sJPf))P;HSJVH&hkXdeVY=%M2ZpfewMQn9j\OHVRU=-vKZ+Jop'1#4F><,rB
U"EKep;S<JRAgz]vte0wDvT'P4fHdE[TWDD_NS9b#ZMJ-2sYq\e<.:P+OZ?2Z'8JJ
U"/:2'q>Z89cYY3*_Gd$TAKTj=7o74SF7P*;IBj;w]vn:FUdM4)4plaN'LqHTeBEb
U"[lNX?l5x^*b?(OGlt6VTxhKHpn'Nep3%.8<v=T5r#DVfMMwr(Eu8wit&R.Oq7Zi
U"J*ITBZ6M.(P_+jz<_L'HnF&8hsdoR#24O2.AqU1hdTEDh,\tp'Cd]EeWgjyt4sx
U"0/&#KvQINJ8\sA9#\y$0T^&q$?C#gN>__GO\?8=Tlx42,B*_-1__SmwRW'Y/FW6
U"VY&)ZTf2n#t:)[(9&K'g:Re<Bi%:R(Gzf^.Y&T,=fp,6qLrmw?rf2#vr:xxcWvP
U"DQXS6d%qs:h3ZFe1Ffx,%)H:P/m6l.QsD,9Zk?[plx(6UX]LA.:DW7Pr%i5PHE;
U"#P5Y6AI?eL]UQX9)DYE5$oVP8;iS.fe81?K_fUB#cWC<NDG#_QZ%^[,VTW_k%k*
U"%q3$6f.GP3BG$o>Zgit]*V)MeqV2;(r+1*r,0>[LQ3/X\U&KKcpne*i$'*xCT)i
U"sLn,3%:WtIFNwM+ZKJs$G$mt7CPE2U6n5?P7&3%q_O[,p&]qX_eU]H/7]WT7=^G
U"JC1?N47ibsFyPa=L&.BIu4_o]_wdC*L(==>lf^]sc=ln+5<jmc1;FLJl^o?R;%Q
U"Wl7.ShfWU-SHr'cL4O((fy9/_jOVn\WDsB(r5o7pisuC9pd=)h(2-57Gm794E?X
U"(7K(521sE\z1R?(zUpk6ThF5Wk6('?x_0rZhuso2.<WvtI<]^/+YZ-YfNo(T;X%
U"BUsti/oca>bjv.A)Oy3aC&?f;O)?jPQ6h2WwkwTB3DBLHt]sycd_BjPOl$*W+bR
U"bsHNjd2scsMcd_BjP/E<264j,LlT.\sytc\,c0<212CnZmfltggU7_3xcGM6L=B
U"*>Ab;>$S$VuV27t>ss-c3dBjPYed*Wr+RbG$n4nnrbKO$m[<DdbX$GCL3uzTNb1
U"LHLwLlKHO$[&;;V#G^wLCL5lpfWAxcdn?n2F:6dl'iES.auO$0>$Ly.6n?n2F:6
U"Dn'iV9n#Cu$fp1pyn8HZsU_Y*nHQG]fTCL5lT&FZNP>6hL=B>)EGQGWnv#C-$ob
U"LoN<Y,Xc021/LCZm$nHq$fd0ac/JvyTNI6L=5B>Ab[;v/^eIsFSjd>]]JnkB#>t
U".&wf/daoa8hq/rPw=t?dftz1<Vm:]h%9;g,H>Ou35Eo1cf.2e>>]-S6u0.0D#nL
U"+S(LBOzY-q?%>v_$hGL$qi&1broaVb=b3t'b9(01k+xt0mr\kP3xhETd\*V=Sj'
U"TuS=wP=tK8?j?U;PK-eOSB#Rq2_;u5l8ac:(s6Y/&>O2Kg_4tdctVkLJ:?_os'\
U"lpC6NXHEqiD'iD?Q;vcV:D&6Q.DqN]+3TvqdapsCMHslllQRG52/D/Hbj=FTb<T
U">oUT[RHqf_v<2$/DLU+E%VITjM;\qv:N?I#?'t.:cX18Q6Gf^4#8JD8=K/,2&>s
U"480X]_Wz<<\X^JrR,gqQnaMa=G)[5MiQU;HdZQnkVS7E9>ASAK4^%Q-??YHHuRN
U"+,rZdACG5NY]jpatv)E0KiZkO&2k#BuQoJ<1vMn$=O7Zqqd-QYq\aFe<a($(L?^
U"4juW(jko?IUn:B7^s,C[cGGCGb9:a[)6FbTC#s]PtPh&,.x3Yg,i*5lNAYn$2N6
U"ghK[oi[8vp]DDZil29Zg=k>pkA8,\-*7t^nL+]^TL_tWlduwGpZrhHWb+lEiq70
U"g'i#?BB5yiBhmBH\WOM?C;;Oddh6IH(lalcbTf.G:u,Kwm\ZLKPPfV7%OtXnx?w
U"XVob-'lxXp3oG<dnfVS6bogX2=b*eUSLDthiWMT.<iE?uB/\k7W-:r4F)Hp*SPf
U"sCVe5;W:lwrem(SkL-D8?C^tpiKJuD>7l,OgljDuSs;wbL[D2-HTM%znNi9tsZT
U"j<s6>qkCVdZ3#,d]p9h.Z8<(CbAe&Pl\4K4C#NGGGDXFF:&>JUXSACUpK?\Zu.;
U"5h8zgBPzJ=[7g)80Z=ZicJwhY0%?k?/N)CQ<B,+?M]wNP0VN=DLS\#gShS<WHnX
U"S;fk8I756q-ix(fd1\j_\<ZOTIW#-etk7ZGnUM+sSF7>4?pP-AhS-ft$c^&/jli
U"kw<*j#JOO>a%X31SJRZG#\.NbsT-7$Nsd'Nn0$9aIp/iw*l-E)rsAZ(>^sDDXdy
U"4TZ2.QmjY:q]fLuc=_-<\4qq8l_^\b+L'LT3ZOE$7eOrf9#,ApFAXU9kkdE=VIm
U"ek/^7>L9a3$^#DLsv&zj:BMLcJRNd&USY^o6Kg(9$X5.ru5lGMNjoDgW7tYmXt3
U"7_6$?'dtghmZ,pEpT_+?mH8TZ]2a.cq7u#s0xbpbTq4?QU'&]]hGagAIDSk6x&Z
U"'feHS6i.rfvH;0isCa-48Pl$;vrfkSJK#8kAHT6SFF/?oq,_WBPDSv>*aCjWvS?
U",Lz?>bflKg]Kzf>tt?uj+,feJNi^/Ut?J;M*3L0*#EC=5'J6VUla'[B6SMe<0WT
U"V0v#fjRf4T'6CX$ab8Y1N6Rr4YvtFoLp-fBWREw_fXC0q=)tF]hJVfg]dcX2nN>
U"BvuE-V#PhB4mEdhn+Fr0Xb3)(Mw0k(VBU(6>P</L,T0/?MV-MxhwQ%0BfYWVi:B
U"6b%8cK(4Wjy7&rmI\)w^n=e6^bCevsyd>?R&/w>A&*d\8nL]2Nau'd\LZbfjn'h
U"UuH$-gjB-zqNY,Ms01cQh$Jn_+MV&2#QtA5a8a_R]uamkIn5GMCeDx'(8#FSh>\
U"ZNdr8p^DOm*M2Z&0oYC-8KtN8)^VQh0uz)n*#wY#k&-V8J1Y?Vv&&MLW%wpN[(b
U"1Spu$,m]gv0Lu.ZBRhhTc/EIqDJpDMEBc71uU[P)NK-#Ab<qndP$b>D-'/)lBeO
U".[TQxUHiF*tc5WV4r_zj?WP9sp&i$bzLloYejlb?^ANO$$*eVl=f+A2z8]2z:27
U"z#2Z(FAP<25>+lME7n9$sLnFdGjwvbusJ4m;P%#jhfFQghEbm=boItrAIk,lc59
U"8)5UKvL>w)y;)usuMh)T.LTMl)&tIrlUxzMs3b/9::licwMzCs82>9dDb8sI.*C
U"nYzDu%*_GupwzSQmLjGxqvLZL_MyR#nLUiMy/Kn3p>H2yjmsH&cfiIOwzI)auLw
U"\zgmLDrxzI?Kq)bE.y489-Eblj?l$m:L\RmU+_?C[I(n\IY$=XdTaSX,Pfup\xs
U"ov&tYmo\>9xmh3GD<HqO?]mxMBkL5l1rVn1jg%%*NBrhF/M*)^0uQQ&8kYD%Ki5
U"yWsy.Q4%PAa#C:uV](1UTs[SdZIOmK;;-%*xL4cTT5dv8R184jWuYx?Q3Ox*Bb#
U"$l.W^dUQ9[_,rln0P&wWa2c991Vk.v%PNw(0L^MLUZH.NlU4*gkiU?dE1U%?lFm
U"rC,lx62N(PF\Y>_NL+RBQlZc%'NNqd.^_K\ELMUrG.%=O1uGZ7_#0Tb&hujt/M6
U"%rfqmRqkT;rwWTD$Z%aI5i'+q[hpztZ-b*6MM(dE<&5%7PnChSI\h*D(k#J3PfW
U"Q(FKTw[G?uoSGneD$(?oRv*'HCXU?5/)bNYPVoc<2NIDZvsb1(VjY<Y8\=U<1;F
U"P?TUfh-)ik'Rz5+n#\(9PEDR6v&^MpLvu5L^<I8FxxviiKB1d-%nX?j_09LQLqA
U"&dCDCa5,n$XkyVJWo>#=3_U6n<D&scd3td:IUoZGEmCPOImmg-Tkqcz;0c,LCh-
U"Lwj'$\o9u(lNoo0+djdLISmu(9HNZ<fabi9<3jrH>%UZ.qLo;Y,\p>N+Opd0y%P
U"P;X&2B&#y*2MTjDn;#']$0Qj4Q?3*DDsX86,>Ss[rrb^:m$nm[F%%g4M:,RY>7L
U"dxsw<w.7;DvrIsVqzOr/4'T*>^2hdyUJZo.[7o<ut,468('ECNy*UZl\dSe;t<s
U"rFLKLyfunnxr#R1%J2i]AqWXr81%k9v)O#jL#u_^?=KjILZ+F7*FSbcaY5dbg(m
U"rVgbqTsNx_VooFOLa?iJbGKk*ZkIIFDD]>aX*ww];]wP?oVAX[t;N'uygRyzOBs
U"f,M;MXdJ\Dq47;2=_$CKgySAKt?;tsBHOU8TR5iY&]69)*o=grbbrd?\qme9pk.
U"X[ui]6\AH2\2HP1bbavd-A(mYe.vJ*(#>K6Z4*p%P*s(:)FkK2;B$8yK#ThBT&N
U"AI9U?ib]c2f694?s6W7utu3Hg%Tr/X\lWJ:^2]7<k)tGQ.sNi.T<j<E>4hft<00
U"k]nA1D.If3QSKpupQ[)Zwn=6#yO7(D>va[V-3m.k[SV9du=54(#f815SRqVLu^p
U"?iTG#K)?jnA==Z-aNwB[9X>f=7:ErV=<6$JU+k<>B-Ga-k.lWI\_rr=6,VJMkJr
U">\0(Ymv()r2>BE#7'rf\>l9/77rk#kLXiiEwXJ%9kx>Yl?aCOkh2C:+r,>EF3YZ
U"dvXrR5[G0YYfJ2[EG2Y^BJ'kZg=LOJ&1kp=f.U)Ce7>rlp>,9aE\[S2JCJrzg=L
U"aJ8v=v$Dr:=L5iJ6=t,Da,n[c#aIKk.1*m4k\FXs/r8>Vs[brhWs1Cr*>;LnJ4j
U"=v_JUB[g3eC<r4s>V<aA-kd4eCDraH(H=4e[C/m15rV>=b;avjk81m:=r#>=b:a
U"njk85mR#k84'm$ktgVIiJLX[m20mar<g=<1-,hJ;k;N0m/qr&J\b9I%sHR'(Cc/
U"V43me%US9/be\IfUCVbjZ;a7&bZ[L-P-o>VWI,]sgd1=Bs<BRU%gS&PU-+$<,5c
U"B5dVYFZ</0A,_XY?.:C)dV_ZJ71kl>VLWJVp>,AaKX=LQlJ^['Y/MC7:*rd=VLP
U"JNjU3mJSNW3$BJ<>L5dJ^><vSJO^kz>vYmJ,[6w97(Mr\1LI/kd[A1TiF0qXI()
U"r,>jbjJy-R926d%vY:R7jhJs7Y8&i+HJkY%6Ri('JcY4o&h\I%[Y2R(049lI&3Q
U"02[]5Y5QJJ>2\3C1VrcJ'+k\=rD3CGreb=l;Bayk6CWIdr28[uX5i<7F\r4W3,W
U"Jl=>,Ea7dkD4-PkJt[Xc?a9gkn6M-?a+kV.2mDjkX/mRrkX0/C0rDpV)Ba7[k0X
U"5)<7Rbrt>&52mBk74Ws*hr.qhV#sR#t_RJ>YE-U]kuT#=rR#ARV#kR#PoR#siR#
U"wRUl.1f.dDW<GukjMDsC9=+$%N_S+C#de9#u\^szNB(_AK>G62&v9_SO]*^Ahe%
U"oh9ndP>(7Ot6sDRKN:DW1c<6a;H\n$.mMXp8Ga]c41E5:d]nSV=[9Hu2ekc?^c^
U"x,cDv3XS;b8T1KO*nb'%8iVbw-Tqp>c3/+8?e;bpcY(UXIhs1&=V>t3JLgEaa8=
U"r:ghhViq5Nh^lqxiNDHMOhJu)S:6[Sqv1QwUkCu#hW^&_h3^*]_h34^]_hR3^]_
U"[h3^]&_h3^*]_h34^]_hR3^]_[h3^]&_h3^*]_h34^]_hR3^]_[h3^]&_h3^*]_
U"h34^]_hR3^]_[h3^]&_h3^*]_h34^]_hR3^]_[h3^]&_h3^*]_h34^]_hR3^]_[
U"h3^]&_h3^*]_h34^]_hR3^]_[h3^]&_h3^*]_h34^]_hR3^]_[h3^]&_h3^*]_h
U"34^]_hR3^]_[h3^]e_h]x)Dp4dH([x4/cckH%/*F\O.LrqKqdS;tW[A(=ZBJn)#
U"bK7W+g'NY&E(WP)x=_D_.fQ\:,8TQlH^XcmdsX(CJ_w7j+M;5j,AY237<s6*R+u
U"K%Kr:P6$di[^7x4N9kf&C]nHXf.jt>1jH5ZUnxF+/_voFt8.l$W])E*$N3380U'
U"]9BN;;6a9]EHah.j2a*ly]QJSaHd0sxBtYSuU#'0l%<Pe^;$_hVm1g<Mk2#00&R
U"l[P5.<;jpUQ>hAu%dT4?=/Vs,EPsRoBRAJ\^TYd78X_<\j0WFVFca\R>M<QXn2,
U"Z^XY<mNwW_Z9..]wo&c7Eq+o0ERNQFh8RI0ik^x(2pJe[UERt;B&ec#2EE*U':d
U"NG'/LfpjMnn$jGvh\;Y7aIp3s[Q*]lX;aLRTpp_p6(APgvIf/I(W6Lx[pbFgnVT
U"X4c<VGTVg5e2o;*I^H.nMkjd2+C%tW6HP^\1<fg<,3Ue;>2gIv^HU28e:MAd]nx
U"rJD^EF:Hpd0Zun_4qnyvL3k*BzA8fLNW^\yY4B1IPCuW))IPQ2ptCJ*[_ZSvs3S
U"B3XYI1p=0MPMM=;-m7MmTHL%e.u'cIMpn$2dTMQBJHlUoIU7$Hk)=iAsT[6r_iD
U"Emg,an/tj(>(;B.do<W#%:TasX=teHu*vc^>a*lom0QU12NQG5Mp#09T='6vnM-
U"lB.[2H0d*_'QjDrV1hLdNM7,]2UX3Pa:Sa.FQEUD1;iA4;;sY3]^h#<1V5+9H#7
U"%;C;cB]0gynrY]<r3g=a0Q.fzPs3='faUfviX=&-F2Hx[:w4;37W/tr.\W<wcE-
U"nj$L[VLY[jL1q2u>?ItpWh&e5D$>8[=n[nAvP'4Dr\j.xK>/TE1xmNpls15Z1RS
U"9^()4<m)Le#ddob%+j&+yTy/:wxWKYsNc:ROcVvssgHH:ds_0Uv_(s<rvM2c;u0
U"coG\ilANzPSub&cX?hY#$_8Qgr9mkFJd*d,(/X<eDo%6D2&*Xum&rYng^_-HO(\
U"(8Ft[X(bCTs^iYZ;s(gY^7qMCp5bpDn'InS.lPt77i$r#.Iq_BrU7D(BWOFDxeb
U"j>=v4gYnD^pxuRMA\tt9XkUAvo$ZXW3EvfZq6IibmZrGf5KC#R4/7kEfgj0us['
U"0Iemfkb[scBB3JPK?]BB:S>f9v]\ctrUrXUjb$v+MOF0$[aTDjNn)&8m&F<?6qg
U"Ft+]VZK3_pHZrrE^+d0owxUJYrumD+A8JY53,_OrB%gd-3lOJlRBTNclbC'Pmi8
U"\;cM?N::KsJf$TsXMAk_ml$uSm^7FiABp,lS1yx,tHqs_:W<)rIW39rBW&aUq\l
U"TqPk:Dm\K#,8dagwvSAhg?t9n<K)58Usrs8Kt.T(/D4b:<'qu^k.(X0L$:9X9KJ
END SUB
SUB V2
U"e)d0w:O<QqtMwLSYH;qIpRx_#k.OYdun'/4u)7T.JkUN^I[Qgn;.vN.T\l-1qNK
U"&&j9knP8=5KD$.^/b+zfHg,yLR;NK/,pt_oMbDTM#o706K6i3FSb5$3tgF?(8fM
U"nwJ+ImxC1O^,sA6_ce-_8XYv=6VTg<3+PljMh8V:;0uDK3<TC6,g>gWsug0aFve
U"0IemzDm[F&Nfn9etOwpQ?<MxA\4_74OSAs$VDr.ji^U=hs;b]h>F:2OtKCs1yLj
U"IZ%.j'TyFr3p8%mLdW[$mrsA2a88A7L3xGYURtM$gmTmY;bL#m8_xGTMMtUNluT
U"2C5v%okQKRC=N38</c_o587cc(Et;N&Luo<+obHw/)StPs_bAlUmnesII[s:VsC
U"&clS)-d)_=5w4gK6<uHD-]V$ClR-_EWXPn_)WIV_#1?u=Qn-?bIBEPT'a/-wcV3
U"8OndUJMSc6mqs]Ict+QS8g[sKa]amtmb-U]=nNjiu/A57F^WY:s)?Y.J_H/VA5]
U"fW]W./o1Y(=8avE4P5Gh&;1h#4HYK6f)_QFNMb0q8B%u)U3,Z?v%V0:j#LrnW.s
U"qW[BjHVX1xbTYp^0e17NnjK_b_>PK8GMA<es=nlB=3/aq^TpGe/n#m.x?>.L$iW
U"[FFVJ1V;Y;*T/mm8Y8+/EN[r]/]pWt\iG3#7t\>k7L/R7Ja7SX&X.VN%MUbb1KH
U"9wqKA+M+HJKxH;QI87ISW5IbZ#YCY5o\.[/R.*LSc#L#2kcFO'8Uarjg7B]nxqk
U"v=rQtQK559E^_q;Cc2E&Z=7q*BbLHdn:aj$;'_s%ZSK8X<DRKDN1]zN)3M$]IFJ
U"2#^*>HP1X3c-E<ZbGREsn2igavD+QGTrjMJ*_s.Aw'Es\<1<63:8Z(1^75,k0Q,
U"=PQNKK00NLQKbL^VguRq=#&\>SMD[RSQ9J)jZ:7JI;'YTus3(;*opWE(u/(km*#
U"Z6)%gOD:m'gIteRJ<(50Y$eUQq;#Zuo%a7ak'*tunG.c?15yD1,08nTu/iR[Vs;
U"Qvr+AD)pS]^qS]QBL#mMBZK^.T2Cg%.eDYfW(^/Zo=tMDH)uE:9eVqgQCgxC[)u
U"8__j8<eX_;)U:WhB#M?uU;[oH*U'0%Q$HxoSU>1IVOeUr*()X82)dLI9v_lYj#(
U"bguw_/Lr?cZ(Fxq11:5XX#vx.=umqZ+Z5e5[^Ax'b=5;=W+X8'j+^r]MKq&p0lq
U"D>XZmmKKfe24;2m$mvqkbR75MRH^HK=WMItq^l#9<tSFd[V8AWss^)Zm7Rs1=Y1
U"LpiYrIMkiWfMY03;XW0y+)6Lq1siWhA4wQXJF1/U80/x\5%E3G%wl0.16fY:-w[
U"C2fidmY9O2iDGR*=[6>xG77<H]8S%+0GtOxjQ1b#^maqLL?Rqo=t-Yx%u%p()9%
U"%%%-.%ha8:F5rr%jFK%.%63%%%,%%%%ufq%SqngEFK0/jyNhi/FLbnOK]l_/S5/
U"g%gg7m#KT5H;4aEI/PaUq.=ex=)/Oem[U.&MT[(.SIEpLzIxB:<Y&TS=_*dGd;^
U"E3wjq+Y'#dGj3$&zY>pmxNsYgv7Brgl2p*Gl&pVF,m5oGbpU>B7#^3$Jm$7;,)?
U"me%jXHF\Ft6_CdpAyPO&KSR\C1:&*A5#4r%pC^94kB4B*S(x#itmgWg2DLuJS*$
U"O;';;2ZquigFA*__,gbuY[?C1VkMO*y*/f[&y+[h[%ga%)\>[3hvVOwci[zZR.?
U"OAckjpl132B))Bumd)Om^1.OHc/:EWs#%7MYy=,gz:8,lI(2jL/VpuMtxxtnh?,
U"cB_Kp2\2pr-[zQi[^(*#vi&8u8].3(nM:x]3mdv22ZQ0N0uEF>GDz*?#Z13Oe5t
U"o7in[&nvg,q/<GmkYlA_hJO9a-Zt353[5sk*-v2pJ1GMSn1xoW%\mIg)eeX(=cT
U"(tHNsOTudm+'=l/>$mg*J,gs?A]o6_d=Nk_(tbG*UBdm_IANKX#J8e9JcU\f[w1
U"gw[h>UWbvljqHm7mnT:<^Z0o>LVr7#7Q?83#fK&%Q/-MbHG4dXj'462e?uI$O[u
U"XAN2u6'niATL?1[^x#V[+='6=EenyL5z&>^kKrm74yxCo3,MxbC0e*7$B5>u0b6
U"j00jI8V>ZoiJ=XI2;>]Jf*t-H=)yB##niRi/]$;5Eoi5d$=#sl(000U)VvMAO9P
U"]57Kj?^&^K-xi6C>z%r(15Ccj3'($rGz\1zV&HS-piAE[DZ-uP[^;e:H-VtGnZ.
U"i<x>\MG*j*b:ZrHJ55MI2(/N-ri:rv[&BzfY6^:MPR(qM0=cGAk:fR(Ud.dmlxn
U"#%\#k3N3\>jx?xUW.U)J6tnD*vSm??DqE(r1-.GCu.IG=HRj.7Y:S:SM[a]e(Ph
U"kN-%gC?]^^2ul5j[[zi<n.)dCD7B#;C3ij/EX+V+p%CaV-MQ]Tfiato?(bebf3=
U"l/F6#AO$rrJ1FG0%S/M;8*iuxF780>yCMD?Ud;]r5*OPYeVKq6&FxfZ'l4GxpA-
U"l\LFs<Hm$B/)xCd,:O[&<092GE.zSD:'naFQ(Y,\:ddcoe'Z)=Pe^'(%J=Rl+Yt
U";2XFZ?jUn#Ubr&K.eHpB7j==EN/bw/+g5o5iT(SfXA=/$V9*)EU*14ek=O2Tofy
U"1:V8'f(R&g+]&DC1_XDlK0bvoGi>R/l#?U2YrDsPw?BqA)yM_OiX#ezv<+2O[$-
U"n*CI<mf)fBqXrscn3&TkTr.:[r6DgBtOUhI4-/v$*38#h&0fV47iRT\8fN6eyZ$
U"MoVk5cK77U1/$wb.i;;sM.qOg66MrWe]feKYVi&Fpr&C,V_8G(0Ct2KjpSNjUj/
U";J3B\O]tL>Ax_0CLR?_%8gQndZ+g\Z5>(2$OZj[mLGuRx.w8F-xAy;lV.[_SNNV
U"dQl+P^x0HOk-h[CUF=%]01MWW/mH[c[2[BqCo,>Ud)cHxl\VB:%#fU#F5_qQ&=7
U"g\1B0mr^\&GE?wr67Ej*h<rP0Tdc*oX;*Yl-:'#z5kjAPSj(G[wea>=MRX5pKK(
U"'SS?S03Wf8y5___QH6;nK2N/G2fK;7p-M5R'PnA;5zZyQ,uqOlCQT59uu%2^Q5>
U"$lQ;jaE'3-G0#8C>b[svW:7Q21G0/v<O(Oq_L=)T?SFv>DFs<PmV>Rie>-*R4(I
U"S=qh3Q9Pa1Ra)7:O0O$jTfTMTy$R+YpH.2g7S33>lF/'VqjqECwuXo.0*/Mh=e/
U"$f9O13)EZx/NT<n+,m4eH]W]Wjf>vN;9:._-cZ_tR[-&$T-jr7PZse^?l5X5s5=
U"#V)#;0>CoD?V7K]ndYqGwSNK3lwI%QF',/=80CgFIJEZw3E'1Hnc$#cvT0,Uwd'
U"6d*Z$e'ASZKUO/;8;)]#k&cu+.*Rwb*wlq-2B=\%x,W*.eJl<;VcG6o/0wPG-jd
U">=c#^%NKKyJC+&J1[vbm;KXQs1.^6>;(w#6:Yi))$L/jlU77'rgb3x^NlkxnJs(
U"-^j]vIKn%)u9gJefTXEwXah^t3PN<O2&BNJ$EF*x;cij$t3eTKx.S=53GeCHl0a
U"uj:.xOHsOmco>E2Zh$;_.:V:I*E)5X?x=g;<0dX8F+$1p/c/TS/?S'<rIwwsbi<
U"np=Q7&IL6Cx'/gsTG.QQsg.Z;kyM'POF.E_*-hl-6m3Fm+5d[jTN:a?rt>B#Dib
U".3xxst-+o(lMKAFJe,r<u)?<Y.wh:L>&-m2ePyjGCm\ze)-f&b)U6vD\y;r5f()
U"ia=8vNP1L4z[;\#8svN[uE^w;.a?8VNl[4f&))kYc7%LpKnOg7<its+m*#SzS&M
U";uSi?$AjL)DFBA3Y1$Lg#F[nsuQ^=/>0Hf,GnV1D^z[R/,%=5+SIxUIGBQAL]k*
U"ef5337iYg(>9ofY4i=xj'1mGR20v=#cY91B7VFPKhYW->4m19O2'$?rP'4k=E'e
U".4W-.nN*l+0g]_]rZ\rCz?jl^R:6HlERD+W9&4dAJ^J9F=D.*W0P-fQhXK]$Tld
U"/3vZq.WUfT\wYSS6SkAM+OSyPH?US.#ZV)]q#_HSWOW3*cFa3:E$]5+2i%3-i1,
U"F<t8a&gG]V=C/xtG'f3?i#7g,7Y_P?\\V2YA%,<Bi%04[-99mqfq12#<C1^*SPk
U"Q_RFETgq#gQJ+LoRU$Qo:68>gsQYiqWU2Zo[<74F<V&KQ?MgNT#g.bG[fqh-;/0
U"PgD&qfw/9jMzg^TgL8hxsMO8Ein.XD7a_)%?XI+FqMOGLLL8hJbHplnmUv7E^DZ
U"NIQfSnYKDa]eDH:h,qL*,N*ZGa+5-R*%C+*h<EdaJ3nQQ&:0f+NBdZrEs;<<'ZE
U"L>hBn**El)CRU9bz2VqQsrU0(dO<T6*8L64DCj2e]2&cID8>Uu(uVi/KvQ=UIR;
U"EFfe,TZwl8FA&N\Pa.G]U(xv'_>\[IR7>T3IX85NJlg4V-V*cCX8wDGE'vU?*Vj
U"M=b41?xeLo<zt62/t.]<708eVc;(&=E4cHmQfgsB$X9+ut$T3[BPfZY$,]RbALM
U"_w64Hc*4xg6b]#Y:X^\u4aGXqB3FBqGWf150/X_(3n6mY^Uifs%Ly&I=WP[0WUt
U"1BFL39FcguJjriZQT207>7J2o*:g8BcPBSAUXPc7,#Y;a#W;Mr+bcSH:wQPPN%s
U".0:Yd]5rY8f[hy7TOai%tWjcSH2=UG3_c]+hDH.O<.hzf(0kBjh.'2NAhSe=yuI
U"z*QIBble9Vap-n\2.'v^4^n#:]qAYdVg8XjQS&IodZ;='hDX,A(LdlwF(G=*q/o
U"*'>mTS9,#zHdesT94[AM1.s0tQ[DN)ll:a#>*10AL(%bRs&T+,1^1rc4'm;'du#
U"&;cT<pH6^4k0lgoOHS+;H$k+qXI)gDGjr'nhYGcK#KwF9^2a*FOm$qjp2GLh]ML
U"6u5V[zkq=p;0<[&:dDHaeGnPHk:iGV'X7t8/kGvWq\'wH[Cj[K]jp/v#Jh7WfhO
U"=#1L9;2t8&?swYhzut*Ptn\'oAGs5=C(2&8cDox&U:j?9>1?3T7zMK\0Ie'hO-W
U"TccU)502n'AcZ5U;Q&FOBePCv\rF\;[kk0AWlWCu\?4guE*6/M4.NGx)$WEO%&D
U"?cEb7f.%VvlJRA#A3#C5h7LI6MGRdE]G0SUuVA8pV0=jbVwBZcv7T8O6-1Y:4bu
U"i#8G?TL1;?#g=Mw'8dH=d,-[s/k<B3ZD9)l5fOXy5DEl+9Wycb1BVqrJA&-7YFV
U"GK'c.>uKbVQ_kmA)X(P.-d+ma,X=bE[4-pDD[.JARGS)lRX-KIzHQHA*KC7.S3/
U"JKOu2cWJ)C<3TLg:_IvoM=$ppq9u#_GV5d4n>lT;$sWgG9u]>JkK>f,g1%c'piF
U"$I8,<23,huAD>O3iE:]i8F+XKnr:>>X:QK5DS2Y1vnWX1/tp&WS$sEaMHf&%2qD
U"=&Nl2M0&tt&->M=<5#,z?;#?vOQ#OOQ>2L0bVZ[#?#Z+BH2E)+l=g]w>3%pfx^l
U"fR4g=ivb:EY:=4%>JrZ,,*N$PeJn_8>oIcd=1uWpgk$K[1tBu3j:+wUbGUDK0IG
U"qm/2_ZYi'#5Y$goL49[=L%I7p/V\6_SeB=p>E*&JaDmPCt<I2:6=p+=$ss]cdN3
U"=+'oa8]8WlP,Ao%DnQ*7$:OKj'uPqNlHq3hIk$l8vbJ(Qntb$4d\_df.2]>Fi\Z
U"X%=ehO.lILh7yC6A#O\Idi9zJ,oRi+kSXyd'QU93EA<(0[HS&]pI7n5.&n9?Y1d
U"aY,sW:g#=\$)7iD_)%T:6aWivH_5^)AC$gHu74X1F?z0C^Pj*(f_X#vo(f3K*k8
U"bV/_,KIvrN>UoOt,b7c=46#R%lrslY;5W6AGEHKX:dP*N.8&dq4F=/G5=*(h:;K
U")-I#]hnIE8,T+e'ghARLBS-&BoU-=YeAcfP8*oXQ-cW1IvCNK#[4:LO)$6R(jt]
U"kV^sDjs6Ge]/U]gf/yw*[3#;V?tVl:Aa8WtLwJYMd5sdJejL<^tiTU7jPf^lWPn
U"^^P<pKFGZs5mOJbYLo)8VSaJfN2aKt>_bMRUN''8\UReS#mn5HNWBise2t;9_)?
U"YSE3?IbTQ3sCA;[3+dXQXkK],(k/BC<HJfm<1%TO?%3hA;a0tTqQCpYpBW:2C,.
U",>/_LGFkeYQVZwTKXwIYRJJAXmH3]0[xyXYb0p9i(?wtH3ohY(.q=wKEnL/9;3(
U"1m'm,bVIMb'eoL1MoJhJ0RfX6xx)aKbA6p]0=+E>dxP=mTg+,tIxS='+M6+aWCX
U"sO:EH_*n$2g8dXrl7k8H<L/5[_QsdmuWE$GwTQ]m?]\R/WCk9RrK7;aufLt54o%
U"=3</kq6Zi0DRHwh^H3(u?*Djs[g%84]%WRHr5ku-Z,wx\]Or1r/L9T)o6\g0;#%
U"pnUO_K&TOy>5kT^[kMLv6\s5U7c]Pk$wJ$=v+Q3naKnQu8c4bw3EjdWwXusEeu7
U"5PcrwfLFnOq$X82V*phs-a9hTFr\4^KsJi7UavePqXM\RlOI+Dnc.#\1N?S;-DE
U"yr._Xr&lnGqAj6BunZn#wR>;]l&emrCP%O<0J-eEeXr2[E]h(7#F(h:0ZW8p>7[
U"KTJC#TlXH:ZiBBJ3KFqVh[_fHT,)S&vw:;$Wg-n\HRpqGkoh=qf\+4)._JQoI)I
U"\[)me?gtsjB;q^e/33hZ\dMwNAtE-MTCvFea9wZnD'exeXraKX*WYXGOKve<0E'
U"ATa25-k\PPAgQM3kO3<E0,_E:*k3'%iWSRiWSW&[2mkR9XW:C.xZWRy<lv,jZ8t
U"d^-L\3^sJd8kntC$4zlvtl2iN<wRX7tpK#h[f\Dc15^^46Qv69qEN%Kogdvp6Sv
U"Y<s:,[msdIgH[s0^8py_D$lPRZT$vN#8YQ#?f)u8$iiwPSrIe#1U0GV$u1Yt?J:
U"IH,-]KN-b(qst^b%Gfs7QisYQ)Qgh6>??GM$\75([1JxuXLu,ClbUKWoK#l+qWL
U"b1s-K\#>$g\n17J\cZ-:I:gJaLG8[CI3393yT7Bw1hKr/n1YpGpOD)lm/:$RGue
U"B(]DM_xaRDie0u%Ao:)W+a1tYtViDdn2&M-B1G0wcF7VfCRGXzY+hW$[Coo:oLL
U"QI'jXGi,9pLb&3JIdq6>X3HxW<=u9aAovM5Mqmu]Q';]]%vlbw^lrj/Qp;CCV;G
U"wWn%l4)/rLXe(4v,-D3b87tAsfi.MrxL(]PsF>P/qI,)iFOB(>?mRdMG0B5$gFP
U"rKl&EUpiIi7yo$2?t<m\K?tC6IboqI2Va5AF<omfYMklRv]$r8?$Nx&m'^d+(J5
U"q%Vbf%stF9Gt^qN%_om(j:i;$2]Vs;G1H7VP<OlY=[pzl)fcr]/Z84ZYa\Uj-:w
U"rvF.nKyM]bt/e.xYVJcBo_n,BJ\Opai*ghgk/=Y[P^Mu%lbxg/FbT*u.W=CX-j5
U"\+Fj#][(W[n%R0r-%MWq8HeBdGa:JNX1q]a98anVrv58'OzP9xb<)[0:zu;N5q_
U"j>Ppv/PB=&zO%Qo9r-jKcg)i?M3R,,E3u(Xb/=N^wi5+hTi*AhmmScrWHO(nO*4
U"o-F.ZN/*7B.c5=-h<K\.1YqNRD0?I>Ga:,4<E^nP.1a?&Bq-28lWfi::*4ITu9J
U"JFz+4z5'g-e01jJxa-QY7nN*E4d^-HN;Olki5rvH)P;(cuKuHcdh2Vvd*Wldo-q
U"5_Fgy_,D0/1oV5Z/Z<7TF\mpXef(r5n[;C_QRa0R9c8(&c8f&QO/hm'Me$[HSw)
U"__k0w1axM/IvY4-1w_i*jz.2P9k]nxVcNdVILfm=.wnTPtg7'XUtZY+W?b;bP1+
U"*b%:4q]-&a^k?Vs:qr8XLAu^<D/6lm6qeO$<$rfFS?9e/TVJ?XP[2-)\^<G;+7&
U"_/kWig'o\\l1(%/szHQ(xAA.0kzHWK\00Rmd.''?N3;vV28-mECOxJXxB&&iP9f
U"UJI;VrL>5$u&CGx$\m2URLSugS#u(9^\'qvWXw#;NECC=yXvo'Rg)F\K#oo#7^(
U">3BK$asEnTX#4_O=QA\RKOQ6*)Y/bz>)&N7Pd?AP'k<1ehzb?'.dHNjFL^ZDNNB
U"[=(kAQJ^gRCc?RYpyklDpLU*b)7EM9L=Q(,QB**wOv(T2>S+Ji(orV5I'ke6Yd\
U"Ft;jK_'%\X<]e=q57FV.Xte?BGthx5VLWi,ScfO&41u'gUcti<&eb\i)jBkdKy\
U"_v2F&$vzoo%/'$)P1JW$s?+j1Lcq;/R=t83-c*XAR/J')wtgBmtrj'+=a'YQ+E3
U"3(vIxs[WO;?dS;ZUuZceeoWK[Ns(XlUPU4=e_I+sw1E/CF?c.Q7[>38nKL11iD#
U"OjopMr:E1\T(yAgHK=7RCQ3hgN5_3r6lmJUBCB>rLIoia<6at<RS,btLzG-J46j
U"dY*]++]Qf5DX[.y3P1[FIQ_yvr5.*kC8F>G9\.MI.iN^/:*W9Qpi8g9N&OG0IrX
U"ba:^M'bXtli%m[4Pet7hC]+-V&(+Q/YN\WJfY,8Z5:7;,Nx<W>IPa]WX==QB5k[
U"T:;+^5Ka%GRB,JQ98n/mma#4Ma=%0Q4dwO3#)MkcES(-qT;TIuJ$s^TtA0Ln?0&
U"*fZni<)9p8B7;BNx,KX9yQBBvwJN<LO3W'QZd&VoUPnePJI%(q57C5&k;k)a+NV
U"OGGc>E4(3UWT4;X4pUteZW1f\0]OO()\'</G+1(6b/6)2'iyIt^.Q&-66.by$pL
U".h$VE,inN(_=d))'IrRp8?Z,)e&y7E:qpbIt=2RKlcg8hb)hO[M7HojBI_W(AXn
U"q'%qyt^RKf(WJzWw-2RAx]F82#/NYVOaL20mO+M^Ho(:CX#1V8ogRH0Hi_(G;Jl
U"K\Mx4Y=0%cIqh?B)RB,njm1nk=S#s2v+sb7jGf<*)[[m$dc(\N;1uIBCV-I+j]v
U"uZ6O]][z[WBm\mUsYB5rCgxWGF,r;gQ0-v0>1c-Z-&E1a0Bw2Wb>u_,1HLFB,2L
U">#C%Ci:AP&U>v)w_v2*F$vzKs\mo,I&.C1<]GTG++yJRfNN->q2r';jjvBrVl'7
U"TlA(fMoXg%e2w^DBBD)[j]ZQc-.Q7DJE?wm2u,ay#$7gy9b-6Hs16FfXbVV,UD#
U"mUVGye>.qAlEJWiCQ0c.li#:_.0]Jvb^3vYd^rZsS*.5w<8MpC[pu-'4#-NTLk4
U"VWS^81mAvZ<;Zwh/j#b2D0OcM*X(1^5'/n,RHZj/_m4BCDK^Q]4l3wpS1Mu%C\8
U"*5E/3#7_/-*a#gI2Aw^s2t$6>uC)9Otezcd&#o[zDLNR,z2Pe8?d%zdggj%9xhH
U"dXnU=i%gNnDa62L\2K-NBecTag3$daAcr$*UOOlBG*W:eyvn(%(S=gd5i>tB:of
U"W<+)LEtIbL[E9qnIL88s)x8e<9)>.w0PY-uh'[g[0j(FNJ#h^v7[t+x,jwx>k30
U"pYa_B*PL/y,Xl.dlspd_.ojzoRi1=tRa:]dKfOwB++Kb0gqg[Hi#Qge+0)?>6Md
U"(R3LF^dQagrVd&1aa]f<7R-)qnmc0:i.toOZZg:kKE>A**LwVgR(<5*%%>=ZmX*
U"Edvf>\r\.3&EUirA<_p,'erAJg<2V2_rD?/Gl?R)h_k]kV=^CrSJ/vQz[,W)MB?
U"/UsRcB\e79NA7>M^2>5[$/?tE4-0Vr:68sv0DMuQ7&#ZN.?drX:+0Z\WSVIzBzJ
U"NSJE3%dl%Yn_u+oH43qLs#30'*XOdBT6KuNJ<l>.st#c&YL'.uDD7HEigg0SN/0
U"Vxtz4H-l26rL2c*9S^[jrfn,$/.ThUnD[<<<85FQlmlt9H9]6dpi\i,q;4$-V<*
U"^7uILeeSZ>bhhH><Yg_'pOwVj/ak3/FA$TC&>w(_?G_s]6[/a.?Ooq^L[PV+MYK
U"v(ej)+,6o.=&JMeJh'^arRL'sY7/UoUJl*7IMxr<'_#rxx)U6J=7\/jiRu*bHY\
U"61toQyV6KVy-)p[PNM?m1S\_j)$O<'FFUXZ4/hO;2IIS,$Sb9Qxl:)dt:XZFQS3
U"t)c)UTs,mH:E84)XqD3(<9lsSs&^cH5Tnmz+Eu]L^QpgKBqwMF[E+Xb/#$Ln(e>
U"t&IJZ/'a%Js:ej1E18N_S0A>-]*=0IdXAl7x#E/10#l/WSS,XjJFt]IcgjV25Ku
U"m:RkKiiU7Jvmu\pz*Pncm'RWgy)%UQ.*G:chHbmZ5N.mM51J.LlFf8J*l6ve8p6
U"t1?f8l3p%xTsxtS.1MTIr3QqlrUsivl'q?sp1x^:r2VzN6;nhxkB]$Sok)rx)K#
U"x[H4<2fc'XAaX3pQO$S(&2_Cv?GiiBGR$]9UIlAO3B\.*]rUf8*#'uK2QKUVh/=
U"t(TW$fcJ?sF[1q*r=dQBV&1*xe<hJP)u-8/(x]<OJFSaz5'IIFR$;:$at*w5uXI
U"P0Q^Caa><T/:i(FD(ubadqSkYYza+U_ma*wipdXSiTp?iQo_6r1f4'od1%J.'VO
U"vmk^R+airDPOMNrCnm8'$t055QK[3VmWqDCY[sLl*hBwN[*r4u8:4HUiNX(V;L.
U"JRCvnn\D7zJK1NsKp+>:9[NBo8+gmL;0*1%PM<[Z'8)6x5s+srhl?)ejg*lz0nG
U"rp_R7,kMgrFf,u6,L.tr=WWi,xs%u5%5]:2O<z-s6^QR\B6IBYtp4UZ<.\A/E,4
U"i<AGV9,(Hdm5rg-*6><&8Lt9d867IV_HezX_8J4(sXu*8>lQqY#ZcjtAby_$MON
U"]baxlY7SB/(bqGl9d?1e.f*TjzH-H3L8sRGaia%I1-MN5q6i,gt&N%Feo<_tHJQ
U"Fd[]?%gck=pF[0U.+lI).ft'?iOUl\/at],?MY_3Yw632U<u2uQW]2Y$D=+=7E9
U".W%N2ueT6w#(JhtF<]'oZI4X)gQ2W1q_MxxXRqHv6nu.lrZJD3;qicnIXPp+mlG
U"uEEY#xBokU_U/:XhII*_g]RP\iu6I[-zukTkyS)tX[lh^#_Z0CQN-Z#)RlMxET]
U"?cIYMIJrX]#V=lD/3)e;,f;vsAmVBZ_-=eR$A]XV.ZrA2$Ha(f_i%3g$vX--L6P
U"=;MwE)*TPt\z0]F<u.hOsQAI8--$5qcFjisrONlOytV7#:,R79'p$q&Eo,Td'Bc
U"79B7m]zwahhQ$wB5Ul(GFJv%-bmWj0XD0&*U8$fRt^.4VHM.7(#n\$u]CO\3LCg
U"Lt]=%GhbWH4Mkgm8Kx1rMmd$3wb#RZM1ZNN?%i8b<$^,Yu_tLcEM&HXVE<c24[O
U"QZ&#xD4btV8Ins*UnN*9scU_J+Cs6K$Ho(fG^tB&-PU^yVrW&uT<ne08k.c9VAA
U"H>xIQ?&GT4C;Yj-R-5Wt&#wTsmP;bA3L0'632$cT<^LvwfG2JW<D_.D%z0f1u=M
U"-QY&-_0SYRk1=gw>wEkd+s,GEwB0*/:x;7sen6fP9BHNDHb[%rvh)Kqx:jdiQ5j
U"]BH*qX94)bE4xXXn4ULNrieX_%GsG;bK[n49nycYR#E^-Ku,UdpAHk4o7nLWP7i
U"3Am;tuH_dEmbGkf7]-gsB\HWJxWXpOnC>Uax-.SQps#T+l0:o;>j0<exnTJ[20e
U"JQ]M;mMx7pi<oc7u>/SjcIo?2]I]1fufXfh9?hmy0,%+sk4YTmuf%Mv0Uvp/S,L
U"<<(8<Dj2^gJ6Ys2cc[ngD6hkl+t$LP3grx5%bb04aWYaDsPiH,H07/mS6S&Hoo>
U"G,TRYH9U/s.NMbKmL,ah5c5_(L/3;Mi4iNqu)NE-U):4H00+S/4)'$I=AMgsw3A
U"yah*1XP*bcf=<g;E*;AcRnt1)I6>$Z/dxeE?5O;D0XO4_4C=lmmfAQN5I?ma/'q
U"Z(Z1/T&BlLu<#gw9j-0fY]Q:sv7liOZ.*CgnI[i3pDn6s.V?Y/Q\P2wa_)3Eg#[
U"k_M[9jb/X:aiKRTW+sUu1],&AkSNAG4cfsXK*E_1F99u4=5R;Tplm%6c*8;rxca
U"Pl'anClZD[_lZ?T.fa]O=QS.%idmv[$[k8k#hp,^;WIG7o>aiJ02XDCibdqKrg<
U"RlK9bwg6aR6'3sXi=>svMx/V,&0Uv.;[F.*t.*xg_FFF=Hm57:nbdfAr(a:q4u-
U"$):3h;TbfK9]E.9ZOE%8u)JgTb-Wo5M'Pvq;zI9su_Q$35eBqYPkY#Uy\r/a3nN
U"-Dr.<RH^]2r[.;p-RnHS?$$sc)d>vm,<uG8eS63sYUY_8l9M]b8hDc\jFIZ_xA7
U"(Kq;p>Y$4jkCUC*;q)6=KQ=o,PGMBr4i^HBT[[)wy+7bYi-46kUACd:/3d$Nnc=
U")AC4:T^g,6.b-6g,R>ix:5/[fR$2I'/JZ?q,g&1'-HxV=Wx#84Xy1C89QlYr\kV
U"BGJI[0w\7kmi-q'D)2nG1tR0ewU%?gSK]'-'*AO/X3JQ.<GUQKD8$1de5\HkFe=
U"G?wI(YWF>DJrK24R:[rQu3[L&FkSqaL?kFHut=zd&?:(^+]V/ccdW/S9Ks=,W*#
U"h_RF6?n9%AX7uhA>=$bdWNoXhT'iRoBML<u3MZ&\kMdv]=OSe[?n_Xufkhac?Mk
U"Ck:5J7_WD.zkMXJ0Hea:WD*>Oe1Vh;K='Bf'[-o>#4^Efy/rcZ8maje*c>iqk+a
U"oET=Ve<dIha)Jh+B)5>\pVba[]I'l.JxCoqlcMxE)AeIo$)EFXq(R=r,Zg^o#le
U";<VvH-l3G0.>)4.u25Kd7HTWmZat7+X7RxQTlUh3kl+0a*+LoZ]agph+C:dvHep
U"9>=\_$G+^5&>+:lQ2^tYQ]2uL0Y>P[s_jkmGLU)bk.n>+_AESWu**3^PKK$:gKj
U"0c)CTs?>(?J#;hFXE,$ukJW2%pV8Q#KVl>%o8I<_X%PydlBF,n,d/A%'r>)bMYd
U"u=dZw4-b#RSvN81jd$UUN$&V%;md\d-?K4ExcN/Lp0;$V/)P44S0G*nFpwoY3sC
END SUB
SUB V3
U"'C4pgSaVu&b%7Dw#PPl?8O;s%-Chh4t?j(%5g<N%IjU^V[9?I<bK*f;_K4Jq04I
U"Yfc_ZE#On\ESaC]w7l+k%q3Hn;\>v:<Y6EwZ4+8gPPbb;4l.13B2Dt\4jg:v/QJ
U"nTt;\NHOeMgMBSuWqx1h9*8N372e3e$Df(KS\Yb>C.w1ZiO39GJDW:Wdj>/Vs4t
U".T_uDepsM>t4ORM=OO4jLI#f;r]*UnBC4IQ*agDCS-f'uSq*X.mt\_9P:Ge*Q=9
U"Yb?NTkIn#L3t6tfs:FMpBEO^iX9H3R\h&'_5v[Afo't.sscdPhhO63v-%ItY<So
U"n$>g_NO7<<#h8\7i/eU)FkjafG/$ntX'l=:'PD0v>NQ'7,%nHmBD-bmT,$m_lm.
U"VAnP$URgoRu92(]9tF^_zder]0:GVPbThGUoMWoQE]HkR3\dU0:'Kf5jZuEE;76
U"$CTf)K(YI8$9FM8btbhdfDqlonDMUAt4*NPWe/WQvr_U9<GI[+nEQ3(QYAO.us(
U"VfOo*qRjcp+pii?vn4/P#$:y6?JG9h[EjNRLd?Z&]<e^C+n;,$SG-9Bp9W<K734
U"3tf]vB:.EK?ut\Rcn_A&Q$8,Ysg[]b0:[m<Sc)6OxDmp<Zi[sr8Lim=>s29^F4z
U"dO0Wr[nw;m+W+wi0Xo3]ax/6WgK4p2+AB5up;%D$Z#j+*n/iu%;:z>&>>IPN](S
U"<\ar[9o<H#xGA'lLt>7K?]#PUg*JPScYV^x8lPtloZa;^2^'KsZl07M>M4Zam-4
U"QCe[ppjnT5tiTLC/15,qn/$9iM'jf0i;8V*4Gl+BWpJBD//x7)p_0Q<X,wB)eav
U"3-iACq?:h>ldDtQ)0xCV><o*K,Pu%i*oOnp20D#M3KphDY:#mS4]P(pB2K%^%M5
U"21ZK[#FG1TLQsO%^&y8Se)4q*x7_nPZkh%l-EdT\C1r4hKQOE(SddG]n-o[]sE;
U"(hPT&a'JIW]CD1:/%WFa]WNB:>QuMiJoRHL]isy#*>IvJ49j$id2Djhi*1h*:;j
U"vDEuFC\FDuTin6UZn'Xup(%)9%%%%-%FAe8F[f<nfj%*%%q%5%%+%%%%u%fqSgg
U"nt&V,ASm8l6Xy5[hL:(BfRQ;E5#7&&LzDdd3KZ:a&[yo)=_?VJ0Yri7>>lSu4(1
U"H')bH)LW/k;DC0pC9p^v\H&OFk,k9R8A7RgfS^ZLZtfmTl^<[<iCv$6jD:cFaNJ
U"Z.-EuA-?J\?P*$Yu'B%'YWF%;5OJCE,WXekNO(ImoEY//yuh0%%b6&xK.o&:A?X
U"%UlF'm=Oa9&k0&x2E^/:)'l>p??E;gG42q2$E\jf^VfQ9RLs:pP4?Ju8C*iC]^w
U"gCG+Gm?575jTcZk]pP[JBe:/SP:EqzgE9i\Ez%KG,k:vbLQ.km_YO*0%GN#Ga9N
U"^KkA%(VK&&C38udN6aMh3#[?/AJXE.y6%a&g2N#9]pAIIq]4PUedm#WE#eDPuOu
U"f6NcKc(41yF'0Are$By32NYpaF2c7+y2>hmzt:$.l.OyOp(<p+a%n=<U&%4CopQ
U"zofHxRijgMglNa'rRACq-&m(8NC_q4.Mv<P<I4_opCYZu%/.36x$J+UYvq?>gZA
U"^cq[1qGe\mrVj,X%ts.DlA&IZZO.dTmnK6P[?8q?l'q9N%-f5%iuBHePIL(k5k9
U"WGn:wW8YzFp+R35AV*w[ROPHp3aNC$APIv*1M<H4e?(hx>UodXccrfLvMh/UV9f
U";5\j'Vaj4u$--CCQfy+^=$EL(W>JSXnH.3RsvmF%*1tw3*O'f8e_%f[KPCekUF%
U"#*3aHN4.0)jq(WI;8#;ty^5$Hi.lMs/h(SoTD8GtR4tVU,ej58g0KwTfQIa_&,p
U"AMO:L-272yC$$,l3(W#jrWxpa]B?gjOH0)t[Oz4i$/E_ClA:,<6p10DaN[e-,2M
U"(c0Kj(w#l\5u=vyJ7w:,>Lamkmudr,XyiZY&_g3*lLEn7sD'xK\$[oMS;bEYe/a
U"L,e*D+:<iB<r6N/56Ul8ZW&C8q3*UP<OWL6(Z<4i4XVe8dSgMrR\_<kf4FV=WYr
U"?Ww?m?vKxZ*AI(nB>Z<LsJk7aYL:9g3d]]ai)hIKIam)lb3CF_ny^cJ,UD8MH,?
U"5*o#ZitupBTR?<<_H+4tx=nbL#kXNjBp1nA_Z&l8k'HaEoD8#X-kTa:WIzODvlr
U"b)X$iV'irE4AXBN3[zM*P8Uh5v*CB3hzY,7<urmK+fC2tI7XRKE[5L+l9NF#)ja
U"4dUXcqA6cnd3ovJ#zQO$]gxB3t04&c06NE-/uZ*eH;Und:qU1HUxgM\ZZ*U&e-w
U"93F>+Ht64.*]q0h)HP/WwD4-H230$QLgm$D(UnSfBkQ<$-BZMbpktH0L1jhvA$Y
U"hs94?]tPap;ff6?5>f99nf2xq,b3wrElilH&>QR9JG>DpD84_)jJdk*D;k))L1.
U"?/[zi-8;n1A_O3Ys_IJzuLq^opCcSs>>CN7?n+gua28+IGiVz-D;jfAxlPOj=\0
U"k\BG9a_Hmfq8vCa8c]E0Hx\.9=f=9^H_6;B=mHi]f/2S*8bfrZ7Ib-.Z\]O$VEx
U"K>8cUsP2oA:4lG2X1(dRhzeZsMwE)PNSjZ2s,$+/c7C-.fLG<?Pz$P;69^pAU:7
U"DC3eSJ';0(x:FiJK:L):dNOr(Fb(z?zdR]1)J]?*#$YZ-YA^kHt.\YZpAtyR82?
U"bpC>7MgX7+S\N**,tw]t+o/-a[mx0aK9BLTU^mng4f^p+Vlb\R>8'1ldG'^;xZ/
U"-[^f2ZbcB=PXK4;?ifhf]jVYpXo(Cn(p.Eq\]?0X,_<>A=8fN3NT]/[duO#w46(
U"<49.+K)Jfr,.a$/fw3h>'wNmts)kJ)ciq,#hHQ,EKILBiD,x8/FsrP)i_(u0(X.
U"TdU>VfnLsT<N,/-rertK*E<3Va&87^p0zx1h)%zqJk9KUfDS>o5J<$#$$.=0F,i
U"dG;N#jitUgcVVr&8-An\T-%BdWBgEZALl0Hh7TVUvqu2>UofVXuhU[(T\?Uivxg
U"J,h7>N^Xj'x'up%()9%%%%-%(ea8FPpdpj&c9%%(o%%%%,%%%%ufqS[gfxfjafA
U"T:]axxVdFaG-\,bH*DeA$E*6KDE+;Li8$R(IptEgH%;nf90OIp(InPIfW4&56#]
U"Y%a<Yv]]Q0.JF,x&B>_7C\3C#\kr':b]a;SJDH.vi/mq<=jns#J/rjDQ:q_dXfO
U";Yb9FY1Id&<(.f&/KKk%2\OURZiP9XN^H:?O=l/x1NHYw+#wE'(M)5-b(EBK.'P
U"g.+uXLf%9G[PnS:j5%[q=1&/jb4F;O8PnWf=\dU7R&F-OQ%;Lk1Y/[-f]IZ:oBI
U")e;#dM^254*]X)]3l%LfYvCe;TaF\2?#o]u,=XjoKHi/=*xJ7H\Yd0N>1>U?A=%
U"*$Lep9RL'Krav]n?>w8]1;H+I5Y+[00H)$(*1/Qq\M[,fS164PEHY)>8gn3$L&U
U"d)TS]:9k[+XiC.'^^:9*JEG)Ye<lUlzNyof7_IqWa)f4Ux7gsbc)YtFDlAusaW[
U"S^lVbcgB6-&O+]hs3]I0\w,[tIOvH)q:NtPYGG<(Zt*L<g,N:#,pK%z&SDK-pQd
U"SuHh7b99<Jt/1Ll=X_Gn8DeVVl2Js*F3+*87C,ank?'#Ds$0h3^*eM5;nF7/cr=
U"RE\e5AFXteK#dHdwh70TT%xDV#O/X#H340UO5O6OX+dhF\uhS(EG=bk)de+Jm]?
U"gE8sCh6.9tt:Y?JU(=J)PAa7jLUp-xK;8TM&*D#m=1o:-5/X3p]AZH?_])2xJF6
U"leh%72)ADisG$*QF0g9cT6Z911[J9[?#fmpG4.jCL4V1wg'%WpkF1bV9:*22&Yg
U"#5g'AI.^k'U6Po?A?N^<3xHGN,$F*v$>a+*)oL^5/+^-Q;5TVNdP3*'F:Lp+7E0
U";jG.9Im4U/b.LO:*)Pp9u6;V79fUpm:LA>MM7.^dS75U1Sp)PTpGpe?b3hpgF4K
U"V;/&fP\R4aNm3x9FuqIdJMuenG;0]rcJ/w.ZHnm4e1d^E,3Wa;KNQ#t.<]Z=76c
U"L,=FM.aGQ<)OcjF#$:JQ_tl0B(+Sw/H8ZlQn>QRgfs>HqLN^Sg'g]hXxAF^FPuq
U"(f>R)lL/Ok7%]^LBs;1jYo'&35ufVoq\a(xF6*_7t>vCJ*6-)Tu<i--$vPh;qDb
U"l>5xxR8LdX22Hs.bwHa?:0Q^j\0_ZK95lwr_Hy..f9rMQfb9tGDV[R#sZPds)eM
U"r5\EugkV&F0wBV;Q1p7%+>^G+y?\[/(R/KCaM;4x$iZ*^:[)U^U]C?d6-VXmX?X
U"jh\i)I*f7UFUEi.>ijejLa;D2oajIbU)]0lOY*1#w(P?LmTsW]X0hc7+rc::eLm
U"FR:G&U07GBP*oq2]D>([T'F]LP_:((&BUP2lo/Vk_-Z'dBk[g?q;??r$$Z>OPBM
U"225WKM<Kf0^-o5.J7fQq'8xM7s7nnY.bXZ'%AQEbInmlhKyu4#g^X4RFhe\L=.M
U".5k[0U'$Jx(Bo=Y?v\w_/8;N',VW)+>FLdtHP\0?qBNR?n.'os'go3<7dxcpH-d
U"G4[L;duQMd1NUg(-L:,yCF&f.T^.6xr&AhNLb+H&+b,Vs*i[9(jJ1Wh],;FnY,T
U"aA$G/aQ,vAn)F4Of?$CL$R*gkKg\(r(?StHV\;C+tH35^BYRt;61aC(LA0J*1im
U"&VliCMJQrZr(7,2+A<&NY'=uW1=v=]k\ljLbi]]sdj-:I+;w6ROkco7ipm5)]6E
U"^eTaknl0*0r$x='BMp_lIc?&3oE.9<K0kKYU)1So%8*\kGhXZ55]KNlcn7C=*C9
U"4Q,[y%sh7J+xo.,)60*S*BUyrF(Fxx1I^?t^k'^ta2T:uqoR*;B#W\WQ[DQo.Dg
U"TmVo;Z>$v>tHCGS^697_k^==8A:Pw^L:p^k6IhXh$r\CfgUAam7e3sYOa[DQbDd
U"FWgo)w2j=Z+xwx7,0kZd$j11b][7AYM><uF?,lKJ_v$Y>(^ro&zP^vPIm$7jXh^
U"gmKxma\.Q?fK;T?MDE%HqrXJ<vVlNrK9KdT^'A2B8h:uU7TXYmL,0a<sUHq?M9Q
U"Umh5$cvp=Zi5stvbIl+B2BZLjPw2lUqsg'&LGt$G;3=nA;S*0C%ETSSU_k->:1H
U"+S:)a)(-qg/DW\gZ[Fpcj2X[?anMPq6e;C)QVLF1F3a<]r,W1FLjFN?F\VlMA[-
U"p^^bS3;fu-d6Rd[nYAm(]QDbR/y]g;yVgkyD6Mqvey]6*z4h$9,(fanwWP,x4i7
U"YPNob6gUGDXrs&bB?r.&a5_w>RVLxpApRg0MOvo$a,RgNgPXoakGzkrd9B^j6MW
U"%.o9,R5SgPVd.VtS>8a7GkiLF^SxmIi?Ba7O+Y>.n$IiNb]7OY?K-unL)DQL5U6
U"NB3[CR.6^GuHZcVkGeJwjGyj2,12p-oKk3%TEPPoV)794'SS:#:8\mA?#[;k^;E
U"P;k?8X],[8jz_lMfreEJp5;E^0AQvcoWIw([*Q5&M8A?4fjJh.,41n'edjkH;XR
U"Bw#&:uVNY8mr).[yEe[7>xsB5$Bj0560i:J=k0&r2#>Jns^ovKHTY<i5jruALQ<
U"?-6ymP^WaH.42-DJbt>X?TQzu6;bxtJux^XCxxSo8tVkUK^Xgokqu8=&^)Ec[Ex
U"RI6$:6,B)wDL3f:W:hCCp4;KWcC6/A$F*=zN.o70p7CEi?YWAe^#km'_8x,wMhM
U"t'jL'P#CZnW3\6Ag'i[SI+X>)<C/.GyncIfGJBN_H;T2;Gg5C<l$HJ\C:\BgE_L
U"Yk*5_7zF,RQ$Jdj;\)q:0to5E9k=.dp-]'AF&WESCi=t9TO#fvby$l&;d\_ylN,
U"#)8,$Q[j+D(n4<=HyH#\lQa#)9H8Itu\//w70BcSuP1C*X6;RjS^;LS,8qgM77q
U":_#RInX]n:vXFM_]jU14#2?\kAZ=[Z;V=TE6$0J7H<oKpS;>>ppR=&\=H7h)$)p
U"m+-'U*7Q=R>?pg'kB0$R;(2(0QSdL0Ok*:[r'?G8X>MapKrP>pNBa(V+.\I'3l]
U"5.8:']d5qFU*YitVK/b7p%HAK-i3\UfLFr1AKcSUNP[3W'-]3^)<JPc:\iTZ)V&
U"q8Q]X>2D<e2C\mvS._fTGTey\j0BB&JCcm]j,0>p*lQenAc$)jkxG4w'nE:tY0c
U"2,eyIPUB'y9S'2.fGq^AYMat'tD\*R29mLc\dI/ty<^.TF&kxJ4[Sk?Vqhi'rl,
U"b,Ptu9)w$V.'Ycfmj%+HPA:+K6,p[d,\79PVbwnQdpRm3Y[2mkj9M%JVrc^uqV&
U"io4784^:M\<n^)e&O-QaO]6:&TdEuawUTh336xn.+6LmAnT.JOh<thwg8dP>LF/
U"Hkvjc(K8.Mhr#HC<-kMQ^bp:,-fx.>J0^kOm#ieW=7md+l^gu(hM.kq-VDi:,>u
U"g,usxDCMS,iW?C,MNMMomQiF8[dAr'7:%u[R=3NGD+N]8q8vP<EBDR3^Sn^:[YV
U"CF,(eSqqf%^l(#=tX=f-cJG0B0+8>2]P(2rU6,Wa4yf*5\)Pm<aDpuA=rT2e0Ei
U"i93:n$j))G/<aAM0<O/[.(P5n(vRo1#3z*,pni5VfoYz?M.kZ/y/2sa(B2Po>'>
U"u-<Xt^d*oR43tV8oGw]P[[8-S.k:FTUWldZ^H?+tqor8C)9?L5=5Rt11i/-K?#'
U"[IR5NNUJqj\.oKwCZgZIY[tmW:%3KtkRbE/Y[f_geY$H=/g(H30EM/dj\C_uHjP
U"Tg.p24Qk8w0^tD?Yyd)NqQlOGptXLDa.6QF'e'D#3lpX/7MJhWfIU;m^qTR6.nd
U"\n#9m7bc9HD,B>x-HC)igR=/Um'+WfQD&IM7z3LwxtOoDbyhzb-8AAG;(kmU6)%
U"238E&<q8HZed5TmIRM&V[#L1N++[z43+WRl:+1:h-s1A^9lejD&jjZc8Cp7C)Dj
U"K-Ur,/S_0%D:#(4?S,%h=H]h'U,rJba'Ur,h=.xlle_l*:YDP]sk:i,e[m]T/g<
U"QJ1S2PiWN%edJ>jWMONM\)0^&x1pOxVU<Kqg389'1Tz)YPRVL+a6T#]--%1n1kA
U"#SR,Z=5p#n*&vOzpr_^cg\5(*4D%adW*5)qZw[Y4<#]GdQW2rUHLg\A&9?j*;zd
U"VN<(d6r&VIBe6bt]>PlHXyaW0n-O7][JY^6)G0DVrt;Cuo>Q)PXHJsKi5Gv\5\I
U"fL<33cb*&5u_'%kpH'-HQg9U[L9GV_oaxc6=:vfFAk\1HQ7.P;H&fhrN?&f0<ye
U"*+9'iv/SOpvM5#gWW5O=e+mkU^(9Dou?nt2U&oQq9?5UW(u+C;H=Q?MO:-9\pdN
U"KcKX*AbyNR-O3&*Dj\;xqrm<uure,+XR46<kS'GYD\?Gga;lDx3\<_bW9P_8j?v
U"B+Ax4>(%MvAn*tS(lumv-k'=5T[%.j3//[j^Snu'sO]8m)1Qc?>$q*<$JtlBa1P
U"q+T[GmiZM#-\.emQ*heC9F?D%0:dk:Z]9Qqsc=d(t(9-t7NAvP+m)mNxgV&[eCg
U"wEZ0\n2.a6seA2AtH]xu2*%47KNW8h%+_M?TO&OSIzp-]HZ^UB*8t?NHx^*S?7p
U"9tFWJ4L*UEk*EESETdu29B,jKLKF+lN(r942V3Av6Ha3_>S<[1HcuVG3#8(BI8_
U"1TnF6Tn$$0bQ6t[,xEPK_aOK)]S*0sZY^rB3iGGo,KGE8avIn&7<4X7\hY)[n?-
U"JfV.I4+dvJ_SvjWRtXWDiDhPIM(*U+3HYa]OP*F%=gpWer0)IAP/hLXH6pJS'hp
U"-do]:8G$iLuqOs35ZV*9*4GZO:Xs-(POK2fZ#Z5DCw;lf1d%Tv$TM9zB;DyZ+^'
U"?G]Sr(Q\KmW]GqUtiE4[:c?k3aCY/*dCoQ&E_J.tFE.^'LEWuPeO%vc51_VpWb_
U"s;IqEHOKKba0[_tjKOV%(*K3SK6X[[>Q?SH&Xks'SdyTvGV(UM+puB%c%[^bRUr
U".(w<G('N]6Po,&kP''s<Bf5+_^vs_jszLk5ESAba%-^FkWsO6BPYf-']cbHUArF
U"KKD..oXf$]C'no,:tvP2pnbJ<L93P7'DmSJs*I2Vh=?F8(TZ_4SyEU\(5E6'hH)
U"5elY&nS(CZ&f)hlouo0/M&4).zeoLQT+FGcrE3AK]l*gNf)e'dD1l]E6kYg)m1n
U"&;-\7z3GUsRKWFcMLrNnB&vJe?YUGf40l=$SH-j4SWKnK4<e-Z]g5M,t98)3hbU
U"Bl1?V%fJgV^]qqU=#lf6v/EA$>]E^FWf3*z>_)-kD2Fo>$Z#f\2pa-(%jZAquYS
U"?d&Yi#LcslAj0>bJGbTuYT:2mHiE/T<l$N>x4opQH73YXDS&o&2A#c+O$BO7Y4S
U"FOk[.<F),>GfnAGC:ZRy/KG[y+J2h.T7g^SX%=Dh::$]j(LcCadt<%i/wotIC*K
U"LTfgM(aJT&>EJY1&:H[RtRH>I.m5migWXBU[r%=qZ>8(IR/dDfRvU-6(.k4O\W.
U"v^jj_kt]^jzWfWLeIiz&-0c9$x%rB:?bd0jhLlDt0(xT[s0_[,N+eSq\.bPkLJG
U"%'4y9P-PegC=.t<.;+OZ.SBaC4M(J4xiX70,<j1d<XzOW8)FE3?H'8OnT*>>pK3
U"8lJSgx&M6N&mdYwPhYe6qd.3IA3;Cb+7VcGja/?F^iK1l.N-rDHcsFHP;/Xj8X?
U">#5NP4dbDX(EVRNXc#Ko<9Q-Uc&4PH3,5MFOTm5Xt4LbO[Dv$>34qivQrl8=4y7
U"aR.\ON[rF\S3PQ2*F2[zMCk8Qyg+2Ll_>%Ra7hf%Gvbv;B=fn2QXeRV$(9eW&/C
U"OigBLr'4wUu>7d9Zg6>)&T1T-DWYdmcrlc#P'cQCz*^-W/p53(:pFVIhT5)&LmD
U"VK*C*-gpTyNbh0+niAT&FoDd<3hH]P^QrU;0AH3\j;'m0<<R'LgV>K,k(SG.:My
U"9V?IjH60qI%J)rAJOUBSka*?RH]p?h7OmZE4TaJ\Y\C8:l3#=kS.HK0;L6K0[X%
U"W(d$Mm?eVAlDHYE.zZ\cpqu2p#>.N-n4**51)2B^3/tmQ?Dh0afblzkK<VW&_tK
U"pp6pb\oJarf.oYnKb^kOLn.OVdo[UO8j6qWf&6?1;:hg.pI'XuuDQe9:Z5+=e?a
U"FOgbV&x45.r.s&]G,X93BiBzm&JDS=+GV7KG[Zun-_^gNpiAM_h<.P=U^u7ROt2
U"+rKlU><^9LFM.t*?90Dd\Sbgn=TBtPEjBCJt4++=bP(0$;WL-.h$%,tOn=IT-TR
U"N+ju=ulxhOgNUjQ_)+7T5lk$+EbR:<WrlXR_uEA0Amz2EOY4'imDdtgd>8,zdGP
U"c;g::n6)c^XmwaW(McH^HE$Cb^e^ks&20omMa]hqDyD]\s*2N7PwKDc+aJkMJFP
U"wAMhk(qmwFx$YMk$*rWqi]snA051j#j,a\8j*c,#MXWZ4BZLDeKVAFJTMG%kB-2
U"dKVl+JH$GFcpX.<KTA4Z0bH*ASI/496zwfD?pau<gk7,m(QHkHj-I.Q'r%O8(NE
U"5PZ849[eDa^qf3SF70j6eHQu%0Q\tR6,Zj^D'Koti\IyGBC*ll5O?=-vOZrU?fp
U"nGI6?Hr)$+gm78g0ML<xeR$Uc,ZWuKO(6fRAw$->qVB,,bMXB;[KQo>1NRSCTxi
U"%qD*uMRmT6d'XYXUXde*D$rofHiTaK2&M^,;.0aD6/sP%Se>76BH33b6]gU=S.3
U"0Emz*[Yg+NMMLZpAHtga0(X)*/I^Gi(X'ukY,)=&zqce:<+>Vrx]go2Gr[Bhz6t
U"geZ^mt4[D_LuiwWE\on;JnFR-7x+u%p()9%%%%-4%V::%F6lv&5D5%%%#c%%%,%
U"%%%ufq.Sy'yKV$,blTA#hQ%[N7Yx]S,C<WH&PecCxFy+Dc?-$vWkFPF'-CD5=Ga
U"\*5<Yh:w?58^\oTzB<#bI4xIyCb.GbgCO1)ots'+rpV\CLw=.qtNtAFt4K?El8d
U"rw:8prqzxqZHOl.rqvnu>#T=dc90kg%^]VK2R:$nKhJkzex:EnPSW>n?qalEpR[
U"[ZY?t=Nq>2oXrqvnut8T=GrlJqvZXRANltjNsXbsL$W_.moH]x%6m%(98+TZ;KJ
U"?*v?m,Lqvj18.;\vaMOS]%xq]$tig)xAnK#ySR07.t8Zs7G>K:olA-/c(tf1#'Y
U":RQ<;R[XEnHi%CTJ%srX.\9+g(c9E_5'o0.X\dn+[[<-QwIf:_Yb+E61ed(x$.o
U"p8H%U;wZtfG<C8c;'to[3)0I7iUzOX/]?2)roW<^&Y2f1W(I:gIgeF])gvIK,$G
U"Kp]AB/b_)^fBqh'O5*dZJn7&?7^:Z5bphBEA?)Ht3-feu*E&uyE_i*B>\ZEh80r
U"'AhaZw][w+ws*6IM7Gi3-(nd7#-9j6AfISyUREr&gxIQwP2SfODm69R-3(phJ+#
U",Eq35A8vw[N5/K[S8J+8;*qrVuR+?I1isxQkC7$/PZtl-o3=Sb%nwq#?neXE1MT
U"zZ]uTNUS6Ot?jvaU6O8\pL)nZJD1^np/C7h,6C#PVW(tE/J5J2cXO$&i;eWjkT7
U"IkW*qn>bnvt^p(Ac_\DxiNhi??9sabKKO(I37QbTom,&.U47ebGOvQXYZ+]F<c5
U"ooIjU%amCxgmF^U*)AsML-qg'\y7nC8ER+XT&ajhW96c-9?,EsHZg:1[jW:A&FP
U"$UV5aBLm[??nb;[%;tah5M#sbm3O^G5k/uI'0?p;_G_U>3sH6vHaFfbr]iiaid:
U"fy%=;SK&Y4,4A^u:$U;7=sYRG+;>M+C:^)adm?':cvDFUIkm4cJ]*,DUcss44A(
U"VA6V-:W>yK:FW8wH.9%_2nOx2CYSfp?T_(w15o9(S;UrETdq^.)Biwh9H:/lY>$
U"C;TNY-j4sKL)?B;Q.$&MTV_H:P35&tsm>Dq)(Y(q7gu67l%IB7wuI3\?tQT&q\E
U"#FR7/7nhBeau_'u)y_SGnN6Z5$Ec[18OyGiPhrgCC:k\%F_kytBA[CR7&EO-S4n
U"?eSb'+8gX2/8U?G;?A:M-(J8If%',#=?2[eRlSOA7G\HeHetKSh*#DwcbTiE+a*
U"QH?5i&pbE4OUz:29;H6bRhR(QMhLGi&IP9*42^XT=a6#Z&.t1&]KGhSXj5KY<V'
U"kJ%'O8mb':V&aL/q\?&j])NyAo_$CN1L37(L:Sl\bkXAF]M=h]M6HrA[Y2$7(g-
U"8c]N%T.2jggapDs3Fb5JWYIrhZeK.Bfq2pF?hPh>]?n<XdCoN]^VL**_^R96g/*
U"[Tm/omt,-RKWp(Si._:2TKfPEB[X[PfCN[ZPJqBnlVq[T1*8'O-XJ[p6og'5pM)
U"0K5-5ZeBsI+38c%]R1o0m.Alm;-BQkuEnQ\.);Zaj<)%8t#R'/JcCCe0xZR)$a.
U"%JZ%nQvqjZ(qmJUdVP6W$2Ko?qqa+U^NT?5UGc[;$Pipnq7XX2_)UbdY.)D/p%*
U",_>[i?hI:;d,FQ>H('&d9XLar&_aq*uCq4Khj6AcS55c?'>NFB]P:<3*P=;ATRe
U"Sfejn$6#C:b7bI<Ob8HF&[j,7=g/idXa?m+8:()]Tx.2jrRiG7S<7Y>$AT)QeBx
U"Wizli\QysD<rkqoSUsT0S(9?Dg)My5#\6]2NfyTKaAh=LQTh>:#qrwaDb1Z9hrF
U"1i_6tN1An>Ui*lQ:-m/q4EoXB3\&FGTuPC:U=$Q=g%[q&'7%&>k5=k:,\RVxK<%
U"n58vPSEQV7Y.8U$Gr-<_=1J#VaxE\2-j*vJ)7vZb0xMDkG2jlljqIHIBY&:1N3-
U"G:y*cZsj\h#*46#SAQ9B</;/4mI$[#x-:S[(]Ggy-754]uE&s%UDA_:RRNb^B+X
U"ZMW\u9/#8+pfz5h<7]l]1xBPTYj8i8k4;dR]*=K2G4X?^?q*IgpXj*0EjQ6K.v0
U",w./EG]\[cd-nt>2/.)r&Nr2'kmJ_YN\,5e8aWGLgtmS6un(Gku,DTj,jj)CAcP
U"j%FE8+?(O$d^T#MDTdo;<h(oh\v.m6P\pUdTCI=z+RJaXi6H1=oxu\/=7+J^7xH
U"SZieIbC0tE+__tbO=yR<sR)oIqNhB>u2w9&&NRH,%>$Y:?xA?W'\[?D6q3([hG1
U"RKX)fxq+HS#/ds3P#LMNh2-6m8Gp$7X*r]GI&p#>JcIg5:&WU_A0gySmRsSULh*
U"O9/CKbGUYH>J_intDOnf#&5Z*VfyE:7A82OR&;j*DC3<;X]?(O(jFdII&OQSG##
U"HFG,&2J^4husnrZ8?]u,a]KPIIk4M_EOS=kDeCw96CN>LGF\B(u:d4DYbT,z4pS
U"1MP2*vY_bT&5/%_DyMT#+,.6cp?73qWAfP-9Y,I#qJsD'$.6-&2)#LyQA3Au3:;
U"g+BT[jfz?mxt$mi-iM<TZJGvckHAj-v#S&&D?kJ0&YQ^(>/)xFiuEO&waN1u3Ah
U":Z,,Dbul4Lj4\)Vur[xSd&[^^_Xd(l[j%&(jo&BCHU5zJe;h>%mPdMMNs9:L\Nl
U"rb.Fc^TFt2u=XA-cdGa4iCDJ3Ra_*a$Hgqq1Q8&icMxE3;zT0]Tndk8f;]pI?]H
U"cW\:Z=U]xCt*n]c$u9wFe+HA;.;:[mgywC_8,tGS>>4lMtI^i7&yN6*U&*Ox+?=
U"syZv_ggR-dK-CB4oS$iLkn%HM0o%f\/x4*g=FM;P'9V>Tl,$Nzj2p&'dUpt7QXF
U"i:?'k\39)Y4EgGhMkd]:w=kWe4d+lAI#pHruf=F5OI%kV=-h_2Ve1W:rD[f)4N2
U"sfg^g'd,i_J;&yruu&BWD3'#=g=:WN]-#Mu=1<9H]srD2YBh*j1u'\/(<d$ZR,f
U"?P)53D:l7z-++dlHjA:UI&Nh*d1<hO\B$-n8-2D8/\YS/YUyOPfPRc<ZsNGUva#
END SUB
SUB V4
U"TJo'E(0?Kxb84q1k\^0kbUTab8()G0-drD6pmlk0KHNS,LW_:X((o4JaWn(k0)#
U"ylBhzax]]jOfsrj7^OzB=0lFUY522(*'*bD1$DdMn0A0mNwEoSd]13H6BCb>zbJ
U"yYS[/*euaC:_DzH)?ev#_.JT/8?Ys)a:ur;/pw9UG.=:+:Kb/=wDb[cnR-kr,7>
U"d&z.IAk,i*1<6Q<<=T3k]ad4A<AMZSQlZ:/lP^Jz&#,v2rjXjAu?vf_z0$J&;ZY
U"iv/2y<'9Eu,r]+SXyv:Dq0xh6?yU9vTBzL4/;Th2F_[Y>Y=R:qNC#<%6hxk0g(P
U"cYZkCbIQ2;]TZF$:ks1OPL)*:JaeHPSHYjG\cOg0?Z_7-Bk=L+[:d?thK,XIrZo
U"p7mvHvl=nT*v'wi/)KfA7AMCHID6JAQChl+b?nBt7rtfTj>MDKLCHw-$0M<X^QN
U"2_HDPcoM?lpZh.++wI't,dRh5]Wl?B&^qps\Ne+pzwS&\F6_;OQ%;lRs_QvK;D1
U"FhEHETLJ6,=KS%7s,#+#MhmHoIYckN?G=4^iC1guEVtCBX,:=*g\yY/gMCh(bL\
U"fv3FW-AsKZJLrUDyemtN[hmYr*-2P=,\\Qo&<RYlka(Zn^i(+:hyDn^U[,1,llO
U"#'<4m4s?vdS4b&H>0uL\tbjqksNF;BAVTd9e9bv*nXB7=l87MnsvLP,iOT^(\.Z
U"[:lH1fhoEE^cRK65l8k=vEo&LXW+b+4?E6AYAZ4wOo$7sarmx:k<ac/f\;=Bd0s
U"j%>8hxf12I3A+DNM$Dzee8hDeKO<N6+]\<X>t,W+#)1w(/ZrDW>J;rWn9*\uO^q
U"<QCL?E1zLf_8\=M<=JV<t&B\qSPT0D_$4xYg(ooWd8AsFZUBsjfM?CbcrOaL(&<
U"RAo\MUcUPOS57.A>=;N7(Y1Q#-lgG1>SsXuKjHTMHZ0?Npl&T3=EMZVPi(CNy#i
U"U+?:<O$VOf&)ar]EWy#lG)&o^q$&<ubN_E8o)Qo\4G$lO<#TZynWcSSZWMlw'K6
U"Oqo-z]Ja-/_x=0CXvC[=]i=N&Ug&uDuUc?d0)CDQtZ(Sdt;ofR%c-OUk)3HK3LB
U"s$Wdq=?jjeu'.:.Tc7SSnyk(ThHtV#,:8z,L^]P<^/KM_-_w,gG=VoJG=MLF\2c
U">emE=<JSYfu#cd-g0)KVZZr9wH*Lik2l(txR^Z<Vt&cvy0*je8;eIs/0=.8+?J]
U"?yx+f66#^ODCgEKmKAbUMTq=5UKn[PZy1Ik,8D?gV%\eLq:AK3TSj/gBJEq\[_N
U"_i,:h3R8T6c6VFR2>]>I.<0wn\:j,gVPyFhE8hVX2\[NPo?&QoP2q7B59U?X>n<
U"J)+yplF?p&xDaC-s3A$2x$?UH&Nnx#4NkJl#H)-DekgL1-obFMVu<dD<U0VZG0P
U"2kZ?YVXh/u;xs%4B<>r^F6JVP_Zm9IS-#r^J4aUgB/+1H9Max,W;vhStpv-rVZ=
U"#n]zDTQ%mtdsV5&tuvd?;JK:iA]d3rq2HlJ(rn,VU#B$UCQb>jDR$q1<sx.-^,j
U"\8),r;m_f$F/9S'dK1,]Q6K]'q7bFAKA&,:lfAj:%&G:H;3vh$452uga^o-5<<T
U"$d9AXjZae+a.Kvi%1S=t\D=:N8FUc-_6=j*^uX#Q_I3SvN;s#ja:F;(Si#PCo1?
U"Snkm#VNSS0*iPAxK/6)KR1Sf*ZkWEv.+Trk9#lVt&\VjuU6uHE[wG=V[+r3u<&3
U"GtDm^-,2Sh?S3F.'VCq1z,=0g/3e3&#;l-NmJXta8%21a=oLVR$jU?AmXbx[Zjf
U"$GEM?9N_aJWLu_6CI:N$CVA,>hDJ]#ST\(1trOfI9nf5DA8PHtJ=wJ3mdj\l1gE
U"x488&BwviRb=&py&81FRn$=m^IN^K_WiUEuK5Ch+*9(#W/t-:j0Pe9_5)><dqBW
U"1^f#A.ST\,d<g4XQ9Oz38lG_ZK'K?KWliZVsa<?n5,#&VgAjFiDKC-.?:a^-$7r
U"wh+*C/^%Rj38XHKFS5bijoWb-#tt+;0AX[Ra*UDMv1<mZ:5KZj?F,B-HT:>k]#Q
U"1[zn6#ijt2#[N(jTrlE=W7cm,fmmJS6K4Fk#<J'8y8TyCKyE,iF&_QmzfpTY)vZ
U"#T8lFT'8PvSfqt=+hvB93m'L<n[k>__+OF9xA]*\IEB5McBGuqhOVdzITdkN/2$
U"\J_'Uet\$9sz,Uz'\,-ak0\cAA2mVJX)871tX=;b9S=YR>H\<KJ)e(]#AStM/m+
U"-Xtdu%p()9%%%%-1%6?:1F]LQ,w,:%%%%g%%%,%%%%ufq%SithNfkJ_dAlL#8*;
U"+ta<DTRH?Q+)XgoVXZVjWm?&Q;=$X2J&F^VBF(L38guJ4L4s$UEm;II_s<dS=[7
U"/urH9Z6Cjlj?49.*[^5%E5Uz&x'gC5/eYh1vPONFA\'2.MCH%Zrw36ioDFK9bg)
U"nOVk6F_=uD8lgwDpl(4NdQ(Vd62[<N?ld4=VH;Qh2V[LgIH/c_)83L85n>ts2r#
U"s*or$(%QqdR6hfxA3P/itJBi9L$.QET\Nk=uqik&+Jirr[-mk:NP6gS5f)^R;#T
U"Qu.2?-#Y2oC38cxYcH$SjT\'kG8(7Xkw.:#lY+[q&wxMuses#D,k$^cG6qGnQ$,
U"KYjDZb1OT\MUdgqH3'c0TeRi)U\ZMr-'MX3'dj^g8gATayK=j-qo4h=+P.SNbm$
U"cu/.b&jJp29+SRE'9a=Um-lK;8q>2giF=jGiU:P8wH2mi_4'p.gNrAe&6F6H3MV
U">SxI[B&b3dIQ2i$R[6mx7$f;aXDZ*a%8+LN+7JBOZ(<ilG8Cz9j4ZOh%5D^9ol6
U"cz=S<Fle)EExv(4H^)j5Za_aZ5\R)I0QHd7G7jh5)l7K&sVf52W[y*Y89-A(,wu
U"*;5Fv:7&$u)IfOFgy#]D&KEaDG0Fxa:L83'_0&aX?X>DhL&.$M#zF%aVsIl+(N_
U"-ogOzmiTv;#l,ClnxejYSd5I*vg-ZlmJ]*<of?i<&Q+L5k&OY.dna[UP'Lt9$EV
U"ltJq=87;nD_IEehw5cDI8Rxu65Qp_d^EtH_:$YK31m]H$(aeSFs\vJN_wyLs:Ob
U"T)ZVYtT;e2-rFb'<;vcJ2Ar<Rd]i:6?:M=UU->(O<ijV>;5Z9z\G1t_uo/2M+1Y
U"0iwXT.io%s'-OIQzu&DdslBK;TV-#qZqxQtWaC%kqj/-6]fK89q:(=>BWIP9KcC
U"rH7:BRGxZ$\ca;DpuJDK2>$u=SXOMq(6.7vREA7N/S4^x9^L*/D_+Zz5=Tik7Dm
U"kqn&k+w85$UGFTjnM>WHiW?7#rY<0li%Mnt/43'4kY'4xU.#wH.Fj>[W3D$,i$2
U"7t9e33iGV\s[O<f.<G78WM[W7CMWiXIfi#Ld=wsBWU*E4:NsvCyyp&F[\+.4/NY
U"T),jjh<&sf9k%j%lJ)7%xNwA(t(ZL6w4Sk'AhX9k/sM6JA$AFx2)Ho'>3?+7mh2
U"c:*(f<GG)93wVk&=Q#<&uM^Bcg^s$]zI+4BAdZ>$q*hlfFD%LGxx*aLqPd&=Kco
U"/Pi%m/*(9i'LVqbcjZYY&sn[p.).JF/Ythj\lYg'1gh.Hb$[zt%kMiyc(Qceu>7
U"]DK;twEPv%g(K[yBxE]8+hB)K4TWp$B7UR#4BOoLv9)j_ZjKn;EUYs%\jcC%/Xq
U"f=G]DlD3lXy+Ow\3FA7Xm6QeV.*jCh]IHLU\).%f80sOP5)uqJ:?u;g>CkM_95m
U"e;3R[na?\iU;eR?>1XA&#6+33+2;85-.X79Igirw&'0<DA+lW\Le-I\[11ZU14M
U"\e/&tBem*N-UgQ,Gac1rjd,XF6ID]+^St/&SFKf4N-[X\kF-,xgGL/&CrN5Osf[
U"c>N^'D*0Q]Q^1[zC3VaQAr-M:0V<0z8iO+(D,T_TC>BrN[zZI^ATV2(,-Ez73ld
U"U1.rlyppovS)RNuwFP;Yq?kJrPkqCXcX/h=.eor<4?O9&aw7ONQ1<B]00iMqEa-
U"'S+\<L^JPIXEbCILCa8Rc/d&gmidiKfo.iLWpKh;Y4L;em+sCeh?*6]Prv.=(=?
U"/oRz=bfki)=Jy/imsTV%%Y5m^(%VNihSYMG[AQYy]E87g7*(9yvEly-8hCs(:^q
U"GYP8<s)<gr6Q2r+aMdCyCw-G-__8g[de6I'sH#N%A+zpM9nA0]]j8t/j?>%q%zr
U"/wdhk6dFDwHZ*<aDH%x+PT?e:/#fuleNzl+19t2G,7sWzK<*rIQO?pxp/>1-%FM
U"H$i+C6adnrq'\#zjL(?OKm(lf4PgBB&Sf*Qa?L3?4o?;/?[MbWy-g$KGU0pr50r
U"LtKU8_Cbz&SEfw7v7/0sv3*-Bb/e+7m\Wv3J43fW[o5,PdM,c3+l8#V1h?[+mK9
U"m:k/DI5a=3U*PSK(JTQ'Shhb0e%J&DRO9e+;B#A?<>:7I2D2RHQ/?rD,+o>2I0Z
U"w4Q#kRO;kgnDLh3x_?gUvieDxn]X4gswM2s%rEtE=K7h)$35ZhS.zmX7h^r^h>K
U"H:Ka.$oCGugKYb$7x7[,J5O)8bGNkX>wYRnVPUw'3jY+l=>+bp<3s89(h&HN:hv
U"4_;>o_9I:?1THh(bZ-3+NhGf_Bd0'zejE]X/($4i)Y1_X[Q'bykfsE1XNu>BQKO
U"OP&aL'dTy-Bp'T8u><0tz+#QCp7n$kiYkH,Z)SFfovikOiQ4+SB?jA;Kc=M%;sj
U"HK,;O7bPIp6unhNS4GLkxptz=Si/=5TR+Om1j:n^%J,ZT_\Y#8<NMt8a#o06xL\
U"tdlo,x0bBi'^UDu6GZaz>TIQL*1p(uGCD(4*ay,0w;>(N:#vUc)C_eeEZldlo%N
U"F[Uf^BEqSeh667%FIlUiNk[(bo$,5IlN-'M\5>M[[ORSr6u:XQNX_jtk(Fz'qvb
U"ocfJ'6NEAzb\iK&*/Z;K/?bHKqnL]Z=e:+8m*)2:EcT&xd_?prv*NA;-)G,4^-k
U"v7_\#:-c1&bmlAGmh<MbWhNH#qsDh=Of$hOm>xG1hL0K3#vvXlLGuOtD.toM4_9
U"C)lg,HEZIW[JVlBKup=mqK]0FjAjHJKu\R7*&$z.4/h[8\JXZz8.qepAIca*(fo
U"yqvh%9nfa#TZKef'T5J;z,$m1*lXb)2sGXsHGv4VTQq5iW0$\SmjbAZ\\.Vm(e^
U".l+_V6oKt:Gd9o:ACOpq*XSJr&,]WfhA^V*j\gJ;C?<Z)6(ksng[Jv6(xBr\jiM
U"sn&*A.B$p:sO(7l)XJd^XQWu)mrppyJw_%+LEK?$L)/d8Mg(BLFmS+XK44z1-rG
U"hittao+'&e*dlP)v-Z6\(2FfFD^x43hyoF9FPf%=^gLR1R68:mBRBwPmIhqiFC/
U"O.)F>O&<\R5LRcD03gj3[Ha7VAdS08X8iB,y+%RXil_KH1elATej;?WPp84V/Bg
U"ye67IZrd7J?7p-3JAD4R%z'o6&l>H;A?2AY>0xEi$YJh'Q:^qJ=h?E>IZ4^HFOB
U"jiSb\#_;v;6wA#>u3_gBc%4rmO',B$?$m^.cX4jcIzK2=-Ng/RTvn:1<N+V4*Kd
U"rX+wnm)VLI7]bhP[>.OW-Fah#?/r-)#<3Jqhy4k#AbMY=\0ic9Qt&-q$z;:<$]P
U"ko.zN-A?,N43f5O*Xlg5,6*(p3A.erkOE'Ps+m%>CS$nb8e(,6l59K5%leT?Gk[
U"zt&n0#hCHu=5VL?^S-=BFow=6_Mi$+eUk.=hNK\Zl_&LTFCga<&oT66vkTemRQr
U"jhRbx:(j%[XutVHIbTRYC_HRN7SCn-<H1=;DKbk(X<#CCuB]XbvVb.Tmh*J*eI:
U"R?ImA\).<:6bD[CNVHbXYyO-PfP9Vk'b?r[aQPKciF3T=ciNZ2t4DGICCKQD:[N
U"w<a7xDdKwn[;iW:4Hb^HqFsCg+,3P[k:lF=lUuxK>KKZ^6=MKIFNtS/;(5hE0>V
U"s*\z^2d8#TE9dsj'm:l;?NaxNO]R$A;RyT-J.n:+SDMKs2bXAS^:&z_)ig'JvFl
U"sJmoe2uXkD%W3EHfGuOxYF80y&m>l4ePZ7PqN&\3AlL/bX]+#tfDX\s>;i$e^Pg
U"JKguo'_?bvDX^r>M2+2D,&'_,ZORJ>ne2as/P&FCf>%8vZ&Ir-'k;B=QHB554Z[
U"$DS^m]'jOaNGmeEuo5K.OTb]*qlo./qH3gb2pY77_..p+,mSCl]EaV3aL6NgdnR
U"zmh:\Yq/\xyZu\Ri444Gfo+X4N;RG<p<CM9;v_:-Rgu<#NP/;MI$_%J#[$c:_lN
U"kb7-Yk[YDoQHF;[LBh'N-v-lt=osv8*ulW&_fjkibHH%k1Zjge_X6xbYh#\V\sV
U"fb%bS^Vfxf7YJH,g1Oy(+GspWCJBKxv0M5'a^Z<Z>(JRRX?TSTk,vSsWX=PSzDV
U"CM/G=esF(ZXG?j/+$BgCdkIb?cI.0WI2q8us?0:PqR\Xa\bsY9/E[6Pms[j$g:Q
U"sibZn[.iVBL166[mL<[MBdR$;uHl<_Y+2XGFHHB4=\b,hlq'Bmr.tGKKu2juDn1
U"0nM\(Pjt8l<Ct'dmNVzjV)Jhpjm;ew6RW8uZ_1C7'zHfLFB:+.lgIt\sJF'6VAV
U"lQ/nra.45C9gw'Qj[9rAFAtLkNObA3=+2]iwNsGrv5a?iNh.:0(apobnKo7+bc3
U"<+lKoq+lZ.dt$rr'IZU8w<JynxP*Tch%$Wd\$VLK+JmIsUg9D;=po1MK*_8s.u#
U"34?Y7PAG)yz^?<VVBO#pXWrQ6F7[qa,(jKLS/u0GYyz&>mh$,'>r1X0l+URgZE8
U"&,ilgeCGz4<5ZK(Z3gVW\\AL0iHa\(/j[riKAHj*Tp.fy$gfo-Gh+AkM'_5#%is
U"6RX_g,q&EsAzuFAV.3;(&1YjQsVYO2GhjzP_iA31/%HMZv:*d69k>IGR?Da&iD/
U"xCxI^Y:Q4ovttv>#H/9sT81fTejgeMVGXU^6M)p+lqaTA(F4xbu%J]px:UBoEoI
U"qW\_&9j3bc/ssEV4nu^4fHR$4;'HHw<)\)7Le$If^HM<VBA7.wVQWM^6t>/(9fB
U"60ZWAS_Y$u3v-TemSI<$u7=(f6D<)XG[IA<]#8NP?yR/'IQs/yzxZ6CcgqBF3d<
U"QJ.C[jiBdMcpNoTOHDG$X9(SfOR7\&t4x_VJ-c=D;,*Fnj\<BVr'v?\R_7FU>&N
U"rMm0>A1hp+v4?uVg4n(:EJ:fZnX1>BYKWq0Jy#=tf*hr-gpA$J<)iDoa.PrjKki
U"A+%%5s':A%/r:>X<4)rW(JrSungfj&\WCP6]]:aEPamrk3]%UJxE9#fLUYoBFXT
U"F/rj9J]e_A)$GY6fDwFwBlqiK8=d+j)[1q>VImZjC/]emnSySF#W7&\4OCByst2
U"&MQX>K?dTE>ZZeC-<vD)yyVmYg^1AeMh^7,[rmkjFW)*f3j$XC]5jE3Z#n;wr?2
U"YV-PG\;uQ8gj2_$0kI[bVn5N:DAEysJiFverQ;6q]+SB#f3bfkqVT$hY.XvKc#Y
U"AKj<wMlrdTohX0iQh5DqS_H?#kZ]u/c3D>cDtUrj<mHhd]a=GYlo'1$+LZf6$aP
U"6c[+fZ\oil+.2)G?nzrG&_0W,n\l;o?r(0+H<fc;:MhUW:>+ro:vbt]_,%]K8sd
U"-OxwaEQ3?W%nIk[CkyPsO:-)5?r.i]wEVr^]9jt2^tP%qDoq6K:.5^WpcdmT&eF
U"k)rhq15b+sN#Z18-WqVLtS-*e<,J2z?,sQ1?f_ja64]EN)[Zk2Op=g_Y*^p<$di
U"KV,dA[h?\&4cPd<F3j+a8#AtpkWg%Ym$+07YED?MnNg8l7^3W47c1g,:4O8^k\*
U",TC=j'>U#/e-Eiv323pO6:4>t,UF&g)F\Pt:fWhTQN<*n+D=bwQHU4N\:R4bitu
U"8xuXQW#MJi&Fl:s=vkctqmtKQoX*Itm(w4sdu?wpcvhraUTnf2NJy(ohonY=Ci:
U"ZcmZXY$D*>t:/G_[r?m6FHcA&?F-]t69e/YGor?ql4&?-49W-W)0g%>+8>>)_0n
U"MG1GGT>*F'(,>C)n%nI)XR[iFP4ia[i3iC-G9kKv$[,+,',29i/i_9iviV<iLi(
U"P?Zh[:.?uqYyhhN[DD4,_N44*9t>tA6te6dfDch/o>,RVWmD$*j[O=_s_pqOhlT
U"n,ToT9EtM-dwWDv.Nr,Ero;Ppf(-<T,kT/4mUrQKaebMT;/jsEBTsFGW?l/qf)_
U"Bi($Y%G1KM3/73M/G3/233/dlNDz:c\Y.ifmB[FJQ<P6>n>QS0iA?>#='FGC$GL
U"':]j*H9Y[iO8?\qNBq4UNg32ZYuH9d9a#9L9885C&%*5%*%c)c'Bg(4Rq._Y$FV
U"oq?a9U)WF'w6KU.k*b9*#9a&')T+L\QfOMfQfPDfR/GaT1#U[4C%xj+/mH-Q,%,
U"]H,'u^.G21+,U4C%%d&dF(TS/A;=qQg7wOTo9$:4o:<92[<gC)+-W3cF2g(^SRL
U"9Niw_)[N48ZKbZvO(K/[MLldGNwrhbxViOqf)Sjm/.DO,t63e)?B0qb?A'U0c)%
U"c'c/%c+C&V^Q$-$='CeF,84];P*9BTYbYL<Yn9X_mPUYb)i?iaEq^qXJ1a1'?S+
U"h'Y+Ef#BA,FMR>Pn2R.Q0pS0eb/o1--J=+FQc49<:^dOl:k2YJYb#i)qd6M-C3Q
U"do'D+?#GF:1#KC#K,k9xq?S+)H&,AO%z?aP1BU(,M%sJN;2JZ:nY59i3iSiiH?s
U"',>#%%*u)T7%:ioui#Y&TYfi,e?;6e(A?C](D+-S.'<RpZ:(ba_cf4W+/W3CO(2
U",[[^E&((&N&c+37'CI)tO$rV[2Yasiri.U=G3Y2\Yt<Y4Y]9qUqpuihY4D/;42)
U"&P.EZ:&YE9i3i5PGS4[Jl3A/7.)YrTY3i#?iPYxTYLY6?YKD>04;+,G+i&?CTG-
U"KC:K,;1D1;4B1AqQ7d%()0h+.(%d&d(A63X%.%j?H010K#AK,1]aU/<]AO(/oa-
U"')t69N/d01;+,B',8/#/A%V'9W]+9W(W,9w/u09q6qVC]>T2g\O8iid9NC3d5?T
U"9q$i2Kir_NLS2&OaJi>i[E]$#'Qfu+^/K?ua=u9e0EXE&8GCqh9ilYxTY0YZiYJ
U"/9)0;51qP*:f0Y]GZtG&L*%Td-//&U%)fh*^L)LPV&'W1c&Bg,4ONlZ[,a-'nf9
U"J^I'>>a,r%d2c\:+H?ws$n]Pt^R\eU6J*>l+(Mn2M+3XW).^D?kr8bYI8$fj$p=
U"fHvtJL=N-XZu/euZdT[_s9l>ToPU;([sB9VrXK=ova2/xS?;QP$Q8rvi?DwH%=<
U"0hSA0j[G(3*1Y\n4g/Qv^;pd:ycHZGYe_WmfRH,Gb*wqjDW5m/iAQ_=E?TE3d7T
U"Y;b^LY/Ym&r6NYmcT9>eC'52jsXH)VMaM_nD-6td;55C0qKIuahK85+N=MJ<-ks
U"Du%p&'9%%9%%#%-%r&?:FQ7Wv'o%*%%K%5%%0%%%%%%%%%&%%E%%%%%%%.%j'f%
U"ruqj%Sgfx%up&'%9%9%%%%-%(ha8F(P-G?%<K%%+kk%%%,%%%%%%%%%%%E%.%%B
U"*%%%uf%qSvq%gup&%'9%9%%%%-.%ha8:F5rr%jFK%.%63%%%,%%%%%%%%%%%E[%
U"%%(%P%%u%fqSq%ngup%&'9%%9%%%#-%Fed8F[<:nfj*%%%q5%%%+%%%%%%%%%&%
U"%E%%%'nv%%%ufqS%gnup%&'9%%9%%%#-%ead8Fpd2pjc9#%%o%%%%,%%%%%%%%%
U"&%%E%%%(/'%%%ufqS%gfxu%p&'9%%9%%[%-%V&::F6.lv5D%5%%#%c%%,%%%%%%
U"%%%&%%E%%4%<;%%%ufq.Sy'y%up&'%9%9%%%%-%)6?:FD]LQw',:%%%%g%%%,%%
U"%%%%%%%&%E%#%%,L%%%uf%qSit%hup*%+%%%%%,%,(%E&%4%Xa%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=70AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
