'===========================================================================
' Subject: SPLAT                              Date: 05-22-97 (00:00)       
'  Author: Peter Aylett                       Code: QB, QBasic, PDS        
'  Origin: www.geocities.com/~qbasic2       Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SPLAT.ZIP",4^6:Z&=31918:?STRING$(50,177);
U"%up()%9%%%I-%8e%0HhM&m'#8.%%vh%%%.%%%%xu%qfyS[gfxNj$TATW1ahxoCd
U"mjjK*cIj?WCD'=^PpH-&?(9Kmkq9+44jXn-FX(QInO?*_d<&\#&7[wKx$QZ%,4+
U"(aP?.e(7Y(t0cBKn;\ZZWu^Zsx1Q<4YCr9GItrc$$?+'Ttxlv/=#Ptj-rniUdF4
U";2d4\zQOAE\c]Hk1jhaDqHm-,v8bd9jbk_4dn?48>oTz-Fm#-(V5St4)FhACa*V
U"524cZP-K$a*?$PH-T(O7'NXp\jsD.<T.15Qww\L0/MJm&<ZcBDErm;o%P&ivV7n
U"J49L\R[:IOt73C(f\A9Hs;eDIR]HUmSaQ,/_d;QA5nl&+5kd7xMdYO8ox8Mk+]X
U"i:o+YuO\vbo,L/8_UD(Suw2<F^J$Y?#$HPBKy&aFI3O\jn$.6YK1Bh2yr(I+4D0
U"h,0CD%/\0-56/DPzu=ae,;,#'d(59D6UqF>7cP;ie.j9WlV]jMh?mVir]788(7[
U"9ixKI=nEwqE./Kyf1?N\wDwTMAMXN%:Wk6v+N?mUj2zWwknV^.Y2mo&v$_zYR(y
U"66g]7pq-gViA3U.&>/s8V[4*1SWtPETD?SF<&[XX[o8aB_6GT0r1vou0q^?f18=
U"Fs?eI8Vhu?b9Z_F'WMQIX/.QSNSZ9QOP;Q?B.WF^;r>+$QqTn[9$011^\()$2/Z
U"UjZ3<sGi;0qvT0]sUPz\k1VW%3_=iLD<>ZHL%4[1?<9tLK'5_&aYGQWAU0\j?:<
U"E7TxF9&p<A^PYw<We'[Nj2x<_(80?7(e2w<wY&w,p:x?S4u[a$#^v2J<BT:u6&;
U"rFFRiQTfXY^NG1>7ND?DfoS[Joc7Ukth^<isey/RZX2E(J$,/%aLs9]*+lugN(*
U"P_tDPp1WtQ+UV&tZ#;^8?MOAKV#]H(YRGt=4NO1un?RNUt^SVp<TDI2;rbJy^m<
U">*INfoDTpT.Z,H_JW_O&;t-JzGBrn>Jr0':W;t0J<KiaQHLbCa4aL);NP#x4].p
U"\Jb&&NAb%Zx-6'AJ1MnDZs-JP^8cskjZ<?.75X3q^ZEb;]-?9B(<S0;(/u/TuR>
U"79]p3\S]O0KVV<l_ZJ;?40afi,8D3S%ew-t'F9+rt')T,%L;R+b.juG$o3<0897
U"R#Q])\.y$e8IEnN/qHmNm#]zFq.p>E9O6-T&O$-Ix=x.)6Tr4%M14#;#:$SLwrf
U"^T-W5u^'>=Pc9aj#TCT'RDQ\uzeBWx%DA(R^56Yh+U=bZ+Ek[$7o1[$iHHKk.uv
U"Uy+0wiI0J5JnjFy<7]NGj=AUAIL_*<f%_]^'1me<DdYt/?qT*A&shgvnBnF<^_x
U"Z&pKxr50_0([28;qIFG=L'>sS[z44b<G3VvknC:pB-&D^,45#3S,e$eCmX5#*H\
U"l-i)sh4]Lp_T4%%s2U0Y=YNK$J*1t1T.w,+W/f%;[U\%G9/*E?v%_^e,0K4/=&0
U"/L<fW?(^hf-i$shsM$]Z\^/,Ma%gg[ApT9.J$]y;O9Z1)e?1NZR91cu)49[CaL:
U"%VFcY2gQX]q-O__cyBsy)H=roV,w&W-3.EHer7DLqgZG9UIL0)%N#dChmoD?H??
U"H*414AGniK[%D;P$:gZb+gS3FS;7W]V\c',;$qBNep<QI'D4TZGpWfpY,M/<h2v
U"wIG9PYp1JCbuD0'Qn8-IH5jaKq)B*h,f5]fx=P+UD9Y06j;nPMgd&6jX6sOC1T(
U"N'J-6LbQW[T9f^H_0<'BMT)KZqJx=tq(eYO'UbZJif>9t&b-Z9\^XFSX7eSkQO%
U"1)UaM$RkE^UJ4$A#=-vivBY:hyIC5jK6o+<+&SIkx5>Ib6XhJG\KQy[0lJ0B*R#
U"?e'B6bv:gc_Uh'QsCZD:p]6r[p(GU4NS;,4egv%2c2<uApI-((=TIHti6&H-]j)
U"KbvVO9c2-h;Rm_ok'[cB2J]Z196/u\TMqM6HYM*p(.MS3B7k9I#q9L-#H+b+Jmx
U"F6kQ5TRAGE:_0pW8R2HdK59<3>zmpYI<^1yfx'8(l%rMX>V.fUi,4K)*CS_'*QS
U"%EJRp:$EwXxBQ+VmiNx5&2ilie=]M6vB7Wr<53d=qs6j^%Woq$4m*GMJ/vx?r-P
U"4Y-N5=Ev6Xub:<>.]uM=P8g)q.h+9=?SQ[w;&)#aSf9Yip&6fU+>VS)dki,%SnX
U"Xmlq]>:BO,u004;qWddL*aL%FmSf%Wity]-[l\m&:q##dyM=1;s*LDZV-a'^D]C
U"TBB]shE^F2(]Ra&E-H30Su7skoiVUg*>dGHj]M'jAA8Zo&fnkOGt#N&fB[^004M
U"RlS+yZEoF/X[BF+mn/qUTU/&N,s2h_mY.%z5\mbk*B.7ELq/rUZ?.O>-A+-Nz?C
U"j*]V&u2Urr[<'oPvD?uHjo0o>F+fOUsVZ+_;E6[01Kk;>=7AM5\+[raL-E69YYa
U"/1v_j?8AUhHucxg[qk0cAi7UKb3QWkL6ppj-(W+soJnBEUm_N#]SGigSsr/X(DV
U"r%Ui\.QHZ(I^lkk5VX6bNp)($&e,aK/CPsGf>mAmqnPqPwp8g=]J,$HGHua4cz'
U"AQ*N(8wY4WlON%5CQE]So2zUM$lV\1A^rS8D*NYhoL#ei%wg:</]iG9>LtoRLqJ
U"r/T*-)[HFXCqIYg%Qoe1aVGcfxzA3HsOV=bhq=Np5a/Iw2AoI.qU-$W#VNIbx'f
U"Dh''>Y>\m/9=X&ks[aGDb*CD2B9v,(fNW-=-T:5>LB$o9hB00bvlTj^8+lZ#_o6
U"G4t4M/Nv,iqQXA%C3v;azYg#B%Slgp7ffXvbi.gA1W8ferelbl'Yzf'RoY7_:L:
U"pIBQV,<*]-tL8j)Q62TL8sJ4a41%jf\OCWWzTc]3LVikjd];A)b6jH%b9*p#Kp$
U":954R]Ek&%SrzkW)jKkrQ=9fG,':xfuPv'9+H?$o5TLDN/]zfjfH4hOb/UH_UZi
U"1;h3bhDVUulB&(c<-rHA=fTA2LMN(=lQ+lNLNiJCMj;OZqCFKTMzP+h+4hEmB0d
U"&PCj+?9N%07+?0X%0GBFg#A>jlc\.hXFt$kSVdGe9R(n?ic-wFv4_9$#WO'D<<:
U"h0V8&;SG2#F?b6FbtSgKD2:VqxNEeEHORj,$\)l/(-Y1zA<Of/L^uk[b+p4PNgA
U"MF7T1yj*V]UX9+D=<bP9raqIpuKHL.d,=7BeY7(bt8iJ1xb7/f:;\sZm/'hoQ=)
U"2Gb/YF#ew,h[_&2aL<r5t]FlNd$Y.nV8xE&l$IKNsN5CMnf82fnw+i]45S7%e.=
U"o\kf$#TKJUtpIzq0t85x:JVN*#vf*i>0j5T>qPV_#X$*#CdTUqL'Zo+fb&mYb:]
U"8WjuJ]%JWieY)t=]+(FW0[Dr>xbJ_]'lxLMrD+^_uuldp$IqVR's-E5]dpFB03F
U"&6?/R(pkVoiSI&//skjb?W5/m(B'Q=L&,M0kcpud)8/]9d95J-YHH\/b*071y9q
U"V8xJ-mA%Rui84me9?lff'dV*w]RHYXf4WA<\3=d,_.\OOKhh)%$LZSvBg7i;zBE
U"jz*LxX5/a[OLOU^tmQ&eO(76U=t$:g8tkw?&wEyeIz8qFTp?W#$h-^&Uymp8j]Z
U"E:T\pQUkPIq+pL1Qdbf&[\J*EPo*?[l&1WTnYsbCh;c>,U6k%CB],>6>NHMqz\c
U"VN]>d^qRYR<k#re/qSY+RsPXF;=b4<7gE'a5H$%BN=Nk7*bw_/Xf/hZTWIe<Jf,
U"osXWr1Tl%RGIEqvPnH%G_f=,rCHc4BgARcit$WGU24>w&%,ZZ2cQNk7towCGUPX
U"18nEIWq2-F<H=o>QWB#0y;<X'NUoQ5:Oa1)qT3JK;5Ga/L-k\s-P1LacS$:Mg<9
U"4kIR*M/_YVU93'VQ%)oqX_CkdcdqEd*Z?8e1.+fM.UO3'6I#L8[E:%\q'm;F4SD
U"0>=f3Tg)GV6:OY\LYA#<X+Q*2m=Jr#rG#HYqIRtvnX0hGFFRkEaC;K1HE5qEvX?
U"rRdm&JH7+M'9a^pz/PHS9M>q&;yd80OpVyR_V-Z5eoCkutIv0'a(pGjUmp+V5Zp
U"Di3/(?Ie6^vq,mi;0p(7Fu4>k)]AP?lUf;OoAuV:(%qQ<oAmK-oL-5#USnsm:<,
U"+2;I<Kfzn7U',Y1TJmqf7X=1(O,I6RiY-cIL/HA65zed_F9L>?LXIJzTd&7YlYC
U"qJ^[+;aKkjSH4rDIlDNsG:_.''+j35jAaCjiarHtI4DHy8aCpUlrv9T&h?:N*,v
U"=D'GpToQ3v:0&,*mXWkQ?.FZ3M880><$bmqvXG,Me]p;sJ<=_^gM0hxd30v2:>s
U"Cxaul0Q?Mu>A+b;.i*dt=khSc/M.Wt*f:'59*9Mq[7=r_N_861l79X-k$HY<3l3
U"fc0XD[oN(fW2H(zdbG5=bNXQ::rlTCt>RiN\CY5XdMxJk9V8ukC&yGdV9-/5HFk
U"]XpQ_<(DN^0QU6L:6ZTV2)v#B'xQ;XujP=rvkeTup_&t4-nn>qMM5G]_%4ijlAb
U"syYq[&ss-'>d'&]6NB[x[>GT2BQg#M%hv8#lwG^Bnb__:KKDb^M<:A2C$VXvo-3
U")\tiP$$M(h(o7Xwp-;<dc85p3$y?#*+dc,TaV,#BTDU%m.*l?a.H>-NU[P*N1fL
U"w48W^[5CJ(wZ$'N^wPx]*Wzj(]#p5DZxg8ed>qG6#J3WYTTj1I]wE_Ju2bh9'T8
U"wSw$&qFGXbK\TL$dPWu.dM\iLoV+O39=e8A>][\Go,'hYPYviW92T>n\-Zc&Di,
U"pn%UHghet8+D\gR$#C*H?,7N6n4qc0ZgD#WkN[24^23(g>UuX&vW7O)64eM;EH3
U"3Y;Pq+aP9Dr=(1=O)v?f1L^0CW(/Fb*,b$aC;4ny5:H<kpi?(&EoX/e,ELIN4>x
U"cgQ$C=5HcvhukWCM\4Y\85NFE,kpBV(>rc>/R$EqLs5_(c,I^^#^Hs&\y>l52cD
U"PF)pk-$*NWF?iYa#LGu(QK4bpLckaU^KF6=.d.RpL_*Tu_Y>*_[D_bSQvI.+e8\
U"49)z3nB%PlKTnu:qaTi&Qs3'/6^x9Y$'sHfODH#J7:hGep+aoKC*tapQI_zA._i
U"Zx*JCtG/o0w3'CAm2,dd(vnFTbd63m>3)V;olW<GZ[k8wk%s=.P(6iF4(jW#?/3
U"aVPJ?3#?$X^h6\_\49D-bwDtxTMjEBd?v-Jo[XVOuO-E/=]Lu<rWu-mbRf4sp=$
U"h>3M?]T7\rMQWCFb%M)RDjHfq-mj/,3e15OxbiD,mDDeaCNB^hCp)u6yx-l;YnA
U"SCS9IZ'ob<FxLpLY4ceb/''t(ILd_#WA:$6Vn(gECuTNO&<vd-[#jgjp&2llq6Z
U"bH9eR&,KuuI:ij)UjM#QVDV#im=P#i-m+cs1+CF&xM-Kc,oOxkU1AiFKbAZs)_Z
U"bp1-cV)LLOez0WjsIbGnj(^&&Z?OT9(CX9&6r?KJEPLN+R>#BoEG[4'*xFcKr#W
U"bVj;wGH;2Jo0.h>$kM4,,W[9ssfUwbbPb;VF#goG8yx+u'-H#Cb=bNh3Pbqa]_L
U"cBtnD\Kd0<s*eBaTVD6TBc0RFR/O\^Wu4f]JeLl3$Z_(rktIp&&qAgKr#&w,GHu
U"SF'1h<IDn)eDM9e-*i+D,^*hOJuGoS(bP9?r7k%lC3LaZnZ9fPLA1A$4O\PP-84
U"$MNff9axT7rArQ*;Y)<O=b,]ob+RDopjJKwU<^G)1?.;H6iK6qM(XIZbsMe2m4%
U"?nEI^fW2axC3\h82pO*%-*]C'MPom0Xaq<\ucm1xXeSnpSNh4pntvl55<v4dowr
U"ZbFId6;-F$%4+lasODi=c5STJ>-<lYB5a&Q32JslqbY,f[maq9P4BpNXP\lV.bt
U"H5<Fn,G/(q.d(i_ucV0qDP\F96GrQ]x6]#u>Y86Q^H.MAM*Fjo+7j^[&bY^ZT*r
U"g<nP7'Jty*8F5?lZf7V]:QponS'L]1.=n);'(s[9t'CKQx$Z/%/rRQ:[nU7%Jh0
U"?moU%i/$wcp<lY+Qt)\0maoEsTg5Kd.oAQ=($:C:GmAZJ(^u2nM*)jOiFrt$o\h
U"lY4OoirSK#()8K*ppdlTZ)2VT%^W20pd;+Nu0orrO#cdZCoNJgtpgTdXjmLYYrD
U"KuT[ZO[?c(mxViXa>]KJ\IAb$>GQ7\+MfUV9uZ_R-I%il[-:D&iwO+nR'*cmD+(
U"$tVVX;:bEX0$u^sCpF=#sf[dPcP4TAj?1^Jzg/AQxI9/S*J>8a<<]rfOsC/uwH3
U"3oQo+kM-:gTzC'+KFxYMs0=s%WiyzC3]K(WZO'R*n$dYcu%>w'x%up%()9%%%%-
U"%:E&oG6#NiL(q5%%-.:%%%.%%%%xuqf%ySifLykL<V[+$DrW4cIFkD+)ka.w+]+
U"F$..9x5':wCUy9+L5PiHEU,jX<hR1FFT$9XX,$l,RhA6U=:8P#Qq0]UTY&.uEW5
U"IG;,WF6LM/=#O)xTH^hJM6ea;%JU)NR-GQxb2Dm&K?V*Pq#$7HllW(Crv(feO,p
U"BmkJ7mlkkl-vofDVpu'9vpr*LLYlQ72t6'wr,uGWl'0qL]aQr9$>Ub?HnUc?HvR
U"C]knPN[P>=B2$tt^U\7kDn,hj?UBH_v]Ar\\,CqYj8rjh/.9Xu7YxxW8qfD2Juz
U"B8<p'Jr2(4L;mE3BfTRC.XL>7c9OP+GYRcakBiV?n+#l(X5yS$BuT&N&$jH>4CT
U"kD^-G4Tym,P*t5h:Yyh=dYSrLQ]T2H#NeM)h5rCS0yb(mQM:Rnr;IMrxh%gkja'
U"Mj?eaRU:7kqyt;3)8iqp3U^s#un-O<2I'Zwnb$:WLhqcXq9$O%$x\7N[qY2qWD2
U"p=2)BnTao(P6jg(/3<[//YNPe]#[]rLXUNC3Tt]1pVSQ]1uCI4aDPxg]CgA^yjn
U"7aS+?\&*hk8#:$W?:$DCydf+'*P:R5fCuy49p?E2\Rw^1a,#tmywJ]S]haOBMAi
U"VCUz>8tudb)9gESyAgW372kYu32xsj'VwYPu_utSq7:?BB$p:98gLact5[t<N>V
U"K62fU<:cb/?eDld:><HP;mYT4bLDS?Z$oa'&]-HSF$k2lK&A3S1xTMtMx.e(6VP
U"/j<%aYv\JG3_?^lPE%*zT+*<mU#l,rW:]%g8Y(7Gj35cC3*V=B<mk9y#g#nQS,A
U"mCRXH&;ZD1(tu.7d)j_QxiF;7AYut+B-1WaDdh;i8u(]/k/*Ib$VYL=vm\89=QQ
U"Q6Th0r<uv3Fp\qKFbV1W(o6=Xt4S#jt>IdU_sKT,44*,<WPo3BVTn(mO(&SD$[l
U"5_K=r?M:2#GtPU61tNDOc9RRpt8P8AeJ%O5tu[)HCk)K1HF9M$CN/d8udBI#H*A
U"*exP06h87ns,gVv]dp8xt<<sBU-;3Eh;P>f>N7s%':+OUm[&^15+Iti[p>4viQ(
U"Teel:K.m90D3IjT1pFJ3cfMffg'7vIKf%xRlR^Z;W;)cfIPPRl/y>lD)\VWcmT%
U"fIj/Y\F#-=B)iVA.,)rBwB%aS(43Oetw7S6jJIxUHu1-Vy.RH$=F49HZk-E3TNj
U"bUs.m3,OIg&mtq''FiSLRK*e-9dFE28sFIpo(h]I?F_r\c.-wtet%:p<0\I-:b:
U"RPkSp=tF-VB>FkgDdCY-kGT'WYHt9RWD25MVA;9$[Ye1j5ldeyY<,?dZ1>8D,g;
U"EW\3+xw(sq(GLHA2QmgV;[aH;lYxr)mG-ESaX(%(QrnF$QwNC&'B?hVn?,+RFnp
U"%&[*A.'][2%'HYGJd%>.>WYR3IPc,2csf:V.$eET09Ql^k'pah7=DB/<=tw_4G2
U"9k*\BUX/Q;XpZ0YPY?P&,W%c\[3_CDINQ:C/Vb_.w'.-7hWPcTi:m^yn)A5w8'j
U"LKcMJj>bZjBU8LDPBm<>,K*(;h<JN]U4m67KN\e%'FXXqbataVtWqW.SZ\'/tHv
U")Y>>6EI2w>>1<UtHC<I35[4Er7&r*;G<<wV>1y4CsIlT]6HmXZTZl[<BM:E3y/^
U"43jOPLA+Y#X't8qN=1^ygucApWP*)S1XHU^<R;pKZE<,&pBKpihJ3SPv>0iVRWu
U"CJ0orBqsqO^ivvc'>m((=h3#IOnPu5,WFFP*oY'8C?>hi^uI*bmJ[E0L*t%Zrv1
U"8-Y-OCUIy:-IdsuE%f<Lz?9$Gpuhc*p$PmL$%#,zfp2le<jlD/SM53ku2W9a'rP
U"5163#xc6:LS:AUD0y>G%MVp==$5/^MD/hi+WApU:us9]/ZQYr^EFQEhV[[p=MY)
U"C[CF2R^j%g2ZfVcy(hjl[/A]JqUoX,i_1.BG6nCO]BHPu],>r1i31z6vhA_jOD3
U"3=j#M\:RSCy:jmIe\5?kRG2(P$nVO>^sl_:8s,E,[(ZJQ/FtN#uj8+rCRwC6b\m
U"9tB5G'\)mk^7G0#pns3h)oDr%-#&Nn^lsq;=T:/*ZpaogJIrp:#0bRiLw._J&zW
U"?$Go=-&q,d&bGghu8^7)JNCBx3EdAuVhfLw$+a*Ww*S&I.7($smZWEigh)q7mMq
U"8V;-mrs+LP[K$v/8)7XPR%RQ\j;en/4OSn%bYnm->]s9%5L^)&pl&Pgry5UJfuJ
U"_;cPQ'^POo0G&aJ7WVj1/&Ijf/,AHbFp8rlAI\X/,BNRB>thN&l5*\B1uLc99V:
U"v)5-E]h/#J*jXKJI%L7zi&4gBW;'LR[3t'>XV2IPUvJC$475HZjiyNRwVx8)OZj
U"$Wg;w1?W6KF6u_?3A_Umn(1a\q[xB9JR$T]6)3whqzF,'=9U8neoqx5LSd\PJ%2
U"ZwJ,b:%?Hg'sM8,sv>B)f9tUNCCh=4t[*W:n-J%mi's2b9ELCa1o>5Tr=2.3ooh
U"eTubNw$8uA>ZZ,E$r.M)$e5YP_RdK[.<QiHhUL-#'.p8'Fi?ir:Z-[g1kFSJ431
U"7]ou]lZcWT-Rvp^MM4,%/pHVc5t=vZc_(3E\4^;ih>SP1_dE2+*g3et\;eY6p4.
U"';Kcd,-FO]j53/7K5Ik^I[B;qY?30UReu_G;H&Ur<9*5r=OC5%5VOdsm#FNL,V.
U"=bb0fLAh=[:azlwqX:Vd+;gWHQn9$y+odqM%%$_\jC:2Hps&H7Cen**C]66i]NB
U"BeRqB?dso5[V_d[8g,inYsdgj?fn(UPGZ0l=8(v0I$\BDGdc[+UnP93m]Wd8Y<>
U"s$5^XmQ7G(OWMl?vmxseP?OwYqYYdCqwr5[%WyIc'pqjks0ZQ[)\SoE=0:GWdYI
U",JDA>l'.)#$u)\&lqsU\bA7uZ/JOPRlQ:G;4slR_UPDQ;Uofn[(]g^&&h3tlPnk
U"&\FmG6^S:V$#3]'&o&/v2k&RnJZI#CJ7\DGg3&Y9CER+<Q8z86+4+4.GELDE/8?
U"(b>qK#GJ2A+4nVN^PRL/AD)y*W%h+IA%vk&0\R%A[*47H0xeTCp,FS*eRLC^X.h
U"G)#O7Y;cUEm[3EUwJI:Kw0WZ+dTe;q*HmWrX9jrd0VDS)4((k(zw\oiNM&\yqc\
U"^w_&bhA+0jA?E$1;+Ujo,esLkj4zx4l*6B*3DN8h,D*I3'o5_tKjcR5xt?rN#:j
U":jhiSleGhWNLB'B4/6%946LgW4)'tDXud;%++<'Q3$a15%;<bDoUSj57:$8^:^>
U"XF%QF-#76\)uF<9H'l5MDmJR.x[\q0+dD[5$_>ghQhtq\<pDR$*o;';-zkf%9;H
U"[9rnD;uQSGYrj_75KW_<)<(KJAcw,E:]AIve:f\G]&NmgF3>0/%Lz'$[i4Px:TE
U"&(?2jj06]CEcFpmX/Fskyb84lc[PkO/,']CJW/tPvuLf7*E-\EwwTTj(YIO#Jlg
U"j7:je,N)P1):^26EMpjS9JUBJ7yU*(%xE5hz7-eiqt$P&07H4hC46iI]]dR(aGA
U"5t&=Ls:IC>(k4\46O4P$^sbI/B]Vow,8T#,l5ZJ\l(+3,s<%3gN=T3Ma63VHA2r
U"]9RJ[HZ5A,BkRgKg8)&bTI[:jMc?+Y[Xm1REt_ewOgf\5qGH0iIb,mLgx_3r$%,
U"r]P)[F3[z&nEP]4.1v)6h;e\1WqY(xmbhK2kA,EGT-RC9&%e1RCSV2x+G)6fS%*
U"r28MW7n(fYoOS$nk?a2v>(I.#A*3,$8vNx?WL[50(P9mQQTha>hb?0EM)d\[rj)
U"u]\*e>B?4k4?cM49rFlVyrcCk3JZ(u1HaY4.(v.EDduFPA8dis8Ec&qyF_BAx3/
U"P.cE>6c;rA[2:eZ8'Iw42SpJ3hnQ.fO95z\MEQTbP?W;s'TFK'4k;D3aE2l[I0f
U"=L>eq9k:Ye.[P2\U:ggv0BPnzlA-NYJwpL(V5%Fj<RRJ\B(HGK)xt0UEd>&d+uH
U"rmo7%QO<spKMygE)WEB98b9O]P:Ji*B]D4XS%oVYSQ>bH=]&*4A2,hJFoa%T9.u
U"c57Fr&>A6m<XPXZfVTF/[ru)(^1H+*Ww/]-9]0Wi*24>:[6PW;3r)3F-d?YT&Gc
U"qUl*Ttq>BYTk'RlNLQ_i.lCCkX-v%2m(V,lAiqf3%5K.0Fw-gF^*efEkT)?OeER
U"*g3qU,cSE\P?7nmR'/EVNkO;ESYwT)8UXub_c38&6r,_hQYQoQ(I0#:(?Ri'[J)
U"#)V19;LPKb^4:NN[Lf\1+xM^749g'Yjvw*59i.=jC0o2uw>LQ1FCLms<_73r1Q;
U"EG:B+/tSsr5b'Jxg+$OrprRVAEM1I)ahxYE#hMDc)Jp1^n_3&M.#r8e1J=OLE,v
U"tq9JKU;/'fPOAWJ)hh]Uj*PR280[qB#5#$t6;26/(J:,^X?Ca=+^W,IaYt%[kMB
U"Z8oO4.vRbERdJCs-](i)aFx[e43oBq4*7Zu/7\m(ru.GPT=&jC&U7qXi0A$85Z\
U"uB>2xfqU<+mK-If6geFS'&YS8b[KqLN><mDE:\j%;_*j52q_,FO,HpCf_Vqe?[S
U"P#L#:;1+MXP%nCexy9<St+R(f_Vn8Hq]_VYDWMc2Va3M>>-VOt+i2?8KEIHc.uy
U"\nKB]a1BZ%?f[LZF#f+waF/;Sr38Q3kT>caH=l0wac6pK1P)]Dj1.QZ2gtMx1.<
U";BMw$]h50G\7BduBOATP/t[?FnpEUxO:'8NtpgjS2e2hl3Y>,pIGanr+^P4=xFq
U"+bB/dqS$gYd+7vCS$2E]$g;5](c2&Y>+QTI-X_Su0AhdtpM.:D%]6gnFUNpA$3E
U":2QJmM+.+Z[iAhj-9[=U+FF1Zu=/HB(Ih1LBG1?Bc,Vc8(J_$,x<QABfS3?fpXc
U"-X%0nLF%aXZ\LH5tOB5aFple#]Dg_qB4NN9aPR-2Mg,SwCO6CFo6yO251x^Z%-Q
U"e$mj?4p6<(F'bZ(J7cddB:8hejc,DZ0$As0t*\Fj:KxU=/C;[3T?i*'%6Mc3mK1
U"cwOjFo96a:4-K.Jt/)hce[uJa[pC=k%q3_Lgo+;iY(d&?4<*H1Aq+-)XypaVJ9/
U"_5?:0(Z^B4K&(%]M__..Kw\Y-a'>Mi5(I&S0>mQ'HukhCB\\45:nQh)C0:USVQo
U"[(pnxT'A;>O3a7h'\f%NU+<j-bQajyn91%(W4I:'reJTxg^.]cd4E\iaT<;c&$e
U"_g6Bm4E=:e]pbBnRU>V4Lp8=9;$98f)PFQkg<91xqd)?.I-o/0#N2EV4d81PzrF
U"/yc;p0I<%\%^s>?aTd^59\rHy_xA>QE01^m5_:]F/>zaAV'gcf?j<<A^+:yZQ<r
U";W+/'t<<gX=*,>]1eX$)9<)w]55&S:+P&4$T$G*xTs>,A7+JQhWZ)pkVNS+$_f#
U"2iY3D6-%[^VGj:Ghlw/Bv)rGY11/X3/)%T>gN&r%5+XG^*1(3eXq+VP(*o>/.N&
U"9-NO&CKAo+h5QHPr_p9g6?-R_a/52WQ788)WD>7&#q<W/^6,'nZFFNI[uG,2Q8P
U"J')1Oj?uL'AR3L3Z0xCTvgeY3cgF#F;a-QG%7#&bTeYNjrd<g>YRtJBg*.t'VKF
U"r.pE$#n<9M]8^Cs9j>_1OJ]ua1&CcyE,1^0['j7aKOgiy/-_1U]dCjCnX\m-<9]
U"Tu;c>TA[):08gK6/XCn9sG]]2vFVS#VJ5>V_P[iT)EEVQiUEjdYrhiF?+bU%fPP
U"o=iGKo?,JABo:;*5X-,qRv*0V7(IBd'9%IN6fY(O>e'>Wog\1s+*-6MahpQGf[A
U"[#*MhXuEvv1/_-8u1%*?\cB.W0Gg/1j86?DG)=T.08Q(RgrVSY2+;M5+g[?8x$f
U"QI?6S]:7AJ;J+cp=oI3;y5Y<mrHR:=%0[Kp+T*t24.b3)^y$^('9e$/sE1XuJ9Q
U"sr^>k),Txb^(1Ewf)ceFlRucu('fF0_W#3V.nWc-E6Gpn/sPVE3f\geDP)#Gl92
U"0La>;Zi0>Oqv.#r+E0uyRHHaUaG3Q]PX.v+r7eE&IfH_O=8NTLEb;x)UdJ4)%*r
U"?oT6Kr/9D$eV6^lC3cPTVLtt[c.*snV^:Prm+7OX^S/#,?$/[K/&AMR_-ss;h5S
U"T72UrUUdTK7YQI;o[K)l+W-yM=:66Eql_,&38$sq+%nU#?EFF7E?H+4ro%h9S;1
U",kID2BQr-c)OH++gK92r0DeKBtP(mpjp)NA?54Q0+--UTdP<cBWz?^I$hYK<Aq?
U":'R*igcUHl#99]3M:8e/'$xL1PIJOU-nQfJCsgY=iMvpGNF=p)%H>f=u'Z[e\Pi
U"ces/_U7JT>;22oC=ack7PW5D6eURA2PUL=O^ynmfmDCTe9zm#xp,R=g%r6o'B$2
U"o.C4&7WMbZ7OKs97&lH_>PvVL8gaO6)o3XSmc:f3R=XLP-Aym(OU1]p*)g,gmr=
U"ZNN8#_.^mr1<jA['>uWYkg0F3a<;ah;5o$y4p][nHJ$Fa()+/K;G)Nb;>D)&H4>
U"Kz,*ld2*K4TA:nti2M'vOxN6(#d^6sQ0T5CkXs-;Q2xmC^tBu-<RGf#*j#&In+<
END SUB
SUB V2
U"#M+T7+s69sRwj=GTWKL;Vg5;P9Lr-X+[:?NeCVbMM4./X.<RI8.VG<9t'h?d))(
U">Mq6U7C_;<Oq'N*y>QAm;P5yL$<=o-MtXQE6m$kI>g<DF[cH;5O5,jSRI1XML$d
U"tcCI(AU#H=:,NvGn(^=&QZ%Q2b3zuDx1OlM('\2n-.Q/h8/1&mHP#.1MhILZwf#
U"vh'>w4).*pcIlrl)#w,83+N*f<[sNke%y\:n7037[CY;0c+?$ukZ$)D/oDT;A%J
U"xq+r'#R'XpX:e51XAKt,a_T*]Tyd(FkRAP)IRVim?U]k,kT'/4\u^$Hf2JF$IQ+
U"j.4arWmTOUf]4m%k\-RV*9S(N,)RbIq74Hs4?O<hV:[hI^(JVS4kVdG;6v+WTQf
U"imPV>ha4>Mz<831I(c\.VpCRM<z^w)llt2J33ZXYwTqXI85S]T%f,[#SbWbq+IK
U"]my$%hS,4mBae)ILbwtoKIlaB#S%utyFV6Ew7cpWixS?_gTP[XU<a8_s=]-Mxb.
U")mdLpOh]Ky?I\UXjc)J)<&9x4;43ZCJ>U(,Rk1?E1N0_o0\;uMAos$eXM&S;hJ4
U"/xpm=h6;Jyx(#=:OtJhZkeQe,_<8<IOknq(8ZYAQC_KBIA;'CeoS'6awM<N&hmI
U"qN&o9ki%0NhSjJFT]jvi1Cye[\S<&h[BiM^;C;Hd41K,g%j)F+2\gB_aR&PO7'E
U"F-A5\hcV1Z5U>y^2IF[*ei2\>koL_6+)f+)m%1wgMnltE644j%be=H_sFSt.Myh
U"TRVmQYZRI4=g=U/#Z;F&ix,=d6QwCgI[g2A#zvjDM>GP9eE3\2?C4stVjdU#&'l
U"0Sf6Ov?g0)wJbtrLhoZ0Hg*-Ysja&)-Uoj?0&dzO%'Co*zo.7(e/OQj)q5nb4P&
U"a,YmFy?>_*LR+LOo3D#r$Lh8UDotfg)?g>Rg>C;MS=Em,6UH*cs^p6L26r^*T;w
U"pqOI=DB<_;t5H3bg+GE3BReE/h5(vQP5;sr/QDVyby-6GN&Z5Xq/LZcbf.W),_K
U"ej/UHuVlp+I:<0V<v[z^K0a3q_-B/=Nk',E34%%4.2:v[NztV1L^;?uNq;BdG&%
U"3;3SfAF5+#lG9$c%FJ-j0w;cH,-Y<63Z(-+X0T^&UW#/Cf5+^DV#*QAHH2ee<h5
U"'>_XdJaPpBl%Snfm')SE3;786QmPu32Y3?=DtP&;c;e;'z62tOB5(&;MeE'sUjL
U"*q'<QZv+79\Wq3(GZ0Z3U)s9tWfMCxe^KBhHfr)TxP?lKeKVI*'N,TL2dmI]2Za
U"<\MCbWj8<>[$vGF2_]0R5U7kkhd9Gn)]1-jFPTqIMNV$L%dkzb=NnJQZEIo>Ja$
U"I[K+o*=V]VTOH#U92F5^cuQ5Z4Mj*CKUifD.eSDr+SP[nwefXIrd)u9MmY[JtQ*
U"Bl?)02;U=j.0YRW5pAS%yz2'l.?6TIY2.z(5z+GaX1.Oj19yLEaLUA1t9^[eGF/
U"l3s,oA3\?69(/,:$p4r.ZeG]eF0&0zeY:RZATX>&OD?Pu%7[m/ekvM>N_8fP?KL
U"SF$-4YBe.1HFqX$#-s07L,]--9wIkVXV?W5h*+=W=?,??HZRi56QjN^VMZeCPk>
U"N7O<)E81ez([i;mJ2ks_:]BnpbbaIGVEvDD+-%532yR<Yp&)NZQS_io*BTv>Dn7
U"<%r-A\Ss<'VI&jEzJL*xaYP(R?>(o4Q:phw;aE3b\lX>U1:&Jx)Okk1dDBqAq\E
U"4ueJEaoCM^iQyLQhh3*F.l9O(['<s/P2V1Og&#>+,6S:(^P'enXGLkapMp_-ER<
U"A0kNY:d_,)0&4XQs7mn/RGl'l+q-vU?P8\EDK1[+b=rXQHOPBu[?msl\Q'B\ja\
U"75X;kKRbo9jvOBA/-4WXcsu6aPp_uf5^sl59z\i'PHvNSJwM54'e9emhAq^6]NL
U"2If%M*0n2[u=ZV73M1e*dK.w?#b-Z2bfGQbYh,Q*;[jb+sSGMDi(i8>#m(>e>BQ
U"/(LRr.eoniG91eDJIF3&e4f7%9*p^Iostd$(2g<D7^B_2*)6\IQf7.k':_ifPMe
U")i%gcs&1LMX$YJU[(F4e.P\3*Pqq9.SAk$3n$VIm-.>9#887hDyh9F(GqU:dow%
U"1*X\K-.#f\>Oa3d())*Yp]_1.R?%R1zS>%+qN%aZg*=vrlQ461.lOD[V<J?-[kC
U"1zgrvu%bVu;bTr&zse>d$(dkNFjpT_2S&07aXL,.o,&EE/*LeM')1QnLRdg$Wi1
U"6L^a65so=L*H:VLVewrg]L^icuJdZp31N2<$S??$X(3?#C_IoCC0pDAaFi>)'L+
U"($$J,64X3v+R$hbzS)G]7GlVtSPWC/NM/af;#BHXqf)]mIVkGqu%l:qj<uF.F*5
U";CTzZ6sedY6^3+>JwS2$2u\5Hn8]h\gTpE+>E3,cI^oB<0X>=h*2'#A80Ao5j$e
U"b#S&b-qo,qgtOF:;XfhoV.3dqfK<ea85)XIEl=$z,m]9Z#hKc.6;-49ij?5;gm<
U"T'2DftX6,f]qse*/mOoYjisUB&_)FV'&sN&xJIuQLU4a%T=^t='B_t?FYVp?ArL
U"eIzm6tM^SnjbqAlO0mNDcq*g(pe^G*SQzdq5tFtX]<YahDv%3In-^MM:;;_P\a5
U"cK2kO$aPS3U<?T=pR6p?aR3Lc.]#%bjX*(TyWuJuH9W4''*92QiTVm(Ot1XfNZ(
U"/jR]I8+ZsrTMxJE/53MWGArQF##M2cd5'</<>=34BkGx3P3BpFAsPFrFNf_$.j\
U"eZFB]uA0Iq13H53*A<X8-a.k-o5%3l<oTBG,$k'Z)BUAlHNnz--dxsQx6YZFdI7
U"ixU7nPN'<'fi5r9lrr2Uc02#1rG;;H5.ps'SC.4;P3vtf]EK;h.51=2%BwbVVt;
U"I[3>ZtH7>bF)oU_O*3FpA>h+iaG^>YT7o4.$2Mr'a$U\'\LfBi7T_]/T]TwZlK3
U".R-m1F>^=5b:B';zng[oZXrb8*m4w-ruslH(b4AwL?GSb+&8%f5Io&]e-60-88L
U"thT>C#0XtdNkB-B2QRnjFkCG?$G?SW'[F0itS:(3;T/4FA;=PU4y3\/13^,tAl-
U"2nI*gwbJ8P8WltHNZblxDq1Mh?ihjjOQ:wRwD,-tsVaM2c87+]R)ik8(Ta=cJD%
U"BVmIJG,b^8'cIl^Yp<Kh0qoY=*OXc&d_G7_Np^cYdA+BYm4er]_\.+^D-TSp();
U"+AOj^3lZfV>MlnIP=G:)_:iXA_AM+N$BjS/V$ZSv2$Vgq*%<7PPWaeHZscL&u]c
U",89r$kA6.L3H,'8Y6/0jnU?$8q,+fMP^?Evk_8jlT\5Bc\hR6]8Ul.ke:e9xuNG
U"3cnog,$#A^B=^uL-w\<TWoG['q(5q)?-Lf;<>q>B[Y82^vy2lf'Fqx+^?V>;N%g
U"jDVD<Nn(nRIULF[=Ot$%tpvhCETO*VIsobH8urr$u[k-,J4?BfK<0=ST$xP+2Cc
U"z=sdThdLSnq9p1]jJ.^3kp/egE4UXrXi/<id<4r2.bNn-acB-7Ypv5[d8f7yMY[
U"cK/^DrI:TrZo[+,jiA-?qQHMBjLe/S/1H[6:sjV>K6<l12v*W8/_w$))t;g)7V<
U"]Nt'lc8VH]<6ad5Wg*FfKX\>k$:)PxQO794>9g:y^kUyQbEVw5.5py9j$\#z>2?
U"]Q%G$]+nI-Wtu5MT7w5PJ$N[FdR'#qNYj1uhdL4n'Kk8ZJ/l^Sro:R/fcL>d.dR
U"vuQ/BRPej*713GZ3*Ee6b'&n/9lY;NFne_-jiL&Nvg^qstlqvn9%4YJGBcTt=a^
U"E?]tpUovm0k\LM=Axjf4>memqSkU-/.M]rYRnY>p<hfB8:ob,\'.2OV?guO#3aT
U"%kN1xZFI3iYZTr4E\?O\[#i]F<[z9DU^wSQI^$HNc/>9t'd:4u;'PP)bxAF-F3Z
U"XgjeOBr8=6fwi7b<IVqbbf=-0_c$Vn;.5>V&RY(/s(b$H<K-?:FJ^ewy[>J49eN
U"r_RVXCJ9uIVy/#,lhoFF8ZYO'X;ip#V\K^1I5>^nW;Bv?m[bZM,+)->)7%f;e47
U"X]>+?l1Q^qJ.:e*>7W&]oBE5q.-Z<#3T,10(JCB5T:4Ng>GN]GyF<OpwmQwm$Vk
U"YfIu[Qf=;_-DPG)XXE.]_SkG#0tDuqvZLteFqVMHX'E1<_^Cag+HH8a91;YfZUv
U".Q\_5W0#f=)V>B/<pZ)TL&7E#:2XqX;w4fgI,,e=?.\r_-/HB'*QlS3i6'Q'aMf
U"qEn:m<_=NtmXiwg96AVF7)S2qpZBvwV.O(SI[*nUbHMFsl><^)41dOAKD;rd[J(
U"s5Mw.44g*,ptcIIf/r<Ab/v1NEl7i4AugLYJe%UbcR#l#HVM36&%JE<hxXlP*md
U"6ob7u'5-aC*=t=iy&CCL4Cv>e#,#*X'O6(&[Tt3pIE>=11F1>B/EtccL9^>sz_:
U"rgg5o>(TUSUgXGERm';O&x&p3?s\cJ]U10k]TrE(i&:gb+/%JY(J.*]M,98ONHr
U"Ik]et8M2=bt6eXse[ieNPi_)E2>z966'EWjZ9_U.rAFk]GWfsFZOB#3?h1A->+b
U">qknd)RSoj0$n\>3osNlm$1u5)(hxo)o-Jl$M1jI:=SCoKnl[\gOj9_L\#T^/\P
U"8<o7#BEk6G)4=P?Of;FGBi&+l.)MP(x#-]:ZZ1wigf[bE%3((Os>AQTZV2=]tY/
U"GHSK8fI6jMn?5<&vIC-=R10F?A]QlS)6+]ofeg7zR5gsqh__GWn*c/hVCWQ98$5
U"U3dtDTiN:i?g:>2m<m\PMV2Dgd%&BMw&O%P\#,mm,^I3:VQM[-xq-'?#tx(vkos
U"K2q:JI/HA+L[U1$hj*#R6,:tt.p5t$0U[5o+OEEaRE#q[IIRk?fh;P&*8]\Mnx#
U"g>M=WRSA)8dt:tNGbYfwo/>r;h'Z.XnU(Ys-;SM?,MGYHX.q<FS/s806#Cg:]/%
U"m7C&Nb?_aar]ymhAAS>pPv.IkZ;w/GwxC%3[lvbUS(3sdf0VM/(s/_7j:bIj,)c
U"OsiqrG\%BQ4gc2eV3)R<>r;=8r7qu(_t[aRsA?rK&MG3&J^VA9h,KYHToXsoj\#
U"N$s5uUeIB4F=E)*-8cJO5se,MqFdF2n,,]FB,qI;qXRl+hNi&ga=K[8ChFU'V6L
U"gPmn[[TR7b-K[7NI6XYE:6RaC9jl4*I9^+b&]LlRqCee[iFITZ$10P,m2B=Aezv
U"JT=F&A_JW_3g#'t3Z[(2l^JxqRAqSfBDDb&K.Pl5U&LDgUNPwVhKQP78=cdpb#J
U"Ft**:xVu%[M'7HeL??8TGkLcZ:uDSusWp8>&X(4CCJu]gBN'5q+KkMmnbnL7-QF
U"r;LB]ubnos4N5sfNUZ^<pk/g6f9c*9z_m&lG_FN$Gm>[%ALau1W2DFRuadp1Umy
U"OdC0;m9FKBfh-/A0Vctx\D[aV7S(->V3$)qQh]VHBk,ul_]/GJxbBtJkO]BtuPW
U"szQ62'#gwz-W\#WRA<=XhXcUnuVI7PH5xfVWqR_gCCVPN/'sk_:Nv]HOdfjRr/L
U"emt2om[M8(K+4<fa^IX$:%Bng&do;bB1)*gpIr2%'&LB>&*&X\qjFA/Noqiv^c,
U">xP>T1t%z5>8O;5J#,AJ5h&Z<1k5YkHRpuQSUqKVL4k)%g8Eo$AFLXmv,SWhmKN
U"xl]tb0\g?1w^_jMB-9,4gnF;?('Wnj]E0>EyuXxWtW6$fR]#CY#QEj[mO]r0Bpo
U"NSvGU#c9pCJU:\,[3(8q$0p0j>B;B#E*U>tQFvpkVmEKvqfA=i(d:5xVHW9+#jx
U"<LvxR[H;nAs9\=/TBv(-cPoAW=b-kz<Yk5GT(N*14V3rij_rm5J8A)LapT^dp4>
U"0u]rn&M\Th,^TIh:KDDaL87x5N2dszitrfJft$xpaqpfVpqZ<_1h.#=3_]PWDNr
U"#e^mq2AS6P4C))IYp6f0nqK[Y-6Y^8vV.909Bai%1zW6<[36GI#_G0]<3AsJg2\
U"-m:))sRW_f#n[iYi);y\3:_O8'$#%,TJ*=RITtBl,JLXEWu^&vtgK>##Mwd_Lqi
U"gRr6I:FdDSi-H^>R8aP_brit'Q9;1Dc24=DL\LP]dXb=L]Ml7s.6_nv3l\o_V\i
U"LSm-+ZL>^tOXD6el]eh,d3Ztk,=:\W[QeB(2P4)].?RB>K;332*)0+#Bje\u13F
U"Kz+Od+*:,RTSimsQb<o1pHVbfmz\F8:ETu81Fp0u>X;Ud\\4L0NiP=hVduphL2(
U"XJ*ko5hD:4hA(ZYj;3'KS4<^-?p#,t&WxYft2qqlq<Au.hL]$?5WC<CTP=)(,'s
U"TpH]JZMk()kg_oEn,nwoHr%Fv9YyIFrF)3dZXLeNV3R/J_*QE5,UV)0vB(aP&j2
U"lAHcqMQle*zGtXGJJxJ.n-.:X?d\qiko.lmTU?fv6u%6hD<)NiML:knjq9ZW_$P
U"MTsf2-O[va\k5slDoNk^$WNygbN(hw+&lXDui'v)(bMws5k-vcZkRBl^-x-JOqQ
U"Z?t;,1-h7feHKc>J%D&NnM?>v[56n/&me==c\o3x?K.b.NE=34RC6ao;UetC0'5
U"-J62Je4OnqVpuV:o'n_budE8jariHrO?dB[D+>Upi6kf-BdeTXYn]JqI*YWtb0o
U"FcTQNOPwmO('Ih5KDoiFK/jns$QAoMHoh,]BjtalYs8gV<mDY#eq#J[]hx^ksp*
U"EI2Z5va2<x3snnV<'66/15cW&nrCNuhl.rr4p;4S%]hF;EgHd;kEMX2<TB>GIT(
U"04b[BtAp)a)6p[.j)N:/fhP#Us*2a/EBn_;_eaioqYKN;H[X-9;Jwn$?_4orkT*
U"h-=>Nt3+=;+NE-\I61htGMJ_M,>Qq4#?275^?>VuJL.(Cdf=(x]L2M%]b2;]n]M
U"]AtvCcAvR8)$(DWF.s;2o7RT_l-a6.AT-g:0##Djq*P8^m;x3o%_;rIk+[w5pwE
U"42i7zho,bMfhp;*e<];YgV+p';*'.8[0)5j/Ag8-ua*1711='Hn=S>TP-Q]TIby
U"2dlu3v/rh]M&7j\j4tQo]JA>JxU<WwmiOkcX<#CWUL8R,<W\RV8_nL[b;3.CbQM
U"lItNkXnjPT)9Y+tPM[v]=d%#d_S/eG-tQjMk?f]_mT.hp^5+_6DK);fh4#<baWH
U"Bj.Qb4LZ(-NY8U6WRFI,4N>Hm'yc0&hRFC;p5R(UgzuIUnRXPP'.Yb$t-G,.n/%
U"egFNkJr=3bn5[rGetp>sYnn2nZqwp$]Nr7=ZrD-;>Mmlt'W^&>LtprtM9R(F[)V
U"x:,3Z%OwZL?e43&2D;zal>N]a6SRpkwjl;h4sK[Z>YnngA:7Hj<PG]tbP>A+Dit
U"4SEk8A+D\fZ6[bw%+JRY-4W42+egOwthgidQ$0tn4o6g;3UjT/1/Fj,_xqb8ZA[
U";Y+#El_r:5jM4/[Wr(Tf_MnMEgPb>1sdo?un9-'?8.rwWjfjfg9\\p7kUeju/n5
U"i<d+8)P/U^O;Y;ZIJmYm\)J,;Zx<U+MHmcxwEhr-5\Lr:9'2E$_#..tM'PKYsm$
U"3wfLGnl1Ru6h6milIIRjSwaq^8HKQ6LeqECz>(Kf*IL-\^-%m,T5Om^KF8ab?C'
U"+S0++p%qL=wrYiqZ,+e<JLY8]o>]UFJT%CXWjKXguW2LVKPJk&bn>?1cl4we2u6
U"X5.5NX^j2QdO=6klP*i-rV9C/KhegreH^eWbIx]J4ac,^RjFKOL)h,;,C*pt-mm
U"?YMBxFD2-^(FT2(PX;5%-SxqtdPg4bkbip54D<o:fol16%S+wMXBXn#.]S\_&w3
U"<b6tdF*[XI8m1[RGhUOcFaVkAv(EEx^zgOC\PYqMl9Vk4Wr)X>tNh.^QBs\Edo*
U"Tb\KQXUB&.2KN2;&h9zZoD7R7f-r5D:JcM43;*;U3q=?\FPP&1Q=9uAfHl^(Uxa
U"OAXS#1;sX3QfRkCjV2Qds8vc'fla)QA<^)YhPT'k-m95_>$D'Q<]c%43jI0wYpb
U"A),H?TB?2se5_J$G)GtY=<fSpfUg6:gUyiwlf>a*>;JQl5n5lVYgS?)Y-$]fiG]
U"?>RDRp'VrhH:]#b$P1iL3xkKX6?>xZbsrSHZ)]&LRMftRjM?sRoORq]n0m\I'JW
U"-D/;Ts2cU_Dtk3KgrC;n\Nut=<#%tAd.l(rct5)LCa2v6(*NX'5E]6IfV6(*#$O
U"Z2ZTq4l>I2lMS#[*[E;&7WD%TT=cE2[-x'jdrf8D$+0[H-$8<2J2fsqavYIXo'9
U",uWjc]oHK(rkC[-x];$-n9R+Nl_BJd3mj;[va7FgG+ccK6X*gLoG]6:bQ>)o=2^
U"grD,GM)v4_R7nQg:RdPNn-#d6nR3t<KXY?M*;T?e[^MlAm1-a&Spgp-/s>G-Pti
U"X^:YqYH+-2]OPWQKVksgF2Udy$+0OxKsdgvB(aR&bn6GHGyp-BUh=w$5Vh,E88#
U"FPDb&LNast$Y-cDebVbZTI>*884+r>&.JGKpUX:vil4IQ5&+(71iIbK]C?vA6+l
U"jiW8YA5v_nsJ26OH7\xQ\MXb&vSkfI2/2V>F09u<Nq=SK'R.e4EPj:/>&J6^0kj
U"_nYb>.Hb\ep&QE1+c3f.0NVO%os#xwP7dL)cXNQ.6l6r>s0v3N\Q=/fCJ#B-i.e
U"MGjW_([^UL>A:>bPb/SNVrujTn+6P^Ta?Q*B*3)2b$&[t?r<0=.gGS?UE/9HyLl
U"HgNHA]Mbc9d)6SbS8BdeVip9=,]d.^>Hc<<:J7Yg?Au/Dhuvv6+im>=\qhJ'qS\
U"#;9ELAcYES6C,rUZM%IZ:/<;//blQ/R(b;%lk]E:1D>K75S3H.b#GM,l=Mq2IP*
U"7odQaE5Wr632ZCYX&_&t9-&ebxp05=F[O[c)T*IKhy:M8kja-EoWCLbc#hv.gQa
U"Np)8LK9\LZ)mLdg7SizWZPaQ<^j2n8,TqnWqFO2btoZy9+Rc/,q9XXAoVu*il&t
U"g\>Pgfy;L43JYdiUg3cP7iHTu;kOpczP>e6&BL=bFV[.qYH.T5x8yo(])Ig6-nu
U"L4QE^4?6%NOztuZre9x7F(1\SZ&RilgV;Mq\pM-*?2fH45sn-b9[r'f3=Je?loR
U"#?$+vcnRN2WMd8dIrD2v<fQ6p.e+E=[>ZhDB<+HoCE(24I%/4=o4TY[fIUDAn/H
U"TLpV3VLOC&*\+#BLfd[W]hH$Uw,8AgrmFq_TZR8IT\*e]lek9[a8I.^w.V(?Bd5
U"5XMZ.3I.9z3XR66n^3?4vH;hijf3f\MGTtY7b?T\$uhiQ5I\kTSJs9suVDN#yo]
U"%:<#nO]H9cGh/EIPa%Mo)\B]-bpx'89*2J;z1z>_0Vy?WbL96vm)]^I1_mtVd4l
U"RJ\'IWiS[7bwi0aRo(RGY0)6$d.GH_sdc,P6]3aeuU9/D?EHRJJbM9>T4IsY[WJ
U"q7L6?O..0J(\QB5\2fw=KVG>.p'9Xthe4G=-dL$4IV%bG-0e_h[Hj:p\=]1a+J1
U"k-cEb;l[&fe<HhLKB)wN'L%Q0%IV/fPp+_.\b*Y97[kS>?aEEQqp#js(^3PMo9V
U"rJ<W<_KC>a4]*;iHuvo.4=qZ_Z6'tLvSBcIB_g^$e95;kZr-wsSK]2_=GN#]=JI
U"\vhPuWM6$KFqWbiu%tG\1\Ys2dtZX:39D=L:r\)kFhHPE(P&9uI;Q;Tr.M46Q1p
U"V2Nfg:^M[h]15D7[=i2ZKcG=$'at?X.hQn+;('794ir3>[6\MfF#ElZ:+#<8O3E
U"\/dDQaeW;GPV=O_HH1>=&,\W=>anUB=TkEIE)jcx*B[Z6;DXTCF.ElJD[C:bnqr
U"^<=:h.eO#kl;I<G?&pbh[p>Br7Fi]Mf.7y-8LCe-Hwu93M?M2ezIh--2PC^MYKP
U"'3+'eVo5K#]V0BUm*qg+RBWZW^IR$aP<L^r/-*q>2\IV369Yg9F8I+<mhWU'2kv
U"u(iSx'plNR'$\*:E:&WZB^?])Bh(mf0/*cKHEhjcpn'U.h.1FBK[WOa$fU&NM]A
U"AMO<Na+uf+]Vw0.5P&gIOWQ]AI2/Fm_zT,o/j(5&c\SU<T:BhRcT]J1]hvCq4qj
U"wb8tPUPnrFF\nBnkMi#$lTuS*f],]FjMuHD3qgnGtKF>u.+$Z7:2#XkGtXDr:+s
U"[Pc+>s[I[D.'$?/Ko#>G[p/+XF>o6o8#3$unrXon&*NL*UkqK47fI^R+c:#u<P]
U"f6k>nrq-\os3[)'\k'4>)j.TFY[BMVwLKa0L9x&kNY,qto3FX.EMRiJ^$UZK\#L
U"N^shG.(jtV.-W)c2VpECv508<oF=YNstV#Fy1:$C4.cO]]V,E'D+[gtq)]7&>Wl
U"?Ld$]Y1E,cTd:eAr(;%5(%6Vm.?z+4Zg;oJ$VeikcUhN+hU.c5^^h+F61^f78G^
U"g7^/9<(dka?&lw1c['IHAI/0xN\L/u?]rveFOfteeuEQn>RBGfsX<f/Uji)p8W]
U"b*?/Ngt[ZXMT]E?SO=bmsd/a>*&D7D3'j?^%LB\l874/iYMM0qbn_SKCX2Q\H8t
U"L?*pUC&;1U6/Ux/?]LTgq8<qgiQHvf3Y>QWkJK^w0O7CE-/icBgo9K4qHO]2wp%
U"'i,#CdsqHXo>1cX],5mf6GU9ed9)#&f4[ez:6gbL0f7JK9fS+\>pJ*p0mH/B[c(
U"U/J[qg)8e;M+-a*oAn:qR&*ty_+hc)b]KF^9KpQ%OPsj#QJoul-\39sCl%mwH)s
U"a'SPwHx<MYt1'_:=vum-TGqtq$wfTZJ\u_hdFcBMbXjqDIieB,_(:/iDdGmu.1_
U"/E<5N2l?xuvhYVuv1'9<5O-5N$7C^]tDa[d,;xS=Y]&7unQ<#u_+M>:M7Ga5)i5
U"s)pe<D^,:MmA#S#VZ-*?'*cff=moVXokx_E_E)$W?qa*DdJU^AO^Q8Ag&(j\+=P
U"9e,oxM,KS=k8r4\)DJUfb0R9L+jKsR.sq)NRB5O4h1R43G^IR5g7Sky4NkYLlO^
U"mEZg+,egl47F0U3N'Rl58*+P%4b=^PDz9Rd6UIxk80GVU$#1Oqo)coDr)]]#ak7
U"ca6[k6J]aF#ke]VdkqIX442_o?>$qPd0MO=WFm4N&\.e,>zJ5Owh/Y)XQ'r'[3Z
U"v>a(ohZ&HQx'l6r<oZHrR/*jet^Dqtp:]P4L(iEo?JZY(A&I:uS29v43nfg[nA3
U"WdLfc:0+tAl;iJX2?km\qR'NWAVUF[0p__?*s,nQ<'#nOtJm]XenyjHY)/(tT$4
U"VQw(aDr+GO>O)/HBvH=F.qpf;i_UO&(\'N:(Fk*,5iM#SjjaXF&tS>Dha=kmEBG
U"HPwZBH\_2SeSfT\_i>hcbb4<]B^D7tn-:WA2:M*xfWk>kQ6BjBd'&=rg(KVMuc;
U"e)]icMk&[ZrLg3Acv6^uN75o5BMP8tRIHeqVJ<UkqUk=/gltBw5q47*[6UK(=vg
U"(X?ld>Ad9*655SgMn-%Em>U,0pbG$-X'IlaSrHe9=P+vERgFBG=YijioZg[bDkB
U"T;%5ATRjfQW62-tnMQ/wKbLkOBhRtkgcp8x.=b(q$]w3ia=YctfpCcRJA>dhx35
U"&gN.uC?\]n?<6n?qv:,2kfbKoUgRF^jV34y8x2[RQ4B7wUGa1RZnkoA.h4s(<[1
U"(lXPH73^pipURn05-:Y6>E2Y>%-8RL:$\WLcqLXge0%M+_=Sdc;J[B)2&PV/]*F
U"crMYvb>U#Cw0oY<xp$g>k0')6KD_Mqbr4&hj^:d?f8c#:(A_kM9;/b5C1tB]J]O
U";VKlLkx),#6Mdt0#d3s,ku][CPpCJYUV_\]P6R5XQD8[gO+5)R%AK7hX\G(HhhA
U"Oe*,2KeZ#b]mR0E3qO6ascPY:vdG/::;AwJ&OB^xaaTiWMb51)[C#[^r;MLkO^/
U"lkBD_T6$fU)Iktu6Fn,Tvd[Hrdi#B$ru?$]8dD8u)nABxT7uug6[a.Hv_AUPyFG
U"F7$fBBe8dT5WqG5HN1Vu]BUw3>T^#1.Lbn2/qAL#<L8q_QoTGsfS7D7Dbk2><$d
U"0%mVJOG%7Wj1<x.(uejiNG1cdQbQ0ds<cuR?1ADMa<d^4Y6kkb6:bN[&G&Q=)?o
U"T/x0Pz(\$Zl3GJ>0Mo%1zP$#$Qb//N,$*H>z?:OW+P.4GG,HJ2T$UXBtjO:PC76
U"UHdvh6<vvU5#m1;e70Gvh*OPHHLj*yw,)ntr]9ke<kBhLX_F5nJbu^42IU9s7&o
U"G-qa]&59sScW$,HGBw#+JoqZodUJ?g2$ao$^Hv;*FhB'wR]fkv]\[#9TDMAWeir
U"^^+s^i8&h<&b3E:UzaB0rbU#wib2^x',p_=fg.3M#b21_,0R?t/GQmc9lY++3fv
U"5&X3p:[.4y2eKgiKi(OMr5IrkJkm2/A*S_l]Vfm#NA84-E?oY+277r#G5W7#L6.
U"0%x4O+AC6B53Rc8+U6);n6p/XGnx/Bo0TAhJ+P7bNPhh;]:ic8n^<jmjq0aBqyL
U"REmk2sPCdP;pJFu16tA>^AG'734k>#p-7c[d7nICFh:kw=Ca^IQo)1Q39r[drGE
U"kBV$^,Pe<fn#-$3vXqW<AX.s$=Q6EW0fM]W'BIT6qD6fgKu5[EdU4f\w,Bp_1oX
U".6-cUo3JhT=]DwCtoaxl*'Yu)1g;iq56s[?-;T)?9_4k9.-spW3IB^cp+5D\N#f
U"]B2,en&u=fEwR^G/]tNUw/==m4od>1d3,\-6y+e5c&\x%3CZfrV1ut5N\XC-&:$
U"tqbq5X,8^REZUKhlOjqHBtAyn-_9vH[s,Y;NK=lfb8*8Z,0WPu4jhxT6xOiO=qY
U"5Xdud(;vZ4nm/*w6.)>miOj&UTu(p=puqV\R'HTbsmwtUpD0:Ym$-Gt.He0Xn#i
U"%arT&l+G8m36rme3nKTr7^bjt0MD=)Aq[X&/Xe#.XIM=d8_uPBZwkp/FG#i&f0x
END SUB
SUB V3
U"O\7HbQEo-LrJLTRZ#X(z9:1ribdN[(mg3P4Y68)5>zdQ.#=M%MW94nuBFDwbuY6
U"^tGKfnVK*1Xf4fU]CQiqV]h,E;0r\6IhYun't$'q#0[d.ewKLt2IGP=fqs0Yog.
U"o^4_ehtP0XrS\q.ZS8$)D)wMFQ'>-1$mR'O0m1s2IXJDGF8l\W67rl.,7s)c4ZK
U"a;cI$n5iThRc;eR#:)xKn5lPcF&/FyqU8Fc$P<e$q\>FA_<.NkyPvYO;(dNYaJE
U".nM7NL/%8>=RrbdSQ&K*'PZ^P#^'Zn/Q(.x-#XsfS_U%6Sr[)8oD$HOQ>crusNY
U"E0xjQr2jl^LZ5[b?jpY/hmBUX'q;#r>k.B$lVi93s4\X(O>+1[_R*ajupk0W4^t
U"T3#c6<G-r9V$VA7Bo50>uFA5lxYq'R^=#Rd=q-bg=0>Fu1]=eJqKs>JsR*BSD<d
U"MEMx\T1.+ensYb:fPV9MVX\Li6zTi$P=v)L4a[k+N[PpVZ:xIga4L2D7A;7^a18
U"c+#xrxOB9HwWhsv.f?e'w2fH5'exyg]dPe#$fx;XIj$U*h%e/EIFW,NGWTLUU?8
U"g++[jUad=vguHl8vc-G0*'/T4bo^i8?[HB6i+'M]So8*=?&NZqN/?6YJw:eRNn3
U"/l(S%q+7]bk=,#VUK1T=c>(%V1/Vzwfl2vPu7k#Lp.VA9VO;]/l8Tgb^\.7B1yr
U"qc[04S;*p6d&PA[[#,PEcERDOgTB0OB$k'qZit)VnlMFp,<<oBaAj0i-rBwHt0&
U"5%'B4Dm^cQoa2.L]e6L[&v%&9ctJ0$5Tgw0,Ro6?b9^<R)]4E0Q^g9:k3DL/0/d
U"E(ML:K.MDCmhE>,tP29=-e6ubRc'r/*rN>7=OD8vPpP35DsUiV0tV;RV)HILeYh
U"Uemd(F]p6:x4G2_89y[oa&Ictt_RCU[YZ'c,N8:-^Mh?hv>,BlldMXqL,-(h(%]
U"<&f+K27(e,Mpoj_iRIUIU$F,l9hAeq<ng=AAS*Nao-q08pZEInS?y8rj9FzPrAg
U"+'jZ_dI__5<g&j\$?H]c3;X2[HbOTlO4sIuBe*n+:B>a15(hQzNdSl:>SJ/(T,$
U"WS46g#CnpKukUC/rn)j(=w9eXxcv^C)ab41dkyc;7Ot9.%G/Ag)jyfUDRf4hxON
U"sU15a?$-nP\K_t\x5_W%8hxv<sGI\;.44\DMa1/bVN7B\]FE30t+Lw8Nscg^(-x
U"rp'=nr[,mJ7+R*[&h'_:sD*H->1WTW8a;o]dFh.N=UQr6^_Fg.Or^,_O-E-wi-9
U"Y^]hVWpNu'ArmBC5qk^au*o=#7c?f<a.6ZOFdj#:aFiY9/:SE3oSH?t61^K*ClC
U"kZR:-v_g'VAfDM_4oqhJpSCmJ&<,ddC3riDxkGn8IA),Vl%fFyklQR[&A[&z'X7
U",n<C=xIlhtXauG&Y7*#VtTY4gT6huX&?9p.#e/S;).M7R.YxoYJm0^5#u+,]sp)
U"M];8LRd-$8%Fyw[mZ-G]j^G6avrEh$[Z(u2K6$Y^_jHto*[^%B#T?xq5d)YMGXw
U"f>Bb%w,PJArhbZSnnfk>7c[,JVL6mCQ9v;3/21M3INnZUI8/gA?,pl8;.HSM_t:
U"R<<Zl\[&SZ\<5M/PJYpV6xZV#Tr-FG1]lQe*G2%/li#^^,GMi&^(_2BCt,?A(6u
U"g:<vsFehOIo9-MvXEF'4T4YL)v)B5&AVpZe/03UTByAIjMWMNp39ZtbP-W4U2:q
U"]jLrH8n7bO<Pp'(L2='deOW\KO$=L*q#ETpJ_qe,r:dh:f_^B,.#XHrpz9p$1Vd
U"iOIg(I66hH$HsZ6_TSDvS/qC53aNvga$qrD4RY%*B\94BREWrJ<it]#*ZiUGBLF
U"i\:GjCSH[_I?r[Ia7F,uEEiOsDx>eNtS&i(Pd]q.Hr867m.=o,/WrH9x;>lTe4k
U">n#&S5q2ocHHgz[TO,BfJ-np&b&#&pm4dBRCl8r;th6QZ)k0s^+32QKAB?2EOtu
U"]JN[rfIMCB>^$^OpZ4K%Jd^Bm3HXapEh[B<RW?2q^T9*,WgCLAGo8(SHYe8cIWg
U"9kpHu04Fem%]jV\:*le.f&ET\836d#s6]9]0_$b*g<SCqMkx>tL[leZxFW3Sg4;
U"Ios^J=Uu&+f4duPK'nkAAjam'mbO2,kITGKmYDs3CT<lOq6^gFc3sx=cEj3:#Df
U"rR8/W&21iHlH_r2l1NcxkpEdRm?mVw?T2Plme4N?;WMuwrH;QFV(e;N=sjRdRTN
U"<slt)<a&wBGEucaE>v/Oq78Xhiq&,3<_NEzKYeVN69V6dblvBai&Ydq5\c*qG3t
U"AC:2DxS=Teu\.dac$OYALDTn4N+)+ae?fqLm+)CXHcQa'[M70<XljdoxEu_CA/i
U"KS6t8ndf[$DvBmbDGa05BjTTUP.a'Y#=d#]U38*eD&OYH670uu>04f?SIjGbt$P
U"xK_zmRt?v^(AAYd7%Z[_#bK3:02%+^j:OPb6'(^s'hGmR1^3NXtG([Qq-KZ#;T2
U")AgWMpwJ*H>7&ARp1R2UOJt:cQUd<#c#LV]lJdC$Rgqu8d5rCdBN:COQt;heY?V
U"W1Dr^f=oH3YG_26YEwiT=TT$x2nO2a\<IbfIy/n]tMh,H/N;^Lns\+_h+R0$rc&
U"wes;u[Xuw#xu*NfYul'Rjm71gsHW_#,T05H4g?gge,Q,8kLddQL<qPvq8V6N^Mo
U"O686?LFd[8M[Y%l1hTs:,MfbQ8o^Mu\<Uq^Ff*P'iewVt,p]tY\_cm<;(ZM+D_l
U"]bMT_2lm4=vLx.?oS6VIt#L#*Ipjz8qotfP[pX6wi<+J:a-6Lh.0aU=+9a80)cm
U"BlFQJ$nVK+bSbfVCcFi$gtgeDWNn4tVn9?P7oLtNohVkNqy.t[&wh\WbQ?=_M+=
U"%[QTgup9v=T6ctnu>XEwb9odm*0d0sADfs<c,2WZ,m(8r3YL(lV$RQXomMmc5le
U"xL&n/D/Lt(=S9ryK\SB3dERXt18e;^nOVQG:GZKcqNbDr4w5TtR<l7a-9ieOlP0
U"%V%h#7F)Y9:N0w]?9kIH0uQ^s2v>WI,gAXOI-&3?^N(+nW(9wBqj^)Sik3DFNY;
U"H:#Mq?\)/c\NSdi1$A_=U4DveQ[AbFM64pf#Sl*UmdMAQm>J[0;1=2zWO-<Hb6b
U"wWH4)IimEM5,lgR5Qa';\nC1t^KQZr?VeV#)QUcZC)W\we6\G1vCm?=59H>SOmN
U"D>ikyF&LdK2yM(>cdBz/nXaHG:W#wvVaF0)_hXWx5l[z)'I+jw;SOYugu,($?NC
U"3JZ&=kj/BMq,G%ANI+,ffU_^8]cdDWV9JO5#S20).h-mjTr8;U5&/W8&FM4l3Z'
U"0k<cEx(b,qU4I4#,/rgW:8o/(gp*Z&01#\TWu8OJ9PGhj/W0dT:Z2:0h)ujt(g4
U"(gp2iCY32u2oDRn>VldRRGp&04H4.Ua4OM*=T]'WqnJq?fGuw<^;)II[*jh-WLe
U"3h%%QRfv0Sw1B08e+chVS2UUs^WxKQ%-LuZrHl&XQTl_8vJKhB-R'R&IuiF^aKD
U"c]G96>gvu3/,JsH1hcP*2U\?IH$cg=ch7y5?-olCS>Ea0JFN+zFY%^;H):lDJ6R
U";v/*LXW\VH=5$=t=rjfSBKWq)c_.MM[#hDBfs8/Yj5_0/vS+C0Uw&XZq:fSMwq&
U"ICTV#F6h;YDT?ii?i/Gd=hIFYUdPBK_3cu\b/Q5&4.U'Y#XaSF,,wOU6FRm*e=e
U"BiN-4U?aGdp%b9Oq$[:G7=g$1U*2=TZm]T:h9UO6_9[3,W_mFlQS7qe#/(vJ^:p
U"Z[8,u.fNU\-5#-p<y*^/f:UuBqBWdk/t5X]kmb\BFSDE2Zl=lXh=HKbHuP;r,JA
U"Z+B[=_wy+CC-(.:Z9ZOh]VFY:rIiRA+Qcr47u/7*/;.3K+-=;aUb]k-,DwdSF-V
U"i+(m4S54[dZl=T/&i7])<w'K%UILJ<(D,^.'ysYDR)4y_$Sb\/FQq;>#>3)xAI*
U"(m*o1P+Gci'TSeaAOH-2,z7+tzVA%IZfv\Y]B$5_ccJM4o$G5bvs6:[lSeue[Eo
U"CFp6UM7:m/f>q(8:Wxsa9FO,4LLJbmoI=4G^YLB(O/50DEeY&[b'4_Y8F=^L%2k
U"JyqVGLQKEM)SRqaIu*T\O*1ljE=TNuA'Rt$8YHfrHNOa6-4mIYs6B+>)hr8YNo6
U"Bug<a:9(WVgQE%9p#g38&mn3Na?4fl3VUQjM(v52n.74E->CS+-Ct(OANmRV[_S
U"i>&C<phefdSLcH';3m#tkj(A<In2E7#oLJ0btKDtS/tB[ARD\1VfS1KkOc*45G3
U"2rZs(%d)S'YdSSY3u)tYI^)0ibP]6FL8%lqF)Hdf]SJnDo4*?X4[OnRWw;?(y:]
U"%HnI:2RpgP2iF5BcRC?<YUA'h5%cWJ4:ne-K(R+'YVy_Ys&*O27Gn_IRQr=s4;r
U"RGc;3a_ot;U1>[H5dj<r?gG[yRbJkI=$oa73EccdfA)0Oi<f6N\\wd>5alM1h3K
U")f\?x25pa]B+6ECPH66agg'Z&95\#&&/8oceov)(d:MHuN63Gs\&MuBF_l5m/bj
U"cxKZmbDJ91Jb32[U4K%(zDRB%m5G)51'-;J0cAL)\?2JV0\1uu&\Mzt?u\;iFD\
U"MU2^=2Ohqa>)7Go5F'#b:i,DFf1A4%LeHHHhZ=_0*,;/^C0w5lUq$SSry'QId93
U"ec$FAFUw-s]V$lol5]2ARp0Q&jM1s*Rixpx;6^x,C+1PC,ulwOq?aUJj_OB7l2S
U";Ks(3w\Tm58=,eu:<6Ue?c=5S'7L6,[<\']49)-[X#0Ju5,.1Tg8xN/dqudb%bw
U".&*1J+1_(2:#3#R)XB<M5*B(%8xRK4<kXnIZ1t>7]5q>%E9/j]fV,CXr3N.cY%m
U"QM8U+OG^H^J1qGCOhAfKl\FMAo\$gc0\P'_HOUBo$]pyftG-tiS3u>?&G>U0g)_
U"<S]W-Tf\^kGxO]tLKaj17;<e.5yexl)M?Q#N$qea\cxArlj-ub3Mgs%25l*L;B9
U"*[5PSQ&c-;6q?P3,%<(Gd)Cy.v]\'YN9K;7E&6E%?F,+2RZiq^eOPcDw5(4$_UW
U"5sUoBsjEVJhfWEOdKz1KVvK9+\:dbx.n5#8d*=Mx7K_hu=jC,]WSZa,%JA9XLBw
U"jB$%Trk4e/pGQ/XE._6^gxO2ndCE4elp$#\K0h+Pl*#ik>:FhTUe]En2lxTP^uF
U"$k6,eW#nI6xke+'BgIRn>><ngm-rS]_l]SDev/y=:u_r71KC9X='lfjLUEVBmiJ
U"a[sy>]?0]84p+g0+$)WA#o0kK]gc/22Al$tnl<mQ#\rHT-]Xr?;5,ooCOG_A<xZ
U"OWNG&PGL^Gs(EN,ehRtU1m&qJBj[WDds#AX/$kPy$6Fa]x+Ce?rSYj^irXR(tc-
U"Z]24J2bg,20^(R^r=YU*8UB5wp'kBIwQ>qZCB]ho4o4qlHH4Gm[r#YbpHq#N.3v
U"MYQO>krsx=Y5DgAQ9O?f:zm8D3L.bE8:bjzbRfYh?31Xu;m\o;db:^]B*Q8,YA7
U"ks(RX,Y.-R\)1Jv9<?8^+#2ciAI\x$/F3j+*PhEk=1gg(mPeHBpV0%Z7V,0=^l^
U"89Dki]I'9Ar,&s4#OJPCDR]*#n(rbR^m??\-$4gIcw++VL79>EQ.q]7^</Z:mc<
U"^DQk;qB#lSiDa)#h?<$pjZSbiBjm<G7b>9s3Gs>IbL*Hw%4&KcvOWI'nUQS90\v
U"h_Us/kAiGhlFm=<oC%0o$6u?m3N(WK]2tIBeXB2x/UGtPj,48O]c#=o_vkh&6j0
U"bM6lbdpL:bN_ZIFs>I*\e]s=BT,pS<U2,kx'.[[,4S/\jB=a(upsY*Uk+8GX3rE
U"]Jik<RWN&yB[o$aRj+Pl;hgkVl/BlB\jR)RgD)z_P_b]Z[;MOhl6[y<Q[K+swj/
U"RXPhk0%_7:*0L&$kn'D$.wT(0)UU10)\Tv4s.yKDRIHJ-\L7OM:2$rPh[Ahr1&S
U",g6lK=]9rxF#Opiebm&FYfO=FP3R7#]1G4f\E0i]b>EYfs02V>I_m$\x>uf=eld
U",>tmg]ce[;3]C,f^2S8Xu]OrJ?Gqp2'5n;=jVw1#4$iN28\X#'x17+d-K4]MIcS
U"g40r/HCeE$#'kLGKqi&&UO%9iH)a,rpp=/,k^9>l],l7Z-X$s$5L1;DEteIxO^T
U"kqFRT%m^:jB$*4l1zJ7\txKWOM6\x0Tb86BNfC%hWB)0*>fVj)>2\R4E11yOXs<
U"hFc57rv%Hnct0$h;]:$Q6bTQ+SEi+O\PG(As]z0LjJkZDZkPX2#o19LUj,DbngT
U"#N,\i5^sZB-Bq0:=M7aT7Q+<TL+p]tFe.pJZWPmtZVpKNHX?$#lMnr?FC2bBDnr
U"xSb;bN,Fb[4^iC%2wLc;aGjRc.Y^i>uEb:w.YuZso=xcE+e9oxmIQd=cLoMq2IE
U"c10#x=_(=9]YCG9XiV^$8]b>SOh33oQMp<Sq<-QX-:-rYMT9al''*Ve\EbGYV'v
U"we/m2w$.bYPA6>\#.Uzxi8o^g500[D:j??OfL$#v5IJu6yK>sZsg$YTt5R%d^O.
U"dTo;,bM)w>xJMo=jUAB4RGI5-ipjH9U[r(Wax2E%717'R%ZHXCnMMV)mL$Q:bLo
U"Bo-e[O/zED157,nL;w9IUtWCP$CbO\;Db/cLL=&B7.l_)1c7OuAQMQI3-rMmRAu
U")o?Uw)i]lO0GE]T^GY]UgVKaX(o-[JhwT?ua['ut6ho6Gh$_ariW$8UxoW/Mq]H
U"b2HP]Cql^n3t<.I:Y1o8%s>+ynw)f=ng/52/k[,<%Zbd%tq:bgO87[j);L4y5pI
U"wSZ.PcJsrT]+&;tRb0<&f7U9^nxsY%TOdE#VB#'K7cTlQ8')dy[&M>MCCj3']mO
U"IeX'HD$x/r/9QO=MNoa1#Pf)2Euh4u.F5/QgE=4>[NV3#&=Gg*j.%s7XDfpDJo9
U"[,.h_>Fba8D:=io\)[ua**0*UIjS)orq:v1e?ST)A%^r^GKuIoYl.S'$=?8SRB3
U")1nYi-:s2lOVUUOi=2=T31',g/^I=-$]t9GKkeXg;'^gR*CM61:w**eNE$DJl.y
U"<$C<k]PUp1%$[b1rs*11cQb.6JMT.UIZ+>^?2W_aB66Xh&umq&agv<qRuJc^4)P
U"^x=-KE-YE#3EN5Ug$(vz[YmlSglL^NS80KbUXFm2edZM.Dx8T6<S+5F/f#]7E=R
U"3h3tKhw<Qm[+?+ss/JNBiLlSSZ_j&FcIJq9,CC%NGi:A&H]\$jNNFCRI?8pDAYP
U"J&F)N_9b6Ja8eAQi<l9P[FZS'X(Xm8$a,D%%UH1R7^1#iimE-,0dpNu.bglV:#D
U"ng]'37MOWVlR:u,regWeed_.(MQL(X$St8>BTM..2&dhT$Kb%O5mPa?<GN\=9'H
U"DhbYHb9uIwLet)y.8j2<d2J-MKKIY-)R2_n^0(D2:;TgahDrxI5NgqLsu?*9D,8
U"EzQ6;2$N96sLEiaVzGE3/vb3q[>V\>2**XqYdFweSGo8[I98Sp'ppwRT+YfOC=<
U"6Wx;VgF*>NTsaAAO4<c\wj_;FvX.N[?m%a9K&*Dbh_'_1V2j)_*I4Fpq%?&Nt,L
U"d:sgu#ZkhJT&Bi-du$^2U\,C.?rl8;TJpk.u;e\0w>vJpp&1WE94Z=T5'l?k<SY
U"(gL/Erw#+&sC83eq=+krn=3F(Ke>#KJv6Jbp)5$MSuME+Zmd7GtJAE03')969HB
U";a8X[%5%*FdZsUHa'l2F8B<u^tvVW,p1s=#B_qfCVl:JeBV-iK_3wwa\#28AMR=
U"''qE82L&,&J=$Xett''teg_f2?]*pG/NW1.*.Nh7$\0IofV%XrJl(fO]I;jphgC
U"4mXf+Zipi]v[$mp=E#xAQTjjiVTBaU-/(Zt,VfLg*<*indfBQNc*]f?k6'V2wz>
U"0&vS$?azeI6L,1l*d(-+)+f+voX83X2sPA-)((A1h3<CUv%fkP0^hELbPgZJ^_;
U"9>rQXf$PTn7jtH8abcmnG$3lMdR*1hA*gpXkLos's>oIsbp>:=;X//BA+)q+Pf9
U")bRDO4?UB'09a$ff?PPW5s]AE8<08wY6Uk==la8c?$O+SE_M3tM'Qn9=yIm5m2(
U"[B7$*;);gTG&:z/F0h<>Ib&UtBb6Dqdta1v=.es23p5GLnhXkFZ%T]>Ti8,1LG^
U"vfI^a32-MbmLJpO<mSep%)XaLhzTL=5i-<=BE&#3G\eT3dZ+1/C[e0JAWh+-BK*
U"*'9JIGgEq<K8.jTC(JpM9dPN1h[SNzZp'jd[e5r3VsCdNr$qtB*\Ic)dO^99e&m
U"t5TdV81Zh<y6^Su]R53h>kk]-9-Q$i?1:N7RP<-qnkeGY5:IMsmDhFql.'Z6wbh
U"e*^mSaF(9q3D8Bf:-lY-J6OkxIb>*g>-hn&eyCa9[O/6n4(6;[)hE)fOq#Vp\6e
U"]38G[XdcmEG6OwB<S8RA.F-&VSUB3YNgZB-#beeMb<eszdTE]\8tEO4*BG5.PJ3
U"c)C\Nm_SrVxGMdam7FPi<u=Jha6S3%oH_W<Jf*%^O5411xheYcnE'>ir?M$ceuw
U"YLDX=:*'67A9l)1bcX3bUW$S&Cd?]c#M1Gk/h?zsrG?J[aF]i(W*%Hj:%gd)$-R
U">W_>p,_[Md\q4nHtQ8$P32VT383pTW<V0,'Kk/SWHt6H?/i:\w_XEMd.reQ5>Q9
U"4cQ9Q$Xj96\_4gY*7kl0lHKFr-3UCZ(-EBr8KeDKV=8TcGUpEdNftb<0fTh=GU]
U"W$e7vE=_#VYHOkJt,kmeH,0Dnbk'29SdiuCt:Ljk(k6,$iTn*2W'E1_78[YH.gD
U"ok)ve0p\eJpj8M4+SHJ8q<)#;[fT-I^K9<*'IOH\Bc/E1bS9Y_uV*qf_8b9gPUQ
U"h7U_^$galoFA2UY)#y=4RWS+I)\_m<>eo,[,8mCc&Z>B=$-WH*#0=ZxG(:U*Dhr
U"5jF^Ed76PY-Fe0ONiF4Nl?v2+na*Ie&^#Fmby<B,QMc_G?EcJ_#G-3lpIqghPg&
U"b]9P&:^[Xzr]_gfa369(51Mp^]#v=PlB,a$BJ#bxr:A?T%6IuEK)2I#<3+KxD)s
U"#'V;-7doJMJbKV/L6hIFirf##+(]?T+h/cncbm]i672vILGju/X+]*R6LUbW,07
U"(JtR?=Ai/NHkcg;JnP/m,$56PcAVW%/[qVBw1w.ab6B&IlB$rMM^pQ).63M/%5M
U"3IDAARVV\ro^D?8d%vD;,MBSb&pl7x:&a%.(%tRZAaHot)<>WIxW7O_8+(gkcV%
U"j#n)Np'khL#1w&-)^T#B,Cz^el7M6\?>HMXa&s.\;O]Xu>)H,jq\F0-Ah/Io3t&
U"P/.z<&g\x?A*1EL:gwC4uDqr-X.L.Mm45qZ&=FR0o1CK/**gDr'4$F6W0JA&WJF
U"nYdiFM:Vz9pa0gm9I(TKcxc#MbwWeBDIi_KkJLT8#=DgYUSNwQ4I_0x_l<g+H(p
U"_\^WHhw4j(_aAw'S'2<8B1OAG2h%AZ,W'zf1wV4$tJmVm3Ja+&:^AVA/[ui(h4.
U"s$Ko=O)TWK55UBCVoBll]Wf;0RbRNx+'_^l,gO1PIAQh;;r+7'$fWvm>Mn*'7n7
U"_da$ZVjRe([UH*c4alak*Hd#P1D'7DQg%'E=p:fiN=q*%Q.\bhJYwe]Heh%*[Z3
U"n8FDOE-dHEUaHK7(Dn[&Cp;/q#u=JcGl/WM<RbBoNK(\_-1>m',b$[n8V*jNI_%
U"7:/oA3:O7%P4[tR+o2=pNp/&zYm<o7'4;WZNTI.\HacKja:l,Kc=HsjRgaVpVe?
U"h^t&u\;5hYWn/g8tu>k$m1s\odU;ETr]gtaI]o\3c7WUq_64Y<A;_$:0]#+s2x;
U"b%oOzF8/E;3Oojp8QT,0'm-=^P(8PLLUeULmUlBs*a*_u)+aHo=OsfeA3-F7W#h
U"*mgnc=[Vj:]fHX[BplD'*#YH/$v+te=/KCiPx1hsi59Uh0L$.K1a+&n0k9RlC(s
U"1US.#n)rqOT+a]a:]%ML17aOx8XK5D6meafH7G2UQ-G<]QClC;Y#K=0e8md=a.8
U"b[WvEA\:HV?9,AUi-lvi(eOA'NObHL.uC9NRu->=YKA'Y,U=/XI%:x^nUm12[Zi
U"S+S1Hx?h.s-jMOh7-Pp%:Q#w__90p[#3=NO-rN$eD?[]dQ%Ro:bgp,epd^x%z3y
U"Vi>.Z_Xag_-K24$j1b#ZL$?*kVNU+a^M)koQ49?1/reV&6(U58-N2RO99oqJWOz
U"7a*[kk'8Nhk5=t8HY4a2uuiQD&kvU+P_eWaP6TUFJ^OC6zTVFKJ)L2z1_\p/c0E
U"NZ?z02Z?8HDSkt\[grIl.OVa=PX,;09)qQ3KQFEu+YP_S2(BW6ob2-9;CPRU/f<
U"a+)Thaziw'IY8B9)pJ]l5/Cc'Y;:ER]EM8wAqpNM=UW9n&a8+?CnT;U_uKl6A^o
U"V7Zx%am2^d8061H9,9.CZE-#%FTvqoes4Y7YH==j/VCYXMbtbl9$[]YhwN:/W'x
U"l^5t<PdwYsMFF;+_#Nd5LOPSgR7k1w\7QO>&Q+Nof'F,I&']hood;HGQ['nH4<n
U"i=8$pYf+6]W_0B<1Ixe=-HK9mZ1i4s&F\^qkjX#JovY-Ig$Q;&XI9#A6kw<a<j-
U"_GlAQj5aw)pNWLVc)\XQW[<ODS%CZAph>-Hm1:=gG-8)$mZlp%j.&7CsRgfgi$J
U"cIKRze:2JT-FKfL8<(7sxn#&WqprB1Z/'&v^kVA1-8=5C[4:wE3+36sx,1/P'Z(
U"<w_l$bbc^8E0=_PTqP0.ja*]:p?KACYeAS5EFSQ^Y:-ssSA47jdalkC8AyCNFK3
U"Hc7X(OD?WKKJi,AuOVH'Q3+/ktqY7NobH8b2+*lKpT3GiM?N[)1C,i.f&3VR:C&
U"C)j[osf;^SxCnerFv3N0[Mn&2X6MkQg)HJ+PvR(Hhf&]d]*MZ$o[et^X,9D'EE%
U"K\?t9;)snQfKM79PL*#/R%o<uEsR]:5cOv?R+V;1%$l9fb2)2RSn;2Hh9#RfA/n
U"56ooq5>doY)64F*nS>H?Vy35XWU:Ye)v\5#0=/M+fc;X3[tN;]-yDMp.$bFLRGE
U".YD+1iz>VQ<BhCJp=X%:;%JQorH%S4)XJG3)BqY_W_Q;6Z*M##?U_^0CvWm,^%k
U";\<wl'6,ZhY'$B;_6%9feMxGn4Tu[0dSW)wwSPo+/%xgaAV]NS(+=^kHq+;^^V3
U">*n8xP;ZT_QGFp4F<W[cpAL,>=cWX#BB#0iQvyZAcSqtc#/3hMv3aq'4SGsNk+U
U"7j:Z//lM9_c3.z<5T02L+7\#YFsLMW3,z($bW?A_1hGhF0X61AXw6=p'PC(wI>R
U"5bOE(*I(k_Q=:,Ra.7k#oNG'.$4:&S8ng>/zLMQifzO,l+yHvj/cGM#i';wfhwj
U"cPh^V#*c8nW>B,?2*b<YU'K8bBVfYApG>y+daP04Pby-BN*.bSg7a*u,O*aYdlK
U">B\':s*KF%fhImKd*WU6ON6Kn<Yx)&uL+j*-:>3I;,b#vqYA;qv?=4F>KQ:bqa2
U"qj?nh6e#j$6z44Hhwa[GG/Tg/<X].N6-bO,^w0B6U)d*L3=,WInp[4sdSC;jDjH
U"?$63u4zZ;o6H_XKeLM,;'6h9,8TETYMrO:Z\]ic.+D<lf8fjXTbgD,d^zx<2K=_
U"OaP0/r:=8>Slnnev96V.'0&7jj%7XSO_65rBvA6A]_k*7>R2gKmW\UJ#J#%y+T?
U"nYrbCp5-*7m-1$0JkA:]HxR;aXs]Vj21[<8/n6?\b-$FqD'TrhcaKT*OkxU$3ni
U"91q4m)S>vh45tK9[,9Uwc1L'+^n\k>v3CdK3<%cFrIlqMY%oP<WOuQ3M'ue3a6J
U"3=&Y'*a02hKndI]O)w'Dolv16U+/#HwMqeGv2>'9feo;5yjmBC2JWWM[lb/%u^'
U"Afg5jmvLKjOaGx$,VsMUW$0R%IM(Wj4]hn/n1vH&gS=W\r6.p_?%2[=KVEi-fKx
U"HWi44V,;=imn&K/MF5/-O?k7YOR8?/S[:enbKI[BVE13*wqGRSkx$[b,fN=O6yo
U"YlALAQS9x-va'**x)*x<YUWT)\Kh*pS=T52Nja%TA%9/r=\Kp)D,ip%0>sRp-8e
U",KL:\upUkJ,ccQo7m-ppHMM=./^aG8[p^$IaW%d+4kh6u7:kM5uWvzo4dc2IN5o
U"FRP.sPjB1Qm;x.bhUpRjk*;aXc3AYhNnRk7pL4G0_(5Ld,]-p^j6Z9VFHTIE0Vo
U";;=tBD3,]d<'n3r)MngccatXq[mP=<Mwru>CEm<QI9iLrH<KZB55(#T_B:I/><M
U"RiD34>L7qg995I-aUmmMSn#'2va[8\1pk1ubTgQkK(_mF.BbHd[S])gS.71ygO7
U"+'huSobl]$=25&>krdC^)j3B\uQQDd(L^Z,D'39s,,I^]$NIj:T=SAg\5*j2U;Z
U";\J^si.nb'_B7v-nL%?P1%O?ZD*a]lWdDr;57_5Se)grpA)nP\lQE*/)sM((\.X
U"Y,m[cqn0\3#WfuQ$o>#O_Ty8\p+*iGel-n3Ls'C6?9,[uNsD/<ltdQWu8U8W,IY
U"^Jxz-ZJjRx,ypg'*%LCY_jiL7$#A/LdqaFsMHLF0GV'YADSiTkN'(/_N?xVkU+4
U"M31-_pk/28vQLt[&b,9_QB_(w)lA*?<:(P#N:gtEP6PkXuGexjd=[r)=9bBSxPO
U"IH=hAIg3saUwU0nW,os)t[?5G<lO%o30<3),F^SLxg/ZLpaZmmn)sYk_Y\xM6]g
U"8qBNJ1r,nltL3;Zc;Kvr1CeO-1BEVmm^sy$QW(*at3i0oY0;M1Jh,AkO^KTq9dS
U"#-It(G/'jE(-x4zGy][H9:EuEE3IJ0KEZeBtTZGuVs,pUx(#%Rjnk#=z4NVWVNf
END SUB
SUB V4
U"tZ2J$Jo1LedI?%:jFJT%30=s,^T=Y$EVeCX0<Zng)Ibt&VXW$[Y7_e4FQ4bb)6I
U"gp2Z70SJ%'Ii&tU.sr]St6Jq+RZU=$eU<3;JNPGm;\N18k6JOY(LaH*Or9e8[/V
U"^p(*ov's>K7<x^SK(FpIt7p*8D,3A*[N$pl&bW0<Zu5XCr2WLDu:TT:lkB_?oQ)
U"[TrQCeGg9cdC7#LBBS1\lk&&s%ZO_QADDK<xd].#:A5ddTsr_O+WMF$DM\SV=iv
U"PeF$apQDKgzyFA9P\:XP<%AZ./k5k4^\CTCf.EeazZC$Cdof?FCcP_dd#RNCZdd
U"LG*Lri+Ev+Zw<CIFvRA5#P\P\L#dl&IO,&:%,LP$9PP<<ujPJjuc:NCljG9\k3^
U"71)I?J$^^-b3A+^^x:B.GSuh%g%6('nyLSn3&J]P&]W,z#d/z,zl+lNPlERZldU
U"<VRZP\.R0c^sfnW>RedYRCnllcNlNtb?SJ-_SfHl4RwUk7%+&t3.?SZ^n%we3P:
U"R+4PO\=\P'yl+.deP\nd&4OR5J>:M+\XPRG9:RMEvRJ$'3q&yJapQMgn[o;d_Ik
U"*nM;va6vZBgNy1d+x:\zP\,i%a4.pQ*F+f.Q*H0+keBG3RvepB6R^OQ4i4?P,ek
U"ke>^5Mb4>/IFP>%COFOdL\%&._(*#'K(D6dMJ(t'P*8+*u423wS1:8nuMO((K'D
U"4:7\Pd\qyj(Ms[(OO=t+F#H.FPduFdNFXPR_dHc_n4Wls3HZ537h[B2P<5Re7b4
U"#'4,jPNzdiNldCNFd;gt48Ei^b^PN1D%zjE.AuxY,(N-9%zwStzV%?=r&6vMx,X
U"JM(,XNqG_NWEEy$doN#.1J$P>3_zFO./roDLP*v0%p#%O'uOO'MlOg3diP::j$#
U"[D,pCN-S$_\Qgljs#&/#X*#\%#\+ndk/3gx8+'pB+(eW5'RXnn:xlc1/^%c>6d1
U"V+*XxpC,&ejAN%Pr,R\SrjdCj?^cBnEnAY:Z6+/inlAN[K?4F9)&^Ols$.nNl1^
U"dD+,.P,lN?)nt7,32ta>683UwmY/%[&On&?.\<Fd?ok41%VY(&W7f=4wWuU%WQr
U"%m%(Yk%NYlncl.ZcnndMl9t'o&B(MiW+x7B*wb(PxV',PH,%L2r%\$/IuxACzzL
U"#M$%%MlrD.w&Nup(%)9%%%%-%:')0HD%U(h:['%%\%(%%/%%%%w%jfir#jSy'(y
U"Dxr,^LU5[b\wwZ<U1C1xX2z:z*QEO::y;4H*?f[sWn6>#e%dX-^9>Y6e=<%Ji9j
U"thjE5p\>?>\X#=-S9Zd0J3+I%UHc$Dni%6l/BeZ?hE6PODaFXGTt,4FTGy?3kdB
U"[DlMh[2h<isB$WUw.(?tuyE(UkzPMf^YO8;fF?4\wb:AdL:K;BKr)n7Zo?#l6I2
U"r6ePj.m)CNuY4i8;sO36dN9A-#%jz5#D$]qwMn$N.3U&,>087PDoLNDOU0+Z;ji
U"8q&3W_9+7'k%8O[od-ZAR&UU8]Ns]v?[GWPY>H,C_FK9$r\1cN4<FGQ:^0>bZ5z
U"\i_ix>3wJkT14RGdIH1B9.HtnkV<B$aPm\Z00c-B[T#DRwrDKJ>ItU6)Or8(sxX
U"^]hqGW#b181wxiy#>)WREib#=WZnR3')8kR=Ln2n+8KD3r%t=,2A>SE7?yP_JzY
U"6Qq/Qw*[Br3:M46e8W;oJWRifSb.]lgl:A\XNTM8<WEgUf8X#stoKmik.*P0>(#
U"tM+q,v:OMCV=n;Ej)BI$?TD+lY?-3?Gh5#VIi%lO,8H0t,Hmv]jVT+sl-Td.BEg
U"5sVhQvVZbC>oV[+]WK'fy?1(SnBbFbrAH3<3A\YRN;o$I_UweR/>fQkNRrZ0hUf
U"Y>1gvkge3uT(+^XKc+iGd?ePc]'D4aq=T*e.up%&'9%%9%%%I-%8e%0HhM&m'#8
U".%%vh%%%.%%%%%%%%%&%%E%%%%%%%%%xuqf%ySgf%xup&%'9%9%%%%-d%E&oXG#
U"Ni.Lq5%=%.:%%%.%%%%%%%%%&%E%%%%g%8%%x%uqfy%Sify%up&'%9%9%%%%-%+
U":)0H%DU(h%:'%%'\(%%%/%%%%%%%%%&%E%R%%.H%%%wj%firj.Sy'y%up*+%%%%
U"%%(%(%&u%%%*kJ%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=216AND 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
