'===========================================================================
' Subject: UKAW: E-MAIL AND NEWS READER       Date: 06-21-99 (00:00)       
'  Author: Thomas Gohel                       Code: PBCC                   
'  Origin: gohel@basicguru.com              Packet: PBCC.ABC
'===========================================================================
' UKAW: E-mail and News reader for PB/CC
'       Includes POP3, SMTP, NNTP, and a RASDIAL client for Win32 DOS boxes
DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"UKAS122G.ZIP",4^6:Z&=25341:?STRING$(50,177);
U"%up()%9%%%%-%%%fNKy;-DJ437%%8S%%%/%%%%jR%rfnq%SgfxT6?fASjmkNbyk
U"367QsI/gNabe;%kY)OpAu[gfV?5,JRR<OkAq[AO*9>c/gVgF*hr=<7OZhYY+0DJ
U"yy[5ls4J3_J)ax<Z>uabLkAvbRdpnX+_gR8n(9.)7RPz=\i?l4dFQ]F'k^Pujiq
U"qaC(t[Ir7S=asos9,(##\kRlGfnVEV\mdDgUsQig0rbEa>&jCkWKUQV(a5s>1'r
U".ac.c3:e:Ta4QoWkD:WsFsgDIM[K^1q7r:_(3^dgdPEEp0>sN7fV.CEWE.Ht9Ug
U"(s==g8k+pf<]U>;3ULPp%\2,<8M5v.1\M_VZi8PwgtnW/u/)'f&X+'[Ng?M5(07
U"z\=L?n9sRWa_iD2D'F4JoL)20rSn.C0O:.d'jB<_DmAx0&B_l9X<da,Fi-$LLl;
U"^(eb3UMuCXyYRIdYC\J6sVE:Ws$kAASc=4;1w/+i,:B[*ae.01dnv&W++w4473(
U"+_UM+;Mt5ji5P]i?JU%ypAz05iAo'm6*8Ky2>'HL=&h$()q4'_2g1CLrn'LF/,J
U">hJ?G[s1:;phLutQ\vta$kj7O-<EHl6]);%sdIi0hJhOpU1x0/<>[G=-1RWAfO#
U"2eZA7tv25o3<'c\G=oEEV0TjL#5n)wn:$kx$A&fakR]EggL=irBgWju%76q\+u_
U"lpI\1tlLg/O\C#S75XJC)(,tj+.Jl8pm[c^\%gX3oMNt[+^O2,?;TVaxPUjQetK
U"ZocXKKJ?gJs=AI,2Rx^.qCzTS_zH:Y3hU^Dm0SdjrA)71s$5tnn%9M:GNIL%HCB
U"<b.n>_eB/g7hBph>j_s;UXdkM\N+dnQCgs>/K)fXz.>0<LOaL;O[U]=;Zg*HP&m
U"O17gyBY21MruEM'M<1Tl11,p2pb,pwuS0dmnLh<,cBYdcdyocU*Jc)T-Dn^GBY^
U":v^,o5CSc(ePP'qhw)qc7yO-)K#]r9\tKBpu>)%rKLLGpV?0Fl\-Aj7Gf$VF:Qg
U"%x'v/CX>Fc_SM]XjTf3i^N2-APUT-M#jj=R^k1jm=&*Rp'/hq*F2=IJ?C>z6Eta
U"dt98tG%Z[C1vW3nk\NbuM7NF(//>I1JDDVlJnNOL./x=UHF\&m%duq,Yg<;1uYo
U"PJP:E%&9ulfHmR2R]^R;CcHbSk=6+CGPFLKj4mncQ:XJn?SmhDbNIFr<Z;rg6uV
U"ZULhCv].XqX8NK()$n18\tw*S-NoL.U^WJ=7:h)exZ)jMUuUKt^uAKp*b8.6QWS
U"q5y*I:O604(ufk$c-c]SHa<'2_g$dCqVQPi<<VnRfG\Di?;dM?7vC4w/l'v&b>?
U"_\X+LKG5<l6/(uvplZlR&=M9]KSl<jEZ3QiIJsDbl2n<^O&gXh&WTA9]R2^yptn
U">V)_iu^#9D30l1SgFr&]gK-8#MlOdAy('nh54l#.vK#,94+;Q'BBrI+aD/wmK<)
U"kOgxv5WFs[JZ(p'h]>_YsLo/Jj]^XA%OX-JuT,_[u0p.-B'\[4LG)uJWK6a3-AO
U"qKgIW(4)(bV<Tt-9$j8?a3,1Pa$a1)Moldf3jftN9640pX>B<?(_l,_r&'DAr1(
U"7LlXD9UM;IhG93F?HYHROQkNv-TaC&[+6QvX9'[tQd>jP=_PZFWW;u7.mvl0/*x
U"vU+fx$?1=s-_Ds-o([4A0O5U7?Y$l(hgg6eJ.Dy3Mb*H7t'H#ffeJvfC^045D&l
U"3b7$j?DQT#H*(cV49Z_CWTE4mhXBX7v:,-$sW?r9OtL]XJw&6QC6A_EoyRTmLO'
U"QVn+QqUYMR214[<ntkL<<,\FsknWn+F>t-BK[::f9p4H5FkdPsvH&38%1s#zvL0
U")SDAttj%r14-XOD\]72OmyanaM32Q9^,sTfy.RTaK&AasA?S'E6Vk.W=B>#.mHQ
U"9rIvV68UlS/j.[ZOz&my1x^yv1oJLKst*xqlxN]BA,mYu5p>O,b;r#Fl:$7SPI+
U"MWRi%w^<OES'I&QkxSDrKsX6XXsOfgRoQR/4R24Qx^1\eL.Ja8;KGSS#ab/S#uT
U".ccOd0+Cn4BW5NmO8dcIoZv1VdPjy%EYqddv2RW/A3=Cp74'SL0<1,Mj]Sx,%#b
U"^M4=Wb2+s/GL&$^HYo/xXJQZSI41MGw\:-EMIeU4/?ud^BXmJsw.?72ud7e1NA7
U"YJxs%d[e%/?Q(B_j:suH#(Dmbo4b%(h\ZuIFr.aHY[^R))',e;uv#VYXn-57-QB
U"6Gu)Hf1pw8di/JvK-nXS\QVv*4bjB$FpYz(X=YA%C]n7VB/'*Vu8[Qs/dM8dF$/
U"_#:iX]NmgJbx0QH$vAB<:P']</Z==psZSsc',rm)Wdmq2]C\gb9%d^ji_#I'[\^
U"e&^8>AcL8RR1dy3\?t'GDUVF2kqa6<J\KrWs\I<jZDTA:#.Q:0\BGB(mJs*<.,L
U"OV;Dq:ke=#qcd_bs41\<SiiUgc'/M:UnQaw*P&IPzap-.^iW0'5R7zO5k_)[vLQ
U"ImRfxl_^TX.1hDICxguT3burn1+(9hO#q19ce9+5aq:+)a<h%z6b/c)tHFawXl;
U"Qstuf:bpG+Z7v\#<,+=&gpw=l2DkY2fK2%Pb'B8i:,GoiKK3Ki$#8CVPt8La]\)
U"8EDM:E(,Cr)clJuOJ6w.[6bXa\qZ-m,K')15cUC4Z?=OiD5koeUddU6I&BU)P4;
U"5:Sqs\1Q/*_i.aFCEQjgK7KdWxMNDTrHjOY+RoLFuEyu4;U+E1s/)3WYjHyG&(&
U"s42vMJ04z]E8#,Ug/o)+#GS-1cr\&&1hu7Z2a_Jibo^t60E;/8vfw%S0(agPOU\
U"yg+598WRTek30F.U:J,Yi$$SMi$9_'&x/M0Sq0^'g=O[gHk=lt=1mF1YkVA'%I;
U"L'9jT8r_s)-g/PaAwPl$HuWOxbu:yO#zHZqgJ&KPeEc#-RP7pmibu9x8QN&O;OB
U"F6\0J#=A&W:Q2:lWKkzg0W%Ovo\f&OrM<;S<Mse)mB.$*&HlC'-ZY$<Cq00ogiq
U"A#vb5#E&nVn,#yY?Z*,7vS'tC9\46Lof,MU=5n4IzYiTEukH:ef\>,ks6kdFb-T
U"auf7.ajwTm;<L^[[%m_sS[%#n10_+KlDof$F[D3'4Gujrj()3AElO<Ap>Iig96i
U"\=')G&Ntobf0eBsT&lKoMtVZ6[PBC)6O/E]FFAFlpe%UR=q+6,%U#C;kC]e^l/R
U"Ce)5;rA&k1#,/-R[OXXIqFv#(.l$HB>3>'DLi7BdpEm-8GA*9Qjy/&12Hq\J\oR
U")?qk]:I9?%?$>X5dE1w)U7DrIX)kLYi(=;.Lk3,JguB.%T\.)+<qG<s,*t1XA\W
U"CLi>0ep8JWCMm(Dc'772U/ra.+Qv6hco&]eSOB(B]:2[(O0yf4kK?l1<U:Dc&'P
U"R'\06s[,Jg,9SYsvJ^$N\syEL(,/o7T1pDh40?m*5;?/lppIT7Z$t:iLj8t+:ZW
U">8y8W%/[4\MX+n[AUaTG*gnme\:\pJuJ<b9*LoS3&xC&F'gt?b5q71l\I/SNqa<
U"TB8^nqyQ:_Ue<kH$EWH>n>#=T<ImpR$IF95ul;G'Uk-tigt<+auI5V-K?8WO0UG
U"O0Tw(/g1*\.=(Oz*28z:,.IguM7KF2w].8#Qb:9TS2;Z:[skdj7MhHp:VCyk]U/
U"\#L&ZbmFj#\bmL%Tm'duC,h3&w<rlo6td7Q\J^xQveCnbsS.'e$Rrr'Y.XWSXD?
U"XpT#L:AEleMnCHO<loZNk;;6)b%z0pr]'xXT03_HLumR:ag0vtFRo0PAd)dSW?<
U"Y9kJ2,bRNc0dM9r)>GU0F0ds#*3oP3gO2,dC+Z\4$JrC;T4&/H\z(3N=mP(cBCA
U",=u06),Tsy3AD$,]*5tKGXLjkXR?)?B-^19I\UaZC-[A_C_#Gcm258u1PN=5/Dg
U"rah;Xj(\ZF:<cc*'C,+67^=LXjBL^B*Hns-&wEc:6*N3)gy8]OuBujV5(ik-Mr6
U"sN&V;zH='[.<ip[EEbWG%(m[_y*ml?_G0Fqd<ODK-gy;uB8a)8rg07mCK>2Vm]t
U"e6VhOY;zxDzCa)E(mLMC;(Q\\$:pG&r9$0;S_hzhkM&JgR5ChyC*&T$v?2<Vubn
U"u/=&<ioyoUtdo_[7JeCW8Y%8qVxgO0NBQ/N8d#PqJ7Y6?.#lURMSvHYgP8r%DeS
U"JlKfh13v+#Z0M'>eGKKAYpuStk<XxUDnJTDE<OGl/cl^KrDIZ#Q*k^:rVpOZRwc
U"-6\wZJpMWMgQ+Zf3Oj-2n^4w[ujBmv/3n04Ou]eoRWU:956Trv,(Cy_e&N3NhU(
U"1hjJlP91540>_9$f'njqJ4_$p.JhJFHhb]W^6d&>r[^6e=c?9V^S=93$e2&,LfT
U"OG$j&sOhKj8*YUhXU;Iqy0WaKQCZbDvkS0SFn*&iap;L>uBW/<)b7ZbEX<fZf5E
U"J&Gse&],fPekS*D0u8UVX2m359J<,&GAW*u1y50V4VhDpJW.iELxgJ,XNmSw>$:
U"V+3kgd)IhpVF]tpr<QNro#tn?JW1F_#z10Spcl;e*JaZM-I)<*U$x06]hsf;a(]
U"vPc>B0\WEvh*ae/pbR.+Sx/:XV\lX:xX04pyjG7pfW;1?6auiu;T#fA:&)bQ_X]
U"]n>upiw'X-<x0u%p()9%%%%-[%%%N=KS'Y-tL>%4%\)%%%/%%%%jRs(j&xS[gfx
U">ga<BS=]0X$lLxose#\Gfo)eKg7[#LJT=nvcd%<kf2E66W73-ixh2B<Ll-vExZr
U"NJZORrT3;JF_WRRVK$PCWCCWG$%rsDx:H$l6l]4D3LdiqOuwCLkFS3G_BaSEcEp
U"N[Fks[fAFsR^hVEl(0Uk>05V*qpnJ3jX]<[i&nqd_GRhMk)<nXHgvY'u%pB7<6W
U"0+RY?r85U'Q5tvAHG?I<<hS*&s8qFn?tq7H5r5>ogQ5?SM-tq5jfP=b6s'r>oVa
U"kDE:SZQuY/Q-4#)[G0s/bDUM1sQD53rpwgWp.JJdd.^XTZEsUacYE^-YxQxSnd4
U"CT'k\:K]DNRY.sEh1t=6hp,89cQom1u/$wFaOAV-ao;4gqes\g3J<wq%oEL<p+L
U"6o^Wft'?OY2=.F1_?[3cLk_)7MX=k\g5G<IJw1\pTH5['>4_fABJGK.Xrtb-5hN
U"rK()WV3dKZs]D[&4wc[T#61+3I4lRhkR'=#OhHl[fJA6<7]o\5AJf;1CYAT_QoW
U"h\\l6FdnAYKIk/]aG9-7]eOh&?vB-JuRlrIDx4YY#Y:>.P4.]rQ]s.+(<oItL<I
U"HOo3i=Z^8.4k7X+r[*K,<rU;>1^D,N.:-LU-ldvArx+<[il?hs-vmLjtaB0?Vd'
U"R)C^8AS3NEV%4fiZR/RjvBIt'kS3)sO5G_Z)l\a185)Z3CMKJisEC\/cO^93nQf
U"o(d2^CS?&A3Em:M)?4P=-Yn_S)&w:isg,NpsAn$ZqGP+dO>y49Lxf^/T3E8>TIa
U"3=GF-;.wH68+cU)J0=sG76lDg6Un9Z5[0*dh)]Qa,_%ye\gy9hfD4bROJQWfp48
U"5qkCphRnH#v)EbC$,UwM8.ST]+.eD_l$HH'lbg0Q.1Lp)U7;<T4,rb&+qUqiIQf
U"2\B#9PdkSK%ry[6Bt)IoZo0Ke,AV34ja,*P:64'7>s,YgpQ7&HL$U]-O2e[oRK:
U"wT+J*mWpe>hRD;^%gmWYinfgATF]C[3U%orWUpzT(>RYks$5/03(Fh[0?Ve<QQ1
U"?A0Rr,HnE^a.R+Y<6l5cd,SKBA<SlI^SwRFDpYhAE2mO6iC24EhlXs;.],Qn83X
U"CDtPkUEj<qe23KUU:_G7ogY/[KK]5\%IU__DchwRu7FZJ;/KBlf-$45/O/6]Jbl
U"a9e0z?(PA]c.q$lY>-$OKJ3v)cpc&X,,Jx\:#FbS=U-BIWQMxJz2gm+Zs24cgCU
U"5+>R.>:d*Atvf.ATI+1;FY;7_.B5J8h)RiEk7Wh*+DwMDYqYZ:]YiG?D[OKmsXV
U"So>noKoS=cKPZItJ\RCwxlKHKInx4l:Aaa;Di4Fs2I8v<Thm?cFN,3^u,mMf5ZV
U"rD4m'Uu*ewp#ks>,o[^v80?G19#Rn:W15tkV2\^'/>eZkWR1E&E%'TVjw%P)FNK
U"8L/E%F-:5*CMD3=Ox?coS-+J6Id1eFSO;G'E&J*KMh6Ma$fFRNN7(k2B^>kYSVF
U"orfvsa^+D'Ln/zQ-<oaqW7)L:,6oGMF&(A*Hl.J,RN$a]N8<?b*x[ge-GG-\1Ic
U"2x/V#y_9lHG(+rf2xW47_TdMM9oy%i>T9-sxs#wpr[Nw?f0FB#=^:+3Al#HWC18
U"t'oEvE],vB1^Yw$^<Ez+dB.68Iud^mcBGB$m]n79kY=gFkr:\nK/ls68;>A$2)v
U"TYw$tt$w/LUAToh%Qj6whIE&5i$JZA(u<U5M..%3=oZm5U,f#r;l8JZsAr:+Ulv
U"Dii)DJ=G)xpJ/&2$tvX2V9XXU_9p:G9O5o-q,Zfk=,IRPpwJZkc.CtOR$MfQ0H(
U"5A8M)jG+02Uu59Je;=,^]vg$>vekVp=_R1SJ_)KJ3?ZJnK2BdJQLa8->2bBH>xU
U"uifl[(+Y><Ja22:R.(V5ktf[,OA03o1N)YQq30\nkVvTdNyT-kGBW3'<n7LPc,y
U"P(_Wr=Fi1;fqT=t3^^K\LG*V8RjdiPl0gJI;lI#P:TAe4L0OoyhXJ3&8ri_>tM[
U"JATWX$(U,LguMpxP-6S#Tn1F^/=cuR.1T$:M<LqI64\m^QY3UjL4qVU[-zQ%MCW
U"q$B^biI1FU_dL7ZG#iVFq5&'%N004zCwGzDasN&s./tX7)7AIJ<9VxL0;0a)M],
U"ueLoz2-0r\(K]TY?.,C20io.,7Q8q1'1?siGBO^-u>hFw^a,]X$DcnlcNZ$WHc5
U"w2F^N2t%_n/39$[/XkjBsh73U=8G;g[hpB^=\Bh<<3oC-.9<L(2[[zP/Be$mk4%
U"J'YcsWi5SkGFc>.VlEBGSgy,;iB[8m&l0/M/?QaO7Q(uLgn#V_;V,?biU1[NQeO
U"p=*6(Tq,J)Ij0Rw\k5Wg\WAQwi5RVpv0Eb5H)dr<J.kn#1RJt4c[d>%P)N&RtsP
U"pfQ9-&66]&:yAm*Q+]PjRaj:K%cNm,gb:FU%X?G0.V9P#&[dG2P8E[lE5y1W#CB
U"VvCrm/aL[a-KUU3%j^/J09Y+Y7MlINuJRUZHo1[3+d1rDZ^KWvw*-YU9S8GNvz<
U"\r'g<t9_]k&gWlJ7WDw#pth)ZK<N3nUSUj,/o6__*T1clSjCk]<?r'2)z_o&mz1
U"lPb2bR2$1jNEW7]g%$yz^nj-+/5s8iCfZ,odFq,Y7qq#121XAUC>Q_IkT/0%_7f
U"P^MmD%?'>8KQe5(Ic[%zL8c$Lh$o8_[x?b4w<=-OSEghi(?IHMSZR$jU^NJ77T.
U"9Jv1_(gb>_4'=8;p]M9D7<Zf#7AE?RNojyQ*C2M'1+R^G.=qDl:*rJxC'O'W(Oj
U"/)[jW-N#i:)Y_3_R]aHO],1F3%E[j2e8cK=iEngB.4PlG^dFK57)?5g]r/'suiC
U"3c&+TtTswU:]Kt4$L*aP^LL<o]Xn_UbxZl.b+k05VBc&_77>\7Y_C5Kw7shFI;l
U"+J&_Dz11Q1EPpTLbBLou1';PHw9%r\=FfaHUJf,IaJ:/8wIz51iPD2kkjndvAFw
U"nnJeFak^d*rO$Zvgl6*7=X+PhS.$G5k:4lgFCci'7>Xi7<>LOZ:FtpHj*UuPbY5
U"s$)=;UtXgb\f)/1:j<xor0Gnj&:pQE__:&1scub5J3'5^4[&puWr?Hn**K,r%3:
U"Y.=sQ-JB%(lq+m0ZgZCE6Mc$bR&.hciN'Jj#=s+:#M0SfsBG/p?6>SqOO-M&z=p
U"vRGL),4$rKFYPzl0H8#3_ehTV'B#Ha4o_fg-e_wUpZx5YhaoK#_=_I3dsB1&[I-
U"=eUNhVobR,tg%*-;iMko]3QrBy'jHp-SXgHh5+^z,AySMweE6:oj7NkO3Eh]-hH
U"W)rm\+sY>Ih9&+eg=J*3Sb)UD<&SEk7WS5gHa,A4sG18AS24mz3LHRv7ZVimGRv
U"2ta#iDWyU?0Og,(oRmtP.0iPZb3O1J-9=?F?Nj[6HOC3Gpb6Nn=Upl-oob<O3S<
U"=n$l'*C/t+saWJ4NqkXNWsDbX9U5_K]B;D9C*/h/$UKR$L'aVc778DG%mWj&.am
U"1T,p5J,s.LsF#cV15F3q%RnCcvA8\Fu11$Wn14;t$x3^RTcN4109u,D3/mZMMHl
U"o\(J6gKLcHsJ(PATik1YtDV*&eEMxz#X$-aS0j_Wyux/cB<ObrY>kknVB#PnF\E
U"zi-oD;Mnm_BiDWQ2Po[fHj&uCLJ]us<EnCAs2=r6FgqD9QYb77xZ$kW+O3&l$X&
U":OSTq%(\y^9C)W]rhnuKGL%nD6Yb/c#L(X%tN$96#h(Pi,bDRnJF,c/^<v>Q=c*
U"Xx:;F,Xd'-yw#mH]DUnwLd85f-sajG.&qC*ko39&H0nmn5HQ1l'EXls2\cQRw[G
U"ra]N1W&sdaPp,r(ma.6[#x/wH)E,E.<W[$5xbCUbR)OhoU/]AJJzSmi.ac.J0_h
U"JMi_MB(8=O&9'?[hl\'#WBPs3\2)GvxnU[KEIGo*do[vgc$]Q%Q-+LHES(yCQsw
U"<3XX<6kt.sghJI&%UvgQy:.0[SC$iU.oIoYVAv+DiXm#h-&(h2xs&Ad$F'J#Laq
U"oNXGt8;UCpsM,ZDUyqSqJg1q%ATY8Zuck?IhO4]R,b+X>Ympli?<SlYMB*2>#z8
U"gU3*Jva?PkWBe\y#L:[2$4#tZ)V_e_ZGjEO<&bqtiCSZYQa,rZcnt/4iK[Lmgo8
U"];tY.I=G3K<EQnJ+eS1KMX_(=I0QtD$Pgvmuum[02\ATQ]Ds]B$HB_^'4eBL9OS
U"YRI(VIraq2$:q$]:E$IC'#*QpJ5lvt>Xa6DTL[hx[?WrRkk31sO\P-m1J2L&h3V
U"qa[4\l+FK=Y)*4(F.Le)6TaN/c;q9QeR/YSXN9#hD6X(8go1P-Qe0MQL9+FekM-
U"^F'qOXn5Xt.jcu%5n\7nPoH_5#wzv[1t2kJl5IN&.gpJf4k12HMk85sO]04&>*+
U"5qIXD.EClb/8*PCUoVo5'YlJ1$O5_q7Klmx:fr]RnTNgD.dB&D&a?;J\S^Xb)#J
U"Bj:i%(S^ghGc\Z#O9FzG9Fhzupc..>;]]wE0BB*&e\ViE'fy7h6i;\JGca8:\xW
U">*)=NG.QXsu)ejErqx9rp#]ilA\zHmx$&QIF09]1u#am6o%HOExL$aBH9+Nt$D#
U";qW&5.+_d(&L,V*3(x->J-wI1L953[QR*aBmicbFF6>D_BrMR.kc#abw3^=abwX
U"fCN1ejJVZYAx3Us:p8#gU*yE9F.evtVeQM4mNm^3KW4&0(rkO'JJwz=\qzWh9#)
U"=GpMQ]MLqF,G]H[R-hxn<G?98mh0&9QX^-.\.,#'0AN-\^8LWquTOTm$UuI)QF4
U"1<spVvxvuc-'Bdg+vx8u?#g^7>_PqsDCsF_w,JjBo1.C0Q+R[?XXx,aT+XM=w,h
U"+LGcoQj?]No>RI843jZi63/EmqPsa*,;zva+;stDUevzg(2KD3%Ld*vt&Is.]1A
U"6inERe63q$5k<qM*od8zsxuTx&)<9[n6/,O)Pn4I7dj<lIKif_Rae;?U/VTF.'e
U"_0'L)c;,1'NU>4n(nhiU3cp(I^rsW;gZ)-VDyx(9ZC\M<0CBAZcZe,:Ud<:xuHU
U"XU6I<iY3XVs(hfB>Y?2<\fNmORCFD&6]Z+txX8e]EQZ-mJJEs9gOd8wf''iK9N+
U"gO5Q-\;<k)Wf*pWnF10sLQk<hiq1dPN2rv+G^_*(bMCy5XcOQpUS33:EePu1%J2
U"%dADu3POkY1?oI'$GU+x*cPhT-e.kJ.G*G8Hsj]AM=%^7'XT)-NA8WA87N2n=G1
U"(N1H9iO)guyas*,Q6#YX/f7QndKD(6zxscghxd%K6-Hn9mDpaekmxSI[2l4GF32
U"UC**t<^NZlU6.xH<WP/JqR'(kV0O[AJ<<kzh-&,>NR=hk:mw3h[,>%t[OAyqMH4
U"iF3>5^O)YlFsImu+VYbT*f*\*Yd1d<10>Dje_e1tGP,pX%E0fp#J79n='Cv-F>q
U"/DM<R]Z&8'O-E0X5SG5]wM0'aMWuEmB0'SCuqC?,pZ>eGnTeYuBSA6Fm>:VXD-4
U"qMY;lRk5?FCOaX2a7:?E#A.hN16?\-MgIAPHp^Y2e,tET%,losiZ[pms8kFC^[)
U"IzVL]iTsR%,Gy-O?%t$$.sF/8tA9[:XwSkrYHD:O#2wYu4lMA^yZ?14kYd+K8$X
U"PT$uE'%_09<FYnNggSUW02.x671EN]%DPv*.2w'uL&P'9Q$mX4$ikP,q'eW)U4r
U"jn)DRev[m^1:??]#d]5]K<^l.JpNmTE%22<oV5Kjh+>x0FWd^TlH;z#+CkF(KVs
U"kr'(Z+RDLNMu7pmKsIE>yGCRa3#.EVp>,$cC2yFA1Ny\f^rL8>[#\V3=bq,]3GP
U"FC3V)V;RP_U*Yn-%7ocjH>Jj79RDp_r:ffMef-9SO9?:Z[M,fqkZ8Z-BFquYzBR
U"x$7^9Pb-P,b4PikEF.-Yjq0jb8FWcPSzp[3k9tsT[I[+#<ws9=C]R6iDUT%xAS9
U"IlSig8'/wO.)*D-W6a4bTWu,RIwoQ6;Yf3:cIV5QW\cvf5qDn2i\+'J1O,s,Gju
U"\R'Ksj2.+o%Iu0Mm4Ykpiroti0bL\bEtrl9Q0HUhmFrm*bglID,)'\p6e^\bpM?
U"fM6^E?]6wMbQ(CZSkPUfL&K^f^/DAM_&ulsWZEc&C8_GZf)Mshkj5Pj8$dCRMoi
U"bJk[T,eHapq+/9[]lwnb39KwJ:ds).Aj:mzwKLx,vnR]LLUMC5+%)n;Qjg5WpCv
U"%A^?RfL2B+vVG8Pl7jUq0Gd+3Q&'8%SGc?CS=wi1Rh$%3n,?]C(SIVNmeS3_uI%
U"8.cHFYjt?CFMlvp/vo0yS;ai,,8*VBI:9e;LB.7gtRpQQlpr8,lPCPT+Yt&Z+^$
U"-B]FXdTVv7?Bl=cHe/9U%u_DCX8AETz[Y0%7\4sr8Fa/?s8_q,7X2VG:FWU-0TQ
U"iIetBwp;i;HB06Zw+<ZR1TH_ooPmv8z7XoIQQB+IzT3z^d^v,onOa)jv(&0-Gqv
U"wRUkKnNag9_&AOpI?8h>>pY.$E18*s/(,tHz_w*WQO$Ki>r+bG-i75k*b_Uk[Iy
U"bHs4#Fd:P^kbtq(oj'/KKZS)l1,%$5*0+6Y>8n[jN.EYrLYO%2iKUf)kU+\WC<j
U"D0xr5n4z%IDp7in1>^)TUnl6Vq6I6*:fDSwmWZno5U*(Q.bZ$q%XdoJ*KQnnTfH
U"_$K-?gEgEr?-O1KTnOQlLt*Uuhq'=R]$/)x54PnRa7V(&)8([/'nuTf/oLP<y9?
U"b65S=yf^&Qhu_mr+MhbWBP*C4w&5g)e:=VKpOeYq2QGtYwu3Qu+GlLU&VG,KIh*
U"^4C2o6<&A3a6XNzd91FG5uP^[c]Gkdo7/pL#:QYTIaL#RmM8^b>#]gpkYqRign,
U"+-X[G1#6qN1Q_3v[br.5R#7epY-:^DiwHu4khLB>K1?j/LU-.CKr:df(>;Lq?O6
U"=;YQd%:V*V#152RD%.*+Q9]T>/bzfA[>s&[.I]3y4NDnQ-+fSd9m;&8d^B)5-FN
U"QVV/<=]qt$OKBB8UvrUY]vY'Kj4Hr.CHqnp%,NeLlPI+H7Nq9e_,<#>]vE(HTUK
U"s4MUQf_<h8iKM;qb%Nab'ry$N(cR23%3NqgW7,iArQ]Egy]#C-dJF+8ecKYk]Gr
U".tI)5k]W5dcpxx%QZ]sPn*C>?bLgMMq8WCfO=K_pt?Wua\FB'_>p4<UJVj<kjGE
U"qKg'0.wWfc7r><?^O]2tFARI=1I/4\a3VWstltZp3V=^<FgEoiG\P:tP^BYdg%a
U"n;-6^sM8Sasx5Vr)(?TuYO7Q\.i\O+Eb=]pt&GIRqa&-xRe[:qawu6Ou=P51Nr-
U"s:3#2hwgp9+>Dbd%82<#4;Qbwd+uEhP+lJH>C/rofB4n\DRESa.3hMJp%^#?7M5
U"z8Ek6W'3l9X_mbhJ0;afn'N$Q.AOtVm,Hh0:ght++n2TlnE>b4A&7G$67ZoJumk
U"6VT&'_S5o0M-1rB-5-bi9+XYsx[*DmD0PAT\tR[n(lcJCNAMnE4T4+'GkM=im1N
U"+^/m?z49bBrmt*(*\d^X;+NlPHYY>vaZ6:,1d,Frp4xltOxvTV/IKc72IHo8H#_
U"*Fu+^[OwaY]qB7lmvzGYpH>kpeepVaI*_\=_iIpE;2wNO1gXbqU,iX7-R=4Nt\a
U"nO?GALj7HYqKk,+BS$ZjamRAhOH^FkJk1M7Tl$3redZ+'u:>h6)nZB*MaO9n<DQ
U"3q0GoxZD0MY_1>YECD54*%GU$Rtr>lrtKN((fBEeu]hL?DJk[&N6I)6AYjRk677
U"v73Le_IZm\pm0]C#3k'q(A)14q0;BJRKKNTnT\t2R5c[[TS5>4\Wi*\#1'w99ZP
U"m[5NY]*QNArq.[vWAFrr2b;+lQU9AVp%nFB8S?^f>;e/)d;s4*X0RGSdEI>l[gZ
U"2IBTwf)ndXgw*MVF*(z>qCb9=D\;A]Y-.?s#moiPJ?jIH&SnB#-4_39Vx:7V6LF
U"bPtq9).SN4?i\)/TEA,^<tBK8wI1XgdoRtnb//)SLj/0deoTZB^N$Xelt2he]ob
U"t8e8l0PtKg\sCgIqpt_+:PKh$(+1MS\L8f;ZP5pA6MnN+9(,$jmx7er/%Q'X:.C
U"$t[Z]_S5U7cq]49U::t)O^t5aDpyO7Fat/<Za+XC_K<f]R9X3DsK[\N)8&.?4DM
U"Q4,N<97dt$IXxLQsJ8fBEO]M/n<1jNtcp8-Bi;nEd>7dK_VhY3JfZ_v-Dk.9tL0
END SUB
SUB V2
U"8L9(Ld$V(aOv)#ZR_lSVcD94Tf\=a*tE^6WM5RXA&vcUi\/Hp0_GHEx)wFRnSmf
U"9=P)CNx-F=*U7BNrGj#\A#Z4;p;ug1'L&A]M8-(O9b*5a$MoZ(DT*f+?CeIo?3m
U"4pr>H[u4xW+NQCO$C0\2ACv79HX^ZC0>^_O1G<Xq]5cYLCQcouT(7_[RiD?(N5<
U"wFVIOW-m_+%OTrQ%I+RVw:O<uqJh9Df'h3x\F.lfT.jW$;Q>A.3':'0tgTWr3't
U"8m0hY8H.*u.up%()9%%%%-%7%%NK%K_(#&'7%%'6a%%%.%%%%jRut%uSgfax6$f
U"DEjme$xBsW)pefB#6FjAFW6$Y$*RJ]H)?gZ)?kqL'#,0I'Jfe(r+bw6b^)T1P>+
U"Dz#/McsR]$,zDC*uDrdMP&,*0oT,-w8drHn693xpjPBn;Rk3(-U5m?H&8mU<Iw'
U":pwdR/6r[NJ7?A<+Ponr-Zv99BmX=lRT7$bsaWSSI&c=uYdV6kbszFFcR4%0JsQ
U"fMUb57K_,-Y2k;[C%DD,:Vo&jLa?fh068vRc%KPTB4as0VKqKEl#14DrlMl_d+L
U"WO0'7HdiHROh;7)8B.['9Jw0?4lEohgpX3Jdb)6vpmD3wX=bpd4YxD+lcNpK)SK
U"-5*K?R7e0R$>TJY)%LcVq=u1j;%n8c7v<s%'0y_-MC*r0\-3SMn4:DK;k+6cY0i
U"HnSDCL7ZnngP\)rf8h;VrZs-0Xh*PP<Or(VqlHuRyjL=ytpQRFK1-d_ARi6;$qq
U"'*Rp4nYsN+Wm0IV+8O+RXUsx&0-mZMCDXSg_wO3C<ncwF+SSa(-z]ja=CU$efWq
U"f*g2:ZWdekVqal^FC*)+m%<DH4]v*rp-jS4'4dn%vNaewzjMpx,Qj3+2aFoOS<f
U"kI2uuIdg[xT6^^=BMCoTMFi2Bc3BC^YX$WiyH<Tfw,)oI)J?%4P--jPL*LPiw/7
U"aA>$#+43ej\u=MjpL21mW+:%DFQ[QX\EpT:H?hK(4ICMlXs,hPWP$P*a\9T$-$$
U"deu/j+&qjCjAXB:YYZkvpnn/Km7D4:DbCi,l;<LGeI>x$1.<_'=UffeXp5gqhL8
U"1A+8'qs/MXN]Ege.GvxQ$l6f2UHp?^M(bUuhP9NuK/mro^p_c%*e5L4*pA5CdeT
U"w790_3]uPrcDvh<5]T)XtBu>g7_9aTuLnXV]3k&L+FIG5ol/X:lK5BNEHG0Q#<;
U"CfJdmF[mO&%.[NN[tE^5m.K'#H]=sgg*#)PmN1:7xlNIuvUDLkON<b1j)1\-24L
U"A6*td]0un5BNh\dWbKton)0Tc(wtpbrEXEZDcV7vtdi%GI,+&OQr);q*[cGY^=V
U"V<<+t;Bip1g)A-fh=E;Y^&Iv=IzpQZ3UNMeG&mK_K(<J2cqblE&H31,ySnMQt[<
U"pG);G5I.GK5U*5KBC0dJceMGc$1Sjj^o'o\tU$b?qu*Wp;Q0CI+h3&8vxds_nf%
U"'mD<QNo^iPxA-j%+rVTGGdP&-wrsUo$fCuAxCPO:q\c?y#d4Dk95FhONpTr6Q_+
U"'PDTEn+L?U&'[4WLfyIXG=m^)m8g52G[D;Dj,y-V+_mMhknnUPMa4ji[=:9&y)w
U"kO:;JK$i*B>B'N=6AFuekC<^p'X&r(20]C^Lx\t%F?4^f'SI_EazDQ#FD_=R_cK
U"NhMA)RF6h/F5qIyY2$Nx[;:QA3z^1k)5L?zS:7i0^ZENnOWX?6T(uEgm2G5DB?Q
U"#4t<t8c.U]J<0DH-F$JT+M&$+OQ+DdyhnWj&)5xi\M_HJVfYh&.$$d6q'Cy'Cw0
U")NE94jUj0StF85*UNb$jg)gD;Ci3xk<oCpvhni^d_NhaC)^46RkfuekNHGv*+2D
U"UJT5C/o]fBKUO=6]%5Y#Z>^V%(9;JOwh[Ac>Mbfc*In0c:I=72k<2[Wh>lXhYtI
U"ia670rx>]Uk>5C.^2qYn1gcIc:+A;9nzL<h).lU)[9a[Kr_taHgb)5x>de<2a+m
U"h]SI.3]_+6:f-scglq.rVGI0,CwuvWKMpNiY8$/U1+k?S3Z$eu7+ar-ZmYt&FN,
U"xjb)Z7Pda8VGm1/^iAQMYj5X^D=E<SwliLIl&O1W6)S3l6;_+tpFBp6)m'1$Vpo
U"7*laIoMWLz#'kMDIh>;A*[7:leOrW*1PFm)1L4[;P2kb2*,xFfgngm5Hf3nlERO
U".Oq'KoJ6I:fOVjQS6CS.nC.e5U;BhTCs[rHGM.mc:R[sS\wW.-7uc&MO(q?%alJ
U"/s%qq.]MJUuW1*]48-U[',j=6Kpl+w.gI(&g_#>=s\0#JMI32XS&Hh9Ddrqup7x
U"#qcBtDxMNt2KK$A\wTPVYMY$7wc4_qgn0LxeX.64OdPCJv8#7gpJ59W_5J9ij*O
U"m/$o2(e8FVB]_iML:)&;w:t$.44d+i=h]GnZo'nH8Rypf/14.JBj41h-.zlDx'k
U":J7:SiIRKy0uI&WJ*^tC_q4csW#[h4-T[_4,eUg6.RjxhM$8(j'MVkLY6WotW#o
U"6)c5TmJ?r>2kp6Va>LtRJ(x%[=2s-wskki(-Me5:ZR<si*P0uFjDHGwx:E0'R+e
U"mEQIl_u[$Cjg.eSl=5hTh,o(?l'1B?.a,Cn'Zi'HJnyoi%cp1vm>vnT6)<5&<.g
U"isDwCh9WX8BY#5V[jg3C7QJxrXQ1_hp^+u(&y')eBm1=&(]9?*a2Nu\aoc\TmMF
U"=G&j[1\1:*MQ?a]^_lEjYF=9[*8erJo?,5&P'B[n+0?39:oi[psz40MR\VQa,)t
U"qVr-<-^kHY:iVcfsoeXm2tUmr[B?;EddBHPT+wM-yPKd+wJ<<)u*j^[0pX5A<7q
U"FZ+(h[*/]QS[j/hHAROU92cN12POsC$<-poSq22,8DvFPb_nj1jccGP0M?[vU?Q
U"\$e/1mme658QP[lR&BrC;6X$bg_XF%&%O.z=Wa$dOP'A[dN%ZcacTk2S,/M[rMZ
U"5Z(+sAH'(DlV-Jm=yKu3CZ)M*inF;WL.2MRt*nrs8MVVj-LD[MHP9q0w3ZOqhz$
U"X+TFls'n5-sk#9>i7]hf*fv3(JE*gGA)21df_:%4$d]WK,Y<uj#U-Dh+7B=\\hX
U"L51'wSWJ.Ol]/2?jVB;Huk:rlU^2uK3DL^np$28HQ,o%$w$N*n3SWNA]V'E]ZOa
U"PU#'sBSXZ:K[uVb5]1^/+SMJXKE.<xzM8cs4MjfsmGDK<^qAYzcod0on;>(S?PD
U"(F5qy1-6]M+N;DyAxy(4Gt&OI.rLHO>RI=U&f?zO[%52OsWnNGetPl,?sSUZ.Y8
U"^a3F7i#j[3HcLt%3]3l)uvj.4_n9JqW^d[+RVXu>I40B64inES90:IpLX1)^V6F
U"e(wgKrn*yXkr3h5h.7-Vj*ahS&gBGE'7f_t^CQmT?H1=DeijQ+)^4Hl'SrE,.$6
U"o*pzR&ou<GTMM7in3[6pSDfSDioMCZ$:[X;2g&R4\Ex]H:bxRd&'jL^kk**m_(U
U"#,Ne;FF9LjT=$41:)?cLE1Z7c1#aO>Yove^kVj>k/ZNRYlj$c='eP^h+CMUiG?4
U"S8d<)f>CT/h_0*su.Q.ap<w]QZWvB6%XRX3W6/TR,bJkkW,Lqdi%.s1?4jwX,C6
U"IhT'(^h/zM+,cwP1fou1VsdF^']nFQFRkJ%K94yNt1/axT6/BSMy=*1mk6F/SCu
U"O8Qnj$K#04ipzU/RO>6oZP*xJXFbPI_jQTr/=KZ4i>nd6OrU'Dj)%24y,Fm_;0u
U"T9B.%z3Skgr#_#7DVcwe7&[VN,rkLYbP2X3V*IL1QWmwpYikj5oF3Y)0U4WnWW+
U"JUanLU<#(Q1.tolBZ;cK$[sR0bnB-=0)6*8%\PKKZJn4m]z05ID<4*Ul.2;MWct
U"iHSPi4y[D&eAT/Xgb%xd\ly2=l3HcJ5?Q5LTaD^G<Yp#k+Y:Oc?#[/^PPkt++NN
U"EKpr]j)g=_\)NE[8r4Vp]jlSoBPdkywH821<O5LA#8pvP:]I2CYmN[XnvH/2Mv\
U"8te<&rp-\C:^edT,<LCdol0,4Xp_wsH\OrKE,Pv^6uYlmNs;L'XeMfRS(uW*X+(
U"l+RN(p8*=ci[h1(3uNfp)+8:keJkaTWY1(KIBQJ_kpOwJcl=\ktAjGTeI*pj70s
U",<_&=iP10GKJV/?YcF(G$rzj(3<7S/cQAke#s1$LJx(df%go?J/M./%I++&7;co
U"X4tjPgWZuY\owXU</s8IF?1.398o'#MG<$WeGbn-(9Q:m&I:\M#+:'aNb&zG#bj
U"An%m(V82-LfQ%:t83SOpRKE0,Yn=:-1fD\i;=7yUYx\'d5(nm9%c\faCv?9^KS?
U"A3Gf2Pz7DS5B>%F2\8(7Qnd?okS+([S,P]>>8DGnND7PaI.OoQ4%X?+>WLe1497
U"iCL:qa)/_Nn)51M6F']>K:2(Wl7D:KhJo/Mmgdr*CaWRH)dl9#i8mob=>+lbnH>
U"'*h(WQY(U#6*2^.*ae1Mr9-J]lH+E9lAFiNB\tWUzCMj%#Rt$qjp>UfetUP6'Yy
U"<]L,I>(3toLQv=j)F2YYd3z$N<Dp)Lk>R$PlM2y^%L,t&/)w$hK0pwUE*%m=N;8
U"_jmk=[-Y5jcceQ5HI\dWTFbK0(l5)Wt#3qY&Ba^mCZI6/%l.?_e'h/t_Wgxeisb
U"4J'JoJ/vcu:xN,jmLQkTC-G7XV*$K+JARQ?D1BliCMv/<\<OO2nG;ZoPcS#_En,
U"'-?vUPIOB^e-hQY:%In6QZfOK<-&chRdJa)9'Dl7zk,aBNos)=P,T'SZV*SCb,;
U"IwA4\JA5''_z:bn(6s-g0(i.?9wb[mDjFa%**rghYiRCIu#i'\PLj)5'9:Qq]?8
U",z#p/rnQ;GErU.%e]Zkc(I]i*d1n(F.h8z&pk_dmL8pWk_\2PQ+4^3n^'%)BGY=
U"M?8ZV<po<.R+ZBcubWINnHdU;sLH_:qc#D%6[<v$MPljp-pMYlnClYG-;k4S<RO
U"&dvYRIT=dGJ;$p3#l$URiAXDJFNcU/(h'K.Iuho\lzi<^RtEkImwS#5*GXjFcZJ
U"z%4$b8S-Z?$N4S#vt,_QB-/2Ej2)TD^/aHi$lk_YD2buK*$t$r9CGSk$rx?mBmf
U"3I(T&7%#Ki^\r=Mq5$<#n:S'V-AT(Y'U57fCvOp:E47i;lwa,JKEsD.C8h[hF\k
U"HKijUN5>MirjD:oP_BX&>dMKT3XR=fp[1ZH)[,ORcrT8ut?)4xt%EjC^KRs5dPr
U"*)S2]3eW]P-I9enb-1THfxh-&3vE_T41u7M,bn)1\PeBag;5as=hP0%^&L2dxPn
U"BInaqK9m5$_b,Wu4Snb)v_6O2W5z1*FHNP-f(_z_h1z:gnkDA&PylNr+4_.dJ)X
U"=o<;</3Q71>pXp+iaCD,r:=tHL7;HO[5CQghqK)9[:_6/;CbcigEE+,M.::IXt*
U"eK*B+U9sRC0Js['v1%gIK3G4xF1rIp/BF'9MxqQK:wj7$u\kU[X?s<?Ea3d[e_Z
U"CbP(y:5Oemq/TV7<gAAUKb(tki<dZs/(Ox7i;'/YJ<Z'%Mv*hiC8U4=2XZL/NZw
U"moUCwC0fE$MfAqT(M=sg1z'2WJ.Kpl53GjG.+?47:H,NhMjcV9[JC-zr*/oo$<P
U"'wo(Hse8q[n'6pVF'?3b0u>cB-hcp(VZw$'Fi0IZ80UiSP'btD5z[sL<3#1HQtH
U"X[;pFo-0NJ>0p%X3b#w4k3XcQxM;T*x(l>RzCs26*WYYk0m:&n>cHugk>s;AxKo
U"YDLk$+#D)PIVpB'Bd?AbMCrF<rQH.v^VK/8ZC53>zZ*9i*rY_/=QCB%sr^[)mSw
U"1SW%s(e=:QTpFsF.L9iZlec/DV*HwRW$]JinkQ569xS7JGT17&8&(]7>Im,Rh)g
U"ZPpR'L%Yru=hLvZEG?d)Vf^r;ml6,G$g29<=[7U\EqgxUU$BPsQB$rYb?myX-c[
U"f6,RhA0p*q#;R1k,bU:M>xM1tn.1*sjuE5?,26Gu$cf4ttx1J,00)Lom,Msts+S
U"[r[)N$h,uUS#4'd7O;L3Y;Dr?V+wkpcNqbFHP(EM9]0Gd.X#B8;oX12XDf?dGnq
U"<vl[UiS:lPh<+LX=ILgnuf:S3ih=%7nTr0Ti'2I$,MrfB16?crnz/a]JArbEc$:
U"A/C.aqSH(41pH;s6hbGF(AR:$Rky6wh>&N#^x4+T]22TEg^iqq*Z5U=+-^.PNUo
U"NC+7m5JJ*Tpbr4NZ&*6<ubMX7-cI]qhdRTu6K7vgI6Z\cVaTLXMTo4b</*NK:ie
U"xl>%Pr-EM%z-_&PocLRlSS-xf^gDC1<gAtBdFF[t_,Cu2df*%JjMv_226MU.SAP
U"UpwFqx%&up(%)9%%%%-%%+%NKrQ\x;N#&%%7%(%%0%%%%k#nqj.%niSiLn)\b9F
U"s\U:9TpHBj3l,7:N'i2(DE:#ru*<f%[r'LrAj'7][k4XOe_tY5:EA\s>;5%8NRY
U"Tuyc(DG0BlZtrQMeK_'8b^7bY6#>?&R+Sk:ck1bbcntJ3aa^6_Pb%(viL[rJu<S
U"6NB=9f0n8QG%D#]#xovVSS92>_K3QkAxD_ZUrAaJw$utYwpWp/v)D6:/SDSS4er
U"UFePR0.<1.YC-Gn7tOr=ewWh1,\]7$3s3?kBG)UdxvbdgF-XsskJWq/ELj&Ml[t
U")[nrr[>7SRt4gomg<2P1uN;I)HeeutA3+EErAy-2qGUIgh.7*(qKW[Z<;$*pgHc
U"LcjI.\aqgnI&k_6avL5-fer(=edRsSFdN_C4fSLpf&<+7bVy/9N&6a7Za^MdX_5
U"X6?d%\:Fz-tB#;VB>XCPkKWJxa[7E2O['uf>PFb7W2QMWR>tr&Tg(.#;nhskjOZ
U"tJH13h%Dh)]k_jY93pLR:YqGfvxui8l$%>up(%)9%%%%-%%a%NK=&=)9X['%%L%
U"+%%0%%%%z.pf&q%tlSgIfx\c3TBieX9?Xl$jN],3kornHF.Z]%49;hlD>0PC_HI
U"EL#h1/s9KsX/Ff$RGkB)n=a$0DuX2)V&]n2l.4M'puHY/hVPb5gA0Ke6N9G/Jil
U"=vT>0D(jT;t>:tNIf9ZbRAgF:>'5J/*c)T/hdsE8oC_N^FLD6bqB'eeDO7n_f,I
U"fgz6d7(0r[&-Lke+SG4%:>%OY%='>f/p13/4d==D=J(Sy^W?&vGD+rr4]E318m4
U"9\oB[U<4aRW=Xc:N3IW>_=Gv)FzgwY*fnqqm23qj8ohX[jwAah>MrH9()3;<fo.
U"D)YdqJhMLCyRNHCMblX3oZ\]0RP<U^Anv.jdCXp&vyN]$7p$9F3tq;1Jd>pieX#
U"cI;3:?#SWL(eVV^/+g^zVIkB9?1UC8oRfSxguZ:x.j7[FFGeo0?Nu?CG.GYg&,0
U"rPfBIP)D7896k(um01T6fIdiqXp0bgcK#]I$).eE6UW&2B-XR*R#)s[p8R_dV/U
U"fk(&$t)8RmX6bnWE+p&,F]3fPuAXC_8^e?)b;(wsfIQ4<],2w>J8_=aiDK(<]05
U"BFA8[/7_X695h8Q=1=h:TKDwv]GEP%ao3YLz=SKJZB^#[vijpD2w2QQbKKAiYMa
U"2\KaQ(Ntxl:O35B]2**nbV>s:H:qI<;,:XdCYe)BAM0wE)PbNW])8YG[',yZaro
U"iOZ7\0-25Ua,>xVUCy\Pp4w4ebiW_dq%dup(%)9%%%%-%%+%NKAI#zKs[-%%b%?
U"%%.#%%%&%infq%SgfxT&=t>nrkspaovD7=hg?YH/PsE'0L\s+4TIfFp9'kVC*&y
U"SX>Twd=]5Ut+o(85HiUI-T4jvmUXXtpbBk\p\K7xrgSv:3srE4FPmLud%UTtMtp
U"hK0v3vI\WH5Hd9Kr,K,B..*=VI-.6:Jx?ioj&j61]pU]Sw]Z8wnO=m)RB6L\78I
U"Dy]37GgZO%-V&itviqq^]y&6#rCmKt[uZwlXk63<:3m=7i*k_fj64a#xE=R1DsG
U"h'<L-G)oJ1>(ku7/UhWL/[<iME?0YZ.(cqYAcWYEs+'p]Es>q0.ubpXnsAV.PBG
U"g,TWTE-i.$/*ZW%T2-oc%C6M0ln8UP2=efc$]_B/<*$oGzL7FCFZ&iZ+fs-;MAB
U"cUnAU+5\)q823CllV*Cl<u;-Y[r*YL$I+u=o7'vr8v$F)-xj[-<<OYr+Ar)=hO8
U"*PS9nk9\<Ra<Z/9>C%6lI39*<I568=p3JxV504w<4uGi4U[QXMk2h,V*m:LEj&a
U"Jt]>?I$*8VpR9B+b#5'V-jok:N_s.OoJP>;tWq&+/>\N^%%]VQ?b0TnWuH)Oav)
U"Fa]8PL]3+Yuo;RA2Eg^nn4wonv<$#8YA=^r5&h-lYR2Ub^EN[6.^Qp-&tzn\4Q*
U"U;p,^ul7bK:XPoqr0(Zs&v[ln<#t;d/JhO_Dh0nA1bEIfi^]\V*lQ]iqJvO$F(H
U".s,hf*?7ENcNBs]2f#dRn+q94oJR2CmDXWVSv&>o\'VE?BdT1jGQfm$t_3bc[J3
U"BH4a\e$gE.(SM?N2g=_qmgtg8U[m46ju8Ma'T0LKhq.yk2Q$=35m$mnDWdZ6L/1
U"cs\jQb9hA;RqVV5P7Z\Bcy^D(bvLhb1ax.;PQbkl?-C7#IvV]t<(C(OPTP/K?17
U"6-?%8hCbgZR[J=sMj6rq,]HLCv[Rz>uY-ATCZ%9U6kZc;UV?*DL,[tNM]Y,IljC
U"oB$T^tVXTHv);9(k^DRrOOaU.-'(6s(-;FIR3N-4d^trBqki_s5osu#<ZbG\mgg
U"t?n+9KH&6HU*OwGdUCsw2Y&Q&9xRZzIndV>aVb#gey\OF-:h2wCQ;^oNj$Jm&6^
U"LvLnN'Hk]UG2+muTZoYPk8?Evfan]hw\/j9OWBVTPPUxu3%1n#oVJkMv<I2P0J_
U"yk%w%teM&^9u=r^t(yMhYK.2A.W4[IY.qwGDHsgc$k-EUOMLYSAz&P&_T]<p(59
U"6+P00$),2O)c^5j-+Ub,>9oeQz=7]RKD_9kxWRTTpiFe:h*#giL1y)pqnXg2lnK
U"jxNTiOJ([t=K;goB+6TP<jx&OW]x.T:tKRsN:$*Yc0U\:HnCqdS_SB.6#s6R\Ip
U"kJfP+KGeuo<u+X[%QU2pfhE&aq'9m+GA$O+?;,cJ;W_#]Wn*clN8q-P9AmTs8D_
U"q&.SSpzpPtGC7Oht?DdB;N5*^FToqXR#L6]]VU,k/CDMv[XOTfkQtF\aSm7;e8&
U"v\oNohkwWs4X]9gJ)XbVIi0E#JAl_JHuPbC2Iw(+f6>=9Olvx](m8T2-4,cap7\
U"t-BqAYRKWc,J+S=k>-xeLT.N.8W4IB);W,jOi$b2CAmTWw3M1xTFAAOHj*(nB6i
U"Zv4^gQ1[GA%[k'8dKuSl9C;nnDBLd%AUq%9i$-hqK'YHf[yPD;oC\;9\-W:*?9k
U"+hF1^A=sQ+V38G(b,Tqg3RG)ZQc-0S;)n&jFnFPQF9i1_+KBRy<(NIQAOZ8DDeC
U"P%rME2],*)jf_'l7C&<,H7[lxuYa9'V^[RRr\--h-N*M%2bh:4L*CZ=x.B](/>h
U"/lD4SeuNF2DG7B+z3tOVkF90S=u]V058,^r3M>E=Spe:il4]R%8fW\sQFr=&xy5
U"Jl-EXShA47[dGR#q#:7VfYi3N.:+8(%$cxO-b:Yl<RYprmblPWOh)'AH#smzH4_
U"tKLhW[j'_P?Z8$N[q9B[yQ^WCF3bdj80gNOaS(8*6P?AKrAeaX^<o6f&5R)J(HU
U"LQ5lMB7]uMFvMksbfvtKi\phVtbAbpMTvNd51uWwQuK\S&)N:^sPqtH_uAl<$1?
U"V.gH4efVD_h/K2K7V,viMKob0gl=d[fDl^IFrp$+i'uGX5NVXFRldSdNw?ut9su
U"=Yrr_HdWs\+avNlGXxU_Y0Afde);5K^8*B?xx^C,v[kpSADgpGnA.OI%'Hi,IO2
U"*=;b9?F%SwkBC0NYMw_nN;cUdGAkn_TA0/6OUJcYw7N;555tq_u+':;CY]]bt%5
U">ws3;$WY=]Yqm>ph\R1_UC/EhHxI4V?U.Nx.weBHVEyf[%gR:Fo9[AP0:v.M1n/
U"dMwpU1C3:lmdXWR7.;pL)APtWFXHV=AJj+eIzo5uLAEUJ^jlZ'XF=rKhEvhv2*2
U"hrOj$9HG)$BytM(9qOT;gcsLcG+-n3CrfZm*1-5C?s9(zsytg.$FuPnbOSxx(f_
U"CJk8QG<MztBkSk)WY8B*8Xb7CaOMu'.0%=S\k(Z*qk=:Lx&NFq9cE+./S+V=uCq
U"n0cK]8NSjde#rsLtA8jAiNsdf>.3Pj^.,sO^I$RviR3S[cpNv,;&b'V^pbzq+S#
U"FK/Of4'WHBjjqu5$Na%Ir_B0$AwDMT5dP]w^di]T[SDo1GPtl5<m5bLt;w;i[GK
U".$5B/:Db0lJkgWqOB_tL)7p(K99%,>q8:?J8]Twun7UB')2YCuTsZQUL*G*phA&
U"^uha-d##Nal,h??&uOw'[c_iK'06+;h1mP%N976aqA?+]$<6WI9i_:A/3Y6hXzM
U",FvhXmF\.TGOp\ouO_XV&=/SN,%]02Ho+OLdB_nFf2u9&?RU-7mGZ/>V<dCX,Zj
U"qL.3do:^'x<%up()%9%%%%-%%%KNK>y7*ki'.%%0/%%%,%%%%wf%xSnsah&zV)=
U"jq5W6^]Fhg)<w6c(dB,tcr950<fG&0e+\1o=yZG;ez/N*'W2cXnBs$9,U)40?EG
U"YD(5BlGEkrP(u89(?i.\sU1wOj^r3XoD\.9?sPuWLvk.2<myJI_-jM=(:z%yBug
U"a+sEv:pXK['fm^G2Q2ZW1XC26]=*s[u5WE_p+[l$LgbR&&$n[QLe\k%dw'CF#1n
U"Y(c6mZv0?1j[g<avSU,;\_H67CkPDKZ7EZot1vKpjaX_=HYH25f68)Y+3q8a='*
U"p)ajZxtT%S%S9v0y:PU&qPc*Bo0s\fNO9Dr7MB$#x^\\V.AH[MaWlcZG5&\EF1J
U"i\=S*j*.)v<\z)9H9GagdA.pCyR]_zLrOUqFk/UO2f.umqFr1z<3MR82wneiH&0
U"CqgEuI79Op(4p#HVUe]9Hi>4QdSMUGE\C0UrKTlZT<t>Oh/(g-'P)xkXGC+SqU4
U"Wn[okVeA(9b&;g?-vY[;Uxn=MUv\d>J]YXY1K=5.QT^J)F:gWJZ^rnquJ,-g4iZ
U"$bk?f:>6379Jha'nH^YViUR?1-5V8Init*dIX;#JlyhI]&kM&'kKN7>=Qr4lJuU
U"Z<[ww60(<Jn4cWrZLm3x]9[#sCh,?'QRBsktVfe_or/,w7U[>^YXtXGEM5[p4%>
U"z,6eREql9vg\]AYBc*%_dSwq?t&DDij&qM*d8gIcbX65-gR1s#1*'3>Vtj#T<ut
U"^_>KFhLHzmJ;Klb:[v<c%uAzDjh4K1>SdwE(Llf+BZ=gaf9bpx:b1[R^U4MRi-V
U"AjD:AacS9^fpS3j54600?x:jwG>%]v5I[=m=k8O>GUSpbi$PWmuB#+NrGF-L*c/
U"I0gwB[jcU:>0)n'XBQxCW+Lg&LBRuoEH=8H6$^mf\>uhs3/;*\^Nax8p9L4i;lk
U"kYmee8XZmL-$&XDd6P5v<gG'uLn\Q&7=06s]j*6)0ej?2tN(%QN%&up(%)9%%%%
U"-%%a%NKi,M:fe#%%%:%%%%-%%%%z.pf&S[nsh\r^Apj;FAmv%-pRO?GEHx/?1%-
U"m3.km;BVD]hee3]g<0$AHiBtF-DEn*UnHsT?134+Q:^YP)A]**-A3%u%p()9%%%
U"%-[%%%NLKyxO&[8'%+%o)%%%-%%%%zpf&&Sugjw6c8&=8f5B?dpu)W7uO*Cr07(
U")bimds*gu0*'#9&VIB_mS<T;1^*F[#vM5q_osm:-Ti'aI,b>O6qF;3(3bEOuo-d
U"RurlF0sX4O.$O=rKtu;qsGt2Asqi=)WtcWFcQF8#XGM'C?U3h$DovA$nO:OLD3n
U"QDrK4m<Du-F7Fi3];\YBvTF(^IrJq5DMx'Im4a^t&8^%?Mx43-PUojfGC%j6OHp
U"h87TR-mXZ>;rf3*/-0n8S\:\NL+jg,lcQJcK4R%pRm#AL7Qh]S'kV^t?*^aw)1<
U"\u2q&GqMlX\^\)KlBob.,9Q#1]Xg=Ob2iXB<bn$39W+&Luw$e$;Q2FgFa'dX]*q
U"HjH]-4ak_pGrj+ul_u//'l3OKi=H,aK3Bc,td:cctEA(A.a?KtZEt%ppK/0$*s^
U"[3S]3VI>QVd;9du<bxfFLW?y#CHu-b6e0V4gZe(*n'ayrtc*paC03Yud(&z40V,
U"q,ICJkYQYNL8WUSn*-HVD*1cDVh5G2(lQ8E/k9D%XlUls6v[gz-JqH=MdD<ek7:
U"*g6[h4DFkcqyC39\9^787:JLRK#>a6s86>6UfJYAcZaDuOsfG^-&l.Lu(WTxhDf
U"%vXSvG2Kok,D>nWs>c;T$2eGdE/H][ZU:$Am46v,&\\0<^8XxHxg6lTNq+ppalY
U"Un.B4-rN%%up()%9%%%%-%%%9NK%c8+4G&%%%<)%%%,%%%%zp(f&Swah&x:)]jU
U"596Hj47HsRz/e]8S'2Zpm)Za*PG_IodIGT#WO:)$<bY+zxK6]3zh,4to[502Ycp
U"_2lRa1g>r1;D/KcH8+;hh#ohY,lJdBanYjvAQi4B%w7H.EMs7gCNfLyUGNBDZUY
U"XhQqz:]W;EJkl/*Wl/b.;E/Q,WM,/Tk&J;f%JDfK1JY086>T<?GS,M\pd\3fT]$
U"o07Xt/xV[<df><:\Wok;Y=e)WmH\(f(7%<s0=Bi:j2IYf2N,;o$%s[L^SF,#84+
U"jqNIpJDsY%I,v7U*.=Pd;5Z6M=WscidU4#>q_r4;S_l[0XykvJdn%8XK1J'CTuN
U"/JaBxU1C]?DN[vs\V0gYV5vo//BQ0.md9o0:?17tueDht3RMG]q&p$?FbC>11hu
U"ab[].&xUZn8r&T=m+k].iHFfxj-KJk9mw:s<Kf=#cX<3a4FUAkqK5u/WRNuDFfl
END SUB
SUB V3
U"[XvQDV:(4h4M(*$dpLae87n]v(><w9.ESn,>6p3nUzu=Q?A[ZP,4u*w3CcILkUH
U"B'Q4_>0oujixH5pi(=w'Hbl-6%&H,4P&C?u4Omjh^\RY35P7L]uAW3>]MPjXuZ,
U"<q(u%p()9%%%%-[%%%NgKS_A+jt&%+%M)%%%-%%%%zpf&&Swjjx6c6,=Lu9l#x$
U"+7E;=8,g&mu]KuF.#85/\M)aYe\e2>P%rQw$i+b%b*Ip(Hd((><FXj+cKX^]Td8
U"M1[t)$_W-lrdD^\1*I$nDnDTdp,a$XP?Gn:RAPoR4.(Qpe*Ii<xz7tIU4emT^Ts
U"?OuwhsWt?UH+*5vBr#lI81qurAcPvyF&W7\a9\^NJXWsFJjJqDk7<N0_3WcaaCw
U"_a;k9%50v>7g>=*tcQII4pj/kJ>hHW3=;Hnl.jVH$^ii1;f8eMKlgYu]=*O6bK:
U"kTb*Lyo2'$#'Iqpn,h&,EmqlZqW<v2HX$,Y)ZWVpCGMP8/OHb#c$dSPfbgWtUDk
U"FZrf)6miOIA]5S8VjTdtT.ZaVu,]OTAFR7z7t\6FPqiF+&k*QDVPbRso4ANyziZ
U".t/KhE*jY=Lp;U,];;YyQb.Y<8Kx2UE$4?UC3Yeudt(7FMm,,mNPG9L%u#Kw*CH
U"3?MBTY&)&=atJ367C6UNMmvoYuU+%Xm::(\#_eLsuw*tGWb*ZImKXhRawof&BL*
U"wZ+6ryypmFUHnW]TicFg'g_$n0pQwB69NHJ;l>^A5cQ0x:e1[Le;\#QtMjrlCbg
U"^c>h5CwMQ<07w?]D>^wYVwRz)j?0AZX2#N=swoDHLJH^A$GbBR1zun%up()%9%%
U"%%-%%%TNKVA%P&S%%%%U%%%%-%%%%zpCf&S%%jw0pmROGE]Hxv)%zuOX'MXWoY&
U"[^AmQRBA%Twv%g.U3]'$K;PQ1$6s0_%t%%up()%9%%%%-%%%oNK:7&^;Y%%%%^%
U"%%%-%%%%zp(f&SgIfyB?YDoi&iiFB\W^A/YL.?AEI[YW#-km(WhR+Rn/+H+:GO[
U"s]<:mGVkpW]Z&/g4M%*%up%()9%%%%-%7%%NKYm)dh'</%%&(>%%%0%%%&%jwx%
U"ntsSCy'yl5'V=#T2:7.>/XZyn'YG'gk#aV,<&+&:9*W=T*B:A3O8jGrY7GE6)[_
U"xqa2B3X0Yd-W^9X=WXs$_:H(oM%jx(so?X]r?r7llQ;6nFJ>k&LTq:&bak4'Vr%
U"c,KOHe,eAu73M#VJOG%yao3%rzpJdaRKuof\p>sIxXHZ0X-iuZbYRi,1g9uNJBa
U"m9?fbZ6x]&LCCrp_vSS)7,LLnAASOC%(=Tj%zPAc?-]:t>cP4q*W9JZhaSrlY-#
U"sE+>S:[7jyrkj.d#b)b2Q:]S/zOA_2?SF;C9_5pfycuT%CIr:dMH\nJ<;%BnfGV
U"+&f$Tir^A9S*rL10vumh]tq&\JWhfFJ*&d'mUwO,fDcAO0$#%hiM&nHTDckLU;d
U"_ey42ZG=?<b%SvU\-';E?7RADJRm2\3NkEA^D[LKREi')FgWSXq)L0-6/x0$GAs
U"MH7AL52(o2e&REZRJ3bq\N%*0Rm0\CZoO*gp9CTo;K5dItNoka)6:JSR[tD-WwD
U"UJ$2hB5Kp$Hv.gr>Fvi;%Z(TA#q;>('^rJGGS]&)mn/4Kt'r\(V[u8iE?Mahas[
U"(#e2DasIpfdaLJk/xBMA#oj^8o;]K7=YLq]%R/b1xjibF/p7%7A?mps.K$JHfu5
U"7?A%:l1Nep0w%3Sq=0UNl*>hK]ibb\d)P;#9Pvf]?Ga3H[)B[ecj$VsacCS5o3P
U"4A%r*rr2fPm._IP*&\2bBU\IGT*\N(]$R$Oj0Dk6%.JgX[:\y)FquE1NrNGXHt-
U"mlU'm+V4usmXRca]9wmm4$\/zNs;,(o3nYsiI7k\,7IQ(?eP(2VFqBJ6'FAyi_O
U"Vxx]]R]ifBnp9/4PW\y1'UC9D[SPl#o8J$aS&0-B)CRSyXHF/S*-sj7sS?8%?DC
U"t./J[o\atWtQ1\MK14iTpZ'GJ$7oPmfTWmQJ[H1>HCMB>915jWJQM;/jRV^:N+8
U"72hLS,n:oLq)kJ_IEI))QbV=q]a.AYQ<RITmeW$3?MjET4n5BIq#aL4rabQU6<v
U";E6YF#sfebikp9)u*7z/)&4(]<Wwb^,n_oh*j2):-)3fHnSpT:cFruUeeI,+GJr
U"wPzBb2b&QmTot#<Dg#-Oadq9%N%E5IB/2S>#h3tU4YCIHN$P)u)ZfX]Trfl]jE.
U"5MsCV+qYZ/;Qa7Lk+N(o^#0zkg?t-:m:o$gHfRTU/2,TqG280$*KMKt8H$H+3iq
U"G^)OFz#)ej*4EflP0\hzw?1./&r1Nc6'sH/fwkY7BbYeW.4S;l0G.yaY&J6\RXD
U"W,L7GX&Vfhz'J3(sEPaoa2*etg4&O6*j>[4[_%EWPUbV*=-.,NKD1TYpKQC*c''
U"AnWw$?)%0io8]v*,kJ\4&S[jt0IQnZjAdGL+nEY_PE]3x>lSjb/C/#Sn8hqEq\d
U"q<KKHo65kB]Q<O]Cq2P2Ke\CZW<V7FpY:7/pKa)Fp9pVbaLJ\<(7bN'/mdpoUA$
U"33B7tbBAn+(l'YiG9AfT\MjTwbU%F]-D'+;::rh89Xab5&h;/y\nBLQ>Z[^3#a3
U"rL_24vs+LdMmHg_P=A>V6RhZjkcGYZfaV%k7\0.'urb,lI+$P]Tp;9M8R9r$E^O
U"8D^vV+a^aQ9Qd-c9<6_hng$4aiTdq/H]&F?g*8bbL:*OT;/X?PzU*3Cwwc?Z,&i
U"-bEhDu%YAL?C<=Xo'+Y]HJ5iPp'W668JVr5aMB)&'WLC_$AmWXp[+=InE;'>[&Q
U"xn%><ncMnPuSJlj;g#ND/rvj3NqfkJYsGs+p&xP#1(jqV1vv>o)itJ]#Qr2yTfN
U")y/uXm<Dd3kU6'D:Cyx(,hwV-nAh12DxyQRc+%O$L_K,/KeY;SiIsu[XE/=qCy[
U"=8DcgoQq>+NrORj50:l2_RG>dEtqf'qts0oVWWfHr^Uuv<CE?#)>#m8F0D%k4l?
U"W5$+[54GBh:xAe8gb*K(z'*Up9q^Ia;71K1]FMLTG/Mp)ITj16iLD[Cdc;uC569
U"6UQ$U1cwvgSR^0qM[x*CmkbvR$9<vcGh1pn,sOgPD,^'[k=Jh5yHKXe4E+DJ-4\
U"JVk:q>-<6DZIPf5U\$R]=%-W;b^[1U,z7kh^1lTkD4/+0L(SC^D,xTiB];?faL8
U"owl*(^aYsbb^4nmEufIUSINnyiRdwH\UlrFkrW;W=CtO-+2Y$zV5EqC#B2Q-5X%
U"Z^q:YJt.E2m3Yv#h2L.)v#E]2F$d\V&hf1*,l)6qlp^,R4FA+QcCAJ?6)':jM;K
U"U-5t8d=ea9#+V?'e&S6R-7Kd5Ncs8>v8_xPT0q'^\Zr1j&Hr'HfTAZ#Ag4K=?;=
U"]^TD6c(Fv^92'=+/'Fy;(<Q20.nBPlU9NV?D\)8OsDw#/,O$am78mFU;RC34heM
U"iY'/=pDr8=/+IE=:ie)rEabmAr?Z3Uh)8,IwKur0+rl15]>zq7G-?':9h^e2TI#
U"TOyIRhs<Ad5_Q4-%hUx7T.,+H^h#$sOGueqY4-rGV1Th%\WUIi7eA'13q?AWj_f
U"PI5#oR0-Z1v1WYmnNX?;Ey&k^1*Q'J(3V2=%dRjas=6&xH-E(iGfQD],l/$>0(Z
U"h%PC&qr^<GHX<^Y;$\F$%#pggt.+4-lkL.]Z8k(I1k88lquB6CH_gLjoY'Yd;jr
U"?:6b7Bq%vm7q0bN;ii*zR4[gD(O$4jdR+Q$[bBfwcF#1itlJ<mpekOLIF2j:Yk:
U"GDwd7Bn,h5BK5&x?2+gN.PCM^.\YPd?AH:2(>8et/<_9.QqW*<#q29aT';8TJiw
U"WmkxoV=j5\4^OX_AZXTpTjn$ktYms8S)SK<NDnNl<^_9yFGEd:ISQF\e$Ly])M:
U"1<^E76o<+_WCjO*ce]atV<eJRD6WoS#Vo0uY;\x)c$I^8f#f+<YD]<O55&$$j<P
U"5?g0:l3OPnxW7W%I]#<n]8]aB%ic,A4GAh_dRX2bS/A(7]]mkjw5C\5IQmNjq1)
U"3H^OjCl)$x^mq47LU\(:(5r5CvOeky458GT\U-Zpke385fVH3C4Wt->:RbsBIum
U"p'.%==RO9M#Dg?>dbCZu)/)flbQvC&mLpYOi9Bso==PD_1Fhez&[[&t5^684.kI
U"&^8,$3/L8j%EBAA0U2O3q9:Os/WLTj>jK-$=m\TRl/'4+Xbt,ziP9zRKjRZ>_8c
U"z6G8WN-F#D'Qo)Rl2pg.ja6:oo2n&e7XV-u>h[4AV$tRooiF%6p28o7sK55;lDX
U"b7J?;'U41^C[nL0c[[&>Pi/hlcT(boS#-a)Ab,nR,,J].*DDQ;nD]KL3&K#T#>j
U"CMn%cn6D/UImFY(q0GH3&1ThU>(e7DSh+DJQ'[TXVVOnp8c:5.fdNo1%/R&FXP-
U"VmVF-9y'uQtGDR/r\Vce=K.(++hBbF</KcI%\P3S*\QjoMQ$gTx8bq4c.fFCE.5
U"ru&<dRj?Sd]iQRGFlJHWE9SEDgw:413LBvX#AV)M&9OW\GZpn*Tqqr]&bcQ[F]j
U"FaO6YudP;s,:e#)[Dgjk0O^)L>7dmU(7,bY$nFfE(?YHC_M'uDup%()9%%%%-%7
U"%%NKQ&e,[%+&%%'\(%%%/%%%&'urf%nqSwRjl._2,:RU:9Uh*]xh.eu'dUQndEE
U">8C2,z<ML*xDY'\TBa>KTcvuJD4k(Ex[B)3ZtLH#t53e]j651EBiPH,VN,f,koI
U"UW&=h3[#:+H+Q5m;[&::<VP=.d+:.e,cWQ>/&*cP2.AKjt+VLi#keAyF&X;KO$Y
U"<Zj;y^sbr7BIO^D(#s(Oo%uAfTq6I8^jpriY_>7#7;]tZegM;X_ytMXdJ.isuLp
U"'_2m6n;>DHJA\_.wv\k)vve%CS[s:oo5mdeGH7TLUOhj)WbQ9SHO:DDxTphp;'=
U"Pt6J1)S9k+^DC^n4+K[d[QOERSqX0=5wR-7yHBqj&[sU<XX8%%up()%9%%%%-%%
U"%fNKi?+bOc&%%%a-%%%/%.%%'u.sj&x%Swjl*>ctt\Re5>KhIKVe58>.,qjig.G
U"S*pdiEOxB[Y2pnz504LrF\MJK<Xe5I-:nI]e5GsXlDD-DA:.u;[U/P;d8E%rC<v
U"PQv7#6\\(=O8Ab85#h6)CU:M&:71sSL&>ScVx71iQTOTVu/XA/#u5j8Vx9]p09*
U"GmAbUSo/L.#70$8,k\NB,b%kMv.=K$tpj%PdgGOTQAZT7JF6*6RQd#Z4^/Zi-rU
U"d+$;Te]VrPZs^<E,V1+-m.3)Qm2K2aO%)hb%dXe#FADnC?jN:ECgNo/l?WZ-^xE
U".;d'&o?7eQ%*;issH+45bs;H]K.T%\sE1zMr*(1Z_^WQng8)J$hAJj30:;8ORIb
U"^2EHr&^_e.]&d>-+=jp_;+a/D3mQffqBB3kr5S)(EJ4$ccb2ng%*x*^nup%&'9%
U"%9%%%%-%%%fNKy;-DJ437%%8S%%%/%%%%%%%%%&%%E%%%%%%%%%jRrf%nqSg%fx
U"up%&'9%%9%%%%-%%%oNKS'=YtL>R%%\)%%%/%%%%%%%%%&%%E%%%%\3%%%jRsj&
U"&xSg%fxup%&'9%%9%%%%-%%%'NKK_.(#'77%%6a%%%.%%%%%%%%%&%%E%%%%WM%
U"%%jRut%uSgf%xup&%'9%9%%%%-[%%%NmKr\x);N&%(%7(%%%0%%%%%%%%%&%E[%
U"%%*%_%%k#nqj.%niSi(n)up%&'9%%9%%%%-%%%TNK==%)9X'7%%L+%%%0%%%%%%
U"%%%&%%E%%%&(a%%#zpf&%qtlS%gfxu%p&'9%%9%%%%-%%+%NKAI#zKs[-%%b%?%
U"%.%%%%%%%%%&%%E%%+%.c%(%&in%fqSg%fxup%&'9%%9%%%%-%%%KNK>y7*ki'.
U"%%0/%%%,%%%%%%%%%&%%E%%%&Ol%%%wfxS%nshu%p&'9%%9%%%%-%%a%NKi,M:f
U"e#%%%:%%%%-%%%%%%%%%&%%E%%(%do%%%zpf&&Sns%hup&%'9%9%%%%-[%%%NLK
U"yxO&[8'%+%o)%%%-%%%%%%%%%%%E[%%%t%o%%z.pf&S%ugwu%p&'9%%9%%%%-%%
U"a%NK%^c+4G%&%%<%)%%,%%%%%%%%%&%%E%%%%Yr%%%zpf&&Swh%up&'%9%9%%%%
U"-%7%%NK;S_Aj't&%%'M)%%%-%%%%%%%%%%%E%%%%Lt%%%zp(f&Sw%jxup%&'9%%
U"9%%%%-%%%TNKVA%P&S%%%%U%%%%-%%%%%%%%%&%%E%%%%mv%%#zpf&(S%jw%up&
U"'%9%9%%%%-%7%%NK6:7^;%Y%%%%^%%%%-%%%%%%%%%&%E%.%%kv%%%zp(f&Sg%f
U"yup%&'9%%9%%%%-%%%fNKm)<dh</.%%(>%%%0%%%%%%%%%&%%E%%%'ov%%&%jwx
U"%ntsS(y'yu%p&'9%%9%%%%-%%a%NK&3e,[+[&%%\%(%%/%%%%%%%%%&%%E%%4%[
U"+%(%'ur%fnqS%wjlu%p&'9%%9%%%%-%%F%NKi9?bOc%&%%a%-%%/%%%%%%%%%&%
U"%E%%.%5-%(%'us(j&xS%wjlu%p*+%%%%%5#%5%##(%%E&.%%%%%
END SUB
V2
V3
CLOSE:IF S=124AND 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
