'===========================================================================
' Subject: A MENU IN 10 LINES                 Date: 02-26-98 (22:19)       
'  Author: Hensley Bass                       Code: QB                     
'  Origin: hbass@intnet.mu                  Packet: LIBRARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QBMNU051.ZIP",4^6:Z&=34566:?STRING$(50,177);
U"%up()%9%%%%-%N\#bIx%(-5Q&7%%0'%%%.%%%%vg%rjsz#SgnLbaTs<dU1UhFLf
U"BA]*nj[eUX++%VIIY[I34ILKuZio=vc+uof*T#ne$#lJH%xuu/d_k0,M7kNVw0;
U"^dk5Ai)Z_oCs_,oXo6<(b(48N:sK>bo'-\1vbcyg>(A)+=De?dBKd.b6DxN&m0S
U")_fQP:H.Yk?OP1*]n992'k[&rDC$dzKc=jxR\oJB;q6Tk+%])XC5r9eL2/xb3)R
U"v#gJ(9tG)9U6uR<<E9(aU2)]US[mOxC(>=nspJR)Fpb=J]?1:P9#o[.Io'EB1uh
U"=Ji\H*S02V20hAdTRctjO?K0yq2EwN/S1l%Z;=h$Kf$:u6x5&GU_v+SbJwUV?(O
U"&?IG1kt7h[kjr2*bdNXUA60wM^DuTntLZD/8kCp(TZ-lR\u%p()9%%%%-R%n*)j
U"I;F3,11W%4%t>%%%1%%%%vgr%szUZ%VSvq4gfl.\K9jsrpz$GRfe9W&WF/G(gej
U"WDhO6i&+h'FL>a_O&/G\m4mQ+E0[-Sji#UWaSy1cYtwD[*aE%3##7S&P81(1AGP
U">=2fE53,.V0WQllwy3M6uBOZ3#xLZXH$^VKv3yWdGcxqv]''Q?J^SO-bsRpS+iY
U"*HG8F:<Mae6gPV6Rg)Kf&[\2)PR:?_1);/A8G1E)kB:K)#-a0%VQ&:j8/bQ-)+/
U"<]R-O:87u2cfFH1/W4UW3'&le\5O3sQP&/U=3DaO2[L(^Ph//Sg4g;P6:FoiOG+
U"8%,#8P0e'%,fJ](2yfbJ7)&P7kXW9I-_RM//5G-[a3/:a'))5I*[O<&/4]3Aye2
U"7['?RkC&lfF8?Ta,1+PVe[A=.K0:H/WAGA9QC*/.G+3%'s9i;Q%mc'T9(C?-A.,
U"zo+\+%rY=?Iauaca13,RWE'>g:<E1&sOq%U6q*)Ho=QR)p:A0i7G2952W,b*93)
U"#4A&n2RBo;n+)FYs_Ib#DjQf&9I(m++691C%+.E*M3QX/jOIqv[heLI1>SQC99e
U"Krgh/X*S/))Pag)'%L'>QFW9n9MA?=yQHlYP5':'Fb7fdip7U9E,lD9>9^[?;u=
U"BU&F&s4=+^kOl:Fai''+(W&$3:-?=^yQ_i4BauJ/35G=A'fS'%1c%D;RrY9fq;C
U"KC6ALW%'VE&A[*0P((;(,W9&Y>Po0m_FYi)'F'W%>SR49v'Y5]&*GP?uF47*f8P
U",a2/S)Pm0iMg3AM0[O5\Y2uI&sPB3Y:?.gYR:9%(qkgJ=(FO]4fI)8PaiI0qZG(
U"8k%x)^+[H6%fd5.#k&#/6\D3U48]RG9)5u?amY*)C(K3yAO#YP(DO5e&W61&^./
U"YA7'89Q7UD%(Bt%*D9Y_I,a7KBm('55,BKecG+,e%L99*IH%-['K8Qg))amY*)d
U"8yQh/P,S+-</eImm+\9-\YnuC3-+jf9v/cCeW*W%E6q)],e&);R6:09YBic9q=u
U"(9U%a=8s#1,r]RP9)Vo'A7,zY/caS6k7(0A&c>YN)#1a4-:*::+9i,iL'i>]2T'
U"%KX;_]YS9I#m(_$/U)8Q.YV7U2u/A;'DRufYoTF-2<[L%^Q609p/#\w%,9[Vu*7
U"O%XQ:ZYGGSDSP./g:?QX5R<o7&++d%9K*f-MIR3_g4eP$9:PYEB1)Y,%F,m'D(/
U"_'a3W)Ti90/1^BD)vSO>=Q\$E8]nOL:,0Yh?5mA,$9.de?M0SBS(FXA+b%fCM*E
U"HPdO)</D]d/sR8DR_$/DF/Og1*YPB7a0W*h.R:9'I2r&%+%0m1(t/>7]1G%7\-2
U"8/D*#E[0a+kRe.)Rk69AYU)J9.T:zItF$?N/.(^//&G'Q+$hQBY^x?;MeQ0OU[j
U"m%a..Q/I[m,X:aw)'5F-W,N7)l:N/?3K.0w+if8?4Q8oA&,:E,/:'((M,O':^u(
U"9c&2#]o&w9[)U2Q.f>'38-%8*b*:si[^](-P'7sP$>/JqF)e%.,Owb.Ah)I?L/S
U"V2A=%N/41aM4(FxE4p9RnYC(?-c3XZM)U[PLo=?UN0/2dW,Arf_G71Ink$4Oai^
U")G(109C?)&K2S(3VL789I<u'71'<f[G=.+'9)U0$]R*Y,8)9].e^G2\;&,9aNi2
U"11'[LU;5Rtf[Y=&+':1U4.a(-&K8(nOa(Y9q^++&?$t$CU:4q:-J_25ObHY>ia/
U"qBq#)A%v99\Y/]13't\1q%,<:Ki18G>5&rOPnYG2)BKC/y&H+%o+g1e&?\B1<iO
U"^,P-?/Q7/,G49&%VP&9>.fE.$Q%JsPFqi+'I,[PlKYr0\0_t/4\w)ZYg+G',%kX
U"(a=&C:6M?^E\*_#u'ZC9t/C8w%.L&l=\<_=I,#1)4PHZ9/A99a)-K%+>PiXP\9(
U"*E(/P9:4ouL(Jm.%4O]%U+a/uk9DYOrio0&\k)X9:AiIJG67[/:YPEGSPb'%$+Q
U")F3iaG^8K-G,O(f8oI.:S]Te=a.4+RiA_3KRG1)=c/RZ/b9qHQ(h]R)i)F?()q8
U"Q.V39L/5d=+a9(H/+M(+Zf^S'(ORE8QDOmn#%6a0U(g%,heAm=*k:clYz)=;19s
U"Ru.UoF.u%IBa5D3&Qlf&J'+eRjZY<ia&Q/UWYn9o=4OW31+O7U.&9Pj9Yj)?9u;
U"%,Aje:7F)X(\:F'TBGg:u/.*j/F0qZG*953W*&N%LeF(1/Qb[I$1%(a%+&P=U:I
U"Q%4/C^',M14ERX&o+Y%'&._(kl:,YCC?dW#%;EQ%iU/92Qd/Z/G0;&bV:Via:1-
U"w%&_)EadI(U4,sR,&P*1,BBE2[%*3u3e-*::Hh9,/aD1'3I,+:J&PfE*A[*tOF<
U"9#/a8q)uF.e,N(+&fm^5C';%fY=/E?Q^o[9a2W(,N)$%fJ].T7%no+>u8=;QR.B
U".f\?4]a,G:B<E;s/P>/VG_90/+bQ/M7]*7&SN,PO9'(m(Tg%pPV.Qj/CC')m(,z
U"f*7]47&&f&..EOE*0.E+[*E2/?'L-eRf3:j/,'Q4OfFH1+C^B$;m:*%iP%U4a*h
U"eP^9,E)4u&?Ay&+(BU*&Q55j<CD<e#7=(Q/T-,D1rS=%i)O09./wPlt*'T&jPPl
U"?<nRS-<V'iM8GA5+H-3-,^3G257,1s-&,+=,]3=GiZ=k8N<wNsXtHGa=uM*ZZ/;
U"BcCivaH8A(34^IQ;g*_8%jORQGgxJ3P%d.*)uw29?]<$CD[$'pUO#Zl_;*L[;dh
U":9:*mP\U4BWRWFtF(;GjOPG;Bo7*tk1=%h6J*/*4scoN*W(E?h'.8(XVG1$?)3K
U"mhTUV71Skx)cn#.A<-AkF[SeR+CjsPcde+C^F(^\J1XLWM'#EtI*SDocv=UN%b:
U"<xP5tV.R.3M;BRU)E,<tT.R_hC2(3lo5K05XX,'=;*4ru74dGIj_V/PMn4>fn.F
U"9')%/_2/g>[$[FF8?/ldJ*uF64V(9gWuX^u0cU%L7M[y\*BtN>(;jy-,Z%FAf:n
U"K9U)fvQYEP:Jw/y,&y\9IxM+/dJ#,&O&hCrs+$]Gl/qpbVX+k0HAVd\7v&H0%Z^
U"R*Zk':;hv_phwF?)BdsEiPT$KP0]*mYob\XG5*Ax.<B(<GkXgrT'o-(41C)$dMw
U":6Y?%s'N.CI6L]fRVBl-6Qqkz#+Z-V+'#6^<ddWIrL,sZ>Chz=b^DMcN,qtRnG^
U"sWH0(XfhpB'1uXT9H,1tH<1fC+=J+,D+E0JhEEdjEZ$U2Gk>EP$<)^G:p1qJwGv
U"]2zp,&NdMuOGD&)c<%D<BHO3=:Q6vTN02b9At(Nf-jln^/[l#Zi$Iim21n9s8IR
U"/aZ^]x9*eB(Z[Rx/sW$FD3pbelcH(0zv/Hl97,ADRY+'DYaoLPT+\jaotoHY*T^
U"eLNlRh(v'ij^RQRDTzCh]u*CQW&P1JY8V0#GbPfXF+O+w0[..JA(/l%Ad\fljk+
U"%jr_AbJ:%&v2&o9J\A'HBqJrhl.$DXcMec2jDNtXPo>HOFZc,Xg,$O?Z+:j1PjN
U"87.b;da.nby5])'oc8.oSzupsDJ)KM<hq*P9R$DM)%CbP)Jv>5xazo#yc3iiS]R
U"G,BE?6?[EMO:<n)f$R(g5,Hum9WO[gdW;N%]aL^_WIu)VUiTwfPEtsTtlMJ$l62
U"huH?n1ljiOEx#]tDA\XQ_3g6ePWS*cNgHSyvful6a3D2#R^)%\Xi[YAI:Ui9w%<
U"3#)(Z_<V4Ol,USqUk$Svc.g2PcPOicQxb(&s:r(0THv2LI_lx;<iw8RZS.;=$x2
U"_PGqSaJN'0d+OBDE:??qMKOpffhkTDe;jq#0&D3Ru.-+kL-Q_L?tBv=DMiOl]mf
U"'1]-A+>A89,WY(BS'coD,aTKL0hb3M:6HYRT#/ad4_gxtr*/;q3^BT6S=M?4hjB
U"N[:d<*k9)-9BMB;Ttac5<J3X._c%)[S\'.P%+<:*^dgIm[]r*PO\T7XBCo=%to.
U"[Nu6M7pyGy?:eQ94-:a^RmOP)auEJ7\1NQ#0Eh-(X?F_&[Re.yHNX+xs(iN*MH#
U"8vC](,0Frn13:r$_g,F$eu=:,6vH7:1t8r20vl-Wk9)3=Q%Ff[9kbXo4W.4U[Xz
U"f9uC'vYR2o)32<C'TsVbs.\c3wqSu?X;biDP'VWFBMC9e=H8%V.(1k^VTp[gnP_
U":HLI>z='xjo5Hpr-xT?9_XT-l7%JGK%J:nLXrZz^0D=^SSCDB25.)=/Ze)R8=S+
U"OZGJ';mxLb-.P'Ldqv%*tl\5bMmm^.5)R4mzu5_%hum0OQAk[KbPcLs);KA.EC$
U"N?:praFrF2ZVdLU(F-knC[d>/+N[$W*c:%p,;Ec$^p^4N&EcE>Yze/.r<#\TT?5
U"cD&KN;Gx-=Qld>G$qqf.Dwbwjba.FAgz-XA7>_%z/;_5ZiO)zIQRrGBWSvjE[RH
U"kgb7W[\LbsTa_%'dp6OqB#CxHpLB,ut8>\%-:fOo>U:oHQ/*STVc8[U8TNEz1.0
U"eWJ2af-9;Up5\okNa]*oOQM3.h->s1)pXu(:%O<r%4ls;3D#8I^ot._E4=&h8,W
U"m(hn=HSY4kdAP'3'J:-f)3+-7XTP$%V?5fLkqpKklRd/Mx<s.GF](2BjgoDs.72
U"B*Fp.1/.aFXyU+sOQ(QX%zMMy_B7pwAI0cE:D<)IPZ&>U,g\;Kr=jkw=#6Lj>+&
U"R#Np)rP7nA]S$og6d5-0Pc7p+3quaouh>$c[^*hhFW+zrF16=&964Ww,xBx?3aY
U"Wwd1r&o.UX$V1)p;Z^bkp^iA8E'n%d(,l4O5bu-P=Y<#.>oAi:P$_&-QUixc]>u
U"sT;Og5(_O:xcl+X[,^vr_\QKt&D2f(VQ*KDUxWJZ,Y;:I;Fx;D'DIJAuS6aSJBe
U"duSQd,I7Ru_/ddaPF+mPdE6E:n2=hblMdbAv.iN2#T4ARzN+&%2cI*Wtu>:k6\o
U"bfOOp6EpiI^WlPpt3Hk,>5R9_;TTdSGWq.9G)TC*(#H-EJRHanw$:MSVMRq&kgt
U"GX89dA;f,H7:(uVNRT>e);r:J5M*Vj0lOad-l3$7K$6H7PwpE$Ns%:_O27<U%;x
U"Z;-qQdLWgh?j$d(wc1yWIY2\U+0:Ff6N^21bFszE=+iVst5Kfxr9X*]+d<^Q-Q7
U"D<DLPxP=-(-%ksA;XVFZnV%H0^[XG*5u,1du,M*$>#XD;_\[7sTm(+\l2BE+_bT
U"Zq+h1c[M\UXODj*agd=rP%[T3h_;bGJBX)=P)ZtTEEWkQS4t7;F$_+IA*kHa,=1
U"DEg\Zr>Oby7^IFB:\8IamNVIw<HRh:h(GL*2yyc/gw:NT,9Ud3GE&WtE:*VM8dH
U"JndA^?>cH$=^/SD\'Pt$gZKuc:O>3NY:+4ol/cDD-EW_e#g4#5T2m1T-j&?4sDo
U"0V?8jBDQOK5ZSh^(/HlCpGlHemL>)3lq63-Nnl3TLKT.TPH0t+DP*3csHQ0aEE7
U"bOa1ol.WgbCQP3OHnkyf#*(Hh#ZJgO+H><SDIp1R#vb1CR%Wv;4^dSTh)HRU9hX
U":t:-WN^E.$-K,NDah87u5;I64wTN\Xd;9t4DNVdy=K,Ptw<gsv*BpmRJFE[Z?^2
U"Yw?MID,qJK#ZIP>&gHJJgehrDU:UO<+lcQ..$7+G8B\>:u23n=TPa5j]Y3kS51Y
U"<iK^3?^HpZsz7<SrDF.5s4aF5pX$F?kn<+O3);[e6LWUsZu29&=ckF1l+kOn%]s
U"hg,g.z53\KsG[+83HhK);FOKVAzCm^a^u\.-vm]NWeIarcP$?,Hq.Jt7tuk2]_p
U"g^jC^:Ac+>;Qrm,Ht/7]'$Dr<,tsH,fCbkh?D7H;EvWgk]=EeH3NU?ohRM]SlSV
U"NFF%iDaWEi4;W>-x^re=qQ/*81k3(26V]rFk(d#-O\;b)j$fOqk&.#DPRVcsvV2
U"4>yYm*2as<-4golrO43B%ba,((RYi\8If/+X9Qrhr/Rdnz3oT6Fa9YePD]o%Kh)
U"\Un<DYF^j^D\G^\Sy6(fjW8jRB5.x9cL1-78HP[KD9M.^3h'7s?iqcuCSG<wnyR
U"rrKeVGP0xVgNUjM77l?sOAF;)lM3Nr$\qfMWw_T4^4Y,'3lcS[Ff^;HiU.a4d]h
U"wc&aNN&U\Y[SSf;/>KLjH4Fl3&FH%uZRVR;uE/[_QIH2?;MH2+NcB]/>1\_+k77
U"h-n?/2<kP)Z01zRmP'$j<Nepp4)40qQga;h2l^?pMgVE[5>DQEpi[j3%Mf2jqV\
U"T)4qh1jQ0Jv\gm(-X,>:ohkHso=*Vs$prVzX(T)(oGyhZV,b=E4\mu6]A3Dw;=.
U"$cNU/r^]*0pzsKYt*M269PyCH(IzQ3FLEZfQfwvC4kbSLkKV_6jSt8tu4f789[:
U"o4m'K[WkxX9oK7=;5mhrDFsdxs5qL*l'8-AeNTn'd)nvUsP?*J8nhO>Nd;$$84/
U"*jG0*sfAB\2w#^_$&_&KSlx<e6#T8;pa0vV9U#'C#dZM/9ZNeD/rp<5ZZbbl1PI
U"PlFk7c<n)d5,T6.zo/Bjc:1rD9:th6sn(QqO-gg5R6c#5'H6O$4u6Jg;NlxNr>=
U"$Q0jL2=$iMDz[5Ddxy1exptMI.TKKN]^9-EpMrBiJOI.78:pA(tX(kNt>Acs2Hd
U"o1Gd$M9(^BM(2(pn+G/5ag9eKag_(O0CD:CD.<srg[(wF:nuwsikyO0>[k]W2&7
U"617VKBWuZRJ0&BI>B.^lsOhC:>9sBSC+jbSg%jkrH,EP=NscIUD6[t_x/e*<bSi
U"-\T,<#G/Aiqecf?N?]Y'rCsZXM9gJ7]bE[bh*DAq%Aig+EQ-yPI+%h:yLv=+X]j
U"[mhC[<p:N+^rC$0saJdF/'Qw38LA<HgrY7D<d),*7[W]MXAD4x-*hzWrS<OTLsh
U"S&CVHNDkQpD84GRhscM=?*Z;()W/oibu+Y9x9&FuC'o,lJa>jk.l.N=w-vGt<R)
U"t2H8Jj?$g3OBOL7Dbp?qZ-=ZgEMLt8oVpAF9_0X9ePAawmhPETQS_R2UJ4oL-%t
U"2GFOnUd6so[cB\t*<Pb[>7NT/>B\I\85q*CXrUsoiH:w-\-VKP3E1ceDrC=R6q\
U"$h;i&_RQi^PVQ]:F>*5qH(4OfGh%+a56A+VSVQ(AWf3(T=hk'AWv3(BChC0#FK^
U"3#^4n1.F&Amm^4*)A_e^3m>4bFUgQ]_El$Qs#X0.e1h9G-aX2KXFW\b.r&>k[l-
U"^7P-Uk9kQLFnFb*6+qlJ$,n_:P-nhZk5t+07[?nq_?,)Y(>$5omF2qNNMkBMwC8
U"$*ogS=cwlnTE'qScDW'*?C6%vHfN3;I>vH4aO#>kkOP;q_ec\B);\\.iD#_cd)z
U"&^L)d:8ec2:vofK[T)_Eb<b4TC%lk(S8>bCxW$u,zwZPYhuHk8*N14dNbcuZOxY
U"Vip%ur09X>&^X+qNSC8=0wZO<xMq8aywHipLxu#]Ztvr4t<>xZrH<ntxkP;mds^
U"8F%xido86w#:yMe:h;nykh.UN7$CNBwnTO8?>1T7mo^\:8Fy^4P3x(dDXtmTfPz
U"u,#VNtC^;ldfTYxuV#0xzdd4Aw\OnNDq0bwu6iu4Mr:98h^DF1xSDYLZXv<7^k4
U"_a%Lf)/<^c((dohQjSJP8(Of/nFcUGn?<;f+)P3\a)g71$:?<:N>JTDjpZiYmS\
U"D(uFD*CD*X:RJ+e6Q5p?*eu44Hps5$D)iw%>#?R,M]VKJ[K=]ITXXYu>Vo0Xf^]
U"TMsxf-VhUiu<zhRvNJN>7:YB+X5lyT]Qvvkwu05Ag;ojZ[(LN/put9S6TU:)B-X
U"Pq=CSQe[ikPSkAvUlc5ueoSQ&Gq:eq/:8=j[,T0M+gl44?BS:c4n-d?TX\?Ssce
U"rD[of18pLc-u/*c.P4GSWLg=C;OeIjh>rcNXjVmouKSu0Fw$9v=;0Xc?p0AaA_-
U"Q)C69KZXwK9gLRqgIc7^sNBAXPtYqR$5*Q$f\pSqPrq;ZJ7Gn3Xp-kK9#1$<;KA
U"=*,nh'oEQ=4j4/6h,AHX4eC2eRbGjQV\Fk/oeQNB.i1>kV)T/=13\1,^Qjrr8F;
U"RvGw=88bxKHk0:YFh*_ZnUijuQuZu&Q>46q%vT/3xhc#IcHLm9d^IH0fjOxX4TQ
U"MoMDcAe1#41;V6'S>(.d[egBphqjdM-cVMlMVxzj;f=xnhnaz6gUhsW7>-4:Qs0
U"Z*55>o'[egHF*]=DH*T5gk'7[Guh',7MT,o)Ka-6ohXtJ^gDGNj4NXKW0:lW&%<
U"aluyd\I[aMP7Q(0L)G.]=F->G11y-Gm#-G^TiK>B%O\/aKOOzynZ,%$IG.J6TC[
U"K;[s8.M9*IO_rRi%n0+B(TlA?/6ZaI&,t>g>?tmt]Eqt_n_4P#cWPR1[YhCYoWm
U"K#[d4nWr$[i['-U]:e%tlDXUR=T[Kf6fHGNkud<3=ncLjP,.[:hpYB=[M4a-7ZJ
U"mC>-_zE0N_J1\a+[tZ+tZ:4:.#u[FRQ+_$3o<G,M^<$'uNA,Fo[LuD[A:JU5&Wc
U"N8;)_FNzd&Sf>PuSn3bV:t4qE)i]&Dv:AP36WUcS]#vm,0WNgJcw^p?F2EbAX0_
U"hYB<:Xul*FYwR;%E*GC3'3AG\([.xwN,4nT&i2,RPKrw[X$fXA=dFpqkc*oBa$I
U"Y*bP_sKFGZ6.7?[QY/H,jKrh/L]gB;i5JRrbF<)8k3m[rW:buB\Qi%Dhh78-hf#
U"]^z9U_olG9Ukror7zjX=Zqg?ZQVo<k&qH/i4Y;f0cr*lm_C)O>E[4(fcC6Qgo?C
U"-Tgc[(PL^JtuDNV$o:Lf%Yf[v>:2J'V9ktTFO1ulYGLn./ED8)D'o,*8\F<;MT>
U"DMP%Nh;o*$n?LKH>jhqka:8e.M[W$O5c%&;bD;E/Gi8/>8cT/JIJ-RCDmgqzs6Q
U"]-ysM.ZF9L>^xm:KXt3EBfdIx,IK]Q[p#gU/>)<B*bJ?QqJ'*h3+VT;G>p$/H0L
U"GN8HEp85bhwdi4?l-KqCOBPWdkT/n&c<\FZ;x9DnRxVrGch?$5[^BBazYT$7lkm
U"yaFEMB+HAKG7GH3P)cl8qz^>Sqz^#t^05Ye7zHPQM^D];%dPR/)z-BID+,0uJck
U";ZM^n%GfPt,;-g3aEgxwJ^sybWQkQjB<xJ(pBcw,y.pBwSqDo3M,Pcw,AypBwgS
U"Do3.ygcnYz+E-LncM--Bo)osYcFbe_[jLnpQUWazcERa2v$qS.]AL$oQW'Fposa
U"dC#,+-EDz(Q7p\P834micrWclj/A*d=rk9RBR$pI0&36Xn^o3Z<gD=L5exdZBh,
U"l;'e>F=0[m69PPQuh\&KJP^Otl)0#,MIcH?9[0A^wcXxefS&<pmbAsrbgQ%'<dp
U"o-2(.Bf.$C72bY66ACtctKoopuu1G?Q/hUVUzjEuAfASZXxoCQrdYL6Qj9RQtBj
U"8#rz#5L3]k,<&9Lg6<#*n8[cfX2B4:30Lw?qVV<e<)kF4r_Mc>L/]RGoWpPvyqR
U"3JfneQ#VhRrGt6.O,nSyn3nta96Bj%d2t7t*;to+c]wu(QV&$%;L,r+6B&kY$eI
U"5uie+nuCAT^r^K<$PjdFVcE;c0_Mu99Cq5Xp\jK'qy08&hl?zi<SSCENS)OJJWC
U"I6u,ZdSWxuWNq-NX:/)gJp+hqNRNJuz>k:(zXaQl3SWM<0;Ms*NFE9F;Mc]<('2
U"[*K(8o=:3R=fL\LD8mn8;Af1sG%bMtRA#&lnMy^V)*JNRe80[u<87+tMe)3?[*w
U">jJ(NuDD]B2rL)0Q<)7$Hoxl5[ddN.dRl3dep=zDw0ZrUgZM5N7q'GLJIu;wcX2
U"f:yV5?];fu.R\ak2(:-uT#B8.9IprRiY2ix:r\tV&_YKxynKrx6oBrpNS93rp93
U"Hw(1kZk<+At9_1pW[spqr?JJ]o6]X_b7n*hUjdsLa$oMDZ.W(CD=LYq:8>f5ptc
U"F8Gf##v-Nb2^h5Z7uQ:X4X]ob,([yDuf]g$[MJ7xlaW?(?au3oGpKkL9M79eWa0
U"oT6T3C,yyidMk1+3/.T[gP6h/MDiQ5]uS?G2\\',jSak%zBS*P.K'jHV(0;(U9z
U"7q9d?/cFQFm*qnvoH+3=5E+AVxEF=pZ$l9<N;n\?.ig=QspIuxg_snwoQ8JuGb.
U"hdPopu-hM+n.QD]-Z7C.zkPsOwio*[Fv\a5Ke<^VyYO?oK)b#lKq6i;)UR2hF2A
U"=tFu-fwRjLivzN'Z]tta^bgbqaK*b0Z6gw3jJTkZiB)^$5bNj_E72&DWorfdtsW
U"u_81TiCrm(IorAI)uSKdg$X.bQ%Nx[Gq14^dS5efz^5/65G%2fctgE#cOa_eZDt
U"B'8oH5n+);FT6s4o6Eb?MqV$>2Rgq/^eEae08(mr<L>s7jdmNX.ZLu<__FzZ/HO
U"/)3ABWWQmt9jH.T1I[7*w'-t4fTjn=LGNb-vOsCxf#wTm(:<tKkWB]vsq:u['5Z
U"ffbcA1a$<k1tz;M46ON^.IlTBN^:REq,v?m?dueqHvWD$I&VSbIdHLAdBc7[_er
U"*DBST$0-RHl27q-=SEACSrElFfhmt.ba6ksKsvK*X&ZR-J]ASg8AMZzf(c/6ccL
U"(l7UbM]?eN+7j1n\=V$DV0f6+TMrPa)kLOx#T$6%o6oC:Ll>.IE[Md5i3uFM[4S
U"HN.-lC;5e4JB]tjR'AFOYDi8ZocAIY(C8wfKqb%)h)ls8lH.CClvIkZ):?;fbJV
U"6_#HsltAd^IAmPo:?D&PJ'tZKYKLq\33(eD56SLv#MNocxM$CJ2*sKq/0<bUkWm
U"hDV.bF?xsTH86V;n_Hu<ja$U2dJmU&dJ_Q=V&/*8l*;u?gj11F,S:uL(^_:a>1i
U"CC4Vt5LvF<G%wG_.9C]VaEdt60JHFFQ2#AXh34^*?nxKVTY7Zta?3-KeDhgjeg$
U"APGFh>(UC(K.P#5q6+qQJw)A(_8NrhcztJn^)ck,Dm6ER:M-XLl/E2f=H1nR'nc
U"8YJV?x5ZIIo_Lz&aa(sHk3q3h%#p(.Kgf:G5T='H8UxMuo^A,<KXjDKYJ*7QEgq
U"]CVJ0R5-uoij<,v-\0zhvd,2.p71_4O\6Ts#Z8]wSb;/1V8;C3^k7a5vZIFSp)j
U"\h\RL4V;j=]#(4FT\P+#'Sc])i=Yu2vi[]Vp*boE%Hv,m)bIkF(69ask;2;q<Iw
U"YL'WuNbqL%UP808B+P-8L]f,p[F2L,LPCsp=W4;eI?34&W9;p4J&)aUblR::Ps:
U"d,%6g?c?C'ais?WH']aq?W?F'aos?WE'[-J2GNeY=sWZteY3gspaE4q,88G[4G\
U"[YQB]'-Lg7LbR:0p7K8;b,J#oX#9bshULZTmJg+O]vWJAk,L+4SQT-iVEl[Ai9\
U"'A#$N=5&RTKUHFN^W5#9/(5?;L9EI%2%9;20m6mBAc9S7deMhWY_$A1Kg-\c&)*
U"v6A\p_F6cwP\Od*0^)&];;gMIqTnF^uzFj;ffKYvv&&$t*T\LT)&y7sD\3c1jM/
U"0,va&:VQG;j#CmO8_7v&kzZra6F:;ih,p\9HtJ7,?Ij[,6?M.HU8;^UR8]_3Qc,
U">Sk=rmsPI+9+uxCK9>p4EJPu+:UnH]:8Zs>A,mkJ\+/Z=_24mVFxog=bUh%P39r
U"B_#eW+LQ<\f_o2Sij[OO7fM2;=KFd5%]+d?9wVxPjuEG-,BK0>#5]s6UC?c10^P
U".:6H/tgqEW*Xml[9NUwnG,Rnd2BRA]C\BUoGWCUN3>GpuLNQ-U/#Q>;So>]MJu,
U"%:=AyvKa9[$tmUt:?3kLp=G3qaUcGRnJDkAfs<O8cR=L=BB'u7DHmFd/nFSqk46
U"ohK&dYtas&FmvNAj]T?RKYKi1Gb,&QHN4ngM#:DCIjzCNeKkKE6vVJjK;+%;%DN
U"YALd00s4t2p,,XmeL4B0ajZX60K*pqt$GdhC(rkFb)ta9.DW5<8(X_Mx/QRpUH>
U"pG:?oO/>?^<tbS[82+rQo3<3J,U#STgE*ZdgEQd6VaIRaV_CGoCCmf0D]OW+KD+
U"z&6]J-L[p;SUk*x_W$4R*=dIloWEd[_?+8bIJLuquQ1BBF3<t#^?S?jZ(,BV?f9
U"?2;gKaH:B^HY*Gabb4DJD2f#3=Kak/5f3X((>\;JpYUb8QN5ITdZV#IcN>_RkwA
U"n.mIRiPYDvr8G_E?S,IlurbAD,wQ$j?;T(<g,9j-rPs<vq^Mp/Mpvqg]gqVV)g1
U"gnPHQ&s'Wn?'tlZAEhhz^I]ni0e3.4[nn6J'v=0t$EL7sR$6#0nfZEdi(KC26pO
U"vBAYl=+Qu?R'fk51ocU6Vne3k=xaM:d]qJgKeA?$nUsK7>N]PJc#UA>FPpK$%sl
U"?It=F'i'bP>48(f2NtYJ_tKIn<h$fHTYT+/Jpl84^M6gB5b3B*WPS%uJeln_xh?
U"zf_&ydSFkTWr34t>ZyNueYmh.QPYCf6YeaC1=]Y[>>0&+j_lKCf56DUK6t:o^8+
END SUB
SUB V2
U".O?x=4e>]yoeg>'[yAi>ImOix%=jj01:rx]DgYhwg]kY*Ly[r17G:&y7Af>I#OK
U"x#%I:lv1VdY[LO]p1#_:XwSgj>;gO]r[&GOcgB>.yk+q>NySko>8^yks>/hykj6
U">#x]2jYHyWEv[+OOwYYATyQq&1V:p_w'o>JHyKQkYDwq.1:fxA#*:n,v[oO97e>
U"<,xq7:SNh>f,xq/:;.t[_aO7r>;FwqS^:Nl>:4wqF[:\vjIHO=u][;Ow)$YDxA#
U"$:F(u#\:0pu#Ta:pvjRxOgvOGmDS2YcYlMxG[YN#xGQJYLxGMYYvx2GUYz[yap>
U"8ByuPa:Hxj.0O%x]jpOOOu*]Y9Xuj'I:#wG)XYry]u,:8Gv[Z72k8,42o6^.4eR
U"meKI&SOr4KfZK2BSQ#$e\?FLa3I,O4f=oa.;:jbY-Ia0m+pSPcYM'I<a%<sPwE+
U"'u'1+uT8:#F>)Q#QfyS.Y5u8d:Dr[RIOGp'['Oc4n>TyhKYYHawJf>*$wMvN*kY
U":,wq?:;.v[#+yuR:9PwjRjO'v[Vnw1b\Y:yUXj>(wn'p>()x'tj30+me[j2:.Cy
U"S_Q)xG#:#$x6D%kzvx+ymSO2qywNLOYIq)iwJOJX_qYAwFOWNspIwdBOV3hp9wR
U".%Oq<&o8am3>Vw=Oh>Vxg]cY<&wMwV)mY.yUqp[7(OuvVMbY2xL]$Y^IwVVY02y
U"kf]>'OGMvqlY.tx#6#:<x#R.:Dwi1cY8,u[OON'uqb_Y>wj9pyUel>pwq7c:xe$
U">\yu)SYSO;=t[[dOCo[.fOMk]>hyu#X:Px]q^:xO'Vrv>HIBa+u*,Z<pocC]m]4
U"3nk,vE;R]_fOtloz8HC3U_k\*k/sy54dIJR*r]_+i59K_yG1%D^Cz%hyD3hmaqY
U"><)]UfoIF]%F(-n<nsh$t;8P=j\XDsWrPp+f#,33pfysz/0\6*,jUC>;nqTp932
U".UKf[<(AaA\h?,kK:)kjtRri)Ac?G,1>aqN:3%+N>8s7FL'6;J49o$skch]2(w1
U"?7E/R9DS8-^HgC:/xJ<>X+inzmJ=n#og6eIm<o?.&w+n6$Gn>c/vWhnxvTx-]BJ
U"B]Mz'Ez\)Uw<W6d9ml27'4f<NjP2rTr<1F?R5PK>_d_R%ihYvbj<Z=R9:7(+sXM
U"/dIY9PUWPmWg_Rfqfpk<=:NW7vC8=aYec(rs-YP7Z+/84lP\?>+8c28n7vnA0[D
U"6jR(/v::PT#u3AU<<S(tiwa_zCwjZ-i[h-L;lt9DTbqp/rQ66wZ%XeZU<wu%[iF
U"^'H[cK:7Pc7l2+0i]twAS6)[[aW(9AAjvvzO*k=cf^RP5RD:vm.ecY?'5*D]Rj2
U"rb(eEk2KM/3.*Mgd0B]uyEA\eOrF7xF_8bvbKhPkZC'5pEZ+v\,0esc9eL%P+Y+
U"oG9mSBySr+'2;:%$7pB.pkPe11eSJR'./'eNH_G8e6d*cKFWkLxPS(#wS/sc0^6
U"]-UHW3KsA7Xo82n0b3nkv(R#]h(=6nB5xON%6B-3tOOEndOd\mJfGi_BkeEh,>Y
U";$;F;EMk#YLaN6S-xjrZb;$(9c9rJ2?g&du]jV8l$&U$hX&pe$zeMs'^gmVQaux
U"O(;<T.*x_O8Kww8'lKbFbUpBxHDM,oflBejRj'R2mnJkx36/$-nF]SXW[0f>$RK
U")f2>xygrt*oZ3pqt'EXo[(\EB<AazD>=W20RUjtDDJDnLL_N97I,gElq0udJwJa
U",jMK^HI,[0U#L[J+ELr*8GeE:(qHFB=AB]\QCgV&VjX$LmW5E.UWI)?(8#HZ-)#
U"jutRxipE'D'm/UwEI%:S\ph,A1Q-1#8PX\;#i\;X\u[\?>CL]p]1#fk=Jn[ICh)
U"yP5sDVSct>$x.-p$gL(QuYJkHpad.g=Adez#>+p,l^\GluP_hhI\'e+L_2Zs&Ul
U"*(6lx+)+yDcBhTP],q)+=o28kk.(4g^$IL8Ex$cgX)98,hNlVhrOn_ZXlne*:;P
U"uzOTiC.6dR(mbPurX7MUx4fsim(oJE$XlRI^4eF>=#eH<PmgVsAxLeRk>f-FUtf
U"\2L1a$S5FNln7gX79d05/$'*]kP(t[\p)+9EU58)B.WiU7%g:MU>=2cwX#W-\wd
U"?'QLD'rR4InP4g6UEn76PLuRXftNC9G8]0]p.($CNS_+<%ugw<9*7K:m__$Bd=9
U"AfkhEW%9g7jl*,T.=p>G1R=HBl#=aI]S]Mf;KsO<4n9dq35Z<\\eDS/5A;4Htq,
U"eI[EY$j-[WHYw\\\l16i/>U-;tg4>qj5HN(J#/F^g>v#2hz[R1+c7W3ZYgX[&;P
U"7Lb#Az\Y0-+U/+\%jLX&:1AMbVh1+0jpdt_iA[G;TMsyFhXb4K-E*f<W-+QWTqV
U"R=)G55Lo5Q_?gU?7>U]m8>GUS3xbzgQLub[)TLPai1$V0m+F0Iqlq(%c0rLst+q
U"HMgg+Ic+CID<p*Lw5-gIxIUT>bkXe1Z#SxEf5208CPfpo8]Ii;wh6bU$GJGY$Q4
U".u/kMx*LeouE8qhVdBI2JN2Ie3^Fk*9IgnE4Q9cVW&h)BFee(EFD/kgF,ojd6/'
U"FRY3--wq%('pt3UM#FEO5Z4t&=,2Upj'oBpErO\H'qP&pl1t%9?LUV=<)W4$m(/
U"14aTY4URb7)c$4nPj]H*Q\cgPo3o8Nb7U4'E,(roACL7GWfVF6YVHUXP?(HFH'6
U"X[=yTYxU\^.Kw'atY8Umr0U#BLr1CtAxM9rPGhPGa5eu%NRN2J3Hae8c*+v7npC
U"(V(nOaKP'(.WIanPrEU.]H\95[:w)+B;MKxkAE,W\b8BF>Xb'1vEYEU8oB<UN_$
U">9p^wo3OetHfZT8Dg\.e(+aTT,B=\VEgsc;f7=EwFK)MA6_]Gs<2&0Uc?XBYkEM
U"a;Ufi>6<.M9g5>BYy1*Y;jo1nhYjq1M8Yjpi1^oUM#?BR+'2$z_#6Og,;>R-51x
U"z:7RNZS4F2b0\6tNGsH2L_(tjw_t\i\\X.bB(,XbI[pFPvtf8IFG;s(rIW07gsP
U"HrWa)jh]S%X\VZPP=vsn4ISKfLks#S]K*#C>8N2IX8(%$,YnulQm[-Zm*/SH-ey
U"a2_k0p/XBnV7[sGUeF/^<O0,ttJsMH5P3?u66[gs^RjX]+M?,a&Iyax_/,sh^34
U"wG[7nsFqRqlGhr\'Q%lu[S]^Q+Nj*&rXk6iU?b/LS%Z*LYngJqZE;Lo5K).o?sG
U"s.b*RC.X>rjWL;u,iDYG#VXNH[iw/A%qqmn'EiFQP_V[\'HqspIJN886/ec]m;/
U"2LJbx<2aX^_=)ttLEhIA5[G725a5$AZpgL#8\Ku7b[ts-eE6]JX4QCbaaR87^z?
U"]M]q/q7/yN[G*I81+Sgc7H7Cir'2\#8nkKM;9K)+'4mlUvhBx#HWm+,;uMjTLQc
U"/(p)/wZ,C*S=N+5NtXOE1N*hh8bxjNB$jr7^d=nX*Aw%Ps\\7W]65?HXJRyXwuA
U"-[*qXtLkthC\KN#uqMJS.kgDmd-h%78x.hKh8bS-DD*Y8ubB\Z0LF0>jMnP-Wch
U"rLuEoWbTm])\V&rAlyaXoms9.#Z^HL0E=1BWBlU8orxB]NU8TT_bu;CC<B/u#Gw
U"Q^&cAT$*RA7C.-0iw2'[D>%p][J*\X^>NL5_[BEvnA;Mt,/U0/UWAe5\4pw-W]3
U"RS.t.RMi\/f0*YS:kws:a(gnXj,2;:Qz%n8Tj+1bHaCOk$5?g0HThhE1*%0%79N
U"KT^:<I#0o0hj,6=''[;tk&siJ7Tpt\4*FhyaAbpdL>%wm'JMZ695-7Av8SoY/Wk
U"J(/lw2T>oucs=iM(teVY817fO'e\mIiE\KrE/9+64MSqg*==&ga\S%c\H[#svh0
U"gV3&'/p)C$lWr5^^rT06TAZ\fbtL/$UqI5oQIhjd<HLLL+r:T)TZVlv6HC2Wui-
U"Ung*Gb\IonYz;Qxkr_3'YD'Pao4RTMFjJm\8UAKz_\edXF?aAQ94?Yn:Tr,^UUe
U"a^7)4wWGoq4u$F<Ym;>Rx90c_*DSh=rC$X3+VnBSeT62Sja)o:dsTWYLP5nBBcC
U"(Z7-?uT$K=5l?kZ1/[1a_O;\+k#7-\2-Mq1G^T\.M*HRxlN#uss$>bih1*='X<R
U">5A(NRMRB>BGvYY$8'8:(ur1I'Q(6u>4a=S\j\n$I=j_G+=wbRn_9A.1Hh[=$m?
U"QqJ#8gNg&x%4up(%)9%%%%-%oE*)IVb2+k1%g%%\&_%%1%%%%v%grsz%UZVS[qn
U"gEK6.KcHN2dMfWq5Bk3Xb)[JIeQu0)(R8U)+1LnG([A$j[()4z0kXOOd3fIw:&h
U"IvE%uf6//oOOf>)tW_OicwOOdGStAPtCtetu-oOsJxhpkkpl5IX./Nuf6xDkV5B
U"W$lm^hVBml;N$HmB<_++52JSW86?8,(pj0nMZOC?y$SU^F*&Ijzq2BduYYscUX*
U"&5[JyM>M3b%f5s4=lo$G*pi>ts.Pr/;S3t8N/;urTP'_'VK.MdTdjg[;-4kM^e;
U"B+v8a\>r5[&z:r0+?CKYcUc5[lw*d36l'o5<GYCPQi+9Jgj,H<saWb^XrFu;r'm
U"LeVwy'7>(e^lQl[I6+jL:zo^R^uq;m01TRvR't.XQ9Z?+3pu75''H*Kz<j9eGYt
U"8Z.+PPPy5a,tR(H)D46mn.s'&=sMNFf$:\VDGVkbu?*W()]qg:zB0xQ%2N7gske
U"<Aa5Sj*oJzo3)86vi35j_3/8zuhy#Z=GG&0t[jgI>D:Nzt<]Gf8[c:G>u'RrVM<
U")y,6T=ar>sR.8Wc83,DZ2N-t3Q.H%vO9G*Dx2w/tqV[H]Wa$TV:P4rdYh+SF^3k
U"Y,''SLSF&1G&KLP.ivt.IrpWZc0RdV/bN;J$^dG7es/&t<ka&PV&ZHQgS$s_91S
U"Y5S06(82JQ4g:81r+a315xXiE8<8G?lT2=fGIA_PgH4\#Vwk=/VK2=ET/&>s-JW
U"fA#X24JU/#ljnD%hx^dhj)icNr(6K([f\\lDsySAIVE'aH-V[%HFC<i[-EV-.<F
U"dl6c9W*gmnm_;7]wVoF8&tGp#\stT^V/>[<.I150v[CDsNlfZ;V=6g($#hJB*Z-
U"Im]hP)G/Eg)CCg-<XA+8803a5S[Jr^_(lop<[A%,lc]pES&N'VQ$#F7A7pC]M^P
U"SfYo_nz$\Q.h>m4$SbE#W1w2+'5;q7cSP:mjT#X/2O,SZ^b0aTJ]:&Y-IW9F1Y6
U"Hz#:Va-2WpJoCjAxD&BpHSndrNNj2ez+c*'n[bv+s[Yv+3pFoUBkOO->*]jHTt7
U"Z1Wn[)-TjU6>Y/hN&f0?4N/eH/;mafg3faPXZ$ILwGkm]uCFt&&Y]e*A.ZE1<1o
U":?k4>Y>#DWqCemy(lPQ+fh<9kLgy-^/2tJYjUgL\Ql_ciSqy9Z';<x',Ei\0iY[
U"c_ir?T[r$Y4gtmz4Ah+<;CLVKmlk=\lh[iHH>MZLGav2l$v4==V]+*_ghp1.tFa
U"%Jg*Bh&9pwOB&)7//lj;LCuvU(kFA5YpB%n6W*+0QFg'yDT:u.$HIT7p9=OLU+B
U")>VZG*bKA=phWAGOYG[0izC=1E2IfxB20L'>zQ\;U2FguW':2YIQW<KJ0_-lbC$
U"OiyD0NSu,H?B&TJa$e75pE]jJ)MnRU>O:Sm+6uZ#%dYeqrhM*n-0FaNQwL\B)r+
U"Jm;7ofs6Q(.];cflYWpo5O(ocyS9trQB3;Z($FbYjUFu+_Cy(x,n-zV=MXzxldx
U"xV8kecy3*ce;y>Q98Of-#q?Haba=kJJB7$#_d-Hr:uLOReCjN$2>sUvk59Q?.jv
U"7HiVZ(vwp\pnrOd'n40ynw.H:tSpfihAij-3Ig]v#Ga2[t-Wj%s-FZ=EOb?ij$O
U"7Z\%bb-hYw*#5hXqLEwAt$Jci\d=Rum[p\&BHY9nbx]&#L7a-g;SfXY];ExUATf
U"x:[\roy1:D,b-d?(Z%t1dr/X\44MLf_^B]$=$8w)2%V7q8?**Kj:<6V\FqlQkBR
U"PnA&JLFO;jI:k7)t.-uCK#M_hSquDY'L'FB'7btH/%REzQfZEfbqXpnulSnIo3E
U"o*I45Ho47V'[c49$Z<qXJK^>'nk_XZ__#8qFQQ<-:\UAYHLIpBVx(9(s/PbPU25
U"^rKWCFWgm2kH:s'L1cW_(kWx.2#]m84SMBVV][IG$MUPnjQ)2SpLa:-,B[3J%x<
U"yecg6:5h(7V[/qJ-T%-9o+fC#n$ChcdYS_qT8Ab-RWjZ?GsND\#&\/;>BgBEOcl
U"KA^RI9SLPK^G]8Dwm<yaE3#mG;IAUW3[N:+UMR=Bcsbr^Z'I-C?*)(hv2_^Npkm
U"L+YY;Fd$va&k6vWafqQ=.R]t'*58lHsjtlKQNw\ZAl#>wn\stdJj0.mq+WM_N.U
U"hSwKAghsK''[Jp9Vd:aAGHnCZQ1*4]gtArp9U&56n55$^DePdKZtFCR_G^^*>7S
U"^n*4i*^ZI4>km86(*JYu/yn3[SpL3D&NqxO9o=K]ntm\bW9+cD$E0'?Janp$fD&
U"\9YO?s/76r952uECe5[qai5G7mDM-Wi%.DK6Nj+.YXY'TjQp-.&$.z*Bi\QhWQ0
U"jTG2g^HLs-uBe?nh2,cikpc[BDV2Ul_CI(.-xxT>\p<Qj]k*T8pH8brk*xTp6#r
U"'g'hTA2Os_y]xd4]n#)#A.z%r%Z+(QfaL;hmeQ\/VsJ]*6qgsQ6c(q8BQboGVhG
U"UKhPx&9i:d.kbC&X4=j8S,jgInGI;sR5&)qGHgR;);vjDhU:]hv\t?fJmAT>m$-
U"nl7xcG[gTD*DHu$OYqzPKJ9=o\iQwF+e6EaF?uXhVRy[o3_PN;$cLhDaN$\[]kW
U"lj#*kVnXi])zAMG%jr(^?Pk-8vLYNqeg1xR+G?jY/dM-gR3<&p1mk5J3aEL^jbJ
U"&s/ua->xv01-A_7e3^&*P_0*>_G&YIZe0B:e0lnjT&s)/zf0$\K(jqI_bB2[UrI
U"m)dSXwV-nlM+)dB8/%ma>%Q[NjXzRUs>S-0vhiSm_BC+ZH7Zr[1Z^<FEoB;#7C9
U"*mzZJNL9(y<v84x)+TQI]*PTR9j/8fQ+p4CQtdWQtQ&:oQE1WHQJ(btp0Pudv<3
U"[c%?2aU5An8zv0>>DPc(BGwpd7oQe8Sj:R]%5D)XN*a#'jf9[W[?m5Zs]mZK-,W
U"KnX1.xvBi548V]NS308:\Y)_)4_/b]NPfkrNc-39)&3NOhTHYE<0i_VB_pLA_$>
U"0_6c'QNReQF^sg1zsg2+eTU3MMc+GCd%]&L2MkGS>t7k9^_.U57o1&CL4lHeZ-A
U"-K0^K<e>koj#ZAz_#[ABMM7M^xct$tx*(p:hI3W9iS-9grO4=OZ4^Xp6'7W6CnR
U".':Q=P2a8Dqk:Pgqdgi-DwXk[3:nuwX^1?D]10^Dzw\emQMFl*2l6gg?Xr[yX7&
U"Nc2D=p44xc_3V^-1m^^,8yiQ3AW8&#._IMDNS%TkfNFgN<*kN.,kNOm$%Is_J1G
U"1x8m(F\(zS\fNf.z6/K+Ra_0yux-GF_>TeL-Nt#W(a_wv:)Ji;OUEW7&KFmCs#?
U"eNof)m:fL-.Rh71lGHBLDm^N4]g6ftvI7hL)&S'rnCubi1V(1mXcVod8;MYa9[L
U"e6ZXlYIWC4,b*uaT14RxgbJANf\Yx\SXcsJ6>*ra#uj>/tY7twQb/Sdh5IYam]8
U"-86WOZgM3&j0S(Ou_'*lW1E?SRj)9NAQO8Z8I,d8UWn\2]&Nq/z27O/S-hH)6ER
U"]Ou+&SV1SQYi(q9e7*6/4wO%m<rAi;G-XcN4sB)424<lMFKNr?QvlT2FQrw[lAg
U"2*>$34KdUnS,o9XrYV^PYhrZo9*bo9nYPhbwz^k,(c8)u0)^yHJJmehx:BY:gJc
U"MnqUTu-=y$t=y#mlf[lgA%uI'WT&[X.$$P':''\7(PL3I&0M/SGU1M1'Oi.Go_%
U"wnI%N%&6crW-s9z/AXah7fB.a;F30D$c_>(VkZt?mT[cU2G#xy/s)&Gv+y&,GXP
U"t^+okR.%6e##*#dft*??p75-Pgm[6&Fy_S#-/hT_n)gax?WmF<MFEK6IkqSfa>>
U"&Mz#+Xc:sHpvQb;3R2,dE0:LknNWOHu.FW3?k>F0JsPCf4KgQv4:,y;UhRv0KVJ
U"'%oDVdU]X+wE5tw52EDqfQQ(Ri/X<#oskW=YkWCH?ZRi>Flod7)KP]\ij_fB^1k
U"KUOD)(G8an69\UK_^<]Ql5CgcU_^$i^g>l>k>X>e:(r)#dswPH]_BvN5eT,=1PP
U"*_/d1i.Zut$aFR,<#QS..:*YQkcO5;%p^Uk57fWRHE$fMHoW)XA:)pvZ\p<Z=^<
U"is5M'DJ99/CahCZn=A/AR$-m;M=DX+r]QdPxIj0Wm7&/qV8hZV)f6<]XoDWuhn&
U"gK3W\9%Dd[nlFt%bb2QZ:R$8\L(bh'oNy7)Py3H-1prFj,Q1T]_&7xUMe(Z(Lek
U"&+/B6J8d;m\H/B3t$:'LN1OLJ>g/Tj1Np/pJ-?L#d*lt]K4cV[M>Nl\=Kb#oP%G
U"*]Cy<5X4VPyG8mZlf(&H+w+FMaGP1HCh+fbEf]$)T=xC0I]Z,mybdZ.=ZyNS#Zf
U"a<NMH^Yn$\-[+0M$(,U>[VJmgQJT(j5#Y/:94naQO;SS1A_T<=gbFA,'T=C?brj
U"eGR$.Pyc%YQ(7iR4Ugi5QRv2ZJg=-F:3qncmq1KvZKB0u$UetJJRNt4;8xghjcN
U"No-_#Z*n+Tcg5vkD]MNj4us>4k3+A:W]2j.#kRd(L2%Rr4.cw&ck3rH&OV$UB5&
U"WHG:#z)0a?+ch%Aw/4&'d4:]ahKS)lYB.OMq%d(L:*:IFO5]Mbua4d/N)W-;Txj
U"M2MK*XEoOqd5xjL-qVJ1sI6)dkvp/AYu3o+0p(X72F?l/RU66TxZ5*R)NWud4.>
U"P>Z'QXq)IaZp*cw+e9tZAnixVKf<\w=G<f]#:TVR\Xn:\>Wd[nv1pl3gf$^(\CZ
U"*?DnYME4LM0Dj<$SPG]?tPnnHOk&''BLyb6H+?G_JppR_kJ_JAgB/Y+<npEZx5+
U"YDq4+RD+\*d_MkZY:mZ^O5eJaC1vu6It_dzk?L]eueZ4bZ]6vZc'gJ,ZK2wUNG)
U"j+iW*eoOcH#B:N8lA&VOyp'0^%$0CrU*^bLf\jvi?K7;kuP+#mG5)'z=p3)BaHB
U"m)eIe6XA0(zllr3E<m\prs7b%JfjxU8:4Eekyd0JH3j<^4jp87WOb1%_u%?)eLu
U"4d(61A[1rFwqzOZr1ExTE/xzg'k1u)6Na3?wQI7hkGGikYaqo;b0JIYm$>$e+q)
U"1][Ttj3B)$[pI0p<F*IL/<NZkgob^gEH#\4ZhvNG8mbj$^r\&y/i,Ii*xidwFt7
U"6;']LDvWPR1hSEKhhR\YJRa2Qik53j0rMpn#%Y>IpN%sGVzsRlS+LCR.UTbxdy<
U"V4XvSFe?JIrdRBaFH&r:]eKo%\Q+)YM(&Ba%5:C2pX#x7j+dUf7lUw-mkOim_de
U"XNd[/BwO\YThlJQGmgKPn$4b^gJa4qWf0fq4bx;o_U;*fu<%uup+&.eP9_9#Ju+
U"T[Hu'd+AmU/*mOZ70cP(dg<R9>oX+iW%3ya=B56fvVc'g\SDL#A;03f9rd=gSWJ
U"8m/$8Oh3NDBUsd'J,im*:HP['HjQ^+_7n<Z'.(BIG')eY&[^F?%?^6cj7Fq>%dG
U"2*3WM;#RFCJ+(6=Ayyp6pVR7H8qIo(VuMR.NXj82Z:cb=CD.Y&FjaK$IwFXkajl
U"F8dHIs\YK-(TAaF0ZSQ79(%'Jy'7;P:'c-]YPSkRI.pg+o>3^1uWf<;XxaEqXU#
U"H)#7%dsZ2JrWz0OYNL\Zvg6x1U[+Y;[7Xs2FZnOjr_x(9&78FHBfp\r*_EqN%NV
U"z):V$Wq%.ug*bY\vXp$[;eXK.TirJr;<3Kc^fhd5kscgjX?Y;lvm07OX40HpWE%
U"7o4t1;st,)bfA77SPl.mw*1G(*7+f36+3RrT7Yhe8z-Iq,ZfI:oeY>nKi?MjukH
U"W9QIlL8XTb,xljSa0tx\N=-q:CgigfUhKXYi'nvWmGwpoj&3IN5Zx$ObM1L#1-V
U"I#QdcSZl*.eSWs9J^Dp\>8m;a?S-epk;ndbIu'=w&Dd<qRVuf$.vt[FPAoN*3S-
U"'N;DCO=]&luKEbcv5i(70(<z=e&(c+7;Z2Gz3vp9Zid]hoD-#gfP4mlAi&iD3vc
U"y^RgQ-;.u:]lu]?jW:<#-nbF]-Pp[:+^&H6#r'=KF,/ouwfC08J1EE(e1Ym;\hO
U"NQ>Q2>VZ3nBXlPE0nl*%mJctjar1uqYog:%p)]X27SMJE<:=mehH#2XmBkUprJL
U"SPF]nARGYg:hxPl_ViU1Y_WJqS0*fSeN%FP6\'3t8ym;IM1ui9F#50)i=^Q>(gz
U"q\lfZgGCrLUi%7$3b>4*Da2L[j]&8nt7.D+V0h<HIp7mQ\t:a3Et)sz6Y/RJs(9
U"Qv*c(K-S$9L8=X%QQrD\q/xL0dvgJ1Y.I9LKI_PNj]<,b%CV:'wYui)Brj09R^R
U".h?(6li^tKrA7UuhrgmDP)ttdO\=VRRVHZZ5AQp[c8=O?4cNDd]qA)L#^ge_X6Y
U"Pmr1tTE*6.5$CG8m7(:,:gQ%[MtpC6NH:i6j='i0Td.M5uL.,*.\0N%d[(\pEO(
U"M;x<;DglKU[,,0f4ysT;>8it?M#a)B_X<S9ZSQ,eJ08dsRrl?TGh<DhZeVfl6na
U"NLt?TWR8W\WMlBp1e>4k#nL0Trfc#R07*DMu$)Tei_\gP,E6N%^qIK*)baQ=P:&
U";Q'XP=M9Ykn*A9A?GO(FDp*VMB*U,iuk-9m$XiuCJ%z6PG>rJ'+i_r*oY*RCR\2
U"dkD.dlVyz=1ni6XG5_V3O_K^tYPF7T=>s<)YA20/ddg03q8r>($$7Nv2qQ>BJc8
U"0;2%fE-\Bu\,8%DG;dF7<Bv8^?G<JLd2QBQmCHmLhB,1>b2(RjV;9/<%Ej#?>^.
U".D2*XLB;a%Z;7wgn$O_)H(1qZhO3V$IqfHE25Ffi;cqQve?O[4_Z,1A_CX&Kn$8
U"^W%fw*a%?hXFY7o#QLL&:CnziILWN4F;auPM#)[sohCK0)4#mr'=VUD%1F7<&U:
U"/_/UJ\QXs91A;ZgRBqqCz?5+C*hwOAw\$qrmQRnBpyy?V\UwP<fCYc(,,Han'K&
U"_fdXB>dc_MhZE-E7=*UG1Y><JIsu]*VgBhX[JVQ+l%^'*5*PFXdD1e0BAhW\XeN
U"X1mtd^F[s2+Kp(WnUycKB>\CiJYiqI^:gh\gI6<=o*IRa>4G+Y5PLjC)q3MzZU8
U"#/(Thi=3.SRoJ)daKJ+&Q]V+Lp';1l='DS'$]O%L5jQA$FUmzA*<OQ*5g[UWm<,
U"bE0c(^U3%RaQ<5#oM9OBBIIV%Ht8(cH.tGFT8g4Os8?bBEBCGJ4A]kQK9?5c>yk
U"WF/3UF+f[lHcm7=M:6rgRP[>??YA9#Kw_v.O0v%N3Hqk>$s%)oj,GAeqQKF#KNI
U"zB8]#+sN-D+n1uvw7d0NiW+K+mLf*\7dr%atj7BtC\XU&baz$n/.*my'Da*mPkf
U"d4d&39GPk*qXH&vIcJW<<C9+9xg2n?uZlcvoDNi+M#OL+#rsQ-%>xc;HW,0.#RR
U"mm*B+5ApMhBJNsNPa^HX,>lsX+zYPK_uL2hP)-3q$$,NQ+_7]>3Ac1%7Kd)bkPQ
U"m'm<9i&c:EBSJ7;U3Bwf:M&fV_srssk+:r6.zIckJ&,>lAX(9BD6\(lC,CqH4h5
U"9syGlDngRkKDkF8nHkQDPEuY8sffGowTV+Y2)Mm1/9x'F\HJd&Jnnp6Y%a^sfKb
U"*+vH#9'5/7d0Tm_^G#Z)hY-a^q#neLI]qksEeE,UK'0,(b+<:WnaW<-#V'Spv7F
U"s?-.s(,BV<IO^A41OJ)\glk0tY*7r?*fX-9)PI)<3dI\5XxN&$8.yJC,_q0j#rk
U"55LlAf(<UUH7^'=Ex1=:X*i*OmolagGz2e'[S<-l<=FN'M0daP;rBeGVd-EXI^o
U"oF;twGZ*b)u6&ZD,/lA/_Y.S7N7jTR''GTkua&H0Z^.3-ZYl%PB%aG4r>fuEsfh
U"Ihsx[f^8=dlA2d9Xb?XiV2+L;B[d]K?ZA[Zn[T9>[d>(>K$PUQ?#RTOgT2]'JFl
U"[%2D$rqTr:r76ZCi.3UdJP]kW3:?[k$4A^Rv;rCm=H^n^b0=\QC'%JTbWCgiXm7
U"nOgVVP=[M#>[[=#d:9m-LIx^]-KjufLm+Ls10ri=Q&U?'))*UUBVfAbF?h5xnfA
U"_[lkEqEt_X<MSN,dYq\_OEVC4-8Z\jS=_U#i9.5g'W<bll43I#enDx1aeV&k2R[
U"8C^EPA9nCxE]I_iE?[1-Sp;MdNw;BXM;f5nWPa'v.E4&_]F+t?rl%kKX0g/gZKJ
U".T_Pi*e+4Bqm?gGe=zSO$94f6^g=d+O/bK*tlpRHaMLDojpb26F[L>Y8GR[\Tdi
U"n)y+8,KFo,uM\_#g_kJ5/mT<S?QU8R35JG2oD/_^^<Tqb\%YwrIN_?q-_uB309B
U"^%6GJNA-+H7ru37ljF9gF0cG3GiYNnlY*2R$HmK[Jjb$:H]BLCMXHr1$li-uXZ4
U">b8Ma,k:aY48dNyt'x2e]^vPODNg$.TMu<NVeZ7*ht\n4&(y,LF0&PFYNkX^3ON
U"2ETC3N_(/;;58$J51[J[lc84wC2HAD58<:)QN&Hb:xp4B^KPWr(/G90vXR=LWf.
U"f:jh(:*%]1oWyw)q9IvLZ$wil:N62'gaMnL[>o_Zj)*H'NM%FuP]ZNtaX+l0'i;
U"\CD1I^57a$FWpyEt:Y%/49j#wa(#A4#bT/\ha.Ly.jQA0.jc:tVcU[H>4l0j-W6
U"s.ECjoDHe(SkPA7;H1=/]HAPL[zK?nZ5)r*Ui8jhqF+Kce-N$*aoq-v5=Jq>S^x
END SUB
SUB V3
U"YX?*Kow=6-=64&4bd)1w;[QV[2\E**Mus$qN5hr(Uqd*+OTLs/QChRK/7=>zZrM
U"$Al2QhP.Gcti5wBf_rs?tps4,wV]5ROR8?DAmU;e]kh^bTq>k2/s7;CF.VwiHBr
U"$:+)4cpsO3UmFutLdS5D.p%k5Hlxc;s-ECF6x,I:Dilr#+Uax:#164cllx>g.9p
U"^rr%$#8NM22:?BbsAhZDn?*?rKi0P;E,^)xtj,f.2.w\a*P/=c+Q?(Mg%cqqIU+
U"Krug(2mNkPjnbCdAcyd[0'VFo8pV[z&8ka#r;xc>vW-GK8I,B86UYBB-Z5iWa%(
U"bkmc6cL-:Ze5e_:nW1K_e<$6*)HZHC72QIDJ'?#pCWPVR);gt[CQt0k-?uq7*>+
U"5jO#BHt/-UZK%nofTnEPs4])A=EcN'%(?<NgkbkYEN0W?)1kU<,2nkkaGC$WZ&%
U"f>;Z5o.h*raE/E,Xq\GSgW,qd%V8=c<Zv7l%dBbl.AF:bO:IML<gb?_ZD7g$ANk
U"u2M>.qaghp,s$l>N*M*0/kIT*L1X?;w^7507VlW1(sg4DUVVa<,U#L)N%(+mGcU
U"njKu;3&9(+NXKEw]'he29v1?w;r;c6^pm,KU5:H(t7L7A-MW*Am&h7A6eGak)p*
U"RW=bbC;HKS$:IK'M=cXzJ0T1Hg_9f+Bjo[-k^?&,EjEb:F:nj9tnW\dB_-D^VZ/
U"fm%tExD7T:At<ePJsquf=j9^s7a#*TDSa=Q-X/D9u>fI/(-7#8'hZ3Y(WcI6*HG
U"YX8p1RLID6/ZLFFMrb_6ffP\u,JwwK6j<qP)=(*\K7=DOYA%i-<9t+'ihx'AaZ(
U"H8*(<XR57NP6hDK$(*aEX:6?G=d+45;4sJn%V;(2DM:0H,=pZ/rPTD%;k*42Ri/
U"dTTcO%Q%P.2#JPf+<EbX(,L<ZPa8;d:oc$UjFZ*4^KxaK]_oIu9WSTt)k)#)$A-
U"faN2(jP((4Z&i*+uNNp=4+2_OeW8vA=]hpVX>$5dk#mQTf.JJLkO:SS(+SWaW^d
U"NZ://3%rZvtmf?QM=>;C51^%djJ[&i;dZ^g3wiY;9rDKdJw&QfWd)[A)n7<b=.3
U"6[Uq#c\5HR1K,#.d#aWPo/u?GPbJm4NDex63%rQ$Tp$pk_<&m>\JZW;MH7$k0J1
U"'GE8P1ggla]7npG&;hg?a9<&EXdQkmZ7mQ5LEc(W1?-2hMNj,UE)QLR6W8B6\cX
U"bd=OL7U^5Ls(HtDp\ZkVCJB3Vd7qK3-IJ0TaC8#.xHzZS::Aqhe>EAkv-Zdr*0G
U";UHff+1*2MoUeef6M,N6K5w7TTv1dR:xa=)YUVHK<gNTuLm>C6RW=tnCSgjJ3:/
U"<JUXWekSr9G%.FL9=)A6LWDFE/Kg'dgAO??,*9nQ2Z?h77L?=L:1>pfc<Ib\:d]
U"gt04'n7>Q+dLL.]_XMtYENk4U<EN(OMtFLVMqv?\>_MTW+4jrLcqmsVL&8wWf<$
U"8dfj6JA,ohCEdBijWHgdRKLW]ocn_3v9Iq+'6*xcF28aE6lu]RnpYu1;Mos+h13
U"P'32f^V?\C*r0VDIW>hhxjRQ8THbs_&ZUj8K]nOD,sp,kcJ0aJ+FAB_^^J5i$k6
U"Dl7]0JS[_Q(<4q7<$v3JdPV2U'OWmR)grwgE4AIPnj/R6egIF2)QF2Z1l(70X0P
U"d4#t,xo+.t(V*ak#-PNCx(cN8qUat^Da9H)9,q(fMxR3QG$7\Be49PVoesfr(al
U"SVMSK[?GQWlj&vdp3K-<8,Uqu8g\vu^<x-mSyxKTh**Zk5^PwHqk\tsBPhPo[+G
U"vFXvV0J,VZxfWByVtabh>?s4_cU?j$,4PO^<BxEU_CpXZi=o&d0gXlj%mgr=bD4
U"9d(KJ>Ia&63uXVsu:g&v-KHZLkX[XM3Q0.?<IjGIR7]<019%fj[$5J1%$Kjg[ox
U"F2[R))'z,m+I84I>.Ln;RDBfNdD;.A+dVWEFg:TI'Ww0qg05]vhrgHL&vDZU*lu
U":X.l2IQ]Zwp_+k^'ZLhXiIeqk6NX/6aD,=:b\a%)nSGt$jM%T/^TJI3.YkixTh2
U"#bCXAG>iY7B*KRM20U-oo&*K1Z/[m>3Z\&B^MU\;o_Qq>f2p(07Pkf2;5hu4M*H
U"1cQMf+;>D>)].9E8)0cW#]400)av.5eAAT$hCxg+FI)MD#=F7l<]2K?i5*%9ekx
U"&T6Dxb?T(YSLHI.jMv9(RedM=h_+uTZVHrSub$mym,q#>S\Uu\HxoWg6[v^ZCc:
U"SIkZ\jziB/M8<l$Eq6A-BIclH:&&JyK<Q[u=W%\Wf;00W7j%XSH-=m$q:RU1*AK
U"EN'GuNbkW9+/bw%J<3pUxxms#8$n4psqt:Jb\'(jY3qm=Zo97qs<7+u61_uq>F5
U"t?3O$i(uYC2K]n6*/TQ1R08*48E&xlY'r9$VY)lY:ii07S4nGbn$um##4j;SRDl
U"chOGMT?>mmIhuv6b;xa,+C9H6bpj5QN^jUsb[Cth$rg67i^d2>MX0J(G*:qw?1y
U")2/Fi=&ydr%kH1w.e+-j^h.0smQc.ftT%%s#p%7[:Fi$]TFK<;v=CHb^QK[**uO
U"^tZ%uVF(n+QZhT^Fs,lZpGaN3$;b5ubXkis=_KB/4^3JA68tGv=_;1M#awyo%/p
U"/\S:#rQ1U.?8nz3n0$T3EaBNGF3?ZbwNnw&&5D-3)[XVX(KaO6S?G)/<bo*;k]s
U"nKq5W[2w&tqauR]x\_8d^UOadamC'&al,-[iseJnznJd.ed&56C3P+LhOiLSm5Q
U"1#kA2T8E5sP'L?g\liRT%$PWJQ8JQvpc1P'Q2^S(+(V^EV%tEVtRLVHU)n8S;3O
U"-]eYv)8[^cwP1)7.&g]Xe?2Vi.UP.Ts0gB:p(Jc9.s^>/89iRcQ?bYD$^k)r.1A
U"=M'Yi#CD-oQ]wo>43%Pp=765\H)#]AoJp-DN($.H_6/_;X^a^2foGb47\15.4[S
U"C5u^9VfIFRqBQ4E3X6LVxqjTn]-P^ACsdkQ.V3IcGHsJ-UDJ$xk]8W2W]0-=.R5
U"5N.,8]8BQ%1P;G)XTd1)kU?YF?:kT$K<Yi>,Z??do#,UW\L+1D_Y;)UkWn-MYCW
U"\jQGP<C/%rDT*Yp3<t%SC.3b<-t*UT(a1u&<u-*QEZ64:9qgM4Xs&tB6AHUqJr_
U"<ULC4)&yqN0*>(cdPK<^XIq'+fwGF/0Uq+thsdoqGOCLeM#QMGYj0JE;rH2+CB<
U"MfU=GLQsvCU\iwW1r>6x;*CLdVzu&i/C?N0jrh5L:Ej?lI\bxir/8xGPux]uZ0)
U"brM;9^=ls393V+b'a6#JC#qjUQM=6VmNiNCxo.([L*prf,bV*;c[b=shNTmofM(
U"[L4r<6;sFPj3qjiWti'QPg$s_PuXRNm>;ij5VC0G93vb9Z+&IF&rm7JiyQuQgau
U"jFyLziO9+h7kiHuv]RYV3M8z9IC%;f&^Li_R/C1jK7j\&z(rn:z&;_.rS43;m<[
U"LCqNq:#\jO5(5&-:CNEWz/vMZfwQi43qsuO,>fty_7[Whx;Df>Tw;_wa1NDu>nX
U"FOES0K7('u/q)1u,U=TP8]l],Li,,1fs6=/j7nq[pdXxSJj-qe&6iRN/UcT]T&T
U"*52>Lhh+BGlDlcIHZ_gDTrct*VdXl1J]$u$s>ehhlRU4zYPOBkO\ja]\-KkuR;V
U"Dw:Ab%(j-2Izm$)Xh]T\fi*6,JR5UC$bkl09Oe#WU$'cXJl=>gO(\&Yj9ONAd=$
U"J'7FhcTlp[0<Rpwt1Ju7]55>1hfBh1soWF9[gJ^8jqeWrcV;^cukA2,5&YLQzUU
U"Imxs:dV3c#UlLBlUJ2IBv7=FyTgreGEDx)3S4u+='tfKGfi+(NC&PBKFcIJ_^WN
U"o.3[,AaNm-CmrpXVR/+7BD<J1bvCJkD%I<Z<$WVnARQuEt.1<#1IV*(HbVSoeCI
U"#niLvuBCygfOY&g[Z?9)>/H<]fR3>*9<q.C/cTMf[h.bmk[WlB#Ys(:JAH3e&Z'
U"*VY+(]HN/E]Fhd&vt*y-LY(sph5?a+w2R2BIBKCfw-C,5q/t2%?HCu^^^v$Fg&=
U"Snt%1_Mj%7Wh^#q$kkf&t2onCjYnaj3OwEL)iEL%E;L-Eb_[\e.CGSc[7219S8w
U"7XcZshHzb;Zn7#L=lAYU_qoDeju'NaR26I^/zL&0K7XcXoM]_%xmQULr02c0l_'
U"tlPjxW;:R-n-LU<Zd=hLaodQGN0nJC>8osgUa2Y4#+z4Z:uphRr*)gt#DA2:801
U"eJ4VptVfpH1gY6#U&?>UPi0XtqtrV]J25L#[R=l7p*uuPGIaUXNgLsDUu?sGARX
U"*Q%KCsS<o?)=p<L+%kphzKnJGlg1,r$ZLU+-,IAkbAhmj5(bpTj_^fr5]*jO_xD
U"-p<m].?sH5[Q2'/aUrkh,+GcI6]nF6nIV6DmkWsjY'jfUD8L3f#lkiO:XtO>[fC
U"#BX:7B8Mc_7Z_qM8EvndVpPt'gXY^+JiZ+gBc<NLulp,M79rb=7=buDK)#fG>iZ
U"FPYn,oGu6(=u<?YP6aAuGF%f0;R>)+Fl3XZYs]KW_Rec5pSmEdnQv5OZ/iSGX^(
U"^BJ.wsc/SziTdh(UkrY8jn3POp7f1EL<S/M:j'_CgukF?O7sP_w_Pgt*2ugp=Ur
U"h\28sX_wg6gtHE:KGnlM7[5UrKK\1-\V.%7LxU_1h2KXpZHONb;_mEXh:dzQK;f
U"p3)chroduQeAjp\j8B&JXLgqvH+8(z\?jcr;$(BC]tDgl5NOl,pfIXUa8hmmqCL
U"IOWJm?qvL&3R[+0X5.]hHVirhZ2X:DBxyZEv:gotuEv>pgtZ[&CS[El95z9Gu3t
U"HP]CrLG.z[p?U?sbeL$cU1dt/M]2J.577>HOtvAUAeV0966gkh(YGJ?Sem'(XIH
U"bx+q$zT6Z.17K(2B&7PY-5I2pWU8ti<O_q0bJK)jJ+lSc_]$XpIx0hFuIbNVOB9
U"hA-S>=5SliL+(Wc9lHh%?IS4e-3Z*jYCSHq$j[vj$+[Ha1\XF'qqVc_b[t0-jbW
U"ciNuI^Q<kDj[Zp=HG,=%.#Pb(<fEr'G7M.?xLsrve>p/rU\2h0)Wx+?(WftQU'9
U"fRN:zRC5)f(,:G&SK]L=Ryej#Vj[Fp*<0sU[eO(f,E#qN.(R0q\eG+S3LvFiiIY
U"_QHg4?2-0bKlCEpubL*w<;mrYPLI#h1T'9<6xCL[J$mdW$e-g;I$'6FSfkfN0q2
U"2+cjs1=NE5M,3S4tjW[EbP.+/-FC/Mu9Pi,T%a9%M&+60=M;Ot9\'%Q:0,[vvU=
U"A=d9T'd*q%HKBot<t1YH/]m_?*3t5./l;YEk-p;aM3sWZw-t'3=(p1N8RH9C*?D
U"Op9UJOgBZ';5KQu_M^r(QcQZ:s1Q7qq/7GhDAi.pFP%a)Kr*R'FS0hRDi5DVMWD
U"tDT;,u_'k04W)%vhrkl1TY)/Vp>6DnFH[GuNHt#mYgyQ^=pf8-(uHa-rJ[\.+\-
U"SE#r?3Z5SO^]?4?#^4(n;^PdA%]UVk-g)>oSVP?C_63q\3%2iY;CT1pF>+6Bb#C
U"u=:kl;rX[M5Y.COz#<5?.H%96uBMLqIh*v(lAuKr>':fqqg?$dc:GAL=^uQvn&\
U"'cbYpY97pp4l+t?9xFxhEb[:4n9CCqVj]EkXL-69If4g<1<S$7aG0Ts4Svvnt4S
U"VmJwfS5dxv3TSZ?+7MSvTq=f1$7G,f3SZA-:3R97^5SNAq$d5Oj2wbETN/bV)(,
U"zyHSyeVRf4Lc$<mWMffLal?MewftsS;6rsAtqYsX6Xi\-#0/,M3BpmG,.+grlqd
U"47v1t'J2/XAA$l#)[zQM=tJVSdCxvaBOZ[IF<Oz[p,#i)I9Qbo;$)Ak9QM6o/74
U")lj=^.6.d_Hl43jWqr+zj>fDF)g/+vF3oDB7s1aE9M&L+f>sol41#n\FcJ^$HIN
U"\z1iYgHYPh*rVGfQqEW/8;aJI%(3q*&eFK0)uoJqoO5?(fi&pZ]>kliKb.%P4<.
U"(R,f>]Z\Ew;85FWQH1EgQM(?jTOi,okmpD,Xc2Si.QX5+jnt/FSdmz7NIoy0t'O
U"l:[g'3(q%/eck,vIraF?oQzDE8[dtr\K'q&TBS7azQ2HKx:v1qa3zsx&G\CHQX$
U"tQ'6a6b]([0$=jx9]Mp&p$[9BK#SmEYrGi0+I70>d6$+kA0N:I.cg78GD0a%l^#
U"_=RWTe80FItFS%wsp3azLx%B%H&Mx7;Q+l^FF8eOXn(:3FdTd<Me2X)UdG.-CK^
U"#D1.:f2SbFrWL.a<0hO+3g=U>uDxA=O],Lt.d'n]bqa>7XiVXJDk=Lg^$>8uSd0
U"<E+Ei/l+ZTjo4^O=aubrQW\\.4(w7Kp8p*wI^I=GGC6)JnP;>blOQV/wmHT?k1,
U"]t_<GO^)FGS7e9pXn87+QplP]Hkw-w?DY#fvcHH,7Nq>>0D%?D*t>GyjDZP[Zzn
U"97SEb$55O6UH1K6HtL5Buj<8O1<O2#2-17UnPD?4M#IA7CKnzoR:WJadh_j0iBP
U"-$BH7*9RqzFB*?WdWPAv+k<+Phz^nVmm,[lpLbGCF2#hPS,jVH#&F8JTgu%(>B>
U"(e*Zd\7A9?x0^6h0Gl=c3-5xaPGKOBKxI\mrIK0eW$Q4L5H]b>q=$^#R><H.BwK
U"Ej2=?LqnLJlrgG2PhnHtWVWOnkq%A#lDpa]m:XY^bV6LjASRv0kS11db%H6%Rg(
U"Mj+A7YGeCROXC.JT*&:[eAN8A#j:9/i:H=;.n[-n&cWR#1fsa9w]g+Kj$;H_R+X
U"uLK*'7:EY(4+S1XL>7ZdJP38^>78*UY_[]fIZV]]l?d;Jn8YkQ1OpG#h[KP6TgB
U"]1^OXV3rtwUuD;BNNcR<[L15j8*<[IT9Tjb<r;791#V;15#M;u#aW3HGBKM&YNV
U"ohwZ.=UT*dqJ43epyKX6w*$;/1=qbK+&($87=%>'O,>kDp*8H6X9]&X^WZ_;+Di
U"8l'=]OA\auZHOaZI&5%.taU\7aWf(/4Q\S\zVZYWmNPLSBZ7nQ992$TaD'N,,s>
U"\\40X?brY5;g[STbRO4blQnA_NkZ5kW)iXDdi(S/av1s>ki'2Csi2B>EP_T^U#f
U":G^%3h.Xj.$7haLmK0w:A;]RA9G,Ti(gY=fknGi.A*0\>lR-ID0+2T#Y&'5At:Z
U"+;U2j/>t,B5?r(;S+\]t\(uU+wSLvR75e;Wm'lS-L\_dr/6n*[&9K0/f<c5oPDE
U"'lz'i3GC<FujxDfiDsDL].TgnsI7U$D9CF:$Q2Ik^?j\$)kxZ6)s(FI]u25:Rk.
U"yULIGQM#N%z<o2^G_qi8CAu\GnT2Pm1t\Jl]2hS9duO[&K0vEmx5o&v#&>0'P=E
U"k,[+='Qa_0BhM#Um5>T'rx1r^Ux):z7&;M=w<w;<HUKTWx\b2vijL_L.:UDX7eK
U"=YnTIG&g\^TXm3O6fMXY:5ZfI4D5)[&$<X(KIUsISNI\1\UH^T\.el+m$y[HSPH
U"Rn0#Hg81g2#,M.8Mw[3SS1YB'ZpSx*ZtVw(FiZn%RsR<Yjwqb<e/UAzI(g7,bfa
U"x=,-Z3/Shi(3=Z=\&'sV4Dff*/WbfOm^?l[b(*]PgV=^a&5#_+W3CAJOEhHi58I
U":qnGEk=s2,ur_$f*0$HZ2t%R8l$>uzOM8)4lSuzO8M)4luOzO8)24luzrOx%+uT
U"]-SXL;B\0;NOPF0h%+e(]9h\r/TRRpyZo)LsOa2;nT'c%+dQuJJn%?s6VKIIF,<
U"B8v:M2/nv/H$e'TXcQO0]#A4KrE<&IRlT?FqDL=%%MmB2NLD-=ZU)4$(Th-o,BA
U"K'>(mUZNf?1jdwDm<rD=[3$4#=VW%\cu,^<Rk**jF3KR)]*+>vi\:W1W:IDTis5
U"B:0O>p#%9Wx(u3c&Igj5+pK64Tgs/PiaWuG=fpx;o?%/Pic?XMCQ?d'<yf\e)fg
U"]4%2(eNYI:Y4(A()]N>2;V8$sq0$yiq4a,i%,]#65*kkCIu3gr]]82#YEmoSA%v
U"a\N*.nyV>G[$H,U\15O,axAGBWTPH'(,B5ToQ(><L/jdKSPF5&At-456brNW5b[
U"BgKn;(W^rs5oB)[F^DKhfVraRdi_Lw8SK3qN*D3yH;(BRjzZBiK0QSOp4(QZ9Ag
U"[845P4EgS-k/gG=z\43Jo1X-Dc<T4h-.<Q\[y5#WVzLdLYcR#Jk>b&*M3/_d4f1
U"p<,Xo6Nda:=H9S9hLwhr7ctxb>swU_A77%jXmF5\j/tC8nTfnP#Ib1H4-L4#LbN
U":0wtHwi]WJr<BqWbdNDLRSnQc0=ekp0'ED1NO/'\#2s+78tSmbt0Tx_Fq/Vd:Wx
U"+pHMzl7i+;N9nHwJdLi=3Q(>g8YXj%Wb2EimQc8V=3IG>(9rf=03-A>.HviYd(C
U"B,7TY\1bPX%VaPNnqOspPX/W.UM5-km$0hCV.\,C\8xcHTXPqPPD=_,<4v##pPw
U"bS0\b^[kYu7Hnnr$xsUS/\_CFppNHaCX*sWrpG7;G(WeYsps)%(WYPj^YEA8;qs
U"x_MTWGCTroVLUCVjbOjcp&\#K&\>()>]kwaaP*c4>'CHQw]/Sm\vfw1=Qi60uvW
U"W:9u)uh]QVB&F2MY6,j4MXQnn6lUK\1\4.h6BgKksUAAm^DTHbMkkP_5acvK(p,
U"^ksH/ufz2g.$e(iyTH]4(>RmRzSvO8JuMiA0poN8\kPV['SL<<SsZ%2D7zWt/%T
U"*7XO^&>I08Uugcj'G)&\lex0EN(#V)2GAFP4/DGs<p)Vb)[W>K=6l=>;-.s8l((
U"M?NdbE-p4tis5c1(F\596<RhM*F1)WhrN=GWgp_D-:G9&2XuwTa:crXkE&r/V2(
U"K1?qQ=-gWD(1GuB:iqR)Xg+8%V27V5<ud6>D/k$YT5w5XM(hY,CnPH7ri<G_qp2
U"O^,DX?D,;)u]qh6hj+(R2s708)qJnL#3x:g=:#wZo[U.$Im8hr7,tufH#\W7e/A
U"$a$LYmT8OME5p1+TI;U;o)SbT^M%h50bg/Eu?Q:ZMHMT%)#d^g5SOH#..H,QA'r
U"WP3ZHcf-_N89gU36nap]^I;XNKrL#Ut2_ig?o<;U054zilCx5Dbv[7E.DHaS8R\
U"bWnGVG3d>Pt#b5%AOW06rblvf]Z?BVTAMdt8om<RKuSEI>FXH2#Ei(EFP,SAfU:
U"6[xV[uiT,RB7MPOio35'REXGU>j1+lZFw82%Fh.azm0AN<hy;R6Ve>ZHiT<TjZA
U"nup#HwuA+.%HtI>xPh;-U)sbU/?xT?]?E5umM6$xf3J9H'E'&RT^4(llgZ;;:iU
U"vO]lfZ)90V)'T=hoI_HGa;HX)(dbe/:EY]Qq:SL8iUfJ<2V9]&-bgn\+#hj.H-#
U"[]hWW7X=h>b\pqOb,k9&G%T(1LF$p0??<La*(0tkUx&hrZp0$?owW)^URH7krF;
U"Y:,v8UaB4nGqgFSClV'+5DYpB,/'$[tG(zHc%f%&Ola&Y7uu&PfBbS&bw1I_FUS
U"Eh(d:3]?1[?oV?FH:zH?K-]LZ1b4J#D,$iTX0>Eof-Zh1*(F\jLCPr#m'qL(%2.
U"c1l1qK%u+rfWeC&==D<F1Pn?Z'*8_*oZNh,-H8$*jE$/r>H#4hCUHeeOM?;p?\C
U"F(A>])-(I$%f?$lgpga6qzuPAJnZfQN+=cCf1Hi#<^d^h+r#OOt?+0=>Fne])Kx
U"aT5=ZB5=;IVj[A/TO)E2%*=5>n,Ec]]iW1_jOu<Ngx39Si\EATeP==dnDK;6]9>
U"rdn%8,PWhRMa,;B;[j>Ek=.&+kXa&PAuA,F*Tf\fu3ptCmG:nvN4=I1)8]TJ<d6
U"HS>jPAuI;)T?m3[_%3S)/?u3dJjU]/eB(;W1I+Ve3+TfPbJG]Pte^gOcS^(8C3a
U"-a<ow4dEbkI&]Sma%<6R4U7y->CgQ\EuUg<;Zn)fN&kGSG;ln8=^v;jv=sVNkeq
U"MBogG$ns-$Im4,0uiQ9i$WUaJkM9dy*'d(&n3ke.jX5d&e>Nq,xC66Ud^thLdRq
U"GhlGSMg;:Gr[qKs9[d-7mnD3iaT&aBc6+NJ\qC#90feIO[Ma2o=[6bniZ<w8\%t
U"bDaH7l2i5$8di.:aw[=O6eWSO*a(3*d.H+IZnqs%$-_8#AsMKf3PGv9'lh.+QQf
U"7Y:mAq^mWPu_o9NqTQC?/BMXCUC4UoPMr:rG[ATj.X:'10a9Qtjv<lKIpj^I'8s
U"rCLk.g6s[B5Nw5o+MPx0oA2&5J[>5p7q'T3F5w4%t98G13LFwSw]r%NTXa8iH3o
U"&ETYk4*)jcX:l?el;*.T2clT8YaMWHr0_G*\%T%0uq,aKD&B7aeK'NaeoMkxgaT
U"^C%KEmxd1nq7QH,M>i6N-t<<uT4eof6O5951$74Iq(W<P'omT,GNA>C(Gi5oAqS
U"sR+S')ce&f2'Sr/Vs'43*lXEnW<G0<lcgIR?b%j*\*#W]lE+50(P&aJaZKLJ,m.
U"DI;68nwdSl]hoAQ,_nCYK#o&21/X#mW[wxs\&4hgp8,a;Q.4N7vDwD_awdg.FvJ
U"of;vc*^VY<rfipHE/p8#Tg<cPV%BA,YgL)t_e^T8\iCBR,EI:dCgW'FVsQV0gF,
U"YLPPEw)q#9r4*?eTxFWfKdfuJGDU1BiCxiv&qZqZ-]whuyHM+V>S0FxfdBr%WsJ
U"Ju*W%1I)kbUl2Y[_O6>;]tbsNdd8R><dH3A$<$Nq6D>.FWwU[>jAwuZf(/Nn>I?
U"XykUA+*SYS,h^n5Wea\&S,8N8pJu3p3Z-:+zYCSI5*)^[6UiCK[59[ns7BGfznF
U"K2Jt;:Q0$B0vw;d4g2DDw5W;H6X7r6UtS_4BnH7GobYk2Q8yi+5/;xB,91NDd>:
U"NkZK,GFEOOp5S/+oJ.JMom+G\BUF=AH:S8+JF,P#XJUl]0<VMsMB&j<1T1>3*4C
U"IEMSxe%Z7bJqyYaR<V6_MK=&#k=lt:e0q1L[yBawUAc+v8Z7/Sy6g8,/DD,?wZ%
U"MhWGJp;QFvBj^)Qtmr),3i(Zt_g8nU-48Q^+rjY1rcUll.R=^%cV^^xjK#<i/qo
U"lo9'eQ(l;l:BbO$bbJWr=QqReta,a(g&O&X*b2x#2kc,FmA17.1Ik%I9&T)j=J>
U"&<rNiQu>se+ETeiI:]I\1oE1;]FAbkhBdQdb./HL7'(D_.AH/]a3iUjURIK\o:k
U"n5N.)DlAW4K8fb>Fe5,>9$Wt9dYX0O>-wHW&A-us$/33H)tUe:M,G^&qXSQ.]U#
U"3s+TCWj1Y?%I=snbn)<C-$(Bqag\1>^sO(\g)WdI>ZOZ=pa\-3C]\BO]xD)r_#s
U"RDs*0oLS)tA'/_G/'++xXw>0RL8_HA*b&l6m[mFPZvsF$lPxi($X;AbrsDnsk<[
U".^U[N5M::.x$c7w_2SmsBS.1CX%NWt.>tq--t].$G(sb;PgP_(l2c7o_j+R7HFi
U"NT<_X^Qgi.okXskJH&#4W'a36JnAWA_?S2H60INglbj])Mnav[:7xksYra_Gch/
U"(K,T4b1OKgW7r:KxaX=52bJ9m=RkWQ?(i_xTK9Q%-uracHlp/xL)RAEIXBhA[E>
U"c/;DUOTymSzg6-i0LVn=x<51S8NWfZhER&jz>6';a0I*=4iV5;BpEcAJeU53VLo
U"1K2t3I<,RB/_W_O]H,^VNw)>_8)8VHDB2^k*C_gSE7u)CRc7S:jGw5bR>TBCEGs
U"1/R(?eDMT\fbkSVy:T_IV=ET=AS;S+/_JHa0<eaaEJ$VJ%oiPyv0Ry\2Rnq()4J
U"AjE:<RSOPq&=QMr3;rOXrd0>e*^9RfO2&W>YIV(sS,cx5:$Igr\w;qtJBGeIYVx
U"_K3MeS]&n9udh6XncI<[4LxY#FZBg?/&C(FEAd?#\E4Q]sLIV[>%[;4bGcMhtEQ
U"ZGGFv(+)d8bGiLGq0,l<KS)gnf4R>U?X\,>$twOf=ZQuhkwFX#7pM-X5\X?XhtK
U"p;)Re.lT-_WG'L5BR6^ddo14KQ*jC;4YVIO/d/_r[YekEK9]yY/<HlE70Hu=+zT
U"s.hzrui)E(/+PG#4dN._T#QEKgQ\b=9Gt2Kn9f2bH,sSYXNazw(1m\uXJPf?U<V
U"fR66)&.HbC3U]NO<L1obdEc9Z3UrkhliHlTu1FueN&zlB*O#IVjBbB-$[nSqT=#
U"[m3LLoBECF0DR+2?pzY&--ktT,XmejZ<V=)Z\jz-D$%*>f2OvwH&G$^Wt4=_UkA
U"jUWcIQk4M*825*'3?jsP44m_PM<45;:'<6j?=MPGt)U]1RlTe35iR^$LXCrelw0
U"j$f^8Ved]fYBDB\RENVYqiKx0HH8tE-K<#79D/-u?aN7D.4H*<lR+WX.7HjG\&6
U"+Qde2<_fA*r/AV#T5e:<[3Y,Kd1>9dCO%i8xRU5u3f*4J*tD$hRjEj*KUld8gsM
U"ehzgi?]d&2(ILVr4*A&SF,bvUX37Lar]o;UMYX.8(v*B0/6Via[ZoRQ3*Cg$FRa
U"E60:IjhElLP4)hoc+''8(2>kjI1)&tc7_rX[pVKMLXl%uXbP=uMFkfEqR\.4=p3
U"-O/Ii6GE[_Mw%+nF>3mF3R^dvyOZfd3U#S+1P=*aD<h/y5Uj3L'b%Vy4i^^kEr6
U"[&Uvg,-uny[/kn=0d[wb9x5NBDX9n3/pL4VX'/ce.UOBk9Vk.Oav&_q]cZV.0bh
U"Dl_q)W,Wd55;>11wXPw'5=BDYO%r/9b.#utF&P)MFT0JEp.$NqUO1IMpC:<&(v_
U"s*iYejbk^ulv9mmfcx-WEaA)crk$AW758Ime\Losng(wknw5sT]no-'WSbak#OM
U"R+dL*kk%hVe(RbblsI4*2<=vtG;W2:$ArVba7>oDe8IN4j'k,w>MjJRegHv2bAJ
U"g:oT6(fCCn3ULgKPjfhZcZw+hGH?US7WROIDA6kkOK4Z]-?KaVvUwBWeOkC*iWH
END SUB
SUB V4
U"[f-]lg-bH>W\#^d%(f'mi[L]r3UB*iVnnAc)&+,fcmulKI)j\3RLD8I\xLVQ)d0
U"(4LVbl6g<.46M.kJHQbs6o;iK^CVubqCqC]mi/s;[iVrA3Mg3XtKl$*tW.\]c%C
U"f>]#8I]k'B&:^7gk2x$$LXIpoUZJlN$PI#5\,x;OY_J0f*ynXCL6fH1QVvZ]#lM
U"(:MC$U)6N>$tR]k2,R]:d?0VJ1CGh$4[GA7KLr>'[)F.in<<+heKGyjrU9U-)HL
U"hPkX,bk.MdEm0[in^CNkob)3c2;wDJQr:Ot*QEcU7%G=<a#$CDwjm,%x&u%p()9
U"%%%%-X%h*)UIUvW)w/+%(%s?%%%1%%%%vgr%jszU%ZSwjjk>'V%sH\9i7.8XTZ-
U"fq&3Zi1J_e_I0:wE<AX'J?<JzCXA27P]FBRCaNmx%9Nh*xLkXo8cM2^bhKuuWE.
U"yHk>WxK$kuH$Q#ulZs_cw[(U14gUq5urW/.h1b'2;R_+,5MeO(l2s2iF)>XreL\
U"k]o2yCYq#7k]:4y]o9)=t39ho?rY88NY]D\e^Ve)9A^^pVA?lDxeqGtiC^6>,FC
U".kbSqYGj8?S#X->s((5#0J'9B17uep^l:UlqnUMXpk#C3F](&*JYzmtZjqcoF:L
U"a+]HmokiBUj]7WA'Y88Ni'x4h=J^CsFi14oBl)me)\?6?h'va8b:;PD<Z09oRm_
U"EgCCBWR6?iL)cUw4&YEqaN(CV7#Gb[L*j7P8H-*]9?Ix$55ixvMkZExmbhs^b.o
U"&W%Et;uGOc<p:%N\ROdVAxb'-B7GH>75Se8*s_[)5YqWDyVk]N0RQbVbONvC+(L
U"=<no:1jB6aw-gUkKF1.A^PB,o\',6Xm*3r0PIfkCbkWg#9^gt9N3M;8F6=tl^,e
U"EZBJ/m=Z+:#u&R#pGptp]=S\b_\[LDB2sK)tyGBSIO]%$zUb;_b&Zp$7H:u?C#7
U"Is:t1X0=q?1d/(M=HNou^;:s8S,iD$jyIg?#=m,'LB1DS.z#z3P%#'lY/N&SCvK
U"YFtL]Ch^:U>7iJ^mJ;z,:We;i0TX704WTnNpJ&ndn?$L\PxLQ%vRs#[0XH,xp?u
U"hZ\VuF<v^9nj(3NjjEGmY;G+%1--_P#Z]$)c^)=C.5e,axD3cIv/S:YH3)tJ6F$
U";n5=Zep<)fb#:c7+W=X3g+7EUslv)oHcGgL?58-JrOLJ=^+aJ-P]QJ_c]f3M$iJ
U"-C*g$45#YPU]5\k#y]'4<;\D<-u'n4jwre:vM(Hmu/%tviunfdwnLHk2cq6Pppr
U"Y:$v(ZK]0dJH<eQ?nkwMQFtJxj4Y:2.]S-joUCU_m+-eeKf%JS5hE0g\Sf4bXxe
U"IC%q9Vwr.YjpU(:t7pqd?%ts*T=.Ix]Vda.>:%t;FJC'Ar&1%ht2?vGoNk6?_G%
U"7ny+dIrxO,48)a1L*?NNe'zVaMBqa/ry%.HYM=y2)?5AbiC*Y/=8(5;zbhj9f+%
U"drYg5J:QA2y4u;8?n3,:BWEpZ-r(ha4A]gwLEZ*nyL9mHG-GrqMCRaONR1Kw6%q
U"uHvf=CK(0Ai*ohY5[cg5_?3)5^_Lhk&T?Tt6YN^$QhteB5P&iLPIP4]Q>\)jz5Z
U"haP(Z8I7OL)TXy>Fzhp+&'O5jj/0KwD_,Ftu)bueBc/lJ[/sGa:i?MS(MW(0Wj#
U"08JxN3/%99w&^(3iJBP96LbyZvBs6=aF+l&U=.:R\i0#p7>KRdmCc;\fUJ<_6D_
U">V,Fe%bvP?S]R#/HvSoV7FS?^ocS*h)v%NsY5cb6a5LJhBzb\8JC8(Xoe+SB6i#
U"1)Al5z2vm:x>K(gBFZ27t'f*$f[xsx5GZ\viYBULO;Xc$>6Fiuq\Op^'=x^krUG
U"SSuqjS0]nY2vohLHLtP?hWtiqt0**$vw=UJH*2bY7>YXjO(Q21q^M4s]um8kl\g
U"?4r7960&1w=v8_S*V\os%uYQ9r'Z1k].NQ*YLL^[SykbthZefwc>79;9*4?7oBx
U"&N=2tRwc,CT33GHRcR,WL+dNO[.#mX<'\TXzeqkn$G+D<5s^D,sY\VK3XG\mDO6
U"CF]M#y1sP2X[t;SuOXE0':\83Je\8hZ;JLG+g:'5l81o1z0??<87k?kBd-bu['f
U"P[7T/d,l,cRS%Sb-YdTI+j_4oA2M)?sg)?Qw5cI?ZrH/;El9l'7K%HimhNlzN5e
U"^^)iWc9dSy^/X%==5a2%;:ED304QXQJ-3CuLK<6n&qUpAIl6f:fSAsOg*DON(:A
U"]$n5S_'kE^0<HA50^cKTZnxeo+op-aZ>D\fZ3CI.(;,h_pPoU>I>&YB?D6\Q<p-
U"T&t%25XnfShXbJHN$pN^9=a8LQZKa7?zSgMAFTC+kZ?])OUO-X$YX1)%:WQ:V6n
U"uGV$qAQB1HTtYm&dF0.rPOx\OPIvVudltDkjdi74&&MGhjnuG&EKW_[2i)KtY9r
U"ous%wv%0up(%)9%%[%-%#$*)IfhWeUI[)%%;%9%%1%%%%j&'fru%qjWS[gfx>k&
U"T=T.k5L4)_N=5SQQP:1lctKLWiqYLq&9(HB.9oBf#j=ajO9BqAf/mk&2oHofhI0
U"8KetZ$V,w5LQxjb.K0'Iq66GGie+Lm-w\R]>Iua-uKnh44hPnun+j50j%(-8X&a
U":^q$2WGj1[giF(oG?Iaujo#$CK?TPadwg%>-8d77*iowcQ9:dEa\]mq\+7U=)m<
U"M)rv(=z0TbS7faKHh2#6//7PG-X4%8pX0NjYE2q-GiGHq+PSfpcRC.s0hI.C<-T
U"qf/D-9p%J=>^P=Lr75aI;PU\-O]FAq7S#ac05I/WC8U\i<4='\^25Gc+.<tm)Ne
U"Rktf)tM,D6ky\m,*98R33aNdO9KxK*8=9I$)+6X;kY/$(mt:Km<PZjN//>iESLP
U"rxoX\7lA0[XAnnf,fS*Aovc\Be#[B=u_Jl;j7UfSEN?YTcWbT[H,(tyErwh,V+R
U"$o&kgTr=^.BS2R&QxCj?>ejJ/cs5d\1y4DZJy/n=F=0jDw#7)rc[ME,CYZ-sKp3
U"+g5^49NHS1W]My86DP+;p'_#=,Mjb3;(,d23wg'N\sEKbkEc9M=OUm,TdpS9[ve
U"vf;swp25McMH*iHQYXfXZi(h0W]Ghdk:Q5,O=m8sF#snt2.>+.EPzfc-peWB/OX
U"0,-&2UX8LTYa9.:pT?;R[\;T(]2bDHWhi'uoWiFf$]:tIEWh'b_5qO*.$x2QAuH
U"'BeI>/U[*y-SCp:dreac7mwr]HLP/\JJ0b*'c,^HYgH1-A\]k29oE=)MVFggjF?
U"-?4alf2E.XeL,UYp)TfsRu/uqQ8Y/UC*O*:Hq$E'DXce1A:qw^t6Px?+PGoN:cK
U"d#m>RoTgu1hxjOC*x;b59_sKsxoq/*O7X]N^lAkk3uivM+1&yTSjjS]/QwV(5Yg
U"Bq(7hCOD\+]N>2lB>Ph35Hsp-g9461T.GoL47f=89YGLu3GZ8x6nP8V?6PiAY+B
U"cUAYL(v+>R(7+Rj&_up)V83I^mP6($%QD/1ghPcPZGbINg6]XNp)0ukKLY:Vl=?
U"\*8rP9sx?\oJe$8CZXfOo)r><0po]MSdNZvD,dOVo1Nul#L_1<.NnA&&mFy'-]^
U"dt8_8'gHb6o#Yt*4:;ATQfD\tgMgpVHA*^i1mI_Pf]W$l[%nkTv:sr&Jc)w4YwZ
U"7)ZdD?%h<4Cli3*LP[OVAsnwBF3Q<5,*\J'heUBUhz5nc)ikKoZQ$FpOeE%:JQN
U"+h]kDe_t#X3eSToNh3Yn9JH$><93kSt9L76qlMmX/*:7:J66qpk7\^HxfBvnF&9
U"^/ZR+\5y#19UW%9P:ro(=G5$tD6hA5R)9opf6(5WaG9*4]<igY=zuQ(,J=*i[jV
U"GjCJ'K+=fbe)M/3Xc:BNkI^:[4JZOpAi1Y,#diPrqq%f^/T4nfSsaQ2#=NzwJ;O
U"$q5HtGw?;B_9^.va)e;McNE[*+g.7mJHQA/$u=)LR-PBY_bi';YAH3h&2%tvMd-
U"x%:d,CiNGSu8IMd6dk=Bq4.H.CK,vMIC<c0El?Gu;il=XdhIdoG;3*[H:EQo>K>
U"O2vDyaNVMA>cl/8Hl-bCF4$LNu%p()9%%%%-X%D*)(I4ZM-wK'%+%Z.%%%1%%.%
U"j'f%ruqj%VSgfaxFyD+sTq9<W&[B>]%A.9K5['MQSy9I-ksD2bcSj<4jQl>XxSC
U"]PXK]l&1wdeEvD#a(-tLGhB*ACV_gtfxmhEYkD$B-HXaD:fMfjpCumt<#ym2_58
U";hs?Y[k(/o/DswXvUktUFZ[bkNqC6'J?Bu-^k)dY$;Z9N^Tc/1,hH$C&MYL98IK
U"]+xV[eFA41Z38W\A<3-W8#;II.2ZbYWg>zi*GgqQ67OQK43>85cK3->%25,apbF
U"5FzbvGTNym(LwP2[)GOh:(LN/CTQFnRO/m4P'r#d7L6Y1g9wBWVd06)-AV7tW?1
U"+2>'D,Tsn0\xd/F::^lW+>GtK\tCObw:X9H\HbqRl7HXFi4XKc<H\Jg%fT)#O'b
U"s=CAZc*m4uM*Jp?bBnkF7^b-P>_xKzolwes\HR_-5^c\3[y\cb_vaJAava<nIab
U"+U,H],mBE+3W3Ru6m]M&K^q3RQ_02T[^>LTl*FVNq$V)9C:hZAPlb)#==-=%lCn
U"m8,SG4b=v_%DAYAL[uI(*rrz=[nsVQO.QfiIPVu<,/jMVYuwbKMhp[/wPK;a&Fr
U"qY<T*:pBXU/f:v6':eBd8PxwucF=?]2DFH]\e>oE\e?f\W*sNlGs(b+lAQzG/9f
U"7QFf)RNkSu=k5\+#)/fg_qE8islit8eGkql5&SZ*:+sh<H%M._v4YDyrJ,Vn*KB
U"J=r?-,5[A1D6EqUiv%u6fWPyKp.A7)n.WY/XXZm9SXD*)i__>t&1oFp+^?Q-(E0
U"('%S0-)(,x5Q1G_[S*D\yh%Sm9x9qFGlWM;:8/rxFKQQ,Ahs::]ZUKWJ1cDRsT3
U"G7sW&Pb'_.xt=HM4*)e;>iT,[(]+aF/mWy244(#03*:QOm<w16edlwf)oBG*vNo
U"(mWnn?4$t23>-6OP*Ymwr<$N5vIYl0y+Ow&u%p&'9%%9%%%%-%N%\bIx/%-5Q[&
U"%%0%'%%.%%%%%%%%%&%%E%%%%%%%%%vgr%jszS%gnup%&'9%%9%%%[-%n*S)I;F
U"<311WR%%t>%%%1%%%%%%%%%%%%E%%%%x&%%%vgrs%zUZV%Svqg%up&'%9%9%%%%
U"-%4o*)I;V2+k'1g%%(\_%%%1%%%%%%%%%%%E%%%%ZY%%%vg%rszU%ZVSq%ngup%
U"&'9%%9%%%m-%h*e)IUv2Ww/+.%%s?%%%1%%%%%%%%%&%%E%%%(<F%%%vgrj%szU
U"Z%Swjk%up&'%9%9%%%%-%6#*)INfWeU'I)%%';9%%%1%%%%%%%%%&%E%I%%pL#%
U"%j'%fruq%jWSg%fxup%&'9%%9%%%m-%D*/)I4Z=MwK'7%%Z.%%%1%%%%%%%%%&%
U"%E%%%)jQ%%(j'fr%uqjV%Sgfx%up*+%%%%%%+%+%&(&%%)fT%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=201AND 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
