'===========================================================================
' Subject: Tiler2 v. 3.01                     Date: 03-16-02 (  :  )       
'  Author: Richard Kelly                      Code: QB,PDS                 
'  Origin: newson@37.com                    Packet: GAMES.ABC
'===========================================================================
'>>> Page 1 of TILER2.ZIP begins here. TYPE:BINAA TLEN:37902
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"TILER2.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%I-%x7J(QFy*8QI3%%%^F%%%/%#%%y82;4AW.Sy'yM\(,>R#^+Lp<o
U"x99a'Ps7E./XT\rkCn6Ah'1VE1IhmGR>VLo3zXJ'R3j4Be%6rn*DS3p/aeh._=f
U"gKZ>Ks]Dyq)LhH6]G'-]c3CNcV?tMOqV-wdT5qj1sLHb#db>^K?H)H]0Wv.NsFg
U"tJ<,9xA*u&MKdrOw0-x>s2MGBc6tjS)l-?h/b>$ovLy-knatNR153sEaqyKTn=.
U"Hnf7REJt%Ma%c>>:NuQ\Gzs4[?):2Iv[xZp?NMX8N8=;v9JL(zJa[6sj72h0zqn
U"4#4ldEJdZ346(ktZ(M?Va,ub&^+(Dg<ikHcF)RNJZxiHd8ZNmzsgd=+TZC%l,y-
U"'ykBp%b7%oT%l3Waw*mmZWgNQ<]#7P-?SSpbaH,j-dPAhEFL%aONOtHdTOZQwa)
U"&3_07.ul$B(_B84$8mOPz0Y3DwSs\#/b-3bljMw$ObEX9)?5?Hpx1\i#v*X\z/B
U"13T\:iUg)rMW2ikaVd-\2:YGU%kC5w*]W,9mqDG6j8GLTfYWqqrC(KAHfbGGXjO
U"f9wHF\d01ayC-s+[g9Jl(L.E&E#6BOaee.qk'g6S6k3S1<w#6hfGIjWJ:FTW2q1
U"*52]Hs0_QQ.8pJMbM?HVXLXc3UO<f%(j+m$Wv=jooqbBI4j;5*Y]>-MI2$Pyr+o
U"<GbS]=uLdQy0d61hZFw\.7fbSxe(aAvG8H0u>0>*wjk2FFSYlnu-27Vds0c4[bp
U"ii/JtzSaOK4_ew;tzI[Jl8A8]O7YiMgQ%l#\SjDS[tiw&'vm>EW[w/$tA]_%Pis
U"8>H(Nkk>BU.iZ'u1nsyR%$5)>3mABJqQ)mXfPP'a(fdiM>0>6ycGg-jl2D/svQ*
U"NcXU0:UR5#D1]D%iAO\1[_)<YH?-a8,Y,G+ZJAnQ1+\%[Ked\qzq;c>g-VV$KPp
U"8I0M:NHZ(HHCfHc3_R(?Yv&KL2)p:NF&3cC<a,4z-&'.&3i8o%*=bmPbtd?ffIY
U"uct<S_A^?^m_P/7z6Z3j6Z<[c$'#+9>CQ<67*HY':)m6ZO\(vV?f<B)hujNGZPN
U"Cq.r0YwP)WIPUW=k=6IkmEiZe5aqaQl1IQ+S=<8>cr:L\_uVtg^VIx$e,DN72/n
U"BC&soL_?7kXmYx2&/S8:F8I$K>/cKvf$6V2>)jQH7nox>1=Y^Q;%mEAe=4jjh[u
U"\c)YQ\JbB5RSc49)O[?^5N4+Adf6^U59gKR1F&iPfnGFSXxed#o%-YT&#rj*NPC
U"<oDBtn(]8u3Pt/[F:-&U>F#Y*\a3nnY,W:fCeN*Wta.x7WLZx&14O=q1^\bj$X%
U"&9LbZbkHI4X]EI1AL0eBIu7PkN;/AEq'mEeS[qbF\Ja,QihuwhnXi_d>x_1Pyx7
U"EH'-U77v8*G]FL(.qPrYH-cR#)?(fdnl$U_Y:IVgIKaZDYx'T9ryGTc:Bf97Tu$
U"eeT/&7Ouc-v_[NZ-VmAsi0%e4YY6UC>o_$0#g9CQ^&e.'_XR<W_'A9;x?UcJFMS
U"*ZM#nZ*<ZTIB[eDG\F$7OopF6o/M_cC,#(_qSsW6qAGOJnr.f7=^Gi1-qZne9J[
U"7[sZH%o)%kp0jDW0HtYN%V]WPY47Nl&w'yd[]bui6.e:z=j2H+EM7U&1pm_kYx$
U"KUPz/C1/Ssbz9Iq(v09JbQfUBC>h3<^H&W\.:u,xM*=4-OR+Nf'ULDIxI_f[:^*
U"qcZ12+UO6Q.(dF&_v#4Nvd\75gn?/WcI&,fKpGjD&RvxSN?M[mMuop+cTz#Nm6#
U"B:&6;,Y1,,TUn9YxdreRLndtX7U^X=+N%T;MOYZ%,)GZ#TrkI-dru0'$u+YL$NR
U"jbZ&k.R_c?YZjZejAh6c:p6sjK];>.qB8Cmal9&l.^N'5.KJe/s[Cf5F37npawe
U"K/Zn[.C2/&%br+zYFxtMja3Y*F,nd>uGk/0\Jzpnf-wz,+DHDt3Xm4amf>JT_mp
U"?pOY]OY1SX9D(T;4xRYBrgfjT4A2,',bN5s9;2<xuw:>FJ8GFGCgAxsq2OMJQ5%
U"utPOg:7wGgaQ4=Q<PkGUP,h.2h3J<<:tjMPH3\qhwxKFZAOr_5EJinZTf>]De3]
U"8+qGLW3r/#aZpwwMtMtb\Zvn^va>wd8*qGh;th8xu#0jpz<L.fCWMJC:ZX.%:qU
U":nYA/HEG#JJ%<*L9kpRwLd^MY+xhJo,fd?Lle4F[5C^pWEerD<UPI_*BF&6tGio
U".L&u+>/iH8horWZh9KJ:3/ue+-IWZy\u;9[&i]=9\CYgCC$9E]_fUV9aIZ2*onc
U"&?%HRMUtdV^&U3d'0X;LOQg_=X0SArKyOZn[BFrV#:M\=2-+Q%-*%V2jf:AhMw9
U"FghA8lr)D7JC4cO:7qoF[B8EX2'xxPpUuu&Tnf%OEGi%.q)x?aqJ'ELdh_5qJD:
U"xp,y=kdpIB]TrA1w[hAeL*4Y-&-jV:X2bzr?h4yT'4CA9jq8aU4B?]8&ge4nUms
U"l%AP6fe=cAYiGHE9NUS5df0I]NktA^lG?VWtYfOf$]xkCrvlSb83*o?k-?'f*Hr
U"PP$)WBA%OIZZR%*_91YTS?<23I[_]/7HVCuTXe1d]RGlPB7l/PS1*tT[Z:/b5<F
U"4*Re/#oZfRu3ciX,8a6[u+,d_:xRn4gK[z(_nR&u8\SEn:2]>B:Ngc9Wit%*hAE
U"M+Jhh68&'4kMLnX5-QyP7A^&p$3V0Mm_5b%u?e#Sd)+FNDQ2c'7hi9.sH:v[Xt\
U"f-43ILT$:3IOaKGPCr]nqIjR?C2p5,,msWxc/wzuj<He5HQCD,OV-9\ghc>u\fJ
U"8FD3Ra:pNcVf-bQ[oNf%3llGO8.OHe>PbcXj-H&0MW2RSo:3,MwLE)'CUsbOLu_
U"Razfl<s'iMhJd>igYVxMToVr%_w,y>tZHHx3EskNbFL8(fbey[+U)_bV$GSZXTM
U"ZU/IB5M(Z3SxX?6dLdjKfnIiBf%$Ytyn&vO16H,P1w(T6A[Y3jvZhcJ?;6a3CbM
U"khHb,i*;^Mb^AlGrnp?%5=&I7AEL$Wdt,t8T,w.BIfWx)_Z?]6Z2Olpt>&'+-o.
U"H_zy4Y(OiQZg,Q=(bNs_2Obx0a'#M#C4z.w%O81\5&w39'#alvnIE*cLKYWD2+A
U"'8;^WZ#VbDU]m1phxZu_*Ue1n.HE4LphKFO$\y#[vTWN,#t46%*IPGR#*;(bY8<
U"qKCXIEbQhoK?PD*&8^=F&g;W0]<P7&5iKGt7uQ'y7R1s^O.ahUZ)X+vSW5A?FIH
U"zJ;V].cUo4VT-gZJBKHc#,CKe9uSNCn>FIa^K<8kGt=sXZSCh?tU#k8<qmI[2]b
U"7HH60.3UqI^0/DV1r)nbnbkZ83AWE6f4zE?.dT*k\UCEobz$mR/5L0tK^KDR[0I
U"9O9%Iv_<qVQ/bAHRj^k#)spZiR$710\<oYGU',71c#YW:Qm*U$'AQIXd%)YnNN%
U"\FxIMN&rlDL3$.USD-JIPLUu3vn'AgtB.3^-9&NOO_jH]v(D-aJaC-AByjG5;eB
U"SRa9sb]-+vi[t/x,M^Tr][&oBuu3NDS0oe<\lRXEgjXwk\rLQv%e9)B2Z0YVesP
U"hNUf>kzDeH06T,YNKTG\nanIB6IHYV87C?w7(tIff3.An$UW,IDDZc2f#TPIHQd
U"9?3*ko:dSRe%+Km0i7InspA&llw7h-2%jIdYIJ^Vex*)01;4JNr3\M]iqY[#5i,
U"ATQ)rwXkP5.e+Ux6T._Eqn(_.iDpUUpX]VT#:E\?h-*KgO+Xorcp=f9NYm$absa
U"9KcY%QOJIt.t=K'4zR*hb6'B=8P1RM\?I0n>9OI14txAT=NC*+F;c(Ji=bW#y_/
U"P9>%h=yWZVgb9e*2OQIg]qa>YKse)hW&o&FK9r2/1/t1I0SC/TI7nXj/>]p[G$d
U"f,:WsDr4^jmJI4pEd=h0q$$$J0ge*Z.qO<3o[i/\jBE)s9:/8AE5oHl:KZ)X76r
U"2a=197EJCburhAfts[)#O9=+,67xG-GHpntH:,tO<4Q$nH-nq1I9&-\SM637cB-
U"10X;wDD2+Ic_Iu<RK_>cnTKVp3Wod0kO>uPY5J#0eSoh9zQ]*7hCGcwIG?pa(]W
U"5r?SNn<c=,Cdq#rQoY89(15Wx.r/bMpSJll<1G%YN43D4uk.9le78bt7X.?=\g(
U"-_T\'S24Ite>yi.riJTe_LUPo.aP0_7Yx=[/ef>4d).)ErpL??*5$6U9LM'f6^K
U";'][F9LgiksJ>*$:3^]5tH$G0ui;Q(-O>Ys7f;d:,[hD^QDaU,1'/wRLoqWM62o
U"r_xtKNZLbIaq-mF6L4D\_TTaT(F\dAHs:7g^L$9UpbVWFsUu3mNFd.lZ?Aq=S*$
U";tCM:voIvRmCP,tBL#7aAQu>t7=i'9pYN7qCbHrf6VduqhE%1L]WEo4d_xq_GQ;
U"tW=cGTtH0klY1>dH]-k?C6.M*zlKiK7IgSBX6YTu:rvQ3W:D(p>Vz+PX&J*6Sv>
U"eomb)1,F<Dgrt]>oMdK$gC:4AUhyB*[__tPPvrVBQnFT0Wa#GuK\6s9$wa.9qze
U"amaPw)ojD8\B%y4$zl2(=C-a5(tO1nAE;r\^act&lx/]l1T^8F#(M7YlV$I+orJ
U"g.N;Rx8K_Uc&6j]6IhF]MLxj_[MGX7aKc<;_CxT%up()%9%%%R-%*7n(QD+6;9e
U"id%%2G%%%/%#%%y82;4AW%SgfxZf6dB7#l+T$q,6saDC=BgG<_gO,WeC#;%fXP2
U"7UOZqigI&rnYnB%eYvp&W_rjojmv2qz^IEHl]saiB/>MXXgoHf26Y$ro-vq2*8E
U"5yg9agMH-P>FhCKHRVzdMhdddunCE3u,afraGQ;tG0)8ISJJJ7-.vuYcuhj\[E5
U"8DXz*cVWV%Ih<5H\s?2XT2N;a'8P<fI0pxK\0WTVkJV<9::W.TP;VUM0*:7ZwfX
U"\au>2=MIP<Qbbz?($h)*Z0nat_q3koDwQSD8Da(h+SMT6p3Mxg)la)uf(euh&]4
U"RsWL5P6RbJ$nMnu'ukNhsZ&&#d;AL'O%x9rJoZsTO9F#kp>20N::$wFfGzV;.;C
U"QW<'[E-DuDpW'M':Di0:f&QL[uTw1,0G]mR0&q?8h0INBq/4j/2x%OJo)l3O-Nt
U"b5[t2_+)Qthl-z8gL3,o'tbd9[fM[vCCmg.>MUl$ar8^Fe3)q4W^D=-l8V:fr0L
U"jQOdeY=j0h-#s4sVoV0)mEkLF#Johouq*)OGWK4-RM?(NjJ--FhoD8Jbh*U9,GT
U"nEmi*&M\JrcM,f5<r^>cfhO;tm/>'oP*UFu/8P^AIL%JuV'80KRc[*;*c0vI2Xf
U"SSunT=VD)V,pn-Qh2C)lBXK5N$+johDp*XP6<V%$VsJvhnlVOEh0xitjAzP[Ln(
U"m;TcnTrJ#13_1XPaAyEnX2qpTnT[aUa0x3t%>-Q/P8YuIho5')\R)*.>XE?ZZ?2
U"Z//spdQF3^sXLR-0a+1ss6LcVBb/t;3oF_&/_:Vqj)6,(CLpBGq,(LhTvK+QiNp
U"G;c[NjH$q,j.9%)+:^YLyeUE;nI/Ml;,Ap+19\h5neaAIpcsg8L\5YCIm=)A8am
U"xLJdbF[;SKpg>^/7oLZ&n'Boo9:5SZpWWMBTT.ot7EFPn%AjN(a$z2oo4<O*G=t
U"q[yLj\'l>v4E/J,-Ta04'(MYNVZPfoL3jjQhcrJ&>;=zLPj.M7,HVca=VDE=5ui
U"6QkL_FI1T0DowIz3E4L:XbJf:89we=E)T5cO:n4U&mE<M8si\1DajWrj%&O=mFE
U"V4uHSP'lI*k+Nu8p<O&l9w88R<eka*GqdpahQR8>E^=TSf7]sgQDFQa\Pw>MZDL
U"++J_;m9k4i+-Nv<o<eDv1Pp44fusR(Xn8x]b+ehkYDKh5<a;U]q'cFi*^)$_cHF
U"SF+$d5m/Tsf1$nN]B)Su7P]%af(<eJpKS#?XTjngs59N-rkorfEc)%4[_e;l>;r
U"rc?U\.R2VJg5cBB0q10vo2SljqbZ2^ruY]^L_yKMAr8ZcheQsGimedFEWavR(fv
U"yxaPvrt*18E)uNZA(NM,ZnqJk4q>L4q>\b1myYULu-0rVmA2Lj/Ymbe]xOQ?L[K
U"0+R&cW&>Um+EkDnZ;,rq^O-VCa\+6Jh\+S&d7&zH]'x2+1%+*eM44DYm?y.%4F.
U">rR9R);YHjoSjHlo=,yjadb2D<D&qlldD%XhTiBagrG%U8EXnEP%4<]bzp'=r)-
U"1M5YJea'9dQ.j]8o3f8;Z^PkKtDMEWlUd5Z>U%'Dh.7F&TJ?4h:ZQC6FqJ&?sQF
U"#sP7P?Rx.2BZ[0X'(7XP6Hxo#*#bn-)7aKen.(oHX^-J1?WEbHy7q1E?+mFLwbB
U"ge+m8JT</T0%G1:TX7[\xI*,%NOvGx2j(<]e1T%wNSYH8=a,>wB8x'k&rMCD6;9
U"RXJ'aP<^Gshm>DujSYaGPC,eO6+c2+TI0=26XX^>B'+C$9;<OPWVLX>/umF+ML=
U"jTG%,h8Gdw3coAHmQt-8\n8KbSg>>/oUMEFo_$pjW&FP5rOrinqZ5p)uRmLL3wP
U"%I8E[J951NK_D7TERM%Yw&qDDTzq[s&nDNGt^20JtvNh/Gt5P<ByB,crdpjeos4
U"^ilL$\Mqc7dE=1>1M&eh'X;]\LG$$ac)5pWi5za=*\ptAT9l$x'fE3YM56=,vi(
U"Ah^Ck,;yt&:js2rY'3h)l-0mIEVRA+sqXEsIn;OEHUK8P)GSi&W(-Dl7QXZrS[S
U"hS#:+gIOL.7ad*Ug\BZ7tt>%%EZsq),MM58Wd8*pL$K(KsF+awQDn)R6*&rsp>(
U"<SH3uwnFF+eC^kc&3_+xtAI?sX[g)'xYOp2sa4%GE/?c4uJG.&1F/ej#DRWk.d=
U"Tp]p+nM;90*PB4.C[=r]M#P0IK;9b5YWD79$GNC$.531)EMiz.IMrSpEg3r9K7,
U"-,7b>GB7I0NuwI&_WLXP1[?r$wRr'F(C/BvK%N/7b3v4<D,#*-[[;om5[L[/M\D
U";U5s[uh84;[$ik8XJ-nn;G6d:CSVtJlw/]u0FB*Uj.3a_Lg%<q,8LkBl7w-A3P.
U"NA'eKqa/^(dNRokO^K3c\Wob+/(wx,e6Ac.+R*sre[[U[)N3toaO:xr1pNa4ehn
U"hT<*wVu3YPpOB]T7I8t>+jkhNt%6+aLrdk;Btq[:\tf<E+ngh9Ukf[1x1Q4pTz<
U"X;nk9^W'hJ9oaG(D\sD'^$:wm%m)$hf=t>60XYN5P:577UwdoMtLZ0,QL9DKi<[
U"#B]hq]M5]48_kFjGP%[51f7TAGaUcT(Ofv4ScSr9Md##wg;UPMCY*VUDcnFN%og
U"M%OsUO4;;Dw;n*U2Pa4CrfVHkEl$3Lba6UwUxz4VYNVU6^T*Bw7:35e8q6T/'u]
U"Iw&cY.F;o<t<?,aZY>Zf[/k2rFp7mO$%v;J\50/=PqKL^&+j:4;yT5J>9ln?INP
U"fg9F_LV/iL*%Dda=%6R-/-O(eT3_,ZFCY.*gD;1t03u-d/O/s3cPUc<=n2cAdmD
U"W79-8?9J6::o.-D\lR_1'LcZk7FwB[jiB/\LiJqD-5T)$AJ48&1'X+nPe*gD79U
U"Q>>YLkBun6g8B0[s=RmM/u%.$fNq,i^8Dia\ahh%HiQ;hTg;BzpmRs;_R8R[mf-
U"_*&BF[;%==9hE[FjPOJ=oG*n*fQ=-])<5fqL-4LtJ(BezM_JJRQw#$K1H<\ZMb9
U"2A1%KM3X+)A&J8,>hakWIP?e,O?s3dn,?i]Sf1.fNuap%qa.+=Ao7ER:Rgl+i:2
U")vqJqRkEoQsbLmCqP>F1#w,f2LwUXy#wj;FrRawn(X0Xt0H\Y?3N$X=,kmzRH0]
U"53FA4%:)R%?[:S$V6lZbbxR&n[q*#/u]2x9cnc0V%XBh0+f-[=GHryZkO?q(?/y
U"VCgT+G15Ij+Sj[vEJ?EN>&2wBauj</0K84(9Qn[,hrgMQcNr,13dfaw>%GVJD[E
U"z;WNaPts;sA>G+\>T[D5H>l_B5KCj>DnEbhNU,s_$eeS<nu[0cNiGKW68D[j5[v
U"')Ii*o3JF+K)>KnRk<[HKYauU8wfOwAaoy7O.HwMkP^D2k[6R>bh:Y%KJN<8:*?
U"+6\kN6B[]zFJtvmc7[wngNAXp_<n8jbEjAOVk/&)A/^E6?%lI_5>Q=U12D1=zKL
U"JA7?Tv):$QHpTl(x:LOm(&DR<BA/XjNgYa:vd5P%p;+pswP]=':I<n[q<L^I/iH
U"%#z60Ys2Sa)\7OqDAhI<C_ePA=<ZQn.(_T=w2*ZfJS)bQ9/TRAj7PRk5aLAfW?.
U")=;QTW2.gyRE41jJ*XtMHX;<GeQap9J7P3fVsvo*vPScWoh8i,T<-WWPHY4>ti&
U"3b,-e)FG\1T#&W%oH4hi+\r1]--_=%skt;aqLmQkr<mPcQ)_U_R;R)kAi[CItY=
U"a1-&a60$ADQ$3OZ7wWTY7=V/84p68?*O</T:Uh>($GShw%2Kv=\hg**5,M\;]$<
U"FX+:q,hF*gIh'THM><Q.#Ju1.xCsIdNpK.\1FOdiB^qff3*5GuvQdkhKHRplMO6
U"dD80reZ=uU1mrq1/Vd%DN9aAPN)y&#HelqzE[OFr]S3:Z3$*<NwE(j\e;&9-eTG
U"$o'eMSf$.;.]koZ_+-IhP1TH:ON=7'hUxF++er/?;w2)-epGGGb=BoW>Brr=&TY
U"r5lY5ll0#wF<)cvV.<FI-M>CP,HE6pu,LJT$*]:h*77y6-T%IO8[OG-eYM*mD96
U"]*-=ZqQEa.FPSszwq&t(Vu*wq<C*Pa$#Xxu:EoM<TZ9F36XVE&19O,di<I6R#(h
U"=;245Q4$qNC#a<pIx&G5KWY9'3oGr/RImk%Pbhn[*Q\k7jp%<\7<kK0jM.7U#GT
U"o00gX0<A.IyC\>9'Q*Iy1uno=ubaSs&Jwb5-(X_KOf17I:]/Iq.f;Mw8IjJWIY$
U".'UaJC]n&oCRa57Rfm.J?G:7h0K2)l'=M:oZ]iLOYy,8(nSyT:RI]IQs9u#gDL1
U"mr_r;[NAtFu4&6vKq=#^hF=Fb\7I]iB;KD7\i(j90\eFP6mv]_cabK,:%60<qSK
U"[<S6%XvEjFw1-wO4(/[ulSk?r9U^&\a9FrR_DlP\,ZP]xL^q^j34=f8V98jcAuI
U",to0C3V\MZaXbY[sE352E*nZ1BGVY,X[(s9(RXJc]i51fT=,tlt[ZVUE;v:?IbZ
U"9itZGSF=Pn;H0;S5/.*%uR]R1nd]R?VdQwxD)B\RcrwoNkW3Z2=AC?7LTXu6tN9
U"tl$/60I,:CNm+Kl%YW#;*mq,j#+[_MNN+VrY=)Ym,?W8;eA12r\])Km>P#R?Ej]
U"I$<$DK8$WKiY?rYo_yGt-P]IY;Hau=esb_J&]e;yuGtP]X)A%40/E:<6g,hvfd<
U"J]7+1f>6AsM0,wXO*03w:a2)(cep0%UN]#%B.B.gel4=af.&ojhjM[vCGhRYo3.
U".wBViQq4>$34a&52957-=_I]*TYf$A9dGpO=,r?L]rhk%vq+O$G25g%?qC(/CIb
U"XGYB/7YQB>[Z:]jc,]Ykk[V^KNV3AO/ikG)#GOFIW1*bBV,b*g32I9ys't8WBg#
U",:c3%cu0lP&MN0EVqZM>B0-B3JY.96o#f+E<gs[lrXw3sHfZ4YZDL:p2/4n1?hM
U"X4uv-B5PE8UN'3y05gbzb,PzV^=&zW/.#&j_3?+B0,dTa4Q$j.NkY)'0877oW%:
U"rTlP+a=1]P.K$FHz-]cQitA(vJY*/aRe31nO%oI/$v+)Gt*0f15O(34g[J&ao2I
U"Gb)\EZ7+HCXRADW??-$#O2oHic#zViojxHY=W9q.u8vKSl#<boGFb;bm$LDlcI8
U"YX%)es7?I^TfKrIKV<*%k+MJoCu-\a0OOgZVtDww)N']'<[PXyaF&ph)Uk'jpU#
U"pA)k9_*[s.*d_Roafth<bd>a>es]sK*7.OL>fKeSaggF=b#tFFD-QQ$Qe(k+6=U
U"*5ps]A\XtqpU>*6CeYqeVemq0SY-/Vr9N+nSPQfwNlIjiW[i,0/t,?][aZ&ZaMC
U"lAGu*smS(N(XCy4FTYiYMH#BAmtUJO(zur(j28L0/c&S_HO00Ea4WCaItHNSoy(
U"I5\Ujl*B+uK,d-C(_R7]1zP>X,md90SJzF6JMeVuiYt?>whA1Lu.YD>O#T+oW[m
U"G6>c;%]dTAFVZ\-'=LS+?\6c:<GWD4civz^7gJu+;2/1ejTHY-'AJ]\./b.FjnP
U"p]Ro%G/<Cu%;XNFl;mTk;-$L+Rm4P4+%*Vkp]qMw&&9f+y$SEI5?eJ%ijJ40e,/
U".6T()t37o]j9%^i1edY7&/IW:jLd&CN-%mrkyHcL8qUioG.Q]QK-f9pAaO.k&Xj
U"+^4xI7n$Dh:%l)S'8>CL[\s]cawZ7h:M[:lE&$/n;wa;O#/;'xN#RpP.G2E-YLN
U"e)s'2A7Qv&mF0Wh(rD/Lc*62<-D/rD*nAoYE7Z3?,l21Y$&4n9OTM29V7dI_g&z
U"Nb.vsAN,]KQPG:]5tM7/CDXY1ZPcp0ynsRT[I4pZqc/+GdjeEHaMDi<NZ'#_)Hd
U"-;c//rbGu(VSbqWlITNX<<DWn#JefXF*W2<B0O1uX%\sOSm0-*Sh3*S2<U0LwvS
U"8,VZq*kAxR2ZFR[p3s)-V+wV*Ki$3ang;ncT6_EFlK[0vuW<OGo'u(lXpp_R%RW
U"R9787%Wa>^[?,ypfBt?BqB-XohGfW8J:NO2$ikTF7p)#:dJOXS1vfnia=uO-6IZ
U"XlTV,q4<)W6,S\p27N6<1E(?i-RwSt'lWbbY>Z*Cn6.,^n;RGsw(>X<PypC]qBd
U"m3S1:5+)GMQ51v[rl%$D)_$z>mgI[RV-OOSv.?:dz>amoh9eS93+440fn.gk0Z0
U"v&-n&qQpteAq5UcB0-k\0c23N?M(Pz$-OT^bTDdZ&9ZHg;G6$Wbd-u0IXe9JK.W
U"rNuW]2TpFmULBd.2<W5P6]f?JF&&3htpV5Zp9GtDeTNIU8Z?3<[:yL;*j6([Flm
U"<r.>dKf?4RagU\>1eLwuEud5N%TVDr$hKY#g0b6%6VBxuX\$cZHMHGF#(4p%c<_
U"6e;_67&8Z)8)1InCCdVZcK5sFdHO)8*Y&MTTANt$*B_8#YnOfqu1/+G.,Xo87+<
U"z$7SK8Olc;\HXdZM2.i6hpDmLEMz8xK<qY$tKqGNLDPdnkMF8mI?1u9,Nb=)3+X
U"kLP)NA]c(<:uL1^L7yb_XWui&7MDlk0[rXR#X;<\*'E6A_G$570R(qk(Iop3;;6
U"S5xb^sKo8oQo6-:l,N=n;'--lFf*UL'lkYES/#.g4;>GhHp_2iJ.w)1VM+'ajgG
U"7wQ?l:MOvl:dHFOmA28$bmie;iFq,$G,46SHz:Y/>g_ZdkjnEnM_L<o-v,/k_ad
U"$xxO'F#H+Q#cK,/KyQ]m8z\Os)9>sSivI_22h2sor;.16G7=rFk[4nDYL]a1Qca
U"^5/)#pJ^iRw7[wMnA1b)ddhBnV=*oZSHJM#$$T-M/GQ)(lAyyyY2I%9?JV?Om;o
U"^sf)qdH3T(z(0Bx?3T3.yo.8Ux=Kmd29j+)SF#-3Zt]i6+^GE8_f%\%g#qKa=.l
U"M$Hl3259caFs)W1nD=fS/7o%H_s:Vmo]l#qrc[Ed%IXXJ=>edx<8WeVG6)wqg4z
U"8*SU4/=6sJkS*X%LIqyz&>8%#<2,_tzY%e3,8$8Y+AT\A]>e;%WsKaSqe1pX5e.
U"P9N:'&ENNP'8U%N9Iv/(L*FdKI-T:cTYfrbf/f:9rZ-&_kb/gE(q2?^/_n/1f0o
U"2?kP0&?s:[?sRn8'e14OoMt7N/_#\t9aBSLqp_TRKWA[n)IWH^<o)(SmT/ChS8g
U"G\9AQ1%0K2sRoU:^/Zdv#^QDu'Ij5IWzM;'X&/3rF#wrN[,B3srMkIFq?+n<W8A
U"O;lIEk*AxR1%S[[Lz;'E[kc,2j7.AG?GD0+u0(dYB^vnwp*qWTTY*2:Sx*221Q,
U"<,28(z55vNd4[43gl:o+hp:W7twNUd7(Hegp9Zqb''QL&]m[eldnMg\uFj%ufmG
U"7;lx6BMkoB>.0>f&EXdN3Y\2VVz3u5m2^[uK[J]Jc;z7H;A2<3eJXr?(Ljhc+7r
U"eSY;fjC\7KdX7J'a=m*tk]'IOuSVK#T;a7;4O)d[)6-$sDPWVIYM(4Xu*f:$2#<
U"Bn,bUn,$h7A]_8wA9kIj>0b:DrfJuSd.=[A;=nIO$gcD>tj(E2:E0)][jo,98q0
U"o$Apv621TyVI4>ah/Vs5]C'C6uPa6kXMs)P14d*\&>16x*rV8XZD=EKI'VNN0GY
U"NrAk>I5:a6Ab5WPbUilW<lS_%$tZk&Bj4\A:MI_iwW't_n6$<ZNkn&v_oa]q%)<
U"5)X;c&1<kqA*R29.g6DAQXoE>:*-lF:hKbcC<v^hyM#2Z$,s2RZ*D.PE?Qe8SPP
U"9p&'Zw*CL1[J?PKq*2uDLSvKcaBa:cb>;a#nT%*LqJaMyYA\Tw_UJ?7y[0f0B0E
U"Wbok[:LB:yKB9D?]&[BBQqFhR75F6?CJJ8))'IbW.9.8eKPwo-g*]/x]^T9UO-f
U"5UL*'rs<-)mQ_*xAhcTU2&Q:_CP?X#6,JpC-GaW(plxsugmnpSC]\M5c2F<O+Hr
U"?v[i#GT2_r1s8cPJ^t7[]Ga]1XHufE.847O1cLSKNC?Zt\0ZL1?>T<(TRoCZ\S_
U"RAY%U:Z58$[O4/G4vB9k4,$^_.(RTl*'zPWSDn)kZd442eGwa[bCO$qXV's2jXy
U"]A)W+;foln7'#,nm:TyLI7_wOL-Cn?na]ZjN^WYVp/1\j&UyR[x&_5++h;,VA:v
U"W+/EJ,&N_XSdHXe6E9iv27Be(vF6;Ue88mW[Q:&3uBhSM)P/^p^YX[=_WM%Ie,S
END SUB
SUB V2
U"]'V*/2qooMl1p#]eN*?tNsyw$e9Y/TEYj+k$JOBVImD<m76Qt]?#'>r5Up+lYQG
U"&x]scTQa+qw(SpAbEs+<^UXv^eSN1ok%tH)P-?Ro[?SDd/PI+2zd.OENI#Pwi]%
U"Z3fb0ZX&wug0S$q%e-#5d-Dn;*d-zLn*dCN?dCCInldC#ynld&CRZEg$=%U/H5_
U"<)\iRBSK:aHd7Dqniu?^/3NFL=h+YcSAIr>u2hCeVC2G^#\6v(9eH5t9E,Xgtu-
U"7pTeq*rLX;rpZtoXd/_iKE]g\FKln/oq83hJ<cLf*zYpL-QkWQpE#Wlq7KuFufh
U"jY*?Qhq?_>/5L?UUt?+n.Y3hb+4MTTHj)nlh:R6WHD-cSAoT(^B%\bB=s];_3-I
U"L,4i$(s]a9LOcH\.Y-wlnyP?O$skg\sR(Pf8_ZUB#RDf<[R[n;?Z0L=r$fe-am]
U"YWgj#SL+=>vibIJLOzajHRG[B?sSep8)M:(+2q2Nk0]-m?u&<UI\Ied%3WGFE=T
U"rJ\_tq.d>3iXYY3RkK,a]H38%E*Jo\XF7'fC'_<'[SxS+1dQjexTS:r$WwzvY=B
U"<8=&NzTLq2&uFkx8r5R)Q^QS0NhZkSreot+OG9'S5X6,F=OJ<E9w[SbTMJTQSdI
U"0,TcN>YQ2V8]a0eY0/qo0G0L4h#)mqd]^^6]+9/.Q&]K,2(?<\TWiIMaZ5JZ;q0
U"n3:94F3M3DY5t%/e/h+oCw$b=\9Bc?c'LShk$#\F.h]/nygIzsc4?I.CJ8Gv:&]
U"(OsNDX?bC3&[YF-l)c=UhUp?aCO*q_UOUCpq[?DGk+9Zl;Cg?D3R657O_7qH-(y
U"X5qDw2Dtpbq?Rn:r8q2W=nfM1ViCb$VhiW2HnosR*2##ws(k,1p?95tP/oavM&^
U"1VkOZBK<K.[.qS5vj>1]+^Xg^yTAQ-jNGZ>k=D+=j2lZeJn)/wRe+VT<)P\MbZK
U"HwZ*4Uj+IMn>*fpn%mq6P#g:[lEBju*(X[u+?bvxS.u:a.yQuw.Ac8]%$OyyXIS
U"CdjB4Imsg'eog-&E]bA-P48rP]=-'e7NR5QU5M8-o?4Ac4U'WvnyRF+NV+P0KU:
U"rqJy-Kq2.#lo;g3N,rcK4c8'3.wTBVv^/M#WRu2LTmSv+bR(GD+3EmQ-uRj:\+T
U"?&>N_'&Vc#q*Q]G[_,kYOeI9#dGOJC43'y<AaY5iE(/:5qX9BCE1c=$_O,_A?=\
U"W<\b256$E$=&cJz(J\h/<;GPiY;rWN:tq:s;>+b1GGlG;^O%)YjptOsm3tA)ZHi
U"Uyy4-.,60:,9TV15_Mwx9MKE[&]CnnC]E[QHIo_^E.aNVCchqEutcZ9Zdm)5rvL
U"8NWtfMOZR,+U/usovE1(2:%>KpI%a#9%7zgR/X_T&?_>i1P,Bo%Y)DIUX*<arui
U"c\d29>,0K:WT-m'VorOSsvv&RPO_RA%hxsYU-Z/64fT.C_Bh[PZnfDJL^q:'CC%
U"eLZ#UwdvJ(,.Kz37]#UUPRMBLzTll/VN5nSxM.LPm)6[8K9fdjJ9tr]WJ);;*g0
U"RbBM90?D,b>xst6)&#NFR[B^qXLDI50T7eQ9(pYe=&G6m3E+1GNLNpwQwFo<:/#
U",U&.-1+#S^%\w?0%jrm2ZOF)6;3NPNDBQeR?TuKI%t7+FT$2A'mr5]5kUD3G,U7
U"tV;5#'nD#5PV5qj4AhKEKP#>,wW*hyfZfqSY4*3HM;2)^Lv]hA[v?i37m&3<yX9
U"T6U]JEZTXWwcWk+VCk+o\]uL-'G9O'pU>%&J-Ue$>I&>SfN1>c>d)6c-o9oL_^8
U"JHe4B]HbuBZ%yV.q*B*SZBAh+-;n]xZ)QlB:U179SB38AW4E>-hW%EM(s/:QW8m
U"qj>4.8Fc\jIwkeeFn^8*(.y&S:wvG6k[vVvVB0*rrJBlJ:3a*YzKBUBSR<gL8xo
U"646/tNJ2^vPVKlw*P*6zU:>d#tFXTk/VNz)hlM&9OqX3_Mx%1MJgYP.YSH6]FdX
U"w-=:iStA8r;<UaBsMBT$qhF?LF8$G6k/c/gNj[uxlNF[65QnSCwfi&w4efMUV+B
U"CZQi1J8n2O)2k.#Fb#N)FwqSnALL'?XS:hhhvz\Nk(^%]fMxYbxK_F9HB<fb8Cs
U"gU_wJOIk6A-sPQ*&=UF+W]CAMs)oRtuHuX2Zg2Rv=8Sio*cb,V:IFI;V9[)dWhW
U".pVboa8^V#2u(+Gux.>'X13kD_IMni8,DV-jk6k(O[2U=#EW1dzg48JZr$Mv[]g
U"X-Lr^U#ZV2^5q#/Tdt5EkzBpbZBIS>Mupv);J-Ht\XCrNPGxlRUPGv-7U:o6CT7
U"To071sjLpDWcQk\q^MEqP:T,a28V9f?q;b;mmRkzFZ&yx>Zr(g,IaWp]Cao$_Cf
U"unn2ETKc,fEk8-VS?k5tG^XnG*MDY<23''dDbjVbcM&ErC5_msGMK,TC1_fdot$
U"CVhlN==-]LvXy-]2a_497q[nn2IsAM)#c2F#-l2-n=s\A3BZMI:RwA'Xsw29</M
U"%SM;jX/+)Yh-v7fHC4.FO-HG[>GhMwh'H;-^XYs\<g1bK7T*m:2$FMxtH77(bLJ
U"BLcBWoTOS*SM.s7a]QD%Y>=?QKmq:N7qd(xXU/n^mxU/nJ#*2*Bx5*2b*8q:-QO
U"-*a8*Rc.oS4rTc;,#E.6D^(Gc^dK-M[e/64qq/T&&lAJ7R;Is0e%6ArQa>%a9QK
U"O%$GCMvfGm<RDhFN7=0VIp5k:G]GRe1n+'>ZXQvh5Vh6CY.\lRv]$>h;Yr(U-(=
U"#7BBM:DBYASrS%d,mGsx*c8%wg%Lx/^=xV1;Ns]A3_cwLR0.i*6k&$fc:ZX6I19
U"$5D$1H(C;yCl+?4>?B:tJ.kukh)u^lJ7PDCRFH8*Z>2fTR;07_EnkEisz=(pr1/
U"Zav)^lp)s)_iacIM2altfqNL>/[sDr_vPO;t2:q5T7FdC/L<]-$+X%T3r*9<nFo
U"fpJ;[?q;Vq.pK3La+MK2f=oW=TCJt&vzE8p:alC\FXI]J4D-E-6P>HYQUbU0h,?
U"8w'+;JDG\*Id<(:C]#2.P7n?1/3\v8#SiNP,;tYXOtjxcx8tu,N5tiMJWXT7.ih
U"DIFQNf]'ZogayO'tm4lRx4;GwVTRW#33<NbW9(a[5CNxj)qVvQAS%Y6m>Fl?qB2
U"vslVxNxMMCICAtCm$,Pb,bb>b,,Hurh]]uqbR*ru?ou]q^w^?$\\XthZq]?aqRx
U"KrjMq%ALLt7tv[ys;>dR6BJN'c[LyS:r6K^t\f]a?e8BWcx^i_%a^b_(c$Us'G=
U"35(AlCdIb^e7fGIq\>vkbm\qcc;qVrxw7yG<8BA]cJ_MSdkc<j.+6Axm2\/$$rp
U"\_vk087TL_6v7^#Dstn6K4S*Yckx2Go$_R[/yz6&n5z7U&#\W&:Oxt(t]st#tx7
U"fGjGO;*HnBd7$$t(u*\mm'aNeX3hwalTEL92)%n'doAE?BmG_naIdt]4pn15=uu
U"m]r*,NdcF?9K#(Alad:cJs,79$7IL7^]mdo?mDDF(5+(_q_BIddHMX+kH]3Gmm7
U"]4tJgo\x;pJnl67[[5LBVaSLnIy_jE^G;)dubBL\-$Y]E%AdbKGEZB15PxMc;I]
U"?fnJA\8<\r$lZY<*K_ukWvWk^#c)M[[bhqEbmqp=R15=H4N&(dYT/GG:n\d$kF=
U"-TxhKh5Rb',dwR8mBD7//=##D'nC,H[fqe5Nwc?a>fLbR_pBi54[E$]4acru<Rb
U"j,B9abJpWOA1qLOi#2A'lHE*H16oRNGgDWouXl##y0HeAtdsEba4GM=VmL>mRZR
U"Rlv+La&eAFgRLGCm's:DrJn$qWEN/gWh#.==W.sL+7+?Eb8fOwx?AqECoermWTF
U"^r69/>bLxO*xlCbI$^rM]r,%q:Tao8isFU/dKeyvLJavkby]fvWx[ln_q&x,An'
U"CIi0X\.d+))KipVr$8/435)ST=OTbk&^RF5Y_qKGjeH]m1lM'qKE0mlCZ?mk$tm
U"t=Glj8901P70;S+2+HXCdT=lcu4Ql0lVD^^7xXsXhVg[dmbHs1qMLkHU<,CU_aY
U"b827:8Vat$N[)z5TSbHg>=?TLxZsh]^n6I[Acwuw_Sr3:,g'1Fo,k9(b'wCBbY6
U"B^]>AuXt$26e-m.53pe$)K=hDBD4hPurD\vLonD$%Ju4u6'L'Dqu386)w4SS>Q]
U"Dnp1IpA:$$EHpD^G]w21OP,kmRft_46VUG1m]_w\pNcWjT^xKKN+kKf?MBXuR#u
U"=YVib,nNH]((pG,OZQr,2sPbKMMFkS&lcZmqK5Buk^TbiQmtP=$Hbw,gAOSJ]6O
U"la.ye:Bb5PRo6vu##xf9q>*tN_MII;ICm1)WXJlOl3*n7ubHsix?Im_cD.Xn[\\
U"n7afjs*Nt'A^q5h-L_*WvlKbDZ;D_0)#m8xEfSs*cFd55_P4(\jdFj&w2e/wipf
U"d)K[-VNXP<v=ri%jd8/A)VwIBsDl?m9x_&R$S(0vt(W1h(G('Ia;eK?GbeIg]nt
U"lEPd(ZD8rIuBv3uWnRXsaMV[KJlONBW[>A+Nv)LFY\5'SLzd?y/.d_dl,k6_O\A
U"X.TDjGnsVkTNfRJ6/PyxAULQ6'AGg)W/TE%?aHFhitJ=_;;aGUPr/CMe$rRKS?[
U">Vb1mSs#fr-lHCjT>1S]B;^B=NYm_EhyTE=[f1*<lZGhqt_]]p08#GBD,\fZ/*a
U"^*8?C;A0gmnWVQDg1X%Up'1^lb/OM_>qLXkI%(ojnN<Sb/Ou.d3.v*wo%j*+ZYp
U"sT(FL'RL+&Vv*)g(7h3J%360LI=k=.U=,Uyeqo38oIWD^yZ$G\9RhLq]03;AH\0
U".zrMF+=qgUJqT#\5qW/>0fl3PCGrKu,ib;n7[D.&[F%KsaGZVR^%+y,%e'?\2u=
U"6Gd$oYSD$)iZawEfC5;+Vp[&FU#Rzxvg3SW9)mnGwTrRCW[2y4Y/FQ^eZmx:J9&
U"Gm[UJWv.CqTC?1\w)k9aJ/qJ:eu*limOpY'i]'Z./j4Q*=G%<*i_q&Qdi_#i+cQ
U"8Ie3#$-MbS(Rv'pwbogEUM+GWi<mNS,.-hsFo[snHkKAy'+kV+i;phx^U4UY?IL
U"V4bJJ^ItEf?l#5YJW$b4lL=m)=*F/;Q82%0yc$PldCJ_0.jp,iQeq'kuQ+Gbx7(
U"%0jLFGE']GkCc5%Jp2BDiqtED843]xuJbrYHQQ2*+yr];/89\b0SOZWA=i%B*cq
U"N2P)7:2[Ezx6H,GJfk?6U0AR#Z/?C-dbH:NBM=le/g2]3T=_PWD$DD/:p&>z3_m
U"AhFGs.=1d+GgAgO4Y;)gjJ>.rrWr4rQ1?wdS/HWrnTxvbe8t5^RtYhaADK3llOO
U"&g*b*ZrTFmNB:ekFUiRA=+_''Sm-cI0AQwI+FnYkcqIOAl*fLd)0VpyOiJT*J%2
U"J&^LC<H0TQwp<[8CWF>AlSYGzU^sWQ:/*NIVj\>o('SCKOx<*QsUkt_/\pQ[=CS
U"+3PN#hx[Zg<2Ydj.V)xeSSg:\G1BPwD3hk$?at6%e&6>JQFb,h.4*R]ihCQtCh5
U"W=;C54+(9mke5PkO*[<]#q?/S7<+?pK*oTgwfXGiw5KQg\92msop)Pc^=.JZ54'
U"i[6($iX4R1$/;ISN6'p\9xQ>0JrSP.P,i-.\vyKPqDmP3T:F(XB:3zA,-mw#>]z
U"Y9[4ce;XmQL&*QVFE8SOq(E.FRPPqVbjDZ7?</D#zMFj#HC4F-_3p*ZSgso:U46
U"7>\+uv698;,Zs.e+Vr#Dv?n-YO%WuYj0sRFgFHS<Tu'5z[er_upQ3VJ-4lY]hn%
U"A\g:vZT2rUp+/Pve.jge3[ywM(?)ieup)Tlupqgh5mEZPZ;46/MN.%0(xTHym:i
U"%=X$Vqqt=(XTR2g7d97Dg,t,1dfD$hm^QhZ%fDNzEJf1Jw.<N>p3'.q(Gc08$UE
U"w)Jv'_+mKtmbsYqE.*hYD4epjMd<A$puQ.+#mu6+tepgkL&+aVm/cv$'7H-?_#S
U"E[#P1F27tCmuwK%='KOsP03bc(JK9\wid,)>h_wM%(\:Z_pL:KV'^3*RF%lfCuL
U"wO\r1GE-9%;P^I:kb[sbQURFy3,aVI%a$GUWGj1rL:?thFKnHQsk\n^VAJDyVgG
U"Ho<3TZ\\thi8Z[*K7xGd?;L;/qJ/g(DJ-l.\BLD6+B[YZr)v/%unVIXIZ4*l,lh
U"co_gz-taS/ztasbi'RX.cF05T]9ju?;KR<zd*o_HRXue0S6_x%l>]dzb]j$/6t=
U"se:CRs;cy&C:?:;;US15L3DJp-$*.?V[7+g)LWaf#OcJoceKB.=Zi&g)Cn-u?Ih
U"c?48qIf6[rF[C,*BL1x]/&oHG<5:d5b\2>D)gabB?0T1gxg_t5F$jb,TNS12=\t
U"K;CYZn2tQ>HSGkOcXxX$Qu[p_B%OD2vT]-#lNBdqH[C:S?1A./QZ%E8n2#Rl#A\
U"-1k):rG*cqjkVrGIKyK3krr4=*%n4aQ'$AD2,;2-^ze3nf^:9:TMsa<8u+gQ1iC
U"(f60i>YP9)Q/m(*1g4F*7J'&KIQi/iwE1Re&[Q-RSlq4n4rbtR.kC1&,U,;,u7u
U"XEFHgL/c=9+iL5Gx2$Jeq#SZh0);Ksbf&'.;L#5&/9^-Q;#XJNU\9pbiL6)^-7>
U"*5$6=T%R_f4ke;V[W9>0$RXc<aLY^CkR=DCCOmM59N,q-R?:C$4WD360Z\GRIH&
U"o2h,XQ-GY8\O'l)ejT?sq'e\nVUFZE%Y:f:7.AYCouj8eY[HjL+Du_>>PD<1;O7
U"%XpoUu]P4pP?LPlNF(qQXa86\O\oHu+gc7ELoskTI]R2s7fJYw/&BXbK<\Jx7\)
U"j&B]AK'.Z[QnYbEYrB%XCvZfTCdL/>W5>n\A&[8_:?;5EJFSJ>rfKIHj:PX^t>q
U"9+^-g+%YqF8*'hF^e.NW3NH/%>Dk4u+m0E^;,_D]DJa_+q+r7A8([fRDzNQ+O\1
U"zu.A&5h?*np(OW9kE=;BDt:YAOTB$\*X,pP,KL_t0d;_SGJ_Xb^rsU-8;]^1iA\
U"R;;_+iKDgn/G:'VMpp*DGQkq(?fRG'KdNI]#FtlQGXvAP7ff<0Q6b57+e334[8u
U"+W_WR4FO)BbY0aM5XrA4kLBzKqQnV5#VWgr$kWR*mH;5jq$k*Fk30_J#>W360A^
U"5+/+hwW<]+GuG?F1(-TJ>/O>G/*%>X,S]vAh[Kn9M[r9^JpFvk+wArRd3r95&&i
U"g0[BABzWk3Qq396Pm4yMUk43RU.Eym1*TAY/M)_KL9']J$(DW:>gBNa3_A^;plY
U"E1JRTvu+%(B+gC%Cmk>YZ5<i_W)OXv+a\BiCLe+[AP3ewe8oQ(maQ1AvLjV+C]k
U"W6Zg#+(L=auCB^HyYAQH2YK+OSMiMP-VZG5'T)Q5&GU.ox)3D8]/B/8yg7I0scg
U"Q4FV+,p8t6NnxjXsb(t12z;1G1#o1k7>G?<PP'vrLmDeEU?THf;aLk<.X(&yVrW
U"G#F[s?.#+>hE.WV7:=$DNF&MyK.O\(SV=W+28V[kVP/[xR>(H10o43N<f&cLnL'
U"$=pLajCA>^'aBFd(7nZ-sDa()O(2hNpxluh3j[gl617nkiWZ]q:J(7hwD;hUjUd
U"JCTAIJ-hx)?1_x/?,ddZ1Mt.z1=M#._hUA+(\3M0-O1=OfFF1MQ)l_kt;HbD0>A
U">=E6Ed=/2D4\YC-6<OJqWp><97FNJgkBh;:[_kQRA8z61R(Q.R?%95&RC.UN)G_
U"k2k7xg(hbkY:p](gEjl^W1ju1?jn.pVZGMtdW]h)>Am4e[5Wh'qAdAn[p,9%5gG
U"Aj.P#PPiKJ=QcF&W;cF&War_%-kC(_/R_=8V_7IRCV(repYkRo)xgm?S/I>APVt
U"eRn-JgjOQ_(D&Ofel>9%?#i&XDC0q?#*J9,U=KN71a>CM;NKv%yhYX8ubud7kWf
U"t/eqjILXAk^$uuOBS?+Bmo2Kb\NTZ/LjG;oXq:Du(O*fhe-$$CQUs&CD^[K-/Hs
U"AiFd.2;eP=oFE[3J]^n'PD0VIqR9n12Wj2HB:85fNMTVn8x)VMO0&?-4^&VeSsw
U"EdZzJWSe9Q'f&/a<YhS3(J8/vj?^7Vi(,Ib_Anbxj%tjvOs0v1T*Fql\\b6-;)]
U"WAtaQ2>hI2T;C3v)KiZX*lc.R+#LG=z'%uOUNVT*,;&fHliU6ZT8[vQgY/,H=7F
U"h'k_gNWaj&#O:^lsagk8XP<BU:#1I7ph/H:_;'g:kd8D\f\Ch.GNUz.COmz:.C#
U"[kLB#>l1wo+M[#pXe>rC%KcRG_=M;AN$.HpNE;\nfDOY)]l5K3wWt/5aFz+Tu2$
U"R'2,W_lRkj+C:NiL<]NH%sE;;rh$Attj73-u2JHiILj$dkoJej8TPCP:J5d_)9m
U"H/BNh4?\#-n[#*XGtp1z/>we-a9(M_8LMUgn2C]c$(.0,Exe\Ri)VbMcAsaS1Gt
U"j2P7#9G-$M1s)qqy%s5p=:tRd:dj(fkvat8ci,fUA]#Y:F5S6lrKFkgIdSS$BoE
U"$'N#kp\WVo6*^[<%lN+p[4,eW,'JvTm6;],EHA<(dUV3HL<c.H1OsZ(=TevPj<I
U"aT?#GXtLYt?+c)>x-=dA?R6jAneK_t61[rG/E/jD/Bol\hDHI=,:]Za\:a3enf-
U"](2D]OYnfkCG&dCD*.X_tvmfQ3R6$as'n$OrQ#h>v$N0[0IPusV_phyMFqdBg)L
U"2m<U,W2]ocj=&6L5Q[NiTg;qoSlRi+DY?xm8AN;rEhdwStjWZ^#V42[KXYR3twl
U"S,glM^7lRc*G2d(4'\X9<P;FAI0i'Ud2Yx-3hJ*'s&gPA_>rlLZa5A*:3]C=.cj
U"Okwr#wAyTR4'QLftsf(6ZdqF^U:N>EdCpJSn?0Hf'4+7]ZISi$](6gnWYs87Nd&
U"SER[uk/%[S*?WR8>BhTk:Mk4t5Ub+CgI7bN:Z0NrL;n7[MCeRi4C,XWWl)'N\_H
U",iLkQp'Vb#1#-,2+w76hO2WD)\;8Xq=cq9B?3qpuZdcE[3_aOzrq$RvVL\>'DhO
U"Ri6,GEGvdb[h6pKaqnv6H*-5JNk9'X4S.i;'rn?y#GL[e7kR=IN7$+j4E+y3bCF
U"VAneyL,>tA\5%v1zjMKyw:din:ZTW+mDQ7lPI./&[SKsT2\3G2T6p3AjJeQS?lL
U"kCRNM(D?t<veEPn_QlWi2u.;WCS(=T5ZMy>7,'NP6b3sm:cPX%3_bVK:vZ8$Pi+
U"At=Hd*m:^&MtDL(#t-ex<F'Q2m&J31-K.,4y+8b5hk3x#m0wG9ZI0,w-LZx%#ny
U"+aGI1jjq)g&X9fXY2[hmhXLK7Wq)Rjv.UO-Dh1'<0\WclJ&_g=rw\_9):cNSr*l
U")1z1uo'-LTK=i[:jSCB_Pq5i]k>]oM)[hZ$<1MxjIGY?b6FPdl2]=v'j+dGWhzh
U"AlO+>=zkyDO_P5jG.Dn[vi=RlaQFXX?2g>RWhn_r)DMV=&FYnW5p?sfF#3dIahA
U"Y'&H_UEcC%hw?RC?C'eh*gh&al*YCGwi-<39W(DBqBazu7(eG$A7Zg*oC:M6#va
U"4jAxA7T*W0o:'ABtIEgts+Qupi#5X'5VAWHk-:o$2lh*q^JX<10Rrf#o>^36%SF
U"i<I+0Z1.C7(V1D<-7e,4L.\nBwX5bHlk-4Z:zRjV,-0GlMe/<m1'YZ)Uwe2RG%:
U"qbz0I<v<#wHrE?&RLLNso)aH&nPz&&D)rWgQYaS7%fmnreLjarGp;y[G8*b>Dni
U"h.gC,Q]]NDRM^yw+uI;HK56P_5?74j:wXPRS9N-qvfW4)/4YHt_\$JU5)A2/h4d
U";<;JbdHr6&28>m-9;-f/x5V5C+?(Ea5PqD'*+zfC=6#EWGiH4PeJ;2J&?2&+.*j
U"*Nc2SxWId8v$$q_CJT8&)PGPgN<Aip$gIramEfewIk#u]ABuh(uamE->7a3su\8
U"_oWB#VzvTPc=,3(0ND/Fdv-Jc$7(>QlaRiST<vbzXYEht/7+NBfXzr+h:+<xcO=
U"a/XXcpOE<IBa30F2ft\2Y\4&-DnE-0A>k#LgH:\,7by4BkGI8YYl8N:4DK%Br23
U"v#Ktdxvs<hG(k-5NtH[ct>Z^\Hf?hH(Su^XPkrh:rp>\utkM5$NNGehd,Q78WYT
U"?eW+kl8NllZfZpVNID^^<&<hB2=f%S^T(U2Z]I_bfRT]?Hr40_XmNM>NX7Y+nxE
U"87c%Z^tmbv[/v\&<4d8L:P44GF$j6nJn^??r=$IAUSVu8KTpw;IGHnw5YKrwtuE
U"qk<QDp>.n,>I'tOef^9td6]S^c8eWr.8N>JwwtD#%uE/M*QTTGlMkd=R$6Ff/4/
U"?5%A:]ah/LMKxzB&0y,>:TM7]MfSlN/GhSo#)EMy=)Y7Eu1Pv5gFq.x?u[c's2t
U"Zu\v0Kr*[99M/o#GLtqb$<$>nJJ=7MrtHkv__6k<^TUc+7JpJ:scYR%GVYZp(3h
U"u&&(69inTH'9kdlrNVP=+?D6KqSMIunwkc:,a))uJc$v'>tT2+F2I.JGf/'oQTw
U"uJ1YvN'qM0TX%kcVqn.?1MDz]5U>&YTSq%.4cu$dC%a6BW3f6ht9wZQKAZv*-$6
U"Jn=*8I4[>-ur:CIEI>'Wu#=[:_LJhHJHntv0cjc^td6]1omOrn(96q&awPjDGN3
U"B5'&7M=rJw)MOsDMFXf5,fq6GnANx7<7Ijf\%'bbgT>.#;(MOrtAjw[-<T<D%IJ
U"Qg)sry<\]?u0$?dF,cuGNho[AkpTH5/BR7^M%0_&j^$#^Wndb=NjmHIq[Ob6rIg
U"V#irX/jrVq&&(XK6'eBa;qDX<Cv8=NFEh;ov4_tbzp<$,&(+)?Ynt<h$-YaL\_i
U"1dqduiMQd#JbjsJ;$n5%#74WL4'hTnqY.C8G&NX[B[BZs4i5QO8;GFr&iNuUsG*
U"aj6MV%G#sscYn#%[nPbxlI?;f5(dMNF0q$[./RurNTxUUcnVBPd#QXVul=uEHtP
U"Fd6s__C#c=](07-b3BPlE$Q)Olm9^kr$vlpY>^T.*mok.Pagz&>acDd>nD8<,&=
U"6hXSw3pdHNJ(kca,uiq9OJ'a+<(4d$sm2-p$lOEx^^N[ui^DOJfR-dTtKn<m&8W
U"I\'g4Bd;h^H1Oj9$<hS6I44^bwQFbPJr])$_1u%-G#pzOiOj:G)u2Msc5ujZuvD
U"nKW=QbDcYf(94]PB#&7ga\1YdB?stldq.[xruj[VrM^IWIctsBp3GZzvS\$ir1k
U"PB1*=)STd2S+[AV9Y^9T<hTkM3[m?>H$DbMqVcC<&d/pMJpouF485jZ1Iv7)5s5
U">Yok(2ucfYp0rZi6uS1nufus<<DzPYVlJ&Dlldz8(=2zIRX.NK<'3i,Pa:BtGhH
U"n:Q72IjO=DUcHV^=4hF8WT'D&'S#8-TVF6*+M8pYi0l>R:+&/%qIA.MbL*wP_#Z
U")7w3&I2]TFd5+Ztxd85eIb[aZ^4PUVUM&I9K5L=WZ:u[4yIfDOSW,]b%J(VUi%Z
U"vI0y2OdDHhms6>u<(,-?it9rFNq.[[5r+X.kJjfs)^V-?Su$KIC/fKBlg-Qe5Sf
U"oko*vU]a/-\.=c3RIZ'NL5U$%lzs$T.eSldpgOZd]ln5-8ZZ[nw<lQHT&R=B[^$
U"c-:4<P1lI[cQ5[jq.-L36%+'.\.KJ^SIbuRU7F&TL,)+5BrIZkOu;nq2QpI2IqT
U"aZ)fFadnMnviGQ?Xbh*_WPuhwko<n^jGh>Or(q-+55a]8]xj4Wt_YbfZw*'XTh1
U"Du/%\9=abt?vo-\T([fUpvEV2uT'1hcZnX>;n)XpA9x/tHW3aZoppRB)\RP>X=8
U"_\.Y.,kufM4sR3t)qKa15J]M'hpg=C/-%b):m3v*Y5D4?=Q?GpAX,MWKBlKNx&)
U"XJK?-$UIO[2UW1-LGTh8N7GLP%PVpt]E3WayI=#>^jo1wCboKT4l71X<Ymgv>CW
U"FPbihXB8\Vo]LWS,bBt5]]#mS:&JrG0\5TiZ]7X:0*0u)$LcYp;7V+1i$9hS6o/
U"/Y#+4v;5.slRNQs;^DQTbyEMASbmwSf+V[Ano/z4/$Ceu(z\MmsfY1>hT+-Od/0
U"QgzHl,+zcsyp9T<XvT=Ts$52jjo:*4,7AM0n_reRN<L%Jf[(j'&S[H>jekni#J<
U"h\_TDV'm4(.M$j3x(XiWcc&9sR$w0-0_2#-8eHWT)_ZT'c_Y*WKa'/7tHvF[+ME
U"j->jY1h7lH4WiYc_/rL8SC;8$<o$>,*N303ATEj;b$.3fW=$g]_(pLakPb:%N5h
U"#9QJ#jISzoN-4f3#^nvjS[/0*EX:d<J5t\ISQ/<oNh)lq;_)=A,9qf'UF2&]T%l
U"H;^b<VQlbh<Kl6+,fVYzs-WAMGR<Icp_o*Smp#a.>*cFfC;U5?p%Wv6Nli//*0#
U"9V,V1DLhv$jh>KTcMP+'7:ojX,ahr'jkU#Gjs9B2RQUvG.XasI8=<^#eLiYOq',
U"f*H4kney<UWSpW(SULOobqig<O9mBeq<0*w8;Awh*<:2*,XdwhVa&fn%34,eOo1
U"Phd%=8U8Y<sW6hbs,r/;wz;s]E0b)w35AtA.o5Zq+VoTVyUXh1&Cu4(wc;epl]i
U"61l3=JeDI$3*U5-9c=sx+]\xnMJWmpn;yBMJc5\ut[H]47&$K4rXVKc7a.StUG6
U"$%NTn9J\?:DJ:%?(z?Gr16M5Bb;mn3uIs,tpuKgSC0')h<#FL[E[X%/RTo+)HMW
U"v1T<c(4p/TpB+[.:t)r#de1[J5\at80e=+hT;jED*C$s)iCu_WN\HdIx5'rB=U]
U"kh)C#M%&eoLJu;*l5mX8+F9iIt^19a*=1^.J85'mR'*Ud1CrhN:MVDCM6*I9,,q
U"g\VJCa%S\:#XN^ijf(F<e2R[x:X\d956[&zzqL,L7uJsw]<Y^mJwI.#hv0dvK$K
END SUB
SUB V3
U"&[Wsl/c'ayLQ[9X+KTCfhBA6RS&cbj?WO\B4cI^k^:>t7=x$XH-<26G%gVO_3&]
U"]>-Kcq6Q>Jw]'I7rhWlBEV\l;ZW>'gbCdR07>Y3a1//'*]8[:G+kRf(IgePHfLm
U"(2uh'B4X?mjAO3AWq%'?ja9X=PaT]9?u\EtW<39*1_9JGcOE4QYHoIN0PWQFre+
U"<BcI9.J7ToubdMGie$<U+F[a&-n^GMe-rjU$Y+xa/<ORdOa6Rxj1cmw^gq*Qc_a
U"*_wfg+0d).Rs4]Xl1o1YvQHFaM?ZC0QuAMGn-Nl8N3:?e9nzbaX:>p'z.#iwM>M
U"KqhI<iP:>#C6CGu1_)-H<0JElSEgh?#=7P^9biL6#l<aDTR_?N'3rkt?WoMij*[
U"\r=:c-n1&Tok8L_jB%?Xnls)%=a2[a:5J;pyjT&L&5S.g_R-B-]-G*6CI#xU-5u
U"_J;;u?meUHu-5d-Z'q6>.iI1(^CrTYWt87F2FH_jdN;r6+W/C%K#-0(GP8T,cpi
U"9O(=7k-Fwu\,sow2c)dZL>qT;U<IQt*6s4u.m2Gd&g2]T0EVR.<:7g_:WBw7qA;
U"gfvnWGJN/WOgq/3sc)Q=3Caq)GoJb1.V0]-=RF%IiWxSz\C\i2yG5(.<#+HfT8b
U"t8r/$un;Op9mWT/94bg[rnmPdqF6TW>]3GH^oZQm,=Wem%/(AafeqWeS#lvh6G8
U":jYJ?+9jj09v*[NN(X5xvaWf9ei;:&&gD<uuxR^>rpb5^P,#-WZ*pR6DR=g.c;/
U"9zzW,ZMoF_jbN^_A4I91g#uul'E%e*R9j(V]YO;p'>HG&%J%.YilF%YYN%d\Dl'
U"ErS(#'Unk2;W7eB(Md[4f#0*Pno*WkRnAWrRI>nApCuDPHJXi1?h9e:PD;6qd2l
U")pK;b4?g#s;Q)g%;*NnQxD^n;%=XkY^'.Mk246i&K%KFQBR]Pu)ad?.'GGdV3d*
U"2)-$4R8k\)sUiZ4;'=#k$/(VcBXBf#=sCn*h(SUO-TC%M6nr=o-To5.;8OtgNY9
U"(GAS77)A<GqQqs12*dWeTE(^F$ROfCk3IgaVvu2HB1.ZG/37hp$VrHY46]w[;B8
U"l3F>58?Z$^:0k;2b+r#=%e$Kg0CY=/,7<I*BC=/4^R;nue[<=tSsmrl<R(DSi9x
U"VD/^zyZ?U$8e(SIZ>ygC4IiYL?j1%+^eN;%NN_7*rGVT\>*a76\k>M:l*.9hyQD
U"ni7WA[mONi\Q+#PHr0e7+7jJ^/b_Y__$#uhhKuArkrM%BHrPTvsU/1K?Is#5ey8
U"fK:tG7Moft\uyxJ*aVB6D;>4_5a%R$eHbLOpULe/,RD'j?%,h>aGR=]oDBe&DOi
U"SPEOO]3.o'WJ??w4(a<9uM%VVfuJ]?;Zu1R2:lJmGL=(CF#'xTup%()9%%%%-%(
U"VJiQ1vnbn'-%%%'w'%%%/%%%Ly8;4&AWSn7htFv=$+;Ua1UUE*9zA\'MN^+LlHd
U":1_)fS28BjA;VYj22[%A-%.(z/PsN6t'JscejHWD&0]R=#9Y%YM0Jnk%VlN0wge
U"[%a9K1<E2dbqe:N%aARV&7qlj&Yn5Qd.4j_c#J?Lk]S5N_Lju6pWHWn&/L%)wom
U"KKXE6EYQN+i/fFk;KH][:ELTTigb98Qa(;PI-i/Rd$)i%=No8-PM_X:Q]r-KS#d
U"CiYMq#^'R(up%()9%%%%-%(KJiQ:T0,5'%%%%'w'%%%1%%%Ly8;4AAWj3%Snht9
U"Fv43';U1a[57U._,gXk(>K/x>5/%>=X+k\]rAKM%dUcLCR9Ig(_?cd<Gx&yd&[9
U"GKn?FGD=P8Oc,3x8X%Ox\/7i[J?J-A^D:5l[d5NX?1;R1=C+Id<_JwDhSe1uyR#
U"F,emk\$fPK4N4GsChYquRk/p4oNdtXQ(Du%4j413dDctt-U87Sabn'H'TM^RcgC
U"qJ$5_glj^DPB.5Mq)*otFPw1>%up()%9%%%%-%l&n#Pth8DH;'%%%E+%%%/%#%%
U"y82;4AW%Srfu#jyfA[#V14Y6?(UQQ]qwU\aB-KKbIK6E]J*qoDdn0QP$G7f'Mir
U"lRJB[<i<++$)_8YWarel61]GWX+kjF^qd$rN#x$ZpxU]Nl[JJHJGL&K8WZ./Ss3
U"(QkY:rV13a_%7U](RS)-PVnp)KVrl_t53:\ml2ihE-Ir/kQslmS>bR>YXlNii*$
U"dkUMda:vRsQ]BSlk;odY6-e(]/EylNf4FbgVlDLuTp?MK46+^1;m>%eNxN/vwf(
U"n%b&1k6isUNrR$:AM)o,K[fEHgAA\LpuO:5DZ:_zR(Uo'Qb7Bvjl2d>SKvG#(,2
U"Nc.b-n^imFJjTrfke^_wxei.*p.=mLlRby>):0aFtuQ6:FJ$KMc;'o5lU=4==?I
U";b(VmMw6%0?jSO_?U\(pj4o<)76mmi+zbC1Y?9jCk12bIKcWt9Bh,VRl<np5qLM
U"_dNTebpg'6iWe=9\ue4NRlQwWfYnk$#D883F28VrW-PYc^76U,*;K(dGEGqVW/Z
U"Ai\V0Yc1ZRn[h;Id;3-/4L$f<1(h]u9Kp6>Kph$8WVvt8j^<(<V1au/n[m?sGft
U"tXWVM+S>pr_+.#]St4Gs'90W.5F,Wt*NTmzWnKriYi$IC)AED?[*rC4?)\%y/kB
U"fa4en]FQslRM-XCE'-YKJJ^tfF^kgUlg&[[Y9M%-UtYbO<IU-X]el16[k;b^/Ac
U"^+sSFQWR.3BtfhUOtwP9.:0j7Bd.zBePo^[k31E:1xU]Ll-&\+900[kM0NJ7nhS
U"3/H]jW-=M>rVS>*'Wero.mJ\3)kd7fQTklbaVXBqu8pTPii:.\(+S40f$oF$YB/
U"8P>4BRLV,AY*g9;JHpFX>?u>o%b&\a]sj<K_wT<bV.N,[,Gcb23Zm=C5#U5dEt(
U"]HvpPNLDc=-h8up%()9%%%%-%6m''PC&Q/,%N+%%&?9%%%/%%%Ly8;4&AWSxRuw
U">&(r;8lU9M,E]53IQ,ys8i23>t;RuTFtnQG9THo;&x8w/v^liLZ>Ap7^c8e(NsR
U"8I'+,Ic&u%SvPzDwvo\j78#KJoodIaM[uM^?t'MG%>'yj=[GtuWE'fQVQXkbOc]
U"oqK>XpB6\X>5M5tt:-oPNKq%sDP+00YNw/994o0uko2^C(j_v\OWdDVyEdNm=>R
U"F57iQgR;jA]t07s81.+^%g&b;%,H,/tm9#4jUL\0NU]b'Z\&A?e#-1E^lQo)t<&
U"m)xEXhz0Qr9.K8+W<j[&Y2ubE5Ic?$m$Zi]uBa\h/'HIC5&)=t6T1ScM(F0<'tm
U"CDe2bDQZ?8-\[_$i/F?R+;G+M[K\SZ7ECxzsa0Mf;=[vD#s7$KT5Oe?g=+h*VO$
U"5[pCP>ba[ZJN79O*v(t#Zps-<rGL7EQG#zD8jQ_1Hnjene1nK?oarBArjYK692/
U"R)a4iTRlNooN0SF[M-XUeZNQLn3Nm4?_oQ3,<;AMH$\%P=Wm=T5g5&w6N)EIHVe
U"sus:$1+00^I[=B*dW:SZnQRmVVk%eEvz]U$ybq88p%zmWPKV%8T>BjxH;BGcYuU
U"D2e[,_Qn#2Y;wx.7pqGloB1TQ=1TbhS9Xe;tSVIHa0E3/1aRXC]>(?Hllm1.s1d
U"f(uK,_:Br&a?%eMmP5?:),[B&p;',/Sh(DpVo1=U8.4z9-<T'JTb%uT^i6<Ivk8
U"3J=ShYLhl^i0YG*?r/<fs9Fn7--P8:yaZh>9(;E'<e/IDrsk(=ke4rQtg<A/nI]
U"jRxR]I.YFPPFtD__huEZgik=iYMDKr0.WYE*#.Cb9fIRr_ov)u/GH$x?au:^CH-
U"c:7>LJ?y)plApO.m4U?G.18*j7d](n%iNLK78DQ_>lWo00(:#JlAC<&B+D$hJCO
U"&hwrUER5W<W2mCQ&AfnJdeJhojOWTR6D;BRt;A&qT10(2I;iFb+'+;]Un?,qL0&
U"^VccuQVfCLho]or(weXzPP3*3NRkBXC)Zm2ikDQ&9[AQ]7jZx$jU=]j7Z;BHiXB
U"p1c+)TlYmLlO:Pgq*kP2]rWlKXrLDQn.r>QYn^%/0Xdbo60M.Y*CHS3$)ht<Bm%
U"aH%iFWLYs,GO0=iWRII,G(izFE8n\:GdD,-M5[gWMb&qMOTu8mp<-OkLiq*6?q(
U"%_P1ZcL*ILfc8]XnMQYW;5^hZ<r*LmYzR[m=4KJFId3R)O7_fI>]D-E1pGkb_]K
U"Jr3&vVTZ)Dg%E^:(IRs7bf)cg6ZvMgiPEph=5?GkW74[qPVDRk3Pvk<;*Ku<S>q
U"Y\N\h26:4k:/shm89Y.?XJYvxQpbfH]MWg/9.0jD+a?vvY1HWv)f7LZ_0cg6.5g
U"\bh:'Sf'::[oxJfwbMscTw>50/8fB#gBr,CXKOq(zJ'pf21kV.Tm$Sl\6[^KHN+
U"CSF1;xG^>IRCsA<bc\gXvb?aJZS+q'Q6VkIO5B5$?sS0Pi8d2OUNvz?tXXWIYZe
U")A<375fF,,_XtSRGx;A<f:V#.LiA^F;9ro0rL%ViW/BMfEC:a:\'#bvZEX(Kx.2
U"ld]+qJ73i=VfQv3L2m:GdWFjVqaXb[H)BcG4i$JbF8YIl,5'nqKSW;+IR3o.J7w
U";u(y8S(2]jsu8c>V3L(e=+[R/;'LY(CD\K5e_VcP#QJcga=LVz5:1\_Uj'8?D>1
U"hiHEH_rO-147CXbpOYL]al<4S(5k-3P's1k\p?3uNqu-dA%%Z,P5jF5Kfl3lR0T
U"?Px=H1CTg(?c:=QIK2I<iR]:+kg=:'Y:DU?$iwauJ7zf#SLC7uy21xm*YKQCd+H
U"WV6rp:#[\/][FtGZQI3(_s.8g4k)_$t^B5T=/OQ+Jxo:N9F*,\F*8h=*;SQLj8^
U"<i;LTu[Rep2,#Nu5/B_;d9=/F=yDr&WlBCmDtQRR\3)1SYZSKeA%zXjfdxPYADl
U"NgMqFwjOg?%a,W'-=K\:pz'%;Qct_fDNqo?2/HU#g>3PGjB39o?dho:1YffINMZ
U"^Vuskd92*QItLz-Ttdu%p()9%%%%-U%j-&+QxW.'0pY%=%B%%%%1%%I%y8;)4AW
U"j&3SgfOx^L:[x#n+$aFGq44.)akU*/sGp0DJ-n=?0)Xd)Y78\G.m>Z/'bT=o;>[
U"xEGeR>V8Ur/HK,?E,Grq20k=vNNRd.X^VFX$A;FnNz(M(h((t((%cZtnG$gTUV[
U"/GYKV9cA^iQ%U\XrNE(hn^iTxG--tVtqh8out;hosK<JSukKvuZB]^?nc8FWZ:D
U"GwpPmrvBw#>.t-XcmrsqLf>]uj]sLcwb8G]qdV=I\/SGILZVlXx11]Ib8tj+Q*M
U"[8[ILTIR]BESkMlXh[vB'=3Au;/8*HLX]eJ4po)Y6i[sZl;HXo8<7rotnhYRzFX
U"yp;4C'7d?p%uWR)&]^J>L,MR#Xtt[-P<hZ(,u<BP[/C]IJ\nLT>;->IB_m]j6B6
U"Fi:m]?6R<Y[7]1=ELFNln]I)bXd5nV7BXs0;W)Uj6IT)/1HN],zLpZ#[Y3+Yk,8
U"XnrB/E[^La;AOXSo.I;tEFb&dL\$G^m$HBhf=DXQj\.ga[2)8GZqCXFV]]taIdM
U"q,3&djsT2I7xCF0:XKmZRn(AF$8Fn[eekCMhAbw1=relSek/K]h1)^oWLDif&rT
U"TM]*NA6x+Q%^j44vRx<HTNk,t;fMSWN6^LQ*S-bcBNR*l^V*.1x:#vQ&COb2ep,
U">?AAX_Nx=xS'Fr:O/dyww(vpgf2T9\:WChHzGw6Esf:[DUMu]:6&DMhFjG,<VS*
U"r2(.MkV?:Wc-F^yaFTqA4ATl80Y-Khmyb0bQ6T==rTnCr#$tIpP73$&YLB)^ZIE
U"CS>&v2#06:My1-0Zc(%5UR_PE6vWyHn0E#'O6'd;3r/(=MCQoz/Qjey:sc782^T
U"l8Z.kge(1(^ERh+c\c/)e<YoW*4t]\[(Xuf\N_kCkwJ'qU1ZKdt#'ZDq[hefi^>
U"%4JQi$_C;*RwZN(u8Y*aE.j4+Feys=YDr7+6Zvb8JyfC)8PL.Vzf6Eps;Pk9tG/
U"zS:$B3:RdQON=efEJ&Iyg^MHRT8XnC#OyA-hWaNS1UcYuzMm$Qs7HhtWtcAC%Da
U":o;oMj2R2c3=[(IXt$qR=X(.sed\O#&lQdM2nr_>C+Y5<4+<pV%t&EuE1hZ%O0F
U"9SGX7PN.ffa=QFw4#.eNU&Quzn\o45Oy&W)c27O<>:[J8A$r.h.jcXlPqN=%Edj
U"PzfRy+Q6'6uw)mSxWSxZJM(OXg3Y+D+enfu;+fYZ(+d1OpCNa%(eIB-/H%.nY.3
U"ERc.$:)s)g9K7h\*^fJ:7o9m<JU-aUY/&LoJ>r[X)%e3mM_vW2ZPGVocA8eUB_S
U"OHZi,/PxQ[[74k7dBQ5uXu6*GS0n4J(#DF/rcZim%4ooVHX&v?'0%_:W8xX:34i
U"_I^NeFJR^</<0rC^0uYPatV5b17:FD03U#HdSm]/Cdf$6GNqQ*OG+I#CoP(8z7R
U"$T)wpRZnF5a0igj=HxIDFFjB#.YaGJ\1:U/r\&6\ng)->5ZW:nWKjZXQi8n[ouH
U"8xLk[^Uc<BpJC^O7Ou%sW\c[)dMh;nEs6vt2vTX8HV,r'Qe(7*3eG)^EMl(qGL4
U"Dqrs&.Aiv+mEJ0:j.+v3m3h25wg?Gq#k7e+B5ioVD%Baksp3][h\zjtOVji:i1k
U"4j4vRBY'%S^R#(a\_*tl&8qiZ4mUXNSmu;o+hRAHg>B8J*gy*^/0c)KImdeLql]
U"r3M1^OCy#;YQl<Jwl+R$YhjYLJf\DKc::Ce>E-qC]u^%JL(zrj'1I#\,Ktc&mZ<
U"I;*[?nJR#8CWd(.-Deoth,ZdRCs3QtZQ/d)BDp.ZL?^<t7Qr\#dJL3*4$ck3Mef
U"aee7:j^hA,3\Z;;xa2u1rKnxo#J[/2l4NwW[Z2&8TrNM%hgV8qfyCZ3M.RTZ/y$
U"Xdj4f3z=_4iBaNobAMat2Y(7=lH&WIb\9gOx%bpSd4NI\Jz+7C6XZ]M$..ZSS.T
U"w2pxb6WA7K\DZ3gMPakba5;214*%5OlNbx[[dpu+OA[pw+*;[pvVk<=tmW'%UIO
U"mWIZO1Q=GdT^$:T1XEU6O^:^myBj1)(o,*/41+6?-)TGZNy+YsOO&KfIFCA_C<T
U"nYQ,%NC(.D6](2v>v759/yMjObyO72+TNE&(6Hte$HOE%.f,dHq7AI34u#89>GU
U"hA'Y%8#3B06I13Ur&Jg4=\jVMwQc?kwSdfx]OV(A7eO8=6c>$6[Rb+g:gX*f:Q6
U"oY3JS9<4+U58,-^7.0#Yeap6JrIVzsC_EDmm%)))^Xi_+k%X<BO.(rZ5K'sIIFE
U"65ZVjtHB'SCFT9C]MC['6+S%8+#Ko7aJaIyn[I\Sok#qe\tWV1QeR-*nG$lJlE8
U"f08Em-f:Em;*sBw9:_hacsxI9:_eMc3M6g*OyH\>G;.&_uZe:R3x9].ENBM'NU)
U"3A'a7^$+0bImJ3=r&RFuQ(&R[Nl6wRA[HN#fx9DY[oo7Za_Aic1ELJBde$whTZi
U"a0#VKCWN&984l.N='c%OF4^8VcmePq\:Dg0S/AzA+s;-<M^+:H$,N(-[/%AM.rJ
U"QU?)=Pb#oI*Co]Qd3]BtqMEh2X'00\YEW=?P;/5/Da2b(QuDggwN4NssBXsC?Bk
U"/qaNYHNAc\Zr%z_Lp5lE%/xF+K*>lXM5(DRV)_b8$-i)TDBUy3:g^4v^pxjcP5D
U"Y0L(LG[-cmhPs5,Paikf0T\^=bzTPP-sd4.K)a(X=nG?K%'t[I>u>DmGIZ4J.JG
U";xpIH3*v9B&)g+WB.'V1,6;O%.0)y\O6^)z#Anr#/yibj%n-mG;-F>(dI5'Vo\U
U".JqE+e%o&P.;#;?yC6%f^LQ6:Zg,GW>1?uJkwnmKPfhAz,&2>Y's*]4iWRL/mR+
U"h:qstCZJ.&A'+i8Eo?yRy%>y^k;jKiUqsB?/\;rbQsKA#s5if=E3lE8oYEo(*EN
U"mE3%qr*?5RvSdnr%&#:z$]87<rZ1)Po7:h<+_\?Iv0M+'.YzM?zIfr?I_p8n-4X
U"S+IXjOH4nKSea2WLWM'9qco4qZ.s1qTWN3VPgd8-WVdhb3q=CQe172Dm5tW+O5G
U"Sskq_[%pVr>d.^J+us'NDlSOWILOXX,p2.MBucet[51?6)lD-I&:RT.,pS#r:J0
U"SU>Hbpkq9I85Yc.>e1le8DEf'3<[5?\#/u[]44S.#W2C3_w[.lc-Oa+V=C7nIQX
U"KF]wtdfCAFKi#for^1/Q7Sa3p\Pm1?EE:Z;g+>jgFcd,ORGa$#^ID]9C)ok%'pE
U"s+1IbE%OC5*%)6NVd1gC0V$5+0M3ujeJ)&7UPW.g)1p$:Vi&/)KDg,T)Y06YY;^
U"sWjZ-XbDc)%hn*YPnJIJ%RnGA,M#2y1yM5y1L))cg7%MZi-:Z%=>Fkoco2_-[WR
U"0)cfrOw&>HY)#_3CNxQojpRcA#<mv_^=g]LTa*<:cUf)JQt_Ci.:[j3IWdhnurB
U"[ErQVJLS;L/($1t4T-EdSQ2jt4'O,]/*TOD9dV<*8RXRT*=<\:h[c7o'7,;P7tM
U"<-XEuqP^XhS5#7/5%lk(/i9qbMmII4AKBMX>K,:Ndzwlm;jYi')zkBi#AP.[)0+
U"?Xi%2$qqqcBDT/.S?Q3&EAV0oA(f^ioAe>Y$sU#M3=(/wZ$-sQVh+>p^#4OQ<5$
U"^NGS;0si0vTc:u&bnT&:_g'>':sC(v/X*p>uYj8f0x2ZAfT(6Z79cP1T_jCgkuW
U"#Bzn.*%m^GZt+==jRTT;8Wl=sQ.B<n^K6626-C_4J<$ppYKg5K/Em,EenWH)iO;
U"6&UTgtT+:]+XM<<S3;CQoHedFA%mj*-1POhon'tSLaQeZA1#D$UhiL-cLe%^<GD
U"8BsjJB_ZAd_Ov<m^BGbn?sP[OSR#b?[w_u:1.tHICTlM%XyHJfS:iq8rHQ=:_Lb
U"t5-;M\sT)?=Zq^iscXNPn(#OTJ-gP:'?QY99rJr.QZ\WpMP.m]]<u=(XhP,jZrB
U"3UdfK3VX5LZj$sR;x#Cnvt*^gJjjT3XcD5mpLQdKR)Tr0[YwhoPT\k5_XQA;)3[
U"U8k]losF,^=&nT2Tc[*#ZfLaJ>*;IO0?[cH-r?Uf7'9E^,Z0\e87aTFbj[)o\HV
U"&M,Mgi*bPGJ>TeLF%o2B+Zms_a5,;,?q$+o7gRK=N/3$_s_Jf^UF4$M#$Ph4bCJ
U"&vTJ?+>=RLA+;VE%w(Z&X&Z%U,rm+Z=-Ga4Y#)'>A9aiRVcIZhA;qh&[w82kGVw
U"Uo%U2g6(9lZoarE>e:5lqDdWryE,3=B>q9w>L*ZMFoMT0k:B=^$lUCF1bdhIrX\
U">88ZwFi>VeMl[XTHqyOU$C0=V&GVeDSp5N#_D]6HL>#V5k5Nob&oN8/zNs?&JSO
U"V[]9u+jLBH.B_SQI3^/Vim$it.HsV+&'/*d0CA_L(P7c,0o^?S*T1LJkWf[u,]a
U"aD67o0P^=j<f]Cw65--]aQ>;2/#RQIIKp#xd(c%3u*&9:/f&b6uL;:Q+p&U0j_W
U"M84%%[S9M'29^;7]5JA/R?r0(01yY/[g,LR:a?T18O(FjUv7<5g9PwA,S:aUI21
U"m(MZiJq:e*A<fK.3CE]+#/?DcXc;KA[oL>ln3K;yoe;YpQkSQ=<X7>Le<S8XCfo
U"+b*k)$HS%7E\.*-a8:iV.u]l<7-^UU&uwOD&wM19%2/:P:-m5xPe/^P#v:0.J-y
U"Di(LyPGJTqDL))fmju6^3Pgo/c/CiYLc_3m>)>2as>5aWhK,sV7d&^NJua.7rJ5
U"l5LOxdFHD.A%sp,3r?-6+/aA:S:f5?AfimnO*%YoB;ugSFcL;>>;Md0<$bgSOPA
U"BvrZQOGnVJl1<\AG>>nMXRlb-8I:h$9E]?GEAXa[\waaCN#mpT4EV^p9/4A;RM:
U"(K4.PL(=ng4-ZRW+a'tWY:f.ZnbMoF)7T(Xc',uS5T+^MQ2m7zQ.(J=,M*D]hd*
U",U+(qq2)4n;/vI4D;/NH%3eCoi>O)A?wHRFB>_&rEP:+.2**,;VHzWWQ7xBG4CC
U"/8C;j1e/.+tYaFo?-2+/82Ieo:J\Hu:^1ChF,Sjzc[&*dMQP>i'a2KhZj3$n1oU
U";0qds(pJ^79^P7'&X?S;dp/5w=;4']r>+I2.u.k2oC*BN8o-->AdO;^Yo<ixWhW
U">VJw2hp:$J1T.<kZ(m3/ta=bAUCVug/qxOVndp&&7.CA^32a<Fe2z&U%dDreb^;
U",3h5P[g;*bG)7Q'*nnSJbSRljjB8mA=kA'e:UQV6Ul:f^UM>m%:A4X?KDyo#1Q8
U"&s\*'c?E5l][y&O:nrAVwx=sIRJBWo;_[d:oTEcMFL+<A>&\6i#'(?)UhK$&_x]
U"+PXd3&SV_>11IR<UGU'U'6<TLq1KetBV=_F#4tm=>*6g%]L/Lac]1(w3Rbb&:s*
U"\-p']V64HizAbO#]si\\01mHvq(HvJ#0)<'sok[vRZJo$e'5O95$X=0:gd0Dj=a
U"B+(M\><#T<t+,]WI:/H7)M8C)oRBQ5nO0;fDPz_KiuMxCJ=>K+GK)hIhl/UYKGB
U"td5IE]+4w+JB\'vzU)])9l)5ot1**iq)tGTI1YMgVcbI4)svXFP*Awxd(l5b<>)
U"X>r0aa<gJz[u5QhC?:&:-iL7icH+UjA1]CSH*'Y(G$BSk)a;sL<jk:0E78bsoE=
U"K&W#zgr:sH_AXjeN*57dJh21PXGU>>1YQTOj1(Rl]Y3[vA1_CIZE[Y>Ejbii?+1
U"]Q8Fyqp*6a;xf=92ToQ?7o;03wuJWB(s<vG$]:Sk#rZIg1?XDPI>a<-Ej'1Ya*6
U"#Yud]oLUP:fvKBTd6s:A)Y0a,.do()4't=.U6gwJBI;pm.,kS.;TKfgJQnad3_t
U"YY)D7]';SmgHl;;3oQYU%HB[I+:qdIt+yBn]LMa?#13r,f\8/-?c_J8ZJyLjnUU
U".;DQIEG$mJvE=U-[.nirzo-i)V8E?3FLj_'9/A=vk)QLz5Cl/PpMGjwG;J8$zuu
U"fJ4CJiG,YWMVdB2fV?t+YOVRD;ARX9>fcGP$NiRnD$?B3:]+og\U<<w[EMaju>;
U"Bt)eC)2-Ux[&]uTxj>o7^<?&YATEV:;oDKVrO>)X:zbf3r^lYKZu];,A79CTrEL
U"6a8y1hl<VO/./Rdpf]&a_CqS,q6pUq%=YkMo%]W+oi5q:o1Ao*\$T]nJ&WZL;0c
U".5P2D'8rlT&0/WmUM2slPUEYf8\a;[d2_HZb4Jci/&oZ0k7_ntsd$nRO%)4=Y>D
U")GH=/<hJkGOqN+Sr:5\gU-=&,,lvF(6W<%e)vqY/CFWHt^v6Uq4m]7_TuVG]*+1
U"N]FH=e?)vmd3jDpAXjnKC7t\G]V#Am_76%s6et_5>JWh2M-\2q)B?UAB:v:DO=_
U"Dv;NQt1WN,A_Ouv9QB$p.igATUp&-wKI2$+k4JT8,h?aKEtZp=80ow,\QHZi:mQ
U"IaW=*(BYA)C$il?p.,Rj[3b>LZiU9GZ.sL0x]usNj_ZKANMDJhVGK_8oX9'L7I8
U"]s/Y+_oe6ckH]8kB;=Y6Ui>(gK#/x4VLj_kDF#Ap9Wkk4aZ00)wqWo+3gMwOF=v
U"$2FPu$MN8GO84D0o1jt3vGjFVaw>%7A*B1D^I82N[Qy/z.s7KdWouNL=7LDOo'd
U"D*v,k8qL_qTJ(vb/_nTX88qJhN,7qWMe0J25P4#^sf$3[Ss0HV6X#p.?JI(+8rf
U"YE58*uG7:o<8TUSY'A3cD)P]M8?T/7L/.ZWdq89adg9d]+589xcy_5p5?&y7#OH
U"&Jy6Y,Y5_cuKMPg&4x&Q0R?pc43P7I6Nw?R:'>$9ZL;s$jK-lhOQte/?c'DJNIC
U"_ABc'^ED7s;)ic=rK;B>q)Zaw>8saBQ]K?7(?jgQY%j.pf&PiEu9;>ds/:oa+oU
U"g)<Z_:_(f,m4&01mR_JPCs,p0uF[?)lC<r>08X9<hCJeNgV>c=l\[6Ah[t^k7vZ
U"r-*hiTIDrR^(.ap(Lvc>&5]qbFi4pb;1A;8G?/A];t\gxUAkOb,Gmf\g((>E-&(
U"H3luJsL:#_^+pJTfuV,ySoQdB96,#'3-W;sIRL>kfT+O.RBo44LNeL::G(WoXqa
U"#4:d$_#IV$86X/+),2UT#a.s6:+?M?#*aqYlus)Cut)c*:_,wN;cT1f&eXkt9i<
U"-0V[vqi2.I=&4Ha0ffz)YI#a6jg(;]d,3N[l'MHG)7nK;ni;(BjbnDp-]X&7)a<
U"Cxf5TQy-<Ph,DIgN=w5SAum#%';Tje9;I#qAs8;(0B$ABJDYo.2BTaFB$8=tk8g
U"$mIHCp3kCLc'6ulQwVJ-DUS8P)qN(.>w&k0&v3Meur.'P/8HZ>Kd9PzZgRIy.$y
U"*Bf_tu,6Yud5;t#]C/f\%MSw>:0RVo+\1I-CqDb.')d5syk,pfY2trRGifrCWHP
U")-(Y#$+$8TWP><DRl1>crCT)(y?U.Z*Y%1U<&IHaG;#GgY6o>[r\.#YV%rj6AC$
U"*CK(CFmp-17-RK845koTwe$+i>NYSC.CJ5G()#aAoc>%nD:I]6]q_U=5EjgbF1g
U"XBE7nd2[]*gYD3fl5B2]<'&fb0_G&jOGw7LesEeSY:)r5gKRI.\1D1hsu'<-(D/
U"k3.gO(*78FS1xYg/=*wB2m.TO7_^(1567_8:Q3m'bB;gG33U_<^ElP]I)0h$2US
U"kr.=g-q0bA8IG'A&xMu_bUn_<L3(%<Gi%Q-^:[->ku'<.4bb?7*wKS;^gYcr4<F
U"YHbpJuZ<:S^2owfI8151HrTL>;90auf)Ru6fvWZrLP4).$\F_j9IG8,DcDtDQ(3
U"Ghh*YNA*[[rr%5eT&')%L1omL<ik/IK12$fzWC91y>jW_Fq6DLX.aWY35]=:K6A
U"l4d?])7D,oog3?gW(hffiP+[Xe%_eYr+b)%*[0^Ii%QdiyqGU'X/2i2we#Y-nsL
END SUB
SUB V4
U"98#t0ek&?MW+V#l6aw;LL_r,GQR:,D)D5hHnQQ2?8FXAT0-r95M0*3k0/1&FEQe
U"OY:L?X1dcd<j3o^<JD5O\x*vx0Eb[F(r_<8D%u9$cpTrt^MkthcW=LPTZ(m0?++
U"8DpUGX(sAMC7y)P>.jz4V3LLXSk)\3OO2x'Ex'Qi-d?i?T>hI8M#_88o;tSkVYk
U"IK_;+07Y,A2:&8#K7)xT[+a;4$F$L&y]h5n;$=wK='5?7?H8H9n,iZJ_f-ZOL.k
U"#7r>/G3\=A6CRjTn&MRRbQGfsP#J:/%/I_t_C-.P[,z8,J45+..6^CU&S>K$)=a
U"L\F3x'&bLlP6jya$Q,+P,j/zW<xIEzUZe./[(wGI/CeXz(KRE8u?%..=ltbi2,n
U"w09%-<](e$PN3[ZgGI1gb)<BxdVVcOi_OO=J91nb&YX<sEjT6*X4RioFRBw*^?Y
U"0E)(+V1vsUY-tr4=/+$9-Rw#\FwHGs8]S*HI8inK54Hb8'k;g\.7P[oaVHhJR4l
U"ZfI:)SAbHL/fl(5JfS41V1FNhRJ'30.GhZF.&],go>Lj'Aj_E\$Kox8E,Ykq<.e
U"$zAH2wKntmsv\G'AL_;9C0WIAqefIM$GDUNv'3\ati+\V#AoKDfbyCZqs2Z.?Si
U"H3mJ'STF1gL*m*GA,<Ga&.4mDG:Z$++g]QTt$rrKu:G=5VRlg,U3EWEJ%W0m\y1
U"BB;Sc^Jr7gAL7l2QQ0wfv:ik0jnIB>Z?:(khd1))6YCRD]eqE?m:>$v4_<8$\50
U"rXpH%8^3f'n9tk-\ZMlEtR3[]OJ71mB%<t?t_Q/uVK;TgOFC7YZI&]l#XeJ'%$t
U"^6-hBbPJS(kabn:5cZ1j_6PiK(O,=vCMayTzTGFxu69tPy+8#X]NjhZ7/*FII$e
U"C_e(04_w()wCQFgnQuXk/:]gUJ;^E-fkSkw2W/:Yqa[<(Aj/BijMZrYBK_;DI^f
U"?0UfrR'=Q:Q;],Bm&[aHFHQW:s&ms&-Y5pi6ZLgfr<-hQ=\Y7Z6Ywn.upfBJP#F
U"N<bO/2I\X./0Id=?NsXL9C(?8R(Q#QS:;D-\rSX?+5aeorA?S)L*LmKo%)VREi>
U"_LpJXKN^Yqtl&&$v\o.(kFP[tES?^GYTr';pTt8-b+%Ur:KVB-5d2H&47Nut5<O
U"<1SUE<Scdh=sliP3'nGl$Jj-=AmIoN&V\EOXH<3W$=BUc].,Obv+uJ#C,x$.QmQ
U"14,IU&Z[8g;Ci$VD,N2l*-WY<g5ZNL5I<TcwxrcUv4*OSkqGUWUT0NFzK#Bl]][
U"ZZ=1Zr/dL.E.wT&9Qjmt$V:0p9jk,E]C/?>p1FM*rO#$9bNW>ZI+tpB*i916j#:
U".jq46i;E$zrrR(/;$LD\UvW[dx595VhtB4HAo>aF#v.CD;Q?qttne>'j[oI?q7c
U"Nr]7_,S&S(b-u^4=[pm%iWDl>J\odo)0AE.R])e8<r^ef+F1A0P)b+0m+qH:3Jv
U"*4WV*m#&=$#HIp$RpjCE(rbK8HNKrJh5nt1Q+ndOtMZ()cea*&2P=Uto'cFD5[j
U":daR1+<XQ=GjYj&+*1NP*[[=)gW):L88#5vFKnbNPdeGkmLaHur]cs0jv*qGMKd
U"4tOJ(H_x0+%Q=5Nq8;<NESqXG[(?4;C$_]I\R8DI,AlrlI/-pK;;[*;[?:?$Ahk
U"J1\vf27)/dG-+aD=u&rhwU5Y_p9o]pZSnxrp_&yPjy:_3G%.uglxH9#1;3w66Ef
U"L%hM5_ign'Ee'u:ofb+W45:hhiSi)]YRoU(goBeIJDD]o2b%g-tYcFuc<.8CRk+
U"L*:ITT=blXIb/E$dl_x'43r24%Go3;90xrL%)lb?F&$(ZrHiZgn[OTd];\T(%%,
U"Ka6T5Xq*;dQ3BHcpglk3EZF3oJpcj3E)G;'b9CjXOY&aj(<KQ6N.1q[qKbWnRJa
U"k$TmFP\gA.uGbEB+^uCttj<n?SB59SgQgFdDRTn3psPvt8jpIwRyH*6*Kb_btp(
U"Y2>*LiQ],z=SWG,c7.YA<-mvD[ru';C(A8+^-4Bl7e23m.J>2_ZGhO4Gt[xP.Ea
U"KF\a'W4b20?QW2Pk>)bFs8tIL<c/]&oFbwp_i[X/=\H30id*<nGa=<8mx1.sA47
U"X/0:x5eg?5q^CV/'sdBKsnytdLD_dQq/4$=Geho6+oSSSgei/5O112X[C<%_6R;
U"N,KcUW3O4M<f<%]6e\#O\aVI7&E+m(?IWuJS4_a_x<%63D%BnU(8H$%zpQ0AlyT
U"/Rs?DR#AJ$jy)ZrFgr>=7eX$Vbr#Vnk8EV?S#q%2crnekRq:Vv^[>Cos.lWP+,s
U"v/IqY4,X4+'2;%)[Tt&S-5NX.Z1IhAE3CW.Dmik3\Y7]3/1e'[L')pO=5hol%:j
U"L)kBCPhehbi5>6<\>0Z95[kd6HOW,Wsg,0_>[.S[D\9,]h_9,NxOpg]&zRr4,-(
U"bko<suTq:E3fn'X4]ar>_n9s)T:6Mt)Y[^sIc61aY&ft)pLdTh&&)QTVX*2RZTX
U"H%gV9_J9,/Xv2?CXpKY9[oVMxPB&CZ?g9oiPcWirrUZ^1:>)bJNwt2xO]X3Q<Sb
U"9,_5j8wD\JhP=6KYP4s;ppckfkKEZw<.Sio*kRPb7sn?-ou-un'M?5a-DxJq7K-
U"(If8omClDIcF(HGq&0mJTmdJ+tAE-aSr-=RzOP1)Tuf*9Z4'jia*%Q^&p5SQ5GD
U")mgT]R)6<3-h3MT;66V1i93g'Ju7?')i1/%2FA9d.<oa.;oIJ5,%/-dMq2j/WTR
U"JHP%J38kU-o)tavTe[#4[&GEdXGlBu4.,d-]#nM6wI_1vJ];Xe.$]g8,[+^Tj1z
U"QNV*B_#t#'p.5:.:RP76w#u%&q5JVpT[8T^/c\BDXOUkXJyd8d9fo1-U)6;($5E
U">.[UX0*P%pgC9uPIg-bt2spGi7%08)h[H['b4A1xOo=Mw1.8T8^Gw:[FJIPQE:w
U"wODc4Nc0%a5n4M*A6hmx:;9IcBw+Wg5p(N5NE#,&py%>.hUKMKS%LF0W+3ZU^hd
U"marSC)j1TOzRTahywa;18sJRHHO97)9'R'M=W6wStI*c6O.SeUJpEPcIeM:/IqO
U"URZN=a&2IPR5dx<TD_KnxawB0k%P^N;*^FPuX6'8aAv*5wU%ZBb7Q^99W)cJ<<B
U"2ng2Tr)/Aw<&I.rg_CF-9xY2qs6O&a-Y7#=:/nI7eOnWj8umc?HwY8)wV%f.J%5
U"<%0j90*i(NDw<R)(T[>Q\2u[#FOW1bM\Yw3DqP'i+2KbhaY%V=S0nQmeyXVqaKB
U"0V5eUG'+T/zQWB7nV<E:Eq(loyR\py]qJv$YO75j8<.Y%4^UhqJH+gXJ6E;.w,_
U"zaCCP+JV,<&5BACbSXw[%UxK&Hju,,+'<wRaz,i\aeviD.ZWdL])w9PP[;eG]Y'
U"TKK9Rm(7uXbX+6IePa=arBT7.aD4(7;Y&Iiwq91SF,O?bL,)B&5&dqn.htSyfFN
U"SYXc3;a>VsvEP$f86*$VSTc)f_JZ5I9MP<q7>2[HRnw1oyv03bl6[J[78T$:(u6
U",mgNjD'^';,]ECWos_0sI)Mg1=f.]'Rp.VeK-y/G=<)(Jl>^ic45M]<&[OyzXxx
U"gH+&JmP18t(/[2Ui9E8ye%\-2tvQ(I9'hq9]>NL#f'^oUk[L%7rEWirP1l3q$b%
U";gp/H<%P-6IvSiCGofIj+:puRCZ:aDyX%O9tA&((CzHl/BZHo0jA1nA\Co)S5Jc
U"cayNUg+;N+zGWiy$MyGpdRhu5egWh0eJUoUY^Vl]]CYU652xP9?$^?/OpCA^I*I
U"Wk4uu7*Gns(((ofqq]O]6<#,.m+,ui;::n31%lmMh%Te#$=j(dGeI<Tl7dhPJE]
U"00iR^B18<%0U+'\FN8wg.4x<ohDlG]08'?;4&YN)_#6ea7sMlz/R%w_V.GV6sHj
U")iXUxPVj2p0wQZ_.2_g=#bUs$[kIE3OZ74^WZM/,Xz+Mj9D,=Ctj/MoN*smqSGU
U"7K;ON0ZdUIxNy.%'m7eo<F;k)Or)]%?[bH_d?,5=$dl=&hq,sDtEG<+RS$2%aI1
U"Lsy6#7P,m?J_(<\03/jw7f*<rG<l']EN1lOIqU&Kgu0D)gggj6YI_3X(+P5uH,#
U"Jgr;p)H\WpdXZ;ls\jf.k4NX[o(7BvJLm:z:.543.+8,zWd7D2G6A8+a#0i&I2n
U"1_7#_4AUn)/>t%</->;&Aj#?h1kiVJ6xGG7X<)v]g<+ls'vce+J:5a5tFg[DH;0
U"%1MQ(*tnAj-CoY:tN]La_W3Q?$lMz+MU[0v[5QiFUzd]e3HogN#V%1kLQJ$Tdip
U"5j*=KPWl%An[I\d5nX-?3ufb1c#_)l,U/>5_*^C*<#0$,h+i&>/76,:tCS2+Xj'
U"a.KG3K#mp=8d>mRc85<]):Bf]LAG2,/^s(;3I['F#KM>WSKDp3?u<7#0=F;L?ts
U"Ir6(zd/06HYWimcu-O:)/'Jo/#HC3=A+FWD8r7%v%UB2rowLe^2$JB?eys3Xa'y
U"KgI,E4':cn]/nGUiS5vKWl'F?gC6UNsQNkOjb./B+=jZ%>5fivZe2.b8E;P3RA/
U"7t;EA,G,C)]hBHq^y;2v8rD]?WdpSu-Z:IyEL,$:(A$I9Y/:FgNE2?eCF$b.b&R
U")rB+H,^<rmD3tvTZNm=4,<rH<)36Vl5_lXAHSH^p$bWlG-8\HVr.,mEF;ie_Ip6
U"LI.HDBp+*:8lYtk$f6t\hN-4>-B1t#aBZMp_*e57/7%s0%+eCV&*YC-(_s+'A]1
U"KeK&E9eKRf%/d7UFYS\T*IW4sZf-Ku7L.%ITgBBY*\3B1BI0QljgOgafbZEuPsU
U"<eY7)((sQ(]9IUB7%>T%RU]EsI9*e2#e%4P#%8Ne>/CZh#^F.1(WWuL(pMr67G%
U"Au4(9pC(hU-%FgM%=D'W-O+wM5.D*B.c_thiUeOO(pZMw)b2eX?&'4P^r>6as&0
U"v3'ERD\#OtKESG,?(WTt:[o%iii+F1YutElFZfKI>121Q?JXx8JY%AZr#qah6;7
U"[/wXMZMuFYb7$)7IOU:6'V;L8QR<<c<UxeksbV&wO5LU#Zb^\9n*t&(Un[2GQ1,
U"gliVOiXM;r=RxIe7>i\d,&bR1%57$R\%'[l&Z*+>OhcE-WU0._.1Ftlq74\HGeV
U"[vWenkh^.;7i5d<;*<s86<qx_khXIZNwY*)mTIXS>INv<(0*T%6UWI&jGUIxp#'
U"a)DP8<=K0UgMDzXfW)*<1g3U=35a)%15SH3wc:nXCY-mGZ=N>iXhBRY]=&QLrgF
U">j2q1k15sa?3tk1+K4f=2<RsCa^XFG''TUqRF+L)M9UJ&AQPP-gh2lt,Jbp/-1/
U"WRQk<b:n>Ydp91etLG.z=]O\/r[;3J3*<R8%<;FxhJM#u/[U9pZqbR4J3:]9ql=
U"M,[H]7&$2LMD)c8#1X<G1RS0VZ\S'r-:<fRQ;H64?:;C-Bv2H?4c[cAn=h<Y)s+
U">pI.Tj38s)$1qUTJi3j':m?wL^fMHqC-a'+<rhenss)a%F2=82B=duh7,Jeg5ku
U"IE4xZ?&g8U6\$39DSI2mfWE+W3.RfLZnPOY\JJo1n;E97ky:/f2XdG]QPe,1eN.
U"saHLGFP'\<SC%u.^=48-H*=c=^sW,3';L:GlZ-SIciPs9i](O]#fY'j;8ZHh'JK
U"pFa5he1Nu8TB1b5bBuO_]8LMEkS$D5HZ_8BP9d5).=_7iAuUVU7upNZm,.$%C^Q
U"1uLcO0O9I.eIf$K$Q/Zl;8dj%7LjQ-Lj[9*6p+B#L8#%]?CFV]b*^9wmSefI%30
U"-'vo7:uE7ItE0dpu9ueOZP[m/3\RAK<:;]Cah25?\$Uu0b?Vd:YxaEi97C5y<U8
U".#P*:HB/T0VeX3$R\8ZY]&mt<c(Ch/nu%8TK%0KI4=*/g)_SY#];Bd<V:pX(k:e
U"*++Gk%T_>HL'W)'uEM79xV&/Z?>Q+q_rdPL3VRXM'tF5$Zk0Vk*?bGbSOAj6m(a
U"\>nKuT_LRgqks<[3nd\lAU8_6:ZaB8]$W.j&g70Sch,R9'-S^JtT.WMeTuo=^)Y
U".z#/0ijN&d%+C1qRvtjP_Pg%^/h*tbCqat\>c:?hO:ZBWeXOP%7j,g+5.IUFriq
U"JDoX(Ti<5r_RrhhUEPJ*\?Lp$s:Lk3pXQ0)ZZ>ioZ+\B?()&rsEat2WkxXJ^3\q
U"2s2'e\p>GY3m:S4cYpr;oYK,cFnU4,-oFjrBZH+)E(q,(-/05y[/FE8+QC[2/OP
U"yA-lOjkGD<%kJ.\0*:PP5cU'F><^$D#oIZP(DuA)$P/DoGS++=ebdy9s1Zje/L>
U"W8l4\&'T5jMB:v.i10LLi%C$qH&qeyQoIa>VlLGoTevxrFMA:6zcE#FZY*UcihU
U"2Ok]'C0Zf<HDttTE(Heek&%m$(Z<n0(j+RX;<RqRbJA$h=-Jj3&3<tp&:iXyu\s
U"4\RWNq+I:sGew2IP>77pHK/x%URdQEk10CRX04T/9b#qV$GM[cu=h3)'nFw]2S9
U"(nTusZFF?8X3I;#u&dK]3[ERiGTmybJQ:JR^^kYNe20QdBIU3fo]50J/U-b86,X
U"7q]G8Q'>\bT9OY99d>?%<##EgoXkWEHK,i[5_6V=Sq0mW8%WTZw8W7e2ur&6:?a
U"i;ZL0NH*]AXD84xYIk<am_]I8\QWa=>TuohYk76<8TM3CKISvlQkk,Rk%L8.^_r
U"ROcRpZedGWdNw;wpMoJ$xga$r&.l$8dQ8G?Zo7#^e'4_RR8xCnZ+pqBBpBEU]nY
U"nCrg1m\^:R0l=S^uknbS=V7$+FINDE<3Mp#(_N02fUdgmiX;/hj)twx65w$hJ>d
U"n,u66wi?oc#4sWqL>ZnRNTlu6c8tfkp6*uLTfc]htkurL>nCy62_c58_4qMNlZ6
U"fn^DRM]6i\-x[=ZE:lz?R%lg/67KOLd6nv3+Gqu*vM]\4n8$.7\uY>kSjHsubvN
U"m8v4hYuQmlm86nJl>T\eXBIm]6SYcxKLS#l.nlp9lEdB.GhMBMvQZVdP]f//tq?
U"#v\BTXBLaNZT(gdk,xC=O'4_6&ei$m;3$gM7(Q8J%4&]:pk'&OcmF&iT9$(xRB%
U",kwYbhbSlVB5lg4I&e_5='i7jl50LW4HJfd666igQ>WkLni7BLMzHwo-1AX7h\n
U"jbNHa7XQcebKK72t[uqqo_c[l$Bcb4#BuGFmsJl)IF]n3)wcLm/=ZA9h=(S\7T$
U"_c\vumgs[oc,M)s5Ju2)mM_\,c]'Z0YRqFq4nwuPE7sNEqq-vYOkcVknGR+=z&G
U"<R>VieIN%=x6u,^7akLFLhMa?kfP5jEnU15tqK]=8'4+Vs)NM,?^$&[hB*31U0G
U"uDcq++vqqPR$P=d76/>8OfEOE6FalwDj,.t<&em%y0J+a1Beer4i=-2RIchQY+A
U"lXDz0C\a.7jn8K1.1eMwRzW6mNWKGJ%HNF:7g#>rM'&oyA\Ph6*bhwcm,5kt7Lu
U"/XRy^Y%3;Og.$[rq6++:td\Q+t(9j>Q0nWx;$kQH=WM,,MML,tk$<;NuEah8=Nn
U"E6'vs#lrVunmec&,i&Sl(X94,sb\/+ZN=d5ukQMbRs[fSZSdL)s[DI9I4P<qwu$
U"k:<mXT1qVU?Ms,+PYQ8vKJ#(;2FjvCI5p*RzhGJU_BYWwiYs9-Hl+=B,NNnLm8i
U"jJ<g<EEniZnU*u72uBpu[RHf$*nd0DtfF2au6XNkiqqMTB-h&nNO%iSP^kulbes
U";RKsj2D9gE6b7ILtx7qraqws(IuGU-?u/'HW%Jh'$nuDX[j)2FS/?rk/pFH,eda
U"viVNM*;$]K3W:NE'DTgqS[2(NzO_lTBQb;<G;su[$0qnvI3\4cU*jXSFw1>:5?p
U"zz,>V)tBIeNp\8tVHFru#,dlath2>(.:jyNPu6yLFOUoSu=N^i3MLorlCj$u\ml
U"RFlNjLc1uq&_BIZ(\AHDg4*GoHM%IH0+mZ'ch7oxX)m-tdh,7Jj?LRF4pDD41os
U"&3+THDWN6w^RFHNT,On/4:IY-U9_Bk'l0fQBmVJiR;lpT>G(CS#]Fqx;l^BNTk.
U"DtDK35iH',&NeBaP2DKUt%lvN/Vu.[,2eS;+=40h-VGH)_+S/5/gRWQri*/9q>(
U"+0&Oe,=Uom+lsc4:?g+t-W_h-(HHrFJWp=jwr6N^;f*$nT2:0LBR/8k7yfYJK_O
U"?aZjlb$Zr7K_KqII0nu'9kiC;BTm*?<u<2Rr2-(VMNnZ2$l5[/PzMD[Ry>?X0<s
U"+p=%r;+9gAjguiFGSi,O>Ok;Z<ulM)FmK.hgXe9%Dc_m48YQ-D:j=Oz]K,tfn[(
U"p7/u>mriaSSEG[dhBuCUz[fs0M_KXQx[e0SJbjakqG%sN0TZUD'Vdp:]M14)2b>
U"m3>Z4_g/U6dkn><;bfHYRcc#Es]>wEec;7=6^$.c)+M1KeH6X7AJ$bnnmrHw)X:
U"'hlS'[WJA8XhGX907qR<HCss6Q'+[c?eQ%/#^tyNG0nzjjcX^%C[PUvJzV:#rCN
U"Mh[IHX\ht%\?tK'6Hd3M:_bbV#tXHL&(zdIEr>4LpYz*.K_I6LwO$+Rj)%+rL$j
U"%Y,+%AfOR)80sT5EbqX,-M21f,i474Cetqpe^I3iR[o<O/d1zYr/3chNa;Vq2A7
U":O_,)AIx.WJnTfEjgB8eWrgMt/&YL*T'6jRTWW0'yY7APir?Sdg/gW-ag+\Sn$b
U"NQ4(5(OhSLCw%F0cRrq?RoL%S(1*sGA,NnaLXhq*FmDg3R.sRA?f+fQG/RN60CW
U"('A5wW2oO'=/azE]^FyC+S<i*)AhzkA%,3>oLjJFaU*eK/0jnBD*L'XPf<p=7N^
U"(zk^>))^ffpe9h/=$h9ulwgLpZGrOU;JYC6hjem3ezfV6.TPIo=&VPkQX;Z0%Nn
U"B6midy5;0j6OOYAa2J#Xwag;o0hKapck&1l%U.w;-cPY:2*R^LL;VV)=L^O<,VI
U"pZ/6[\Y$cfb?FO%IM4eYetA3+Bq4[nWB/1sk3W^L-g=BcOlLcn-w*T%ZjN4*2)F
U"s#N([1WnME;%.C-%I?HAery1r]XzOPs^M&J?;f^Ju^a55oMOPCc>/M_V*4JeJO=
U"OZ8l)7(^e*/<XW9RlITOb_Dg9ZGfDxr/9LS<:Z/l.x&HW-OfEi]Z#5&mdCGlNDf
U"_v9X&hwjj*t3)\&JDkms.lY'0VsnZmpDf]39-W-5;o2haJTv2BU<rN4'M[6].gi
U"WBwFIeP'qF.We[v$_7lApH3Yt]^<Xv.:xT\+**KwBR/axN%up&'%>%9%%%%-%2x
U"7(QVFy8Q%I3%%%^F%%%/%%%%%%%%%&%E%%%%%%#%%y82;4AW.Sy'y%up&'%>%9%
U"%%%-%3*7(QuD+;9&ei%%,2G%%%/%%%%%%%%%&%E%%%%q3#%%y82;4AW%Sgfx%up
U"&'%>%9%%%%-%(VJiQ1vnbn'-%%%'w'%%%/%%%%%%%%%%%E%%%%/x#%%y82;4AW%
U"Snht%up&'%>%9%%%%-%(KJiQ:T0,5'%%%%'w'%%%1%%%%%%%%%%%E%7%%_x#%%y
U"82;4AW(j3Sn%htup%&'>%%9%%%%-%l&n#Pth8DH;'%%%E+%%%/%%%%%%%%%%%%E
U"%%%'5y%%Ly8;4&AWSr%fuup%&'>%%9%%%m-%m'A'P&Q(/,N+.%%?9%%%/%%%%%%
U"%%%%%%E%%%)u&%%Ly8;4&AWSx%uwup%&'>%%9%%%d-%j-8&QxW+.0pYm%%B%%%%
U"1%%%%%%%%%&%%E%%%*p,%%Ly8;4AAWj3%Sgfx%up*+%%%%%%,%,%&[&%%);a%%%
U"%%
END SUB
V2
V3
V4
CLOSE:IF S=110AND B&=37902THEN?" :) 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\37902,219);:END SUB
'>>> Page 1 of TILER2.ZIP ends here. Last page. TCHK:110
