'===========================================================================
' Subject: HELTER SKELTER V1.02               Date: 12-15-96 (15:30)       
'  Author: Matt Zuchowski                     Code: QB, QBasic, PDS        
'  Origin: liphilli@flemingc.on.ca          Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"HS102SC.ZIP",4^6:Z&=36993:?STRING$(50,177);
U"%up()%9%'%[-%h4/<F4p5u<5%%%%X&%%%-%%%%yn%qjSyRnq>^/p6OU.5)n3%56
U"9f[6NF_)LCI2*ufe.'ayf.%=a?jX(Ejh]E%?<6FGXz)F6\5*n\Hl4Z90R/g2/6A
U";'ZO\$^/5L&ScvKT,IKksXKCt9e2et3o?CV46vtlMSfp?#(2%%up()%9%'%#-%7
U"$e=FRS2zft%%%%X&%%%,%%%%un%VSynpqlG*,\;e5kTZN6nU:;Aa.:n/&?()m'=
U"e(L4o2bS<7/CE(eq,OBQ3MUU)_f4_6#q90a0mKhgH,l#,pX6-GtV,Tq?+<Apspn
U";ApE\SrbRHBQ\f7=I_j=HP<'Bc<vMtH9oqNbddU68i)UB\)z,*_&0jMNeSZ/<\&
U"OLP.uJASqri(Q^BWyFErqNN>%4OXW.UuI3s-(^$3?V4vb$4'$.up%()9%%'%-%0
U"&f>FY)seU&^%%%%X&%%%,%%%%unWS#ynql,]*2'#V1j.6Ab]'.Jmk)^*_*QDOU.
U"'ePBg982u:MoU)%9%3y9e\Wh/'kp9I>qbthh*$34PZLKkJfE&5>Tf(_.%cOy38J
U"Pt5\TEnc,i_*pA,KvF'ccOYr^W3Hjjpkn-K4XEi*],.3aI=wMO8cpR8[QcF$<NF
U"hDSz)s8?cFs*/2dhwKMq,:Wup%()9%%'%-%1<M<F>+$'z&7%%%%X&%%%.%%%&&f
U"qq%VSynOq6]p(2Oe1+jD+L'G8Qf8kf<-=-cJmaK1JiVvzQO_]Of,.'0_g6K]A'Y
U"RZ^ZNpjYN#:8ed,()56%^6$2LvWH93sbZd230?Jn#H5C-_:E3Kci5snoc\XtFV/
U"pc'?[VcucD2%&up(%)9%'%%-%GDM<Fm&p3wi%%%%X%&%%.#%%%&%fqqW%Synq?F
U"E&2B9E9T'JlJ/9:'n1o:-E;+')nl7PH5)'Bt55?1/'\plM2fBoik7EKSPlE0+<H
U"7j1)4#TDti]%x=u?rxD+%up()%9%'%#-%P]&=FTa0p9p%%%%X&%%%-%%%%un%Vg
U"SyRnq&]9*2;UI5jn2'9jww7u)+%#*7(3%&)#U7'mMmYkabx\/,Ki%+1h(7w7\pQ
U"KJAIl>8b^?xc\&W_5EgKXV&gQmR%_o0lX_#qVPUD:alN(TQum$Er6'SP>_\fTNu
U":X[161*dMr('<4yoXC=7S1*$q9YmKneGFHN%dk(e:5626e&3?IneT)JOAN+<LKe
U"_V\_C(B/c&urr*LK&u%p()9%%'%-O%ORLsF>(7%Ix'%%%;;%%%/%%#%qj%%jqVS
U"[ify>M'8]z7U1wdZKU>EbWI$xHBWqp-'P]e;s$;wk75KWP8X.N045nB[0m9]JN;
U"++pd*spp<,XADZ-9gqJJLUkr$A:aFp8WgQP6L:Zv/'0%V]wL%0>zOQ;#k3(0lIJ
U"%+_f3oUY9tJ]&1[.wm#qRh1a\A8i'6iDw$%NQ%R?JB=sAI$kR4)TPlJ)EO#TQj)
U"Sm\?9Ft'w-we8%3V*,?C%Lga)CI\%r+7m+v=L2_>q04A_#%P5x)0x$q5JC[8pUg
U"ZK?L%'jb1NPtD^d7'T?aGtmA;wo+RpkBaRaY)4R3'FGE^[%bFK=,$&1o5jbsowG
U"&:VWeO\]./$QSpIeT%P+L:PSfex&?:sP_H\0-JC%^SOSf8IuYo$?qUv-)#F\ss#
U"LGCnr'q-Vc1P(u'/x]Kp])ISMy7jfbta$x'&+m0*3gpqI;?kvD;fd:)R[\AcF:M
U"u4tr&mdk5j]uMx_O6rJng3VZ#k>q,J2P,2/ZYGcg,_#Fhmk#U5JWw%B?TC4JY0T
U"_om=oggU>h,sz>f-M:;-eu=mtlW$eTDnu1[\L^Nyn;OA7,mX&'qnKu]hFW2[hO]
U"ibnpT,?N*vdii+45j6C&Iin+N*UZ;sPEoue0C,<.L3i*<jSXaiNV)(DFLq*P*Mg
U"=(m$>Wwi;#(:]g&(=sVZ6vxvabTOE:l8lOKf^Kh84gvj45d]ll6:=iTfF6PK%V=
U"qU.xe51)r&M(T2i.86]Btvdhf8Vh&Kru<p)7B_hXUghJe]C450It,]xup%()9%%
U"'%-%1iM<F6Pp/5&,%%%%X&%%%.%%%%qtty%XSynsq6E*(2OU1+iJ4.A_'FY[99Y
U"mL9c[b#6583<-[;GLm/bQI&5v&qk<B$Q-<+GIaDsMTns#-Y\I;qA%=Ew[r[[:Hf
U"9+i&vLNKB_t+yeWjcY#73vbYZLL.'2%up%()9%%'%-%1]M<FPeSsA&I%%%%X&%%
U"%.%%%%qtty%WSynpql;*(2Qe=O+I^_%5PPgmjIoScS95m+[x'I<?e;#B:6APR/$
U"1Ss*a(2.*q7rZ=QUfl4Sf0?g(9FCo$'jS/CEQk4iwukbo*j>jGhRaT*67U9\_tW
U"f6/zhx(=(I$dy6-#3]0kzf/Vj6B*4P.=bALdWE;-j(Du%p()9%%'%-I%SM<(F(3
U"v)ZO%%%%X&%%%.%%%%qtt%yVSydnqlF0*.ReR=*Y6#Y&j[qTPdM&%QQR[XgkA#-
U"F(Sd#JrU:M]Y'>QpW>o)oZ\aPW.w;>8XedDzwi^L&l$^$JbLHf:c[VSavhLpqMp
U"Y_I<B<xLA\sc?I/dZxyto*8f?RDg#-HMO$4Pex1apT>[^7&20u2I\=_u*co$)7%
U"up%()9%%'%-%1xM<FH-2;m&G%%%%X&%%%-%%%.pj(V%Synq-&Hf/&Re1*BIdz)#
U"*<;+>CP1QH1a&sWEqI:0m-tL'Avao[SK=j+4\&1A>V5a<rhtd(US3BBozJ6*Yxy
U"(D1C*qHJ<,[4c[\zj6jmk0tZ0Y.O)FJbKv(3iqU*[eJ?tO/B=H-PnXcUqoCs^I5
U"fEv7=3'*%up()%9%'%I-%,M8<F&45b)K%%%%X&%%%-%%%%pj&(WSymnq&G.V/Re
U"p5TZ0(61/V/\jYel-0'47)'*-K]Q8B8QbSA;4])<a5mb*=nfiF98Ug_/Ddo472?
U"ur7RLnHmvqe:nwZoPJ7yNkl)nJb5$vAapBV&rMyljZ'GQXFZc+4+HMPid,eGkl)
U"L+_:=R4A9f-8kOtnYL)-xEup%()9%%'%-%2LM<F1%<rJ&J%%%%X&%%%.%%%%itt
U"w%VSynpqlH*(2RU5>TZ$q/O5L=AOG#_OWPt#'h6QKDW'E$7<mcyKRE[_^6+x*[%
U"_C+\_g.OG&u_l+QVM2(uh'*#y,'/Zf.O]uQvtLiZc?KUoEPh.l1abBnf3]HvNDl
U"XvghRg0ftF>:Nx$=#xH*fbAm94cc\G:aE7.%up()%9%'%I-%WM&<FN$6)MY%%%%
U"X&%%%.%%%%it%twWS#ynqlb^*2;#U5j^.2QcC:+oA+6-rq^;(AH-0A8'QFe]*oD
U"u1(6#)P8sUsTab-\9RrZqssIfs_lmgLGqV2yqYy[Gtr$D'BTlN_GNC.y<:83Ak0
U"S\1a+^g-BdO*\']nH/QS6G]YY4>Jqo2DvhR=tPSQ]XYx3(ik.&%WjhLrjS5$ir;
U"XwM%#up(%)9%'[%-%=_YSF3$AX5$%'%%-%,%%-%%%%m%jquSCy'y\dzr>T7U16<
U"*aNE/a14I:p[/Q2gD(j&></?#H)VyjT*yDqpP(jsohlB'E^o>%(B1yGSnCXrt'q
U"$3h)-6Dj$QKf<8BAIi;twjoq-w,MMqDYj15.5Nt?Kc?[(IG%M,'CH6CP_Aw#uu9
U"9d)JO#GDZ[;[zu$G/\:/(qP3Z(nRf$^H+d3H_,RZZkm5=^FB-I?Rm5auL3ZPX5T
U"+R/Pk?\4PRr+wk<fDaF]Rtk-?5^zu)ZR7qfB+.1x*8iArImE&];AOU*WCBxGs5O
U">UQXh41.UoA&*:IgN[LK)>'MOe'aW$S1.PJPAqldq>BJYbIC)<_'_-NC)86q_3R
U"^84%P;_#1%F]fXd=>Gmx/36_$JtZ7ATEb:'q0y93mFK<rE8m(T\EYih(,P?0%mU
U"hJE*'k(C,Tg_F9%]r/?n[n<T-vb7a\TTJy9D;=:oCSOk2Isf:>32,*IM=?pL#\(
U"&fX83E7aW%UZ[Mo*JH80jG>=PNMKz-sv)xeaSo;S-furNSSdW(j-*>0]h5bWCM1
U"wb]EPSs^%lnq<E07fWqr(G#Dg)1p,sZfh#)l;=Y2xAta53i<EYscJ51jRr_8o6G
U"5[M8G\>Q&,cAckIOuU%#5p8(?I33;R0%ERu8Tgq\zJq$PX%0<d;2LW:9aS[uY)N
U"B#v6j/OJ]w\R\^NP\K'OCHO+xfJ8IZ=R:pX7E0XS+[j6$O1WEKCh=vS7C#ZKY<q
U"Y,L$T#a=2g$0Km211Vob]D(V_2BI%HnPEi3I3hXF/KJ^+uFi3(l<W66r/JZBc%m
U"Yw^'lhPJ?%::s1mFD3Q$3E+=2&)5<k.Z*&kp=7;NBi2'nx#%B^cl%+->vPpCUPc
U"f_=yYYAANqX_2PJ>Yx&qq/o,j6:qTCug\<J/=_UG'<Mq9&Z=fnNN?JdZq7\C\Xu
U"iFZ'x+P[,ub,/&i,/o-8k:B;-B168<08H*A.up%()9%%'%-%3)d<FO62=m'N2%%
U"(,L%%%*%%%%mxSV4[fjf/;B&:PUh3a1qZ*r%GQq)Y73aq%Pw)w1&X]P4y*RigR1
U"RK&%ggg,qf'okySm*'+U776'=Yj_2Z2%%mPz'+.M\J\oyQ)B4/7wEhU9;cMI\_p
U"^LlW_jF4xU^F?MJ=7aq_Fl9FV82n\6xmMclpUBH^bFas3OFcw?l,W#>y*??Y:e<
U"2QWs3DAb[dnW%=[K3>3Dsfr3cPRvauPVCb//kKU_m$.YIt#E_,Kkhk&f;VW'B'<
U"p[d;W=K;(;g^d>z#6[rCKte_%D8$WDL&u8Cb')>%)#Tn3wObb*LrS9[GAz_c&De
U"u1#ps[jKXGA>r\8#p/i%talHx$K;q=(coVl27^IaV#X7h6Gm+q[U:x2Y[dLUG]&
U"4)ubG9w8yl[QuK\3Wg2DbW?WAsTluo4c-^OTCqln.X0vQu:]\7dDhQK&0h7D6?)
U"D4qs'u<;FA4FMWTrY;mLS%#e^QE0DbV21no'S.3qt#V9C*nlHJS6&6jkq)=;c/U
U"NKcnsJJl3mL;aGKbawJ+5G*bwz40?DKbA)e9o#S2U=ClX89M:8Aha6X^#XO)TY.
U"bKgVDt8ze*t[h&ST(9_D):X#Wkq7^H&4k?u:wkScElICJa/d:FC_AQq;+erw]Gu
U"M][A_bpjX,eR_:E/q8I+0\7<9t97[t=$J(UN'.y3C*K<U?-bdi$q7ZQHNv&KY#Z
U"9Nu,;PZmVqUWNY#JfUfrun-l,pi=d+wpES'pl;BcsKms(Z<;e&bkPZYZ+TiN_:&
U">U0J[PPag9YPE<cmq67q#>>P.GB02qnPGksnC*3da%.anSt[hM.e>\AA9tjSgrt
U"k)7\7zN>.+yQ\Y*U7sb=_dS/(PA*GBiU^VwZ(SlXq&B&M6c6e6x.Hx]jt$?;pOg
U"uqYf+uB1(VAyO^tZS#fcsYKY$x9&%k_N^fHQ0UGSm&r9EyF,;TlXIR:cOH2GSN4
U"p9qLESf>n_R(c<KYH-7+<).G0:D%919+RnfXSGCTY^KCN5,[1TJH(z)bCedK_UD
U"8HjT;f>a^ct=a:qu#NZ8+A<3:L-LC+sD'BT./sPi*Gn6BcbVkD6+a>]&u,HJ*DX
U"e)6V+W8<MHpb/m.KhKO*he>cJRrTDoEL4)mgA]5b*qjKXJs+%TQ$i6/csm4hR0*
U"&6r)^+ngJijDN2:F3b^gq'F_h:NXuiv^FCNlk\a,enA+u?eFu.r[Kr]l$ditlZR
U"E,K\T]/wfDi&t%tHIo#I9i>;$Ca<*AQKMaBjv?rTN-<:L6,%nJS.R2Ng*/)h^W(
U"W7WrARj[6wM/S[hj*d/<Ro30,li^+,W9NTp,lK5vSSJIqrZTK<TUSL[NE>=Efvl
U"k?.0^BQa8o7(rmZIEW]]q%;^O(-VJhqT/S4*ODEN_R3u#]yN>F3[jT+Kq?=ld<S
U"$^gS<(Oxs7La8MK^2u)h77tpO+q)61Mqe6+BqsL';LlnXcDr3jQX:Eo#ZZ]Nr_P
U"J=KB;PCA&EX=k;pqev-$l0G=sDeHwiq\qnOx06,,KlMqS8H1Y<#Rnsq[g9%8AdH
U".n*ol[A9LlM.QgwC'aK*/&(5V2\Y:d4SU+x_eDexaBIMMxE(TijTYdtgEW1oS&M
U"3dfZL9JF$EL*UiDNXzDwl1QN?gDablW2>r)VOXA[$QN(Zc<k10tHv;w/[LL]CtC
U"m_;u3x:F$whLK9_rk$jhY]V\-u6]]yQwWlEu&9j>oDXK5%D=^;Ib=DwPx;KG\F4
U"g]f(p$KkvCz=t%SKxU3<YW=[RQ_DF4%Z&Os\j0;_+ps%rx3X#T1Jl\<];?P$.[r
U"mJfCCADma:bYYgpG3]dPHZ7)o.;'[jFo:j-;0jLKNDM]7dtcsA9KwAr<?OFO_3F
U"KLLlv8GAS*>l<NBm$1KEzmDjiRAb:>(XN60Zq7\v[qsgJedClc3q\'v2,bWfq65
U"<$fci[HB\RUdgHV-x/]b'\F;])a_/[Z1/JJkCSVxq-FLw48x0RkQhkfm)Fke_y(
U"77c7=:qH'=NAG-)vyBtkjtodLqTjpEV.5c374_0)6r&u3iJtX<k&GcwUo%FnxWa
U"4I:[G35VwG)FmcZ54-74jt7s't]*]-YLtuM:bbX.AZGO<<Y(:b1Og=5diP&\KmK
U"e[s^-*a3>jd(A]q*R<22AKLC98RsKir5\8OOrx(7PWR(IT5N/KBYSV)wtCaA&su
U"F0beS4/EH#dH$Ru$=62nY>5B[yKZj:4;;\KfL($q',7/C?K^cl2Nh/$ECQ?wtdL
U"0e5SzhPkb=/4UY1nn\rq:[R'zX1x&#:V,d/i'52ijjSB*68Z';B/8BBd\*T3f=D
U"AGP)RqNSjI0KjI0>QU]S(RnQyu#F_Zp%Z&xA\ZxG:Nqij3Yhr9+eN.L=lK8<<I%
U"I,n:B&K]m8zNZPdPBi(tx-GZ9862]cwGkK:cOx_A8UGJ-tK&D,Q)-+4v_$AB=vT
U"RUt*x<hdd]r&KcFf,&/W,MK837s:\+h#7#g+LeTSSDUkLK*ON>NuJZqT.TPl;Uc
U"4rauMRsY9ulWjnJR=.FWKAYlH9[rmtLU9?>siS2=hyTgSKu_<Dki>?ijwVYWewP
U"/3gw0HI9e-tZG8;l4&lX)cDB9kwvqSQ5,O&O:llNMtC?Mb27[kD.,DWQxquYgt5
U"cr>Rq;x$4K>da_a-Roqx%9KB*.B*a[HcGX/f7KHnd./MPK^YyKl*t+XTr(:,,\j
U"Y2xqr)G:pl+(rlh*UJsssq1C>*WnDh.n10';^M=H=D^#7FJwXVMtTq'c?]jNxhD
U"Hi5cjIc>n,g1o*+Jo(z$ERBcq^MIRG<S7mq1ZeMY*i\jWC\NZDXs='vLR*D;jbF
U"qJDoPX/?^qgtgB6]tj5%:>DQ=iC9*rI:D;FKJvB)\tL=81iDNqqi>kx[Z2GJ43v
U"=3:PZ6*n.?\0&0X+w><0XDd9FfR*nq+T]p=]_01GpaEv[*7kT=TC)\%Twph=9d>
U"_h*1hO4mVD$bVkD7bod\_dt(7I?enTlLsrXk&;hskD$'v(i.F,)c9XQiJj7dBOr
U"r]O#^3.Z8fa*pl\Qp(bQ2%dKBI5c;cLJWj;E0rk[40D[#Utk:oT3s4<7lXS9.Ox
U"V0X9,O02jTL)RSgc)yr*C$TeDPWpdxuH]6)=N>O>W%<zo,onXo%G_/q:*fy&DT0
U"/M#/I/FRK1H9p[^-_mo7bZ\d)A-NOZX#H](hSx5Ba?/Jm]nImmJYD>V-MBPh)c#
U"Q\WTa8l\u&,<L[?bRkY*AKf\z6r[DN8q6,fM]CS*>_BlB.)Dfq-jK;\,+]:E7)H
U"0'Hbb)6-3NVco5f=F*Uit3n;]%H\qEIb#7N,e/?Ft3U),7Nc]?eU#?i7Krs-iZP
U"uUvY[tW7lJ8KX*bx]e[)Qd#q;mZppX9FBjG#:;6F^GT'%::D\+4)M'F>0?kfr34
U"+jWc1JukZegtU(]+J'*L=2&?Mkuo\*1XQ^YYN->.51?J.u25aUz\R3&R3.Kx#o7
U"m[cY(%KS;J:QreT4.Yu8q^6JKAC9jsW&,nKRd8F]&h/KKTWp1L.^0-xrYaU66ON
U"H1vx7kzQEN:]nU]W%*7E#K,Kee:\Ku^?_Bp=9X6FLLuy4MU7%d?17#.5S#,=H$t
U"KR6&hK3GA23]sBjf7Y.C2;LMKKz437TBu72*q'\q<1)<UtR/sL\)#LTu]frJh^8
U"Ax>wSkUXvtHUjGGwNRwDlfFE$qc#7ehbK1/N#1R#W'tKMH\.E9OlvSYtS^Zb+ij
U"\GKmI>Qok/i.#zeTr3UHeYTj.sGkI*.3^kYthR>LPUNt]dYjk*0Z3fdEtb_D?lW
U"(673.9ce70DPRusvhZg#JN2UD%j\?r(wst)lrPlnXMjkt\K,.O>[^lDkHRtDq)M
U"e>(.'Z?T-dQxokwYC>$3u,6Wsl&XB0Nf7^m6VDFatLXti0/c?x+qVQr<LbwC]89
U"$u2JDK*l*8KnusiFcZQLt=ko\&-J=4./J=nvQuT:#P(iCP_qr+5Ermp$<EuI\8F
U"wqzMujkT=\Fjc6s^$xb'J#HE3q5>j^\8cuVeV5SZ_pFpBWX\E3^+lE,^GCausVv
U"lM.s<LHe&9V0TbLh3n$iTp_L)v_DL#qcC<n$u_l?ws$ra7iumm'oq)Ct>8bp\h=
U"T>GhNB.[Q(S[DpzEwiUZ>l660b&?cxTS%;^6c3K/EJ.p^D#R4BHFl9HT8ff%?:%
U"H*??:?%*??t:%*?p?:%*f??:%H*??:?%*??t:%*?p?:%*f??:%H*??:?%*??t:%
U"*?p?:%*f??:%H*??:?%*x4itG&VtDr#W?^,p,t6$Wwtic'EtNmeUlx'j-tLbrms
U"xX8a2,<NVn7LHns;$T&bfS0PTcc\tE#utG'LLD]PGk$^*&J,t(Alc^<dmh0,ZRb
U"hQ\&g&m4TmbP8n^TD2<x+tfh'gY*WE*[4CanZuN(y]0tBvi?*vpkVhHkY%alVVb
U"H,pemp].Y7gsKdlsILe^d?i0jluDFvLL]u7sqePM=.ETH$8+kKpTH4*8hdu4)qG
U"r(^6nr;\\h?f#g4AMWdLuC4u[uJb#%'gdup%()9%%'%-%2Jz<FGYxvT%C%%%%l%
U"%%%1%%%%utns%yjwV%Synq$tzy=u9Y99(&S118[ee&B=[m'L'WlP)gh&D%%%up%
U"()9%%'%-%2g\IFC?NWB'M'%%%f-%%%,%%%%vKfS#ifythd,>Ldo5Uh5^=N=inUj
U"cJW[Qm/A8$/%/GmlSs7P2AJ74,]hk$4s.rpET'dcK7uojzWkIfLi_lF#56X919)
U"Hmu/#*pKbO,<x)kLfPBGg8L^j-EYIbJH<E)sN[f(I.uR0<P>o'4^D4QxFMLtaKD
U"XI<jdZ]p/QB(y_.-b80:(c(-Seo^VS_<pf4lDdIMmR/UMTa2Bw75QDM1yP*sYJ[
U"BXrFcqng.(X(+sAtF2mw_bZo'5VMdF#l/kCp:)3g[)[g[I2'_+?7'::.9u4w&SO
U"?oOu_W\qpZ%8LupRQ,3DK+maV6S:CqI&AEIiwRW0uTWT2J1Z2S4$,BV8lKsVSCY
U"4:Y0SVlUM;M_Mz+<N&zIU6(-#K1+EeJlA9?pWia*hjD)0,ft0^D+?Pf07x-^q3d
U"5+=cCJCoNDTCmGvc'i5J/zIk2Z1A:JE?2b0JgA\/Oi?FCxT7[?^/DCR8X'sCHj#
U"sc6bmCn5At4gOs4c)fDxM];ooYtlMmrK%7<aevNVjt>zL-j7_B?hDB8(a-ifj0h
U"QSXJ$Y;m\PMfj;st9YY6JJ]RqH'phrcfd=20bU^d0^kU3)1eSe'O-S>32,\b?/*
U"Sn2bIZ:<]PDl;<R\7ouX#ck)TTya^3'_tX<?<LAOV5pp9vC&GNBph\g03]TITyi
U"'1vtdY/:hNYiVA]0;XIiYr&:25(G'<%60axHjkh1'2rh]bUSrp3a()meWD%[E5Y
U"MSKoMH[9d2bN3;#($YsMF<3Bvm1ARE.53dZ,&A&%gP4BqlDeb#akO6HR%-Snv)/
U"c6X<+AoD$'^E&q8hh=00#cESq0)J8djFsMP?Cl5hkX9E3;^uf-d=byFB\y97'Le
U"^qZ>C4auugrLIR4ziZS2Unc5E^#n(ke;u+^^:ClI=2:sw:,qW]1nTqM#BX7<mG)
U"/N'u%p()9%%'%-I%U]=#FpH^(EW%%%%X&%%%-%%%%unW%gSynjq&]*+2;U5(jn8
U"pVuOIs7e'\*fQ%XeIir#2#uU0G(8Emj76U/VgGQe(e.algZx4t0m4#NKKkPDSOj
U"ZIOiNWv>r3pgD9U*:neSoNofFHhn;WjE(]l5X2Wie,lGKniD-:\az^Q4#53/Tff
U"Bmqu/^V&K28bBgG:=H*^N8>lalL<NI%8up(%)9%'#%-%E_z<Fm9AW;P%%%%l%%%
U"%1%%%%u%tnsy%jwWS#ynqL-<*.%[F5%:%68pU]/3(Zqaz#s=6ueX,6RX[4ptq9p
U"Whl8eFGwN'<*up%()9%%'%-%6t1CFE<L7G&p%%%%X&%%%/%%%%uwjx%xVSyInql
U"]7b/;ep5T8vA$jm1AbgU_^0'-OQ?dW'8)/g&^aOj9,z]+C9;#Q.DiDK')'(]a67
U"pY>?W5kb]ErnBn^V$:MugWJROrtd:t_Z0Yt4d1kl[/J/IKXGS/PU]EIzIgOR'&\
U"L[gm#(wU,A_w]va_=$*nG)BziD'-_0tEai%>aKG_mQXb+Bqaw8)f_.Y'<42)htc
U"9/,SoH^<xFWu%p()9%%'%-R%%2CpF,%r)Fw%%%%X&%%%0%%%%uwj%xxVg%SynqH
U"&GVy];e5#lZX5OK0m1-Gb;Ga(0'-C7Eli+fOGe(kKY1&<6Taz\A(4Za2e)F]38Q
U"=rS0q_\.QXts=u:QI99KcNRF2W6jA,ZYV05TL1jzA$NVzilViX^C\_$aU7(Z)9f
U"=E758.J0#qpdwTg+xcJ:DdZA6gzzMkD*Lq9C$3(fg+Z#P#QrPGDasJ-[sP>wVZ?
U"KvhchMyF2mjH#&l9<\c.%up()%9%'%m-%q1&CF't3wh[%%%%X&%%%/%%%%uw%jx
U"xW%Synq;l[62%'V1kGnBNp*Yv^.%/E0U%%7*#')'pUOe?o1%:W'8'93y91eWr9\
U"F2*Obv$LDNoJKSu.--u.M^d[h&g&jFj#li)5qY4+Bq9oax34Or;ugPYb[kSgkLi
U"CNAF=Fbp$(/^N5[DNQB0e;FSZO2goNq\S0S[KhFbRQKV?&<Q2GZ>'w&T%up()%9
U"%'%[-%Y/&BF0r2mtW%%%%X&%%%0%%%%uw%jxxW%gSynjq&]*+2;e14jx$x.q&pn
U"JPiq*eO2_Adsq//_o/;AOKe_Ym']u&dmix*c%$LduwBhl4.QV?(Z5:Sac/ij_A>
U"K751#YQ#+Sw%1DsKu>e8e=&#4tETK\R&V8afCKotfJ'pC0AIW>*Aq6>EPSY;kO2
U"#8fAP$g9S;_A\++:]_[G>whL%&up(%)9%'%%-%#E/BFdUenRT%%%%X%&%%,%%%%
U"u%nXSyInql]'*2'V71jXN17pPYe&uk]7*M+&G[9-[%5vxA\jV%>,\Y6=7%IeAhP
U"]Q(J&aLL2(M-sQ)fIIJML+0Qxow?<%eZs--w%*dNUI6cA=,UK5qb2/1phA182w)
U"MB4xsrr5>6FjM,BJEo6[M]KMO8d7SK6N\.TgSj[-2MLE='q\Tu%p()9%%'%-R%3
U"/BOF'5T(Vc%%%%X&%%%-%%%%unX%gSyn1ql]V+/;e54jX5ZJ:F(ZeO0Q/I;;ee+
U"C>H)[Pf)6>X#i]JxId;T2rMlsr--irlY#iqhho+)VdON]rBz<W'FfpXo_YO-7;7
U"[0Q#;xN:pn?2fp8)/QY<H*mmufb%^:?,b&F6H6T82680/6(bA;/Y^sEVJPQC.)1
U"*]VhQX0seQHRq>5:e&T.y_2sF$h5%&up(%)9%'%%-%J*/BFsN%,OQ%%%%X%&%%/
U"%%%%u%wjxx%XSyngqlZ*+2;U9XiH+SRPm\Q+'B0u&3(Wo4k)wNN;5[_76a;D7Em
U"u$gxsqYudmwvuLvpl(3+hk3?^XTB&.=$\[i:^4x^(i.QQu2^,.#)Q+HfdSYkJ&H
U"vsNb9]>G=4?RvYFRjKUGU)UFHoSvH[9,xX>E7[anq=br-bj:S*qFcu%p()9%%'%
U"-R%M/B%F]qx(a^%%%%X&%%%0%%%%uwj%xxXg%Synq,lFV3';U1e$J>Ga/Q7U37>
U"56%C(2l]-;Q6V[zgE1:z^L82o](/'=S7#p(ene^iEWWOt)da\aDF6Ad(i+pw883
U"g39QB8-,V8,fD:?5lPdkgxauo?.f/m\6K$_TDB>ojshS:]wbONNM6>GOxeMm3M(
U"%-5rCTz+fnG;J?KIy(,:4b,j^L<0uB>u%p()9%%'%-R%p%>aFW+Q*LO%%%%X&%%
U"%,%%%%unY%Synq)l\b/';e5k,ne*QLw'IOmEC9<0]-9::m?$MoWI*j4AT(?l)F^
U"g:<&e))V&aC-<EuDLF.33$ugB%Mbno_?-I:+TG5Y=sQN(1F60z;OiI52n$sw).m
U"4J]>OPF>ZxnP*2+GJpm.Pjcajc:M]BLBxMG_+[ZB_g=Q;qFm%up()%9%'%[-%y%
U"e>F4>4]7$%%%%X&%%%-%%%%un%YgSyInql\7$/;e79jHx9A-:t8$*1%+<ZgQn+g
U")+cil;Y8qw143&QlNm)j[=5h$'0n-3EZqAHlS*%/K*R*d+U6^P*]*#&9.9+e_mM
U"Tk/9Tv&PaVd%g[IKS4>5Ku9a'ey2C&]u>crVXbK,._o(F8\3fayD82[j>eW;$V6
U"UOg#-V*:J]vo0zC1Bb$2_<j>Wu%p()9%%'%-X%l1CLF%kA)jP%%%%X&%%%/%%%%
U"uwj%xxYS#ynqlHE*2R[U5*I8^QJFhto?BI%>P0.WgY9S$ek\0;-[%5jItpdae1\
END SUB
SUB V2
U"EteJy(9kstQXolNTF(1%UR)uz;mE9'+)3vt0XaMi66aon#XZqI&l]D=3_a6S?_w
U"KeHLs2?^Yf8n5mlqcO&DJ*]?+_KFmvFv(d&f9?N<5o=0GO3%up()%9%'%[-%^/&
U"BFfC6JhU%%%%X&%%%0%%%%uw%jxxY%gSyn:qlFV%/'V5+kZ\Q.=f,R]o%C9Fh^-
U"154$GXD^0Fg$KA0:pj%\_uX;G;6iqYU6B5]$$Q'h<6(,fvBoW:;imQl)h:$D2X.
U"<Ek$I16dIzylY8itcQ%$^aD8IpvhHwgGJ**T:aT]rTnHkG95J(K9KGh6[.1IQH]
U"2GwkR+ziVK*uJcu%p()9%%'%-O%_cA1FdsS%(7*%+%#7%%%-%%%%uwj%xxSVg[d
U"gF&ZAj=2VzurF_dl5\%5[1*QP-C=rA:^A[x&>;-%x&=6jgo#3SI;j\%_T;=];GT
U"sD=zIiXlRRSg9+miiAo*3V:1,;((sb^Lx(J>rLEPF.rDpnMvEjXN,NsznGGGVh6
U"ac7q&rA_Y#3J,s))#0.E6HI_iMd79*j<xE+=iwZBWE6MClT=piHR1.+ICd-w#=_
U"g^37fLn6[OAraL^fkB/k/(aS^K]mVBHvm]\y-b^65ne/Mz[sT_HQgOJEDg0T4z$
U"4c;q6:_55?/]F$B4&9j(%C92GSrJ/T4]J;w=uX4]Le+k#T(H4:T/=4oMB7Fabu<
U"%T]<K.^Yt'HpH;j5++b.VJ3&r<BMO'K.9[<5)b3\RDK#pgCjoxlrInMlq3f8Kia
U"1GF-72f]LQJ8CRHDJtqD(:\PGnIw;^'p.[#6Zpk*fPgC?]sxx:16Y.rFXMpFn#=
U"u0U8e^ntLM_+I.x:mqiqTU8y4&WQ^+D<\W9bjf/ZSZB<]H)L>86MmIQ;3sB0;h_
U"6\l:$UK8QMo6kP=+<ku[n45*iSj#''>LokVO0r,R;8?(sqBWeH?N>2B.']dbb%r
U"FPBe.'6.tc9tKp*cjo1eP#q5Eq*Vd,n>tDEj<i-fT#MEBRX]P/iw6hsdggwvg=D
U"femJ1l=d<wKB,yGz:t%=#5Gp_qoEU+;7WO?/e_Ty89p>c>+kODa3*vkfvdQ0GkH
U"%QRSRg&L1e(ev\\;$u;*%+;'9u<e$^6N,\DA(56Yn\)[DlcpRR][fJ=9i'G4vbS
U"/LfEfC'V2ScsMM?8=-L-f-iipn>kKMak95fBfreOZC]z8;E(4IEH/K=q$>j=k7U
U"8ZsS-LQ%C^eWp(FR,q*NwY<pFapl'7J=S6+G_iq5UOOCpDK$.R6gI8fR:5FiB_0
U"hE%&m=^obu4)n-bD2X-J<bf=^m#$sga43.b4)cs2'VwVII#4boeH+2^VE_o=5O'
U"KxQK40/O?u3X)Jg;D,6vHxg*;a7,l>rW:d9O,laiMJ8J0m>rQFtbDbfQxmAi4<N
U">Hn%#s&:%X'8lLeW:a':mz>_&H$UiiER#+:P8MI+W5oR,H#bIBXrj$hc&X%5dPW
U"FHm*R+1]LK^8=7RS\W?dP,ZB]*J_z*X:e*:899IJdCF/1b5L\'GA>b6d\\Gxl3,
U"2E1*LfrVV5Xw$#6N7i8xj$%,a$%k5D+7]H6JmNuT720oB:QXYPLtD+GtnmNP_h#
U"cw33,R$U2(+LS.:kp_DaFg//8+%\+VQ<YB%aE>2peb[vPRE6uER.3,=Nr$+)%9h
U"rwVSgJX//aO6WXH+p3BW&k#SF#DPV:#XdD$RAs_2d]J&ZXX-\=1BDueUUYyLP3<
U"T#q[H\#]vJYU-HYoe/EYUOrRm4hu6\qB1gQAJc:;6oDW=+8;EegdY.:HQdakY.R
U"49<j\IZvr'?Q]1/?;l,ZIqy_LGALmV'Y66/\2'6>SU,_j*M_1/r._v\X-fI8Z?a
U"%5*.l=ii1Dxe9r*E_i.0++JGA51$/J_DmirQiU:^V(VcuQE3bn'K1Dj7,1*u:-d
U"$rqsm&XA?7EFcXRKZ;Uo4f-2-C2Dd2NqKYPjCOXSfDAa7Vp-\2*q0O'3MXE1.FU
U"$LaCu1\j'<T1^scxSUde=v)tiW][NU9%=sMSTAXF$A,Bu,u%p()9%%'%-X%m2Bd
U"F=_0-Gv)%+%lA%%%,%%%%qtl%tSV[WfgH:[Ij9#A.rtu^,EmHE;QB71XRvEE[Es
U"hoJn3vI&+(3cn]f)Hp+-I5w>RRR#[N3gVmEPe*3aFaDYFY\4<<%>EU]7^JNe9(?
U"AU,$:-aQSan?&KVXbhl=Au0^K-QAqCv8nZcL(y?3cN$GGhhOcX%5W/U6eWt[7MG
U"2P0n(#H_,Ud=nzr_B/=b84arJ5+wekcCI7?)sA+#t/aAIMhti$.[0ID.]/UmI]N
U"raV?K^LCJO?+WodWPE/U4Q5<N[wg)Et>q-E1J=.Sas1J/y>e5q;l^X=^;'qS5+'
U"D#i^8rvLGuXZj%H)-J&\6:l64D.USEu)Py-hrI)2R&kJEn[n,4ul&fD2nYpmG;p
U"N4XuY6U.z<rn*2&BZ_=[bk4^[1IWs$Ps8q7Jj1Sql_3hPpUh.v+_'Vens$?KvEo
U"\d*,jC>9j>U[j8y#STFVV2j[g^htR?>aV0/axBFk-:U-dc>$YDWa?\yRbKP1H>T
U"7awGES*ZgF^G^QZEPgU93crSReB$9rO9;j>.ivKR>3CpfV^;FC+GZx7bM8px,W6
U"K9ncXYG)v..vnrIQXs2)H'1V\xjS7'gM0Da=wX-wS4L,$vPK_O5?3q5%We;-qVq
U"Of6*M=Cq?Vz4]mR(C0;.7kZ&9(ksM[=P3QAmnnB<fAYs9(>CHpwKdQ\0Yg?_:;K
U"YQL5okS0%R#&gRQt0T)VE#(H].[Zhd%G/D29$UT^BY7Ywz\eV3?Py<.4s2c%;XA
U"i3+#n9,rm*U%$c2<<5fvn39+Y,,>LWy6?so1x-dgC2<j+U3j&\toUc$;Y0gTBL)
U"4k'>vIA[L9Ap-0/If1$^a(f-m>RGe2RRK^rA*<EZV?7hp%D66Di\SlVSR_pAG^]
U"lgnJP&\=sBdl>7a;J0AG7,d4)ExF?%bV-.epMFzZj[GIBpX;b=xBPzqFPeH>SU%
U"[3u&O>;$vTS4YLZ5pW4M_Z3k3Sz-KPkC2e$$55?r]w]Ba?i[WFqVgq+,)w*KVpy
U"Ah/A;Cc3dndDyffO.T85:>Wu/bFX1L,ZU:nG5,sT;/pm-4gD267JAZR_;nf<ib?
U"9ER48>EWVp$2lHenAi/'66CcO##dA9+&u$3nqhL-,dx[+2>kY4OJ1bbnQi*BTQg
U"+3$W>5gVs\H<^V$=--qBm+Qmnm1g*XI[#3snvt;J>qL.55X>R1FgRB5EmZaLZ[$
U"GpuV.i]<'q>>qSCBcV\Hn7,,,w0Y$'lGLGt?WFtS>Sq9a3aunI>ZCieSFr=)P;D
U"ezW8S65K4.6>>Ksb?sdA*RrBiqxTW#pjQ3(5G_?f0xUB*48W+sY&KaY)i'JeB>S
U"wOmxgG%ypl0qLpBwAT(nb#MQC9$c;g*N0$cU)a(NHth;bF1gN:c]4uAG2a8?Qi&
U"w#JbnClbnpq;j;s:xdZK.a5_o]gs',0uBJ59^66x-w<$k4<q,?\L=IIctxK,-?Y
U"IDiC^>C6i]E4?_RE<?-m,,aRzH^\1<-Q[MO=_4iTe6,4;,NDuLU90mtF%x<4*^l
U"PdlxmgNZdeRTQjKG82[$bNBWD[-?8v1]$*qeA1:AHq+Y)8g_#2C').kUf&PuMgM
U"P_bL6n>U0BPLqbab4u9^n+Exq?kU3Q;$.gGMquP%uOfVglQOv%2up(%)9%'[%-%
U"tDuDFJ4lhKz%%%%X%&%%/%%%%h%fsiq%jSynjq&\*(.OU9d*T'1pe9JW%&QQA#J
U"X]$)r39l\?&frfhl1&f#:^H;$k</D2Wiko>9BMfjUDM5%O&>WhL,dM'LyQl$^^4
U"ou#+DXi44CjYR4_%4Sup%()9%%'%-%6O-FFYyL+O%I%%%%l%%%%.%%%%mjfw%yS
U"ynOqt*.u=9Y909&S5q_e?9Ei.7W[>>=cAg==;&'==I)/a]&%%up(%)9%'%%-%(D
U"HGF1aY;I3%/%%,&L%%-%%%%n%sywt[SV[f2iN;xTP:#n)#W(FLJ:UoXH;*g.9WY
U"%ep;wQg7qEc[DQhNeORC:MCttS*JomH<uKg-LU8C0;)vw8Aezh1#9QKD1Clc1Q<
U"/Q)GWRDg:N4*65CboMg3CB%$=M$pu#l4p36J.qh:D73k.Jr?upq5HZ47pKNX\bL
U"M#Zu8&J#a<%ZJJJ%JJJJ%JJJJ%JJJJ%JJJJ%JJJJ%JJJJ#JJJt;V.3v8g/Fx_KY
U"tjRNc>vfq9n[:xKxD2K9-9Gn[xK8YtjNl7xpxeE9'1?I5YhlGPuqT7-7#+wHxQI
U"cTH*3''Kn>IVsGujrbt8qjSD?_H7GTn<lLMri%[9wWcMZurqKi>9k3<v2i<5TH)
U"KrB1i^mA0tlTjVT;05=KN<#QNL']H8Bg7%lG?5,#J?h,i^9(E_XaIh96;*ep>*u
U"Fy8#[glI?S.:b>/WNZ_:%<AO<NS\^u9\JH;Cs_tFtfIi=K,eYLs]K;,Qr;&dRY4
U"-bL'c9XBU_>$lrKHWR4c?P^+ccFwa#>Vr5vGF73c=,x5VHpd;iDvj$Ks'7*:jY7
U"^VYRgwPl(TTg?<6x;Pi0vm,;nh\CIHQn.vEnv:EnjEtKs<CkfL95i9fsOU5ck8k
U"<7Qq3K?wOkS(_5Xbnwk_#I1q_-TAmKXiK7qpuAo3A8tMmHI5'_hfi67a(RF),GD
U"qMm_>0?'t=,]9\Q_Pr&gju8tVGG*OnZc^_*$+JrlCQJuhH.GcL(?_d3.);27ciI
U"=bhS1#uCs)HX1es4$d_iHnwYX#:6o^.rGPm?K>_uPRT7YFX0d-ItN:S^RA-B?\N
U"Vnf]luI?#_kX-fGHXRtP1T2k^aPZhn\OThO8YKVlVc^B:bFTlkhI%(Ekf&Tnj\O
U"7UFBwie1,Kt2/m=-T(v<wuNcR82pDbPW+Rlfc$HdTprl^IsJ:oD\P<wP[:4HEu7
U"QjP0\MVJ[#XW2;k-n_Ebvra7&-c4C[m;?#iK>rrn:opGIZ?68R7RKe:4$tB;)MB
U"[ToiXl*nR69CY<>nf$08^nCQK0_r>=O.W/]acmUo#3KL4T#yC1o1ur80pW.xp.K
U"aNUM'u.P[iW+:R_WaXb7bsdtMZlQA_sVK?&d\6a-PEh76K(bL)H23=QGiJV;H1m
U"t0j6--sYKAfmiEwiWJCw*sU\\ZsZ3CH%eJ5VyJIUi6obtifVIw^FUTUKSA^okop
U"kdfX^cHb:hssYV?a'UI;FnVwmZko8e<c'(+oO=D0qO2&N(UVNc(x6F3.>h.uN$j
U"dlHf'VhbSDKKbZV>-\r&l&A?)%f)oc7m;#g\X]Ft:-l&taGXB*_P-/Pgh%bLZNg
U"^S[^r%sn_H?2&D1gLcqvh<t4.K^A=C12YQuRQhXh30$TszQI*z0_EN]d5(t2o,2
U"^#&XAm=.['JXR<rRnl$#u]qWsht4].SAW(Z?2*$EFP?oEDiJ**:3cT7CDF*]\_9
U"E_8?i08?U447B'BZ<$BqsX-0Xd]$[dept+0gq8<151Dd]PS84\=d;wU9t+[X6m4
U"31r;]7L94,K57c9N#^K25C%?P$(1]3\sKYpu%#qTdn$c,-(W:Db'4><ffu6NtW4
U"mhzz/l\eZo:4tmDwOT2l9u,1mUW'\saYDbJf*KqAIVL.$F32qj;xET<eRx?uqJJ
U"\NiivpXk?$JaRRV###oSJc=:<WdW5ViaF_$-7d^s2kk0SilZ*P1-nrKiNn1%NZZ
U"r/>oVUl(hheD8Qua(&Z7BtR;NNK8a/GO.'jb>^?RSu,F-dVnOTH&TBqcE2g5;K/
U"nIw7Mt%8hU>7DE([\[pqEaxaNG,TemT(>f^R3PHZTol2bA>uy>$3b4(Q8Bx<'wh
U"\Uh.V3v\$nQ2-)qw$VHvFN7HLP\mlu9tlPCz;DKCQ1?\,P8uiNYvtJxjQ/ap2R0
U"PGF$q?uYl=*8MaTBK1^Xy.HR_mJ^xY\-'.:#P)s^t3uxOXl/NjI9Nj3Q)UT1Fy6
U"-<_^odq'v_wbTd/_j4nJH<(&FSXbp48n-R3A]_DKXb)]DTl&d=#?wZ]#a9N8jOF
U"xgEZ_=f,o8_rwZ6WL.c<wP\R0bv'-bCHJOC&pa$$j6W9QA#&ij<3_j*j\IT*>Zt
U"2LFE4&mffyM>[]lc*jz8urO#4c_u9FG.2#.sEQ8minj<Vo.xG0ST]7yli?v[s]Y
U"r4g:z^VatZaEOl#y;5KoI;uXM?C\2&Ai9uzNi#<rP>?5kt*2S^]rQ.f^&>=_tbs
U"aP*+uqiwYKuHsHL)KqI<^Qrhud(;kY^klaWnVd(lv7Y$q*AcGXxvhoPOrKHTxEt
U"fP]6BYZX8oIHKv$aip^&GapoTkiD(%8$pU]xZFl>_fxS2srX0iXR$s7SYwW)sBx
U"bXaip^lH?2qhG5zXJgDkNa#KcsBN[)g1uo\7DPPXuR[sfYv<8-t[DqBn*uqrrR>
U"uXQdSuqE$$P:9F$QD<K]Q$$SwVmS(E+8\DRhANj/YlbplE5NA<Ev-aQ='%8pJ+C
U")NJCQAcM*N]Ig7Nj4lCk^V1RANPk4t).,khbSXtG$wY6jFJ-gJ(&X9IwwYz/ur4
U"Af^nA31'Nr7+Bmrt858hhK?76EiKTbR8^rL7qIUSb4nfQrNeNrENxA,UmbLXDcH
U"tLPhM.?;n$Zu(xi4*jzMenNcAjHNo14ubQNPg^NBM5bq*PodD$(smv\iUkuXFiP
U"?Kr<l$<dU5nYKpIy#ksBb%<H:ZDgE(]K?Ct&d2itLFKl^u5ls4jrF/(t?cVyRHF
U"+&$DNMCMBkS^5X0Q/XFADK:H5SRftfTn4-N=PE<$upu$%jLj^r$%N1-Xnv\(c'X
U"L2Wl*]A6dl#-cXH?h?kvhKtkXAQ0l1.g=yHk4HdrE:gAw4vGr^$?>,$l&-cH<nf
U"8\.[0GlHcnclq%-5D'c.vbzdjtv5^**\M)UL:Z)o[D_hEaodb#V-anHv31.uX^O
U"d8#-x5-lZV-(anbtoeDZ\B=dcuZ(Bu2=6Xh(Be8qmch3M(-;B\MoC8t#bPXuxnw
U"kRN:<3wVuDeptn_>glnVi8XWFXkuF08*Cbz#O)5gqV<gR%'*eaY</Xktv%p73X<
U"osh]3>rm3b_a>vVuc*3vjWj^\#Y)JHV^h$Td<n_i*^IgCb](p;N$%^<V:j8D=Bt
U"#FX?S=H_beCo<YMXV+m;tIrl&XhH:wV=TIE_Bc&#O391#t,hE8AMp8xMq^x?Sc*
U"p2^72I4Nun_0O?8[.xsH?.Cz$MY>8Few&.$O$EZX#bV[6tv;X=m7x=s>h9w*ZvF
U"PiZBz#qw;TeuPih(b=5p;8&Id%_E^k0d5.17Mjwtp97[V1S1cPI;[y:_WwRu2A3
U"42aadRh&gCTYvpYWrw>[q5QSnS]B6&#7*>'#&tpEsoI^E=iU^J#5lrfF]NtZrUc
U"OV;,/+<L43gjTH1/Hl#,\vFM]kB_X$-H.C$_N/Bp)fK#''wd-vWrL%1]hHN[TD^
U"lUqTK'nMg4Y&i$^REX_&McMccccMccccMccccMccccMccccMccccMccccbc7Uv%
U"<up(%)9%'#%-%a_ZSFrsE>pA#'%%d%,%%1%%%%w(j%nx%ntsS^y'y6jzT=T.U1L
U"T<INYug1<ONXp+%'0tUorc*Dh0B'>[;_>Yq#Ug3Bdua1gPk^-b/L>a,O/qgOeIG
U"jmBOmJJ^i3EFoY/TsOSeU93cWvD;oPAZ6:O?d2Wq25E>,Z;if\BKknS6w+aIWHl
U"L:SVV8>^x'8ZNl?7Cvw'=+##l+PL\1OR=MA>K54(ru2kh(qW)xRI*SfU23?hMg2
U"iCH_H3p*-yvxMZ/#P)E8=1IFZ(UR&B:DDT$]C+)\Ez_suO[WK#[zMo$Rv#-Q20d
U"Os.G[sLD#Vo+0z2[mFL,r]ZUmk*(WaA6AnhbJ5$Jw$5R1mjX2haM.uOJf8i8AK:
U"vj-;VIR$xm+_#VZEJQOBrW\>OY)p$,W6=Er3VW=F2)eJ;3.B;U0EGm#BV\B^56e
U"VmVCVSgdj5&h^V3j.OCyJML/[kskAf?\*6#=tv)E8&+/c?)^JK4m_+j4;FdFl*+
U"p\VJC>)72TmL.VIuwKx%>i*<2o?8RDjn44:9Qe2G$7(jW>f:,cYTiD'DQ*)bIn;
U"Q)1jW7vdpjRi9bgjw\haQ\d1>4F<&aOm'/Jor8c+\H3?IvLY&,L+3SRA9;4[=&>
U"nBwSbf'gT/QQ<'F,C;+;d662e,XCbcO'>%YFF%AYz'Q)cQGx$PW*0[%9a9zCYif
U"+D]0wqqi2av>zSpGgaKs9.;s+bb;8r0/(].0/=>1':=p_5N.pkDK*2[mhZ;q(Cm
U"8-ZQ1b0\B/r1eb7Qv2-;;T]ENaPb12M9^UCGFtJ/plB3J%<H1rqLvg?Z8K&*rA&
U"2.d155(TpFi\0xeC4.nGj'$:b-r-*R4ZZ/Zm/.HUt%(j;evK*d?j/n$8Mtmv?2e
U"a;:wc_)[S96ur%Cgdm]\xpmv>t+)8.8A3a-*11]&03B$&:zaaj>NXOYLK(yM&u%
U"p()9%%'%-L%9YSOF[mt(aZ%%+%1%%%%1%%%%mnx%htwj%xSif%yXY\9+YNv9CyA
U"N%RxMMmrnBE=x[^W%Y\Y*kY34_=J_]ypOs]$)tQj23EPqF:>h>/r>tBR*>Y5fLX
U"oovLgE5AB/gw8[n.yMI9QigMz_kn&n(;X[ZZXI=vkGQpS%i&(y?QSd+0QfBpr*z
U"=U*-%,A;X7Fpef+A2X(S2kPxJau0#I&-5<%%up()%9%'%d-%d5JIFQa;7+A%%%%
U"X&%%%/%#%%g&%fqqV%SynqYlG*9];u=>NjbAt%u5X)WSpI[JQ3HRa]qER1_EDMZ
U"]dYmY,:5P]YI]]nQTYId,-CAEsdu7MxAJ=nbLi\<kjwA<g4.+/ufS-2FOBoW8ys
U"?:dBgiH$\w1Rm;LK&2&ac>r4ozTRxlU;^T3D)t5.8-m(bPgXxb'RtxDm;)XlL0d
U"wtwsgQ=W35yhbuUmtFG(Vj8p=orO3_&8]nO&EArTMwhUDZ'nreTtm0v[J>,YDRR
U";EhXtsg88nut+ax>Bfv&%up()%9%'%[-%16/IF6%7#f'%%%%X&%%%/%#%%g&%fq
U"qW%Synq,lDV/B;e5THZB&SF),jiPO6WeBbQaO:F;h.1aP\LmU7%-:m<Z6CaP)j0
U"mx<6*;_0MN7X/Ikf(Gu?E7G<)qx<w^m#qpC\R\H(7$-hki%D(Oo)P^BV-h)D:FR
U"Rbx.$#q/[xtt:%g/n4U/8L<Ublb:8SZ[91\#+mpq=<?XWm$>_j3Q0'S;rJFR900
U"dSF42up,3SjYFURAe*^zQNkK6lV$$SDBv'rcup%()9%%'%-%1\yKF<W0hP'w&%%
U"%?;%%%/%%%.qj%j%qWSiRfyFg;8=<E:5Txl3C,Urlfr>OLYE//%;C]z.Of2^^UK
U"CHlkKC8hLESYpt/Bg0=sN1XW?\z;GHuwoI^lvq%m\)%Dwt5E-^(Q,>\HM_&KAtA
U"K17ML-$N?1-loYH\>F$g=vXUFKa4jSrcUH>tL1M*$,I]p9]Q*CUY5<PaZT(%=pC
U"FC0SSB9QVks#1C<>QjAdFo<&%5.fh3HdyfWVp%P,0P#-z)WaE\23*_01+juB-B9
U"'sqem<5/m]Si<CF12cT=BaGZ]bL)mTZ7FEs+.YX,Y0%neLLjZ.cvx2By6#RlV?t
U"Kl6x$O+&_HT=DX;qnnYI+#kt?'mhzZ2ge4AS#T-wVvh>x7SA*i8HR5Oi6sQe\bw
U"sZPu7m2=Ijdxp<L(g:6^R^%,[zHNCsw>:vvYS?YPP-E3]TdGJY0Lj-_G^ru5A;q
U"op]6OY=H>M+iJa$g\E2Wc/M$3.\WH2uv:oX0Usfo$0bL9B[J;kO=O%n(YRJN*q%
U"G'r&?W(]_OaJ4e[wusT%Q/%bnJYW,HyWl3v/4P%GvgLBZf12H,_Y$ETDJhZHTZ9
U"J0%9(B>V&McM;95yjpI9SBuu2(oKmJxwb\blW=PT7?^LEXnEn#K,]Pi-DIhnMef
U"M-5izg9*oIttRlgE&pj8Qt2NG<wfr(%up()%9%'%7-%p&SPF)'/IGA)#%%,L%%%
U"+%%%%js%iSV[ZfTH:$T5=9e#>f1\VS_eawA7vL*2V,Lae)TsB/LwDU]CI3ciahU
U"xaaDC[g.*4<aE>k;L#xFf3VwN6hqe,5NgTsNjuSm]i)K))]oGsrKteqdN]#*?92
U"y8G-H<t;)l:EaLRVZP(fG*n:jvneT_g%P9jv%9jv9%jv9j%v9jv%9jv9%jv9j$Z
U"^f3*A$HlA]A^A?]Av4;&JB'mqjYqRp+icrU'PA:4=Qllp.cb*:\d6F]'CFXG2(:
U"/>2,:ePX^4jM2^T?Hi2Dt]?:f(S9\_RLu2Hl5GVP+7p6yLiX8n7nLoZIZWu_r1%
U"b3PC[q#M80Ax^ucSSYhA4>_C_]t'T=i5oFSn5.l\F2?busT4B$j5&XX\7gL[qh?
U"eGhJ(SA_b't&C,.5lQ:Zvgg\ObOF-'9D%7Yvh+PC098fZksIdlHZ#Su9V->d:uV
U"G_[CQG;xO(=D;Ec#*n$(:,\deM(1%OI<'FaQ4YGR(FM*7''[W)h'0+37b6SfXt,
U"a4aEIH]+G;w[?Xjae.rx:]%hv'kve,%,qnm:lf<$BtHt&X?Z-M)Z$WXF,Ya$,Ur
U"#3eJ#i&qR::Zc5DG&Yx#&uY8RiFe5cUEAwJ5<P.y#V]3V^*RzQ4vA+4/?$&%Y9$
U"$?m$v9f]w:+PQqh<s=a2j3ctlpgYc45+>RB.rH(vi-e%Orx]b_7Pe+aNrWuV>V-
U":?<QtGmLTXh$%%OK(/?luDzdG&PD.C.Qdy+fD#^ZxRolJ:=+BM>ILIlvp=)UF,Y
U"[t+pFf#$K/&d]\NokEjL0bLxPP9,l$fq:=nnmO+#^s[U)i*]zmUpA]w(_l5ldLK
U").$OHpy+9,EM%O/&TRVep/gVg?.+mS,^UMYz0?95Gm%LOP&'lLOIY9t6,OtD14e
U"di1T,17&^B=p0&5ja2.V'.BU1#t%/&b^n<)F>TTg'l])p%SD7L\'Tk\bm,LK6::
U"5M(dQB^=d=Z[ahb?*UBP0D'Uj\u.^PUuU_]G<4BakZ8f$KZ^;^^jd;KF:td'rg#
U"V,m+i\i-&*k8V2(Fn'CI>H61YA0Ye)Cn(<$Q+xLiDiCp]i_UrFbQ&^Xd=bg6FTK
U",C3GlMd**j\csIV$sDG<ZJyJ?Gt/R3FObi1/rUE[=].v]l3'C:f<VcdA(4K4q'6
U"w4H[By9'>(qjQ>*B#2*649g75OME.Ld*yhrQV:J#%I.;#iXDa2o9_[+$0<gBU1x
U"U_V:ldAlpx&FjD\QW%,Ab[k#^?s1rxmdn'Dk2#j.[pSG>iu8%3Wj5fscKf9lkvv
U"igtKBSn/N2)p:VN.)Lq]nf)[laig5=Yl?(%EMnY[w5uCQBXXy-ZROy(.%b%-Y(0
U"Dqla]7W8\0$t-%WC8?jE.*ucY^#H.Qxj98WGf%l\pMx.>Cl$O-b_Jx3PNYxlEXh
U"]0jw[\>:p,aH7Onv%u9jv%9jv9%jv9j%v9jv%9jv97jvMP*g>up%()9%%'%-%4Z
U"&IFUv/oQ&U(%%%X?%%%0%%%%lfrj(t%jw[SV[fkf8=M7U=98(*05wPR=UO=E*k%
U"71zF8H)k-,NDO/w*cz_9JX&GQ'7+#^a3Js-G>9zxC9__sB3F^l]hcc#YN[Qu'-8
U"pcrns(8utr8fl3D6htrabv=<JDmZ=VA^=5T7Gh*,\>2&2(*tf)-Kt[g;AKn_ehl
U"ha09gX[ihR=egIpBr2>I3(m1*EG%US#Pe'HHT0GqYP^&Vax$8_5Jz9Vzmq-7sOH
U"#MfaPx8Qr&n[\Qb'?m0OW-2fk.'q1Lx***+e9'=Nr>tq\SImofYNVs\=1xcE;g]
U"ZA>aULr%F-1#z22cFpSH1U*k-Fgb[7S6qiLv(XR0Q(1hlV*AQcWi0_:]l:QgWU0
U"OWD[fZ;2VqA0WHEbn/qo=/uEqCOgNVO^1hW^#yXU)CdX\F8jme5,P6DjXc5J93C
U"UhEqx55^#=;\peESeO3a<O*R6\ph?0EMcI.<G^?HL>3.-^ukUn#KGIbq^(\c.T5
U":6;3595p1B#&qeVH/CUu+#9X-C+d=pt3(PIynZt=H?^ses*<Mn9LsIDC[s8#H4C
U"z^3yyfoW(.*O$?y;CK6-GhIexghs6$<\ontnPGo^geiSA]XUEA&%ZdU^-J#F^q#
U"gA7]b:_vYS%f;6uJ0G;Jv/]q-NGJ$e'/sY-Di&uuFeb%cpr*TA?_JqY4?<aH15#
U"-S7__hUmi79DbESsksal-Ej_kOr4Qt#&tW5%_S=.hGjNjh%]&0ZeXWu<\Pc0cm(
U"d>tIWu9op9<HVT0f+g^m1q.^B8[k:Rw$gNUn[$S-BiNc:Jt-\^&Tg<-=,5H9j,T
U"5j9*Xm(P=jBi9brn'R6L(;UDGyp35$76=GH\pcrtdhJCclG(WtH9t>eK4h$b\f(
U"U4VHj)o5n9DjxgHA='njeGL;PJ8;dISmWMsWPWsm/9a:k6V^;?%E-F&EO16XKku
U":q2kV^o8_=ifJ]Y#w5(v0V#1TFP.XTB.vR>9,#m8hDCcoS9tGYaX<d=9T1hK*%i
U"3<2Hcs7'o'/0u[^urI-eU\c^fWokX%,le=994eSBV\<9j,)W,)W/C4Y*:S%N$-&
U"#(1Wm3UUs/(<j)_viW3ep)-%dX1T?V=a1RZdMCPe\(Iz3R+rx2</]DjvAD:]QuU
U"32HXNvV4WCFU=1/WFU=D1WFUa=[d=%Dup(%)9%'[%-%oDxKFJOl,3O%%%%X%&%%
U"/%%%%x%yfnw%xSyn:qlHF+3;e5PTZVz4AJ2EgO&;KAjUApC<7n_J+&QgC8?'Ckb
U"WPR4H%+('DpU]^?-cjrDh$r(';\RM)K%:/u.o<9]/R&*mO=iO0AZ'%52E4P1,7n
END SUB
SUB V3
U"lAt;l)o#tC1,*=?p8HE/2CzIqr]2/L8ycMisaqQuWgJLL$xWdp%+up(%)9%'%%-
U"%rE)KF3Jom%>%%%%X%&%%/%%%%l%mtxy%VSyn=q&GV(3Qe5XkZ0)+uS5g'$*a'*
U"BA=p%/7#/c<gj570lRHh')wD.KXSZE:]d.TjWNK/y,+q[nnclawMAX5Y_v4q&ds
U"Oa*J[:sjNSYms/4W+xT].NUC]-<YKjjpUap8XD/tmTvd9BZJ,#5%up()%9%'%m-
U"%L*eKFA(.miI%%%%X&%%%0%%%%lm%txyV%gSyn=q&GF+3;e5XkZP_6eAi/[9LE:
U"[E526%/LM)8TERbL*]Zo0oMB)Uib&O#e[10R6]wKl[2htT^1ly)pp?2%xK\h<DM
U"I<Yec0UPTsVpCx.#98,pEw+i[qgAe'7k.H$PheIh.Us_waoezdN'nYc9ne<,j;,
U"np)u%p()9%%'%-X%[*K7F_Fk(7>%%%%X&%%%0%%%%lmt%xyWg%Synq?&G*2';U9
U"jEJ:v3.&<CQ&_&w=*5YJ;)Wc+NF-5-ZCu49^menZ=ONw^aC9CalN[e>K*8o[;GZ
U"rO]_+B51HI^I?\xD:$]mQ/8D:.+P%DsJ/,K%K)O<OM?WAYt^PE4-Np[j7:b6JgQ
U"6ql5u%p()9%%'%-R%J*K1Ffc&(K:%%%%X&%%%/%%%%lmt%xyWS[ynq&HG*2R[U=
U"iZ;6tA'7;o#';[/BC%*N0i_qpeQGZ)0r.U'4/7Lsj#V0sI#isY&W2viov[?r^nN
U"GG?Zs>_IHfQ/6SRSS;hr>vER96^/rZ,9HD[/'DgA.)H4qnLqXXhj8VYDl[Y'v%u
U"p%()9%%'%-%5R*KF'GPt/%y%%%%X&%%%/%%%%lmtx%yXSydnqlD0*.Oe71kZ<7Q
U"Q(^9%A:6$=hQ&HU=zk+n%3^%467m_pTc7f[L_,2(obmf=L(J^7Y>U8-.4N*MVNy
U"S-w[]QEXF%Qm(*aV1QF[paE8u'e'up%()9%%'%-%5/+KF$a<vg&*%%%%X&%%%0%
U"%%%lmtx%yXgS#ynqlEFp2O[U5kZ'PyEV*NC&+A/Y)z9)-LU+%[ij[jnM](?9?7W
U"wK[xN4B*0IY3V\eY.nMZ)5fB.Djq41jqzj;4BDH1e;Ff;DSc3>B,&Ma),P+H(VT
U"M'g'up%()9%%'%-%5E+KFV1VNS%x%%%%X&%%%/%%%%lmtx%yYSydnqlD0*2OUR1
U"iJZ+'k'>JRF(SUjwQOF6A-c7S':j4s1O'N7-#]Mc2mO[FIIqGqK-xZ-36phz\lv
U"$RWN0:eqgbtNW*I6k3RwU+ECGuE7uf%'up(%)9%'#%-%L$+KF'K?B/*%%%%X%&%
U"%0%%%%l%mtxy%YgSydnqlF0*2OU71)9\/-F2U#AJB-/Sjw=2T]a1e/7[9Coi-X9
U"P:hM6+H4+&I/-E\DP]D;:fK4lZB4b.WC;w(f]:mu0G?Qle^N%ooyh-mZ$MRcGJ2
U"qV[lqj%0up(%)9%'%%-%wDXSFA\gq&/[T%%,%H&%.%%%%m%xVUW%SgfxNfL<Fo[
U"]+ifp^6wqRUbVo9gLQo5J6V&LSTK)0je+kbg3h\Hc]Y+)X=$fP[lB6vn^o3kZ;p
U"0?KsLRb$Rl=s9nS/xQdoetHSG>CLLBtsWLXk>J1&Jrx<r?xuL6Bwdg.GC#Z;R0n
U"nUgAKFZiQF]/HRaPCilS#GaZHhxoWSPo2rJ>5Y_k+Q2sbb3:?9Gbm?_3/h#$9Xh
U"I^i\fLK?8jC_VKpgVqZQL[xPd1<(oaH+R]W&Dmw6Xuaf5:fH4ZhX6JqKK%XuboK
U"i=1V&TcfF$NLU\t<,LJqxMNIF0>'3tsTc[^FYU.KNZ((6\^Ne0xCM>\iG07lu-j
U")[qZLq(*axX=OQV+=*Nnte.Xlo$Z]Z?CSZ3A,&HSLTTcfnQT+D%t52Ayv^Pm7QM
U"M9*'hp?iSXlmF\gIEny$8-oYkVU41:j'ACsN?Js=FNSu.Es71%Tq8<a<WVEgCQH
U"LefuCLNq&eg?^6*1[Q9J&U<$q0cthHsL,\&^PUY%$gtgcbXeC0x3i^9]^0<16O1
U"K59U.yd>BX4xlN:\ixu6.*ES.=lFq9<gl_)i=rXsUWe_PNmtVre*K>6h-\sh'b6
U"P9o;:UKIQ3'<XCPXTgYHE9IRw4SoL6Ze0Bp*%,(j_ibk/AU:I;'P:fj]2=CloYw
U"2'#b6bP]BR-R<fL)]sL\2t*.pbs[M':]xK4-l:\e0hG%VYXEjta/Cg3)<6mLE]c
U"5i,+8ZE.6D\Duf>#IUK)27m-hs4?kWu)gIo+&2pl)J?V-np8+O\+GR3i,$5SoOB
U"_ONXI'?F=vZos2S\xFqT(;c]a4/H\b3dR,XT1>TJ\?Qdn7g.KKGto=ix4:*BR;n
U"%l4*%VrGMV)9']Mhw'1hb'YKc*UlVpfU.-IBl.I'_8'2FZd.Gp'uZ)(9XBATFGS
U"PR7?.B3%$WapPLba,c$19j3TU+IIr1r,\H.XCGCG%0%mOp5WW/jjaf-0%U3:TuI
U"dM/>&AUS$hN.3<IC/u*WrV+2D%'jQ%Nr0dv8</f'lTj04)e+\8CW*o9Cc/Bx+G8
U")svwKG0,>%lMeDS[r.VF_C<oj\e[1biK*Z;%5_i&6DoW=M0^^c8KY5Z=YPC+ET1
U"%&OlWr\lx;nV._vZ5>QPaR5eTM)+eaHeZFVWOoFrFJ\W&V;#u>qIJB*xfnLY*.9
U"NulY4y'sD9MLs\-V]c_kD-V.**Cx4L,:LHq.&7bMefIEhyJDiKk\umqIu'f6#EV
U"(]f&9Y7Hse$Pjx30/GAQE3BTxbQbGTlrOPYMNHD:jtImTOZ9cjXdS1[NWPepxmL
U"bDQM7m-&mDA<L0L164r-Bl=gyf]'40M%QPLlcIhC=NL(*^9,8U*x>pUjtWOIn?y
U"OdO0]_eIU/daL<sOX\=\FJ0B]0+euc6t?0'=7i4Aaa:Gi=DK0MfXgBFmo\#>rOz
U"L0[?OTm-X6\ZhCD04MNzp:Ns:/jZoOr*VaogLGPpi(#jb:\8v0^y>hPIQWo8EK7
U"oPjQZuY>*1D*waLX&yMd<L3'>500^Ni6*>RT'm\V-EntY<&U.sO=j5C>-tJH$\&
U"K#=OH[hXI>x8lbb_IgHG8/:SCZ-[hCUZ^3I$H&9h8)]rb6'xZclBc>;9JWmV_-C
U"fk20.#d9SfXT+c2AI6L+7?_]^%^vAwcX&FaK&,Q<KemTjrH5Uu.ajI,3hO_YVDT
U"G]_aX7---0a.e5;rpx^\m?__I$aPzZsR1?=9I\X&2ZWTcT,QN_G+Z8R-bL(&Ri4
U"/:2O:ZxFFw,W'A2C:Dyesk.yeOH(0pWYIAqtQ4i?py8%+5qjXAODc]JnSVVaLWd
U"$,AW*LRCL+luF],dkn*Uka3g2^vvF(^Gg1/3%+w\a:feJs62wc3.W%K4]=.n**a
U"#^NC+pgk*#jC<*pffCwj#4?\z#fFYxEQA<o#u]XuR3RjA(CR5m9E)UqiR5-rB9t
U",TJZVf$nZk'O]Mqh/+/SChbH37%XCcdFQ+dHOGg&lw;CWdu/m*71(d$_([/IUgY
U"ncJGi1s]w#2<HNlbvpC?df4i$9bsK32CO-c\?nCri+<lIlmBPc_Aw2f^lZhhtWa
U"/O$FddvVDD'UbcAi8]n-6Gl,2#0R;c5K;_HCAir^r:$A40+9DGKE)bkN9ihxr4Z
U"'99+[0,P-IY:P0:Vd)^ckS=A#.q1^di;u3<AQW70G+T[a3-5R:n3ZusKG<L6.fI
U"j(1K,-AQCqWkXfkH$3S-Xl3]$9-37GG<da#gNLUQZ#QIU<mI5$Z-=/bn$]<=L3;
U":\ia<;*'_6v-B&1gfiLJnHPD'bT;=PvneE,%gfMHSIed2fa9H$?^L'NqXh3xm87
U"JfCy>\;CYP3Nobb&1y\jaQ<+r\CL7n$L)7[kkhV/Tf9J/5TZ2s%IjRhX**QyV0M
U"LlHHs8N/'R'6HgnL]L#ZF)ET+.W.vxAI9iY<6>Zg#L<AjL*rIs$+=2DLB5xU;0/
U"kqw^&lXauhSo.j-BBeScoYqPUA^DS_hsgYS[WYFb*[SDc&\+8-Dti'56v/QQ6&b
U"g5q:q#ZOU^5/zF+Mh$dgv#ri(QOQ^=z[FU^IdepJl+%*$8'<KL_7C1TserFk'%x
U"&a7_LX#9)'YU&ZpKN&Dstr*DRxRALDg8&uO=E-A>Y8L'LA(+_Hqv$lS\6v)X(30
U"-1WX&Kj]ThN2y^,JvC.78Bf[0uh=UU'*)wie<leA2m\=2_:TCP>i$(zW9#$nET=
U"ECDc?62UTR29iS^g2rv7rubO;k0K5]dxCrQsU3gA7Bkpbeea_90#AVWQsKJz7I3
U"3+.aFbaah/]5H'1xJgF/J[QMVKKkk0kG]l^(*a2\w#-4C,)g?VbUsD,3UK;1fU_
U"7CKTJ#S/x[N.V=Cd*cfAT'.7HvUX$>^0I<.=k_[-P80H:s[3y7ma70>bQ1)I#gE
U"%8R5D)'9Y0pO)Gpn5(uBJ2qniiwv#]c8xQ$1=&+]'m)9Rj?Rmpz#=l/Y1nmz6R1
U"T'D58uvEiqF2>?gc/06f*+OQj6q<U87P$hRG)$$hbChHh+F)[>Zd0/b;IVOjWwY
U"/aB/&^QMFA+eQ:O#/HQK5:SQkM6JwjWN\pVG8D\[g5In+SUN/t6C2'=biDlr-6E
U"vF(E,Dakrr5*aG%7[R)psGeb(#&aQhd/qE6mR?8,X4UZCAP0*O#-xL>nw1[;e:]
U"g8q(V36D(;9<o1?M2uMzR>xTBt[ogDJi-U3u1pxpK<wtOuX0xsihg6;&^6Xvi;J
U"05#=>0)<AUCZf_=^JXg>Uzl0;v#weo;AB_eAAxKE-,88ig5x;$$.[ZgOMj[+vgG
U"'%FV?RTK6:%sq6_<DjM\rkjM]a$wr)3W]N$_o-Ywr^&#/lg[.:HmgrIaRq+mj=E
U"uc.'R;t=Xd-LnNiKj:.>_0gU[vi4$*%U%q<QA&X:,8mZLS9TMZ#tg#f3X>Z[pK2
U"b7vWp0.VW:eJ;a__]C<VQ<d/]v57k*V+cg3*/GmaGU&FIhGgY6k]0\(\F6(1\Oe
U"9)ggkBKE:4Y'3Zyh/\?aW[Ma?WkA&b1e4x=u[S\?8mpB-*h&I3]\7XZ<a[=h:W7
U"Aac3Q+tGB6Iq:Ekf0$g1CV.n_1*>p(p=eQ\_o3M'U67])b0ML[i0p%2kRYrVWse
U">G=E-%dG.R*GcN<anrB+Y:[LlQ^SED^0i/_,Z=x8b\QR5XW,3w6*dW/qOzPcmg^
U"xr(L4_io\v]DJ+Bh_Qh^z:a?xll#)eza.QhI$nCs+e<9a8tTE2i&i7LrvESkH8%
U"n.VH/Y1WGLKuwPF#'Xasitr4b)ssp87Ht[0iR.iL152:1YjrPTm6.0<dpN&XOiN
U"DouP=epN-NI\D*do7\EBlDOhO&p0CvlXt]pdT(?V/TXFGK,:2U9RATU'Bkle_Va
U"_^CLBlCJe\QbKS*1%$iv;SVN=+2thr>Uw$A1,r.B>RVicoF3ml_]CG?B$m(qMG4
U"8$rd-40hSnt3-L90;+udfwK6*U.:kl-=%Ad>q?HdrFJLZWeKu>m*R?$(UFq24]i
U"Bp:#)#1-$XX51G)_5Fowu^T+]Yz'jMZ/,4cw]*9yWv7+0ui+zuE+DtYd]Uz[RdP
U"xgg78Ahp8*m(q[#UsY(OJ<mMCn'WXXc:pgXCV*]^vdO.p9j0q>*mZ8_as=0&LmY
U"8+9o7H(j2DO#LAOJ=nL[7ESZy*Ce9T1$+_=f^p;dG%%j^>q&Qj9]tn/rn$Lol-r
U"0iI&acR8M]D'h)OXiV:c;iolHxSxsbhTmkFB>[bnRtJ3X$z^e=-,Fa,M7tYi_ZK
U"srnr7DuI%.dxbW(nxCAPRy4$:;yVmZoNDLP=yxkZtN5(b?/r7krCmOAHt3?G$<?
U"?+DWz6b6Ah9WT=MY9f=yY2Ji18Y*3i1w*>,r+W*R2i4hqiy6PvW]&iAe'tp0BfY
U"=ktjpdz<b[/Bs_r]u.0$#xcX]\y4Y_#y,jF]N(H>kcZa4sn_C>vskC6$Ib#Z'8r
U":GAl/K,\X)i-2YU38K*)YQW\VXd]v6^,95eY*OS&mPE9V3]Ho6?JsLyQuZvfs;^
U"X:BkMV/5A%Owk6c6xM^;25Cn^D$CSqFj[uAm%Y9]ucf\qL.3\gT<R/ssyi+ua&I
U"ApJHxKa&iIDrPJm$E5<Zo7p71eMQWfS<BD\o^C:Z?#sHdU*$xn8N?o;dbyQ<PW:
U"p(Nwx(I,;/9EM3lm44tGU-o;(-ZL.)IO.[iWBGsnt^PU#7h,B-F'[btpGGmsL9r
U"bPSi#iRAx6N%v5IFo+TeoTw)H=chAL9kwThs;<nZ=cYn_G44.9W_o+tBIVtPvag
U"<eWetm<H3s,&MZ<bEcu>k%$J,tghSdg6b]wslOJEuLxYi=M/*F]E_<riaFu0sq9
U"Gd='JxuU9]6/z)cKuppB2O%gz3')XdVWUIX2sns%+nFko#.vp5IMOG]*&)%YR&d
U"\HgF#0F+aPc)oHTbXS?,twJl.5Sql&H#>ZSICAJ2;R-85D:T-^N/B^Ap=Z*L2tD
U":$?WOKaiVKyJO8M_SkSi&wd;d8thwJ'oio=\Qcu_udB9q>E>yL-%(]2q_IUb/z*
U"(_;G\;1\ao^8T7K#eu#l(tq:2$.1Yeu(i3MV_:>DC?X?0a<<Em:&b84da]fJSI6
U"kIh)awd>CD'9PXei76uGDmF'a%K9N5-OpEdBfmk,mC;?9_GFaZGl?EfdIcq9m78
U"gq$g4x&9H>^'dA^#ZC9U-$#\f4Ww#xz;xe&o;2_nZ;Bc'Hf&_hZ?Bc\Hf&_dZ?F
U"Ng^bZc8rwOhd1>+-m\h=<xo/dGwb4:KrgU>'=L%<>RR>Z4nMo$Qlc4n8;K?4]G(
U"IRjam.n(pi6n-+gadu<n?-LFRY3cCW_/j:gDs\()\s'&rp%uqMuhTZZaIKs(;8^
U"?-B_7I4me>/)B>B\u0Z^-7pHfnn8D,tf%/uBeUJ80/gX]j_.Fu\sax]'GN/Sg.k
U"hZah=1L*BvHA3Dv8%[jJ_IFK8*Dtz7UQwKj.jQ_>CLI4za9cH>iAf?$4>fT(yco
U"osJuT(OefFA,_9./Xr0DCt*)N3damlqrReACv].1X]dpkNw*7Wo55:;2:t*U?oV
U"CCXeY,w*wf6SUuEhHpdEcA:c/=^ZRKb;0<)41(JABKOM+S$DU%ek%,'BY+vj1Nr
U"a-(.0v]dfrqxDjl+o6B5dIm&7Fr1mN#[1+q_+deIn+EL$hj,_lc.R(nUoZP'b13
U":llb[K7TZ<pTK:JnPK&'j/t,u7(jKt>ui]af;FeJi.K&r2.RD8-M$PkIRZtl9Z-
U"omgC(ue4Tctn/Tt5;eHvT_J#dsWd4x;R8CY4HXUX9FuVX9EiL;H*NL((TXz5&-j
U"+<#u(qkwu4Cpc>&iNDe/*.vm3Pqcj43Q(c7q/7isv(:k&x):4DCS,qGx0kl&Yz(
U"JI*.LoVPqcVz-:&ul(Yxh_dInL,(x&MNOdIon$%M8zdao?6s[PQncn5Vt-v:Ytw
U"UdVIDxdbI=Lq,ZBy=IOHDIR/:789Og3IC]C%48Sy^YieJz8]\dl\\z51vR(n#D-
U"2JGd'8wQ]+Yh&I$w6V<Om7_z]8fs+_qKSx?v%N>#yu4Z4H0R\udP,jCipe473y^
U"b<sY^L<9?'chx\.(Vk9<c?#pl?9;wNu+2:dohc]Y-a-0Ye%,sSZ0T%8+2AYPQ/3
U"Ev=BAn+W%yKm0Ko;#1=$&)<h.v$](YaAl2i[v/LO.pNREMdLgrM&W5ev>eXWq7K
U"WFK%_8qJvv/k)x/^3wwp:)ZOb<:/#=%Q&*77m)c=)o]Vy#\2J2CMheDL&yZp_sE
U"?%5X:i)K%(/lX)*]W]EAHJel)JM]f=qM:Et?TFmn.D>8l,$FA*[]l?TfWFAxvU2
U"IX\ooQWvB'%\iJgQ1,cqc97hIog$S+L%GneFWej:Yv-pGQZ_u,qEuLeAMRR#)d^
U"]Ali>R%d_fD&_q<)\7W#m7;oib>G+YPAh^M?:VVJ>'MZDX:se$FZv]cEpwcgW&q
U"Y4R5YMM2o+%$b>6^s2AkjNdAgX'r'Ra%HmZm?:OLc3LE%^=X$jyMe6--%k/'ad;
U"qe(KdMrg92HEn#tE:+>](<9.+aBwt''*bL#E)j<_6.sPmo_;+:j,5gHss$6l_B4
U"3)*YAIFdvS;0a%%mxQlW1P*wL^])jLzd\^&&'*v9/*46;F0E;Z)I*/ujQ3QG0J&
U"Z?vEm4;u[\;a-t)c'p3\3\\]F4Llmht4MDovE6\W,AVn-n_h]0wxqX&j1b*cIVg
U"I)qUv<KC<4Ygy4yoZ_LVy=/Z4*'Zj'BOiT1eY;5)y#jrN_YVUGwpqIP4\,L4-\j
U"DyQ:[fl*rsKrh&MT%;k:#Tf(;O:.9jqV/>'%jgSi:*g;w>GSnvh[r8]XNoi:DB;
U"a.XQCJKWma'DdTL8bA'v+)XR-gTC/tV9gP1e\<%%bwZ)k8c,:bZC6r6^YkP6MBq
U"TcX^nVP-NV0p]MyT;8;d>)gk+kn_unz+gmUoZhGI)kdz7BCZ=bgPmHWX:O>fr_$
U"I?/=pyE(.rKOV55O%,WP&/;77];h]3GWF)YZq]Qkl2qf1%p[<l];i$=jQe6SOEJ
U"aWm=P]'1i_qVf[#\Q&%?+^Gw<WG+3l+4Tp]/+N\ru?=JIUJ7o1E[ciR5]]J/Vcr
U"F,lIx7&r&\,J&e]AlU7_1P/aDJX5(6GL3[3\Wt?$St_DcSrOYF\Y?\a^]AN%j?=
U"Id3Mkto'Vtc0G]/VL>9X\>;A-Y2:b=4sh+fK,TM#orw/.tQQjgN1#]gQjgG#eK1
U"3muI$m=5okAuG<qO(M<g*QF]Q_[I:Eeqs'=rC+9#w^p'oMW6UMUPs(eqO5B1xU6
U".v1XM&QVslEWD[=FUo^0.Pq)hcoM+]x<FF]Ua([n?RBO.,N;qkI8:EP%%xGmWb,
U":tq?rZV)r1DdxB$*6pl)b6UD1*&:v>50Cvo?_9WU^Gtv#gf[_4J1$qfZp*TA<O_
U"];#8#ftKM^zvZ(],.CN?*A&bJ>8-8F9J,8ze1dN%p>'^CwJ%L/fH41n'/Iu)C&/
U"-Mb[gn_MMQgf[<%r^),gia]SdS8uxl0-9b2lJQ#BP$Zod2Mz<rp4LLEA<E0jn7g
U"_-?wOx.?0L*N.-*65A;zUx$IcG5V&388U*05BdsV*8H.PZ3&Glun_mHTl'$9ffA
U"l_g6k?4q^32(B/u1fC+ODXr'$N$DjQ&xj.A/-snmt<^r8C-R57wJigA2dp2>U^n
U"Ts3i$Y3.oW?].nea[r^IrL4C[ybw$$?:CuM0CaMYl)MtK#ZGI^CLVUIWQ/*sh=\
U"$SodTv4QtioM'Xv6&o(k)nOOj7u6?2wf:)+IVa^^TL$i;:uiSiG5Gel[)uXPNYA
U"ty:Xtk\&-mj+Cj+/CwX\<_G]X73S93BsgJh;HjHzC)f2Tdx0#;,<K4i=b,]x-jD
U"Ij_rdjdYsJ;*BOCZ:FjCvt6J38Ycto;2qi610(+xc:tp*dpKUKo&(PT+5M3A47[
U"d3S7GZmTsQ6Zadn(sf8HbG8)&:44tNng6[G-fdmn^qOY+P+wgl:6l]5DEH*BLPq
U"'?.*/E8#8EP/F^E^)xp;&99OBB;]()sn<'I?1%<]z-9/B'-J;5R#3.-/d6%99Na
U"<kc0m=o?+=5H5*.HgE_OreO_%ReYB8_G0b*I6]78q'H,_/J8%-QeL4hU=Mc'M5A
U"TT2^dI?'P^LhPtU=m[\u)1xF5Br]9(&9UWLLiesEfI#s_1..5n'c)BgS9ClThes
U"=ILLs5&+E.IBF,Vg95Eq1p9KnIXMs5*;;:xV3,\V:.lWgSOEgY)>JFhBFVTQ0^1
U"hJFj,Q0tgMRFbQF,hc(t=;D(]R]kcag2-X(U37_DUWRW#nSw5kBK1,+#sG1EUCO
U"mF=5Tr*2<8ka&m7xQcbWAHmu=m-Lrb(H:jM[Vv1DEbTPq:[ziS$#SGm$BkTHYBX
U"U)tg,L9'/6$C^u.jhG=k:Fl9]?2_,JXy_1bbg[nlHc8Xi'Z)Flut7'>PNod=4e=
U"9biJY^vXFcjx2aQD/RTBBr/(.ap[mB?NHEbD'8xNJPWr4kd2,+;U5*tG2_xT'/]
U"gl>vC[0mqD$C*[AczhpVoW/?]&yj:Fo$J[SvR*>G[j%<XeC;QU\Nc9r9YuTrukh
U"1POI_;];6owi:+:QIl*1;7P?cq$buSB;kt7J4*iH$ERc4l9KUm#O=;E73.[<jcN
U"(1B,yy;sp+%4Z7mNJgmW[oGUe>G+rWmh,ybd?%novY.jh[pwUZ91&=xoKL6dri:
U"+PR-#rIWO8Eu5j0MjY4l<:i1FUP;M3K1tLdaNzD7?[NXxwt(_jN23?H^[wRbHRy
U"C<hi]7tOJ,mJfjaPKoTur5-MM:BCs1Yl/;K'ay=_t&.xgA.y#l$xfr%6#YF8V)U
U"=I78qeOnjw8>gu9YMWdlNiBfq_R#Fhleg7C/_R-d+cWV/F+U2E.v)pJAhEpE=IY
U"_#I/i^iqg+NOVll%\;*QS#hU_i,u=,zub$G*0BccS<a[Ke=7RD-KqS/N\o5Nn+(
U"[X%*J7sUBXMSbma74Yblw0(Umro\^lm.xO6B-l'UZNGJLD4[2+MP4.U5CZ'0z66
U"Z_emzUpD58aZw$hXX\_=,Ld:zFx)2KA\SepveYb_eyTlagj+LDwh,%Mxw9SgeM&
U"hi&ql&hNqD8IOszhY-qZW'#-E;u?8o<.O#]e1V5X_V2OKIqzKaM+Q?k>]%HdXjm
U"A$F&xM%HU.(XYNr$&D6g=h5D64aSPt\.o:nYYsX,Jd0D?Q)nnP*fiTNt[g'XIOp
U"ujuGro_?U-7upNhPt')[OKj;=RE_b&yXdJBj.*)cjW<$U2X0,S+SWc/to;PAiaG
U",ut1;8s'<3l6OJ$z0_0h4]sF]/U<PsNLI]QP<NOtip>02A)vi4?#$v;;&TgSvd5
U"6q1Izyyf8'uW3>Kk]=%HNM*^B4ooE[(Ps23^<B->eKZ1PxZ+b')I^FefeTKb#m;
U"Y$:25,a]oOIrF<o6%MSEj-#Crt#QV<\MA1CXeW)F'>s^kgK5V&TCk-0R^9A%7'D
U"^Xt4<WF:5/S$D&1t9GwR-nVyRRkIc;HqHR^GnUP1Gk<-'LV\mM3=g/Ax;>[/mP<
U"ucw>&(Va\#WDTcu6uUpBQjL&ZdgjYfA_>^,n.?tj<lhaW-disUz+b'qRlqhRk[T
U"7$8bz-r^Wg*<ul]%tX$f=:7_o$c4mA?XwttB3Whu940<^8bV2X3Kefa$#=Q)77=
U"H7Q([&=TB7?3fMD3EBC_XFw;v6*ZMvykmaPL*%t^$6(D'\-Dg[YrGpk#MR)7sOV
U"TE-0Nf6ugNfid//I=Q>J>R>q0Y8Dr>?qtj95,9\&q(Zb,3R3wgC?M-U'N/,Km2*
U"L2?IXHkCHCiU<$3o:/de_7Hk.1?lHu<2+)w$I'0$NWD621nAshNP&Tc+hbN09M&
U"/&OHU)Z7*2WO[DN,'k\]:YISUV%$?0Z/Se\Ih:n8__ar/891c[$LEZqpUw^V7sq
U"XSGl9=W'/+g0M'EY1U3.v4<aq\;./+Z9MDHy)SxBR3I1E^j]<?8R)WIDUjx=M\Y
U"Tz]nlpEZed=*SnXbA9uW65fD6/\Et1p=QSl/STIBQ/Hu544&.[;1p<C=e1iWllQ
U"Vygpw;nT&Sr=gvQGI-6.q_a^jWiyO7&C?g/fCEZpAG/&iY[GO38HO&i4m^9[bV)
U"qh^Q^'crbSrt*%Qg*q/-:3M*-kOC2%1J8k5Ju6FKrD-ZHk8-_hu3VD+l,BqSv]d
U">v)5P_>Nzl\x&dUrA/y^I;zb2t)d2#MBLl]J6YcDsEQZN26]tcR^']QHI.5<\LV
U"vnqV:rt1wVJtZjh,Ml)=?7_8_TX\k.n.QAd>19mzfb*R:e$C?lKJ7<Ae4LU\QZ_
U"UFM:&/]Qcx8XWYgjc8EpFF6H6nsEUF66?AJ$2e[VuX&(bml8mDW>mn28\bI*2O&
U"-ur7q^RdNRE5hPvh2DpE[88ra)AOwh*^m_M[(Z_d=ODf[['d4.)C]+8\t\lvTj'
U"BwmqK%Zf7t?:gE;&r5Bl/g5-<stL'(5b:Fl3k1ZPKI7KMCiIc(3DCVjP7hyKtQj
U">nHQLj<$4^g+?7g/BTC169$vM(61:ezM2VS.qsVYOu>)iT.UrRF39OV*XAMJx0X
U"N_tNk1IR[8f1Q_*WH4OH<#TpLdGN?8)6vN3P-:pI//tqcT0Ciy4)JZym:<tLo9f
U",Vo9]%,#c+fBbc=0+eE\)P3J'4*^U5q2t/_$:,f0\tkSu*MwX1J/?4aKks<o^Eg
U"t%)P)6;ifCE]>d+XL-aDUW7<'Xuw,)(uMf0:KeqU:)U7b)gjdr6u.ZYKLiF?9FP
U"B$aLC72Kj89Us#vG)pQA*PUR+/G*$7#oOnx,.b=<)l+E9whCRc$j2i3HHG\]w>2
U",Cr^/MgDQk,j'-[i_gg$SMiiWX54+RxBOi+ph=*+*nzb.CadtO=$?uOq9>ztnbh
U"0EaZy>]IQs'2>8AAj0isr6=R]J[C\PYM'iP2TZ*k/4>GZm2Xg[xAS_1p<](5')3
U"]>WekxLRYc;EAYafS.ZAfosfL_nE-]:u>Ylosn-uX<wT$h8FI_wURHYpjb[[=NP
U"cb\pfj+Yz,u?aLYumL)p=nbPh[M^*OLA]In=+Cbi-cm.=JxlgS59nd4l6ZVL*:V
U"nxjCJ-[c$2'a1gaLeq(xpcqnUnLEsvfLjyp(L&Su'nWnj.Kr&5FY/^e.?Ybx_*O
U"I+VcTXC-qUEZg1GU83Vf8OrJi(vv8WoI81F_w\t;w6##tXs[X?wW\_W['?Dh(h\
U"CRUhCH?_>Hhs/(Cn<v.aLtrEm]GKh-PhzuFfQ3mQ,Y\1iIfah2AUD0p>GT__+L]
U"'YvUYVeQ6M$My]i1HoBR2PmYP[t1W*C+/86MLXnn_S<rS'3B9-T?bot5>5FXPbF
END SUB
SUB V4
U"F>8'HtXHjM(A.=mfsCdw%>HjtWZO,E(H>rXKR=nX3I]b]npJA&'0nLD9ll:&9)Q
U"#88iaK8oA6<kq\=&I<C?ZI[6zh,&m=ZUgRpSAu.J&_]M*s7m#]rMtuI;i7qb7RM
U"CpH:N+6JuQ?oU18oa>xT=LolCRobhPl?Fmk'Q+=*BPD&Tn0AhhZ>;*?I2a,*$c*
U"QEY?Tk3f\#nc[]x=.[EFeF7bgAHv_wL^VmUsLI_Y?ba,^B/+sAF#sI6%lM&cW8K
U"6$6X(H>/80-4Rtu%=B?,9r1=:WCPaWN]RICN[QD[3Vvi7Wd5=,(D,dFHh#^LQT=
U"ji%]U?$,RlO>1S(rAw>\E<193gI%xN=<*Slkx2#0p;:N]3*Yp9S4JOzBR<WbtZt
U"c%9Z)w_1^qa]T>]BhH%s'-)JwJCau9n_#UO_s.MsugVAnD6U4D+UL9?9#%=:Dy1
U"&%uwl&7OP1C943pO/O]QiS2'MT7hiFZtG=B>yHzN)[#D&I[x<hX#d;aN?nGb3N<
U"i]ShRZK1Gk3g3rQ\?C#ByjmgBr$eps?K1Gk)dAkT#LzWdx^yzTYN.V)(E\YU:)A
U"G:DJ&6)uY5F7W8*VN+bi.7GmT,6bRU^<[sH][j[zXrJPkx:>[Wn1T1=G=+&A+(^
U"]FeS'Uf.9pOTKp.)+XqC7aZs*;fx/Lj.Px,Js(\PE$5E6:U_L1H];1iI>1i8=+F
U";1A)>1)88+&g%1EIOV9RZ;qe+w?E9BX_RX=A8=+>SECaRN/<k(2spM$;AT$/b(d
U"uVf]AzV3nRt<1<Fj9f,6m?BZ\p.0H9\5?,R8FCBKt#BdU.+[PSTE8yb0r=k0j8*
U"RhX;&r'9YmqG9xid:o7[zIe%mM4e+cQs[:4N:IHlqA'h//FOj0RE;Qlxezp9UnZ
U"naf;TxL#3r8sSmoGtX5Xt/w,t*g.6qPtm-tD7d/)7,<Mc_TJi+rwVY)tXy[9I_5
U"2azdw8&I>cGBgOScwt.BL2I'YPC_%]NG[pEuo__7K&wLdu62scqJBn(KWqIBtZf
U"Ffk,6(C<^i^aS\'kZa_\DMhhtYYrszPMnhXeojDXhT>\Vv\e^\=^V9Wc^NKP.fs
U"\G)T)N-,;\+-\NXDd)V>h%]m7_kCE4f?Z#[e),2CnQmCU4+<n/V8Pd=)VM\2,y)
U"ZWh/u>M*2H.mL#IZbF]xv>+0/c>HNLAM^Wn7l&)\;oMs_4_'PzxZtiA4fA/Bc>:
U"Dt)J=ysZirax,u<oTQ'PVv##>2WJg-B&uVL'/+b/QWE0bhu-.#r64=3\;j(4_]f
U"BsCd6[(oT>q_U\JS7a1ksQ'J-1<zFRdJEN4mATIe#'oBwYtiqwgIb1o^ulNQ9)s
U"MUnq5&_pSWoBIS-eZ7Q_&?n58v/XZ53>*V7zLbyXm7mEPSaKee&5[P#X&bbk8Jr
U",5ed8l;[ei+E_L__x/u\k36(>$Hb=T[gtk'otup<nRQZ$)$J]%1Pn'TV*63JVbT
U"%o[O/0,h1[d#65p^LPPhiL>5aB2C$;XB*+R7Muqi4Mhx'6h1.85;#HUMRcS^6P^
U"D+ukKr#r]uCLh?Z7k4uEvVPT7Bg43U&B4NpdN+T77pD)W#NZc<J=GV(KFmG*o\-
U"0%],L=&_i&ZD]Y^0jA\o5k2Lq,uQA#n9\=)c>D6ZJ,ZspF_B0:C7\8n$^XO=*ql
U"X)q]^Y]rL3H^gtSg335MeVURgRUC/oWc_hd$&b36qW&[WZ2JToSt]%^LTQ(+5jN
U"(Eehbg;X0padZI$;j?3?3)V?93Kx3>;LW_kdAKm.0kJ/,F^Tv&w*-FQGmeeO+bs
U"S.mQoM^;'ZAn;K'8+fGBn=f&&[j$'qDo)+\r(%Yoo*fb?_(&Z^Z%9zHFeJR\qYO
U"4aPBIfZh&E-Cc&8g\57a(^-d#6-k[N$-\foFxR(3zXbmaH0vPy'<u)yzTRRV?dS
U"ox9stB<>C_5ITA,-CXC\jwnGT']/^w?.1L2Xoo?zZa/B4M8s9#\v8yeRry\<'<^
U"HwqA*g-VRY60?BfhW/Y(V(Z.&T[4Xrq$aSUpIMwnkc<7vh7ft1DxOG+y.h<D?O_
U"jmO*jG+Yc_&Zju+_*ff8e>&T%0H(s'h+J1BNaZ=)OIEg+ytUl-JQ*y\:.o?M1Xo
U"?;:'AZIMBJWHC*dvao?;'(<*Obr0Qe,HD#cv)C;u_pY6RId=FxDkz]#.r43egFo
U"/,zM1jvQlfgI(:^:6;IMxbvmwo+M#huNtJ'n-hNP4I6sZr2^hGFc[NF.w1rhi)H
U"f(,*54=e0o*:yf6Wfs,^)<:-[sdLnFD*3(d60JcS>IGgad.7.K=zR21']9(^0B%
U"$xcB52=IWlZ?_HGRA.tNBInzI0S^E^MU1k:s<,JbYC$g=sgM<n?a;GTwf:SN5KN
U"8RJwRSDKzPEjU_Mggn=KELe+e:Wz6ZmOqZny02<.,y'qr'WCF#<z>afS4w+Dg+6
U"d/*TyWEBrcooG>m+B0V666E#qFYNeIfm4_o^pD0iDm,Cvkn^Uu^g(^Nr_V?%kJp
U"bOKmM<IYUjql+FQ?e48+S?e_4,U?2O4+Wr?Z]g-EGE8#j]Ln(//nwnR+)u%1GO%
U"R.\64J2i0s3O>es-L8^0Pw_\#MXQ(q%u82o^[2gLGywfsKj*tu28:Jo.S7wB/-f
U"i6W;P?Qq[f5PG3v6&4rj33>R=j5G8<4$]w:FvNH\_Ui^zEnQtQ,2b0F>8T/.6=+
U"Q1w1f'BZXR_;43<%mlW*Yo7#A*RO%OEdg(UWUpKI*<$v;FB2T:RAcMur3kXK>ni
U"A:si]Ye(siFcvl9r6EB0^lWtfpaWHEJatLm6H(rO#7xTv/(<UxuMlocSCmr)8f2
U"U8J$Cch5V(g17a2AFWdOq+)?QCRoff'l2Gh,XFYaRIK$)=sOAxP5F9IbGnU\Dn1
U"4KNb'8miGn^x99)hM=qKapq7bcr7iS$Xfmb[&BPSC:lE[,Z<kir#H\&W\+:%1Fb
U"KVWP#GOD:i2(U>\rVU'G:$/#JBz_'KBro%MbGaj^X;_uh0dksL\TjlWpf8-+S$<
U"+iXoJJk*BMiY>z<_F0z8%moeZ/C<1p4*.7H4&W2B2,W%ISC1:J4a0;a=r^ba:t^
U"re4BlujLjCkhF?Dktn?PBuX:RB/NC>L/N4FLsDWXj?8$g/Ps7Z9D/6tk/j*%=H&
U"5P[e%sq-JEw-yMHfqs.InkM2:nwK7_x[caa%<?,<<#$;80pM7:5GLUK>7;9,E5p
U"FL\:H+*i==rOknHBs8#bbb,5af[\XKCnX2I4>O,O%dV3ZB)rx.5Isy9'U?m32HM
U"YRIJSC6Mx*m.)EtqfiWpTfM85lKYy9.HC2I?VKFLv;^fn;XD/'Fn/I7p#Pbl>t6
U"eY/apqj.0Mb2.6WpmG],oaeHOnoqg;wUU25c\-w#Uw1IE&hC\tes.0tpE,0NoZB
U">h,IU[%-b?='jkl?[)ybTr(Ng*nF8='+RjTk84G5H4lP8>>9-J\u/lm7BmtYi=P
U"^0wkTFOnH-^bAOD-t])h;Y(M9RVoSAAMPbiV'Q(wxG5n]FjjTffx&81nL;(E&x=
U"ju\,P#DZlV]D,b-WJm9i=P<>_EU;bL7j%ELAsf.>T%:u0-RW?Yc=a.Kg#J4U+?s
U"/xMRzrPZUON$I,ARU=i0/8Ya<8njUYrZQ'ds/X]3Ne%C9,t&aKYgLG'17\:8Hn[
U"q8FP'W_pMhv=2.jmVIaLL'm>&U3$k%KAuwZhBh)/aYC]j%#k0/i.VtsY#==TGZD
U"T5_525jk==M2?^)u$2LjnIf?)i)ijW-5epNEVlhUOgg9md]OOeKn08;L^1:(gd)
U"e_7oSSB^NT']Vl&l/4J'33*'_xbnq)H4J+1lbg_71a%s2Lq(2$x>1Qd'=*NntUY
U"BuImNNN>_:kGsJ-lo5Vp-hWbcXcOhCVJX8BfdpJlXs>ue-/njXsrvbVL*cGNgLD
U"jkd$(zpVJLf<7qcbhBwIm.uI7*J>&a_.Ml:mV6w6,gP8uJr>UCD/h;UDIpuBgJZ
U"IJ.\nZytO*lJdA6pxoePEqvI-KOTU=?bn-&tw22r0jFLVjc\[kl5^fojm#w3g#?
U"gXRQf8?IFLk*u8UrSO>;*(wD'ml,lRm&[EJpGqY%x=eoZx$%mfwNthnJAmda[b_
U"\AxaFGyf7cxhP7&;r4[csD/WDBHplw2]Ha0Ewa-%hX4?_7C(il8loUcatnnFi7A
U"_'Js(csJ3>SZ$N0QVI^F417O#PIG'Jtt#W\:JakB=Ep\G[qJGJ6Zm+luF\ELu$E
U"\,5w*dZDX1K7'xDup%()9%%'%-%2kXSFTL&_]&*%%%&V%%%%0%%%%hmpq%nxyS[
U"huxlO-OB\V?4i46ip4%\QxR.JY*t[s1Bxw-xp-[l)-SCC'P:J;rqGY[k+P)2cpP
U"&OgCkv%vV)M,DmTi]C5F.Gr.n$&8+Hh74yC-mFzJRDqw\lA$f?7%E%up%()9%%'
U"%-%3uPQFgzet%&L%%%%X&%%%.%%%%qtty%YSynsq&G6+2;e1XeZ$S'X-i8+N^vH
U"'=1>F%*JhU-;f&*dJHsm:-[9G:mk&$8$&)chl-0Bup2VZ[MRR8&hrY8)8vP3S?O
U"G?CNmU5mWEP%nIu6,qH^5Q03K),00sv,hQ*tW18kDt=u,j4cgMQ5hf99h_)\id$
U"m)iw(b.up%&'9%%9%'%[-%h4/<F4p5u<5%%%%X&%%%-%%%%%%%%%%%%E%%%%%%%
U"%%ynqj%Synq%up&'%9%9%%'%-%17$=FPRSzf&t%%%%X&%%%,%%%%%%%%%%%E%.%
U"%[%%%%un%VSyn%qup&%'9%9%%'%-F%&f>pF)se)U^%%%%X&%%%,%%%%%%%%%%%E
U"#%%%%%&%%u%nWSy%nqup%&'9%%9%'%#-%<Me<F+$0'z7%%%%X&%%%.%%%%%%%%%
U"%%%E%%%%/'%%&&fqq%VSyn%qup&%'9%9%%'%-I%GM<1Fmp3%wi%%%%X&%%%.%%%
U"%%%%%%%%E#%%%h#'%%&%fqqW%Synq%up&'%9%9%%'%-%1P]=F7Tap9&p%%%%X&%
U"%%-%%%%%%%%%%%E%%%%)(%%%un%VgSy%nqup%&'9%%9%'%R-%ORnLF>('7Ix'%%
U"%;;%%%/%%%%%%%%%&%%E%%%'D(%%.qj%j%qVSi%fyup%&'9%%9%'%#-%iMn<FPp
U"//5,%%%%X&%%%.%%%%%%%%%%%%E%%%%k+%%%qtty%XSyn%qup&%'9%9%%'%-I%]
U"M<UFeSs)AI%%%%X&%%%.%%%%%%%%%&%E[%%%C%+%%q%ttyW%Synq%up&'%9%9%%
U"'%-%1SM<FA(3vZ&O%%%%X&%%%.%%%%%%%%%%%E%.%%:,%%%qt%tyVS%ynqu%p&'
U"9%%9%'%%-%x_M<F-K2;mG%%%%X%&%%-%%%%%%%%%%%%E%%%%7-%#%pj(%VSyn%q
U"up&%'9%9%%'%-L%,M<FF&4b*)K%%%%X&%%%-%%%%%%%%%%%E[%%%)%-%%p(j(WS
U"%ynqu%p&'9%%9%'#%-%L)M<F%D<rJJ%%%%X%&%%.%%%%%%%%%&%%E%%%%w.%%%i
U"tt%wVSy%nqup%&'9%%9%'%I-%WM&<FN$6)MY%%%%X&%%%.%%%%%%%%%&%%E%%%'
U"m.%%%ittw%WSyn%qup&%'9%9%%'%-O%=YSXF3AX+5$'%%%-,%%%-%%%%%%%%%&%
U"E#%%%t%/%%m%jquS(y'yu%p&'9%%9%'[%-%))d<F6i2=mN%2%%,&L%%*%%%%%%%
U"%%%%%E%%+%+2%%%mxS%V[up%&'9%%9%'%I-%Jze<FYx(vTC%%%%l%%%%1%%%%%%
U"%%%&%%E%%%&y#%%%utns%yjwV%Synq%up&'%9%9%%'%-%2g\IFC?NWB'M'%%%f-
U"%%%,%%%%%%%%%&%E%7%%k#%%%vK%fSif%yup&%'9%9%%'%-I%U]=#FpH^(EW%%%
U"%X&%%%-%%%%%%%%%%%E[%%%d%C%%u%nWgS%ynqu%p&'9%%9%'#%-%E_z<Fm9AW;
U"P%%%%l%%%%1%%%%%%%%%&%%E%%(%hD%%%utn%syjw%WSyn%qup&%'9%9%%'%-X%
U"t1C4F<L7)Gp%%%%X&%%%/%%%%%%%%%%%E[%%%g%D%%u%wjxx%VSyn%qup&%'9%9
U"%%'%-R%%2CpF,%r)Fw%%%%X&%%%0%%%%%%%%%%%E[%%%0%E%%u%wjxx%VgSy%nq
U"up%&'9%%9%'%m-%q1&CF't3wh[%%%%X&%%%/%%%%%%%%%%%%E%%%&WF%%%uwjx%
U"xWSy%nqup%&'9%%9%'%[-%Y/&BF0r2mtW%%%%X&%%%0%%%%%%%%%%%%E%%%%aG%
U"%%uwjx%xWgS%ynqu%p&'9%%9%'%%-%#E/BFdUenRT%%%%X%&%%,%%%%%%%%%%%%
U"E%%+%fG%%%unX%Synq%up&'%9%9%%'%-%43/BF3'5TV&c%%%%X&%%%-%%%%%%%%
U"%%%E%.%%fH%%%un%XgSy%nqup%&'9%%9%'%[-%J/\BFs%2,OQ%%%%X&%%%/%%%%
U"%%%%%%%%E%%%%vI%%%uwjx%xXSy%nqup%&'9%%9%'%[-%M/&BF]q.xa^%%%%X&%
U"%%0%%%%%%%%%%%%E%%%'tI%%%uwjx%xXgS%ynqu%p&'9%%9%'%%-%p$%>FWX+QL
U"O%%%%X%&%%,%%%%%%%%%%%%E%%+%,J%%%unY%Synq%up&'%9%9%%'%-%4y%>Fb4
U">]7&$%%%%X&%%%-%%%%%%%%%%%E%.%%'K%%%un%YgSy%nqup%&'9%%9%'%m-%l1
U"JCF%k2AjP%%%%X&%%%/%%%%%%%%%%%%E%%%%4L%%%uwjx%xYSy%nqup%&'9%%9%
U"'%[-%^/&BFfC6JhU%%%%X&%%%0%%%%%%%%%%%%E%%%'1L%%%uwjx%xYgS%ynqu%
U"p&'9%%9%'[%-%_DcAFd&sS(7[*%%#%7%%-%%%%%%%%%%%%E%%(%6M%%%uwj%xxS
U"V%[up&%'9%9%%'%-X%m2BdF=_0-Gv)%+%lA%%%,%%%%%%%%%%%E#%%%n%R%%q%t
U"ltS%V[up%&'9%%9%'%R-%tu/DFJl*hKz%%%%X&%%%/%%%%%%%%%%%%E%%%':W%%
U"%hfsi%qjSy%nqup%&'9%%9%'%m-%O-eFFyL*+OI%%%%l%%%%.%%%%%%%%%&%%E%
U"%%%cX%%%mjfw%ySyn%qup&%'9%9%%'%-I%(HG^F1Y;+I3/%.%,L%%%-%%%%%%%%
U"%%%E#%%%X%X%%n%sywt%SV[u%p&'9%%9%'#%-%a_ZSFrsE>pA#'%%d%,%%1%%%%
U"%%%%%&%%E%%(%8c%#%wj%%nxnt#sSy'%yup&%'9%9%%'%-L%9YSOF[mt(aZ%%+%
U"1%%%%1%%%%%%%%%&%E#%%%*%f%%m%nxht%wjxS%ifyu%p&'9%%9%'#%-%dE5IFQ
U"ha7+A%%%%X%&%%/%%%%%%%%%%%%E%%%%5g%.%g&f%qqVS%ynqu%p&'9%%9%'%%-
U"%1E6IF6[%#f'%%%%X%&%%/%%%%%%%%%&%%E%%%%%h%.%g&f%qqWS%ynqu%p&'9%
U"%9%'%%-%\_yKFWb0hPw%&%%?%;%%/%%%%%%%%%&%%E%%+%Oh%#%qj%%jqWS%ify
U"u%p&'9%%9%'[%-%p^&PF)D'IGA%)%%,&L%%+%%%%%%%%%%%%E%%+%uj%%%jsi%S
U"V[u%p&'9%%9%'%%-%Z*&IFvP/oQU%(%%X%?%%0%%%%%%%%%%%%E%%(%ao%%%lfr
U".jt%j%wSV[%up&'%9%9%%'%-%3oxKFSJl,3&O%%%%X&%%%/%%%%%%%%%&%E%%%%
U"fs%%%xy%fnwx%Synq%up&'%9%9%%'%-%4r)KFD3om%&>%%%%X&%%%/%%%%%%%%%
U"%%E%7%%bs%%%lm%txyV%Synq%up&'%9%9%%'%-%6L*KF,A(mi&I%%%%X&%%%0%%
U"%%%%%%%%%E%.%%Ot%%%lm%txyV%gSyn%qup&%'9%9%%'%-X%[*K7F_Fk(7>%%%%
U"X&%%%0%%%%%%%%%%%E%%%%H%u%%l%mtxy%WgSy%nqup%&'9%%9%'%[-%J*JKFfc
U".&K:%%%%X&%%%/%%%%%%%%%%%%E%%%'4u%%%lmtx%yWSy%nqup%&'9%%9%'%d-%
U"R*8KFGP%t/y%%%%X&%%%/%%%%%%%%%%%%E%%%%sv%%%lmtx%yXSy%nqup%&'9%%
U"9%'%d-%/+SKFa<4vg*%%%%X&%%%0%%%%%%%%%%%%E%%%'Cv%%%lmtx%yXgS%ynq
U"u%p&'9%%9%'#%-%EE+KF15VNSx%%%%X%&%%/%%%%%%%%%%%%E%%%%sw%%%lmt%x
U"yYS%ynqu%p&'9%%9%'#%-%L$+KF'K?B/*%%%%X%&%%0%%%%%%%%%%%%E%%+%Bw%
U"%%lmt%xyYg%Synq%up&'%9%9%%'%-%1wXSF)Agq&'/T%%',H&%%.%%%%%%%%%&%
U"E%%%%rx%%%mx%VUWS%gfxu%p&'9%%9%'#%-%k_XSFLO&_]*#%%%V%%%%0%%%%%%
U"%%%&%%E%%.%OR%%%hmp%qnxy%Shux%up&'%9%9%%'%-%3uPQFgzet%&L%%%%X&%
U"%%.%%%%%%%%%%%E%R%%'R%%%qt%tyYS%ynqu%p*+%%%%%]%%]%>%1%%w&S%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=175AND 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
