'===========================================================================
' Subject: EXCEL CLASS                        Date: 10-04-00 (17:04)       
'  Author: Paul Squires                       Code: VB5                    
'  Origin: rambo2000@canada.com             Packet: VBWIN.ABC
'===========================================================================
' The attached code writes an Excel BIFF 2.1 xls spreadsheet directly without any
' DLL's (e.g. JET or ADO) or Excel automation. Quite useful for exporting data
' from your program to an Excel compatible file with little overhead.
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"EXCELCL.ZIP",4^6:Z&=48563:?STRING$(50,177);
U"%upUU%up()%9%'%#-%]j0HKx?E?3;Ld%%[$%&%.%I%%4G224;ShCGCf66t&#^na
U"Mu64wY?ihk:Qp;9=Dj=OJ(X5;O<Fe%5EupGGG#NnJw0*u8z8aVL$cxt<(rE[%CO
U"71jmth6$d',$;zP(rW[2[[FiY$rhquTgp'MJ6RwWl24B1ClCTP*vnq6,gHL=_dn
U"TM)Ri<^#<brt.F-7JW<nr6Wdbj,iEy4O<b7$6^R3>?.,>a>*=DYPBhjVV*6B?tz
U"roi$)%#=E<874C87^*OK,4-(P^;jQVRA$_\&Hb*$LWpF;j9e_#E;n8bv/=pl6R[
U"pc-;D5Mo_l*j;1bps&p,4ascS-hK>ZYUPf3g_\GMIRACcEE0uHWGLZnZKdY#tmQ
U"0&3^A$3e&pIK2*[b*OsULBteG?b9e[s=(t&nCSlR+J5m[(_Dt>_.OlBc5r3i?ub
U"/7mkCA%:D679&+Ru\,Goj=n_l)C4/E9eL8Tb6vUnD3+HI.Qb%nbT\R+Wq3+WEbY
U"6gL#mY[7X)kUym\A\%X'1^\7dBPb>f3CA,R>k.\RddvajZ>y\aOt-]i?aRCRRJC
U"jOvZ:gh#U7lx)kt)?QiqAjlCY.GOMHsiV7(*uELM>kC#.k-<:fVFMWFr^,m7riR
U"DSmjOd04Fb<a]$+q.^,J0cC#TAY<ncH#1ag9#]Fdg\qw>]6x4Ie*A\+HtrY(9[9
U"#nLc)sB8i[EY5mBIrM^\ihKUhk26dmE+&lTX=V4h_b1lm+[)l54-H<TQm0_lGwE
U"/qskpd1DN[152peDq'6bqFwhPb(BK_-+Jud8r%DO:%7egISniL601ciX4zbDg%o
U"L4s,GA0:s[cRtDf[4LMC)R]Jt_=Lx.ouY5]qN#fG$f[c<:cWVShJq*nQ^+Kb1(p
U"/u):J;jHDO#WP=,)<p7aqqVWn>7W5?(/:7Vg.3<X6,i,-K<'i]0Q)YniRXSo$aB
U"(1J.5eORP\eHQn30_-aaivZ(\=M/t9s&-#RYRrU;^<E6HjWq=Z&\_tl%)m+R,;c
U"?'3-U9'.Srf%-sT$*%9*0&15OK>8vXP+.cq6a.[QoC(J.7ePBrU$[l;#XaLJUG*
U"L$qzpuxh3t>YwYep%W^/Oq?9(%(c([]5U\AG>Xl6?g3)AhtC<UI\TUWTS3T82bC
U";Eu(6%/j2>+/[Qt^6U:%q4X9NA-NFf+;u<O8:oBcF5$gGl0rBN]Xs_B;bk\F?KH
U"-Z3nDv3-.0OrC0&e?h4+4^D;rGs5=d_JUS#u_pcdWij4)xH*bV^n=&zH*G%GlH?
U"$%eFj\;&C9Dq49(=5oHpo[4Vk2hY?LBbWtum8Dg1JA(Dp,W>(1uP-E+[/&wR&o=
U"[=q?ns%[6wt6#8rl.5EE$[qT_6B.IteY'C^4C?2dXW(EY<vmq.7XkUxN9kX:Nc6
U"]YzBQnCPVC[-;Wu&oYx4*ASS'cZ[<Cy1w%/I#Jl9oCp#152e6R+(Z'cW:Z)<,L1
U"2BX4DP)(o<)0vz-,5/'5p[(or_g-&GCJbYh]ABiS;/CDNr<h&pCc/dN9PU;?JRa
U"=fW\?apUn=hTYc-;cFb%ph1gr7Z?TBM6^?V,N1[-cF#OH7VM'YCDJe2]N<u#aNo
U"NP&DFMF]O80)rr$7]hKBFrY_R%HGUP:vK2?L;np2T1:tlTdsx2W$cHCHg7h1d1R
U"&,0qpks;X2<pURmHv\xAN1s1Z,gc=FisML4I\:52EKKvJ(30)-7a.8==Rqa85=h
U"Xw-^&I)S-m.>e$DaFG,TIv)k_Q_*1pMvI<.(%lkF%3wmO6m_v^e5Cf_I4CM)=k&
U"'jRbq?IPBuY7,)hK91e$V*92)lC#8QASX.9GURf4e2F^Cxu7^dJE;C\aZgMsAP/
U"v/-c1-R1)+aVGIKUSFs+RZOT^<1l?5graeX<Uw0;jiI9,W.B76xVi^)eVY_Jgn-
U"2,fHiuT#Uce3<*Zo4Bt'C./-BBlz0FSA.,8eOcG6N$B3+_HoJng*_VbT%k)JWBL
U"/G]=*(p\bS7Z:8B9Nm]*ih.a(%<W78)_n_8795UG-Ter$3)-7)Yep\sIaY+A\LM
U"lj[b4n5iSF2d;*C^rsJ_QJ&aCfbE]5/=&G%G,XPYuX3kj=a_g9F6F-Et/1RjSgg
U"b2JcdF+z90Os>LZ;anJ.OJ*:tChB4ZHir,aYf+59-CSk+>i\=32Cum1Cuk'.tq,
U":H/1^8=$Ss,]O-<Ytyli>\=V3w.*2^)J1+0a(EqLhB;Kr$B=Ya(9y-;d3u)'O(F
U"CZWL?)mo<0C:)4p+N:'M]0d0R%#IQg:h$QVA6/xu)-0kW>p_/5Xxc;o&s6/0:-W
U"p.sU'pJ%P'-8r=&5&L^lFn#DIyqnm&[_W=3,OMoPAY'c8t04W<e\)_:=.I>WhCg
U"4nk0:SN9DcVDf$2Lv^d(T>SslqPHd_sBsF>I6lshnmp'ZY_54f'kF4j#K]IfGkr
U"NAQ[bjHvR-D7iBN)nH+fWN^oJHuL:X&>M8n89w=-soG$o#+3I_R\Z<EsH:A?TTd
U"Y0jCOcs'gkn.9g2+7Ojy'-?\[Fu&FM4tfAC_uisLwMB_KCj<:fD=CpJ.]cS0uFt
U"g()km6e/=f-H0Np-F)fI*.<54fiSI4_(B1KgJAiiTXZkaAYhW+h$0ba\.*9[J>5
U"rSsH;X1:.KLhSR(]IYeuOok_^p]Z8f(OZShU0rm-fZbzt=Ab8=TZ*fx(19fC9/C
U"<<S.#;ufaK.M9//3Tq+&MyPrJgMb^?h=?'2ipG)q6A$Q<JEuCGho6++r0.D>/b#
U"U\tI;Pq$ILI-IYc(/8P4GeWB7Bkha0M$/R>=BkLn&E_$%XdYe$TE9ZIm?jb,qP<
U"]>nl)/9<GG:v0QZK7&L?,+0Nh?Fs'lNAb*TY39KK/qa)Phk0GrAvYF'14P3Nz82
U"[CTCp]kS*2(:HqhIy/j3?>=BY37\UE\UY9UWqxUT#/w<#EwH2gpO/-v>D422J1%
U"[AdkEGP19q-uKOMs\*;_WB;mD)hZuH+]j*A;bBGYphS*=:h%G''Q:*?<8[9UCg4
U"7Zc7GFMm^c]'^?*2'DMS3LgO?jL3=r36%[c9$1%K7gS4?>r<;Vqqpy;DLfM.5f7
U"C'$^np2nPK>X/-p5LXKgZ_lsM4.0'dS%I68C+mFN_FZ3(1(\yAl6KP,Hi:<pkJR
U"9RUSztbB:>_2oD/AeUjLq^ZSeDZ$i]ZWp?XKR+#B&?MpZ3^N'K<iC;OB#rg)]9j
U"C].G:V_6J26/;J1+>kj7h^H:EYs0_Ze;.R;SAARqlv8S$_K28m,4G3681D_ibM+
U"^)\^IAY<^^Llp%Ncnst^t3K9vF2Uf;3QQj4fvnlDVg3oJnAAdBL.Hf_[jUTD8sl
U"<wa7SVd[073QrwU9_)sTM-D%8&fxVQr8;,qCk3_=5pp&<a\Ic02G7\p&e=K$^y4
U"ZX6NrTJ:/JW7r49,\Nh,ne7c,^#v8$Qn^<0)9),O4l9j)9CjQ'Fh?P-(gqLU9Cq
U"NKXEP<f-J#^IJA538omf+&ge#lA9coJBd./;s[/3Aq0./4l7C2TZ+7iXQ8brcv5
U"(E\At_^Pq[N$?QWIrxVXKR[Js?[B+eT.mV.es'%uhE7X[R&UNT_UsO,uE80o6n<
U"z(><b%jpcu/0]b<vp0s#dV_m>%,hQ.e19'rDDR<6,0)_a]i%iSG(bUHIG[':p;C
U"/_q_3sW4=[sgMSCWiParwh<%96R3wXhlGTdK5D0DJo6ZO&;S&5SnVj&YOL=9;(j
U"(.'CE?(.#Swa+H.2+SQfIbI1auGm&^eZ5NbtdMjOu#2fiMaYP3AYyBvkAC:YCV#
U"306^jCt7];jqI#(^9h9+NmOFUE82icZ-&E0yZ->P=N_5>0J\&f(l%J0K;DM3Ljr
U"&N$Tj0xk,iCuu]TTJOGJM8i]wN\iZlgE?BK#(.uI^QBifDGYl-kikDBXe1al&EA
U"1knyBi0js?7g'795K-&NW('j1kG.e9Vy=)kV[fJQgfpOmc$gru4I+6S\klsN%Z8
U",Bb/V87k9^5:Eqm53Fge*eKNuh-4PQVWtR(V9mxE[QR?$p-11_6?I'&/%6/6U6>
U"+(RR6tFvqbRcXF<f)$83lBiV>&gE;86Rc]60f7*]vNGh^xb%&z9-Lv<(e4dh-Ai
U"1lNB)W-pe,=Dt?F/5/;Rz)Q:D'^vK<5RMmdT,2kQO8$kKIA)+WO%jpS'I..u$GN
U"MwP/F/iqfVNk75'R>1Z0&6u&4,>[cY='6>Xf_pwHIT1u8<v*io8UZ+cP,AVKE6E
U"$lI3mo(:qFTaCp6p6-Ef3_?vO9$9O31Ir/)I7/HVS1BWC]'m>FVtNIX%>(LbOsc
U",1gWC22G.o?QM4=2v?(rVK46$$O\??gk#A[=(02NVfrY[Y=hG4nve[AaoDne/X.
U"st&lk:ImoaVaY(_Q)IHcC$dt7tnm_V%G5T=^u^LjlVOIK93x?Bzk_QVj6al9Sle
U"5Tgc:DfpAS+E$0Ufg^4qH:ib5[hQD7SQ&a26=GsXFv/ns7q/,LiFwk%*omnbRD,
U"4JWn&RLXEdg:d(UZIw59GRutMIc6RT5'G&er.aJ$t0oN-OX3Z#m?t,Ta-W5,'I*
U"s4Ghn4lNO8vNE&h+sddMpW[JV_pfqy5hr>GMBU:]MN_76x.Jj4X2-_Fi%?^uf61
U"#jhEBfGZFos^r(gE\N<MM%Q7l='7ZYl>(8jK2hr?SBsWkhRfpZvgbHcp+xS,dTj
U"_qma6>WXbVf<VbpUg1BDZsb*Liq0,6+8.'r7C5m0FU,s.oZwIdF6x6F^D7ll&l&
U"plaksX8veoE]Tp\^ZwaD;^thk*/h-5QZ$%?Sc#>l3i*Y?iNge10(U%SCGv9s]RA
U",ts/%3'.iz>T#Jybk$uS[rlNfUx0VqpMo2+k]9M8kCu[Ehj7hr2[u,uaMeU#d($
U"aUN[0/y9oM#;,fMUOa(KV=89OJUDhoQmE=r$iAt5]+>S^(mrP0MX5H/'W0:q6H]
U"aGLfs/3?;rwNemj,VEN6gDp2sG9:X%C&km.H09dh#Uw9VPDDJR'(C:\NS7IaNmc
U"\)xN8;QA3mXm-WRM_ImrR9Csl:hF$6Zr<8$%2DB=M>Mpv,,t)VSC5KPuE0Fs6l,
U"t1]fYcLesd58D,/'Qv8f+&9h4y5gElRWBn3SQk$Y+VOnw-N-k7d:G/tuSlR,9a0
U"dZpf=o9Y8XER5kU#I?^pash$GVakaFCahIr_4pP_qP5eIZ9CRg#aSQuC_*Lih_I
U")8>5rfnPu-:J:T56COdkpD(%4\+u3ai9fWSUbEKg1?j3*EGUlr;7>C#Z+\mPE.[
U"jB^-bID,x0GwMXd+\w)&QN]MaDZ>37IT%'fL\U*3_kIK'fzh$dn(*2HEYJ838\#
U"4uT_SLE<fKgIA%%<u\04aP)^u4ue4*1OlDxD$<jnKE2CSLEOXFh&$+wA?%Fp*/B
U"<h$[Dp/q3kUdu?/?_75R.5TCb[T;sN+$[*aKyxgMEQVSa.RpJ*:uTP\gW?k7pL,
U"f.r%Y3,w/)KWOgIU>pW;ofvlfhvjr&tMtdoS0Y2U$^Ks+]Nwp'R1GmOG*%knO0o
U"97pP-&I$<-Y2$:'%]'5'b9Lc,hudisiM9<3cBo[NTS]CxmbVlGQqnXB=:\;_3/a
U"B;0;I(a53OI2tz;Q,PrZDP)<KjM0r49L_BbtCG6LdrWDY>0=3qNJ,s4)gcSq)e;
U"0eSC^54S\p%-K'e^^,XOlUpi&A)L[?*d#?p&tgJQc6.O5G1Sl19,0$N\5>]]n9_
U"NCD+Q<E[2/^eFESMVU#Mm:H:]7+DpGXk/SQ8oeYpfMp1*$utKLW2ykcp1[q^17&
U"du8Y%+82.>?op:=+6.$*%2K<ze>uUd4IDe&T1[x0HZcTr11&NfTX-P0i/+5pO;-
U"exnK'-$Gl,fCuJc8h:O,bY/hQ4s?pj[[eDLGp]i*ZJF)VhQ6g=[y=&39YAL[rD=
U"F%cBapS4ed>C)6%zS$$Q'(.ua$/g>fULe*#-^0vH08*k^;C6(I*y7)j*,TcE]>(
U"y4fhy7puJT8g*o_AB%*xHIoc_+%,3i)CDEBIe#5lm:+RWjgZci8L*cS3B%*y?n1
U"c%5V=/F3$m#5t1k?$[']n(tW4Fwx8J_quBKbasq2oLoj=7kOLFjm$mlnLq(XHWY
U"rt^A&p%>GJS0.Ta9$w1NPHeM4n-uH7lCPo)_3EL*X'4%k2lW[\,ZK1Mt,qiJdRl
U"C&:].R7;gaR6ggE3nFJAzC74onu)mO72SWpvMP6xO4kRJ,5\WlpKL#CMStji+Y6
U"Z:MBMs&P%N9bp:K70^?t];o'SN^P^u(jMq/%$tw/?CYNf0XyQc+9OvPr\UA;ZbY
U"It$qecWN+A>.bAgA;l3),Yu&tm%HksD)P:,kos9\X<Y:*W2nmE[oRLL.8-I5BdU
U"WY.j[KvM)#lgMd1Lm(9_9d*kg:M).MK?tRK[lcZebgB\$jz-BO;u.Gg^auTaQsc
U"cO_*)fImH[a^V;]#r<E0Mr8[^uk4dOtH$3ju\rnhEWRqft>28(a;RI.rgTh's&n
U"\b2N.bQ0k$]-OS6+5PrH,_:sMPbN2w(l;\jQ('R&IsB#h0aAy<nAF9R>_)*l\Q)
U"Vt9,u,#asLhvr]uJsL\X3Hg>9DMT&[jZx[bfv+d:s_0eP:a]ZtmB?,Tq#G[QJSW
U"S1T%A/&AT4r1\ca-H*b(MA<nP.,L%SODlL/T[5229XLI8KaCtChBbbCxt'u<>hu
U"SQa.U6>0<^a$g7dunlCcHF;Ao-MYV#c\vC3=fd8(%+0G;+;/*PbiZ22:nQM$1HC
U"b&KRr6jGPn6Y#WDYD4#Pj=k*L8BHs)%A,/e+IxmAb.Vl.rU9=?3elJD)N%f+W5s
U"eM+3--Z>:][sYJ:sW&+GUMXsk-Fjr:8Mnf;OMmmN;<?W5G\lNWVCDz)Tt(5^jmU
U"+sPMM5cQrEeE+v;EK=c3dA_JS-j>.)G9WTiu1CP*2nTD7H.=sKa4q+;AE**]&vs
U"2m&C9a9GZ2s\u8#hSQ6d*DQ#pkB0fiDhN)S%$b(M8)8YFJpr;b[=VWnYP(;/kpT
U"(v&i/Yr$uXvgp-&X\#hEUPw?jt95#4i#KE5uX7Kjy>HM=lXBjgQX4l'5*Cg7Ie2
U"gwv3D<vH4$\X;uls[;%;QCpOYh[uC^JescV>kaHr_p?pYC9B3f&uuj/R<<6jn*X
U"ds;q>?m*jlnOA]l50Tt76\6DrkaQ_Ngz/2+03(D$0Z(-II=p.LT$S3UE5kQ%vR-
U"<e9=U1Y49]u,d5bhLH7oO?iM9KSLb5UN7)&1s=E,VlBTQIF<iUQf%S&^ppkIRH$
U"4)UqH.0sx%xEk,[nK?HpdUUQLTf7cIfKYS'^5.5:D(:'#j\OZam1gk]m#Te'L:I
U")+s(IN[kaCF+>%)n[,5ySZ*-0P&L9GPg.*6UZPjUT%Q,VT1_JIE(b';2U18I/p%
U";xDb7F.9a.12,:dQA;Pll766d,h8*KSHsmyojD(cBJbx)E8&;QImmaoF^t322h5
U"eeho5$;EH6CpGC--uln'Dllw_IipD:9<^-++G,97+YNN'ue6a&$9ce*I+5XmAP]
U"Ooxm:^Nh;</5+N3;tVfTR=d;NAb?SuAG9V4CFb*m7nGbs9tvOmrYId$x%L]84nF
U"N),Se]uwT)YOOGsaR(L3;mZ8t8aRprKS4*\<uX&\2$nY9DprZ)%&gT:d>RV?%oO
U"wx%>6Al12=bt0IO1$e1u[o^/0&(fBkD)g]J'#'56,]*V6\A)FS5Z*-0x:f]ukSV
U"2Y)-5Dx]Dd(35j?-Z,wKK#f_^^EIvpjgqwLY&m[d*1kytN8puX_v])n$IW&2r1-
U"LgnTQ[8>Q$H>R:dv3pSxnIt\V=cqQMpj)r7=7NB6#nG#E_q&c)U#4yZX.kBb_<H
U">%/2lg[mBaE1q%2M^=aGbpH6m,Cjxho+M_TL96TOM6-1QLdpaB]_n3Sl=O;eXDo
U"Etzrk/tTV6+uw%:MbN(q-&dXGv[9nF0RB*.)hd93;3wCu\;m96%C1dmZGRikg7A
U"MHq0?Tca5fGP-aSHJtjRUB)hEqBD'rN^OdkW06Bs/<%#34.ATjKjS;Ys\aSgo:W
U":&d+Xne5x?_E'>'WS;a6V&JCQAw<yl-H'=6?T)R(Pe>-;]cenil,E=ROvMvQ8\7
U"ZQ<m1awni8>OK]x'w^Ld=J.tAuBN>2GfOaA1AhXt]>U1>,B7mTI(MKOxU&gJr]N
U"jl*xhD?zN*uJ?=ks>ejs#i'$el<B8*0-rrPp.m&QL78#7Zr<Rp3W\q1FHccAOv>
U"5ijQ/1;']A.Q[Fb;Fe-)yP86wa.ZR.p_idyi-'ev*%b:]1/I3\7$LwiP:QH^F0-
U"3,4mkB:uLsP.LTw9FN##pnUX,%gYZ.BouSTs6w$n3_W0%]3?+lm6PM2ZbAUAV\:
U"T3a:-t%[fB6*Z--<%kat_;0-n1+>&?$Ke>>_ZRjVc1fIwl9'TB'+M.13^-pTdCq
U"U2o=RWD'2=CBK$riLSj\aECI3aOYUw7(L<U*g>y\F/[RzW*my]CP4^Rqm2,Ry_9
U"=W_fT^_,fGw2-.NrXI.\h9<c_aD8Y:X*QfqKsUPiMy'1=E#.g3ob1/*=Y9MpI%5
U"RoSjp,W<61n,($V1OXcKlPJg+1n#VGC[*DWGbCt:qPPRw?,KuM(if0E.]AkO'?P
U"^nZR^gfNmK.):V]y'\O\SidZSV)zUAue%/VV;f;kADSoi+dQ\<(._A*;.+SrX^H
U"'F>w,ZvG^x$\/T3\fD$v/:[jvjd]JJ$tSH/,J$\<\fj-\[uC**-hf_.0E:ZIVyu
U"Y=pE<m\RQ.d;sXM(6>*AGpTP-jE+Q#(xoA.I%R'mHPB-\S-IuBYUZc1cKjmOt9_
U"c(Zw1wV5,74rt>PV?1BANZxp5gWsadlnk3_:6<;U2:o)j;S+3tf^%a3w<52N4:x
U"G)BjEflRDTBT1vcdu,f2Jp225f3,Gma]t0>5Saqu:HR47Nq60wDB1$Hfk#iQ=#b
U"u[[&[$6H41GL_i8ZVB17GQN$(_k[3Dfh+0W,d8<k'3IC529SC$\]1t,k'Epe[El
U"kGj'0MP$gKO$pP*O$f-CmSVkwf3E^)9x[^;X[U$Z8XI^Q.aOEF;_F$EX/]V(fln
U",JhGjB$D_lsGu]K9[mQ7GrVRn>ru9QZ(4'<&)hJcOhTjlp?;N/e_Q['X21D5z>;
U":u+njF;r4qCH'Bn\zk%kB3ir)K$f<^74otP)ep_2+9g.5&Ao<8fAuNJx0$3U\P]
U"1cacg[C_5_#l,F^][gL02\(2bO/UMdqp.]Rk#&2gk4TlSx_NmCMgV[$5O<i2AM/
U"/kIgL(*rGF,SB\N<BM?F]XjPJexT$0p.0[Nj,JR>upUPdDF-NIDzO_ZQr-5MGKO
U"T,vqSTlW[&d6Pnt,LVd9tZT>f#5PscB;7PO+vf.;d%N:JS[$4fG>M)PL_NHa\zN
U"CGFJ1jLiw:F]MYh*,%QwO>8ElB;;_*+,UIr4($s.P1]ZsC.)Jg,>DrMN3f2G/O-
U"&dbCORucX=TH%=qHt,3kiV_t2Q?c]>NdhK_*x%TFe1__Z$?..#jz:0*mC]zRys*
U"ZM:Io*I6XHh6a<wRU>pJ8JHPmaDBlpuXjBc7FRU\LfUawh+Cg*<1S+oVjjkx?%M
U"dyY.<k8=THIe-0g_e6e/P=Zu$6j:^hX0vf#N>+NBP)k7nHcRk7[=GJa7ja,,XJc
U"t5\WtgEwXp$0T'JaBU/,6oRrn>HE<xp7)g;U.;g3I*XAH+Tl_#U=[#Tanuj],c7
U"=K)WNg[h/iKw30igP&L),_NvQk+7,eESL#T$F96AjkC5Lzwj\lYR2:tuR_z688k
U"B&s&RK'+&dS0kihL;*.%nAIAj9ZzKS^FdxOxsqr]4paAQjV5icIM5dN<f2'CIr4
U"[W\t/LDapUy+0+,B7ktl7*gRE<,Re-j/#k=kR7uC87*x<McfaQ]8%R:jV,i)w&X
U"FZrCRuxN7yf?Bg5.goEMO:QDCBdYZ?<wa*o[WFRr^P]^seL?G[;-5$#(X#txQ*#
U"d\3tJZ=ruz2xtBy,9>>k[1t8<#d+A&cVwOWp,l=;5xr[lK,03Sf'#54$K>3))dl
U"Y;6lZ2Nbz5sZtWE6Qo9r36n2hdBn<;R-awe=L=h-05_hO30XBr[XTl#EBt;h)fr
U"(VTTfTI)$caUIwL<x'(iEPu1/Mya&fqu']hD*,XC(q.53h4I%#7AHQj3fBY/a1S
U"KS.%C:8-ktGH<_agQ)Mc\(q4X)Ijr&,6U-:je]gADH'^OyVu1&,tY69lG<pKpBt
U"B5Z,[#]jNWxxlGGny(4Y>z(GtD:T?:(_Ku$7)P9iwC3Q9VG)aVF7,]ZE;Y$BMV,
U"tP40t$fk+sod<PGIwb>OV4S7XT#UeSW9X84(o7,IG=[n%-;\IP<P'BlIUH7'=.s
U"WBdipy^.W<FL\fbJo2#^dDnU$[M=O%]F12ickXU]-wkbp%\1Vvdq=hR)#e1?U0p
U"ju:WU6CKmo3JmV2o7[O%\ymrZ&meMn=t;L)AItOgxoA$Xt\R6XCR_4't2]/0#o'
U"Taz7o%tK_'6i$+FW4OmTl.D8b^-D%x)GRK9JqXm6BnTB/tFvY1t]Yhf2B=Z?[i\
U"PXXW*%GN[UE(pd&aaZ01o0l=)4IsrEq;cgpjpc,,>;CFqh0RTaE&7j#YG)u884X
U"JWSb*[cX[\o7MX^at19k8CQ>.<q:d%S0PZ?[N3dPQhDqP%\g=0./VD7;R3nSEx_
U"]po<;<l'(i3D6aXO?$:#?HoEmBjp,-E[GZhZdqB(4NtTQq6tNA6&<o+)spXk?vu
U"2*o&EARqg+W#jM/((W%grua_q4a),l8x*eSvy^(<4r<QAjKVh<La>gtXYtx)_J$
U"a5PrE;s0UUKuMrAk]gs_mtW)9>%m;dN&6wRbf_9ykt0qSoQ:uKQL5-OXl4]FC(R
U"_L]QaXCWs>V?hrG)$PXB;-]]dfo,)xK]wo:)wxenS>G*HNL4ZIH$nas4D8'X[tu
U"Qwxv^Q&lj]GH+(JojtvG>hvtRtEK3aEu>x6i_OI6RU2oEZihh*'8&gp)<x5g04/
U"h[c\bdur>2USf2qiqio#(-%Ke^D=oSmKUN&i&sVth/HD2HdgbBj;0Utl_iD572X
U"S/0D8Nz+sp7M;69e+?hZRQhP0MF?l=RK(QKRb>cGlfO.<+at<</=sSD1PkpE<)e
U"p^O)SdhBakVs1J01ZS1'EA^,yvt^_6\24QS4+='yc^w-F33=*L_RZkXX7P%'O%s
U"<OWNS;++j=:\;4CMHKMPC#]?&h+,L1EwJC+9ziB)$Nc-_L>/albgMID[OS6GfzT
U"L>YMgukOs6/_'V,&mj9a1n*\z5q#cUP;2'HcL&lL$mB7n2*fv#SjGP+Koc<;YY5
U"t_.)'TODO,&90\o^jaNqEiSphc2l0OX$9>vQS8>,kfRbU?p5Gc]W1<rc'D)u?Z2
U"^K7ICjlc0%gK_7EOMvlm]Qf=<-_G7j*0*#;iSd<'CN8d$8YNOXyWl_1D0X3AHLa
U"_dihK[gu03DFz+/VaPMx>1NkV-XXmr9fB6aAa1:o]Qk<GNchs8$>?K)TRDW/LXM
U",2*_RDzr_IEK>KtMifQCS#Lc^T>c1N\Q/\8h[\ZQ)Rg-lb2j\^pp?oQCd1uP+p,
U"o$TaH;pKBcYD\aaT>z0]?2%,J'+&q3nPdZsOR_u]-U8zCk>')U(ii3Z_*p/>qhN
U"PpVSFXs7()/LcBN>mD51K)nT[lh7-Y]4^*7$8^+7.p9<6CCYVr[/CXKwPnf1Sj#
U"1TOp=hse=fE:$\ch1,P(aRKVaN:bQ8N.1NfroYF2)^6I.f:zdc_=-rpWX#n#mAI
U"<0L=GxaE7m?%yN]#$^CbaSFTXfJ9<d,QM>?SPCvD=:-4V2A30XTE6^Rh+RsCxrB
U"r$3+D8Q(.s*'ButF_fsG\6t&QODsFO]<LlL/DdG2?.aQ5S=TqEVd+mS:S7M,bDx
U"oI9f36X;xXWEmDvtBd$jZH%tG+SxQOV_>]n26$V'DiL[7_/z_k-]07sF8Dl]7AX
U"&&,%%Y(Sz1JXe5RsAi72AFW_3#l\pvz)SrS4.l04*p9+uR86cFkpiTTYBKrqi0Z
U"ViF9CcV[cd>5-F%7xvtA<:ubm+UL?jY70$t7_/reSmp^s..rHn$K%2WAkrQ$%2b
U"ohQ0J[>Vf5-0Rh&(H&G/=>1O\g<hD0Al[Dgh30U6K?G4HE\fCrr8jwDgE9nof5F
U"iA3l-XI[''V7wL?)-j%IgBBA8Jf]q\+Fb/wN^E6GP4'=pJYqW>J]iaXo(/J(Gi9
U"&6G8zq29*C*72BQSTA#y_Syd)&#<OlIyk&t8Gz;Cm3'>[)2rzS:ZB?.I-Q32;dI
U"4[LrY+C^-weiUZx;uU+)B[MY3q7SQ*ZD2##6i3j=Ge:(^:Eo^kjC>JlT,?Xx;aK
U"*Rn.&#Fwi3hYv=0AteL4O:hO2o<3$%NgTo<g_We/cgkaHWIj*QPLn^NI0i]BZ_Y
U")b03t%6jgE(XI1&C1[.hqf^O+#uc'pw#KA-\]x13=*-J3,G1ScR[(Vr8/d($)?h
U"H]e?1nl^e_.J1[6+#hjY\$<ongeOL*56)_)n_VMg'eVWg;'+]a);UOu',C_aR31
U"JppU(&=?_SjC/8wH?ZB\\:btfFwAvZ3ke#JP-CMQ&h6,):g&/p0'eoqu*HjQql(
U"#g9MQ/zn#aG&GQP0LbtRg*9nYGVm/c/wL(Hq]lr_SdUF(qz3%VApWJ;ftASWdPg
U"lZqxb2qA6ofT>$'Yv-O&YB/;3HT0A7nKl3j&706)=awljS6Px5x?h2._SD^j2;J
U"kL6Q5*=rdr2VLxe3Q>r\b&8Gyg-^>Fs/&/Sw'r*W8=ZeRh6x#hNqH6c-K\mUunz
U"axDGVenq?7xx8-n8<vMN)65J8XaNen[f)QTJ67q+qH^9_,KZrOwl4CSl5;MM7Iv
END SUB
SUB V2
U";iECmb&vz^aj)83:.YAOhSnxdVB78&PFVuG/$y5C+Jkg0;+u5)9]>'1DHsHU%<7
U"%oJcl6L]]ot_[a[/X:ucEheu%aPeRyXV6AZu.TJKT81Ld?u$lYyuU9c_\jER-aI
U"ds4:'/;-xdM^+F(*l(x5i<leHp:?9E^vWygI('ko(\a-Iz]hZ_9jTYJy=Hskwr1
U"jU.bl;?m23ygNT.IHi>ggDPew=b,>CQ^tzouqHZ'%&e>OU]]wcS7va]\nTp(q1R
U"t:XhnIv:G,=pD(SCV0b&M_G'l,_:/an_WL[^\vrb(p5tBN37hE6Vq+:V:?OsRnj
U"DJQNKic-mo.cj4)=%m<GtK^VXrRNJV]xYPe1c^k<\ra0:(A7F1Gr?xdaB<P'-Uv
U"gkYaP2lJo\V?tLMnTY^4nx'Pd2CF$RGF<a-%)l?<dbb*ea,lJ[#7tsu,k-;3h<V
U"^aT]AYXz'2a672%4yM&Zj%l3SpNBTg*of)et3g)AJO%EB$\.yUW%R;\hy_#m9?b
U"CS:$^SaaU-r2nAafMK&$3Ol&+nGGuI_p0_2bp&r/2m_QTEH*Lku8aU8+6H3g_-#
U"Ay]lI*&[LOFHGcMSANE\WcbNrH6Jfhu67YDRGw[q#K[rAXcRhk69Bq?jSaj.f=/
U"l]ECQ1\vGUiVj;Il=%9Q0&nHtOui9z]v(FJgW*1UJI.dqq\N>NA>;uYGofw6p<P
U"(#-+Jpsc8bfEq5q;JOYqKe]f\'X94R^<\?5^\eDZz7Hguvu_g$3wU5GTk>'xkS#
U")t_qSpT^MV<yY[[]tl_AI2zDU$G*'t\(+=i4;$wL*F5YI3txi_s)>H:moqMh.Q?
U"H[^c/XQ2OVy0c/&Q+N/e]_TZz3IKMXMOm#2oLdM'v\PxCVQJd.ArN*Y<-NkJB\r
U"DQfUfxwlA3S\81o?3F19.X=(ci)7:[eKIowwY-($*>I)(F&hQ;3$46F==#W\iZN
U">aulW\j\5C#].%tpB-?;es=s-mFjx3]iq,_kAK<7SV>E5BnKgISLU_rr]p:MBOY
U"TP]4XP)SQs^N_0hv>qN():VSo8T8f*GACHtVX3#.1o=y3gIi6+hqNLKMEgd\RA(
U"Nh7i?'kryQfA'aq-mjvm<8o.jT,o+HaX_Z=u&mgl]lPm3XN7#2fz>#gH+87eIeC
U"7_mkR+r8cGu^amJONU58S6sHtWtiIpNSRACyTwB,%*vaz^Y.B$;1Fu'kUpmXVqC
U"[$I3h]Af#c1WrHI#O8+-?TN1^tee[eC3R0mAX)?b]Y,#V]'BHx45<t>g3q9r4\j
U"gyYpx-WXc8&d:eJ9.0\jEu/Od1N,io;&P26/=<g'O-$)[aUiGiQpA\k(KVlT%aL
U"$2/lFU__-F6eL)9^r]hU5TPQ'+ZcucGiL9&MtHLMIU3A<u-tfDV_uOOM*'Ae>g<
U"/CC[7BnD)2w=XefVB&jl$-Gg0KAx07.S8^6W_+O/'JqXPqNxoex:vM7&rflUFpe
U";/$INn678hr0alC:<H;R<TeoOp%64_QXA<PH%*.V]o13luPMC'&4Xq010/[B%lu
U"Q%O?Rwt8,=A>h/Va&WGW)KnGk_mEc8eivYQ/=s/53+jEtN$uh]vp,P?9A[Es*OE
U"UaZBJdkdVH^H0wL75N4pXrofCM[:<it-YDr,;O?RYh)\2[z&sK/HFzi7DybP7S(
U"Os[zp3jXv<>+psaudI^q1Oc$/E#+TMs73=B35n$N\E+/ne21enx8J\XFn^L5'pM
U"cJVEZ%Gg65-/Z'SNrwq5Q81K1u)5llD%:^R>>bs+(JP9\fw<](m<>u*U6nV'++n
U"5TL-K\'Y]C-/4ERu03=%:;)(xs/Zt=er$q>13^*<vSrof\<4e<UG*xh6.rRtokd
U"T.#qsli3^<a1#C=j5=QsR]:AYPx=6QQaC_xKk']E=('K%(q48o?TVdv)P)=KL8f
U"DT1?[jllTF/h**G'ru#O.*chKVYJ?lnGUlD:]iMY%*qfO9<Eh?C*c>qM[Pki)r1
U")fH>K-+N+hFd&9eGBLL$Y^FMB$;8x\bONADipk<C5&J51*Zk)PllpsJIfVxi-HR
U"W:6PM3[el<*ID<-Lt'gb*]w=-KqybmUJnL#j:Mxt';Wi,DCD]=0_3tKWw1on3gX
U"e]aoad07G]<Si?uFS<zZj0KZ0fmOAh[,%3eZP\D15;Jw1#Lojt<a)]/;tXMIh\_
U"k9xMHBag%kXrZ:<T_Fe$cb=I3i)3h#lGGro8,#[]Om<,*$:NkSB4T%-bbO8%j;C
U"cQmNPqmkP8[X*PVdPY,B3W:=lm%;&dGljY09U:O6\N?=32LAXzEE#p<KwkTB<C<
U"#ZE]g/YlYD((.g=TkP19wc=qU%j<]G>75Qr(3jgQzUN&ZiGi;N2F]_aw3JYzmM7
U"z.kqIyq'^iva)Q'fot7B4Gx\__Fcadr77tZ%kIy*vBoi)JT62:>qt'W2r&0?EEv
U"]-rC?MW$e^<2%,lt^)vOZ=nTZfE6Sz,[G,/xiAXhk(ii?T.4>u1&l]KquK$SM$0
U"-iG?GoZCZh6UAFACX+,/j?SWY5uoc&N)*R]>&7A9j'fm$)l=P3_Dx)Gc83b7[00
U"dCx6E8qQPsVO.GItQ#^JaS&u5i_gh^uR%G$f2SV2q=?SeYjC[:\llUcD$aux4)T
U"ANAo)]v6R*$mS#Uc;c&\4U20l_/T<J06Dn1]Gt7Pcm9GyFW*Gzr>Gp%.f-uahJl
U";Uf?2'0Rek\;0_E;t.hDeUO]lJHuA$WtyNNV^Hy;dZ(2Z-><fYNuqLR&7(.Z_Kh
U"Ll;6p-1rDbWSwSr0EckYsn=gscN?$_dp:M3Fn)ym:O<Jk9R^Pk5_7jJ=:[V7t'M
U"M4c54:^gbHibSquB[t?bi0J.l)u2bCo.&.VXux_6k]9r_JTeiT_[<<Fvm3Pjh><
U"[ltLTJ>w9Mlc3\flLB;B3S4jmr#C/vPDp[)0UT\77sjYvZk[*piA=<PGFj]Xr;b
U"FjQVQ*jt+[^_>c62uo<g=3gFtX(t#]\o/&50L/q[GksDAi4X3o)R:KCILQrfhLZ
U"))$I<Rt;)GV)xs)VGs<7I:1CnE-WT>>AkWSY/iurMH[j1Vuj,pvj/GP4N,B0xM^
U"8Ho,H9DS*Sv>Soq<JDzr?>A8?zEgH9.43aw:JYwpyAa(vgB<I\=6dR[52JY0)ie
U"LnEea*fS+(5c<o'4i*pr=X+:ZL<\3;5nn#q1%I3\Q>2T-[:<3,8bgV)7P9Ibx#p
U"+T^5(#zLdW?91-:a?%L3D]kvtWac>Z;%AK$^H=z5E'WK.hmEM=XDfOHJjodjIdS
U"Ivg93BNZh-4g+]8k,-wEadEfk4)lM>oL/>2sf?lfoCj2N9xq?B>Xg(ht5])D_&o
U"LsxSpbKXh2mmFT=$mahZ(XvFZQ=OHkCNIXSXssloO4m__2vda?/DHrr[2g4ctw(
U"FmB6:u]4hBL6)uw\WY.$lf,fCJuc8hkl+i2nNpoFt9w_b2a+60n1%=Qt?VL:,?+
U"53GHhgty=ebwY.zO+R=Wl=zgJ_Mvd#K9Tfk5A%fj'J[isae^Lp[QCTc7F2Vi$h9
U"M,+6HY:AB[KcRI=G6mwKnt]X#5o\)ZTVtgu/Dn>R9<kY%s)%rb:FZ2FUpg8m1&o
U"Geq3PgICwPF2ER6SD%p9vGQE6rO#P\^+ThIF;(kp/S.Z[$FUWv1aMCu:::0r3^D
U"-Q<f$*dW.YW#QeBn4$%<'1qzURahsX5'1ia6#5HVsGCQ?.pA2c;b+w(Cu[nMt[t
U"Yb?L.n^jIQMRUJ7i)Kb7Ok)Z#_GzRWlDqOrLB#_0wQ.pgWU+scu(J_tOO6:4bOu
U"kcs\'MaINl'14a9DMi,vnX[7y4awHCA5G&85eeWe-'5'9fw7+C5Xu=9ZA32yH;Q
U"sd''k/,1K/./7H7dTkFA)fMo]'f2-t,gSAjh_tXn5pvKm;;nu:kY2kv[<Fm.ieW
U"]K$?xyc#Yn7pk5R;D<XIW9l3*6kc.R.K36?q9\e,%R(XcqoV;D-$cWXL\/ceo'A
U"qtQs#\#ZzJ.RCbI#t0NJC(;1Ba;.%$6xj?]dh&I(Mg=G.S#;a'EM^cOKk\v+9nP
U"k%&k?T-*h)(giH=Md2./5'D^<9$^oiG)gPq.-:m(D2*A4nTqEqZFe]qe(H*xjNk
U"YBe)>x&uFXZvwP4;Gnh/u#KK-;:8M)_AQaVJojd?m6:'Ryqg+u[Su?q;GB8SdH%
U"<X[+NMub<;RA%GC(FIYw/iF1x)le_ofY4[+->le/g#C-E&f.#U1WP$6qMY$D?2k
U"NG\>uyxe/fD+%$7aN]s;_=cmQ0C#XsY&3N+yjA-B&q)1MF&jNZzd#YN\)dpoX2)
U"rBUslRtxYRzr]H&WG.nay4$-.r=ICPB.7bg0yqYIvrf:,['xyJSUeoaS[v#7W*4
U"V8hjq*sr=P.OFK?VSU)J.HXf[^9Nv%xP$e)3G-g9)aDeC,^;0;V[W,OJ)2*ESiL
U"ww.WH&p;3f1\1sS:*N?nk5[Z1lmn_FF[F,O.mdhU8AY)hGd&[ln$>%0jSz,<,u+
U"MEz)A7KYCwn2'AQ\EHzBPY2tDVm#EjA]XYM[0eU*0';:bO<Bk2jZrm;*w?;j(I2
U"or7v3;-3TbpN2SAvuIjgWshaPak=vj;=rF'uI0-B?^D*Kk3j#?rH%4VR-8H>Ev*
U".'ftIi.8$fiBC9jbJ0C[88fZ\lu+)WB9wIZjiS$$+ivL.Kxyr8U#/jtJ/rvfgsR
U"^j(?^PlX8]IJBG-52aoe7R#HOv\7YWC5o^1ZPre8iYw+7SWm)]M$Z^oll*O035:
U"e4kKN-w23\27ymH3%oCktZ0AU))h2f4TaO?\0m.rvXhJ#uan-U/BKl0b[u;t\Yk
U"iQ6ZKTLlT\\)^hw0+]n,Mcyi>lctJTe]WB[YI,EihyhQ.l3)Bwl;[eZN)_qj<H+
U":_IWp^eQ:l2+NSZC*7SiD-7n<gpjp1[Pt^F'9/6Ev9:9y9A;5?,I1xn/xm)'rRt
U")]C>GiTtdbT^:I(b5sNd?sTj:rn59g0&hJ[%d]?(R%xH+ohH>/.Ge$YX#O2qMF#
U"VIa7h3.Amh6_di0ENWIFd>T+2&g2XFPQ-6hh(lszeUD:(3qi7^P0uRq_XONJn:\
U"&U\LW[=Q)D]SSiEgRh5UB2k0Wgs<&?[W4HiZ(-^ky'$7yOBwDZ+*t_vHL87o0P4
U"c)NT>BU6ib_8i91LLTa]_X1QlOF5]BDqSO0ZObE_&e'Qm1WoYlmeQg*;[S$CN\]
U"UWeA[/.bGH:Inz6]OD9$t*j2BpN/#S#O0<vo2Q7Y3^?)[_1,l+jE#'+)&U)Qh3-
U"L6G^=ks/?N58InCShT;1C?5kDs,gN(kXTCsHh,CM4M3[NBfE'B3<wi1?hS3Qodc
U"D38Z1QMjkYc^s4m^/>q=yE>(m0(5$9K99DWJR1GQ(dChcn*_En<LCdtOe*Ocn.e
U"WI[1[1h(rQ<+]OO<aq(9JoJJ^::(dQ<xGRU.ae>H-em&0Dyu6%hPT3[kFH\gQ7<
U"e39rBAhjgsGb[54sZ7>R]1/^^EtzYa>B)DX+P:#ySs.uhiC]0+'LJP[ZlHbKb]F
U"m'$l[z%)AvbM?'J]^/dPjLk5*(_XjZF'boNjt?ad&1e5&#GnARH2O]kK$AKnXok
U";'zP02nNKD?-GZ)daD6-NuijC,ThAVE+5RG]uR':(I9F65hWvIL)o4k\#WSido0
U"iq^#Kk^rM#DsKBA+=9FEo.ZErF+/h$H<BG%.eU%d^fijQ]%5.>kmiu/(%:jtcLV
U"bkx',%g;pxAg-Klv*Pj[+C/l[)A7uph\R+QZ_g2q0aOVz;c,2uOP]5aNq.Mv*+w
U"<qW>xPSAr*O1*zd/OK&Pe-wmB#AYzvDaJqJ,0W.(iCwrUOZf\%1?SS1okAOt=M+
U">w5B%=i)a]H^dGNu'pS+4c*Swjs<R6R7Vv$,+SQzp80NrYqD&^'1fEzToJf'vR$
U"-CZ\_k%jVnna*5d2QfLm3<7,j^)SjnfoS'g\vQ<TFZ_6k,XZdKTwP6eCUVn9QpK
U"w*[)IAtlbBY^DfwHlA%^p-BW4sFmJ9SqCSu>;Ule'ad?IDZ_SSCJBFhju,7*xOW
U"Ht57w#?psPw/G6HP_c*d=e9o)fn:S:wkib(pY(pwB;6#0GYx=NBWy.5k3njWS$j
U"%YL#\-NHI8LE4_u$U1;FEj-VA2NP*FcGT%:[sl5PrYysUnsq09A-u-gnnb)oA+L
U"'tHI;IU02pdIh[m%SW,n(scp,>lbYO;UUFlV]:6A_*b=OJe_G#D6/a6.n+f5l57
U")Ch.Hk(]v%EnBKQrWz2iZK;SsME*1gi6im%T-sxK0ZE8;1<njnlVxE.pyw7fdS_
U"87's[OVjur,VcRI]4ze*S<VkLTG0$g.UkXF1uCL*jKG8F)[JR7NLQUzC1kKTv,+
U"MrkCJxOWelE(ZPeKxXe^9rEu*sW/%m;]zJ'=[EY^nXt4.>PuniO3EZ1Xu'S1\5#
U";$CZGgNfp%;*adFJ'n27[a7zM#oROs\5Lu0'1ttVkV2+IVMRuQ'5K,A?GU;4$=y
U"W9XdiM_&FTj]d'NVfeIZ.Wl7G.ZLA8N^),]nO3JV90JCmxbX->p4+RKQPr^?Rw]
U"s+X,M.06qc;;lMk^B]H(/=f\ezL+^VX4F/XSCpc(Q44me3cve)3s(s?KUj5XQk#
U"E64B8eZ0.Bq9viJ/^iWiSjQ[[sLphgKmxo_Rhocc=j:KuDs3jmRu?/5&G*\Fy.3
U"lGrc#,l/sGkGI:Q]2[\\vb2Sgzs;gaejU2/1l,0*p$2l'\W&IV?TA[xm6r]u8nF
U"ch3Y>HDEnqBebg+>8Oid_,bl87-VNfrVGkM\+:C7Cj*Ilg%,Up55Kui.i=m)qQF
U"tXFB)8#^R_dN7d*]_H>9daTukWyLq/dpR=pJ;uA[A0updooEoMyM5E9^%tgq:8s
U"i+Da?Ij(QPQuZHf-h^wtTxQv8&AZWO(;$w;yfK$AY&J+o\/+E$<i:adXQ&9dbzs
U"].wDTBHj9ghp$&eqaG-'Y2Y+Vz3#?i^:jSe<;%]H8:Xe)ZIA;db#+O,HnIQ++b2
U"Hjp&)k<oZC]0*,JaAjtr.XEquwP0LVccFR%('vGeWw;[[K?&K1x:$)Nzo[Y(rSc
U"Y&.0Ac?ZW=2xhgHZd:#sCy$p#OOYQLPeVs2iI#gT]*<e&]SzFJfp)[elV5uc[RA
U"L-+';xY7H=4lm(2wIrBHp%AVQ5)GJMr4UC$5bd?6;5Yq=0=BI+nEucEE?tk'K'B
U"COt%7^O]X$\PjvZl$%bfPKT[cpuS*Auw.jK+ha)NCk1B2\2.%'GvW[,mZNU/exg
U"a4O3e?nCM,b3Tl>c?Y2#xBWKH'o1rmojRKXL>WEYrXi#DESH9&5-j[6m>6CxwqW
U"yMAS85WqOT)<.C\1ceV>m&Ar'-;U0F1:j&A_#wGDM2S,[Xm=msmSLoCvE.$ZBnU
U"6(c_NVSRnhjNlrsdY:NI=1H_IK:q8jJJBzo#&<5/gkwbb;Gm);(-)H<Fr-R-EUY
U"jQ27Th+V+iB+.'c)M,5Rbjf^.aG>H?3GVES$*HHV&%H;[8OTP/lG%I[pGCi-(Td
U"g'-4rGAm51hZlh,Cb=TRagr)n\\SYb7A0rJRhuSWJuAG1[3#KZ;J&Ah]*C#>K?U
U"'KBRz?B9R(z6P_eKYFu3dWRD:tnDh^fr03Gm9#+kiHhIddJat_;&3<HGUXfFe7S
U"=TrjDufdDS9n+F/w#c+YqrB/+JZ6$'G0Psk8a]'1SM>rmx+v&zS5dtiTT.eiAcC
U"e,O<L0Id(6ujDHV%Kax3kn8L(d5p00W78(O;&p-Ff;Q)qe;8WZ\<CakliYek$:#
U"TPnzF?e*&UpN)es_GUe.Dz:WwVnsHFTOsWT;5sSMf>e9o=X6]Tio7s>PXg*^Z$2
U":iSL9CB:c7hlOWHf3]G%'0OK\E*1QF'<>sJCy)kg?tMhl#9G]9^ce%[k4q6J(Kw
U"O-Bf12Wa'O_nMI,[M'cExRZlc'h-RvApT[HvJn4o>_1em86]st-rD]Gh[szKLEB
U"i:p66?EJqB#0kLV&uCV+hEoH\F%4kix)>dxZdOi(lYbQL2hxnu:LcTu#g?A0KL:
U"&6w_K0=J/<p:25#btXwOnnj^clT8;nDT=vx%hBd#a%h,>HB2^l679kAE^*d^0D3
U"vRdQ&ulifj04,$*5^ZvJ3w^VR&R#jLNaK,XJNAXoqchH3Y-%7HjGMXI,8*G+SYo
U"2w<]Nc5U\uikl?f_exkEQct3ZVQU^#HU]GG8IchuO0==Kg+<%[2_ze_-/u1l,LJ
U"Q9'Fs'*)85Z?3ItY?J='U18rK#W)g.TT?<'\Q4W0*1l%3*I*C-Y.E(tYK-RA;9^
U"+2C:BlK<f]ji$c&>RW4hiZyi<UjS*)Y50+Q3tS8Y2*Yu?%9v:[K8F;F9A.3DLGo
U"GMx#gm[?6fHcn[y$fPxW[9<G(Bm$_lo1nD^W5+1AUJEnPQBLtD-f0H2i-v?)5T%
U".MG)o^T-2P<\&$Z/<5nTK04I3#e%OJ#M:zdZyme^s:5bCzuIIMIDY\(QD;+YK]?
U"ZUM0V142yg=S&#GQ1(&ART)=XKd[DJ+.<,4(3yGhog;IDeaP.e5zAZ%J[o<gc3+
U"Of^4#RgyfAD_eb1%,h'2xl>31NIVPTk+CdJKe>o,7tBn+D?n5rkVwXW<9DOO'L0
U"pzv+PhP<OgBK.AEF4a(W/ZhqPU-L7a.02hfzJ51U(Y3<El'UA7)y3.y^FQiiyY4
U"#sXs$]<CgU<pZ&n>f8'C(SC\q0\a.8cI<O^+gYebJGdg6mwP6k:wo4KCtCrDBoE
U"Djo9gMu,[L.jClb&b:L(pZ1=3yEI(1k&nu639LS_c3)sse\j4*'qVnu2B.DHn?1
U"VZp#GQN8r7*i^B&Ew%*WVDslEDEL9tn0'(Y\'L2Pl%e3<q74WVT(5ss3?maq9$)
U"V]J[7Der]kLb*ahK0\m]R7W01YVq)4Y/0Xs*i-fynKOw#&GZ][%)Mf9x#UJHYF0
U"Tw-lZMxN&3_clBR6i&>WP/v0uvl;kjaOpc=R>LCJ:aB)6Hvn=OQE94;G<>pCCTF
U"#UUeNNaT6T^<5Q't]<iemM+FSYlll\h&cpoOzv3N3,=rb-JDGT0qviio/YGBSM(
U"G.%7TUWFO)c#MJQE;7&mhV7z'+CAwJb%Mp4UL_(y4->iO1K\0%VWBPa6)uZ#Ork
U"\<(FJtoYzQtt;5*HY:XcU?E<LI[pQcjQ)6Cz8smj(T%lW4unh#<DyaL'aK8JY<e
U"O+%qmee7Z\DQ(WIy5ROCe,5vK:Okl//Du:;x['5/mN&sh39cG&ID&ipJ)dgOC9'
U"t#tCTGr#I>.mZ,]P\<[#d\ds$nV\l6sMv6Y(jSBa%b3/;J#OL>FB0Z2b3xE],cz
U"23:36)OGZS,$w9a]Ms8.CJySch+pa.BVTm<&\\O^CbhPPXwUSaQCA#g:$['S<*P
U"PyJQ*D,swf]7/TJv,3Qq++F9,qGaHB,iBjcb=uJCijI&dMB,%-SodS4m&*6zk=Q
U"m)Ko9cB9O5g>1O7m=1vA_'V(RY#w[;)kGM$&YYrFX/QY1+cep>Ud;PI'BEp[(Zy
U"gj=c_%*Dc9/jb*6eBJs*[IvKITKh^i[:YrguHR(z+m,;.;QwQN_[a2.)mk>0]&C
U"?VN3Mq&D\.j#][?hb7TSyf_=[#pn)03^:e:k%\Eg<X1JVk=hD$xl>/3>f^[61)+
U"u+EcwICE[M+^<)XPz++?'p]lRYV],+0W?N3NqHe4MSgQ^V]$4qL*=HKj#x*l])w
U"_*(d93Xc^BlpOXs]O2,B7O1T)T[GJTJYDp0=wK[GM1%O,9O1ZaX0K;ijq<JO:QW
U"oWOh$9QW?LzCP.dC,#El/x'PZFpo]/\lS2f)/KM]kc_QA2lrj3:>dL8b:_5g)ET
U"2X?O/g)b6FhKqk5NcxAVrmnL%S$r.)\Lr$PMqeN8xD6[L$pEh;kX]O=SP7_X.qK
U"XHIh_Hbt9qX*N^*oo5R0/gBEp0[0bEmS636bs8Za]XWQwrJ8_SaJ']gBtv<88%r
U"t);gR9*YsPg:Sm_cB3J2g.4Z[=sAFLia8+?iR=<UqB0N_S)KhB'$b-pr;dM5XaH
U"H(baR16=7kYG/%\h%^8kw]Py*qYGbKQ9[p=<4_iaLuh7$(,2zv[X]Q&miXtKwY_
U"vOEV&[[[Yn%ixT,VmviM\Gij^ZB8i,GaL::t[#+39ZBeGAgc1oKDr=C/.c]?h\T
U"Itsb<bNMmda/0oMPQs3eJtgV'KI*Tg7okkjWUM/^u+=;-#*/YqrV(KWpXxLkiL:
U"S6j>Kg>I<]Wl1ER;me7Tvwaa8/\3/h^nL/BP\fpCk^/6k,um7G[1C&gR5.&cB-]
U"_n=%[ujKc,3VK;GUkd]*PHbokXmG5DoHJFC$,K23^g-=jdXS:jHcSLwR;:5Q1M&
U"g]9s2gqgwnO<t$]kO?%SDM4\23rZLDK(1-)r2Tiw/Z<?j8#.RCqeAut1joMBaH/
U"En0/%0X?xBPowZk/'zveRR$eWad$g\:OGZBuJhN%B*J61geZ:Ljceef][l+Bnvv
U"7mwH2;SRwFf[aYIf5[f'qlb,[\uDnme3s+aJj\5e_tZiig8L.>=B(kp6ATNC]X_
U";unb#fKnbn>6$Xt%M2DWEF\bdq<TPqQC1IDWb)$CH)QAKTyfuu^JiDEP<hn7e08
U"/=\TTT-nKiiXoTt;<u-HjxkcwcH)2eH%02C2D0E#='$;NXu(]reZoJh]JI<&\'e
U"lWo-ZMCDBvL&Cf3.]uQ,*g&'n\']ta;_->A_09.\2C:m?FG_X.0(YlKk?0OeNBG
U"9ZO:mtRK.c<;c18wK9yMbbxxXzLg,433f\iOHafZg]CkV\x=\_DWNUFd&>483,j
U">jt%I#n)I'%QERR\E-9X4GY(J(:APbj:nlu$8tFBljHmJ=IEa>'M#flbHtCmS_\
U"OqIVaqMcD&b0*8WW=)S]/5^nloE>.SN]xOy#+GVdcoGbe/m)[0VB4oO/d4*6b+U
U"\^^MSKch\'lcX#C6VS3abuZw>L8\.[e4nv<>x2/]$jmN^6d-;]W5kZWdxE%$/J9
U"#5i<;vJ.+Vj=i:mK^C5Pr-bZCoD25Fk*oVbWcW\wr3mseEK:iLKR->YiZ65Brlp
U"_=P9$Hj,h6.l?]fB%Z0m7vl=fmhb(Xj>bjVcW/*c9:'5JB#j5O8N/Pqm[,S)wkZ
U"(*6gL;k*LHa$eq>#9qsl8o*7J+YrO5qA%Q3r$<bTJR,s>-E>xMwUElf.0[2XLpu
U"]m?u:J(-Ow=&5.F<+=tQ<-Buag+&U[-mEmyj,V+5J+KnEF^G55Fegl-03>TM^0j
U"d5IsKBFb3t2fU5a4f.4KNw[tc?pSOH[]gwg:3F$Wt[43oJc880S5KraP,UavN+X
U",_]-Ck$5t-oEGd.3)jM'RQqv6]5q,bd/Z2H2/*00xK3vVMWJ\/tp./.o0uN8mSZ
U"ECO&AHg&k1k:6x#?sJ/9nEqGF(go=D+oo$SW>:<TpVB&H]\N<GbFkLE/&TcadQ&
U"=[r^Z2=<waDMAl&9f,6xE#-_E)pH0mt?ohpzN)%kjD7lc&U\oAkXbr.2D4VWmfB
U"Gytq8Vs2+t8w5VsjGM$-0H0=NOM3T>5R+4dCmd%/VBn1qiXI\-t3p&np3b[lQ8^
U"7syJocIG(>tt)01UE.P<Z?s3fk^7-\cM]O$]5R=[_D7#JmD0fBX)$QTFC6U(T^I
U"s->Ew.)S%c\+Bs_tNi^&:,inf]MWs;vpm8]i.JZ$eg&JP1vP2431k4uX*5d8GSO
U"I(A7E1i4jEIG;%uA4>Z**Y3)H?Dn]=*,)Q.Co0_N^#tRB&/\#QQYwW5\&8%ULz6
U"NhCIWB[CQNTnz$TpNG#CIq7-5*N=<&w3S)iK,pvtv'.'r$usvbhL4RsQfaf$+S<
U"x;<nq?khNgI)FbCsyht]W.PNn-sO+aphj7*RGN8)mHQ,KN0l=wep/J>[ngN,rmV
U"KZ^rF)3ATIiNyWU?elNu+n/&GGJY6(%zU;P+DWHvDAlN6[h1'jD]KjOJy2HQ_M&
U"cx,m4yW-]GrSsPnaHp>#l<pl<W)[FK#Suj1G'K9K)SM+L\Xt,>&B>hB6WCDIV;+
U"pSgTkTo=vYCpaC<Xwo7if]\CjS>I,rO(K#ihM<Km/?UNgkzHM6WV[[1sE]sfp[R
U"Vu>JGPaBv6WF*izG\;9VgHJGnyO9Q>2O>JtKCUS^9-hS)d4S<_7JjeGJ8Th6GGk
U"8eZ[k5QC[dF0Yken\[Bf<=ZgtirF7-YHpJd/HJ2Lj[#(&=A)u.>QmugM*sNd'zY
U"cfpk6(pd[^ngi[v4me2%am+.q0r_&NOqJJZfc-[g(]D?pkMeoEM8qK%&.FdqfAq
U"]+plY\UHmJJBk\<.K-[;0xBDOWkfEnfGT6D)>E-5K(5yjz;*C0R/k3uqCPIa86C
U"G2p=:MC_10t$^<KO'pi\Ac8,,k*otCgxkpNVeL8\lVOseQ\3i:GfiOl[Owr5Z[g
U"v:yg^OpGil8h_Z$F=%=sT\7H^_5DW$/Dzc>s%GH*<\f8*(%2\1s$Tt<)kXBZUGc
U"8qmtbm'+I_yTa/Juxx]oA\Sd\=uO_UzP<ncribWRuUKJN(JOdNU5FYXu$7ecywT
U"jPoQM/u::Qq/6:Or/ED=7\7B-*35_u9q:9kr?y]q;kK2c>h9lunuCS_Z+ST4h4C
U"d=e74.G_K'v]at]T3N$G?:m..Pm[XDu?84NpIL7/x'?SX4wWSi;7dtm%dU*x$it
U"RmZp%rf*$?Vlae-IYx[FOj_QD2&#JG9J\g)JQQp?:a\7G%u/rG^46M>$J#0m9h&
U"lRTUro#QMrd6B#l(IP-?s]GUCx:G(Yr%v;=r_P/6HCc\J8GxTwzDH-.Zo:n>EN.
U"mIJi]\lTESej5KG<ln<h4Tc89l4lK4G\IL66[mlS4%CZM?LC_+LPlO1RvNGh]je
END SUB
SUB V3
U"58;X]</CS5ax[%YJP:cuC.MLatDT_XfNx^#EaFjGVTzqvYM$eFn5B^)F(.O(p6,
U"xAb'>tgs\Xu[hU^/p$u^XFD&HGLRA^EyNW:d1'-OLtOFsZdk4s%oEMo*mYv4-t*
U"FM$;51#6FAE/f1R_ae&RU=ZgH0n6>o%^[<EFWZM/U^xzAxdRKHDB1$f2KK]>RGA
U"MLfgaNAPOHrNh/Mf+%=8qT,%#K:H8U[5qJYXZ)GZ]aocWH'ForQ4o_z>?ZLD$Gf
U"f+kHD+jIMjq8a,kbq5L*6X$840R8R6zmDuEj<(ppv8o60[8z5E49Pk5>^xg3JPu
U"<K>/87,T-8FQLR9J%fE8lH>4RN19z;\&^Eq.#w_:]<A'^#:x+0[6Arw.bH/'<37
U"r7Y8PLu_+da/P7ELmpN&%r1t)B.Zu,b2(jg)fJb5V#\.i#%T-8M=%PPl(cVapCb
U"E,8-R4s<1/gs6ES$)LD.she<Y&E[Q835.1^f\a9M4f.,CRaTNmgU7[.%gE0p5E/
U"%gYU^Xunx).?l#oD</Ex=;<g3UXv8R=['8b?Qe+elU1ucROSeoGr'kjdVaD-6_6
U"6Br>Dc]_]+brANtI:v5]aB,#P?(]D/U&AGg#4^W.hMMK)pzeU[vGWq.wU4Kg?5Z
U"[^#=e%hbPo;ASs1i-a;*kd]DlK.r&^QU&c/UF.RpE*T:EOr_c&hj17sk%U(,U+a
U"dwL'e(PHB.LOU5h:s6M.icTqu/HJ&I6EC+l^TK5B.8O4P;K_7rte^k:X$t4RGr^
U"I4_vClpq%<5/$+uH'sF/%zurs*4c0A*zp3?\TA#<hXI\T3v7\T9Fh5</lLJ/crF
U"N$GsR2A?^=o&gr>xLOKl**hKH2-1%Qre.5bL&uGDrVE+S]:']Q230QzwA#g4[I(
U"UJTdVKl6fEqD_8K%dO/#WJ(cKjY>lne[QXJSG(H2L8hRQm[5Tjo85q%He2hbzU/
U"Oe.,\Lo,-p6*>4:Wb/i%JTS%BEE<tDVOpThSB#jPNx*w\hK&dKLikZcTN=rM4N:
U"^5]Z+hEe4f4=ZR^F0]Ts:/>x_dVmr:2q7+q<NHbG1m;#wrTK<YZ6J4l.TUea5Fq
U"$53kqv*f*9lc]OhNue42^L+(TOS%^#V13nnA:4=mjYKRjAqAJVN#c'7qh8q2fzt
U"o9EqTHT36rc$R-%Q#_9lGEw99v<J.$;scx,)9u/AZhuii\H8ak$fcaZt:f*0Njo
U"4iZZFCb#^'#^1+#-6o08j4#]igQ\nor(hWZ=ARFc8XXt^U%xjgP\ahbY,^sO2eE
U"]MD:xieGxlSbbJp-BTRl$;4m.rE^Fu871Cwf&h6K//#o?RL=c9ps.l4q\l)P1(v
U"mKiX^5b]B3dZKvZ8xodZjEZ+Gb5ff$pNqnWbDuW0FhtWmvK<B/+n.\PiqD=\P=Z
U"]a8%Tj1GG^^Yrs]Ie[EnC&G;[wS^pJdISYQZHCWa1%hjB0f96]^7kG#KpWpNE&Z
U"H&e#8cD=;Vzi/\,lEl9#uJJW\>Q>xPn$*$B.)bu7<</7u;ojZ=lG0h7%:Xc$mf8
U"2H]NoPi,QCqR,U=vS7f6x<-N?xEjiJqXla_<R3asgxHl(/3>_WL\PD&.W3:bvBP
U"Mzretk$0^b#<sTEkYkfFRfq#e:BD?vZpEh&YD/<lufRGS&F>?HrPFQwQId,FmO$
U"V^Is4<v6h,4;nhcx5i3nB':]]-YmJSvg:yx=79J:t=eu/C9Y,V(n?lnFj<^SpzS
U"3\nE(7bTj>/(Akt?K3gu/0k^Z\-YgG[>R=e6YG7+);tzME(oE[Me67M3R'RU.$R
U"J,fu(nj7Cx*<,'QuDIbIf'R*So43uVp)l:zfMtMB*f$'xo.6SW/K5w)]EOtyw'x
U"in\<slOZObhLqtNT6l_jZpwBR^df5>4LQkAHA0RFtCR*E9.g5Z-dQb,j)^7Xy7X
U"E6q8GW;V'u%CPT#&I(-8.v<OC3nHD_g:[ExkkG\eM0A&cFieeeDG>;%)]eCAPr;
U"e7^>vS2kn,([(rf9<XoCL65)^'i3DqIugxm.4]'?/S#xxnr'ENi(7CL*r.=?ATf
U"BDpTB(k=B0JS-W;Mj*64VY;h#2#?c2BpI4%\pUM1^.',XLBa+]I5*q2xy\Npy;=
U"8eQ5/Wc85'>3sV+i,+O8_F+G<u]>ql;Uz+;LKPJ'ghW]V;0_S5'je76Q6?I%S-p
U"^;x3+jX6KjFMC;m2=R+N$gz?P-a\-[cx^<'&*MHibb09L]Fluj;OdMJ'3ca;Gz0
U"j.E]c*6by:ItR81:Kd>d9Bucj2Yi<:RuOU0PiZh%&CZW*8xWubgacj*T[akdkwH
U"s;[[TMHRL(=.g>a%aeStsK5yZ;C10dpy2(6#-KFqPaIkFK+hyZg?huuhbRQJsrK
U"Uiy62YhCo=0OZpQSDZyj7Ztu.zpvlB860wQoCS&r08_mr#b9(Fz+nZ)*1M^6usx
U"b3IKPeao/I)OL29;7OTSprEZb$Gta^17XvE<[T4fQA>s=:;cx8G/0Q&n9j8?kOC
U"(%#G[-dUCoresG8>I,rtod_?2B_E?'Q?RnqeqB*E8^(CqypEBKR<qSyQ/%_M9za
U"N;sGU.zue$9J&CS<jVfe7WaJAbwUQ4TO+;).jh5oC3).,_d6N,jH%knoN5jE]HE
U"7oE5fM)H'[x+X9T\o^<]xO*H0ON($g(&KYORw25l\>iGp88hw0HH?pO9d?L(jY%
U"<t3T(k*j)oL3MQ1S<K\pOQ-FZV>V%/UR&*.R8&7U/*/4$$RvBd_E(#_6BekEnVs
U"6/oacZlA0WB;'ZWL5:I*]ncO]o0fcKhT*<#>?f7:3^mf>u^44V_1p5haZ<#F)KN
U"3NT_:jLCNMqvVg:5\1&2y#3X8XXl0Q6]H1%OrRflcPTuqJj2nHuX'PKQ<qcE)<t
U"S)Doaa^q^'1p\Na;6<WTH%N)7,0DRb/\0>P9fBd\0-9LG&8e'-UfqS2;4NCWY$F
U"qcKdo:YS5xQSojg-G5G158]-yo>(T^zCL2bgQA*,sFmr<wJoZwD4+wjT\GRP[?,
U"Ym-#NI.L$Fbu.gnm_dd]bL?9?j#_v;J&>^uvw]pX$u$Dld5BVuqjuskF8>vi7Hs
U"wk;xMpID4PNCVu?^\OoQl\,(Q75EwEC+&7VHkSRtYp+NOG*>vfzF0*5jTk'pk\7
U"Trv/8h4Z2$KAP'xDf/c3OSv5Jfh-dG*Fd7sq)MbBorPuV^(6Qh5HdS>d^94aw4\
U"JnDht+S4/q?GxXeg6*V)i33*2P7Ts'H5i>4KTydeKcw<aSQxbt\,rbdQ9v3lN/Q
U"+;gRX':__'H8)'0nY;En3>]HV*NoQn]>fSYcvo8u'JiqeYQh[zqAY>T8U+.>(E2
U"&^I_7sIG>6x;TC$fF2:mgd20P&$'9g$yIK9FbV&VdK=+Pr0Fy4a.zpt80T]Zg?u
U"o*<SgR5$uyO8qK4JHp\:[f>E/h$7&^,_pV2^(>60E[p+UBI]OKgL44#?:Hr+J%s
U"rS[Gqm'T8^i7T$eV4N)10>t6WlIW&=H;s-]Hw0/w$G?coI2)NZzQ6JM&Z-=S8Q)
U"9_J]F]1;0]Y^j[H5?WHK_kngY(GwhLTI)*UnvC&R;W>Q+ZC?x*,>=-;OzG#yj/,
U"5>T.Z88ctSBC3M?N4aETgSO($XYth'RClV<Y&b+Lt2]qwRs?o&L#n6+\K2JtH#X
U"d*KMZ/r4w/2dyjKH_4:k%pFX9hv;#Y-6XL*14<=+hBj6NCtKuCxx>/Ray08OTIn
U"hZ>E('.KY,'CLSxP1s\b=0b[\?Lnkz4XUQcZtC-AkY;+]I7+PCMN/qQOod93Nj:
U"bG796>%S7s<Ll1xWS6Md'\/[fWsak\s4+(9$FLowq<Hi$Z;7:mX>Y6p*z89hLOj
U"0/]to9Tq)mUBhF0Xn[%dP$,itJ2KG^GmT2k)0PDa#uWJsS;DYCnKnAZg.(4bH#a
U"%PLH._4:Dr&%rAg%$lJ]dI1J$G</$N_19cS1;-J;[:0/t?<N9Hj4kgZC3ea0+_6
U"*A/:'p'cx&yA;oNP<lp39IRi7aEI<)]9V98KCJ&+NYrt%ZCm=\c:oZ)%)d<JC56
U"J?%dYaP.F?3XSE$hhxS7%(;z*R;bF)*[B'GY<>1Cn/a[nVc?Q$ZBLNa,5I2Zn3u
U"?Ht31UrN(;1XKWE[_D:Nw9Y*Ge3uBOpchMwV4m>5%*1;:7$kdS.3w#;x<5CM0WT
U"Tgw'E(/H0SUxC9o7rMOsGNA1:]_7mS^PfV;bu3:(<HX9(+:'0=1;67p/Dn6+CpD
U"jFFVu=BL<(6k2NH=3CdmCf)vPaSYa(AT/YzeP(5y'3F8(1+k0kk1LutS%Yol&pV
U"pk#Dijhrad4cN]KMPWX*LTfLDXg=W0dA*hN,cPc2]$TS*hn01#E\I>5tSUQ85Yw
U"W],CRO)puEn5)xlW-p=SDh?3\f0)F,)\i9R,'']v_gP6MA2<Dd*(7.xd+(6*Z6=
U"q+6oI1=5)P9k'inyA]2k3vB50igVn'&G]:FVQH'7q[;00ho_u<FSaa3IDwHs<D^
U"92s>Eqwhs$Nh:gL\JYy&GK5-MB<:U7M[NmjG>()04/]VF.kDh4XS[J#TY0^c.Vl
U"^P0sK4/skftj^($7va'd_IBD8h70aRzzeHii:Vn_q)b7-qo4/hGe\ZAd0\4Q/Ad
U"mSJm06=fr<)sjXr:>Z](1Pr)TQDL>n'Qur*8?Tk]<dC,fp-Hug4rNZBpyNT_9Ye
U"P_6SLoG]].ah&Vx:4l7w[,',F/PvD;x[OU&*>.3t)O3Af38ew_H*Q.oOIYDiAFF
U"10CtS,kFB=jjgilTltZg4\i)&0i<3so&^$UVUx(28wQj'L7ISKl+(F-.H&LqtLf
U"\[c0l#NE[ogJa[7_0g;;s\nT5Z=O>1H;7fyIK/eubPrlxPz)v5kM18XK:7#&N7Z
U"ijKqdu5iC?$=qn^n-Q(6(fkzS-d>Xk.t0G/;OIwj+S)1Ao?P,;T6$<bNHF(IX-1
U"rf93<$(o^b)Fp0LJ\<Was3Q2dn-dPkf>nqX#7sBE\_4&)JqKTr;v6V#N<yhN*?X
U"x<Mq>\JWsjk$pYY_0g$rsDr:d%hD6w^od7aM\h<qu/2>[3.Dr\Drun8Oe9Fh0k%
U":W4[Oo:+CU+8Z=JXO):kP.p_u=Pe$3c=E=n^JP2a3.ZM'qLlgp-G5M\[aV/#o8H
U"/gH8i#\Ai=68MAnIn9Xc(17s1hKvZ#3BB*a_]9lT7'rTyNQwJu/9[<\ZbJn4mpb
U"TZh6lM8iP&^B1;TI^Np7^Ke.dEsc&pBnAGDD.SCTNrp(IMs.vbIHuw+cJhpBlND
U"bKpmT/Rvw:j^'c&ylLYl8:8$qrJO?q6v6lNl%.NXr'46BVD$v'g>^]2,Jbcl\b+
U"4[lr'Z2ot)Z^.SRxU>Piy5z?;W?qw&dFuH-MnlD(MpHQV2M-Mb/kFWJX<UEH-,G
U"&8b0.hEWuOv8^=Z6PxS:VQ>XSVSj[Lagh)VjPb>?T3a$46)3,M$o4?LZvcCz^-C
U"E$lp,1C[Y;aw:st_[/lgbTg>:b]VDfdX'-d:w\)hZ)db<QVR6^8;Z.Bl?4mwJ_e
U"Fy&^+bKiilIq96hi$]n6Al5SI24$:Fsq>h?iBK?c\a6mqc&>pGO3XfiMN#kEACn
U"MyDRIJ=mFRT$PIcg4'?t]SLV4B:igUxQ]J1]ER4]sVfl;L>Ix0H-kD5)$I'X,5v
U"Rbj7kJV,Qbdb-^S:llEJ=Q$qyrb%2p)Z53I2kk)RvReF>=njv%([dJ]s8^_?\A.
U"b$2KKX7Nu)Ho/;H2n5nJ1=gqTM/<EfMw^/E>rSC,y$Q]WtB6_LJ)6:tlG4cw$)9
U"a46#Vrm\ID##\DKmq55g3-J=^uqq&=(BwlRU#RYm2lg?)?N'&g48M2't3heeE3r
U"v4B(HYulXJ&?fW>r9Q2xGNtj$iwi_qrg,kvKTPqN>:YKTX0M[<,->.nEfGV#)+t
U"Lj9,:budB7jJp.i1Rn'<M-f8S3$9bMy6>G0mfRqctoVXsX&ll_]uDtGKU$=50i[
U"eKt.Woj,BL7S;_v=<$)pEKprjO)?<D8;O*ffNp2vP9ZE_^fX^llX35c,cS_'Zid
U"jB6mD,T_kqR#Huqkj'*&RBC4rX*,p)'ZPiN2Qfp,nk<n2'h#HK\(p%cd]YU$G<F
U"l=N\TTl(7X''ZA4X-/h0CL[&)Ym0EB)>V3s6E?x0R(C0TDwxnlTkBS8Dz6B-0&c
U"^,8KHnceDA96UFWW+5,b6)iJzMh6C<\\#qs$68Yu6Ftoo4hsd1.8&$PB[KTb2;r
U"fFNN]kk-biNHz&,_q2HueFBnno$)]C%m06;CyT/V*CJ#lTjU(^KYXcWnN+^ptgZ
U"JbCjrTI)Lx6VvenB9H_uq0Xi+zSg^#j\Z8*7ah_V(OtG*fXd1OVpq+VXa)Gpp:\
U"Pk15O'm6sMHS$+cGC7sYH'4uxgI^2_oH+X)im+;lS<\lo*J?QpKvMGFI^&PR6D^
U"$n/)HK,PLem3tE^ZZZ_0cTUDwn2'b.[\Rco:dxF]LI7mmGm1l>?0FB])DS;Cd\>
U"#GtKGYfb]Z;s5-d,BbH_ChS#Lh#t*V_60V\CvKneo<)lm[sim#It'?a+o,F\CDt
U"i#fWW>T2VfZ^P0qBXZxfWPKPZ[LS8fxuI>Df',$l5m]YkLvpp+nF1C&nW6dBh1_
U"=Y=i5r8m<4_CXoki(V7%32+gFR85:3RJo_\b<W^o^ofht5$LAmM8qr1]nTFscl%
U"0E^&M,cwaV.RS)SZ0l-^Z>HPFp+l9b;feQP\$)rE?rHX3&AvUjtO*-WMp]*c\D_
U"8eK-=l..WPgG?NsX%<46+)_8]Rhd16=AsaFq/ZB=V4FIDA;:aeZ4eX=m9D3vNnS
U"oIcNtfJN,bup0]\iTm$6EgI(%*]pGmeCIJ^78P$cS>u-G23o0soFEoIMKeAEcwW
U"mu&Jq/qJk/mB)),#m7C9Tpfxu(x<nndJ^ilCW:E=$Q$LBoy0fiYI2_*:n5a1;iK
U".1QvT]XagQZW,vYLAAKW_hQ/JTjo?)5&:\j3gvo9h(]$jdoWZkB;dJ/Ll+T4Tsb
U"T$2<;(b'4>*^45kAt9a2f\cXmS&PW$V.>svS=L$r,a]?[_Ll6'_4?aBvG.mne''
U"D/Rh+e%:n0MUUUW/4:<Ra0:F?*8Q64_AY&N:j_D1EdHgs1FCTyH)TzSON=gSa]3
U"Zp7k*4#bqRFG&yg4z[Fc*MRiFf*C*H3X&q:Ak/d_qQ;s%b]OOG0h]r-CFpL=JcG
U"j0Q%4zVy:$u:u4X7K;S-^(/Zn/*:&FuTy$<?_WMGoG.$rI_A3A]x/X0#FPH[I8z
U"UB'&:3'a'1Nr^yql#%08a[dgoQ\o=u_Ixg+H>_P(5%0g7i)(,zJC7S*W./K22T$
U"u>#S%Uw:1]V>9K'P'V&DQp:&f8u#)%7=hcS=5,2%pa-cbFgoq[OC3Ig+y/D'R/\
U"$+9b=Ac,9aO:[?'KG3i,gO'y)9ZKANS%oc4dRrT%.DwM)aYu:S<b_SMb;_McJEg
U"e^O/6ETd.Hsn..NS(Eoxo0<'3e-?R4;O'VOnU,oV3n/V&:k.mB,yW'Se6+&Vvm/
U"y0gy%g7ke[LBwo4,%E:Q3$OD(L/x0#=4gQe4m''a5wO-8N&tkcAM5+S+ya:%OYU
U":QCnDIA_/r10Au&Fh[&WK::9a/%8um>+?+Z+-E7FxUjTVoB;Kwpsm(IK)&'*OGC
U"G:I2u_<ZA/h3xfx'eY>_j3g8;4Rh>yM?&_jLer8'yG+,[U:ohg_\+%g8>W0(zwq
U"(P[hF^P6m.#CWOV&c:FH+wAG5CW+,;01FDoeTFt;[[=w84zQno4;#)^,AY^SmWt
U"tD(m/fMV[p;Hf?+dF]%<UoOwJXEDvpePt&al<%dhSZ4eb[4h\Dq*/\0-Yns3kvJ
U"7'/1TF5np7zhgd&tHGJTJn#l7eJYPTRj,sQq1pHXE#)$4%N7NKbe+<XeIpJ0SX^
U"#+R(#Pe#Z'sFSkF&6&pl+.5[^Z3Sezs6*.]=cL\sX-tAMe6wfu$Hi$J[B<Lt?+u
U"P$+qi-7Pq:C]F1.0)Mc8a:PWGaZ\odf4aeGGwNQ898^\YI1BR$R'Pb),7t*b-(F
U"fN7;LD)a.gY)b^cbSv3G?4M;m:066p^D?rJqQ+<VNvbMM:G+A%ug,+19#qf:RmX
U"V:5JT(f5vN;upbU[.+4;h#Fi<fvcZqY<i4iF'X\DGnT/+&U,aU2R=js'y()%Dei
U"fZ7A/IoSCK7c8,2FYKB37:rmZVh/Yl5_D(Hh<r+_G?Ix&A\OS%sXB:%ZWMBu0YO
U"pR*FOn?.GZO?p95H(34d:331RmN(Ny'(izDg+N8F$o$h,\2cV?sLsl?;8Ch9Jln
U"54k=rS7Nm0xfW0NtMxe5u*P:(>'Qp:p;LnjOD[QM3#L:*7M_UTWhllLgo-SZQ'F
U"7T&_C<B/O46aHHh<lNC0C-.&0T1Qa%Is$O'OBFT($:v2#t69('>Z[-M[^?*6i<h
U"M$idi'5Y2w)#s3do.4V%>Jj;(w5VF;CJrK.x]KJ2r8aZhaNg4Z0_dznjE73g_Z+
U"oFjsu954c)EYo4ulc3VR?1-W].Lk9eZ83M.a13KX>A?(5vX&o+\jC_^b<%j3cnJ
U"Ag.zMsfVxac+pU^70DwFq)TMyQr0baGF$h$YMBFEcr:oNw-Ii^nJ#NQXK:*q7Ge
U"jNqTVIv(J(eoFG&$b^]G#CkMYOuDcq%j6_7DTvI3R>,1%\4:e0(KkQ9s*pOYWA\
U"8SFh/Y:^F8QnvZ[Zr5xJp(KvR[tJ6_shpM8UJ(JL>Bb8Ug+wQsBG/m)28w4aqFe
U"m6cF?El_]BmqI+JJ4.YSLbuK:'xU?_$20BartZ)c9ws%6P'a(<yLHrn)?e%Zh$\
U"Iok*k6Xxrp=,QFr^H(vsh$-ik,DJ$2NF1M7YAU[4mBISM<VlInN3-L&Qt34H-X'
U"ras:'oFvL3vHYsuITEWDdc+Z^VW?VK2iSz^P$fMtje+kuxpuM7HW07Z=D/01GN<
U"wwij5<n7ZC%9Ykc1LWo6_b.Ws)G60<A+.<PI/k,D><?aWRvJuEI33_9cv\S\+4u
U"(V%B0&^?D_nTpfFSh_?i%xZozMHtH*brlZa>*KPAa/Z'%rwplL/DfHLs)F8%DlD
U")ebFwxjT+aU&MYpU5:cd<yQ$X$.Z6m7JP2poJGHOP'gxO&fSI$EUk^WtH'u#$.=
U"a#lCkdUv3rP3Zkj:f;Z4ah-46u>'J%*.^j&Z8#P#nSOaC]6]0YyL,yM+rQrhR)s
U"rl%%O2h:LT.1>K9:p)o0t59PLe98b)1e_LL6eDabK\z#H8qo3rKb0P%Q5jwOqW%
U"9T[*FjIReL-[r]F.%7(i01<N)+:T'Powa^$wAeS8o?5;:K^Dm%[W\nBDtRn3lf4
U"bfV0x/lbq<f&DZhjsvZ2lZd:Q/]K?O'.U+O%^bBt26GAw3tty3%18S_&l]z+.Oa
U"-s]FuJGH6mj&r>5&ZI0PWLSdI.Uam&HH?di[nqKy9F+ZaAirT9v>a_?ZEU'&a\7
U"O*CL+sfT9udPU7UtX):dMq'I9%uHyub6OBEA:)j1/hG2VL.#r*&bdha7r?.^ld+
U"^?P*BzcpR?&KA?#JRB4-]NpKi4u&3<O%V%z?K*Z)X:ODM?hU0\;0-o0vDD.dtft
U"-,v;04Y_OK[8h&A2X?^yIb:Dw%mx4tBZFbhi^+e3m6lrds:$)7YO]WjD5#ST?sN
U"2aUwo/vxpw&w5KPbs?ObK)oD'ktXwK+;&65NOw?mJ/Gzs'C/xiLms,2L'xaR;yg
U"gO$RrwG<s5,x8dkdN25IlVXN%7y7up(6QPPxu2zcFzEo_OTT$T)KLb0$xCU[b0C
U":)Lo'(vd)V\*X5CVKg1K'u<%P8(mpA^R./oHuC(HP]cpL<x%v-%*[bM0t)23x*v
U"5ixdU#;9Xx.c,>83'-oZtKQS*0)Yzu/=zQGO$%B:of(O<oXTNE%\wpPm\qz/I%/
U"Buu*>-$<]NgE(&0u*6KTiV+5e=IdqkCHG&qn_rh;A1E$I48c^bhd=MsLSXUiR#H
U"A1y5qhAW[KFfCdjejIa=cRk/DN_ijsEiYPKK+Q6BugC4dQNIatQ[4ZdrfA8qTgY
U"v1thl[4GzeF(BA2yK6PG5HAOC<+FQ5H^7[Idv:yIN6iS,MNor\2JuD(WD>&f9Ps
U">d-uocw7c2c.DVC#wUf*>F\X135q_M^TFLXov#FFgb$y,U=vcMtF+6,^5Op%us;
U"HLw-prM)Hyu0?QU3=9iZGHFl;u%0j_<?R=C+(He0p9^/(MVpcUaSTc2EC0ZqT>&
U"/+0(o[vytK4)<T.0<l>3RMUL2T&,lJSp[Z&icA;D>nRH>rx]IINm8m0445*^c8n
U"0Sw]E\#PP;*O31GB&f%Pf]er1ctMUv;31n7=t.>IZp_[Jty&]=B$#YY5mJk[O'h
U"]6--^O[bw;Mf2vx4g7\mbRjQP[L5IGArN\bvfL%,.iF0f^,_.Ych;h_5Ih,*72j
U"wtOnq0TP[I;lYV(Gi5[hM3xS%rgWXR;UjrD?.:gEq$]ZRUKCv64dU%$QLYK6h3E
U"-O-b>N/,$P>srD<7S/xQ34+<jLSj7%4g+V0E/rfzUk^#8&#Dl5^d__(XC9$suiL
U"MyDmpCumC>OXLVEy)\f4/2TFlOed$*P5'*>yF\(.d]s,DL7zmu*;.(mV9kO]rCF
U"]V5%0eevk'V:V9_uwoP.s81J-(aS0[5TF4U<5H+N2P*5uDP?Y7=:;j]?&n\-';v
U"lL$djG;<BCStVDHBRAnc(?GuHoS?\';-EP1XTi?U)fpY-?J0<Gt1thRiH0A]<jp
U"#rFa9x[W\kq,3*FmKj+t^SVdtw266E4Bu>BgCYPgLuC?GzrYZgV]kC6$?gO$oE6
U"X4xW:q%tR:wu1Y=YTcx-POk6bz1\k'?d=Lg?]a3>(JK8Zv-?rMrs^N[Og]p;F$A
U"_HXL3OpfEDG=GO*V-+2>DM)R^SsQ/DXE?iFI<0sCfJ42Lg#<*2Hn8=n,<GWgc5e
U"8yj\9D2Ikxd<f59R.xJ$eG6^,](vW4Lr6+]>q?NlKk?LEpD2GjegqiJSL+,r))g
U"'2?E:VW(>>fG_8_UK[gxvda_[IUb.KV_4A$A[6)N+7JXKU5#wQ]au]D?PON^)uj
U"iN(/*%\xQDtZj<4eo8D'v,L7/t1wS78]_vu^]Y+WWCRWPMC%cLjkA*J2S9E(^VR
U"%<m_[.GcA:zU[5D3jC,+Mi3=F4^1DQ?M#TToA<bfc5q[#a_v\&9jAN916MlC=mZ
U"#TT_Q0l.^C2?oC,:Bj,3D+6*jjR?tqOG_q^Zmoe=><-L\rZG[V'st4h++sl*Y'l
U"ZfTV)q\$IO;3X'%1t1yA#2qK?<tO4;Ff'tN%EUY%=#1;Wpz\ZrpQ1CS;[_<9ETS
U"MgL3j_dJalBu/<**odSD^g89wI-6lW2&==Bun.wLt]T?YB?E5BSX:i'L;2kjh'(
U"R70DA3E,m'(kVD_iir)6H>;qFSi,kNA?d1[&AqR).Vd]4\'h6+fPe9W,qk(c%V&
U"9M0$HQJ'rDth<YBuDk?Idg8JfWg\s)L:Bv(,qkP>UW(/>c0.Bm11D:k7hlpWQEW
U"lu-3pVgW^IRQ6,/9g4rL[L1ViT9:#i&odIbZvhdsLftntOIbV;aN:WBAM/?oHeY
U"o\QgbaUDcDDs,nQ7PqcA>#^n'Zc5G:aaVkfjQ:P*%32YhF/:ZZJ7Og[CZT.0i;4
U"UKJLb1I(J4O%R?]()0fA3LuQqH,3ePaKqB1vuMJCY_Kc_n_$_0:]lH-=MLz;3u.
U"[T0P,eBfugbsH+In$Gfjq$cWs#,lH%CzR%]%My(dnCEQc?kGdL?j?f'H%(dCl&%
U"I8g2tqPKc-a#W8n$Xv%M9sdx74sz8ug?(idb.:)kkQlN1]28qBSfoX+=UeDE,s6
U"6H)<)z2Tri/gNJqtOL(n=T&^xF$s9Ke[1uxe[x6eN:gjzAN=e1Ka50(pGnHqb6L
U"dk;KF0TyznWHGW]f1_LYZ1r#:(p0/qk?WONZWEYIrqcG'V0$#OE#gbG('F65.>i
U"%sD7[:im%H#L,*s&$+b[liD7^Vc)7eTv):CrN)R^]vTp$q6?**4h)hs,ylI<Jlq
U"e--BZW]67lgKjlQ,kj<qGRrCLtI6g9U<w6ufR4aupTTTY>j4b-gYt-MfLIG?16&
U"D?gJ<b-xZSbiU$V6aXt^oI4]8JuMhpCuhpmtZVkt,5KxBl]_34wj)84c+V6$rHZ
U"euPg4;ASQ6a+q5l[)?9J)Vxm$4N)g]+pn?gsOd;ni;LH-0YX&-#R$YNsj+Y5J](
U"QQ#<MK5xGK<:^p/n^dJ\mKT^$I#]/+VA2.k<(ct9t]u*LiPJE%jCj]f]cl$5tXM
U"fnGA*?p:cbs^Wh+wxrX8ps&vD_R3mkH<Qfj1X.dE=&QT.P\^^hG>1eKqi-Vq-43
U"><QME12Cl&5Pqw8=_;lH$jUhiKVV_169Y7qo?IP<:#mX7'#a*'uTAapwxScO3F<
U"7r=X#xuIUw\u*uWR7lI]K)NOdM'bZC,TCyx]F>$d;R\?q]=AKYB^B_PE2$\V?t)
U"v$9'uf,vH6Z#PpW50ZOp[N]Sg2+lKZpSbAsjdA1xR(W*^Q:B,xO<q+ss.wVXZqz
U"rsRX-N,xJRtN9$9VE[rBASAgv=Cn,,>/=,N05sH4WUCYhRI$$6>lR1\j^#Cs(lG
U"\G]U.5a8(,=.fJ&uRU*A0P;rm:?.nFE942e>s_H^\R.M>rWGka^0<=#mJe,Q&j+
U"YQiU_3LH?5hn<=8X[7%E:J5o8;cJPi91r>$i969S)%*rKAsxTCR]q#MU1>vVXTF
U"84[l6,71%\72.%WmrmZ)A^a29S<)'.>;UHm9*InZ6?3liK6:2gdn7_cF:X6mG.8
U"WC,n]=w[olJH;Hlq>.ITx3/6jPgvtHE1jV&IOulk7W#b^Di)g#fF?o#8xZ/vDb*
END SUB
SUB V4
U"Q/(bLR+M%F)[_i%7Hw#'[EW/85s0rGC])F'R-M?:(ep67[L(\WlSp?pT%laD.Bu
U"RcD#&DWVzN[;QQDCL-4GxhcwChogdYoAetz\hT4;XFXR7h9nKluXnK&MiXkV,rc
U"gRvp:/rgcn6y(PtLTd7rfD8IZdWlJ.jU.>o;'Y7eA<>&GZ;HAe%V&)&2^HB<*K:
U"(Kwz'8L^;eC4YiWC<PUBR*Nlw<;;CmSoScO0[Qc6gUo,0Ma$liSYx4l,1YXv^EE
U"f<Cn4<f_qq?QGX->g3DRg-+>IVAY<)WFL9tWAsWY:B.n&%7x=qfrW:ag[)ZEQcZ
U"bF=?au_hUdKxa5EG:<axt:7_bk8C#\,(kDYpnpV_Vhr_=YU/.lqo8tGr7CL\+,X
U"]$+_aW^fsrB<R2f+DRQ4ZhPL]u6?STRn<TF_:'Frr,Y.:HzF]XU\ibyG9L<+?9B
U"<Z,Q6llY8%T1DnN4VL?>D&8c1.Dk6#RPzj+D.c&mJ$$K5%_1X'dV1I1ROfoL:RO
U"?slxk($J%xc-TRLmQKrhF+7Y=Kdv'v:2J+b(=7JP]+)upAGN?ERSN21G)N8*Z.N
U"\3LIlZ_Lbh\mX=4o&hYLx-g'pk;^$k=*t-SAJl9cgQu6YTCr5\5A9gJ.PWIid.5
U")Uf;NO.Du(dJ)dQA0%vJ^j+&/C35)(0SAu8&$K9EKw(McqnRi86BV#^;lca:[zY
U"QZ:<%oPmvEpw+4bD*+bPwNo:i>p[^yI/Il5[juv%m;O:Mj)79m0t0K0;V7rwByN
U"h'nQ+t\ath>6Ig'^T*Dr0i#99Wr^LBN2TQcPJ86V)m(-&9y)&Gf34Dlm,wL6D/Y
U"/fa=]vfP&7B?uxX'paE;8%3gQCsyUpqfg.O-Tuz.3E^%gwf4;?)$sXE6>IX]TOR
U"0<MCPE^CL;7=:$P=_cM?v<S4i-0l3/_gP81t6?5]CEQK;0=a-EIoVhsA(LL4A$p
U"VMkKzQIV04AF3gG-x=4L8z.IkDvCFd;ZNpuerd;xb$rRtAon4csKF6S)#<R=MqO
U"sRrhvRa+XhL&8DgT>.d1&8jP_<'V.\X4;?(FL&eJURRSs?NDAmj4]U88Odm>kg9
U"W8LziEA#C_Y:SghV1lVVz,vdrx9HXmjg;X&=<$z\6jyCm*1X'egphn:w7hXNq9_
U"5Gpp\djPnv)P=-=$qx&\fj93ItkkjEOh^F)YlIN?4hTmitTH>h?WvGED9rw18,m
U")(EH-IB#dZilNP[oY2YLpik[Nba*':kn?>O:wTF&r8*$E;UbYliS)C':[+(RbHS
U"oWOm-^\Xs)Z+_47b24CZ<xpi5Qfe0l=tuxnniq#JD.$9g$,&j42q__5<.?VYtUJ
U"(&7:#wDQ_jL<2^6l-Hlnc,L:W7I.Ou(pQY)U6j[RoHd[\<l=t>_;LfOdR1tIb2i
U"t3BL]A=;IBh9=k91fduF#ws2L)Rs15?l\#oUaRUD3?UK$CBUiaREG^kyMC7ExB8
U"TiG<=[sr(B6YIH/Nfji^DQdxDlR.;9)lE*Fd^-FnDORX9Yj:WD%t?Z'TDLYRCA%
U"pjTd3O=GEV6WVf:sjT;PhhzWGKh(OXXzif2?28VA[v65\*.Zj+u><gjfC1jypvg
U"T^zd)JJkWJhSsjI)-+#D6[NKNU3.pjRw5^Nt[p=HKa3EV2BZrjBo=tf;^*]7l<7
U"&e[=xlPW/CkWscQ)Krj9=7b?J]F\T;v>5Gm5FfPVGpCb5TlObkf'e8CLlqOLV=Q
U"nYZVNq$KT.KNC)eRq%L/IRASS#9?RO2[*AcJ:d4&'0$f98YqAug3Rk&$LgPVOvR
U"?PiWa1#>bM0+/LYCkuLCrHAby6n^UDRb<m%69^>rZgRa8%3dSrH/_]#V5_QBY(s
U"6UNAC(p6faUQ0($Ha3%e[anpLb\SHHa\BGRgGnTK>gF+Bwbh8>6\c_1+jcW?J]'
U"sSi-wt6X1dVcwg]OxC.DLV)Tuu4u0x>wFORPFN(RXUOph.shuSVF['fp0C;ToIR
U"d(Rllx0.A7.8FVu^.j2l43\+R8$JU[.s;OYe*kf+NR8cOHLcLe&haz+3)Plv,Ce
U"ha;)^>qs+06C$N-'K8\;FEp?0t,>3DL_%zppVUEGi:wNuVUw7uRuwfmCtO:E[,Y
U"'o%-%];E0&:*xXoYMF.(doT[[#D*GNDZ.j>nmhTU0)3.ic6aHU&8a%0H1Zk2/X\
U"eN,g,CwxpD-:_u*s+2f_prE<$>^T6hdlZe.0+]G:rpLjrp#^iPqx$b^r4vif;;w
U";_nk4J_4s\s#/XsU]jjfme;lqI[>5.eP&Mv,N,FwH2rY(sK(d(O.&_UI-rH,98D
U"wNZtEP9qr%tx%%up(%)9%%%%-%AAOiNY]nsiS%2%%1%Z%%2%%%%jMG24;Lk8;4L
U"S2;BKN#:>TT]kJkOuVRogCee<3]fafSS_>l^Zs7^KE54QffvOQ/a'&,(knyuKe(
U"8.>wKn;A-F&nF&SQ6<Z?]FTG1hjTvzjJ/YS=o4(#$tV\j_T?vx;=UUU%-1AH6,M
U"G]A-9TSeV2a_k$YfaFT;q)8%ihBA7>K;&+7G.8KeM[RaU7^[(0E#K28PJ$mBK*:
U".>LH_K\+tQ&BV>tIw;6;aK;I7#m'3EHF<=VjlLNjthQUa%4t[\^3Tm<A8S]Ka^3
U"C+RJVquWxL?rTLU[>.o-6vCW46p2\&;k$1vQC8G.d]K^q>%bX9#7UqH96O6<.Re
U"/2Xwfpzajrnr[sFxxt1PDE=HBiZ9Zi\W4R%vCk&=tpXe6dFnasP,hEejIzd;BMD
U"H5ZS_IV/]tU:^YoS.2*9(OS;(iP3B+O&c0A2dstpPogoE%662PxCLZUR2hk^D<;
U"'i]4eoXqhmpqZD=$e_^ek-1G2*%$0I%W*JVjMRU#;uRm0em<nb6%KB][17A)]Lc
U"nJm[a9Wq]M8kyIeJggOq#kE7/>#:YQ5('g-Rn&=qr[?AhSG/03/Cnkf.WT_Z:<r
U"lce[jiHgimAuVcseU3<aZj^73]x8=6G;JOoRNK$FYb:;X;>%8au0G++aQ.V3ua5
U"::7K\aNS1NLQ-vZL:jcCRv.Llwt[>LQ/<sIe8#W6#ra[3//#5LNE=(.?KH+<[M>
U"Jc00QC3jb'U#&m%u&+O-*/\)?S4r[Al$>mTlFNk,L5qvTK^tW92=-9pML#o]=-1
U"mV(X#_DxC)D27-;80)lmI,[7e7l^Csq%?0J-'9-W=pCU0N^27A$-h+*NXC3lcx&
U"2^RBcI<?9h=]?2NQPimP).T\0kR729ca26&PZ9,^0kva+VANhLm7+WVB0#t%O+5
U"2f.aoSmhe53XdSU-)geI;0ipMl-)cMXC\0%GP:GtF83-9A9fsgq%a/iYJ<+:]9U
U":up_oWqB.a0??LUu3IHl4$iI*(zu?Hl(iLoB)&Q&aC]jr&<$a_p89?e7[1O5=0,
U"ort>X2ecIZ*#Y3P3_SDaVp6sdD&SebR77,/hB)4JrXOhs2%=)acUt5XGXu8t=>H
U"pDaF8]>NTjY*2K)4$sMQJ]+/AYU#Pdd;bb/Mldm4I0A[\u^XiXt1-jslwtj1<)7
U",awqlUg55Up)j&i8w-+*3$q$fl=gb5']d<Qf6.2d*3TJPUUh_JL2ee;'ZDYAF2R
U"eFd$?yefQ3CDG[4q_0Cs\2%n72;fAR/mOIdu<rV/%]88#*x\[i1<4Hx,RYT4v\:
U"cLOK,v2=KbY%6*=kPWtAPoU1=it6p]?]]2gDmBXa]Ct2DF8X82GZ$?1m]?_m?s'
U"(Qs#rz#8^^('FMp]9Ee#ib7eOj7ja76g0N7h^\S[B:J1E('/IC.'aHL*4]1Ai[.
U"02&=H6'*Hq*0prUbuKj(\WkKt33I=LktS03GmMaa6REGeOWv5IOt*b^g*0,zr-b
U"M\O;7a_i;<onB4HL/xj8PcRkj7bP+ILna*\[ITVvNtY1KpyihOgob32?;-Z3XHc
U"OR;ZLeDtmm('.tlr.iwI3>A-,cqG6j9^0XS=R^6TccGGao\R/abcX[bEJS]9'_t
U"r\BnHqk/(pANepmDZ(g?t.EMFP8q$3\h>r%S0C(r#rl(qRbB#r#%VRP.4yA)r(7
U">nJ'nL_gVN?RyABfT*kcdn$Ujlq?]^#E(0u)O,<UONgE>>#D,Uxe0U*)m9xnk'w
U"?lA#(xq6E]73c_Yr8EBIko*u#K\sVC?WF</-R^.&PJKD/$1e_oBo29O/7f/.C3.
U"iDYf+f]RS24MXmx]otl?4O>s?G=KUo(m$zq_?OVfNe9?Amc=o#:Ta?J$&??*Gjn
U"Q8XbOg*j]-m7q9iUrI;gvKDk0oVS0O-GM7+th6m(p8JPG*p._hmg7OL>wUilaO5
U"rTGQ?RLXq5C;vp$*6MKm^r*j\6G'oI=)[)JYrhLFxvHbm\h405]o]l2*5yKjjWm
U"CoMWTG(UlQ38*X&i+4>H8PJXdXCKIy]&XpFdIz$cCt(]snJyAi+ihti%iP(lM$d
U"sz0k2>bR0inaxeP,\p#7HP<$hkr*(99wM<X),ns?tXSE[2,^u#x>ZQNR/'u1snr
U"iZnrH5b$<l24ND7_l%J3*2#7S,4QPQ*#tjh#K9H2Pns&A=,^aqAGKc)o5oAm=wI
U"LaGe6A_&L:sQUY^g$b<>2n_;_+^YNjFeu#O_?LMUMi5q$nJSb)71?:E(J\O+NQ4
U"1_?7,u8YZ8xRq(lW5PB^gf&q9l.dnN,eQae3+Bn>(vhm'_%sx+Sryh&r:kEf<Pt
U"#pl0EKYJ[n6#$tF.81+d%5*Iymm;?+G[Nw]TI-%H%o4qJC*kswB3)c2bO=<,W\u
U"5L9AdE9I'x$;h,)MIBUl'8&nwF1f2A,hrU'A8&AC>Jh=w^,zJ%Hpa[rNa2JST/6
U"9Y6*%F^JX3l\KK/P?%6^9lNA[-UnE3^jWz;&.MF>QJ?y_j1qk^>$IvEe9Awi,eB
U"[A::3RGQB*UiKcsa<7AvtoNOl3W1Yd23DC.5oASqzCi;EYMlxM/%4V<xnrK?cUo
U"Q$v-/ZUC%.DA/6/Uq.kC'D?5#_$7y9KU%(X$O\We\/*^&G'2CC,iF'l+mjO>RHP
U"h2SdYu4>nPmqy.?FYub%$F:T[*6Dm<caxD'#6mpeb9dZQ%>)YoaHm)0:%fyAgK$
U".DB,q[%w3X=DMTxgVUn'aD.b3[e=aNFv2-5/BW.#B2OT&kERD?A^6-DS9hCx]kU
U"PD&[&',Ikz-D7RKP1j\;ST9a<p8\^wiwOlWQ4vFMj=?P8PpW]#dhrXns;opotEo
U"0i+(V[EaMTk?5xx+Y_FvOG[O[xN^<QND/C,wTkJd:a=p3OkEu?tk5ae:^B>&pXi
U")-hL+Wv?sq,-#+9X-#m3FiwKo_h,/J<2*vm&_0*Q;anh*CjQp.y6tlWsgGw*dMb
U"D8=G<,.DsIcq_yjZ+IN(N8W77sB8uacdeZ,hrRy>fU>+P63d#F1<'#S78qnC0Bv
U"m<A5#uGH_N9s-m_>3x9POGbbC]4bt<qr[3A&**pr9F<V*r-lmZodgivn:F[RS5p
U"83?6y5#.1QZx'Jl0'kYDuKUM&12YnqBug113/*4u7+*%DqiW]9'fLG_lbxB[p?R
U"8']-),>DdaZRe,4;&>o\;#djJr+:/oo?-I6BB\o*qPA43Vv[)_%PRqaKb:i/sD8
U"H0M5UXk6VKXEyvl.?%P_gydl<B%t1hrLiF,IKEPRQw1TV;I3rIZK)z;..704_b<
U"HUFb>di5:DjMwc0sPG9Cql]LO_)JO;[h:-S:1T3aRS/Ra=V<dI9:=k3MahHeDgs
U"wMDJ;rmAuc4sX)u8E8BvDSO^aQTB0kpHI5umy+&>;<VWa_GT:tz7gqNE:MkoU\(
U"<6?;I(i,577pr]G2[6'+L9Iqg>pQ1w[Kka'J8bGHB2$n:*DU5Z>9YOxs2AVtJPL
U"XUlZJ9X0Si\b-r%MY^HJUP8Jt+&YFWdgGOLQ>\mw*(m%_q0EYkz0s76Uv3TIa^S
U"_kndGP%V90'4+j6cjy7&Z0*tPP_;76DTS(k?03K[yZqZ6IRk$-cWEA?14v:VIJt
U"7KLs8aH&qQkhV'K)+qVSyKg;sE[CX84Lvr9nV\6SXOdrD[PTG[uW7y,L<(%v:t3
U"D23OJ)N$HtueQ'ZgccmNS.*PMTd^((3Fx8YTcBL/Ktr#idJ1gjXi^',g22Iy>b\
U":tIux=YIEWsw*msGVdx-6(P[J=Oc5hk;e;2A5P$dPrZ3GPGJFAYlk>>;P<KKLR%
U"^e_CP7*SyLeil+>I;[CJB_(u;$/U_?.TX+Vj_QUD,lU('><jvX4v*t\/2hjAC/o
U"e2iTDqHm4B_tdHCxl$/abL8GTO86xaG,gZ-^UgbdSF:/]bjroo4SPiT+1F3OJN'
U"nq3wm;BqQvG$7v<,:CDjLs_233h=y.Kp\-WY#Kv;&c$O8ONWtf,H;+uDg/^9NdJ
U"Az/::Qh75-+>rWF(mxW?%[4_\xN;9+9rVa$,A7HUK/5Mm<:5BW03c[Zl/6M]7y.
U"N(/<mmzbDS.Q0DFo1WT,([j_a6LSkj8nCSat-wTOS5^u$B1kY-O7RYHi(5<Are4
U"jY_vxd5>UNJ:+ebf7NJxJrFy/$fS\?Dz_p+Z9$[\81^+w:s91fNS?*?'YQ0(/(l
U"g?N9f/Ad7u9;uRFT+X2h8f8+<[x1lT./nqB^Q2R)BIWxoU>#u3G+bARJn=(Zum+
U"x-u;k??QS0\8m:NHeG;335zOQq_fKU0;kz8OHi(Ao><XhAoQ_C4j[i#EQje-=01
U"2d,XR/3l4gX)(Zns'omm$:>,+Qh?tdH[?6/CG2H&c,KB'sDKuK$cNVn+N9EPEY-
U"8uzn5KiFl9S[DL7SHH(xuHcno;SvDUgk'#4?&wIh3VNT>V3QW+jIm?[ds;_MIeS
U"5wYVkk>.r)\R0R\yMIxsNtdfHCfRD/3OO1^nrfIjF?<_+IrO\Dag3w74UhFn;uM
U"P4seTuV<tUTGT+EbzBxS*Zh-'qdup%()9%%%%-%(OOiNgkWlO'6.%%')F%%%.%%
U"%Lk>A<IVS5AP<.)J&>G^7ixNtvm3C-3pI)=I[ehWKdn<g)3B<-?Sa>&C6KCC#Z)
U"KV5lVg_UkvXy+Ttfa8eqrUJp5QD^qy.6VWrIo4hE#BFous0tflt2*8c.t_Kgqd]
U"0R:f.>LqrLl?Q'bOuahHn])<Pu8Z8#-Q:ycVX_F3*+[)6=sqSmYd)uTYS&,v.ei
U";7KjY4nOj%)e(YaGVB$gS&7KLn,sLVC[Mt'ga?H9(QiVxD^qWM83$fj1F_y'#oH
U"V?ph+a9[>(y4hB7bPI:eN?6?X9K\I2fpeaOo&I&+WRlW(0GIoZ&/NqT>w5<Nr5U
U":>B87zAxI1#9*,5L/o7ODA7F7:,\Uw8+:#a.&lmfA1sGQuR8:t]%ZQrPMvxW)]I
U"1su,K2YfZ2UhIH>sBnJ.IpGYy'pYc>;m^Z[9hE-ln/7Z>3PBQEHa?Pn/)?4Ho7p
U"pY>JOfll\S\IdkT%pc,p?K4PPnCAlYnp1<;7&4gYatKZPKYO\?[ACD*i4d/b^??
U".L/d5U*ga0B:0O5m#qWB/O<CW9eh/vYj1M1P'[,qqC&Od8nqonP)ES8+DTQ-c?i
U"I[88X.MwwE-'BwtMh14mDyhv[eBB*%dyke_u:6Ao>XT%_S(.FA['a4P1Q>)2U_P
U"iNS[*mcBQd<o&VmsQ7XW*>N]8'u0gtZs[U>fFAUw7G?.I3.x*]-\n&h78-0'>A?
U"5a'8(m:fEPKNMgMm\:-VhB\?tZY:6:VNd+]6H[)RG[T9[$_?&]r>AgRb/.BP(l>
U"bYU'gF_=aN*Qg3,'wP5#05D1b)ZgqgTrM<[dlq8?1>;./eu;_r\qQsQR+jvpE)l
U"Yq5EU>k1R.>g$FNTM,M*bxM6pn)tn3V+67NpW^aHpqdB\pKElipzuXdhpttZtrE
U"K/\hA0ISoPG/p[*C47(.4o;0(%_#(e<XM%K3DC5BJClJ)*4BZ%g_O\Ex2m^8j#+
U"h3xWl((-$mne*[vRUG<,CK>hOs'FG:a[E[-N4o[Fd4WmUreWy*Vn)i5:&Mis/%i
U"s0\:M(YAinTcsD>e??8jkqY5^$y,FvpD?7YCksGo[k?Z5_gEKIPrw^3l73L?CK>
U"NMW]FGA+Dlsv,8UfkQ1,f8Wx:_0='<is<UsT8jbbCkd,>=wrq:s:%P%RW[aEJ53
U"75beI3F[FV>nfbR#Y3r\9\l/Um0,vN>3,-J_[kyvq'Gksry^C^?dBCCzjMJcMr5
U"u<=Zu[bfM7=R$>h[q.#VN-l'^%0P8Ue86'BxRwBRCFN;BF(ID/F,*yjY/aJldP>
U"..-*G,Hu1-P0_s6TjnGmOdO:0Bu9w4Nfk6v_A([T6BadL$#1C3^Y_Y,[b(uqw^\
U"dE9t8C'>/U:.E]F\.1CyWQ/^,=E#W+f9e.o89.\_9Zxm*&cu3h#=i&9_tvWSQFP
U"WV+f+N:R_&__8Q8(QSA5L=t,U?eQ\mWAQ,,kAks9YR,TK6)>)p.J>W$We1:/96r
U"Xen=VQh36;l\^WYA(qHDm>QF5kg#FeXS8)g,2:^kB]^;p)R)q6]Y,YM+^)>PiwB
U"#UHyc)\;g2%a1b2cZTEDT0xa5^\'5M.YFg./&r$TidChY+XUl;LQBnH<iCrA1az
U"WOGi,3%nev<IOmtXO'ncM-a1yx#v:u%9DiwD+RBr&X>C/JjnI5YV?['w/A6BGB#
U"3^&/]$\wQNW1Y/::;F$v8&/L7<_c+;,Y,2>*$Q.VW1<$MBR]sWLI-eRUjN^Xi'N
U"Rq3k2_Xz$F(VZX=#Jh:3D'$^#6U:Yd/A>0EK_%F/8/e\:>-N3b668;z<v=T,E8F
U"FO7-Q.1aH599E2r9[.im&O&Zg=fb1-V[G0fT;T\-WYN&tlcrVW$[9[;r<0p24'*
U"Q$2eZ;S;eUoPlUMQrC87^W/P1l;\gA=dMqLmr\ei?E;I$mYLl[V&q.L17ENQZ.3
U"YE;oZ)o_?_V5BSx/P\q.$&G17,:I?tpDjHBn32gVh]j\$fWO<<i4vR&l7gRRC,i
U"*WkB>$i*==X(v_kPhKQV.(v;_qEnRT%+hAO$C$V[4goR[nRg*fDa\^pCM]Wb=]$
U"ClhEZ+=AC;cx;<DZUj5B/0J0X1oXJEE[Eun<[)dy7pC.e*T=#F*1%x7;O<63e_t
U"FHcO*'<Qh57zrpi&8N[vJw'f?hMlXSJ2)DqWR>T?FbNSK0/+?DD'mytfPDg>wD,
U"J3%RA<,s/cf9x_>Lerh(MY/0Xh)[iUhAMlmw=DAJE9-jTrEG#Y,39aR*v-q&JUq
U"0a03*,ex=\/-ZOi[VZw=<(9^gd]T0VdId=Vc?NJZ'aoIE,-D$+?UDWc^Xo4fB_A
U"49X,-)^c%['R#UC<qBtYUkAUIpk+2a%_&+eA(M6HT3sQ+47&m.9?Mn-z2f5%X^s
U"Y(79Fi$i*2I%c8dpR&ERr0Q)6s_=oRmk4g*D;*znSo(/W*epZN0u%rm'Qo?ggd%
U"bF4A$>m*qdG4Rb19-7/rW[T.]1s.h(o0IA-jwNFU<CqV-0__+=,]I2[*k3?2O;+
U"WdA9_?._,TR>3%2e:qT=ijSjJAH(;F9Ri5YnkR>V5CSeesHaM-dn$(DN'P=^gcQ
U";2]k=aKi>Qp]7Epf&<,)Mg$k2qow0C0PZVr)ZBh9P402J2I5Cb/8Tn:qZQGRRk*
U".Q[R2(AUEi)TF+e4k*G+U2+Bqvf3W2CS5c\t$mk3#^3T6Y8Bkt5Itm*_)BIBc&T
U"TfOBzDiCv3Kq(CacIZ*_$<V4t=:hPMnMn[0BRnj#KK%M)ZN/N-QI:tiTY_&8TdE
U"VNl3n+aDFq.;'VgBx^Vmc&_VGJ<F5c4lG'X)O$)c-).dpx5lKff\Fhr3n+a:Aj.
U"jSZ]/uIaSDF9<7c'_v?W<i_;e7j?uo%(S_d3??aL:pZvTw,SSXM<Iqa3*MA87L3
U"'5]P$%ETZY>Fio(U;^;.MC2Esag%-m>3e10J6RYXaM&^KS^73FutV3%]2+;6A69
U"#Dum_->f23KHXZrveBHN:BzVY>$l7^bjHa;]M$C<ndnh,bbL2E_Z/5OMtzb-AzE
U"+<Ijy$?sA6\*$_E:Oa$(3e]yx_hOaH&<;iU$EMLr:s?&A=hftzK3Azv$u^4?F<L
U"Nzhm7vF6)LQafm]naKD*K7^Fb)?]At18:TUC[__+I/cL;Ket&qv_*pj)*5zwDhG
U"0%X7_g#k/7H\w+?\opKD?IC.ssYAZ(cX94rRdQS'u\up%()9%%%%-%(NOiN2GCD
U"_%2&%%&u&%%%.%%%Lk>A<IVS5A2G<_f+s<U5gjJc8d([8SWKe'P#*wP'A?&\m*M
U"eAtH)#oBIA3YS/lwx0L;-G5iwNN_eJ[jV0(C?u56Tt3_PV-^IA4s0mH[dnq9R:Q
U"N?c>r33-Xbj_;/>QY6<<4hQ<Pi5H?I.9E[sS(TrpZZD5Dk%?Z]lnU_<*+)e1c^B
U"#gTA.J?&A?NwBZR[z>v#cL,Vu-90\IH32sS?qaGe0f(imgN>dg:[SPH0Aj(3uAh
U"x2nN%_?Gf\:BzqLYhB*(S:s-A\c*AG2o2kRsKt7GQk?i=N;,EWI&+pR9lI(pMG^
U"iu+XX>VN[x%<,,HFM2K]Ml6XI7QTGfD\,t\[1Ib2DU]6g1'n0up%()9%%%%-%*1
U"TiNBG5.U&c&%%&f'%%%1%%%LuA>9242CVLSE1?Rzv:=\je56FHj4$)L8P:E&lMf
U"AYh'u%j/[OBMvJ.BOUIjQggo4h#k%vcpeQ'RPH-IrlU05nHx8n45(]5%+>?:6L*
U"W_>r;Y$)C/e\U5NSLHv<=*i+j:oWRPL$TuhLBkBtF7k[QkFqr7$WN#Kl=gCz,ni
U",y&>r'yLF$<9>N44pB,H'gkZ2Y*P_R17BV6:27eS5g;f/zX[?^^SfWYooo5[*<C
U"Fr;o+UuQ*8Y<7Pen4;H+v.0pwYKq'\,#]KftW1=(fu78_c9+rc)i.TrF<LG?Kaj
U"hqgmJ9Q;9=:u*]F;q5;?'a.7X/eER+\Hxes&BVd=uof;Xz9Af9y2XPr*3C1EeMG
U"PsHqueD]9Lq*p=h70S\,:Yt4qt[C2w>/N#nlV;%9n:/tj+NPB7-2?$N9qEm8azp
U"]cJEmmpHr^TFdC_X(/6GbJp/<xP,87b<+d-F^<-(bl5oQL=?7#&*A9s&'$0Y.PK
U"H+G*>QReND-q/Mh+^9h;w=c3Vco0LBSJr\5i7L,%up()%9%'%R-%Nk[MNcb3M<U
U"H[%%a*%%%,%I%%G;JBSCGGCfb,tBT/+cH#Xw:4;hhKf$a^amBDbmpl/^o=x#GTA
U"sKJfXMX+C]pn,qaY\G6rjFd%%5I&.usbKKf^ix<d'9'/'QE<WtTPfk6LjTDjZ$>
U"ukTR]uC415)iG<\uLP\4rVlPjOaHY;2(IbtolMj[T;06DH/WI09g:da7/<>ObYC
U"(H94Q6rs6ZpDU]X54JedSt.\4bIM)Gvfm<<WWh8kUr?LgG*4[1o+ZtIl=4:^$<E
U";N406s]dt/:%bR]2xCF*,KveB,n].)Hz5lU=H,v4Wk%UDKcXSNVl4k1<t&c55m4
U"fs%<MD6Ol;6GH^/5Ox%rHr5[ZD\A:.ImYC<ia/qp3qw/eg_?^LRp[XKtSA*&.uJ
U"IW#OURWpSYWD0Dt#o,<tHmV9C0q(=G;TpVqqiYfqcTZi$0)gHgI/7'G',Ua+EDO
U"c&FR_8hS;WZm[+WVat0FO6X>/r5ohh[DES^K8%YUgVXkVsB(rrbf$r2_\'jf;>v
U"R'H/a96PF6HgujPx9m+(uF]#D&wX=OwED?/=yuXvRVO6\m4J8>t4nPhvotjd#$X
U"4N?SSo3ud0p;NhtChgu7(c4$:iD8&:wPQ0ekD_XFOs)GGj#40o[R[t:=El3Xm_0
U"nX/Wf_Rmee9p7T)&-SO(V;3^tqr:10>pQ/0bf((oTp*M*4*l_Z$Z([tdoaRT\?O
U"X?4mVAC]Axl50,WS-Z?s>,77J0Nd5_\H-053J-f1+A1c:\#VE#8?v]p-9HTic%J
U"1JW'vb;cF^XdbUP9Qkk=.c:A_R-4Hl+kF&C1(\m(,s$#ncGnB0Lu?\UNb>Q_%zT
U"L.tz8N?rc>tR*V$Iqe22-Y8^&w=bxX'r\jd585Lg'k4OOX=KRtktf1g1AV-2%N_
U"hNprlE<>-jdMzSG3>>J?9lkU]6,+p4=<OZ;ir/b<(':D5Wh9Yd3,S/7Z+__>G*+
U"U/-Er**IJ>zfv*LFM?:PmLkq0aGtp'WAiGX&:j;M*8(YwhSqj%B^To>ZC\#?fgV
U"k7Rg'IbIGbe^P>B54x&fTJ240Qdg:)#_4&%QMD-,u(D(%;h,A8?J0SXla%.$C6v
U"ea%rH4IrmH04d4&FY'Bsk?6];1A%e'3q1mla6EXpNOHkeoR+7#n0f%_0jLkd6Y%
U"Sr^G8b#^fS=ViVh6BT_F>8B?0E(L9YO*%e8uu/('1%KdE?/FwdC#SV-r/d3#9a-
U";1ae+gR9YS_\oxA0OUSI#HUcK%k?\Te6_SX-iGQ9Jedy*'1e*YFSV$$6or2X76g
U"%lI3g(MqVwi(7^tu8/(;L)gG6L+tWK*%c&W_Sr^(r\;r$kCOJiErNR>[NQ8%I]d
U"UT\3rUgNM[nM[0K=O8YlE,VTn+IRfmtqriB*3M&:*Xq^GPbQ*07.1+#tJt#qdqQ
U"UXcjO'Tj9KIm+CG)5s<.RY;MKm(H)C^jI*()9FlR(87%KsuhQ\6<;:(TFPn_5?)
U"lK3)96j(AQ=5G[ARm/YWIe7a15atS8Y:m%U7'e61JWB\O+1u9\Fc%..bEL\7IH/
U"L\H^;hYL//7rar#v'UpkBZ9;\J7psKO70to%X;Rhz\V3J42ya(**PWk*,Mq>[i#
U"F9w];DZ#q\s<[lvdZuRVH2V)2rUA7;1BI;;\+D<<2cRjJ_']7JC9f4wKoGUxf\M
U"[SD+ooc/;XJ<5='><0.I1/uKJb;$0Qgx#9J5Etld[q:Eg.mm=Sqv9BS3Iz8okIA
END SUB
SUB V5
U"cGB?=F-*wlY:[eL6JB>Ymi:8WLW/U&P394$4\ja('P%'Rt6kac]]pl6$YRs%HjE
U"<z^trt1;%/[w8uKZQZ;dK^='06D^bH&Z9lD;D-\R+6$*F<GI7?0.blb9=KP_[B^
U"a-']qmQrqu\70CAajFs=Bf#t<9ya7ChF?gsVl:ZDZ&M&C3^blh<;9pFKvWTI\b-
U"jj53D-['<R<F]&6QIw#7Gd=/]n.RmzjX-)bU=MGjr%3l#9P#[UD/$/kR]u=.RXy
U"V_gZr<qZ:-gjhtk;kPA(68:Hj5VZ0eYY;o4$E4.&-+yurcRls%:%+hsA#AH3>*O
U"rhd%FBGGnQ%j-gM?Dr?JYF?paK1M*f+r3J-ug7A_ej,S3PvZ:nj<Pb9FX?%X5j#
U";(8i$d&o5s3mD$Q&J[Ik3-V$HA'<VS^Q8>vi&Q:M5%>VQlw8'<WNSu\hJuWbNql
U"sPm]o?bhscfdxuZxNqCYAN<*Z;FN3^/Nel6:TzVUDs,jtz0((u6lB>ZqfN,%4M/
U"9qfG?CiL+yEIMcWUDgg0X0*'D:SqCqM6Ast_R*CX2>i#_l8HE+)\Cw9,FJZj]11
U"3bb-+A(62)9I/:gzG^^CBGducQb4dP:f*Ns%Wj>j^+%X/>H8G[xdvGPPmN,mbHT
U"(3Q24hy>]rAJAkw1LzG&moe6xq/51_NPIiIb$iXmLa9\hG3l4ONX6]8$c4#lf)d
U"od8*6^D+HI#Cpe:9\1Zw^nmDhp\7css'$Iw9t76CrGbmJZN%aAryU?yY72WEP0-
U"v>/Yh\6r;$M:0mGr.PTKtk%e9R(uT[<osp)g;LXeDYr8[ZKMwM\M*]58c7A,BM?
U"XP^h&4Prl%2\i_?#=A/?qhq4z$2%2i_+?#1Oe)(lx.cJEt,kQ[/PLgrcZQ,Z2Rc
U"(SV<_5w1s+74hgAu&Ts$&(XRVShRqt>#1^E>7DV&MPI2.>aWJ-Lo,1Qq4-*x/qD
U"D/.?f8tf>BbcvPmqM^k%[d00+0VSqtMwo3;nD:+r8vgA4&_v-)h>7s[oE#u\nB%
U"'\2HXiGSRFrqlEZPh=R[^7'w.XTDs=I*SQG,'&_s(y.W,M.gL,K$Xb9>F/U'>nZ
U"CHeX5tVuEkBr<=u;p[_*s]iY5jttKN)wsd:Y7[e.Y37yV0ka1j5fC%fD-LfLs7/
U"sc0Z7#ks%Sbmaw?Wa$/RNsc[W)rpy3%ug,^Jow>96#%B;>u?00_s;:>guG^nrB]
U"\$[lLVl,ujNRREF*eVc*>>02GLBcc*9]XEVHXlVk,W-NW+j*Uq/jb#0$->#%Xbn
U"k+V\&aXn,)Ye4BC_K6#>ipFFu1<R$B&2f%]pBnvsro\&>27O:&.J4dcQhN3KUch
U"O$L#[4ZtfLDl>zDdna8r&YumNFmikNP;W?&WjQjDXFL_l[NIz2L7$j=W6B4aXNR
U"4R?W[4w?>dqS.7Dy<u?O-4N2oRY_pac0-e[R%D57kPOls-\_GTJ'_#sZ21l2-^v
U"T%Tr$8sA:gLEm<rQ&2]w\b>eE5]Y)t<ZVVF:)*r%sp(7ThXTHh-_(EDOFWr2eMA
U"<rEoxm/1/LZh=8*AD;?P\PkJ13UW^V3NO.vS30mPsZ56QYZ;qO^lD3Pb:aPB05(
U"XlqI=4D&hg(0sR,nVf%\u6#W;7l3<+#Op0oFV7P(n0%?aC;4D4ksg&/1;V[xW1G
U"R)Q9W]vuLjxQ32R^=u4745qM::up5GZfRBAwf*OhGJn^t(e&*\a7XR%#A)G[A+Q
U"GUh\peK9bqJ/e)2HeUc/k+c0ih>u$d;=OnY:adoB*X^Yq>jb2h;0*Eq?Ql1)E[W
U"'c%Xs'e/2%7^3rqUMa?+X*]pnIfLR&AS';FE\8Qjj/yKYBAV2ti3\cCAq$]lJ&#
U"]_ssk#*9OXZo6CI5,RjEg/X%<ytAiTUJ_'Ir_9Sb3&smhJbIIl_c$[3r)Ns5#j>
U"H,d]h&GQBGB2hCrgUEW1j3rU;0FFEu9_]130+AVw/R?\hdPgdA3:]_<a^1)+(-V
U"mjkHc_BCM_Bq47^sheA)=.C8DsVW?OcQCh<fl*>p,+5=^zhclcu4(_CSyK1AyA2
U"Vm[o?+\k7n+].Ta3N;n_)V9gF5:MNpBI9I#R;$3[G/i#::SgDhEHX;+79PdnOp=
U"B,Z8Y(O<Jk;*);AlqZNLq5,,$xjuTLuV$qSS*42s34oo)wYoPexRtkb((CTD;'R
U"H*3\_lg=1)+6W2[P4W94I+Iu4#)+4J3A#D=w'L=TCLfGmWDt$fo]q?J&o3R+P4a
U"-)Y=)kT*n6d/9O&FSwdJkb-[l<A*=U/9fu%Jg9TKQ)&-jB('n#p\&]MHtR$$UVC
U"sf83D8R0l2(bMMe%lak1>xET=Z&JP[wpZMF4R97GB0C>0u:\OS^jT2/rJ2>l;/-
U"H(Z#Tn4d?ks4)0QMo^:)oS#ujg<\xh(T]I%emZWomGNv#g9#_8dPm^kHpORRw_X
U"4h'%SJUL;7YC;-[nG>O=O&PcO33JA+w4+7lK'u[r5Aw+^_NvaKEA8kkp%r7Gj>_
U"pGqX%#Xip%uo&pd:h_)wNyXZlc7%rZ'SP66'W[6P6>5$Q$C-&$SeZ]J3,(?=18r
U"JYvO3RxIxxa>^TwogM(rnKs](8>#A6=c^6loSIPNSJU->?K)6n=1C/loDI\Y*'D
U";PP*,HrQu<NzPlkt9DG0g$uU'DB\3GqQ:b_N6;(]LjcuB#L+k3QI2R$LH4lf\I4
U"u/LQq/<b61ryd>UMd<NPvfzM/4Qo'gE#s.F$bH-9aX7bH459<PIWO?MEGwT_;Au
U"**VkZ]W->$pCf1VwN?Um5/(7P-5lD\*nH:^2q*96qQpU(XezKY5q]^aPEV_dOW;
U"w&Q5;TJ>dKjzt>o4p)>&-fErxDvolccV$I4GInt.7t$YoJvGudWh?)&>LdCY<Vz
U"-&ttLR<d-<s?Tp#+0sTRcD;Xs<8LvhTt'x[Qwx;*hkQ#6oxnndE&Yf:ZKhOcG:]
U"c*Dacjrsko]+f=4]elEfwF0U)w+,B43DgG_ajBhvt++PmmOhxpBQ&ov(^og,#:W
U"X$Rpu_IFi]G[^r<N(pEfPcr%Ih2xhX?N(OK8UhRR+=O4MqN3_5ld_W*<qt=1w'_
U"^hpE+N<(>S2XTnVd#vw^\(3NNVCD2:t+=SLgR^fZ)e/id1P;C(IDJk_CB1tuEMF
U"5gThPXK\Tm.gG(NUV-0]u'(jk-8v^V-y?*GV1vM0A'TWw1UPPWalZ2'w_G*ehq^
U"Lzpva%'G[_\W1+L'k3]Vg'(92uC,Fv9C(^70\ByUFfOO#k-k[L*M?=FuUIAL(h-
U"6/%JjJ6'Oh+0G[-qm3YQL;YQ]jNMerJLaA/?+([_1u?Xw=]%3pj22(Xr]&kz;Sp
U"Nrc%h%p)8[<R+R0O)K]l::69<oVkK*)k%rZXQPAg&nd9qI/<337j.2?$9aBn1Eq
U";a](;m[26c-,a2]Qn.0P0U)M4tJlm[KD<cuM[?tq)Rhs=d^&pOhD&T5BX)2Aob0
U"5j90lUlr>gt+J^,3.HgH(YVtMn:*D,6]=Bd11ySpW5b11)=I%tsm8<,iiVWE2]S
U"D.)j?ex,utM5xEpr7jvYZiATJR-dfJ9Skj;cjW.%dohzA)oZDCAqj1*eaaHZYa&
U"&$Oy.c*L%4&S-4G.q/hm<5-pSro,8VW*[/JW$f(&6;ommEuB3qjIR)A%m0//dT,
U"*FhopDUAgp[dj]AYw>kWQ8\s#r#%y.f=d?FB/76sQS\J)Fo^OL0j(PY346[hP;g
U"VL#Iv5]gLx7W.fB&Gor&?_%z-<8/#Eou*qb]/EWL\X^h3/OY1%DFMGjWA:HXPQo
U"<E>q$L-__*w5SB$_PzEQ),_l?%L>AsjsS$Ew5B7BGr;.srBh&_rDck*NF#eZ3-Q
U"HHB0bOvbq8auKXYRVf?Km]kXs5;5zJ[^$T,WebU%N:8My39:Z.$VE[HG4W8Y+c$
U"5z*?fR9N><,gu(i/Z_'/lx)V?3<+Ft1kKQD=4OX1=lmmnNA1Wvz;+J_vO43U(e\
U"1:DQnn[iJ&40,(.]37+hjAn^L)500DtUi+H9-EFGP5(FjuQ/eHis>+$:b;6(t?g
U"S%oDmo%lf$vfN?3VO7kJqOl,dw;E(CA93Wu5V88=RmVLr%j3U#TnRx#[2KbJ2b/
U".2w_kemGU-E=RF;3w8&yOXqWDW<z#Op,$$QVSjoVBE/=lJ6NI]P-^up$n?9[pEB
U"8\DO.D5D;okZE&A:uy+^<[QEN9aGB%NwYhGU,N']lOB?M8#CH/15ctM/UEBR)hE
U"u-axU4\lMf4He43?mC.2YkHgok*_b3cb/z*\vmFH^P(]&zRH;?15bgGk&Iu:b4V
U"XgkhmuPSHNOkePO#8cXJry2Omq?3g'BODPAnG;7&FlJn;.-Y\5H=f2$Nqo(%<5Z
U"M$.iN'W5U:h'\)>A0M/ezVHs51%]l9G:(yLK3.SU)BXsY-kyrlj3u+XBDRB,Y)U
U"59FIQLUsmR0$ime<vhd1j6&U.)>NVg=;3n:J/o:>>C1nzbE0gX6htBoMz$URDSv
U"Zh4L#m+8#7=?5>/heD2ZP[H2(R[kT03O?tEZqg/)hx09w2Es&p.10>61<oYaEN[
U"S]3F-=eAWz%[YjfC](?+][-EY4;?)%T*W5kbjO'iqC4CvxlcJ7^SrWGL?EU;-g*
U"s6cZGHw>CEnrr#UJsr]mmhXYK#G'\CRHBM&YD[4Mwt23CFxdx#9GDH]^;,ONB6<
U"Zc$QAPT/A0';.<[BdsH&Obmh/G:Xgo9.QPDd''G[b1O(V_FnsJxrTBLqSE)WcTA
U"RhhoZx.GteD$3Y<.Gx5PQ,>Fl7HiBHdVXp1QN2+lsb&N08l6A4YT4t,.)s\AB;>
U"mHNIXK^[9qVS%YcCJdvxb)hXpNk\tr]Upl_bfh-s0l2UEO.DEL.)CldE&#ONPdF
U"iwC>&8DY4:s]Za39/Lo/'%Z[$Ss9K7G:MES,-U]Z*Y=)?JxFNBZ%71h0[tjXd#U
U"*>gZ$(?TwD;;\9ee=q_lQp-aQ6uMZ4H6yF_8^gcloVxA07H9S0ir$J=-D3r]DQP
U"VBTI/[KujFyf.v*ehc0r5eZ?mMas27&&Ll-uP/1K:3)kfp20?S*2wS$o-#>m7)g
U"7?KBB8z=XqRu*k<MFCZ''Nyf-*7Dgw:D$-'t3D89U-F)l/^Aq5YAbGO=3Ko\+*6
U"b,M(^[wDWEF*0hjB6ULp4oEVp:'2<:Dh&O*)2\eOQ(Z.Q#PO1qn\xhMpc;$nquF
U"3oMSNadRt%v?;B')&6'AIy9EyMF2,TH](Tx)BoUo*AsyHlJ]=?%?p+)R;B+*bu1
U"7E9HPyT2h]J<4d3kXL*O%CFQ';OgXl%X)_h0)?am;gj1ayqxJgTrVwOG;*S'eiI
U"()B'kFL:\P.'B^b8te\cE+H(r<)+MAHYq+-NDMB07Tr=$((Ok,fM<QQt'4t=1Un
U"4be/OfExBEjAli_c?Nb<iB7Qc9/Igf'\<lp/Wk<7CI7XS,-UfYdng8nru=<6(rY
U"W4CVj#9>-aT)twV>Ok>M]Atic.v/'lN5:+ICyd<MN)x*$Z-0Usek>h^J-<kHQoi
U"ObD_g4Dj<RelX-Slo:240fC<S]l(LjjyuuUNiZ8*OrA+?vGFC:[BdFoYIYO4s5Z
U"7k/WUtU\IL\l+nLHY-.5-8jqS>LT[b^W'agGaz^t;/b2uJb5c?agsaE;IBTQaG-
U"=F7QnoW*gvgXy>,z'(MztX#2p4BA.PhY%-G4iiLqnIsUn##=+BV0Z4mNH*)Kcn%
U"om(cJLQ<<;->O?DDr+NVTULhp9dgrrg?g^UWQJ5Owp^8RR&NNDyR?0:zej#o%7$
U"&rZehf4CoiD&Q5y9t.4$0vy7QtsOr)lXA71Z<;4)WP)d.Yi&(j-96b3-YWlf1m]
U"25Mf=30$V?1Zq]3r/Ws_H+tl00Q]%87UUE5?o<=7wzpOs%NnWR,t\w/i%tKigk+
U"^7Hy[KU=Ucd)_&2-p-09h6-5MClB$q,0N*9Uiweb3F<55^5v>QDB=0i0C(3d_ti
U"D9Kj/S\&BZX76)[*7+P6._'2d(Fyr)hWj]PMCOOuKk&pJ#Fj+[4IbixxWN#UO:-
U"P_m)\OPciA3235pJz/A=;ew0[p1Pg%Oh/(gu#91r*dKaTM*+U%5Ep*A0Vl9$hSf
U"be+9-ezynh+--.1'g.XQ%P*vmW^NAv_bKy)2ZhEIF?0HkpNEs<Fy\Ol0_$Qp:'R
U"4)\0Z8UE)=o'+9Ra31ZNWbPrflo/aC+m'Q^,#d:A]74ZN/qT)9^(8,LPGIG:/1U
U"'eo)35c(z9AMIUG>5Hu/R]9#:U:s5q\W1$Li<(U.I=[s4OLXkLboWc,-q%rEZ>9
U"pg=8^/DpA7LSilda+R;OG)_;TWN*SOrNKv\ou63Lg7ezjf$\.'rjD1Z$Er]=m?9
U"Yev')Ao1pcN;HZEID>Xv;[h&nB-x%zF,vH<S2V+%GVv._qYqjbdosuc(O)SEFFX
U"Mc3Qoj3U3x6&fH_ABq$>Pm;B/T%=VHTleh_u&O-8?^A??-R:[H3Ty:404_v>q>3
U"JN-Rh,+mCwRoY$uZc_/O),#h2sNG3_M*9nc%7);*fMS*&IY?+-AgAh8z'dRxN\?
U"7o;G^h:5=3<Kd&A%e1t]1Rm<\OclcT2Sj-_('m2crExZc_kzu;yyeIl__5qpOcN
U"N$&L&OnZw241CIu6#RbbF;,-X6#]\AgsxP#FZdY2IJUH;cUd6wveTrrq&w:L<qQ
U"Vh/o4$oD?fpENCPhReKVs;:nJcWMmVJ41TcQt]Pw2p>KTRbbZj'_):yta#2*rAE
U"qbwo%;z-#C5bU7&Rz)nFYKJ(g*P;8Lpin&b'4Oq,S]52p=N?3+3DyPQdQN/m1i,
U"tm^y8)[H1DQFiR.tperSd\*\A)']6gD\:*UoWpYI^(lQEYaox[adeXcpr#NSZji
U"MFD]9S#R7,Q.\.t#J%NhTlU_X?gjdKM->DT;q8d)=.rG=.8;A\IG6[hoM#)+/N+
U"602pS,V]/>p$:Ts)jAu._6FKrHG+92LVoyGs-I+0b5to5cHXY8Zq*tiC'Pb\EgV
U"A%VQYhxuoA5Mh<G4awOUmh>qx+Q3\CM;Oe=st;6Sdw:o3AbRX5T=NaWR'FA::tm
U"VDF1]UGM9>1;h/-U<a&9.qxO$jp2k-qTG,2H0#?zm],tg'$$'ls5cIYIal'E:FQ
U"n-N=bnc&gkcwPK%yz6+d&9-GHc:6onC6d'F)hQmej3Jgcdc]5<>CJa.1C$6c61\
U"YtCS*[$16=6\M7E/$w$aMs(#Wi4[(][cL-p'BMlA*XwxtpBrrs)(3jt+aYSpOs+
U"Pc/E:9P2,ky1$y?6T'R-W9jJ[OoT2(9ffuv8k[O=ka#/:o=$Ncb7+iOu8wS;?ky
U"^R8+=:9wTk%ZX)-O,))x)zzpBYO'k?1bwnKOuhMPI33NFbK^WF7K34z9eN)z,4)
U"jPRlQ\Kj'2t8Qdj_ez/ZSaKiH#v3:\6Ac&-?vQsG4rYWP[CC>nV2QN3D9'J*U-n
U"#Gm&x\)Jvo\/gtXh9tUX['$JuT\M\mbZqDu-Ft<7RD_yYW+GoTK\rR+[x#X]a1=
U"WhKhtd&Ov7sxY-#oCCjiKSi)Sk6(+q<R_DogIfB0OYzO,HA$0WO(r%s\G&kLMS=
U"n\zoGFfv>;0pbcMgDMgO?.iFJh)Rjk(c_U9Ko,D;u&mGIUq/:>WlxM_i*[W0dKr
U"[5Oo\;d(keL$b<^I^P,?=D4+2'-BSe8V;s0xtYVJy(v=(Z'l]L'l)lbA/'$%/^J
U"e\sO8X4+hyiNCoSlns+Y#-=?hTW=I0a^*RuCZNDSbnO;M;PBPp_[PP/J69ga77#
U"9?>W89WYmcJC#RnVbXV0F&.Q]b0],p>niRus[bEgue?h[_]#:P6yS_m0I)RzEit
U"CVwGFXKT7]R/4HUq0-D-Nk=BEh;+]rIkJIc/v/OWojH:?5H\jpg.BVQglEJfXEL
U"a?RTvwQEwBFr1)v,tFQM.rS0PtW.P<RmXWaG#z.>:f37&6g6(nk0;m(pN+I\yb&
U"<<BOg>U?1Bw'p&G:f?UZgktXII24Ebij+,c9eo_>h(\>zjeO?x-cK(wiy/r(M2&
U"+r'v4/vz,l/%y;<o?VJbUTN//;7alTQg$;Vs3TtaPTBlFWf?6uV7BHnE]lvZi#t
U"V+Dxw/)/NY*suq]&;D^7pv^<zkS?dMmSbEHxh48Jb49q3^*%'x[H:EV#a[S&HC)
U"(w+8tNRVZX\NZ.fe3P8:b#7pfC^>._Aznmrf<p,R]2lv=3wlooVxN+Ep/:K\n8z
U"TubC/h-728gr#i4?WFPQyIe&VJf2Mc4\.<x[FXd'D^0G9(Dm<v,\n7Qsbo6JOZ;
U"5w;[$]c9bXDU*9N/S;.s%?[[N5<B&Pd+,HvhDq/;xMcGk;#P;=7R:rWfR/n(5u1
U"bL<KRgoK/[rZ5O0((V3Lu<Z9ED5Q+nWj=RsRSDFR-lC?S/d4iFHSMN_I+?#sPP:
U"N[],rFQYf[vFZ[:so:z6&DjKXhpuR9Q&&>V3BC[ghR(tV%^1ay(?ln\C6U6M8+C
U"*m8^YlLLAP'Rg:o$H?H9<W]O,y4$Gb#AwmipJAu6-UpJc(Y^giI%ffWUpf=cT1h
U"T667O$qcZX+Ns5AWj3/x:t1b4&L\C)rCXubuN/<%?uOgo5P*Mc1T$Q6j8=a&5AB
U"$_j&pYh?u*o7hYWJOJ<V$T$s/bNI7yO+A2:QFrKr53p*Vpfb]GG3l2df;/5>W/i
U"1(n0a>fQ-Lh2^4^JhwuMPrlg-ua]R)2rwA,pzB]u09jci\3Kv'DwmO?iV)%('7?
U"6sDXy1deCcp.c5aF]dcklQ*XdB_L1oVV(;-<]Vg,rgZnn6f]erq.*[;OHgwe1^4
U"ggcQED5K5ZI+)5X:,'Y,>Cp14CF(yUc1gM#MG\z%>ESg<2.s\%b&1ZV(g/U'Xgc
U":pePo9Z82A;F9LDd]O2uNd0PL8:LBp^Jvi;7$^)aqp/DTx?<;8Oa00VZdRh)kuS
U"AH^HZ+OLh.4EIR(e/8O]r7D:KmDpdBbR7Fd-2'U$<&mkr7Nas=LIR?jm.\)C3[B
U"#2qS:)U4MCC;v#(fCsU&Kn]1]'WKW)S,MHu?_I#?WZt:$kNiL^3KDUg\DaNg^UD
U"Dri/S38,(9dQ'YWG7,;-$.)WTPv:7c&92Hc?&Uo].7\V4w>Y>u_D=aH,GSRTWZ+
U"a_jy8KM,Z_B#)o:5T>kJ'R[]>+3pD>KrpMT8Y<Mtd^jh_wJI.4?XW+N?xjF*8ZU
U"CqHzGf=i0p9Vy/f?rMA,M72SfC\-Xx^=z59-Na<Z6JWI?$tp.[G?HZT:I%h6pr2
U"Qwo)c<ehQ%bVp1I>D<js*('WPx$/4GGiH<&W-)nYRQVdvLO458.J=N)(JB(INA*
U"9/HQyQX?Z^4F>u>[tFOIeA/,n]MNuBRzu6](IjkY$s5,%dB(CG;4d60PpJFI.Mi
U"J61=5[efU3Q34h1rEML*NC<(;bt46.r2V=$&6k:nwq$g)P+Z8Jp&UaBw<u#VOlA
U".>+;m:k2AkraFBK2MxA]T>S21LDHKgb+'4[?Va+6&)Icr+BK0(E+v,UuWv;FGO+
U"Djq3l]AWF5wMIM[Z-1ki=\3k$6.6hRMIixw$8lE5<7+(?d5:gCG7rn[-c1t^TG*
U"^aRSPxEse-G2$64soX5p]<FGvsxdY,m%'b7YDJhLm<Q<%$^,jr.NaM-B0'H-0\L
U"2HY#Ll\,.X]7V,jd]ia:kGC_/.Mtr)5x%u(1<q(]]x%-WZ%8dcf.xg^t56NFCx?
U"0+X<smm,F_srZ6-1T?jn=Cs4]Q.mhxv^?d_nnK,'84Lt$SC3VAbS?lepMa:eqDf
U"'dOtdlo(:t7m'%^kzo<Cj/Dtl?CHTZKw/\sw84l>\-sTYsILYGJEw2.Q8ekVnxV
U"Fge9zs(;EQ'<:iN*V][Zip3mEJ,a&G*=L&Y2l%]/EtI$74+$x4u%p()9%%%%-4%
U"1Ti%N?_D'bH%%%%i%%%%1%%I%uA>M942CIVSE1bFlrE<EBDT9Cz)z+UIfE&6ByS
U"1Tf:jMA9]*\5sO3(o-S%%up&'%9%9%%'%-%:]jHKSx??3(;L%%,[$&%%.%%%%%%
U"%%%&%E%*/P)%I%%4G224;S2CGCu%p&'9%%9%%%%-%AAOiNY]nsiS%2%%1%Z%%2%
U"%%%%%%%%&[%E%//PfL%I%jG2D4;k8D;4S2);Bup%&'9%%9%%%#-%OO#iNkW>lO6
U".7%%)F%%%.%%%%%%%%%&%RE%/P(kZ%%Lk>A<IVS5A&<up&%'9%9%%%%-.%NOiLN
U"GCD%_2&%(%u&%%%.%%%%%%%%%&%E4%/PO&d%%k2>A<VLS5AG%up&'%9%9%%%%-%
U"*1TiNBG5.U&c&%%&f'%%%1%%%%%%%%%&%E%N/P-e#%%uAM>942ACVSE)1?up%&'
U"9%%9%'%R-%Nk[MNcb3M<UH[%%a*%%%,%%%%%%%%%&%RE%/P(Ag%%2G;BS2CGCu%
U"p&'9%%9%%[%-%1&TiN?7_DbH%%%%i%%%%1%%%%%%%%%&[%E%/>P#4%I%uA>M942
U"CIVSE1&Fup*%+%%%%%,%,(%X&%7%95%%%%%
END SUB
V2
V3
V4
V5
CLOSE:IF S=194AND 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
