'===========================================================================
' Subject: FROG CATCHERS                      Date: 08-24-98 (17:26)       
'  Author: Ryan Lloyd & Peter Lloyd           Code: QB, QBasic, PDS        
'  Origin: lloyd-1@worldnet.att.net         Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FROGCHTS.ZIP",4^6:Z&=26714:?STRING$(50,177);
U"%upUU%up()%9%%%I-%U%o^Iu[3p3J%.%%j&%%%-%%%%fr%rtSydnqLF'*2'VU1T
U"Zk9]cF:KQt>Q9em:1419qmj]B,eL(XcnnN$h#r6c$ogOJxx.CyN-q]&>FN-r5Ah
U"jwXQ]'-=r\TUUZ%YV#--M3_>ttpj&eF'v<I?,YrVl%BB+$ee6A'_\>>)uI;mGOo
U"f#cf/gb9'YSo9Yfh%(up(%)9%%%%-%^,'[ItX'nF,#%%%j%&%%.%%%%f%uuqj%S
U"ynq>tF:.AOU1T'Z-^;HW>Ba-rEJLDv?%6KccQcA%2:p$YN.rOE]'%Vq<S8=KuGB
U"=UdF$pnq>1_CbM,IVdgaSOhNoIhK>R&7YY0,c#Q\\ZTSsI[EmeH&GeL%Lup(%)9
U"%%#%-%bb(TIqEmC3b#%%%j%&%%.%%%%f%ywjj%Synq)<^v/';U5idH)NoTPh]I#
U"$FU.*wG*4$IZ/G[KkxTnP;of2jsLb'gNbT,*3J#CF(m*#H94&KKfg+h94iucn?A
U"T<:1GY41lrf'=Bf,KM7EDlHSXoH+GUvPJ%IN_-pK:;[1l3Cn-&%PK8)umhXcwdl
U"%hN/EfD%p,E_NPRpN-e:CeK'SIgraX[:-,l]2u%p()9%%%%-g%>GhIIxu4(QV%%
U"(%j&%%%.%%%%gfh%pWSy#nqz]9F6=EL-T,9%m&^W6c>EaAu/TsSY9)\fgqc#=O7
U":DpcmYh03hGcEX?)(a_Vb?4--/,WE;7c77=d?ao/G<<dhnXjHW)?E+XBi],V<af
U"UotE*].O?lLh'&,i]SGH5&?a1jw>)\FZYkO1Oi;6%p<?$CSMdYKHm'Icez'aduj
U"5&-up(%)9%%#%-%9,&^IRKk%H^%%%%_%,%%.%%%%g%glzs%Synq*f$n3'<E1j3p
U"dA,\]5au-;vT;&Y80GB.PLj5UF2UkIsE[#Z2P:2)-X-OB+M/qF+mZ[DVhl.m%3Q
U"+F]'q%cZ4z0.0yGc6[RC;$;__Vi,]j=;28e:McFaQnQT(M4>YlO*=200QuDC8y\
U"tMT1oUa%C#\/H7uMpn$bcWt:'*J&Mic4opCj<,*1&u%p()9%%%%-d%oMJ^Ippb&
U">p%%(%j&%%%/%%%%gqx%fsiS[ynqtrT+#91UT#&JR-R+IY+_ZK?5cZAYk<c2ZYY
U"k%8)/jCjr/Q)SqEQC]WgWT>e:/j:<C,\+IA9*uUI)%6i8'C0q0PI)VSO&Q%up%(
U")9%%%%-%<ILJI9+vg5%7%%%&j&%%%-%%%%gqzj%Synqft#&#K9UT#(&R-('pM=y
U"%%%up%()9%%%%-%<(EEIcZA8%&$%%%&j&%%%.%%%%gwnh%pSyngq<_:%2hF1:hx
U"=-^bI%,C61/c:&Ib/LBoZ%V9ku+67iVhhmk_huXtNSl$j<H(+]5,9QheuJxX?$#
U"S[mV%qKFe1Uuz8X,&bQWf<j0)UkgMF351jltEa[tAF^77i+RsD>oKxD<4L1V_=%
U"_2:;zvu,o1pickmA4Ecn:s3(95;c=Z9_2t=6::q0B'm,up%()9%%%%-%;S_NIgg
U"QIh'%%%%&j&%%%.%%%%hfgn%sSyn.qz[V+3;U5L)\Z:Cwsf]l%5Q(8HRdO=?79(
U"]qM74SfeAlnjBHW$t#tbMHHt:Piw5mo$xQL_yCG9,YbYek(OQ)a3;RDR4+R/Z:Z
U"e3#fUY;A(=KU2)zo%0EOAk0L5eEKBU?[=mhZzL2Pt9?6LDh]B1w]WjJI2J\Cd9:
U"ImRZ_lal[M?FEF'H-I2QgP2Zks.*DjSHr-5$?Ja2OGH)pvfXjnUs>2%4up(%)9%
U"%%%-%2FxLI$dSZ>=#%%%j%&%%-%%%%h%fyyS#ynq46E*<j[V-*Id</iP\52<WAQ
U">Q/^13vuIKP3OQ8afA*:X7Nqe[f<l>(^#;DL7bu(pdwr8g*H*fvW1tJU,d+]hv[
U"qHC&Gpb<Odoh?L?Te)xuAV.PZ/wUy0[V.>,iSQx;XmU>wI1GTgtSZG3KOV=BRHi
U"NS*mg5qq/zFi6.0T9qz9>B1J]$QIZ0'Kn*=>+WIW+7?T/LWMCv)I%IQ(n'Fy5%?
U"2AQ-.SY9Y)K>,jUr%HEDD9SjV?1+J)DK&u%p()9%%%%-j%]wEXIPf+%Xc%%(%q&
U"%%%-%%%%hmf%wSrxXptT+H#9Uj/#&R-W<NUOd&)_r.uFoE^-Qz9^i_)Z&)vYH[9
U"wEo.D>/60;KUr=Tn>54Ib1171Ukd*UG%u%p()9%%%%-j%YwE.I/X_)LM%%(%j&%
U"%%-%%%%hmf%wSynpqLI:+.<U1[*uzq&-'BS'k?oG;lIb/.>EZ;dO^=dU4tX/6Al
U"f(8Mcgi6t^o#6vBe>]8$*_;9\01;g$Ezc?Ti_So.)(6m95^.(b$w,Osd/O5*hiO
U"F&Pu(_iV,e&My&HE.g>D8h;gifP(HWV0of*2Ntcku7tb-rMTu%p()9%%%%-s%&*
U"SXI]Vs&Yq%%(%q&%%%.%%%%hmf%wWSrmxptT>+#9UDj#&Rj-<NUAO&)_BruFo.E
U"-Qz09i_)*Z)vY%H9wE'oD>E&S==U0=5Y>/_%u57s6).qg1QV,Qg1)#,jF[\\tFM
U"&C%up%()9%%%%-%>x*SI=,X2M&\%%%&j&%%%.%%%%hmfw%WSyn:qLGf%3'F1d*u
U"k)g\bG1=NPamWx;UG7*4YjLr;P9-RELFfiMTHrl$KdTks0Cha9XtCfY[)&Tpe0b
U"('94^6<odYSF-=N+\Iu1_qkLL?>3*,d[+6+;Jjb-U1O/nBbQ8bFM*1s(+1a^FZ/
U"9rWyaZ?W+gdELuWa[g=[x9h?n2[]E5DgBH'8'v*up%()9%%%%-%<tcZIbz)d5&B
U"%%%&j&%%%/%%%%htkk%jjSyInqL_.b3OEm1kd;ZC[KcM*E0A]i1C9VZiQ%AMO7.
U"dg?-s=vYS\DO2^0)T'eFMI3nW*A:q+$By7F:nn3GOVYrtGS_)l,0.]3g2=LE>u.
U"qQX<h,(O=,HaZF,e3r'm$,uU$wWg4J.xu&sOhu07>9%2up(%)9%%%%-%;,#tIy<
U"kDZo#%%%q%&%%-%%%%h(t(yS[rxptoTy#91Uj#&SR-<N'c(qX[>=U=%==U*+>)-
U"W8o&)=B3M;DS/v%Q_7qUp\qNg01BjZuK=u7w(W3?OU0DON[92UL+=Yc(%%up(%)
U"9%%%%-%:b#tIbVqCGM#%%%j%&%%-%%%%h(t(yS[ynq.\^$;;%U1)j&r[22?PUV_
U":*6Y%T2Mhp,^\ewZ\?OGq%eXHlNeDTNe=N'8MFm0d(El.JT)Mhp9WB<U<he05c)
U"290eX(7MV)pe9kWDyX$=oq-g#PYZtn;;8Iq]z=,xs8h,2n\o48&tgC]s^()Pq=F
U"M4-0T#C\L%%up(%)9%%%%-%6an\I5Pl]rY#%%%j%&%%-%%%%k%nwjS#ynqLcG*6
U"<%U-*uhtppF%7-r,VLYE_j&+whW;V<%qYS;[=dTXcDm^V-?0p14K?-nBK'Gl33C
U">b>h*t+xMhN*kmxOAM^[\2_7UE:Y-Vd[8V;xgUC_,V(hoj$tTC'f>Jt&rsSNNWD
U"mE?K+1]\7z_lHcQ\U_XYD51+;?\+a0c%d:[H]DWK%%up(%)9%%%%-%AGsdIr57L
U"Gt#%%%q%&%%-%%%%k%wtlS[rxptoTy#91Uj#&SR-<N%7&(57E]x>G_>E+.+yD5I
U"F5VPm&GA9)Os++%uQe8<s^Ip%JVqPC=_%+9adUDfACSj4uuZU#-x-Z#%s%D%'%u
U"p%()9%%%%-%7FaeIG+G(+&D%%%&j&%%%-%%%%kwtl%Synq)d^b3AOU-T#PPh2'[
U"rnA#=AaR4,iqK0kxxIbDi6Kck^fD3.>tANL(eQ[dZ(EFv%7qI/uJ87-fMa&iqMn
U"l=%6l[5p-KpX5+Dhk,=>[IBlB/tqjXl,rhR.0.a&TxrmpXduUD>^Ogb*(Lh(dY%
U"n3%&up(%)9%%[%-%c#m4Jzin?j8#_%%m%o&%1%%%%k%wtlh%myxS[gfxfkLdETU
U"]aiNkn\F9AI_8J#GLGxitEIPq#c=TY]f.k?7ERdJci*iLmqeqh1:-nVJh(yA?F%
U"Q,c]p_?RbI6(n+/z\TgzZsgYrX?YX4IW70#0[_=jBI'(EFSmD*.-\RUoNYeK]Ga
U"$0Et$=<^7EB#XbW_TJk_n&enA:GQ0bI-2\(]#+JZMT;'m3.dkU<WFDpOIk6+^1a
U"E40FzK.?>NQlRMrf:cMq9$&4BSvHO1lLa5:(S^c75gxM8aS?(oYZp+YK^rq?6:7
U"[<<\c>pW9ytuVFAN4<P#;kHDRUXAU0;.3,0K$Yj=Z?^v0\ZLY1r7FW(eML&<h]4
U"L\CA4fm3a't1\QA9=r25X\q(/xl8_Qh5IDqJJtkCKY,cH\^Emc7cfo7fatJekqq
U"Nnz\ZctdP%02-\Px\FTlbeC'hZ0hB/:$G%1+1qr(/0>Qe\F\J'h.,T8YR=fAKIC
U"L8T+fS1z%[lgHTObuG)CA/1g(70C=KAFhfhd>\/3Wkj-bDUrG.;B1c*7Ef=>41a
U"nN4E\unp/tZg]eY7BBwBDn^t^sS4%pKb2Z5jh%Qv.(XGa)*s.y=ST8sDq7VYL&b
U":/.-W7?0<4o*i1\6imu&+'?(Zn[s/$jEDQc%dA#7GtD;N7LnXK,^0MoB2&?Kv3a
U".]gu:*3#:g&K+coQnImf]&rbE:f4PVKwBVi3K7AMVuK7iJRsP[jOV:FnhYk2NZ7
U"2nrf1CXVku,^aR_7>YgKD=Oe0/\*z=AROecVkRHE[e25,%:2$5QEfDa^to7(#\b
U"-w[ifhd[]VjWOTCsZEWp[X&3H_o.jYd6gH5\YiF3<Y36t\C_*Ui<u8=74P<bMEj
U".*(Y)LIGg[B8id'HJQ%q\>wM?,OO)UD-3](Lnq(crUOYILBdsl[=YshBcAw.Mlk
U"EJ>_r]HidLOe&>&#eY6X(I#,kUos,A]<^.,lse?_\ltpvwFkAo;Xfp#5qYCrHN>
U"Q=]HZ_J=la(cINh1OopdlD,mCIRvgK]Vp/f8EK3$q+A\6AMnQ7BQaL*\P(3)'P#
U",MC67N+74eqZ\>;$)I##sA,z9u6r9CYV-s'YpCSvj7QDuJ:r+Na&A,Ls0-vUA.*
U"'*bp,\Z[&BfyfHNBA]Mw?-OOc-[KuaqDCUv<\x=Hbn]_#SS91D#sr\kzA3A'Z/>
U"#d$MvV/sLPV.K\7\?E7BfM&W;CB[ofAXxOG61,,181,0EmUp54DBK/\Hk[7lbh6
U"0gU##,c\]Gkca<m$4UB\:t9;E-D(0A0v:sd$>\QkK6UaK2vWYDh-mW[auTHRq>Z
U"jf[N4=s1QKeeYbE,Zt&FAw4Wi?7kwr9-,6rQjqNB:5wOm,+u$,P.n24'(rU73+v
U"5mGf#=7Oh6?NoVNXZs<:.f'F=2kWIojKQ%AU$Z/]507&<]UA/_jFM>/v1)b)H6'
U"n>K%Zd3GV[k#wW83_o+_elhIO7kyEj1)i>i#r8$8#b5Q27XRKwE[Lgi(?,qFKRf
U"AmVTO<prLxG4GW:Zoun2?wTV&Vv=N^G=?X??'B+%,Yn3=aNae5h5-VF?tjVBXa/
U">rF4Hfd-8%Un0&F-UE?:YOh-0-Z%B7o0->:.XhzqKvOJI.9Ksp,N,8aTrEvtJ-s
U")tA6aMnSO,JI=P#]fNGJ(aiV.x3P'L?4G;_DG.i'ahU9/RtD5$WFq$=34s%uNvw
U"uNckxYGGu_-Ms0aE2sWDtl4#&e<qwPzZuQV0][D*l89g['<XYkzYcP)qJQQy<Fj
U"NWOdzPy'PqcE(J\Q&/IjZZB].yy<USz&q8)5Nb,JD]Xkwrp5\7bI6&R)AAjIj3[
U"Bjokx#,)E[Ro&:W/a&7cmF'je]_Dgm_NR#9%&B*ObM)7+#hTEhfuRiVt4:S\.ok
U"z[:.^Lzg7t+9)FFeJ)R=KaZp*<?UERI-L_QaK^ui4cE$R+5CuN.,/;$61*wT6gl
U"QCoVOB>YF3$f;jhYRPM3(oYUASy1TNuUdE]Rb'te]tk5f4$O,(_OY=tGOvfp/Ae
U"gQI<9t;oZ3NB(rQ=/ah/weS%6_I)5gg%-qI'DbJE_]]5mC75mo8%eEV6[mI'B#b
U"5mB1-s4-,stNED_i-s:7PmC4-mB-cmD5aHhp&PE7Xe.=GI8,('RA'&RW)+Bt(e/
U"A/GU_R-1gR:ek#E%Si&#I=irP3+?W:j7jLc20h>1L5%SVP7ugq:gHF/M(y%P5#T
U"28N^?XY+UZ/K%'YG8/Xmq59&ulu=_'%f,n[U*s'UV2T48SeWdmVlTNoa+N'mEFb
U"oS>0Tiuxgnwz^HL9.Tf*dg1dhi'mnL;V9HDuNQv];1Q9aIiLeY(UGGC;1V)CkS+
U"%nSo94;Gvo-29n)OuUt[6(T'NO..he70?Yi/kqY8>fD>W1SPmF4&[Ci1)6#lUOD
U"E^G#D.coLPRsOijnU\GhYJ/.5jhB_Rf$n]-wtC'cvZ1o*x9lroph>>2_JiIbHRU
U"n2)b(u,CU<F8\tj%4dv[(cewaMcAKMC/q<ON<E#ITm$Tj-o:lL(\<V%XlYj,*-0
U"7g5&$uH8,2eNqkkvUcvv,kU>pg-f)_r/ksr[YTf':8CiU:ah4=U#Ux8'U2IKPzC
U"/XXn$?6lY(04*DYN1u0+di4MU=LPnT9x>6+JVA_qF:jp45>TXT&+.GMIMKC4*G1
U"um&,&<ping0r6N#=A)P%P=GwkcD(V>=(;ug^][23)1;0FGQeGaeVV$]NeBIHQX%
U")8ohCU%lgg-OeW$&Qh6WdP5.1wE1-6ib[YeVeWJL.b#[)OI7.;r/fc:ln1;QmsY
U"n+VamGi^-%BaB*m>DPcK>3hkD_O$24i:p7f/+wyV0;uXBD8F+FLovp,nD:[+Cg-
U"b&RI\U%B+sfEL:mHjYma7e\QevB'[?r2L3^)x/W1'c?LvQH]E<TC%7\7iRVOJ0Z
U"3sSgPtr)KU_eS__$qGaKr]-QL;=fq^jLXut<^Q4pF>g:$n>v7X?Fhij&3N,0O>I
U")q=LX[WkCUaH1kFc#h?xH1&5jQ]5AqZdy%);2]5e;10e%pZrm?Gm0?cEl2k\:d?
U"cO\2&\0#VB[#CI'IKR:x^EApc'06ffYgk5vnKAQdrdgrsDf$Z0?eeYRPxiZ?m44
U"0:D3sQx]&]A.4\w$XP:N5(8pj:2kUwU('7Rs6oaOooG)6L:&4Y/V<^IW;.FieN2
U"zuqdhmnl%l&)9+sWb>lcu?5%ljFTb4+Qox'mX$Dy^rNkNv^t'TW3*u8mqjhkvF4
U"M$buXUX0H9q<+)8NOvLHPhtzQYFd<[tYzf;F7Our'G]u;czNakI,fFB-=S#B*'f
U"Z,1SG]o'An&tB-O^O5Ki4,8UHp',Y0.I;zi'knU0-I;fM*?NB&(P,<-,tq>u*81
U"$C-#<j8t[le':Wdz*SC:+45Lx#?&624)0Py'oIsAMdDjw5;2sJ8$n0M+zl=)fPF
U"O[>bF:#%LD2Q)(za3#vgJRIx5A?bVxj;uqjf8cL5.]^J4f2S]WMkkm+hlCJu%pl
U"MfLQQy(\:RIv-s;oDq:\KxQ=c*tl0Z6SCl.\(+18Mb.VhcuRTK#l?Vl/Q=tD)>'
U"<ooMHEiEa*c*wyNXao19qjbDS%hF<V:w2<.2:fu&gFtw.c0F['az%4OArsQ9J7S
U"w;,*#X<*ivlhPL%1#UJY)s^2\6_1Yo=d0R&e)Zf&D'M9Vp'Cj\C[pP7jhf-8Z/2
U"O-;H-Q5NG.aCsY[DMnbxR9.17:L&f,Sfg=9wS9'+RnKclt0kU&8UE]+7q:nfi5I
U"b)Gy5oIgG7nG>i*5->p:N$_[t;tiqpu(SKK)+>,dSVOYUZRuv]bTuF2917>h+B>
U"hB]>h#>7h8>hMl;I$+1B#RZ<vNLG'63D]%(\O]T'ZTFpf$0Ijr:S#dwHCK-v:$q
U"u;+uTG*M7\wk87DNzZj'&yi4>sjn_CGL<$JV+$V1_$V_D$V_$JV[$V1K$V+2$V^
U"mesr2WU=LNYfe]:kUc\EzMMN3IopELtQgAKoQA_i4U&$SvL<mTW[fvVZl^-)G8P
U"j3f8pK?#4-dFqiY51s0v7'TF<I'Al7+lAD't#YX,aI>SiQ4uj[PhXpW(pID$4B;
U"<J(NAtBUCdZqc]f2rz=4sHRHV6XXkDP,7t;t(Ro0:QJlb3em7&L<Ja0Bqb9r-/C
U"\9cS4]suMd7VSzU(%c()+u*pQ/0e3Pq:'UyPu8LQ\\m4]ILbb,STNp9MTCZz,VE
U"t-#mW59vo$;y:o$_lOcr8f\m1dwsK+I>wUVpYwl3616WK32(:rq.Yj38_FZJB7=
U"Epm4P#)8AR7/y,ok<axRa7u>+C$v^wg>A:7$3QB\0q/Gld(?Dh4jPwC+P>HRy3-
U"By4K1Z*.Y>#O;XAj#n[Y]tAG<L[LRrcTr#5qX0_^),x3[q,a_.'SmMh1M9kxx9[
U"e<nh:e[d'>?%$/c5ArbAT2Q_>4b\>[p]9iPC-E2tbiuZ<nl7F6.0L*D-LNUAj2>
U"mfB-+Gk#2j?K(VQ0wa079,KX<UnbNsAPLK-:G-,PFm;j^4n&fMLIeuuc/RWc=;]
U")k8>b\6X,WJfC,UnXwudJwhC6,&)UH><FMscdu5'Q\dThuLSMbG7cvNR=6Qe;qZ
U"CAdc(<*4WQu7tl4o[=pYq.c8I?-rndaMA$_j&/6wOGe\GF=b[p<H?g&9Z?ivAW?
U"]<H]Q<$7byRg7b%\L]p$I1u1:<o%bMH:m3SI;zk[wt,luqZXq.Wh\'.yM[d>5.p
U"/Z.v/K#,k2,][0;JWESE;ODCb/4nPqN_&Bil15;hc*CcE2dLgT>jCSg?anv,:5>
U".'a+-s6_yhZ*GZJ;<e'R\j)+/MVC+PYX8\?=Wkd#.x9kA:DMmmn.jUe)JmKJ6\H
U"DlxwYcp1Np(oUrnr#%Jd+$E4TVgh?J4kW36>CDIGn'=S+wi/Iq\E)%i)Z-pWChF
U"B56<\[:pAr*$2?HG2a;P$U#=M(qaz_GVdc$y#<6;fPqQ?6&rBdpo+ZVRL+0)a>x
U"^GI\E1RB]QSO&gdmdNhDP[Iher4rg/S3-LS.PgaI^zY^:W.gh9)e&Resqe)s4>0
U"7i*pQ4RD%EFO\TzE++*aPQ4me/4P_:dY14R[/I*pdrRb(MQ;wN-CSs&2<K>yPm*
U"r(2\]+hC.8$Aa:^/p)]B&TTY%X/9.%1%nw<=f:N.cn.+Vv]f]Lj*b']z%O#l#78
U",bU\</Q)0o[Pe0clDs7-+=St$A[6#:a*IoCQa0(\&WkIN3eu%q,vBX8]K.J&<&r
U"acwd8N[YOOQS]M7>&=&j59r)]51fiBjLi$NT[h-iCYY$E\Q-MBHaN2[_%z%A8g)
U"A0ILoOf:e1iKN_hfLoA9+In]s%9L<CpI6kHA:=t/,pgTDrUSD:WC&I]mrs8W[:w
U"Ogo8FrsIw0B\4lfjl#&Vppoo]u\JNB9r>fZo#V]',rfn4iq%CCqN3(>Ve&gSqPm
U")/?4<t09N/\(]q:uOp,1qwltdT_p$pO5;$(^&P>Uyftw*BP3Rcb:A/UZ%d?EyiS
U"04YiQS<+>*I%?6stF3%E/+Bsl(RfB57fc8cd(FOUL18<^?Rs*4IMCnC-;nw*2hH
U"474MZ2#JV)pEo<Xx\%E-choSD=os+.:o\udKkh%JoZ/pqk390&SXM?sJUZeC\Ir
U"[4_2*a=,YIu,_MA7]K9n2+6c$mINfUeMrPwxUZ:]k,WeAGQ2B$J/Gt7bc(>\5]C
U"N8BB.;Yv0+9H2_%k[bQ[J(*2=?9=lu0[NRjENNZEM4;q>+um[PK7+HJWGMv?5AS
U"tQ3?3?h,X&61KvjFGKLB-Ds,PV:eM&?7i&>=Bu/.9sZ7d-Zq%MxJ5mLr2F,Wph$
U"\'Ngl0EA,aho-i7x_W'ql]cd:n$+.fKL-.Q?8_*Imxv;dI-$v4Vrd<d[9i]E9ND
U"]5Mv(c?xFw[6.u.Fbz*5u;c[Okb:abC1ly9d0dZTpNOX#Z%g^ET=fDA,%J/,TAY
U"x/vSQMVfsOFqW/gl\ic=A17+8:P$K.q(>Y)nCh'>d;k5eJ_sSsz33rSe5kch:P$
U"\omnC9xXE/ug:%u\/pv+)>hroYT5bEY(hPrED^o^EixwJRcQt+\+cn,Drti=HCa
U"D($49)uSskgWJ:]Y(_p#r$\wOTDbz'N<oD:[&XN>HfpwLcW^4.*RG$\IC0GvTDh
U"9C?Aq.LjgODiTZA>CDZ5H1+i+B5TGkJxF.<)b1N#x9Rh$Q[181*33,=ajt0F_]e
U"lBmIC-)Wr4)j;+R%9&CV1r<%n7+=')Wc])*SSXx[P\VOQu771vwaCs4#liIXZMp
U"Xp&DQ0uYt0vZ.tKa%^Oh,e<s1PO,p<WvncjAQ.fkje50j&1BXKGUqkjIksu0h]<
U"t=m2t66GWMJ1&9m(ZAI^CE]/JR-4M8t2[:Bj,x*Y/Rh)JXDqJ7140Ra;+\X2=KM
U"xeK[29#JxaCoM3g'nr(-^cruJ.P2<'tF?5R3?nIK,llqO[(?ahi,WDkBo06:#oZ
U"6w7vnDDFFIhyihGh^q3iRQ/rQ&:r^hp5v*/Cyv_gul9(A9ABAQSvtJ./B:NtwxG
U"oG]Hd-qkE(3YJcQh5:rgBLF(CQMnEAn:]/J8>PuEcTX1]v0n*5EUdv(5a+k8s*c
U"5Ed5j(0+Zk6QiA5Ed^E(4+Qayps4BV0r$Z\Z$l>+FlyPP7v$E/22m+awrAK_Qt[
U"^4Tbs8cFB/MJJCD--4hieIE/q4/v^d=T17KO\avyYm7F:R2hS<NuBUJErg_+pj_
U"M^d6xA98[,tW[G]scNHl2b3DVzYDTR^EkhRJ6n8+$ADx6]ff)nP%TC,,wF73&RK
U"F=4UeA[c,s'Limetq*<o)GriLRwDle&;x7<r3vzBmg0(LzF/1B\Eh;D9,Y3?UJx
U"U\vF9cL7;9%f+PwMZY0'Tn/ow]/&IcQ0OOzN.x9%s.Z,Q<W[:RK+R?zxmRC1'P$
U"lGsLM.o\N4d&?_u)N4L??h>cst[2o+Uw-[>I\eiu4vB,MPf8-b)Pr>5Ux<XX\pr
U"VeMg:e?DcrOV'\8N/*\fgXw:lg#<>T3u^K>YC$.7[sx-FOO'1B0b'5<uWGE-^-y
U"o)$T.gPS*j'#XVkP)g^oAS8eJ'p:0'.q2pvrGN2/BrS-6gXnf,\_Gq\*nbKL;SY
U"wd?56\D0Rkt.::O*>&3':RXLgzu<&WS7?s<HR8K1ud+?[qtI*$j9[B+<9G6:2f(
U"E<(e3Akw]xkX/eYLf&xeX^:%).-5%GP;&c/YkT+B:i83FnM88und21j4f>;+mA2
U"&R;*n:Sj]7yrgAC3J3al'NAdPZC+iriT1aBq'19;bWEbZtOYOi611IJ2OjFB7Ch
U".*$7OW,lst3+5LeClsviJOtf4Xw,G&RF.R4'ayl$_xZyf2q]xTbrVJ2a/p/en7+
U"IAT$O.SmH3I']M2,M_+(^DQAfGeHK+O7>=U/-D[($>&T-yZU,X3PFr#*$,PvLMW
U"DT<.jx]ykA*cPdH]LD-U24'D0MRQ/hI_jSPzt*'j.405=b]S=ka+n.gdVJN6^a&
U"ag-mMJq^8wgsBm.(tJj>&^_BdcEk;x*qFiXFYQ7g43lvo$22(HRD\euTrcNRAUJ
U"-3DW5FIUAfbs8f?_$FJtwf5/p1e^C_OSgTo=%=E7D[y.uT6$o*/EIC1MS+11]*u
U",;PoH3PXCxiY3s/MVzBojo(UoYf*+%?*xMJ(,%bPjwo7TqAkO<k6FMcNOd6zEL>
U"Z&b%ffZps--rjE.-sQ38%,pcjM/k$%iTVv?u4Pq^3DlWci\K=SZ*_=bD<uoDDms
U"O/f<:<t.wjPxpwkvx?(3dzB2C:$bio-c#0DFdU=m0:3o;y:_km\a[BQ:Be$T$v'
U"9ZbdofkJY+6PA&&>oSvp8kYmI4*&gj1YbeMQQO^>:-ONSUkNH,K,2%?&1?7R,0T
U"YTgj&FFt.p];9tn8c2qzW0r3QE=Z+&+d#9V[(2kUWz[Yv'83gF)q[qz$tD=SBJZ
U"FkT8Ub.uEhS)i(Sdx8bWKUb76/2%4E)B&vP.\>m25FYj^$]$t\A4r%+s=g'j8.g
U"7OZwI6xJ)Qu?LIrympOh##h8fBvI#UHl=TYo4[[>**c$3DtukSpr5:a^*FeOv%A
U"?NDxNjv^3;,^<4Nsxyvtv3a#(MuqX1<.3i<-0MKTvz5Yp&yU8\#+_<Uj&09pWv9
U"%4aE6f2?-5f+jI?0_%INO;w6rL(e5F^_M4=a]lE_qs'-=Fm?J*ArAC8]_h8ETG9
U"UEFV4/=b/IU5xPYeZM6^v$Zn+OsD/#tn03iAG]Ge&NnQ:sz3:ST(f$/p^Q%wydk
U"ISl#T,&?Q3t%+ADPMOByVcL>=kX5rbN/kYeA#>=b+1O2e3s.z]iC?--h#ne5_8]
U"-k7v1u-,Ed(X]__-6^>'?%;hJF'QhB&Rc4pY8?c[g&qNA>c6ZqCdLl1:nrZ05R'
U"ot^H?Fh<>FNP&NcAn2kEF-f-9CW6.NT)K*VEf$)+,i.^<b)buDWWpx?^+]&W]aM
U"ja:2aE,zQCf5H*]P=d/-:Cd4Wr2^f.Amu/I1aA\,'M3Eai)xPOje3YH#kz=8:pp
U"r?JPHFRFh2:gSF11-D=TXPS1,n:>:cQa+>D0NQ/Sip9?)3m&hS+k=R[HEtEd$;d
U"/qz9:>kJ=D4L4jk8\=A=MYwdRE%V5Kd<I#.(Y1X543Of5pkhN[EN;:zmLK0=(O$
U"Q&7fzLi3uy8\&jjRfe7^N89kD#o(m-pW2,1Jt5gC4:4s$iAW+mg&ZS8u.GRxYmr
U"/cFwtcDQs>BucvK'Z+CuQ?h$hqna*l1#u%hOfURZP4;-Noi.V>b^M'E%zz7GffP
U"RjyX/[G7<^(IT\cvS.*UD)c-kgF$4[/b>?3BVi[laaMb4DE4]LuQ*l8TnWY&3J$
U"nd(LoVX1&M=HhCr+OqM3,B*b.>QZ*iJ[QN_)$30Yt&ku31kW1rjKO<b51K9u)$)
END SUB
SUB V2
U"5LgHBj^kuQb/H8kFiRe,VUN?5ABmUr>-k9i1nt99625mK3F]7ld[/81GX%$J+([
U"x#rdA+2tW0o^Q2C>&H+RZZ%R^c$4T.An9orM5qkD.+PAmZ3nzF[-ZJ=uG,/NZg^
U"MLiGile;H(R(.*4qp[\aQ5zBtBE]3l7Cx*=FHd#V[rbfDJ5UZ<FvW3ZwoPE24c?
U"gqH2fhf=#Jih9d>^WSaVjGClD?+:+zN'M2&:;-uPesdC*tqi:;/u[4TORaK3iZ:
U"k%9Q)XB&ZVs&Bll=.rgx,T]C%ff%(YiuAu)/2k?%PbXj^f&cWCDQ3,_DZk2)O=Z
U"$p/V3>=7PP&m'y\Ew6V(qg.*lNI4erF(HS>_R:xRjhl*[VF6mhEwhtW=9+TY9R2
U"^gi^,te9+Ml/OP9wRfeJ2,6t8,&0'wXEldH$)_=3\TM_zQC3Zs.ZLD9%;^bB7ND
U"3zE(#_zrD2vv5x.y*%ks[a?(neM<'d21:bunJ+8HdOT<1?f2wU<^cufPndujVri
U"*$<=AoV>EP95W4qAP*w+fQl<iruS[,B-m&Et7Qg5g6r]&pCKy>N0R%IpZ3;nqdp
U"yff]bZYXOPhP4bMaKdZO+$aj.XUn557:.8[M,EaB&k>#iTHuV;0x5,fTrSVQ&AI
U"K67EFqInW)A0Y-&04$R>:BmCtRa.$0\Q#Eljeutf2rb?[AsxQ8lxBb,tzvD,Q0e
U">GO]PPdh14uiTlNg?\FkB[:Fzd%P[adWN_j59.UO)?HhYuZ-knMda$X/ppOljFr
U"jzkE>c\LCp8joV:i85qQ>W_Y+<4$a95H/Ccumk*S>A*LqJfJVpBO14:X+jR1d2N
U"7i-=qiAI7YUuvd:FLIwTRFMetQocUeh%fT&&IewMvE,F^xe-%70S_W(]I$k%$=7
U"(Gnnpb,6p%gIkhZ]qC&qj9BTEI/rQmMEc.&e<9KgkXV4[i,PVPz1&*2E9)SpQot
U"UiQ^-/]f]z_K&l:tj>$NJ\]b\dCv-aj1[?i8H5\sQ0nIV]Fln1PWq%$gnS*'$op
U"/iq[,E=Y78lBZYCg][aNf)6&;p']Xe]>#0WfOQ$ubHmISuG2F2&m)XV<;kEkXcu
U"c%tT[:JY0Z\]Q6-^Ar^?HX>EqPJ#jBeK.VKDng]l\RQnkeBfjnf]r0tNt06s/<c
U"?W<ibNmEsbQ7pb8/T[y4ho-+<a#?C+Rb?HO;8&juCjTRQ9#kh[m$*C9*6Tj3=jJ
U",7*k/P#;d'Qz;%'zy+aqw89/%vgQF5.KoV%:Rw:r)P\50xvnY<i\/e?b8V8+l<n
U"1RQ/#o8eZp;5h+z95qQd$Y6;&#;QqqlRlc>h.qS&tqm^D8fA8aUPqZ/+wt6/mis
U"9\?i_?SDwu/I)VT5&+1QBJJdGwtG[&PGmLX_.,:.gUqH5Q).?/%\i2Ty2#2<QXO
U"+BAk1w,tV*N%]s_oe+J:C>o2#,#]b8XB<n+0g5WN)Z:9T%mQ7E5/(/^nG8>fD*Z
U"'2p[Cv6AcXd9))H+9XwYtP$6OI8g78PXyO[NGfZUXS6ePfA?=2H[fZN[T>WP,FK
U"jay1-pz,O^EwmM+q62*Q%=C3FU;6^8-oe#+5Xm1Rrp51]c?dIPqduC]<-m),eL:
U"LmxQzQr3QbtvEZRcgbgXN[E:4mNCAW.7up_[v60qpgZ[T*0tj6#HW=jZdJg,LY'
U"uG+=Pj714fRML^3fz,??sL'j/j26^%TZp.<A(;)?uw%]<6o0lkOW-&oc.W$rj/2
U"0pP^L0B6yJylJ&;Rt-pM>ed-?PSpQ^b3L,#j]#vFPo[Xu;b[NuTjFqm[ogoE1yT
U"ShbxtWmMA?0[EDAYYvR$(JK$*VLlu6I'l)y>rdQ1>Z9B000k>#f.o?45\)j5wa0
U"M9tj5G=9(Fjj.'Ol>Jq(Rh>ZDRIy=1iwoEk1(e#KOA[8mTQlTM39U=PIBDVfZjO
U";l]tnYg%OX)Tf.OZ_fGwYCX9+GtqZmhP<58??B$MAPwt5%(ylrFmbNz&:<Etr0W
U"g?^N>c3ZgYW'A<8J11Msk7CvinehbFUrZWt%7rlLbMKsRC48*ZMPJ-8^n*&Rw.k
U"K^ol=bvjY1\Hq:QX[n]0f'2m=LMrRYnhw^Bhiqz&X&(G(*yf[ud,g^ctX$9XkX(
U"0T22Y2bOsBJRkRQd^O_/+E.oQQT+'Cy%mia%-=*mxL:9'yT#<%8)qjbh2cmf-Go
U"T0ts;4[9F2B/#.SZD<DMIR^rvp&Inpl[a8_9]zPVpx,uMJlK4)cI>1r3NFhw66;
U"P$bEDg)3u5MC+^6TZ)MG?hq+0jJ/p(InF9JHu%$Qo5z9X+Jj2$B?(=rY3JRbbxT
U"k$4JdcAFV4:#_D]s/<C+D[Z[(d4KvW-[^xE3GH[(vNbPS,V/t4odaeY<e<ui6*.
U"J]Xh\Gfd[IhYh6%MF;7G;Le9qculGqz&00o0T:^U?[L#E-G^Wkv(I\KB=k^2.ov
U"><&-6.Y&(5566n91=9U6A,tL.%uhvW4$cMYqur/t'5FomBjBw,i4;5s>-T8Ct&q
U"DO1,>H3uGuGTO9L9CufKTp_THd+r7Ct;s(FesHr/ycV%j'CMlT8YggwOf;cfg>8
U"W(mZmKp8?kbmb*6<h-j\#E#)>LcM5Tggd-XFSeuw-3d.44ju]fUxvH38B)e]R+,
U"5HRqV_wtF5xj-]f47(\m*o7b]9h,DSaNeW$sw.nALRh*f%ij9wVW(X61d9BPmz^
U"Qq[<';F,Gm+va+1Uwe0gj:emlhHG4^_v]g9UUnt1P9Uj'vBCsbnbN1?W29mlBrL
U"(-:w+nm4iQcg>7q;(9-bpPuNe(j3bd8A:&<Wa[:yq1wihoMbt_dr?'p-rPD=Xhy
U"G_%48K\)2[&fRHDQkc=QD,AKQ\#gC(7NP1*r0-JX.Nr3*[ZHo=DV^M:^U6-+J#y
U"#SfBVY>ISJLRY>BA:F?hGxXyVNPza:Fu:w3$#tq,e#\Sws0\ouuPl,09VpImZhH
U">/O6::%C&XnKs8D,N8GyD6#,ecE'HcN1:cqhw4hNU*hHWp_N'03Ou#BPlJmrfAQ
U"sK^PE4&x/K<^D>##'SIm'>NYKtjy'DS[%KR:2_UmWPIqaD>/=gMmFajC>Bt'I>R
U"9Gw;h3Wm_bmJ=u#S(ykXWs2$XKR6H<G4;FU^DQI^Q%;j)R>_6X&+nVAn/$Bqs).
U"Ax/J<RXl;c='/'q5V/%;o=l=Zham.\ow,HwClQr6XP3:>QDbl52];'wZ3BrA-\J
U"?#grT0Vp9jXzgmrlEtIto$RsPllDn4kfHJYq,k8vVC[$n>Zohv''?O&%VKPo2Ve
U"ki0bWhR/'?R=D^61DUQ7XB0[Z>?7q$*pa$3<SL=vVnoVPXlMc^6ZIY&TsVz=B,h
U"3sb>bY40aXzE1-BFyO9#qAEauSk]%VFDB8QgBMkgLc$[Yc#[:0OefD34iDcngxD
U"[SJEnz0<bi9s-kJ$$,W2<(:o['=hF+&Z3dj1.)bBk's;bliePa7'FWhLnB^<:SE
U"A#j)SnH[[*E0]i<cT,d:-\AP+H6]%K09_:[)Wimy?MX/1)OE[M+y?-+Ykc%T3<S
U"H?<-8Z#:&MpAu9]L5IzOXW1.8[QW\lSh,ZKjVw6=QwCo(cEKJq/rPO[-tuWHk.]
U"=^bBL5^I5J:#:$m+*T9m;XLEk^3YYEfK/55bIhi[6JapoF7->%:+YsE[CA[eh$$
U"Lz_+=S$l.l1K[ejX]/P,0;^b#?t&msQOlk&hf^%<0U5bIeZTwO1$W:O7*MCaRe3
U"_?ol2l%v]Iv)'uE3-=in1*hZMq#+HA)Dfh(&?_BuJ\\Jq<[>DQ>o$M^HF>(bVnO
U"JDRd1pusak3lZ=5#E<+6-ChK9aVSrZg8PW]2ZW4'Y\]qoC#vjT\G2Pg%3EVV_F1
U"bUAHL%mSO]Ac_KcNRaQP9jW8h]GE&m<sU=T]anf7C:\e?i8VAbZk.4Bj#J(%bG,
U"q1#1WZemyGuw7g2%GoO0eDBS^D1=VObYf&H\^%0(Gm-SV6],DAuUk?=SOnzo.P2
U"0jxbZb;drbu=%6t*:xjjfHK1'ul='G$vM#Gs[HlO#^Es0[Hl#i^Es[$\k#^VEs[
U"rSj#^EPs[2jZ>28UueA+m?J6VB[vzBNc;uZ/*h1'rF3$$abG+]UOx,N%E+rIXt>
U"RHJ;9#Ac#RerqW[g?.Fulqq/:uIwc:2yMiq5cC++fugkn_[Yq:ox*Ak'D=e3KVc
U"?aF<fQ=WSXPedIk#Eg]V2';/+0D)igdO=zmP[<m+I%z;M$Ae7wl>JvW6BRJcUnX
U"'c-CfU..<ud:>SIfBW,.BD?19\YVVVe71WX><^-ui*hR=+G'a%slAH3S5=z-/YB
U"0KC['[=/(Knt6T\AlF=0bG?CEgk/(aN)qoSQqoQUr3h']ACb5pQe9gC16dY%Mhx
U"(G0>WW<_$A'#2#274wniWb];TYLHPZvsIQ:T1N'NIGUeVQk$U?Qu=%3:CtI4d%[
U"lWdZ?<a_96fri<L'eaYTep7HjcQu8rmBPDf4^3C>vvO=P#jIE?9_hG\LVG))vv/
U"NEQuI_MlkK(lC^brAOTjY3;9ZG/ZEX#<0OAK:N\65hnFmVGWef9U<K(f6T)7*I&
U">BF3HaXm;g3sfDY\*Kefk_U,4qV3'EP(8'.(12CYbj[/?-b]^p?I&0'uJX2^LQ6
U"t,_DO5_H8ex&Gr]AsJb>]C6i=zoc9IZC>>gT'u6=sJ\h6F.0xDx4rtN/uxk-px&
U"w+$w7:g\_^a3.q.dso[^F&WjF])mQrRV=#I^'=fD,P&pPHuYFZk5uj/^F&8>g[=
U"J]6R0SRA%*zHW.$]YR#']-]1A&yg\K;M:qWUAbfYLpn5K:5v#Y),cl?Pr4/?oe5
U"2AR.=GYU3tcnjxh#oQS_%R^iLj]6(G4mnQT947RBRrR:h99*kM/ks29(Dq>j&?C
U"gpFE]iEjl\:6i=UVS;ST][](=3W(R32eJ.e3E7><%;OybgFj3f=UplaJCOeEY)Y
U"tEf731L09;uo2EKj-k*G3:<iZ)YfV0+_)R\IETR4.PM(A#SVR+;:G9q=hLJ,;21
U"zGgK?O.j-78T<uB8%*$i1T3NbWMsS5Ig]J.C413'^BSob:aPn239lJf)&&fr&,(
U">PcZc>;:9MFUo[;Y7>1R9*A8Nu3>/_o##%f$spJGm<K.kX\Bb3+k9-Am[G:r,Is
U"K+;U?jG+TA9nJmSmh321)h3K4pRf%s;0[Vi8;Y>R1Ii$OL61<eJvQ8#X0:kSf1u
U"03'5-mJ1R3kOQZI*O#h]?h8?YO-]#.Wk\_:o#fJA9q__,kPaEY0_<B(ef^Yhm<3
U"Y_[0PCS\k37mBvH[vCrAn4>^9^6ZP,?2]1p3p=Pm]g6nI#0yVoebFY\1X)JL-y[
U"+=;'Zi2MV3-BNLp?jm9j<X\evAPEAIGAMZ?7]Z\0$>:(I\L6wo_\Rk+>#a>t8jZ
U"T?5+m<>]EhN:h),dd%a\mXcU=CFOF4L:j%(YGmL>7V1uu1u$ad*?W%QfXh]lsgM
U"t(]MGriom-A;9l1S%f0S7F/a&A#aa]STOTp%DTGObbQJC%l=A,Ief5D*A^is&23
U"xQ$i4kP#5FETgh-H_j]=t#1r2]$C[:Aa>a*_XDXug'XE)7JsE4'';#1a&?1$p[g
U"D[^$N-kt%i\:'iYt34bV]pdQdPT9NF3\TKh#W[<MCP[r#zURIDr4<Kd02k=hLBC
U"uQl*kXQ?.#''?BThu?x%[L#1Q\F7j*A+P*usrGsBu$u]PZH=S3Q6=\&G;M4#D9l
U"g(sLyX9a5$L'6BmAAYg%.UYeQbs'-;WE,nWq3JNQg1fGGI'Lg:YzhG4ioU?'--P
U"hde%cSJ'lz)b;IDSfyO#SEViWr>Akl-kub$ac3_wZI6=Pu&/)<eK/_H7-JZRqnz
U"QVGp'/\5gZbZIEMR7)'^c])ov;aN[YfGE7/dQ;eu:c_KHr8.i*fJZu>RB.^:t/m
U"S+WmaXYdB]>Y>iRh8q0L&?mP+TEV/jw<iX0sq3Y99[(m-j/FjTG?V2lKA,3'hSB
U"?/_6%a0kPfOC6?FB+Y\LO+2]tY4#(YpraG,i='wE:\]TGi<>:l<29KPTgYW;DKQ
U"GG*f_R(-P2JY4p#ueMAWJEMaLr:QJ3r'oGc.xX5fOmJVEE,Lnr^OYL'omvf2j)(
U"fF,m,E^DLqEk?1/gt'77a%9sRR:xn71P7yc+p:^$4=\cGEuAz[pDs=laI=:CtDG
U"+\8bpBYp-P0\1x+5vS<z)HIByGII57Sp:L738uA+qv#*S+ejJkJ?L9OdfC,c$VJ
U"D(^B^=uFTpDvLZOk/[S[<xX.;g^CG[uCR+fJ'7^?[l0LpbkZfUVcQbtzg#W]g3t
U"X>$kMGWXRO(0;xjKg:)Kn/Xmow)G-f7N($t8L<t8aJKY8pF0'%8:YAXN8X9A3T[
U",0Y&(ARb%&K&pt[A/CgmkZk_$c865)2ojZ%jD%H\rMA$_AjYT8Q6x1o?Ngtd>dX
U"Lu8#\Ko&&(R7\6EGMfC,Mknx%r9.,^Ywn/)Wiq(]u&lN*KMyK\KXYJTggrc%.NZ
U"1RR4'%2sBmtYKwbbG?b2v2nAtB0)E54[0Ac^K:jtP[TAS?Dhm4+^HK(;[K[O.<^
U"fyz:YBMYip%gJ57^?rRd.F#<mW.#u.Gn+*ki[whfwUP'+='w9Wd3vq*.zoYtj?[
U"NZfO'IZR[NubmrY_4XK&YudGow_LF,s1-3s?MY2+^mO\Kp6-nNAZEx<[,sks/Uo
U";IisbOd77,U8AY,;<MkN+[9dR'Ruu_mua+R\Q&5d3VV(TPtErj_o[KcwtTd[IZe
U"M/F5OSbY(p4v*&17d=v#l0'(B,Psi6%dR:^#3MTadn\)6&glT>[4c<Z00-p8D41
U"MbOPr7%g-KV2+voDDk4a;X91V?=L8.hEgxCR#%l\NiO\Bpjh;X=f[.)'8%0S5-N
U"%K*1Z\f]p-wq=tQ\>qOB<\=6G1%w>qY#\jUV-UUHL2#2,Y3Zv,%B\j?2rqMX4;M
U"\.UisKT3Gbu-A/CDERCY-_sb'.(0$88S0RruOm0nQu<vj%GW#54gX(sWp92(s0q
U"MNn;p.ck1>qeKo?Oj?d=dP2.#:2a$C0aSa?\L)/Enp_T?=DKh;x[6dLUFQ:v#\0
U"LVeu_n8\?p4.e,].T;X5erqc,]]#Hvd)K>u>4^?=.GqKjNC\$L(':\'0]/iA(a'
U"rsbsV=XILUDbHj-%.>[*upM$E2KYn9S,D^b'KXV?=&buV=XdR2lD*RPsikP(bdM
U"-38Bq3fYd^g94I5L/VbEK+t\%+zy_'R^aC\Tn]9<B3cE=?6;Vd2z10<)(KPOAty
U"./Xhk>(<z*m]YikWO29$c#'\%q%QTeKaSdV/ueS<+jDY=D)po7IVvZHi6#&6uC:
U"XmcpnmxqAgH7MOVOMm60w%Mm,t#ejw-lUoW3nSN\r]Z^?a'H7JTBOcn?MP8n-^'
U"&%L36On/6C<\X)+m>M\.IFGIUJ\6>=DVG.mK^1E1?cXTMJg=e(5T94:h7\[D7G)
U"KGDG4(TB\e#9D+:7QAQFii7<Miu=VCouH$+T*&;8aTV&d:RMK_s7/_02Q7DI*+?
U"2)aW6Jln%e0cn[^khk9Klbd?o7:O::8/FL/I/;&*>([qbtX=fKS8o\[xu*k8Zp'
U"q0j:8\Xk1w?)S8X-D<k8v\U-PS?.Y]1N$.]I0eTMlu5u>(u));WF=h.M4LQpQm]
U"(;=&%,WaOpBvmBoV6/ChY'np\u1joa9lbmQ<B1:zV9A(zxfY(*;kZIK:B5rpv4r
U"<aCH0#O_uWm,;F:'?I8VVbVNCHdJN-.9u+xGGPQYA:#x+$D5Kh1tAJp)a,x=,0Z
U"1+E='c+ne]#3I2Vu$KN,q[7$p1vf?=:E:ftV/J2L)4m3v<^:5D>GKDWfw$.plM,
U")d6FR/RP_pwGt25oxXv3Ogaq$5,L2fj5Z0o1*8.#%hCfbj[6bf,o;UVvRu?T%0U
U"BsC$9SKX/:FFDrf'jxv10B0iE[M-T$0Y2EV,K],0mUSb[8:OY,KSyys\W*EpamD
U"&d;^3veUQY1$4Y2UVL9^,ZcMW&TWLh+9q;ltW=_6F\r/p]fEY;rtzHnQ_$#OX)<
U"8fF9j)*u>U=XM.W;FFq[n;>c0r-i$^uxo(ps-14Io38h/U0>7jMrf*ZmY2$XiCE
U"(+/;k*rT;#OJH6>D#PS2(tmBM,6OMN%c&bfanIUj*OSXdl<MBQX.ff4qd_0S#_$
U"E1>gmf]g#X#gB4*tb*RnqTVJY%XIebeOw2l2V;>Y5/S-E/AP*<.b&ibgXn'B2P-
U"XTmzgvmm1dJ'$xM.;K'5GDE>]HLLzXxTv=>9^f>TT1Rd%.Nkto]>'*h:YV^4/BZ
U"lJA+4SaQ4bOO:E1/*a%/\UHNSO%Bgfz0k&o5ZHNSO%Fgfz2k_1u>J4+-U0g?M(_
U"X:,FWC[oZ,iIi_U4T_j6e<e:2Go.UHOVX[7R<Y7OaY<z6s\%p3rn-,Ws(dV0oWb
U"r'>2XW8uXe2*^\q*oeAJHhqg,>enLqX?n/2Yp>3mv8W'xn8ALYN_2MKv;:hrw&S
U"7&-M[wj:OH'ZO42;W>yO3w\2:LJ,cjWJRf/>fi,;a/'&VNKF),k]w1/)&Di4Z>x
U"CD.7_ce=T7T^zxorqlVJkS?nm)Fyd;yOd6e.c?U<N7h#NhL,yVjVqYX:R=-_tan
U"-*S$^;G%pjVb4=ZC(hM5Z4N3\1KpMWnwg*99$tRyqF9'+tyq-VK9t7yq<w%utyq
U"6LKZt%yqp+W-m-g9/zEDbsnR+[[FID.lSn$npT-'i?vyo%*rn6Q_p.AlTR>=5\G
U"CIo0mm2=6KK60To)bYOl\Wfo-_taG(O1o.k=8Ifb_udxiQxC(y=Jb7RCD*Ihh2Y
U">]Df.gu3>l8^ZBi3DNv?igVvUhG^KT4;Zf-dt_D:2V1Z^1rvYQ8^EF'_>4327&2
U"VO'pPEN&/1?u/24lLV+KUiPZ=p$$L.hATmkLFy8JL>OXI%1Sb(oB6ue.4J=FUhE
U"go&+7^7m&9P10c^WcM:,Vq_4(VavI_d]y-q&#mFGkoLjRCXs.'N%mm4;Q]\0H-t
U"X2<E)n9BI_TLTQ>'4$<d,&xOn7DfI<jk##v#:,&N$o[MEQ*xTwoI8r2.i_[P,[N
U"&8Twyc^%d6T)%29o*.wE/T^ezYe?[u$SU(W37uZGIMe2?XtefQ+).SLRui88kIS
U"pn]voARgnQFh3?NOpbVMU+EJ5&$fGqT6>tk%5LO:g/>,V%KFYW((jDjP7=>X\%q
U"Us:X-[hj%KDhY>(jS<P7</m:0VkihakY\a<H*5o[4UB#Uv2c[07g28S6pr^MhEp
U"HMI>kqvD4+\B%jZN.'G7J?Lkg4sgIbCjR':Y%vs8ZqK8O-SafeZEIhFFmpgck.)
U"lWrv,30oI,_rG6B2$X)RJ[+#<*Qvv-#)5RG/kdxz?<:)DO,1j7=R5?x>hsuAV\;
U"u1aU5;\j<_u05mM(cnLUdlfH]85j-nCN0UikO>dsBzkY<>aC.BM\;FQa(:xoaL$
U"jl^6ouMHQn_qFKQ6/qK(BS>:ua21#:NyDX-K.JnA'j:y7Aa,4rdZ8J<bEM#((G/
U")W;bq#qGq/b8Em4^WAY_F%:K)fYV$(Pcp;&h%j.a(4dXTDhEH;uRi=:zX<\$O?$
U"?(=hmP.)1^MT]U^/5?E9GF0uACX-$cCwa=0H.G^xbbq-$YQCqFJsP<IGMzQ/pL/
U"hMNkff(oP(f5OJp8Mt-C1Ad7xRPwr:PPn\A4+YQg%.mb(CwB%8s+O0E7>57XKIP
U".R$ICeiqyPn>r,Q9pj,kz(MKlcy[0m5QP.q5WKirD-[Z*Gq4b8Vh[Y^Enkevl(9
U"?7.$]GPTI4FNj3am&Ep*B>+ore2lC&:zZ]%R#H_IHXw)M.2:r4k1<VrXU9$GT/O
U"A)bDUV_1VOnPL*n\o?h390uagq-Pg3?1nLWmra;USJO3MoQH2*D>pQq<oUWH0oW
U"0J/\ojyk?1$pf-ZofN^S08a%k(iwgNDG8)]*wvIsguyT%92d400,]^C_P^hT%Y8
U"RrN_m<p/#j%Dqo*Io-SE3Cy'=-^UYtm(I%&Ys$FvHXxhLfFB3$4=.[yN8R[xHh>
U"z7N0vA9UD$LK:genqNDiLZ,M7Lm.=kR3Cb'hj1G3>jmLPA0cXpY/m1kJY.Xd3q'
U"DUXWPkb>uDW*1d/k+S5dZ*+l;%svGh$tr'H1pw]RPtv)oUfi9<Eo-h45V-MR&9w
U")'#kRPuX0C(3XvKa;m$S>L)YV<&?-qAZutYO;5dS]>Sjt[+=MQ1]gx0ahGRI:1o
U"O.ckR/0jtD,q_8L=I)U+34.h;+C<YyxY-R'5aT[,#<Wf-/>VOps#RW,;$\:ZTlm
U"9JpbUDz\o*k/gIl'x&up%()9%%%%-%8CjEIV++QG&S%%%&j&%%%.%%%%lrtx%xS
U"yn^q<qB%6(V-DBImv7f1(a*/URE)\5K7_/ED:dA;aqsCh.G$#6bP9dt1l8C_,G$
U"+q]XeKO1\$M\\,Sx_I=;7TjP\/E'k.AN6>5[LS'hsgis3]aKm'<WBmJjfgj'K6/
U"&9VH8vcI/s6p:5RIeC0>\QsWghC=2PEe0s-caVRau%%up(%)9%%#%-%;,PkIg+7
U"jjr#%%%q%&%%-%%%%m(f&pS#rxp\HG42OdU1SZJnBgfJQZ7'.9BQa^Uf97OOwsk
U",Lf#A6DBYaHY?e38Wm^f(\9RF0srT=9fFP.W6L+%8LL/D;Ps/tJma95HrMh>%up
U"()%9%%%I-%:P]kI1d/eE#%.%%j&%%%-%%%%mf&&pSydnq\I/0/OEm1*YP^>YNTj
U"2m]vBa1Bo&Z+bx=oK9.2Qnjs$H<*o6b9QK6E%d40R-(rE[-ouMOjXy0c>kZ;$?q
U"1'0XTkm6ND5djgC[0f27%Klw<$)cV%6*Wt*n?s-#hUo8VCce626adqhm&;aSu%p
U"()9%%%%-j%A;TjIx\f)&2%%(%j&%%%-%%#%mn%%jSyn1qT^V(3OU1O(<kxj78?X
U"HA;<G%%Dj'OoeUplYFe(1s^DVWTuV5\B/:i3S<a?.n=54TLab7:V>F<Ln);.73i
U"aLgPnE\=Nu)NU5J#t0=[CpB29rL6qGGWkfRZEG$](l%up()%9%%%#-%*moNI._+
U"m;u%.%%j&%%%-%%%%my%wzSymnqtT>+#9UDT#&R%-(#;^u+1;ae+=:*;u3#_Owj
U"O,*E+\42?V-/1%<Q[e,09\u<#9/u<jBcQmgU(0sFc4'4i2[?Km:Rho1oAUN#E'6
U"%up%()9%%%%-%:s(UIX$Vl?&O%%%&j&%%%,%%%1n%(S#ynqD&_f/h[F1if4_T-Z
U"(hge\]6g4IeZ;iqotZsb^-YVG,BuaDl&6=hME>AWj+IsC,,Y^4A([MI0tMty/8^
U"5V0'lnRVes;'[/kwM/BRc5r);^m_jEL0\2,\eZst1#6Z5AZm3['(QUw'3gpXe9m
U"bTx]S\d&+Zx^6?;DA8u%p()9%%%%-g%PbZCIKfs)t_%%(%j&%%%-%%%%qnr%jSy
U"ngq<_J+2<U-aiVB3I+D[2;S&blG6a%,o-wh9p]wc,m789_USn$2>[Pfb6g<N6/F
U"pEgYhC9z(K':Nf<.c(Cj?e5dER6xO5Bh3pC1_rqy%^%-a<6b-[]wKL9R05>YV;(
U",Y+w'_m=wp6>Wsr=TT,6;l=#ZC#t?,K<(S7<wWD6bYt+?-^<MUfn*zj%*up(%)9
U"%%#%-%8+cKIuC74SV#%%%j%&%%-%%%%q%qtlS#ynq4cI*6<%E1*u5qlxvoZK&6>
U"RoB9,pH9C:EZ_Slxd[9J'*WVmc*8Pqvc\jjRH1&VeD*:jfg7dQO3F)4w0<t4/Lx
U"mqDy:kBgk_)B(UBbFU8Arj\bLT:5drj(xUVQ=^$?XL][&-Z>1M/[&-kUaUb6NVY
U",q]JXjg#LGJgz+G;4^&fdup%()9%%%%-%*B9+Jt7lWT&C%%%&j&%%%-%%%%qtlt
U"%Synq>LI:2AOE1TG0e%L7<,Ym][%3ZdsCg::&+MiA7p(99u^jJsea.f7FAL>*_O
U";67C6>]IMzx$3,P#$CZ/v)GBBN6=ZVbj'*\I.bl:Q:$&_GK2nP.+2%R*yLp_4%?
U"AJWzG2tbZpNHN)bKR=B7eDZ+%up()%9%%%#-%k.[&J/#5x*/%%%%Y,%%%/%%%%r
U"z)))qj%Synq-fL^/%%F1eiJM/g/_Hg:kBxZFDwo[e]:K[H,tqG-D+/#wBice3dB
U"N\*o#zLm2i7Yrj8K,'F;KHf:^$wBfM6FxOW#cD;,poG.$kcsb>EcOu03dUXgt$=
U"8iCv%%up()%9%%%R-%D(0^Iqf4>.a%%%%U,%%%-%%%%ul%zsSyRnqfa.p3SE71e
U"pK*WPHursPWx&1_Y/D5UM9G+E1j:<oFPRR36z+;)#,L<Q3_>N:GU3jn.qD%^kOU
U"LWBM%<0jHfL8+5-D4HV$S-Y#epgLX*[k<Waf^mue*c7eBjkm'tJ$5MT^HM<H6_R
U"#ZkJ8Ijp6f5ttwVwlAOJ'Z8VWjW_IMJH.8r>tBGpm'pl^&%up()%9%%%.-%)z0^
U"I,x0S+C%.%%j&%%%.%%%%un%sfuS#ynqDA\$7O[E1i*<*tj=/Ja/m,2Z>aeO<D?
U"-iVum.+-^,Nt-vBupo1<Kr[qsX5>TpVv_m5GPcJ(.5G_'7EESF1Vwv2h$mA'q*V
U"I'O9ckmLNIk\g>XmJ&gVhK$tH$C>G\4''xb+8GD,R3R(7Fg+Ci&u%p()9%%%%-^
U"%ueR%I1,;(&d%%(%j&%%%-%%%%uns%ySyndqz\*%6(V-()4'7Mt=ROfS9,[9=R1
U"%4\chdXeKDiODY]*lwpM.ioHKT$,DcfQxHJVPqHd*:yBI(Il[v1/Dx&nDn.*[8T
U"R6-C.:O?&c>J0Jro%e.,^'nJ+;:HP5*q%^oe,8e(I]Fhm8PP(Sd<$qU]>?.AZI1
END SUB
SUB V3
U"bx1Nl.u.5U/IN7^im=Eet&P$rQ^NnE'e'up%()9%%%%-%;i<WI)h*l9%f%%%&q&
U"%%%.%%%%whmf%wSrxXptT+H#9Uj/#&R-W<NUOd&)_r.uFoE^-Qz9^i_)x1Hcp#D
U"U=E$Y1x*XHv#GSgr['l#M8h_)sXfq#gW49%_%up%()9%%%%-%;h<WIL,p,H&K%%
U"%&j&%%%.%%%%whmf%wSyn1qL\p+/<U1Ri:ZLO-m?d*(p5r=\V]/#^eT)(mctPUJ
U"tH/lIl[u(Cnix$lq#vq0?[5Szjs(C8V.Agf)#[CW8$ffpM4DPlUuA&(o^TVsArR
U"L-59i1:/GU(l6:1D%Zs:[z+w2lhsdMfVn,q>l48A*iL^wemuKU%1up(%)9%%#%-
U"%1,>WIk0pnLt#%%%q%&%%/%%%%w%hmfw%WSrxXptT+H#9Uj/#&R-W<NUOd&)_r.
U"uFoE^-Qz9^i_)x1Hcp#DU=E$t1xJ=#==5Q[moU=J_AV;%C[V1%$m9h/_-4mawxv
U"Q&wSi:)Qi3%%up()%9%%%I-%0>BWI,q5yuX%.%%j&%%%/%%%%wh%mfwW%Synq)L
U"\f3'<E1)+N[Cjlc\Y8q0QpM=p8I,N]r$9(h7r3A,Ip[tFP#ds>;t/VVJqr>9kx8
U"=N-PAeR]wCmp[r+-5%+DsC_g4W)]_?+sB:79RqL24'dS-2ZKB1gU&T;.V])&2;7
U"XDed2$\]=oN=M'Z6)RkIgWh40BcfL0L^KYUkzT/C/P%cup(%)9%%#%-%XFcKI7H
U";tks#%%%j%&%%-%%%%w%qtlS%ynqzk_D\<#U1id,P:04?3eJu:4;;zes.ZpFy**
U"s'J%Fle])^%%4DCJW9n$ztcx#4fu:,R?c/bR:n1O$HNv'LPp3.V-7Ytx2hxJQV3
U"MDOIl$)ka8mq;+vKFaL(IWblD>56M'9zN[Yx>v8KHRy+GOf+/P0G&81?[cDBB,w
U"[Jd*mr%(9]'a5xl'M^w0J5LcL0O3r9T(ExZMXOn#+\NTu%p()9%%%%-^%ixM7In
U"=B)ky%%(%j&%%%-%%%%wth%pSyngqD^*%2'V1.jhyTlJK'k:1ew7%>NJ2#PU%Z4
U"Gj<D[L?G$%7ddL>fp\c??lk?<0#v$]YU*ULss+8'#4fHNbXY7k>.9C1g4EAthZa
U"G$/^+dm#t,64ka(gH^XD8AD>'(3aw4^;H)KG^b8;-'asu6_Z/CEK3Y$#'JPR=6R
U"fZfe&2y16^O<+ezMiNLU81kBrABZ'-]ZGsdL^$#x0B;9hrFB,JH4u%p()9%%%%-
U"[%\l\mI/>2)XM%%(%j&%%%-%%%%xfs%iSyndqr_J(6OU-+hd3s.<WZD-GY%S*cl
U":7*cdP*WCrFBgC2+Tabo6%MTW8kR+WOiZBmlOa/YYMAhv[tTdp7bC)70#',iFP*
U"%5xhGr<)9r[&b*LUi;GDuS[je\fRU0hiLu&*ZSNJe;%SAEbXs6JhrG+6)edtzPd
U".-%Y*u%p()9%%%%-g%v(^+I+?J(,D%%%%$,%%%-%%%%xlz%sSynsqfKF(2OE1X+
U"I4X[$U'IXDDwZAX51oKjyqX2?HPC#coV/Fr.AhSDVWB+'ffcU(pb^]m&Vv1'1_Q
U"_puEeTTeca76m+AgY\XTh<z]B3NTGjuTgNW9oXBE*>+E,qyX>K9Z^_c;Gc(,_.6
U"$O&VtZz&C,up%()9%%%%-%7SjPIA>Z[?&#%%%&j&%%%/%%%(x&fr(u&SyInqD^7
U"f39Em-)bRt:XP4X4Y9tc(a(s0JKd*^i<oMST.R\EH#7,'Tr$:.RS4uQ5e[LG16O
U"u#cRJ.OGfWD*Kf)'e/t=tLgFywHeI41FmUg_eqmRLRNw;NhgMy#'GIU1&byH;Ve
U"WPgNu&Cb):z<u%p()9%%%%-d%bsk:I?]#)]/%%(%j&%%%/%%.%x&f%wrVS#ynqD
U"atT.9[e-p8-vf=s*LP_jO,aqTa(.c2E9Hf24UXD(?Hj[)#>eg(CM:Ly5Q6'd%4#
U",JKdWTJd-WF2H-#&W;>;v8;7hp:nde,3=:#W+E>bNZYB?_QO]/hf,[o;u%p()9%
U"%%%-g%QskUI49U)t)%%(%j&%%%/%%.%x&f%wrWS[ynqtm#y#91UT#&&R-(\.5UO
U"65[[5%&b5[KMOzQ#-JMVEHLAO0_E?hFS/eAoP(?Oy^,p;'g/VlA_)/s<A?ES*&$
U")=u36Xp18p=Zcg1&2Z7WEEi8D=;;%%up(%)9%%[%-%vagRIa$-NS;#%%%j%&%%-
U"%%%%y%mnqS%ynqZdt$e<RU-myAtrtT>IG?9/snbPf]%JJALTX7G<tFZorUu6t.P
U"nrHr6Cfr0h:4XR;FG]d^y&AF=6^-I>&1rWqfV3]C;u\<$m,gVjZ<J=hI_7PpcVV
U"1yQrYO_e\9g%G.3*4;'k<K#[73_3'irOrl+n9^Rgq=G;R:wAw&vaf)s?x8XHQH[
U"\:cJc]1OTDR]6L<1hS:d-*[bO3Peg)tB(;09=fx2wPs%dw]=gSo&e%Z4JI=hD68
U";:-&.up(%)9%%[%-%kGKpII0HkQ\#%%%q%&%%/%%%%y%zwyq%jSrx+pt#zH#9Uj
U"/#&R-?<xZ*+=9%x1)(c&L*/YOI*VSOVQ'=/l;x$QdUH$eYRKx0DQ?KU+=Mu%%up
U"()%9%%%R-%iKopITY2sN*%.%%j&%%%/%%%%yz%wyqj%Synq<V\J2&OU-iBH6qk]
U"GZE]<7k;&Y+M=r3-xX#)'iwC?(mW4EY+S;HqRWFBf\n_'Z[Bj/Qaip-O4+/2A4e
U"[+?3o#'Wyn]%buOg>TNA=3xTkg/W3d0,MQ(u%p()9%%%%-g%ylNjI9E/&fs%%(%
U"j&%%%-%%(%%yw%zSynXqtT+H#9UT/#&R-((*V#p-8d)l*b7,.:hGE%y18(3joo=
U"&(B#iJu=n-SW'%1/;M1]?e9Ipns=;Fp=EYkdT#ita-t((<63q('%.%u%p()9%%%
U"%-L%).U^HAzV)Cs*%+%%5%%%/%%(%&ts%ijwS[vgkfJ&rW%dz=MHOb$Mn3Kln;K
U"ZmbBjLs(-)h0-14i#se)SA8Rjiq;C3RWrjS3IGl:Qi99#.fN?NJqTZ'BjPN'(rJ
U"W)$_)k_Sn)RCG0GsMXuhmW$mpK?pGP1W/A^TtVllwtkph5c$tGb%;HHWsOt^))k
U"_N^UPnC6Nkd+et:k,UYcX^>fbU:Ebr_.,HFeY2,5UA\gDh^Fp>BGE8gDFr9L6nl
U"XhJO7&6Y;r1ivqX0JyCSK3A,Ze=jDTS6,f%l4<]R6<oSb;26eZYJD'Eq,=&d;B^
U"2rTgNpktJB6c$WELUn8\^Gi48FBQvYMA$0+AX%<dAdLC>Yn2\n^lZ\P[26jbGOI
U"cD.Yt6[h\=#jnS#6g'sAkt?$b29'isPOh'd;^^r>+V(Li*E/vF?dRg'eoi;o4Ih
U"#[]y8RC-/OhX:B:b-'ka<sVh>wCco.k:+L)x8sDmcK%$4x%B#UQ4?BsK62%a9QY
U":\8aPrGraGa,+^SN;Phxcg0aCNb1/$'H4-_fU:TI)Sh3:5m$N#G/=-Z(namQu(t
U",LKX/eyBZn.GK1U*0Wl1ZWN9)8/513Ts*9Ph-zH68[v9DqoL'j\1Q^g=&7:>1l;
U"xdjvsZ9gT'>:B[g*rr9p=DBH&0_OB:HjAb7HiH,Wm)=/d9+/o.3BN[bbGFWf?(r
U":-K8)S\\UmD'H6bX#5ijm&[N^iX9AUx\pE'YOUN073^MasW+G8IcCqVy]fyebMa
U"Cn+_h#a(9%IGwr?4-v%(.MDd0mNp)8[0Pu:3<oDA%Bj*UmQA9.+BPJj-WLrYROd
U"27xr)5bX4n]qLcj\zaRcE7u8'CE#^v\D:egW]dl%0h.^#9HMq+zo);.25r,xhda
U")Xfb/r7H,kK2&u1)*iQ4??'V[,z$2O5gdq4hO62^EUUQ^IeL9i)u?4>E(T/L1e4
U"5>J25biBSf#%^z1FD=HIRX_wrtp#^C)iOa5Bx%rYM\WW>oXe/H80rFbl2g_9f_Y
U"O.P]^uZPbS[:UzPRo^dO15(J3Gw:b9),Q0W786flX+.P<CKpLEw]W&o%^k-1?Yq
U":tR/vr^Sn<Tg;.z*sF&aPp=jO#0/pH]Zk'FY?p0I.EWk_dlGf\[D4BbnE\+J6hj
U"wrg:*gt_ikeOx,yjZgoW4fK0sM;oVsdLuZcZADNj]CIc7;<ieEI4X>5UI0M3Q6E
U"-s5EcIr'IZ7\OLAL+NZL\OaNH+WSQE2n*>P67mNF<Q^5bG\ZW?3CGK%2K6YCaK\
U"w_V=)CM8J6lh?[tM+Vl&bkBh+CyBKrnN_pq\IT(%#\=,$(%1TZN4]<$z5%FnFXp
U"1h?-Hht*?S-(hKcG0caKGzm/5-?Rt7BCqw&[rE4XWVQ++4e*S,y6qeBdS#^Gyg5
U"zuZ/l1K8AN-D$(NMJV9_<77zs2n(Kwfojz2^cG$$x=Li7NflcRn=X[twsZ_M0eo
U"_yppYyq?F2OH<AxP]>ty(M#=cBto4BdckdAuMOTrfVvscs,4<[2id7=%79rt8V0
U"6T%IC$HG,\YJcT(0Y_?f$Jr_jrtQp&Ppp9%ih'Rt_sbT5I:&+F[P]t^$gFL8\<M
U"lU,j%Fjg>3k,4t)tVULxqJ7mY5->vFPfc;4UEkv9x'=E<sa*_:^hXTFI&i,X']7
U"rxW>MQDy6tV&[7dutnKa[dchJVx)uT.cg*eEp]nT.TQxpaZC<d?ssN<,Yli-p$z
U"3cXiSqrlUq$0_C/5ja4%)phv>(5&M=4h9Kog,n&gdn</x&lAL^$nBi]:Cv$LF>W
U"5.D^df[ttzU%c42p0RQoPWK>Qp/$$d9H;Or=7eq>MZ5quZ3?o3JtfVM;9X?g=tB
U"KwtTv^Ox=X:PF8$-rv0u%p&'9%%9%%#%-%Ub%^IuQ[p3J#%%%j%&%%-%%%%%%%%
U"%%%%E%%%%)%%%%frr%tSyn%qup&%'9%9%%%%-d%^'[[It'n*F,%%(%j&%%%.%%%
U"%%%%%%%%E#%%%t%%%%f%uuqj%Synq%up&'%9%9%%%%-%;b(TI6qmC3&b%%%&j&%
U"%%.%%%%%%%%%&%E%%%%N&%%%fy%wjjS%ynqu%p&'9%%9%%#%-%>,GhIxDu4QV#%
U"%%j%&%%.%%%%%%%%%%%%E%%+%\&%%%gfh%pWSy%nqup%&'9%%9%%%I-%9&]^IRk
U"1%H^%%%%_,%%%.%%%%%%%%%&%%E%%%&$'%%%gglz%sSyn%qup&%'9%9%%%%-d%o
U"MJ^Ippb&>p%%(%j&%%%/%%%%%%%%%%%E%%%%l%(%%g%qxfs%iSyn%qup&%'9%9%
U"%%%-j%ILJaI+vg%57%%(%j&%%%-%%%%%%%%%%%E[%%%3%(%%g%qzjS%ynqu%p&'
U"9%%9%%[%-%(bEEIZTA8%$#%%%j%&%%.%%%%%%%%%%%%E%%+%k(%%%gwn%hpSy%n
U"qup%&'9%%9%%%I-%S_BNIgQ>Ih%%.%%j&%%%.%%%%%%%%%%%%E%%%&y)%%%hfgn
U"%sSyn%qup&%'9%9%%%%-[%2xL(I$SZ,>=%%(%j&%%%-%%%%%%%%%%%E#%%%L%*%
U"%h%fyyS%ynqu%p&'9%%9%%[%-%]bwEIP*f+Xc#%%%q%&%%-%%%%%%%%%%%%E%%(
U"%6+%%%hmf%wSrx%pup&%'9%9%%%%-j%YwE.I/X_)LM%%(%j&%%%-%%%%%%%%%%%
U"E[%%%D%+%%h%mfwS%ynqu%p&'9%%9%%[%-%&c*SI]3VsYq#%%%q%&%%.%%%%%%%
U"%%%%%E%%(%>,%%%hmf%wWSr%xpup%&'9%%9%%%d-%x*]SI,X02M\%.%%j&%%%.%
U"%%%%%%%%%%%E%%%'[,%%%hmfw%WSyn%qup&%'9%9%%%%-j%tcZ:Iz)d*5B%%(%j
U"&%%%/%%%%%%%%%%%E#%%%e%-%%h%tkkj%jSyn%qup&%'9%9%%%%-d%;#tRIykD'
U"Zo%%(%q&%%%-%%%%%%%%%%%E%%%%V%.%%h(t(yS%rxpu%p&'9%%9%%%%-%:b#tI
U"bVqCGM#%%%j%&%%-%%%%%%%%%%%%E%%(%p.%#%ht(%ySyn%qup&%'9%9%%%%-[%
U"6n\jI5l])rY%%(%j&%%%-%%%%%%%%%%%E%%%%j%/%%k%nwjS%ynqu%p&'9%%9%%
U"%%-%AGsdIr57LGt#%%%q%&%%-%%%%%%%%%%%%E%%+%n/%%%kwt%lSrx%pup&%'9
U"%9%%%%-[%Fae:I+G()+D%%(%j&%%%-%%%%%%%%%%%E#%%%9%0%%k%wtlS%ynqu%
U"p&'9%%9%%[%-%c#m4Jzin?j8#_%%m%o&%1%%%%%%%%%&%%E%%%%*1%%%kwt%lhm
U"y%xSgf%xup&%'9%9%%%%-^%CjEgI++Q)GS%%(%j&%%%.%%%%%%%%%&%E[%%%g%k
U"%%l%rtxx%Synq%up&'%9%9%%%%-%;;PkI7g7jj%r%%%&q&%%%-%%%%%%%%%%%E%
U".%%hl%%%mf&&pSr%xpup%&'9%%9%%%I-%:P]kI1d/eE#%.%%j&%%%-%%%%%%%%%
U"%%%E%%%%1m%%.mf&p%Synq%up&'%9%9%%%%-%<A;TIWx\f&&2%%%&j&%%%-%%%%
U"%%%%%%%E%.%%rm%%%mn&%jSy%nqup%&'9%%9%%%#-%*moNI._+m;u%.%%j&%%%-
U"%%%%%%%%%%%%E%%%%Qn%%%mywz%Synq%up&'%9%9%%%%-%:s(UIX$Vl?&O%%%&j
U"&%%%,%%%%%%%%%&%E%.%%qn#%%n%&(Syn%qup&%'9%9%%%%-g%PbZCIKfs)t_%%
U"(%j&%%%-%%%%%%%%%&%E%%%%l%o%%q%nrjS%ynqu%p&'9%%9%%#%-%8+cKIuC74
U"SV#%%%j%&%%-%%%%%%%%%%%%E%%+%vo%%%qqt%lSyn%qup&%'9%9%%%%-4%B9+p
U"J7lW*TC%%(%j&%%%-%%%%%%%%%%%E#%%%y%p%%q%tltS%ynqu%p&'9%%9%%%%-%
U"k&.&J/W#x*/%%%%Y%,%%/%%%%%%%%%&%%E%%%%iq%#%rz)&)qjS%ynqu%p&'9%%
U"9%%[%-%DG(^IqRf>.a%%%%U%,%%-%%%%%%%%%&%%E%%+%Eq%%%ulz%sSyn%qup&
U"%'9%9%%%%-^%)z^^I,xS(+C%%(%j&%%%.%%%%%%%%%%%E#%%%S%r%%u%nsfu%Sy
U"nq%up&'%9%9%%%%-%8ueRI%1,;&&d%%%&j&%%%-%%%%%%%%%%%E%%%%Ds%%%un%
U"sySy%nqup%&'9%%9%%%I-%i<KWIh*%l9f%.%%q&%%%.%%%%%%%%%%%%E%%%'Ss%
U"%%whmf%wSrx%pup&%'9%9%%%%-g%h<WII,p,)HK%%(%j&%%%.%%%%%%%%%%%E%%
U"%%g%t%%w%hmfw%Synq%up&'%9%9%%%%-%;1>WIFkpnL%t%%%&q&%%%/%%%%%%%%
U"%%%E%7%%^t%%%wh%mfwW%Srxp%up&'%9%9%%%%-%;0>WIg,qyu&X%%%&j&%%%/%
U"%%%%%%%%%%E%.%%+u%%%wh%mfwW%Synq%up&'%9%9%%%%-%8XcKI>7;tk&s%%%&
U"j&%%%-%%%%%%%%%%%E%%%%2v%%%wq%tlSy%nqup%&'9%%9%%%.-%ix]MIn=1Bky
U"%.%%j&%%%-%%%%%%%%%&%%E%%%'Pv%%%wthp%Synq%up&'%9%9%%%%-%7\l\IX/
U">2X&M%%%&j&%%%-%%%%%%%%%%%E%.%%vw%%%xf%siSy%nqup%&'9%%9%%%I-%v(
U"9^I+?.J,D%%%%$,%%%-%%%%%%%%%&%%E%%%%px%%%xlzs%Synq%up&'%9%9%%%%
U"-%7SjPIA>Z[?&#%%%&j&%%%/%%%%%%%%%%%E%7%%_x#%%x&#fru&%Synq%up&'%
U"9%9%%%%-%:bskIG?]#]&/%%%&j&%%%/%%%%%%%%%%%E%.%%Ny#%%x&%fwrV%Syn
U"q%up&'%9%9%%%%-%;QskIP49Ut&)%%%&j&%%%/%%%%%%%%%%%E%%%%,z#%%x&%f
U"wrW%Synq%up&'%9%9%%%%-%9vgRI6a-NS';%%%&j&%%%-%%%%%%%%%&%E%.%%Xz
U"%%%ym%nqSy%nqup%&'9%%9%%%R-%kKfpIIH(kQ\%.%%q&%%%/%%%%%%%%%%%%E%
U"%%)#%%%%yzwy%qjSr%xpup%&'9%%9%%%R-%iKopITY2sN*%.%%j&%%%/%%%%%%%
U"%%%%%E%%%*I%%%%yzwy%qjSy%nqup%&'9%%9%%%I-%ylTNI9E*/fs%.%%j&%%%-
U"%%%%%%%%%%%%E%%%(x&%%&%ywz%Synq%up&'%9%9%%%%-%2).UHSAzVC&s*%%'%
U"5%%%/%%%%%%%%%%%E%R%%#&.%%&t%sijw%Svgk%up*+%%%%%%W%W%'*/%%)b,%%
U"%%%
END SUB
V2
V3
CLOSE:IF S=66AND 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
