'===========================================================================
' Subject: WETSPOT                            Date: 01-10-97 (10:09)       
'  Author: Angelo Mottola                     Code: QB, QBasic, PDS        
'  Origin: eri@cdc.it                       Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WETSPOT.ZIP",4^6:Z&=30279:?STRING$(50,177);
U"%up()%9%%%7-%hye)Fw,3)%\&%%%,>%%%/%%%%qj&%jqW%SuVXWff:=ARU1U]L)
U"x&=x-T-UOd(LB1a%^0,<lY.LsQ.Nd8+'0qO0j(9Yc^ugH0sdwo\YOJYoytzL-7&
U";ur(7wEQF9'jnEl*<t(<'>WD:-L:#9%Ot0CLbdD6JMC_7CgpRHwso<F89G_JCj>
U"%S%DHVYRFwsmKHubiTnm]Age6gN6(KWBchDu<FjuNn,u+xHSn,(UDH,WaI'yohV
U"bdwS1,Kp3kVJacI:m6>dmRFJ7hk+T'ccZfXEP:Mnu^1SRksj=ZG4aWKpAJ#XVU=
U"TEZsjuQX-VZ83qjk8Ro98sTE_-W8a0XpnUGi5Zb8hTM(W?BX&vnNadKcx#KxNrc
U"._<$nJWf99NVF(*vN+adC^u0MrHnubGwZ3nnLub8$,UvN%^j*wixe;UWAurhNti
U"TK>-Hx+c+f^c$xbQ0.l9t,jn>rgV=rLDIpXDP0Gtr2Jrl0a*^:c$x)2EGLLO7Q/
U"Mk$s3g-D.I#u?fs\'x%\mlUayuq&nXn'#tss[ss3D%4up(%)9%%[%-%hCy)F$ik
U"U\D%&%%,%>%%0%%%%q(j%jq%VUSuRVXff:v^TE15SPr)i+Rzhde,']fDU]Otp^%
U"Bc1]FMXALw3]fkbqaPh:K+Zi,9YtqBjgq0_MtgJDXQEld'nDADm9[&2Ai>B9e%U
U"6NMTD0$^$],7UJ><#H\w>aUlJeQPO.i0*M/+sI:a,(TAV=g=In]Jpq0dwU:>WV0
U"OS5>+pncMerme:dWFXi(TlgmSK:<8Zlw2*t4i51H<=1%=+(,c%W2pF?;4-QP&vl
U"v:8YL6W5->-(RBwBgz[mpZ9<'Ga3ZqpYExE)9:3ZXE\&W'R$P\EB<W=u;t4LBlb
U"TIx=hb;B*,Y9;om$N:;;N0aFn$JNnLmj3ZU'5dR>3Ohsf=rG-.IVcM;K3h?9+ir
U"TL#g<KUdG6CbR1(;<h720p/,ARQ0Dc_>Y;D?1rw\up<jEB<V[1;kfX4?DATHG^l
U"pKa.Z*GYlosT&<1C'mk8*XrSJrWu,mw0?XXgy?JnQ%=T&Kj0]r<YK9cR4f)ql8/
U"vIA]:A^#TtvlrdZddH.WX%vpIL8F,2-L$fp99^v3076*2:U<0+p$zdKw.SJLj>K
U"=UXe%&3h\]<iW^GN_^N'^6xMyDlX.:PE',tz'8up(%)9%%[%-%h(y)FpqchA1%&
U"%%,%>%%0%%%%q(j%jq%VVSuRVXf':f=TU(5sMl,]NGML53fZgJdJUlPrs$*]r&W
U"IpnxkZ+a>fJSAOs<o/I=L16VK>B(G^1651nOO=iaZIDr4rQ\D$c3t0'P9)7_;ca
U"+msy_lhWl/)D=#t3$Y-xw'1^Nyn4.CR%;X(A]XW&v:>,accCK&^N46SZI+O%7Yg
U"v(FrjPPlDbVO(D6b&kd-BK01p2Q<Ag#Fj$N^IgP>0NX:t0Nl#S?bA^'F(H0Jfa>
U"gpr=l[)NhW8=E-P\Tw-SbKN'dX^om\t*$8?f>/_HD^U[dhus47b%tM,<B.Ih+Zc
U"6,nH?j4NWVq7;kO7Ew>Ax>>%[,i4p.&7p8pdI\k<uDpug-mXtb4(w<u9ob[-tGO
U"k'ENYM>im&9w5qq\Cct'Szbx(<xTii[NGh#t1wTsT#Sxlek#*wg(?EBW'=J[\_h
U"M_o8Z8]ZuPg>t&)T(;)WO%jO2kxMAM-9Zhtw?K1#U#uujlZ?ZP\8VVjwp[T+AWR
U"EU:gcT);luX77b-_X%A9:AZ>7+FScZxpwA?LF8&?AW('e23gbTbWe#W2K'>*3Hh
U"hRhh<f'>$up%()9%%%%-%0hy)FM/jY3&_&%%%,>%%%0%%%.qj%j%qVWS[uVXfkf
U"D9d[U5eneg[xVJ-M'TN[\f1f]4k>tKEvJF0PXadxP8b<?j=_:kP,-:/V*urwh8?
U",gH=6X=L;[1)#WVm;tX3H6:Ai8g(FJguWD)KN6Z*:xQ6QY^Is<ILuJ<4'_M?s5N
U"fB_gbXGrc2eJ0t&9E'K.i1L5ZvZ4(Q#?:Rq1ZssXRG^?J[&%Dhi%+G;YHDA/2uG
U"m+([ebUq1Z_C$mtK1<p8be]_=GB\h5#0#$t4%qS3e3CB,MwaX+u$Y=fpcw43[-L
U"QKvkeM]kJbx<k9vu_BD)ei.&Epc^Log>fH8[AN>kl=cBNpf(_nsQfu(8twdile&
U"rnh:hlHT:sflt$W6bxc5lS\Y^W(ijcHpG.Ls4%G4u]'qGyhEjlhvLSVQ6ItUU(1
U"fHsspFdB,p3vNzF3ck-z-1p15gmQxtgP6D$L%mmn9H0(02>>Nc<WFvfMFU-d&#s
U"7-pEUeb$CBej/,\N%I5Y&iXvk=0lnmRh-3r(UnSR<iYjh3H5rJ7Y<gexu%p()9%
U"%%%-F%hy)LF<[r%%h&%%%,>%%%0%%#%qj%%jqVX%SuVXWffH=ARU1V#Bh0sjb&a
U"rgXX6eY$#RZUs)eSoKu,fA_0Jn(g23YTJL)M*rUT%BaL&>qFp5r)IJ[TN9ph_E*
U"CTh#Prw>EHu+w[%?>'tw,8A^D)p^DDJ[WiYUJf'1Ua3ZFSX\Om2)VK(2IB?,5eT
U"<ovoc]cAIpMuXn>Z+8QnHKli.uPDv\r4lX:PRtBLt\ZW?n7b(fdah:Rbn:EHO9k
U"jCO$4RJ(?Tclk9hrRlXQAxt*x::ovR2H]$eJpaRw]x[F9=W$:Qd\krtJ]FcX,du
U"U0q\$uVS:0AUpmr3lV*<ov^cfcjnHqN4uujNtZu6br>=o#V]8MKMZ'utLH7qknv
U"6E:qalfHz,PVfZ&w#Dcdah=765?qt\1;kCj\5/GLt=^iPXt?K>XqON]8Tao3GUK
U"bB3,ED4u%p()9%%%%-F%hy)%F;w>&=k&%%%,>%%%0%%#%qj%%jqVY%SuVXWf&D9
U"]<U5M+PQ&8RmNS<uc]eH9DLnls0N'._'MImKYpql(5\+8.9+8a]sZd?Gg(0r+lZ
U"$Hse_1M&E*xZjSXLXD.>MK(4SFcN[d,d?tPX=%MA++M3-8:E%DKLnGm4(PAx?X1
U"-O$,W_tGU(Bl$7P&h.hALY;(Q0B3ggXmMciLsIx-CeHS<+=Cg?hJtvb6<?$s?[c
U"vjP,^1HA5MhPfv2<i<7'CCdQb7?wF\teq3PLP^mlns1%lr_<70cWrtuJ6Sx_$Vo
U"kXsT>URNuNt0Vrx/[mXBv\HogTmw6Nw1Clo8'mdc-&;=]PwaW#yxP'mc/e(Ct'G
U"t868FZ*Jx?HC7Z*K$3p8uS/f3EgC_nddc0POdm1GQKx/#rp46di[>Oxcm8whH3q
U"#/HdwPHR\KW+?h31gApuM-(;Nup%()9%%%%-%0hy)Fq+wA]%b&%%%,>%%%0%%%.
U"qj%j%qVZS[uVXfPfFYR.U5OL>2MOC./PcRa?oOci<Tms4]tq0Yj8?WSd[MZ#qcp
U"3U3XZ2qubu:IT%+#FsvO5C0OYGSnv8YQ&'rnS.sw=kne2(?Yv#Hk[(9[snE9]LA
U"ql\HiiLHH#rK*TS:Cn;7TvZcOPy&Lt1rZFRktAKWNNlEuCdJjhr:8A*Jt\?hrL^
U"B#=GBqr->a=xwa.G[Hd*E,hO/Ye4sd6UtrKaut8?Sn-uxdsvTw*?#AK_NkzS51n
U"?.KKaTJYb;]n+Hi,U]p\16'l<yS+0t,MeN)(BN8DNtqnI-6l=#3vsRxxm80Jm\r
U"mLhd+\,8X_JanwQ[s>__N5qwu[shs3v\wdrJGWlVVg^HA(C3vZLruDK2[5pqQy8
U"1?thcgr0Qav/FHNinxHRm*\XiGb$QRx%up()%9%%%7-%hy8)F1K11-a&%%%,>%%
U"%0%%%%qj&%jqV%[SuV4Xfgr)ZRU5_UbY&dPQJR#]ZD]b&:d6MNC06qa7fc\p,TO
U"f5ug$%u7CKsh[(q.6g'0(2Cb,Px+/i<Tgr[X[?u6E2Y]D1%+?Q=-4W(Mg$ahBD:
U"l,))%gyukCnBBvZSoVBWQD,W7V\Co5S&CQTwYMsxZg'Cx,a+cuF=bOT]rp?0F+r
U"_N*3b3'c2=d$6t\M'z:);#eA%58pnf[I*%kHox,BHd#TY0OLh+R?e,gZ/3OsjS1
U"xdw,mV,n>l_Zk.>yEhdokn)SH8WQ[4=i$?H:*Xo:la4BD0)+cKpZx6UNoet$wh2
U"#d3+y*2tuh(6XZheA*n:brS9YaxG,vRl,j\wY8kwDB(Lj05ZI(B0\RFWXkPtC$K
U"5ZWD$\V0u(SHdVn$LLTlYKxlMlI<CxXPh0vjY&jvs*T=pt)_rvr/3B#roqnnJRw
U"NMSLhdF?VI:'oI_h[f%0esJZD8hZ$pTa;F,u2Q;X.'d4.i8i83m8f8QHPH>XE/h
U"eHu&6e3Gn[nnnB,0l,u%p()9%%%%-F%iy)CFFsA(M'&%%%,>%%%0%%#%qj%%jqV
U"\%SuVXWff:='<E5*#DQNX,#NCO%zb=9fiFnV+D&y(H?>SY.xZf-W_/t()YTkQ?4
U"r;L8O4m>rLZ6EhMPyb?.J<J3*nrS%K&^deuTl&4bxJ^.4l>S(>1\XD?WM\fZUT]
U"Nh;+\p'J6kCHK;PYAow_TuFl6qll1#JaCYMHQq#QIS:Tt*%dGV0t0VCu$=\bZ0q
U",DZsDnH;.04fL6_4rnu<Dwu\Kh:t?DcPb(dO%$Xad%Nv82crK5j#7elYm)/hd\S
U")$3J4Rd0MKrx$1b]CgflkUnl3g+L'5Zt^mF6J:N[Xpm,^pLXEaRnp]ot,^vVR#G
U"MKslk,Mkz?U=Nq4iqNHovgH5Ekl8ceDlBtZ,0D]%]W<cu,ZD>x>h#E#'o;>_H'w
U"]LG%F3twQC'JMhHLJpi#-wTkC(X.OC*jZ-MTd%D$Bh=t;QcRED\kr<J7Y#%up()
U"%9%%%7-%iy&)F-s.'ni&%%%,>%%%0%%%%qj&%jqV%]SuVjXfgX,=dE1eV8b<iSl
U"yK$JYg9feN\.'#^T_88KIM>,M_KU\<qy;1KJ7lv]N]?4rXYNF/,Qsr+ee=JtO9?
U"4iT*6F'#bbJV$_Jm>I6Y+h6Ne/<Af&,d%6m5e,a3<qbtlU0<L+Or[%u+-IgS-dh
U"2#)Ei5IS_05WK<gZhA>?Eo8bC/9?DdFdi/P.&UvTAUg19q$X\d?_mK)Nn[V1Z'<
U"aF7&J=Yn%;,)=0dAU1ke3V:h*:Lo$(A&uiBjldD6t%9;1/K-Y#e,bVMth1T)/J5
U"?8AN&ncdQ2DMUMAj5nq_Om_1[PhmbLlofvsl-Rn^=TMurojLj>m%FC[6g?n_jrj
U"&tB#An.,cjJ+elyC-t-xcuIWlynmCwoKgEBoaQ0SNNZ*pqr0(T[q)SkKfq)lxcc
U"vf+$]Bl2?t8Hj:Q6\9dUw,P8\L]AXrxmG$Zl8:>BsetUfM\esIlsu6u2xKSrvFL
U"<n.%b(p7MrvPYm.)tJx+b'ZTe?TiMHL3BKsrPhta(EqjC-AxyOd,v^,u%p()9%%
U"%%-1%TBN(G*d7&Ki&%%%,>%%%0%%#%qj%%jqV^%SuVXEffr9'<U5k>6%O3pKgg]
U"g)0S-lbJA%(Ct<PdyXAmD2VKuiVsm0,$8E*Kl=(rFTq%OC8;)&k;vVxa+S1W-FZ
U"<[<OF5;>-pg4'&[H$g/rl,Fj=WBhp#]wq')j1P2IiFH<>j2NC'4inw^,*FSs$W4
U"dkB[YivJg+W_a>:2sHxLK2\9_74==k.nH,p[4ERS7D_L;IrJKJ,rB,HxT<Gk=?T
U"88_Vrh9G?5(_?-hb+tF4$$p6;w.gSI8NG0eF_]95$0v#ZT41+ND/wdikp:gu:CF
U"mDlJkD^K<x1r^QAwsNHB=c^aMtdkb&]UHu2Qx6gi2,HtZ>XOTwtg>=Z0tdd_$ev
U"?X=vDd[ox/Y<twG:AUZrknGNpXWH#WQnvEdsTDt)Lu1uI=T'ljHoc4[JK]+V*t(
U"5)If5W>%up()%9%%%7-%hyJ)F/*,zI;&%%%,>%%%/%%%%qj&%jqV%SuVXEffr]&
U"RU1kllL0Jlg3/?Os16^iLr?*:o2#9&WMrP84(q.1.NZMcaBsSGV2#21E5CFiH#$
U"f1'B7UAEXGc3+<Gz22lBh+zfx[L.Uho1=ocn_kpLZgQdVpI\.YP>L6H[dnHD[<J
U"z8va5bn79?XhzkerlIErL/3RbPw+agunf;HI2c-uv6+SPnXi]8#VqVb4mAh2D3=
U"M.Wq><N.Xduvjr#%\l_*unwqS5nZep]6LTn#lE%Mj]8Ksk#\HbacfdJ[\-QXdDL
U"-^23IXD9nLsiY/rpZrwND9(v.7-ntQGw91DJ8EZI^&Nvo\P&bC;)ht+Dl(BOXb[
U"I-o2Hc_$o6vF7pZ2c_YSqMC5'r,up%()9%%%%-%0hy)F,VHLX%'&%%%,>%%%/%%
U"%.qj%j%qXSuRVXff1f]RU71jf%0Lr%z:Vt&9t]#*_JqH\b8OE&<jiCU?RtvF.py
U"X7EOLwR.#%=>iN$h]%fu%y_3^-S86KJYdj%ByU+d$Ar'LilPPQZ4O't32Y9uum]
U"DvRWX<_h>j4x6Nw'?2&7Nn1&KeHbdtUL4U?M6wfD577,0P%gncP#<l.rM*8LHOS
U"jr'Ha8xZ)j8inND%w8<_s<llh\CWvbgHMzNj]WwTt.Wq;%.b0fdbSm\I\Kbj\x>
U"HNtL6Vlw4nW?TmWxl_.R;_8tu]E77+cJU2mXcS/BdS<JLRIobn$Xts;)ClTpE6o
U"nZ.a_.:e=w:*V+v9[j^Rx%up()%9%%%7-%hy8)Ff,%*#y&%%%,>%%%/%%%%qj&%
U"jqY%SuVXWfgV=&SE5ks,:.6W+X1Ooe(qQGLJKld&;#0S\Jg\[Bt[YP+qbbY^8vQ
U"It%?&UzAN*E.G''Gr_7tN09#pi4YU6IdXv?WJdWy.*Y\5Rr(pMufH3v)nCMg]7k
U"G$^r\6.?M?4yGr83>^hNI'5Ji6Lci4dbLuwhAPt.uCg*.9Mh$#xJD.y*xa0kgxr
U"]>3f3uoRf/MUG(8tUt?YW;XOWwUe^kU&sjCp&PNbE3VLs<ub)p[c7)G,u>2VAzL
U"w[2m?B8TdDR;K_u2L]G&HY*NWJc%*2wUUK19.m7V&3=.M9glLNB_nBS0gFN#O;*
U"5;-ppLnl^D5Sshr]u9fmEms6cP.:q=:KsU0<m6khczXQxvGMl\0>2UxLwo3FZco
U"Q.ftJ>Jhfl-X\V?6qsz$?xwk=]HyDMuwxkKGfx(CdJTLruBBBB<B0r+%up()%9%
U"%%7-%hye)Fl.6L7M&%%%,>%%%/%%%%qj&%jqZ%SuVXWffT=B;U1UNxuPq5<Ks.[
U"VgM6<F2hjXLFGx(S\_rk?Ltx.jw2MTJL#V)>K&U9<yo\*4h.z_ZgE+_#Q<guq2E
U"(a08$ec<WzHfHT[AH2EPL;e;h0HuIOtaeM?IphZSr)l7^*7i)BK/K6or'qGe#h#
U"HMb5X^k+*-B4BD5T?]F+_]\c8]ouGkD%X^DtaNauaNWkjA^vY)lscFx&lTKuLLE
U"c=$&S.-q8MWWrbSmCbJ3LIA,[T0po,95RI-kMQx)5&H>GOP;^lt%[\uQApf>?'8
U"8rl38Iu;YMuqk:KW'g\LXXsQw5godl&ZI,sJpK-?=ubXP^tZG>uvGYvpt0qeCY>
U"bbF2+\LXT['mZ>o\PMX9Qdh4Y0HvBPlq_I+$\Rx\mdW7>tr&oSKm,T8WdK:b&Bt
U"E:D>(yj$S%huoVDtW#v*sKiK,,Ef/2H9/j%<<<Kw5Zlh;z;CTq/uvD+v9Mdx,<+
U"NMxWxKLu^rj[&&%dup%()9%%%%-%0hy)F%/J5O',&%%%,>%%%/%%%.qj%j%q[Su
U"RVXf&<T=;UI1r+o%BgaqlQ*RQkF_BoXNuQsuR29/Cs24LONfp\_B_EJP$fbKW1F
U"$k^)q5mL.4Q^91D:R=?;;Q^7sqis6p4')Vp#aX1sb0<0?v]f?m$B\qik/9i,p3>
U"k6Yp8?pPt^Iq-*[irWN:pH%a*WGE38T\Jal-BsT8hB%Su(;:CflI)(E2+0fr?(G
U"%d7?>s(fhQc-xM#M\$^)JFNtjE\Yaw\>AOM0k7u%/sz?>$IDXv1L3e07n$P$Cjh
U"J^+YNuuRktdvC%IByN0KsV_ZF6H1'\zdYD=lt.X4YdC?KfE3e5;/O;Id9v?IE;A
U"Xh87#,=r<JlP(d&tq1#[$vf>E7O7T>jtv%HaOR_gZ5N(#<X8\(YdG$oS8]bE&5,
U"X.^U^mRgN_wWaYa08]5NS^cw*N8d(M#4'Wd']\C-=gNp\aRu8jnwooBSa>+NHz3
U"8WF4s>l\Jsh0RgEsM=-?ot<F-=Pn\.YXw]..wA_U]BZgo(DStf+*^r)sZd&7]Jn
U"&])FJG_M04N4XYWt-3q8%:6b;+Bu4K,5K>Y::P%E;&nup(%)9%%[%-%h^y)FN#m
U";s,%&%%,%>%%/%%%%q(j%jq%\SuVsXfPj,9;U5j+i+3-.31v;_2+ItLn6aV/FB,
U"'EKj+KvlJnFgr)xiuWfm$TL^$#ShrcXPWd?=80b-mtq85q1'cE?^nDyjkl278_w
U"$:%h-0Bq+HJ+llmEYWF^rQ1%qA.>go%BIkt;MhA=1A9++0AB^8e;\K:qs[a-EOV
U"P&IWX69u19lo>p\:&hZm#))Emd%HgUz=dMc*lo]GD&1U0CLO-uVgZ:EO.olY&GQ
U"&<sOtQV6f=l09kQPrl>]xZiOP.KGr:mY86^]:tIKr8GStTb>5u'</NIAq:O=#ul
U"'lMqmc(GUd](A-/w?E<ldv[>.r-L(BR-T65e3+kaWzrXz9;&rHJ2jl.'2IYmXw3
U"=59CLfH#(rt=t$-?TfpD\>=ShYV<ZGUalGz*wo,prV),i6bl=3UpLNjRdf];_q6
U"95rP&6rR8)xhgz>=*J'QeV'F4up%()9%%%%-%0hy)FMW*K-&E&%%%,>%%%/%%%.
U"qj%j%q]SuRVXff<V9;em5kLjc0LGM&4\v8PLFLki77pl*F;gqongi?\5sEZW4_A
U"0]$LdNAFzzV(-w;Mr_c;FHEAA(HkTDyh(rM+0r>Kr-lQDrh?N^rV*.xMlgwgkEj
U"3AB/uE(CrE)8A=*n#AhoZUD]vZrLr.y(f2A[pV//V]Wd9ke%Tw[-dt:\wEen/;4
U"o*dZC#D9;N7i0mbu6Jev1n\E5+Ms_^eCfZ0oqhO[lfv(vCSxq->)rrppNX2g_[j
U"Y2[E^vjZP$:nD3kd2ZZ$(QK81Lf-lYT(\e^wufn8spQ$v>[0s$.Sm5m_HMe6*r6
U"ZHe<h*2KwUs_,u]sEuEFnxxNQSu_D8DNDpWh>=Iuowc3f6=<?iuw:lW#)BPsRdk
U"%ul<8XT'e&q6Z:^5t=]KuIQTfzrn5tGuuj2TWNV\MixDIc^DIV)E'W<xb&lXF_?
U"V6UrtJcDox&BAQqQTns$RvV7FaAxG.g]]c\5Q8%up()%9%%%7-%hy/)FKj&T6]&
U"%%%,>%%%/%%%%qj&%jq^%SuVXWff:='<E1e;\bJNNf0yT*/XhcmEdA$]elLFkU-
U"X,rDg1-Tqn&pdw*I;:[K<<U%Ks4-<l4.m\7H\f56HgeM&,<*OYg.;mO&:&T77&&
U"*P/JpiQ4'YbD\flWvX/S4N:JOgJU'#goYZ*/HSFgk1:a?U9#3/HI.r60l?AiuTR
U"8G?i<%A,-jkorxrDowyw+pdd8[A^pC*p$PM;CZX$5KPc%N]t+Gw]o2Itg8Dk<RM
U"Dl&?hh_3Kgrs2rwBwkVlTNprU-%w=zO8f6w_A0&(lbxrXNrKmG7lVlRc..o86]E
U"f^Ka*Zu&D.bJ8NMWtfvx9pTtxWh.jVL][rNVlubK<7+WdZ'P0e$tH]5%Gew)VWY
U"ICNf6Oc[c'ws>G'mv6L.n'R/#mVE20=U80%u%%up()%9%%%R-%cO7NGfB5jPzP7
U"%%M=%&%0%.%%&j%yxut%ySgfOxfL8bF[m+Hap_v]wh;Pev#u)[,.UD;zytUT?Sg
U"/]i%z'JmX.3q_<.*9]'ZWZhP8[q+sU-_O,bg*7%T;Mh$$$p6h*];u.Jj&>_^Dar
U"Jh^tonoFQ(aARs_w.44-I(5>U:;fE>=.(c&OFGU*Ov6SJ%TT34'cv>G\&5Qwp=R
U"?'5^OXiPGl_ZMQ6gUCL]6ranlSln8J[%JK:GA2NriDDWsQa?H?$v.h-X/IVI)ER
U"g4\f0(]6E$7;ZUV2MW1QXsSQz)-*G+w9a5nFNf8j-q9d/VTTVUUohdFF8mE=Ow6
U"U>c]<wkM_l6:xG-kS2v8?jJ6d?bQwEO*Q_-tYS\TaSi&Gp4)qa<g/$BW]c9XzIC
U"l4*wK*N1?P:s,$tg22WPCcU>&sLR'2Q*v?>Q__R;1iZg[R-K2QHmq'SY?e4nOsi
U"pdNO23+Ii,*UckV,k(LENX+uX6lUqgoi?]6$ev.Pwi9DC7vQQkK,H8B1f6;5/QJ
U";8\\,$i]'Xs*21a8A6Y7^AT$#F^a,o*8C6Sn^NW1TlW3BC[fS/eiTRtYJH8UfC'
U"N6[_elis,P]YI?Cktj<%&-pzzYG6>no#L,6qJe6>I,6n;(';iz.dI0b+&9jI9r)
U"JCeUn<Yi'\>gDI%8?=&4/h#NDoKZ*63'.G'k#+FhAO7;I_YBKGoxSGG?$,wQ$E=
U"w[E-NZI2SV%ZpgEBX;-v[]YD\'+4QM\4g;09a+PS)K%qaXh3lwmEVI6I'p04xOj
U"1PY9oH;2\ycGhmog>),oil%C%c-):^<;EC-=vO4f(?[S:Ob.5_+')%d-SE]l_-_
U"k7*mV<7J#+2<fER(GR[pt2Hr;6RY9lN7ZsV&ttV^rcBcs6gK(-smI96a/T-Ndyu
U"eWNJ?oBk66AT<a+=Ws+b/Jnp/DK_^DQxh+JO8O\bYGu7U0ZItxT5Tb<mfb'[]qu
U"Z\532)QttFiQ8>\X.lxM%0(IS>]f\C>^Lm^dBHnf_,sDSoPHFX;a:,?'59T%HTI
U"h?Xju:=/u>+TR;f\7PGp8L6iEJa+GJ2G^%oT7:f>cT3.g,'-/33[3oY4tX_WNkd
U"4CvD_:.imV.Ow%ABRApW=gO:P>?kpKs41fEQ+*))gG&2dZ0[t7.77DE&F8<;l\R
U"'IBs47jkbtJISH3rt_j1sphxG-_,(T_r-Bl$,jWuZhWj>l<G(8ZtoF#EhsdktqG
U"w8cY6$ah[J7kT^-n01=q1n.sbBauxEnP5)?x#Osgf-?a'-QL=mv/kPM[JL_kQ0d
U"NceJ;u[;bu.YKlT<naS+lGwPda-kr&OMgZr$GbuJg5Ty24D,D8ItJyWTh4)4^Pg
U"ogRvJ\NG=^W,MLVgZWakF$aL_0nQ,0#gqlipU4>*/qYza(]hqrxTcQOg5m#VW?S
U"YxC4A.pSLS^Yz?D\b$sFd]DT)$f^;USjBkq^pki0>u8Glp58i#CBh37LR5:UF6g
U"8l.c4,v6xum+-vH\I:'^JBJlsgB<cMXl^0k'X#CH)wezs7#ANcC0eSO74k<x.m=
U"G4o'oFI\L1,W\d)lE&Ct&IGXXqXmxx[Q,cQVJP=N/Su_WKIDS2RDbA(W1K43pF$
U"CXBc5*AXL#p=tU[YxZMl5DxLhtBN(1m'$:QfM+%lq(Y;TLmA1(r6&c.yolU8'[B
U"zZc%FyWj3Z+_*UYT__%z>t#\qPeXaIt&u$?s)u7]?-oIlypNr,Jq&G,CEasdUO\
U"4[B3#6l&BFdD$%vnESSIlq4lX['sf<sFSHxCUlZm8n]e^+rg[dMY>];8USrBH(T
U"/^xy6gVgUwQimGCs&nMC:a0Ud9va>NonM^D4^wH=9vAms=E8:6[rIiFRWtYW&)v
U"/fe3zqX(1b:ZEfsXg$)Er#5.Y<]q1x9>H\w>iPKg[J<#wdSnY;'DK+p4u1OYE.T
U"qDd\.Wz/j&zvF^&Q_8U6J7*a/sU#tFSLC%i-8UIBViWe-G^TjTixwU&9:qolhjM
U":p8yqpkT,o83jJFB&M3;SKvNpX,bD-9TQT1%n[%SO:*qZ\2MVmlq-t;<lnVt4YS
U"[1Wp*?#WuC28x)t'H.J_W+BUW3k>JkJzz&E-:A6JS'FcbPiqetW_0iQ=/9OHW3k
U"#%mt>&Qz=V[.UROZPu0t#E#,f.f);f6jB\X(4MinN9bZ/8HL9mX-GP0<1XaFPSX
U"JB]CD'X.'7Rlok#+:Q13BdGr-<d-JBHE&?F;IdCihasWixD57.&Il6H(&$CW=YG
U"qSA[,X)2I8?l35qHr6%e[_f:IW)Nv&[C$jcYF+wImMW,,pkd4(g+=8r.CVx[,If
U"JN,/]Z\nfioD.gm6I:'TJ._3qv'Dqz6:WSP0Bp7H##CnH03%0IOIJ=Y<VoX7a%y
U"PsJ](;n.]BPn.52Q91:p-pNq?\70_8:NmK1\h]Z?60>dsk2]%&WYBDp)#\hJl2Y
U"n]l2\kdS7QBt[jmO'S3o%y5G=Zuld7;WI\V^S?_;?96^Wh'MEulr;TUpnFUdC2$
U"zL0tKEsHX7FMcfT\#=H[KUnF;W2nj/hvL8qs1:,9s>krcLd%t69A8[k$g^:d[3'
U"aDtderK=lor=Ub';*y>VS3+y:5t;)edc<.+/'gWA>zECa5I[t_*oVNrK,1GECtV
U"dc$H;dc2T;9L08$d^'6-*[9-^OR_X#)^ohXi9^%a3>-'OctIpGM2m=?,/BGzE0i
U"V<71i>G1n+:]QX[j1\E3R.'Pf:7[$%I>3ra/Mf1qJ/PpR-L]u5Lffg:jdKKx&X8
U"Tr*KDiSwO,aL6f(m$jVG&s,b/UHV0I^ZQJjWDd0?1n3Kj-qi3o=79<=ub*036>&
U".QV/5=T/eE6[DB&P70mA6C(it?:029ThYBPp+(6JhEEROuO]e2K6j-/BbF,D$6k
U"Pgf:?nK2htp45l)KVsz4vK5&_CrW-*2[/J7g#1]ecDk#S\W)nH*I;(iASHb3E=0
U"SP>.(TKgBqAb4Kag.q$ww-/id:?uH7*?x[X:<u.6wQ/j.juv&[8=zu0+G8iTcsD
U"pGIWW3ShOg)9Y9ZCJl=y%S:N-^YR9W5;\9m\MMYdIX$-vo24gWH[BX?q^W^1/^3
END SUB
SUB V2
U"YrS$W/:Dzvk0COs.Alt(d;ULq&SOiL#ecg1'pveN=%BbtfIL?Nh7WNw24YY6TiH
U"*I>4-Xi<hT]2pZUUQYfJrs+\^=W;:4n/%sFtL/\'FPLKo[SG)XHz&Sc%<Aq[WS2
U"X4gz15_Ky=U_#H6q41FL5]Nx.mLMGj^rf9:upsl'M>C0Jh/<_kXjMqMS]wqe^Fh
U"5jnLWsf#YW.U7B].8YnT/ke3/+P7ZX/<\GuH)Fj^qFtsJF4z&gKLqp]wSl.%N37
U"5xIFx*++2yVYu1njg$(Dc3E4KuWOCi3ad-mOMLQ/MYwGg)'tS(YEW,)9K^Io,CA
U"*[2;%n=bjJPx(%9Lpb%A^z9Po)z<V2W;8[=E>8Y-*OsSH(xI_-Fe=&LfVQteo'U
U"e.o,kuLp_X'M9aXg1e^l6vtNnI-bNOx=qGVdfp4v>j9i=5zbWByn:gIFBKfx)vO
U"laVY+&[f2[*Bs=+xxfa9Z_L3%gwrRk1cc5Ue*FtOG(:,&-+p:7U*BPe3ULv(88]
U"OONk>1UdS2O:dXv5nvlwkp+3k+[1m7hkn(,(X;]NQ35)_dAb*66&pxq-IuGF^Dv
U"h5tcR(FA/:-1IlrNO51?_&(VaU]T/SENKF(k?RH9l?R3=\IZ+F(KI_M-rA\NI+r
U"2Am1dns^%vq6n<SAN2e-[(58Bu(O\NPI5)^%YITIX%rL'>^Pa(>mPaHk=MzvbG.
U"Dj$l9dwFHJ,;8]t*Eko\N[luN:u0j?N=:nM.Du(o\NDMsFHXFj#n<AM5k=Ei5kL
U"E#r-4RAz*2Xn&03kV(5'ji4r,H5Yv?,2EIm%k2D+l2RYi2NQaiJ)fk#p^Fr.(bq
U"tae?c?OsmO_]j&WWChUSEF6>+rEQgu;(UYrGd/r&.Anv$hfnx-._$+/3FtEGrh9
U"Wj(&qF(_gS,%Z9L+*S3S^wOE,jCm8^I'yUl]Yz^zaXqQbNi').s,fCjAoqQSWH3
U"2i'z1rC3okP29o<<rz[P[6NaVCmt[.B&t6)OJFy<&zwmLnFj&)-_\N_&7RN,?O/
U".cli>k])$^v5sN=IcuaP+LhCO?t?CSao8/1m[Ma^)YgK)ISmAh;vj+B+G':vk0>
U"#r\pRE]AeGEriFQWa+csc6imAX*?ts=uG$9i]tLE%^#KePAj9h3Vgcew-n67za.
U"XjOvGErloSHS^og>IGt<ltv>fACT$FgG%Ae7Unp-iIkfe'/\93.CU$'$M&s:.im
U"]EfQJuyY(hAZjlU(40b[PmmI%^k;C_vq<d8$w%2S*i8Prq/i*4pIiAIra'^Q09q
U"l*X_Q#F]O4'J\6S^S$#(AapN1:3S_QFn*5R<&YMAJ=p\tC-2$Irc(mMW0t#M77b
U".QqI9TK(xL/biY93MJr^McOsrGK1oHILKHxG5RL$YcC;J$)PmOrs%>(8Z<OEMa8
U"xdfQ[d?;_\%2H1A4m%OiSXlq=#K2.a?hcVTB9<tjtU>4;6EYuj/aw0^NQI22l1s
U"JIG*b50P9s#d.NgCtu:tEXu)uXb(SW=,3s)8*2-p6nwYrM%;S2W#tmFP\IJQ2+<
U"[5je5y+Be$mAUnp,?bAwxojnRbC<1/h:;hkyf:sj1&Cl9GL1[f0\2V]*w+>+V+S
U"AR[WBt%iR/;7H6GHE/cx/,7uA^yZ)+ft;xARZUI,$>9*g\*Pw.IyOruP?^jH9SG
U"2A*JE;zZEXMHFHCr<.GWD/KNUX)OXGOYcs_sFJsZzxd^*(&AsnW,ee+8CNaAXbk
U"_(\eFqGFCZ&k'=9]B8,d7h.0T\0O_([:34*QwJW:q^?t:Yj/qJhM\n:-eXk#>NF
U"$tcqVQ='Lu3SLm-$RlWn<3^a*8N]*E0YQOM\=yFvA#>Kv.q=:-Z1S%rq%djNkI.
U"dR-KUjDvK0v.Fj5S=Ngz?MjaFMp'1o<ZXVz?bgN,)p^8QPED1=E&Me-w=#h:w&s
U"hl,)Gpl0'&URUp&?_iwOD2eRM?Ai3o4JPUjn8WA(+)p$lUf'0/,1FSn)>hYN=R9
U"r5ljG=LJS]tx'p8[H0n%Fw_fqM;)sE-TIVW$VF4R0V'mvY]sS?(bdYf:c*U;/>Q
U"vPsLP3shAK_(yvPxZWNBeJ&B%Y5N=(<ZBl&Fv+B2UI.[)qPJ/'?k2xW59q//)Qs
U"tGaw\v\bci=5z_?.MWk/cPo8ru-gDv*M1PAuopuLa;a.gPgKjc=rZnG6[9]96f7
U"le*SD2L/<u$_dXiW<^4AWR)P8m&75\8ZOLJ]XMjT^*iVSVmg'Xr^OpW0Zl;FD'O
U";x35gKph+pNt,*lNt0'l=pf]du-MQ[\si34co6Lp4TS>Y,lES4.K*EHfToD]PNc
U"gp5<Ku]tg.0S*Jf>/r8\7IV>em]oX:Sm*k51glx7&6\HhRst_SBXGIZoWd[Z\cX
U"mbc85U_y)$Rdo7Cm*ViBtEq'10]k63/.OnHSM/jt7;VE1eD&.N]knZn7YcbngEo
U"2JY4nS'2JR\/)beX;seJ9)RSMBd+RyLKjRd]G>HfVsF%Jb;guKV\L3_-a-<i#g]
U"d]jkBIpnA-8Bl%y__t&rHN7c\LzJ<-J.wUPr<iq#qI/Up$dm7^&/Z??E.%t<CE=
U"+jIh.Ew_3h[?'l<TK]8z:fMD2+^F2^oG2RBg(h1YlK\Gc4JwZOoe6+%9/vAI4+r
U"&I4ukd10Sj'y]sTx0]MBXNKUyBh7#_MY/^_2?OUUw0_r4#\XkY94?-Y't/-uW:]
U"jl7/Fe<8J]P=yo'(x(fm&_U-9^yG4_2T-JITBgm]ENws#a+?^SiJS:L[Ieh5Lu0
U"xC,^&KkQ)s=d;ncKKHRgA#ice_JOnd1)3a6,*AjE^dgkxjsrcubX/7'0sm8EU=*
U"3Dgezma'3LB;WPZ5g<*Ov#>m$1a^'ov<9i7.eMj[jVYY)v]4*ccr\>P/^k-r9?K
U"b\5gN3hSMpFo%S&,p,1Fhb\u\s63qUXDibz%4D&8((ItVPdSWN7pi&_isWlk.n9
U"zn>va5]PTqnq]H/hE^P25K?LrwJB?Rtit\l5%S\oC5]=QQSqKw3$dU0P/T2uT),
U"gR5:eRMCsR&>Y]<?BjX=VV:)dVkB4t6Pd16_Go\Plo_&/]K*bBk6j+f:NUu3^Bv
U"']o/8S.^kT0ZsF[R2Bz)MGR<F0]-)vK>SOT\kv68M#?qJ<ENMV9UEwPIeh\nw\S
U"znkoNOQpI&f^&\1fb5hJtaUP=2(<1iz3ZD%<wj:y(&6S<QjgghuN*bv;cg+h).-
U"\9rBbD0dFtA=DlY)B;>^:f5RA8Tz\*;XJ:OE,9ZmV.>*Kr[p+k]=bFrpzZ$l1z+
U",IF9^F(RR,;/*feGde;m8iTNNs47Tm+8>HK[]R#vr)PS,($HKci83J^Nv<'7E]r
U"%cZ4_3SCW==KZHEKjAo$:4l71Wu_zY4i/,K\I_^nB63e&9poI>'q_U'64uiIrSu
U"9Uja(L+m7TKhFciI*hoBrBWh?sDRcvl;C:kZUX\8sh3t[%=;-l5A-?6CDZ_;P[Y
U".PY7$f&_d\.yMG*CEwODcRoY0jo3V[P3Q*%0=vQFqz9X>Q1g2)Vaem-wD+JsiQd
U")LjR(n<phaF'Wk,]#pdj;ePOwj#X;cb\0OiR>bo(E1<6))di&H]r)Av)U+;gOzO
U"e,%VEIH2$LGS^02x>/'ZCD)z=.kI[0tt,q%#__$Dm]K;cuvDrsk[nhQFUf*Tp^9
U"usvape]H7^/Kj7-sFdQox37Vu&YO8J=plouJBBTj\=I,aMMLDq*4bmm+nT=#[27
U"GSs.o\+Y8J]+NMt$&wYN<08lu2q[NgSVwLt]6MFV'tE;Qhb*-ek%d:C2C'6su3'
U"X6nFL*dpjX$$7ikg?K4BpIh]i[SsZ#LHwpnkel)#N]jJT0?(&Q5by(3)*FH6QRp
U"oD2cq-PgGe&6f=+R0,&Qez5(&$Op%S0_j'TgEAl4JF&I?\fPTiNJ9LN7DQ<:X/u
U">uAO#^hP]pYk%s5k&ORYD4pgJ[r]G'RVYTd%+6m<*Q>_$H;?d2T;[.K#J%O14OH
U"oJr?3h1Q4%33o/n+8F6ezPFbKsFALlpGB>/Y&17-%v^_\)]PQWXD/-nHX]YAc:n
U"FP#Z(w/e^RnS2%3RVfz.^cW6X.Sv#UH'wZk:*qg[.Aq\au1gU_GSEEh\j3]Le4e
U"Wv]q_RWP0W%gcVg]t6SJj;JrCG;ruQ,]ojS+EnKQ#^CXbF')pQjrSTUr+8tE&:+
U"ILw8?RPE4(t4RM/S&ITmU=r-T8w)>$(:gl_k+X$3;']--1Lr=id<9G;p+]w)rLl
U"o8NoCDyt;+iMB&7Ow?)&;)B4hYECcQ>aO?qMs0ridjnP2X]#RWl[9/)Gi-(J)0&
U"4)t\)=7V(i;3XPiOaP\Sm<J51#7bGl2VWL:3ofkG,Nel7AKgkMmMY<=\sQWFm5*
U"Q(928y&#ORjMarqD2xw<QM9jZQ$8(kFLW9PzC)m6GO]^7vZ'b)9'=8_knG_hwf?
U"3[xA&\<iDJ303,*D5#,p_NrKB^QGhjDK]6M*h1ConRcD>;zm_k,kC356CE:fgwI
U"31j5)7z9&d=5)OsXI)&oIn:WC;'d]?-e]?7pO&B0F7YQd2YSyQ.jG%ZO>'5i<Bb
U"otdpOPE5Kfu.JqhN*1POs>aLFOJA*J-pSAT0;iR$Nt4KB^dnBaxE-nP1QiJdgoh
U"vR-emTia30'4=wE6(kTGrXu6GGS#[6IR7_#B2_7IW_hA)n$f[n<1r.:\mml%hiB
U"t_e2fU\.]Dp7K8Uik7%TGU,lXI;2CS^Kd.O%(178e&j&sydm$Uesr390;NMbt+.
U"M$&W%%#/6tasd'e15L]'$_d.4t##Zit4Fb78%,f+EnTdbWOx6Jt<4GMot7ao:OI
U"5HV7]',F5Tdtio/F&M[QeEd^pMYErsE<&)G.c6[pInENG#EebEZgvH1MN&#WLJF
U"fDjc.:+Sl$>?Ftm6*_3&ldd5ru6DBE]$H4(CnYtlIJ#iKnQ<#.A-qvQoC%MIW(e
U";FF&Ndsrb'Z7kf+D:k6Bi5ql^d9Bk6cak)$&[zNL_sDLA^$pjFrb<#*SVtyN+%d
U"mCbunTAN<o<#I<Fk9[I.3C:i]*V)VIa3_N]N5yiQ,90l\PgosAj4p?dTc)MlHaI
U"Y1vogO*-,A/fd&\Cfc>q,JV=AM\<'-i^#.Vl,tFZMiF[xm2q'A-;p/it(MA&em:
U"[T?/LL&jw-f>miS-EuNY1?z8[D*S7$^6rrgu$KL^QV?ub.X_,')^A$c1'M4tDaS
U"p?^GS7C3gp+9LnM_OD,vl(u1P)TO+e9\X?V_tq'yA\B\gy'<J>n;=]fCK0wpK<V
U"JiQF+jPn=t0j7ISnb)7;Vc1'FO\k%O>jbFkBx+fh>u<vM;&P?9>6s$ejKLej9$t
U"+8?BJKHCSee*rYih-L_oL7U1Sdb5Q7S)[*:qSj9_ypyW+8OncF76$4q)<WZPN.v
U"6W115E.-Rg6C;qw;+C&?FM.]cJx_HgG0v*m73Gb;/+jtg)-+'*-Gq4Cbu3#yv_Z
U"s96_fe#zY]GUYHl0eksNtVEbKaoj+Oacb154UU7HkTVI;Qe296Tw-&cXt2U5nz;
U"iY'J,yX7M-&Y>*8OzTLRNPf?FnL2cY*B84AmCL(P0sXCY&1FlL5K#WGu+^(MJH;
U"])o8Myc[IU[h)\-Q+rq>g/H^:2TI[U&Tc].>Y6?]<I2pN$8cM_::3lMyrHiK2Zn
U"'^oD;/d^0gD20G1#5a0;K]fFYhjDM[,M=m\1.yabd*Kg<ze:3:+02qIv-.bnJ78
U"24E^ib:'U#C%3_IFX.$T'n/Stfa%_OR>?fSSE,W3bVsLvY8s#NE/fMz93zRH*,:
U"1L[OA1A1jxn[1KhfuVpVB^cv,9jb^ooMRaR?72S+k-vEibv3lbM0*e=Pc??qMic
U"oabR%1.c8VFi;kyxL<>ZiI):5&Kh#jHKLKBRh%U>/xO\XUPgPdL_?&u)0O_k7DS
U"1Z8Gl1obV2)U_^s_026S(h2+4s%%SK0$udlD^R*eAdv0A43CGH/4j08ZfmxAj+t
U"m9:iYw*G<I4+Ol-GUJ[$wlkI2'3Dc9oKLk]<*3$m/4MNyqpL7/b(%^XRhy\]s*a
U"(nlGLqFne(>fC4c]2_<Wbe1=c/nMO_g2xYG9Vx;&Skye_^I4]]4dG\sb1EZPVES
U"]F0v2<E:.rsSOGGOzk(pCiNcH\AsO0f>)lSVu+7DBgKcR[hJt8pnRvR=.Ig6u'f
U"eHZTA-[%Knn#[4YF<kv0$rKIQgf2*=-YrtJ[rqU>R=%Jx2xFi;2*F_]83I1P*kX
U"pt;QPu1Ppb#b)DVa=)=Sb2O<k9Q^]i_K[0ulUi'hMj)CU=6Xeju[#>_wsVGdsSh
U"X%i6Sp+ydu^'?0bZ]IY1Fnn7Ra6L+hk%yD2Z9VmaFBKRq4thFiH1-oaTusR?9?$
U"mjXl6u,ucuVbvrVLvVu6vVv*vnXf3Cn+slxo=x;e]xt8je^tb-$dDfvtE$b\nIk
U".X^[mm3IKcBGZx_2C8*'0OdHa,gNNW-[59V##Lu'u*&<<.L)QkC7Bm<1$h<F$*n
U"M(\K(]nEGTiXaKCXnAi+reTr'llN5msHral[)*VqUR\wy7mVt=&Sf&k<?JLzuTL
U",Zds/&0aB4,8zg]TNmE3f#iHpYj&:Nu=)?rRh%-/_WN=lpLkbq<Sk,rrj5rjjWm
U"pVae49?4HAiVF9QdYY5ov.q#gKgSE(-K[:i:,y+bO]2KokItrls5NLfE_q6J]cH
U"j/L)Qi2=9cD^j3CvP:5zN%cj3%''RIq[8(4Imv3:*%V'*xJ/?6d40U<G9-^WEv5
U"=Sd6SWdh5g1d/(Tn#hEdu+Wd+6WH<?^aHHtZ8g+-]ccvIlpr[IJVt/TAaKEh4>s
U"OQBLQL,a/DGwPN#1dWMo&EDcj]1MP+aEuqh$>Qm5Z5r2k;UctK=PhmF(ff2nKK/
U"-dIG^$FM+2:6N+bnh4lEba,t/8l7XcpIYf[/zp$8]n>$;PSCZB>D:4rPJaJ1q3N
U"4ar*14dDI)f0D339_JsGQ?(/>YZhGNL/d].;[f79);)0M[+&Bx)0w9#d+nQtzdg
U".WNWLG[(l8L/](H8BAfstfpGnaqVIn:PF<DKHSQuSV0dS2MiejjWp(%$a6E+$5=
U"%1-\7E;\.ph[aEIMy[TiNw7tY[X&;W#:aGJ:19^DWW1:]<3FnA$ZoSnAAlLYAB:
U"\49Yb15$9wNtQJrLAB-^SiP09S.\3)8kAGOn#WZo-A;5I-3Pvg2WhY^4-nPhRcf
U"NmRW/_CUl;wJL29_UI$qb=j%5N5VXZC]cV47Bft%:(QN#jSaxSb(md+[GeDL^uL
U"kUCPMi0]-Gh=**f=N]_4%MTj6iaa&6<3NG)XqU:j-h%c%&6+-)J\uYo,M1KDmaK
U"I7:Uzr-%g)&ZdN)H)l#0IC\_3W($Cp4]6l4utQE6p3F:amB3+SmCZ>[$Wt9714x
U"]1^'3sv$SjQu0>M&dS)MB9Z:w>BSb4iJNjg;b7LDq.OU6K[RdDbnX?j+#4ZGi;^
U"sV+SCB8%h(Yd9dQX#/P5<,S>%h_sukM2^HLZ3b)gH+gR+_6>*c.I2SdC=0:B*XK
U"15\(KB]h^30ykaSCD<PSFje&.*dAS62fsL\ypJh8*oWYLJ>kaoPnBLQTN,VjF2G
U"<Uu33CQgh,09T8hf>LrG3^Pe?6)wXX0?PN21&eFmI0?gTSA+,m<;WVQb:3?23H8
U"4&;V%$WbR)ShT4Hrd)My)xtu:>0CDWBDelIk7x(y+P1;wDq^,'16;:V^U)p,BUq
U"Kv#DO51MEW/9o97TkMPOemP)16i'[/<OflgR$o-p7EIT]O^[Z4Sb0e?54]%$nxO
U"d)sfl9+JX1,I\M-X=ml3*Yo#p$#P3/C,h.caB?K#6kR/R]$nAQGL*?(LpKSd;2H
U"?*>.S6;;LpR?6S3)v5sigT(,S'Y[_[yixmQ[Yz%:kV.w+>bGW4fJ:&IRv)uj_84
U"OZR%]x8beJ_JtC1y2Bi(L$2lJ,[s'jd<%5N^uG%L+0eadw1U):RGzOsEE&EX&*&
U"EY'Qf3+zJG0y&awhenSwtV,^_f5O,J;7F=0_^FqqUsce?mYn+xMX7gylAlI;Rz.
U"kvZ8Pt8->ALf75cI5D^&p<5bB$p+-Q]BfhrY9'k;P*+pK1R&H?fs=YPol:$d&kK
U"3Af_h#\*ERDk7??25Yk(<?&begX^<UH)Pa>yQaeoV\aC>LUTJl[XhzuQX\Lz=ps
U"_#8*5z,k:T1&t%L$]>q]7/s:^>\-aL2h<DiWx\GrOZIt=Ta?K.1(6:7'zY$sg9-
U"#<gfdQO'X\$ra&Iidh>gue4]L#PY,0mu^TC<EaEt/bJ:SIh.Yz:/;:+1BND#%$o
U"2m:(oa5yT<fflE7hGQ>jldMdrmt]s-\RaDzGX^7WX+X>mm&4kT<f;=PTEPaNr.5
U"ECTLRk&Ff;Mzyh&Fwk8G&d0t+E(9TT\&ZX(bs]Li.O<m1b-N0f.qSh^Abv^l<>0
U"P*buBhYAtN8wU5z[p5Q1Aviq5_1Vl*[EYq=fkj70D&IPFdar0bqoAGWIMKuwG4)
U"jHJJgdP&2ri3icW[tiyP9_dcfu)-^W;b:z9GpZz-FEPNor.5CJTLR&R8ndi<23_
U"qak^9vB8xj0Ou11u;s?f)_TJCNp5Hv$elTbWi4QyvKfkx\B=^e<Nk&.11oj5w)1
U"NJ)Ose.miA2pveHGI\P)/C,'4wl1sj+^7/$yc.&()I5EsukPD-D6,dEaL$G3[i)
U"G*Auul^qrhnaVVqis;S+(JN6>'VEIIZ>dt%*5oTydgZR?,;3LaR8q]XG0OVRXTs
U"'fk6^Z?j=;T+VSXfn2I(Kv>etxH<v4x*Wof=JL1N)NrRNbv[jZ5msVdJ2UfVcyF
U"ne0tNVJc[akIfJ:sP$y3,5RkNfNU]oXmkQIm[=Ac(f&N&Xxxig)Kd?'9\Bvj:':
U"N>b.'KXQve6gzd*l8YWEPBoI*:,avp8$trI2H#xB19P2DtXAftNtUJ7xo8fe3iV
U"KuJ67x6BifND*PjVQf'*o04NbeyNZl;ARS?dTxsGA+UqynR+E=zwB<m0<lOeCw)
U"n%:?L$A^35L?*$?hu/&sKdTOAt8U,RM>rMQERkHcMK%eoGq#x^'EDr)D4q(W&nR
U"qaJOJq%uN\Xr,5Z-'NeuH%OF^SftPm,JuPwim)GCVI\[zFo'Z;G]h$ePi5NOz5[
U"co9h:/]+mok6rw\i.n[RrO?C?+=(A-hFYqn;7x^tZUe8idQ&^r7ZA#uvLHLZ83E
U"zkNJ07c8TUx5Aw&<61bBEgTN_h-x%fcralu.6?q=sqWA:=>NOtpG[4q:S6nZgpN
U"mIL/cx%6*CGNojtT&7E^/OtW>aSUQbU;]AEL[gP:$<B&AyAo'4q\L:soaOF</+i
U"Us2>_Hkj)d7jVpQ*rC\$j2w$8dm'o3-D8qyh-$Ej7TXf./OI9;7&KKGtd/jYmI>
U"%wStYEA/Bvod*\'<xFPV#F8EpHsE'7/7aCQAcB2P&SHIH7O=PSgo0;.<L\vIx^0
U"c+m1Ll#sJO'%YKRv%'>)0WOe,E0M_f'o%KoRNITKE(ySX,0j>K.E8/NJCLPtoMr
U"3(ZLC(]&Frf3;R\3D3:e;BYa+4C1.wiUF%C^1ex<EG66'A4-?cB)l_R'BsIME4?
U"0%6d_zkDATTDLPcsTg_tmI^Qh1x3]<SQ#Q#4GXPYZ*U4J*:$hLHU).N^I:4+t;&
U"RJ+L#<x;(]Vh]pY^AyIgCoRxYm=9O5;wFD/o[7vZWb-*Y2#AgW%Oy/EO$uRrfY,
U"#%_9RA=>X+M[Z#MC)>b.3GEIccwTa]q]EM,7$>$t'B+6vSA#6Z#c$hifrsSTfhH
U"S]fKhGgl,KsCr]ioUO=WIflFp*hs]7bCi-Cl4*..my1'c\oR,X^LohX-;YjfFdX
U"/jjQPGfWG=ZFGKF,;5[[RKgw4LJAi];W0^FvuM0rHiACPZDRs4nRy5k6XDox#4=
U",A]OC.XAde<nt^(MzGhV7jtDJCux5_O?2PQJxj2BS=;X.i-BKOhlr<JGS$K_wkC
U"K#b+N_t\SsZ#LHwNB^D\-t<NOt+1Z]7c-JhE^oz_;AYV7Q3Uo],NfS'JC;S0<)?
U"IOf1/$N\9Bo9q<-a=Ell*)T30P(l2aV0S'EHnjROB0(R2,[.zO7&IL0&w]Ql\:<
U"6Z*D.AAcYKAKiJq&&gK9nh]w<\v:q,Q.dl.l06*Y]ARIQ^F_R^x%IVQ>>6p,-c1
U"38$'QBW5+&Llmgl2t4VYGcl(V3-9#YO=U6ZVFI=b&VdNMBcKNjO;?J[9kq_nDu<
U"mQ>GGIftKr,$BZq;a8f5UIM)B*Ob:yJIH1Uo\/ST[3/e,6mh'[.>/,+usENr]>q
U"$g7wZEXTw*mNGY[tv+bXBAH7r0%Q=1BshqOF=^Aa5ESdW_y&otJUQzUcl%_)+&8
U"A.(&#GWm0H,EEAyR[u%O;AKek([f18$RL=hlOo%.AYp5qVCPV%Y$.z8_Z(%((H_
U"z)7+ca[+6#u:?Aj-#XHOl]=OtrJiDXi)VX>SYC?'n)gU_$g?6Fzm1u/P/_rer:l
U">9%=_%+g[4;*7p'SdE_HjpegU4OXH(cL%4pl.2mVn=nioxR]z(1;ai.W:5a,jK&
U"+>$4zXujQ*T9=Om](a1]9z+J':*8:f)$%JiRz-:kT,TVR8xKlIh\JC\dAIJ=ts1
U"L?S?]o(MGmfAaV9(i:+y1r$<f8m2]r=lLG%.>]T.[6.8AA0\dwaNh.jmg.^]%Ha
U"Tt&PkS(YwKQ<\_'PO+wjW)hE5a^*Qu0GZ+Sp+u&dvJNnX-ekG8T1KCJl0>qjM,7
U"y6o$rQ1+c,q#roE9r:/IYvV,GEAl.2J2?Oed$H]Ngx.DsGF(JFCwnhAEI\i^=uH
U"RdrLU=B8.,=RaRm[Uw'p+-fZIJ1U&7OJd77\IGD]s(ux9==Q=aIR>GrUj1?2r:+
U"Z^N&+>:5>X_Bt:e2KS2ET+DFo'+wMc2'X=aS;tcKs=Z;MC*..d?>elV+Ww0laAf
U"4=6j(4=tZ):OVSC'L\N9O\dc1^Xr.>bcJbbO_(g3r.HtJm*&HS4-bqNYk+SRY(+
U"]hVj'O%png.Z6>MH#m/<FUh_n>X,w,[Qs>x*NN3XAdaP/n>8Ey*R;%;#:rTA>/V
U"'#\_n&1B_Y$uN(E%,yK/KMr2uwh::n_4c%m;s>B%3qr9K&h+Hg69NQbrdv)P0Fu
U"y,/:z&oD,_L):sCU,LGAOf:TV]?UDVJ$2qW3l(d0(n[;]7^S+h&.nL<*UDUM^cx
U"pCo'O5vSSs[vN%up()%9%%%I-%SKAdEqh2pwVD[%%,s%%%0%.%%&j%yxut%ySuV
U"jXflFGA\]af#FjO5pV]=4v_fM_XYb**^LUBtKYMmFka]^r+^ZR_b=Bv7o#*6&jD
U"mEI&wq3r4zULiEyam]#l7q#V&wocAsdllX?gxLZb,6E>5x+ZCjr2a?&PctqE'Lh
U",aCk;I\GoPwUH.;2IIym(Gx6ZcPnNeb[jZ0urR^3uI\kOpcu->fPb)pq-(J'^?O
U"L6WPgC?S83&>$x1_TmQV7gc6CLc-fR^NH9=-_)v&(Qls5M7uZYZqqVo(8=eEThy
U"M4u.9rbU$9g,es^m(\3nqu[Xj\na>MPqz7BALh-tP\%9U_xiOU'M<Wxb'4AMbC,
U"3KE,PTFDPkg)X&cs#v<#M/22I>7xs+:ev>dTpd'MK7b<jq7<eqb\CL-PP)TRk)U
U"p.kM1$5Yo*.&0rt)Zho*nDn)J=39$t04l6SKRseeX^al3z9Q)xe54Lr,luw*4T\
U"<Pr;Uaz2Q$N's/AOn#^g8#lLAOB#Q.KBA;RKe*]WnuNKgmzS7-/fryO:XmPNf<C
U"0cVX[In]-pXW4bkgRi2X3$RuZ/o36F5gU?(4-v:e[eY<'/[v622;%F-boS;2<he
U"*lQg)z*Zi00kOi33bb+)M#ta(dpt[Y8QKMDl>_#i4[7l\#ah8>gTu-v$rKoM>[:
U"4ojpfO2xiU/]S]LP9DZaP(tL]&XuhZ(<zIo#KshZgV)7w6feKIT3J7qPt0Gu2oR
U"x.R87X'k2\*ScTb;:j5,iv+#TAjfLmNPZd?k1A,zrzfq[(OX-8=:%;-+[&>L]3X
U"1MEZnvlK:Sg/4WF%v939\n.d0Z^zH50.pSJDa&yTbXk\)*&.B.B>K'o#\/(QNuw
U"W9THWdi#.jaT2ksJOk0)FrES.V8/LVpW1QNlMZ.z,bfk]:UiIR8UEGcOU.QL9Uv
U"k^zZTF$yMI??q_\DpB?Nff+0T8=T?o$d489_+NCrV4z/xh8ocGkWps#p(?A4Jni
U"3SSD.2H8eRgzf[bG+drdPDHtDVGzx45e:Jw]'J#vM9MH(gcF(^Z5Rvmm)(;.=L.
U"TLlxb_8)-JgRE:IKncu<p.B'jhNBe0(ziPdc+sCO^,)(%zSd%6%9u,Cknc3C,us
U"#fXmTvTlyD)QhV(4HGWWJH.-0$CnFZw]Hvuao=TtZu>vuN3PW=9,.sZVoRwaan,
U"sJ:Jj=sD]_'ga9Q^SGwjtTH4uvrSNSp\>zJ7&$LFpk\H.3u/pujC;tbcaEryU6r
U"ll.os#a1r6cfv?rq+RIV(5bY,uU=kN%N8p<Vv8oXcTXG.ScFcvh5&U<+KVcReE(
U"WP7sQtNi7?3mox+jiwJNtN=sXpQ)h4hs6/k2I\u*<3hpZnu,Px[y(Gxt#ndPWxE
U"4*iC.+xSjjdLtfmFu_?Pslj?JRd)Ny&Vr8wsn*dNX+X])wVWwD5-QMMu7r5-KhO
U"?8yRh2I?v]HZ%U+_xiUi'M<x_6VBlcdj]EVEV<=6__SVKFn_G>t7Jd&K1[[quVo
U"(J>%C)ruBx\uc$T,?TF-[bEuk^k6-P)hTR)UYpfu?CHHf2>:(kd$Tx&6?l2%zjg
U"%JwYCtIz$Ff2=Nw,Ms\F/=o-XKamcwZewu*4TfLsiSHD%B*z3*k;&&b[CL0[_v&
END SUB
SUB V3
U"%$[)r+_]Qq_O1,O;jl_hn)Jm.,<hqzcjf>Q]Wk<OcvV*SX6ZwJAFwCbYwZ1mo.X
U"/3=6F5Uq?(4vB:e[Y:<'/vR622%gD7J-1RAVR30I58c%W.8X2\-EDg<WlVOI\8M
U"/L8n)5Qj3MVR>_#i4[7l\#ahWh[/pQsHjk1v6W,4P>V+sZu<naXF8.o^jB%9vc#
U"iMwpiZ^z5oGDkU;2Z-IuJl)l$a+Bj:R-6>X*#Bqrg4Ul\Zj[7t6+,VG=b1+hB?8
U"*Fv:Y\m<-OxQTuO)w0I8t_UWdL;>'_Z0):(j08#A,+9?_>LHEb/qTJ,iOMX/+js
U"9Sd\^JZK[hWNU3C-Y2wrhn$>U]3o]IG$:L?VK2tEAiD:#tJ=t$uqTFm8+Hvb2rF
U")Deg.:4N:RC>9?:%cu1q.S/DN^81qsf,%2)tB4UZos>'Mb0Y6rcE6l2yCLAk72:
U",(d^HaoOMnybZoq1N7wDouHjrKCq)Ji_cuo]q&(<)B8.<GiFwE8KZZuOx)il:lz
U"+qR)x4oFd(x-Fu';ZsNu??jbY<r)38HnQ&ZSYbSfbWxCA.K(bpe//bbtlw((xbB
U"T\0c'x*wZH'x(uxLsXc-w<QH-w\=j0):DbM'RBZK^2F?7UL>kmo0_,Q>85q\8Y6
U"G8iHMe=ElXg2LMpT7C,M$t7k9lJ/+w>OnOveMB,c-fa$8&mF&J,2:VXTuxTs<Sv
U"vfQ?f)s$DCFu'+'Qp_XqSslR<0I4+2t]ICw=.21NHfLLC?SJ4[\0Ric_gt:&q79
U"LyN&:T[HQoaDjDkY+yCdG([o4%3sHNPTGkr8OF64cWPBW6]'Or#6=_Tn&edCcu(
U"5)va*BLH1MMHuk=e9*qb2Y^h_u-jTiDWU$>LfQhF0PJX-7oYgS01)KD2U%f;>#n
U"I<YEXA>;ui^>8tqV:XL$I2bld*q^E5+YrhJL/PT6Vd5&1AFb2Mn/rBi+Pyl:TOF
U"ipO^\kTS8r_0:FuVyI,x%P-e$&MF*yW3?\F>xHeUQsej\09HO$+gmn)./]Xee(P
U"aGIX]Z#;OnX7sIn_8Wp'\-rQ%g^aoTpq2#J8<TL),+#-dcW8/+lxn#5j<E9JF2M
U"LFFvZWqP'*kYkP#;$DOm44wX.%dDGW)'o^?8h+W5Y'+2BGPq\_.=Lju\OSjNDRe
U"g6j#t?Z-mJl?ZAiz*u]a,l+7XXHRR4<Ej,30Pr/v/J8-o>E\QdtG?ue'5EI1>>[
U"0$Mua)1f<RJq>G-AEJnGuhv<\>945i))LJ:?:FVvP7L(,j0d>k(u9%r,-aCq3A?
U"AmDBIXTl4DTu?\&U4>\&H':6,,X5$Cmthv4B;cYMutuUj4(SV%YH;<R7SzYxpfL
U"I>t#]?huqj<kax#4q##Ad76u7iF>MsqfN$N?Mjg'OXd$&Mirqp#(-EIa(+W8'L<
U"91b3.>pNO0A;l/V]m8'hMqHb<N.+&5?9^4c<$txDGUFMOkqlqYm6H=gbNhlWjR;
U"TWS6\^l$$Ti8BlUVhMnHw4amlr<Gnb=tU8n-WjFK<'qa#dqNmh:-UrDtGMo5;g-
U"&G;okb8CU2MpDZXX)LWgvGF>n1R0X[ov\<8MIAb7$]tbT<tU$X#NZcKS&l$<Tyq
U"Y&%OzdXdOs>m?XdD?7QGMK?1?6Qtm[lmv&T;v=e8c%Xc43i2fQiazFFG.9V$$7h
U"\onZ_$J^WVR\5YQD\TovTdsIwa0;/lOhjo5[6Z2/IuqGZ/6b=VerN]+%\?gRa/d
U"hBQ2XuE'mcB3uFUpa'\e\d-RdZp(0kCR\HVrc3%XSeXO1hwcl>.hE#YB)Fd.c?(
U"'c-G?LV>ve/-6R6U7k'<LWo9nIb6s]%^dn\96H&0?TbIxZDW8ADcI0Xu7q8[U*'
U"*O1_RLBeQu)S=2ZqqdLP&ed.KBeYrCrf+3c\#hUjiSwp-WqbdI<NGSvz.1E]K\M
U"nZ68S&UeUASDnRq2iL+YfQ>qohr'<H)t)-fpy(^;#ktU01br1JHWnKss>pG7*Ma
U"u\k09AB?A.V0c.Fxf0My9)i$Exc]+4]XU-mF;#t^9KQamujUKW[zcEjc#BHx.58
U"vC8]Ho^JWVymH/Ku?J+_xra8aX%\4+tmQOpTcbd0Nk#\og5La1h)N0L(p0Q<v/G
U"5<O\Iyg+]V:50JwaVr]8u8#6IY-<#vzat5Y*=<TQe<>B63C).wlOLqr9.Rjdt2L
U"sEfM3Vy[8'85*6<Qw/CZhsmY;+8ikTPs7u1VilAQ8Rs&ksLnuq#(8Qws^wWEXxX
U"siZ^0t.Jwj.RQNa&y:?(s0USZH8w:=fYkzei8B%'-nFNJDM^Sqr^y6xtg(AM4/d
U"1[942Yvo(zG$IK)GQ$E/Vla=;VXTwPiGPsk9fumivvg+OjFL;<r5,?qZuH77ytX
U"Vw_URGHQ(T)?jqsc(aqc3n0%s0uvYL>O?:HjT#MMGJRjh[<);Y[=.ErGEK1K3xA
U"Fc$gdwWvng^TFdSNdcifHXV88.3Y&>YH'n8'/RPWCG/*[:PV\NkQ2uOne)7Botq
U";HkV*n^6gtxHl*Q#E-9mq;pk;AulQW_LMSKd0wXS:$0uUBftcxu4pu#2QHr$J.W
U"j?lRiBL%h-YuwbvJn?'oJ4'S^KrNO:pDMxl8\2WBl9F%lD:0(jB3z2G^.I=#sDY
U"tfI\*_NUG1HB-gif)$qo%5RJBrlJ?MyJ3B#t^p)gilRh)YxG=T$+e#c$u3vn175
U"Nl54+PY<%mGbH(MMKK;Zghh<\^6Dj]4hinj?YAxT/#xbl0;VX$0Kc#Z8X_B;hPd
U"Ru71_lO>/IUBLp5MkruQqa$WJk7i,7'?=Z$&W[D//fxIDT3/9TC&24.CW&]<>c7
U"rt3a'\%'s[Q7Fh94>iH[i8OR5AUMk]9)jqqbP:uqDvhaF8zXQeX>eFe.b1cH]%L
U"k=a:FAuzbKfJ-&FYL9(/VM97K)GdDvJ/%)IgAM7qAW)\SK$1?=Q]C*a4iu]fHu2
U"%CuZ#qu7:8ZLPf9Wm^dQmu*BF)<tNoD;l9u6O8d#85MN4-yBqPqB56i^*<I=b$u
U">OjTWdz*uKHT2MZgo7V_vVLq8:.s%hCfOY7\L.,-q;%BF&penE=dKO\A%VJle0N
U"R_VJ]_fp0V$.TwpK>M6rt:79Dt?ZL#4*Ye<U8Ob8$;qN585M-H:,NMkZ3;1Mp]_
U"L8GN<bH91?G#%ihWm;[ltfbAsc&k94bM.mdNI.p5PfJ,dxb-Z8lu3?u?u%6Yo-T
U"#T6dn%u8dzL%jMcZDp9\-El$[amhsqun$8aR%7HN=68PL9luP4-_bz/,SPD8&KW
U"8c/CpH41S&EFUcYAr[cF-;s4Ap?0h;v\2NMO%d:ckmtQ($n1t*T4C&=(K>UqR0/
U"CbM>rGNI8do+/x-q4D]Zwslfr^1oT5>,TdZY:QDQ<0>KS7rS<#-uF[Q(hibbuB&
U"a';4H\(aMEet\(HH(iz#6oHmXZ7TEePoix?rG(6*K<.j8Os_xLXY&;lZt-u>uqm
U"mqX^>rx4*Y#YY)ID)+[4DW:0r3i3#d/eDrwaliT>&e]>h8ehJKbZ&AZgr2r$Gws
U"V?P0_64<66o6,XV3I%4zf;df8Q]h>mrX9>xUS)iWSm#fF^:M+8X%;^JeVdfrihe
U"nY&LtPoRGMum2Z6+d?90BKEtQ;^r$z?p)31UB^JXa'=HJSsSPD^($ZK<%6H^gwO
U"3$fwu7cUQH0=Y(ullHit1q1d'.b',kKJ=^QB#*d)_VNhocW9$:pBrLuFlP2anS)
U"GhFO&,c+HHnNs)m2p+D*3OX=fxDcWD5[j%Xn\;>hp4C4.;G4Zwqg>SJFZ^+^B<)
U"$9p/C,[W#azk)jdxkA5GniycAL=H(x;ICP&E>tI7'MK?7ckRFdf4M5/pwbuW$2L
U"9Hjr=-ogc4^/RRdm_QK$E2KQRp8c#uh-xZjkmu[H+hq^^9(:Hs*#:ln>2jQY0J%
U"]7dSp;9;L(clAU,d_t,W\VJ6pmKIM*Arfg;^ZJ>,n&mPN:N_eG<TW61u+[9O?h9
U",QUJ%jU_7<]rS<$bOL'BN-tM6'5id(,^\P#&GNE<ob\l_k.[j(1gLzMdw?GsQCk
U"WADTP&:P_DiC3F>k?vcYVdpMpZYgk*A:*oSW'4lD?+=1uWQDl/;K<:u/s(ZeKiL
U"fG?HjQ$M(8mQxAOIjx1%/'?Hh?t%WpX8RRdni]Xlpv7S(aOzbyAB8uu*/Rf/q]^
U"unfv9H8i&gT]j.ygDZtMT92M^H7;WNOQk_NHm^N^-'_j_R0ppG>yjV$fWYG*sQD
U"iNC7r*49#4l6PfH6M?T&qTpC#.MZhje$bGc%%7DpuvE3<aC67C.Bdt%+W_fT()?
U"Ek[cAf.%N<C-;C^5Nuf4Z(/<9qcXHBh%fwlI[.hIlFwr:>*%zp].?#Sj+a;$9O-
U"l7N\5gZHD9?;<V(lT;#FoVcPd*a#RmjA_bb4C4M&OYN8hG';2)PE9fb4T5Gp+oN
U"JZ-[a&<QYrd:BWog<OK]%KT&9%5'HQl),iOdZpXJ=hL#>q%LU0Hb7ODKZON$tGs
U"-<:?qR3.r)^9:yA4<Xta<P?PYpC?BWl(04EHL/%gZ:mnY,4eb6BHMDmsaHtuKZf
U"Gp-GICRad'ml#N;lmmtmiWGdHDz%:s5&GP9;4CC+C-s)0jRK4jCEn(+prM44(IO
U"B?2Tddi*(lj#7m.:(=[&xRfH>ikZKm9o)m,k_cc?5sf*aaZoGUWFq-GX:(d2?Dm
U"FBZzBa?h./zM0MJGs:rm=3pv_\emDQ<OpuJ]3qUTmITwL*?,6,jNbC(e_hy5=A2
U"v<(FvL0](ekneKOSqrYK-5Sm'u%-UH'V>Y2._8S8bA<TR;Wbo(7l8XyX:NGIiNI
U"q6on[od[V\(>:ad5B3oXH+ES'u;2Rl,B',h,gH+*;o':Nb8s/_*h4%25,l^RjF5
U"g9lH00rcisOp:dS^HVluCPbd[fc-lw0GWcR0Jsin\$tnu1$npqohq5Hfe_LZotJ
U"LzLoMM-pRU/.X&5n0\3TWxv5qZHJ:ba&CC<h(T+H5oT?YA(cjq.M2A=X()ePT(c
U".lZ.vNL/.zpouXf(^OJ(&_;Jzjg*7fxHD^p%cPS=()Ilvw_lX3l$ZS^YHJgh-IE
U"v6:5*xfM=d(If>T(E0XT?&%?qC$$a68]Xlj).OOa(L:0T4NedhgcxRN%#H,,On#
U"Ek7H-IEhM#Cc-N,9&72IQT\v;sMXlY9^n>PQ[0yqTut[Fa#(C8HD5u-?]R\<*l)
U"^#*E&aG&MVTsGWld9c\5S#]$-TJXw8HB5[PWCr$4\,-Hhx%b]jOv$u'3]b.>pF;
U"^#wMYnKdALMN[frE^$kgd9251o+y%SRZ=AFEx?-=zgPDH\uv-ST4H11MN[<a?-b
U"(jS]N9+WFHhN&G,ppP'CIW#.Ki<PWGY2^[nCi^G4+6q=e4?]t\Td_;vA9d+v&Xp
U"UlX]ZBKYFsd3N2KxC[)_n<nmk48_f#xPG+(Vk_J>(l7jC1LFO0v2.c&Zz11]nns
U".1T(gYK6GJ032D#sSC8H(7MUA[dBS2D,6j*\3;Nlb9Te#*r$sYX4m(H,pWN#HA0
U"t2uWfA*6OQ_pNr%Ng\n(W\oqx3<'qx_#uA#qK5KkmsagV+r^V^shqn]\Xlb%nh>
U"Hqq7Al,_XZm$=.25nurlvB=Pn?NTZK9:m*Tnl0>.w,ST5yXyLYjeH=gLL>XVOme
U"qkliI?Zb5wCTt\T.hG:x7>r+#TNg.D2VNrsv^xgU1H8w]qtngr1:2>YBN\HyR$4
U"Nl\i$cV^t^dDTH\-d9U)O\78*D.C98OMVZ81xvocWHQh.^.-SLssRR%G7782D.C
U"$8gtELTYf-or]WcQAx5[(Dt)hFa1H-gd-/A)CEy8rk]66onfdjE4#a^$>>TWQ?q
U"#Q[t^BPJ*:_%Jy/PlY]Tf)T+^UQ\V2iGgd=ruQ??B+8MQWk<qlOv,^Pyeiql's1
U"?vb3oOH2T<'<ZJX9X'R66*\g$kr[CFT_6^<X$jd*?:iXFs#tsgEr7mp6FkrmI^w
U"/uZwqU7%AdtgaTsAgtLFeHNx1-8vMTJJX9kq]P&U$TjI2Nn+%WCRPr^v4J/MAS^
U"D\FL>vd=7Y$33d=%[_c5W9q02&GPi('^GSVD[FskCa^k'KSe3LIQo5$enUkL==^
U"lNL2\nHI7\qbbpAY^qqCj0j[cWWG7D%c-Zp-$KpoR]L>VEFaxGaJv4OT[+u7hZG
U"]j>ie+r-5-:#Q5pl.;>w+w%d]CRqKbx$fNr\rTW;p6Xh0;;+SVU=ul;;c$r*Dmj
U"Dl)&kR;Lwq0Bsrbn4(?6s,8WrM(M]=p5)oZ33SNN=>SfD(tf2usu<_Qml2VFD,V
U"-=(\dG7T8jB?\Nldo;P_TQX80B++qj3gd5&iL?yAe>&8i-H(QkGu>oN?rh_Fn?<
U"$']=cak\Qt8qJUvJ7iZfpZ^r&2v>cCHvHChHFn6ddSxHhTmCSLPC]cDHHp3s8.(
U"isZdXu,W4CmT<l^2PDM8Yv\V,R1UuM8H<]ku^$J\Vxq#tlZ<j+mqb8bkYk'\u/k
U"0qu#OqkLuKn4MJ&Pyuhvo$pwNgdfhhMifpsNX4aR6gV(ZipY%^&J9PeUCZ/Ir^'
U"SdyCk:U%ws;xEdbKrbW4t2f)$Tkq_$AmdY\f*$=+iugcGeXn:4Z9x$-]I[UWW-M
U"-NTLw#jxr*u>Bp'QMNe.Eq].O$SF/?>pamtS_NMtxK7yHcCYM(MutDu[%>Z_eQ=
U"#VmY%cXPM._?z=[\pdY-MjK:Yf\z[]&lk^Pd4lP>NCJh=?Rg[r_rrDK8dfHnC^n
U"XTFLo,ODCPq>supZjXpFAr[D[H8BKjKeljNS+yuLovBd#eNFr#[i:rL(9q\r)YZ
U"jNRT&>IHI3SK5Og42XGLR2'sB+3eQ;[bBp#b[n:2Z0HB&k-l?jYn/_JGkhm+z4k
U"sF)n+e7V2Mp.D,;tf$S>:5b-)+wlIt^bDtbF99xVusxb&[;Zn'<mrqPb9GDMI5i
U"hfaF6qpa;8B<DijIWgHp2m??OZclZ$8gaK(\-lm8*e7q^f<X$vx?Yx]v-ImltBm
U"N??NIDg<<n0/$gAE?0WHhxCX4u0<%=4<YT.3.Ljgkg?73vx_cX:p3;'d1bccZZ3
U"$0N^hluwrx3hOYud&eVH]PS\oePm,#2Jw:][g4,1n4.gqR^Yi8TI[Ruk<ZTD\Fs
U"#OklL39)v:NVt**?ZMaG\RDxD?kaKUdbZ&P/R;-2;OVru-l]^h_:L&vDZS*nQnQ
U"T8l9P^TNl9XdE0frPNq]IR%0[R]-bZRgfEuTSx]C,><j?f/TBeL=oP>D)v)W/&I
U"c1%*#?X\QbKsOX[U[&%JW\7Svfl^'X?rBw>oS2Zg]HLMFluXRwJj++%p_fo)3b:
U"&d0QxBn<P^TNWb^p4$uTvZuZjxK8'/]874cLOX8?.hRKWR8i1B9KD('W#HidSfL
U";evPyUcpo05q&nnF:OnvsZk[oh*MlK2en7#ae)NcenBO+Hj%0Dhf'N:Ww^p6u)x
U"3wZwAbN6HU;?[c*qS&sVRc9x1qJWA>Og:B9Y\4#YVsoD_Diq5AZ>_)G?BeF%0HR
U"h4]$q]%P%I$'iHdrBorcBf4J6+8Cc[cQ76<0l>,u3gd%kbs9x#oaHitpv$oLtaC
U"hfVDC[4lxWD*Em*e\;?=4U5NV000P/1I\2oRZqdHOTMLUNH-fuBJNh<*YWxR(-Z
U"o%[q<dQb8UGi2rnj*nYx>O.;F-T._Yyp-hp-DcbS\2n[#lDPTh71V?7=ZnLJGNE
U"X.XW^irAKZNuAdCM9NgDRHlX[QC(4NTI&]?,'T$c&V4Euh5$uw*p/oSJwdxaVEZ
U"Ia+\L^4um$F5G(^JthO&(ht$vZOYN1xqWV>1oYI$vb+TW-P;f/xSU_K7;Z0)uHt
U"N7RxfY(b;iv2y]%R]&,/KJkh)6dbbbP9RjO6'q6XXM,(pZCsK)txG9QcMD%_8Kp
U"4j\Z<K\]wqs)euS#\-f78;wMedoWch(s\o:sX2wQ\[EdnY='6owdsl4Ktpwqcbl
U"eTnE)3QdPf2L0NLIW.)>LUr*<qScW3-n:0E7+mNvTqToT4m4p\?7sDwNB&QIhI,
U"qt8.'%2d5UQM*D6963Qr5T(zdk_m&+T8jk%[B*j50%$yhj^RnL?sdrc>0Zl<f6q
U":vGhNLsRcdf4>)<tDnINkBK$TJhG.9;[(,$QIQ:qSTrG.q[gkYvwDGboQfj.xG1
U"tL#H3>f[,\$QJ:iqStGt.s[?6\upkaqW;iD&5<G=jr/5,E;t=Xw_;e%KKn/2N\$
U"8(3RWn;Tli8hUchSQK=s,<;.wqT(MTtf)8M;e_Wf_e:)0E[Louhs(KmrRi.cLCe
U"icn7Mf64lAHQiGM,I;?Mr:/NC77iGljM\gJ0rG(4%ukXhLe[(l8Q.g#DM)AQW?i
U"_56aCLD>M=6,,)5&<sS'nxot26FG9fo->nv[tnzS*H<'iglhbD:eyKd'UGcf]C:
U"W_18s+F\2cfCF:k0'6A\EBlk1,#:a=Nd'UgAKu;LDhI:-#gm-txt_C+E;cJ<X%9
U"8O8Co7C81NA/GxE[67qI%1duSBKZ:4&Mn,E7\1snS%n$)P>H([NFevtHYTA4eCf
U"'Tadn'+*rONa%adn8'*rO7N%ad(2#>q'sg%Zu8Dr<;xiXucB*yF;>w]R_xNOte*
U"I>NZLsN3\br[R)3br[3R3brO[R3bRr[R3\br[R)3br[3R3brO[R3bRr[R3\br[R
U"_3bro?6fx&%up()%9%%%R-%HE%NG1D143T&%%%,>%%%0%%%%qj&%jqW%USuVOXf
U"g*%t'V5,T4*9SycQh%sZ2akrw8xhwXBb%/#r[aKt'E<ZavC#[JL6jSD&qm1F5;L
U"yH]V&./\R%ei%QfA<t)S.XEEjJ7<PmdFU3&Nu/$.I+Xz2H]V5rH.<FQt#x1JRI4
U"wWnyE&C8uglj,D,H,otLs'*ji*:07We^0%GpB<9N$6*]>:T=[Hn1mAUyG^=V26D
U"+u1CJQLu9/de#dN4vWB#>AqT$teJ5J(sB^S*ADQQjSxE>Gmxt$i-xi2Na8(w]Dl
U"Bn1QNkLa]E7+CQcZ^,u8uxTqu8_%Oom_h++$'IwQr?cS7mjw_u<>d7HrhMWxgeY
U"d#U,f(Cf61%557tmV5tS9I/4[;y794VdVX*hG9c<S)p^2o(bmuX&rnJdt],:Oo.
U"B^FC(LWVvmJWo$i0x/e\E_cmbHf4_Hn2X&rf96WlUV>0u4miq-mm1T5Zwo05bfI
U"?O]MLH\U<bu#/)b?]oTfBtB5aZ;&outpRI1D<^A2S,%Xup%()9%%%%-%*RGNGK7
U"2W)&,)%%+,s%%%.%%%%ynyq%jSuVOXfg0,=-[5nUFc(IAE;q=iBHCj%Q:n[mbkH
U"_%xw4fY*2e6:_TYKVc^qq>EiqklZ,,2jKNz$8&zn&6*%%%%%%%[%%%iTw^i=>,t
U"qqZj7U0qdk&kI6q>y=A?^S/Ln.puXq6]J1yKj]ClU6_pAA,PCk)2a2m>eLmeKRL
U"obzAmEV^Yb)?exE*a(X^NnWl#tO^_,gkNX3xsa(/XNf1YcvBnMp1e3tjl\7jd%H
U"k>NlAu'*o/3uP0wwI7[^+dX+mXZG]4MM(X5cieh4WT/^DP=9F5xCT&JDQTJ(ubr
U"]B0$keW*OCBhRWBBnq%OC>l&Cbpv1p:12?8#is*7>dX)eP>\r,5H$A.vp2n/6(#
U"Nm&>A3_[#WS=K;]QhXqeH?9G<d$Y7Tr/Aj,kAJn2Ylde#=a6Mg[QK?re#Qhk;(H
U"'0S)+kvIU[7l5N&JVsih/gN2ZHI2xT'qXYk\,l>^mk7y<-1K]tpl_w%Tunh<]b=
U"RbOWhpq(J4J^bR\b0,KqE,$_PB*z+We+X=oGl%h#4tT/;)W>mMr4CAilD.qn-<G
U"+ecdT'PBlDdhZr$\_D&W^YjorIA$Jt7O>P\eHj'[.5^bU2kfkvI.ryz<_=oEF]O
U"PSGfQ$fmKppLA,*JQ$X>4pL[a3J?Hss4q;HL.yB$\o^bjQd?/o]_d_TpfXHpj]c
U"O=dLnfO0&cnQk?1HO9f#^EN/6EBEnG:'R6XADnH43U[(3o]DjdBn_YXW=p='t^G
U"eOndkO1&UsuA<An;EddYY>kp='8pk;3(gP\a\U?R%<a4]tZ29a*7'Lx?NW\5EA+
U"E.ZtN6,A[tN.60P7U[(,]]PblHPEBP9_IBdFRaUnjL,SMdrvbkC$:4=IkGKO<KF
U"-m,J_f^K4G45AmC748r,xFh#Kz0F**I32F*K'3Pl4m%%YXc]Pl_puv[uckAAc:y
U"kXC/hH\oHi#HB&wx%%%%%%%%%%%%%%%%pkmZ(klhbNHWlb]nc)rV9md2uL]9d2u
U"-L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2u
U"L9md2uL]9d2u-L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2uL9md2uL]9d2u-
U"L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2uL
U"9md2uL]9d2u-L9d2?uL9ds2uL9md2uL]9d2u-L9d2?uL9ds2uL9md2uLcIu(f#-
U"b&^%E%%%O%E+-M>+-Wut[dT_\&<Xs?k+UcrQ)7;a6_ToFpLUZw6v[bP5E$p18rT
U"<T:iqVbf]mGn=B#hK[v$<sT5Qc$,qDTrQLA3Gbe\6FqJq7XaNrLh-eBYe-UJDeX
U"$q0$L#ln;SFf86-<prkquI'xq)%%%%%%.%%O:&N(up%()9%%%%-%*JENGm3lKT%
U"R&%%%,>%%%0%%%.qj%j%qWVS[uVXfhg0:<.E5UTU[:K3bR.1?qqmIvujvJ:#stX
U"270H<T,8gFJf7DQZ$ZAz8'Z0%c'iX,LH5_u-Dqj#/rPoFm5(M7X/LcrjW$+q(4i
U"LC%tCnbrtv6tDC)Idg7.1Rs4[sr6Br(;ujy1t1>*IF'YxIAf/j*AS'dTc<<vPqp
U"a'6LhdT.k,>ZwuR3q:i&BM&sp*pXd;3A45]glLFvFvZN7JcoryH(,^QI=77H;/1
U"7S0kbN,6j$0VQU]ML_4HnunMt7xs2kvwbvw=cVN[q*lRx3vta,sx]0rtsCJC,lu
U"%xO&rx3x/Y/fwrq<^#71DW#Ahn.-HYf0pyFT-VYcv(NoT8\n&GDk,op]NJ>$rZS
U"H_.yswL%7brkv8AN'B*f5>SFk(%up&'%9%9%%%%-%0hy)FYw,)%&\&%%%,>%%%/
U"%%%%%%%%%%%E%%%%%%%%%qj&%jqW%SuVX%up&'%9%9%%%%-%0hy)FP$kU\'D&%%
U"%,>%%%0%%%%%%%%%%%E%7%%.&%%%qj&%jqV%USuV%Xup&%'9%9%%%%-F%hy)IFp
U"ch-A1&%%%,>%%%0%%%%%%%%%%%E#%%%x%(%%q(j%jq%VVSu%VXup%&'9%%9%%%7
U"-%hyJ)F/j2Y3_&%%%,>%%%0%%%%%%%%%&%%E%%%&Y*%%.qj%j%qVWS%uVXu%p&'
U"9%%9%%[%-%hCy)F<)[r%h%&%%,%>%%0%%%%%%%%%%%%E%%%%h,%#%qj%%jqVX%S
U"uVX%up&'%9%9%%%%-%0hy)F#;w>=%k&%%%,>%%%0%%%%%%%%%%%E%7%%(-%%%qj
U"&%jqV%YSuV%Xup&%'9%9%%%%-F%hy)gF+wA']b&%%%,>%%%0%%%%%%%%%%%E%%%
U"%C%/%%q(j%jq%VZSu%VXup%&'9%%9%%%7-%hy8)F1K11-a&%%%,>%%%0%%%%%%%
U"%%%%%E%%%&S0%%.qj%j%qV[S%uVXu%p&'9%%9%%[%-%iCy)FFCsAM'%&%%,%>%%
U"0%%%%%%%%%&%%E%%%%d2%#%qj%%jqV\%SuVX%up&'%9%9%%%%-%0iy)F%-s'n&i
U"&%%%,>%%%0%%%%%%%%%%%E%7%%93%%%qj&%jqV%]SuV%Xup&%'9%9%%%%-1%TBN
U"(G*d7&Ki&%%%,>%%%0%%%%%%%%%&%E#%%%R%5%%q(j%jq%V^Su%VXup%&'9%%9%
U"%%7-%hyJ)F/*,zI;&%%%,>%%%/%%%%%%%%%%%%E%%%'i6%%.qj%j%qVSu%VXup%
U"&'9%%9%%%7-%hye)FVH%LX'&%%%,>%%%/%%%%%%%%%%%%E%%%%S8%%.qj%j%qXS
U"u%VXup%&'9%%9%%%7-%hy8)Ff,%*#y&%%%,>%%%/%%%%%%%%%%%%E%%%&'9%%.q
U"j%j%qYSu%VXup%&'9%%9%%%7-%hye)Fl.6L7M&%%%,>%%%/%%%%%%%%%%%%E%%%
U"'M:%%.qj%j%qZSu%VXup%&'9%%9%%%7-%hy&)F/J75O,&%%%,>%%%/%%%%%%%%%
U"%%%E%%%&I<%%.qj%j%q[Su%VXup%&'9%%9%%%7-%hy8)FNm.;s,&%%%,>%%%/%%
U"%%%%%%%%%%E%%%%z>%%.qj%j%q\Su%VXup%&'9%%9%%%7-%hyJ)FW*2K-E&%%%,
U">%%%/%%%%%%%%%%%%E%%%'S?%%.qj%j%q]Su%VXup%&'9%%9%%%7-%hy/)FKj&T
U"6]&%%%,>%%%/%%%%%%%%%%%%E%%%&GA%%.qj%j%q^Su%VXup%&'9%%9%%%R-%cO
U"7NGfB5jPzP7%%M=%&%0%%%%%%%%%&%%E%%%'QB%%&&jyx%utyS%gfxu%p&'9%%9
U"%%#%-%S)KdEqMhpwV%D%%,'s%%0%%%%%%%%%%%%E%%+%%n%(%&jy%xuty%SuVX%
U"up&'%9%9%%%%-%*HENG#1D43&T&%%%,>%%%0%%%%%%%%%%%E%I%%+8%%%qj&%jq
U"W%USuV%Xup&%'9%9%%%%-4%RGNFG72W)),)%7%,s%%%.%%%%%%%%%&%E%%%%/&:
U"%%y%nyqj%SuVX%up&'%9%9%%%%-%*JENGm3lKT%R&%%%,>%%%0%%%%%%%%%%%E%
END SUB
SUB V4
U"I%%]>%%%qj&%jqW%VSuV%Xup*%+%%%%%=%=%%r*%4%]?%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=121AND 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
