'===========================================================================
' Subject: Tiler Tex 2 and Game Editor        Date: 12-01-01 (  :  )       
'  Author: Richard Kelly                      Code: QB,QBasic,PDS          
'  Origin: newson@37.com                    Packet: GAMES.ABC
'===========================================================================
'>>> Page 1 of TILER.ZIP begins here. TYPE:BINAA TLEN:30638
'-------------------------------------------------------------
'                  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,"TILER.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%7-%HN\#P,G5ZEA^d%%f(%%%/%%%%yn%qjwW%Sgfx3fL,xmAl+aR$6
U"uVok=&9X?]wiRtpSg+t=?+ne>=Y[,lYI$9+2LEeK-Bn-,G2%T_a''$];)o;/>?d
U"k]_^:#pQ,jGq20jW,y3$36+B?dV6c(6&[XKVz(hM((((_.hZpG:TC*]p\aOZa)6
U"EYrTn)k;L>,jd_hrNI3=:I(ClVhXV[FkEhFQtI(Vo>)V_cZd.3-5vd<Eru1*sM?
U"K[rr\G/U:B^fZ8irojlDhM:ZouoBZwWV5UP\OUQ8P0dd?l&nQTfL-eW<*klwM:-
U"'63p##s_^lFUQsruNQbf&?Uoop##/A0b[I$kkXlV5-P:XpsFFdo;xT\JX$-:H<T
U"E[g*NF8uVQSg?+B;9tzv'AiB<EpuU/#ERq_<'u&JmSK.bn&YzLbHuel->bZF%d3
U"T\%\BDeW:TFkdHtr.>OuuhQ3ZT3X4QT6Efcftb/Z0f.'m(i+\H8YU#QOj(2=8l3
U"2V]uJ4BAfAb_G8%mgM\D0NTM>:Jj(LUP1l'vrTE4WfOcYD3T/\;4,kGBL#*\efT
U"ix?t(Pp\HEfUfZ&n/opr'LT1)C\3YcQoGX*P5Du0Pj)a]/*H<TET#*E:Froh*$u
U"107_Tg5U2[dq96$rRKvWMshkYl,R(wq/tqLjXw__9X:jbITX559]x*MknC4rYcH
U"Dv32TXnXXG)?#SLx&&QL*^5rK5yJ)RrmHKmikNO[Jb#n$(cHML'N:ogiyK]tu0r
U"lvsc?6B-MbbP/NU7YL):w$AP41NAB]Rs%/TKaM_0PFb6Aw/^X28=1W22Ok;+PpK
U"R#3(Jm58HBj,b8=+pc)k*)O1nt;4(j#Nogh(1[&I[3Hn[QHI_4d&T?XiEh?\'<L
U"JZZ:$#o^fl\($[tb<3jpP6V4kLZXY>6t?2K;xyB&RQdH+AV0M,g*q>Vk;7F(-Kz
U"#RUXhJ4pt+R6##WB,_Z;>lS2srF-$ERzon)neRG^M%(;M*'5J7/Bn6c=D\eS45W
U"d7[Vb4X_Eeb&\Yo9=$0Kl[^.Zd&'kLLXRc[#z1qhQ2q2Y8?No2(x7Yf;gMTdee/
U"GB5;a]xtVTOkLj3fqG]&5UxAXRmg-c#T%2Z1F?%qZ<.V?Vf?_#n/qloPg<*hX>l
U"n?/$.CCWwirMrY=GDj\;DqnKTp5FQs^+*/+qCkVr)mxaDf<+ipBooQ82NJ7<P*n
U"jTbkmp)QXH\%)hG+,p3T-kbf&cMSlQS5[qD=ZjYk8gE1#MZrYA-;q#w0t#M=5yO
U"s<A06jr(\EW4;#.kNG1^Z/4\DJm\E2OAI3*/\<kJT)TWFuV/0\OZp(6u#p4T*E,
U",/i9%4^k#:>sPySJ=r,H8<dOP;F2>>?',kRw%[wR*b:PT#Xk-D:4+r/Cj':V<2:
U"9LJiNJrODnw28D5#e<\6O0$xLzc&XQlT:JdU1cdjuV]Xr\g5Fpr>6Tq0b_\,TO9
U"Yb=jv.+e/;/UxzrkQQ/ZAP(l'>YF<fIg#O9wNJKTObFqDiZMb&DQTgI&S]0QfrU
U"ETVi#0zwT^OT7K-bcd*IOk0Z&_qg2dUue6&w2c]ajZR5ZKq82P\xrb4>\Hd:4.i
U"l[MT?i#;RFdQyfl<ECKkn%cT/7Vc_=PsMu$s1st7Jc8%#trfg.-?#7+G*CzYs0l
U",XMc'<Ec7-)vD;xyy0)qk>fqd6+o)U#ROq>p6CR0dl&*5B[bf(sGLR?-6WD_iSJ
U"hn%J6CDj3%5T?A1KdT+SL1Nzl%IJ.Fih0BDW[rbb8ZT,GdSIN*qa^xLGTNKB:AB
U"E803tT4t9IK'e]p]ouT:x5a5%[J*&2$0EwMW-FLAo6Da8.poBm-LIth)8)WF;2f
U":[1C/]##$/'RN0+Q&et:aAcbNBQo()zeT%xI0&h5]^FEF%o;dW>6B,xbnX[FQ_]
U"r#(7ED8eIlKbnZNA*+2(M(%ij+,T[28%BBf.ha1+mv52?iq'wrpq972jOt74I75
U"%2817I*E?amoK6\CR;nj9+P$YD24oc06S5t4<l(LhHJUFGX*uSA+Mqs%25w'P6k
U"Ow]6k]_L4prFVTe/cDVsr0FO*vE01,i)4VuMjQ<6j*c*TQhup&iw(iaJ5w1ahuP
U"r&JfdZPok%Uj8)#mPR/-ya9R<EmW^sN<:sRWkj%2B%At)%2-(]RMa78x0Ou'R::
U"O*vmw[$=b0H+Bo'1$]8hG37A/4L)))yZ9&%p2]&#]L.fe<kVU]*>((x%Ia,Z,:m
U":U4L4VfCg-X[MN%3kyz27[ek\]J%nGanc\J7%NGn*s&[%>wsiS&1u4.7Z(-g9_\
U"J/qkb-jh*7T-]:^V<3&_YY=gsG[tgBvKd[m*8eT[O^>=Swr<-PF^P#;<_b]-fcK
U"g[OMgu(Pj+HozFo?C)rZR[=3-./YVV(P[%7A+p,#a\+bhhpON[w=5?i/CQV=T/V
U"b?/_'d<X9<9\dLK>Ka0\)l&<3AQC+4GG(^TE(WZwrSiNw%:HHS;f5QB[H-Y&lD'
U"d_0fT+zOpoZE+N-Di8:f-;m^,Hz*4Q%AK#wgbmA?[esPDoWbht5M;32pvl&;jo>
U"#YT2T&yi<7EJG0$N<a')M>%iz8eG2nY$DJ3B)V=3gv,n*+,AEy&Djaxqnw>RZkM
U"-;+ke6Ye8%x?k?44ZkTP]*sZ0NkQS\21bymi+ngV##G?_72=X2r7M*G%)b1*QD*
U"J[Vt/.]&qS6>%IO8/$4CU0Zb(atQD;%8;jA;:mRg/k&L&[X$&G9]uN(JWGf(9Vf
U"%%ZQo)5Z[#NQ0;1T^99s?b/,UX'';KvE>A8#DeZXBC/I8CFUI9Z9lt3-&y]\VI^
U"pL<C[7F$)n.W]M)q_np,7MRO'c9+<6fibH8%7%%FFdV7c[9q<wnGqDhgNMR'XxG
U"0B9Np)aXWXe)WoNL^)-#7'^o->uh1KPP2#x0;>k?dD(tHPbK#w^aJG,R)X-G1&T
U".*JwIQP#VUx1$2fV?f#=bv2_eiUPXh=Jk\/+w2^^4qC[.LZ<.YoRGZ/.\_m4wXf
U"#<js%c>eWmyn#[aTN_RIn$P>aA:7nk'c4HbG[7MX\GDZr#xbB1O6J.q'^l;E[#/
U"%2.#e47::>k7<nl705CeQ1)EW(/BE$>DoJe+%aE3-%GgV1UgKP_P6+<3r7fM+n:
U"N=%+F1ZI<4UY:#qp/Z$L5&.F/g,#$W<isV\)C41Q9T_(=)w&I=+aE++^r2aqFiF
U"3/YOASb()w*$B08,#o2MO_a<,]%>r<BYu.9ulr3KB)FjY0+-7wOKBAH.w83+HON
U"YVYwL+iC+rEH1z.<0PDFsQ0;tU<8MW3U;];m[s]-F]Th=R5hA9/D_37<:I'^gUK
U"j4wdS8?8qh)u4UdzT<6UZ'(dMo-u<*)vKz$^xJ7Y<jfw7O3P19YxDfVRQR^/m)i
U"h/)3cF%dXZb5XS8uR'sKyOJM?sI0zBS2//uI%Y\gO2ymQ-mwE=?),SQf%MF-b&1
U"nsX9aGZ?FxX3y?nHZJV8wgI7,TxEe1NRe0w85?XUK%MVS%-tkvh=b.-0/(RPP=P
U"%N]m0I3CNklqXPUH54O1es?]Q-M]K67$7*Jj#brF.Xi3DkfQl-A<EkDXieMi>qh
U"L7INGf9O.Cp<[LYyG(C%sLjr^sB2Rl7Xq2K=U)^;E$,'hOH*=bB_h[bUA#Wk6wm
U"/'X9F]preiN#SD]+zA9/GnBy.nxeY#jnxc#Yjn:#ynpe'-inp,c-in]T5(+n4LQ
U"v:>nrT65/gRrfLbD/H7l>>D6o3RA#f<5JV<3I;8jlsVORobJF2.b^x5iXJRvY7i
U"%#Dng(##o)T3TlqG:+l?G]0WJ?4?tu\p3Gl?+lDNG#*_mM3<o5dnU[KB=&a9Q00
U"WV?Pi^Can*cc[Blr0NI=u;+L<4i%F'F0_.%<[b?Fc6$&pAZ0Y;P1$)tc2pG'75f
U"J<8P3(\%c8IeT:o-?eF,SG9,=+N2%/nlmXev$bb1EItp%a\,sWP<7h[UoL*Rfx:
U"\RG;4Y;v.:kEQFXQB:45WZ,1j2U%s<L(sy^vTl+QJE\ke+QU%Jw**I%&\%,kBm;
U"=9-3+YE=)'A*97jVIcu*20;iNWao>YY3.rAXu;eS8^%Fk\KP>Y&Y2SrT;WD'XkU
U"Q]Dg0fT5sfXDkY*mk46JDfj^T.;6\K^F7,b[$J?7L[$FhX^PmTLiFW;YLU4R/Ym
U"Ax-/t.:&(6ob^s'E:IxkbdO&tY3)08LKv7VC85l/WLqre&e4(g]?A]C(hk;r])I
U"/j'3/#f\%KHoF5:cr0P6I3<ErL:UB\2<WH4giQx;RRk1e-]\%fI=<?anzbMW[fJ
U"/#P%uTAVU*=s224Ppo5[Y6&.%W_M36t/0(CnZ+<ZTA=h.)JN?9D%8BD)2u6E-0$
U"[am<QMW/a::Dk(&g[6'x(+KE.QDo90yG_>PU34[kI+ORw.RnS_5.P%1N.50^dRj
U"fQgLhKy/]'wAE)dh0pOeO0ZOZQoGV)d$nhZMrNQfA,mAvz+AB\e8(V%%\4Ya8%y
U"db3L8t^?J+.Al0T%KdVjM*c96#Nd6654U(7\*o(4Oi^IChj7d/Aq^.9Q0Uc/qw[
U"6K(.k07nqsN;KI_8D:vrrY=pR8&NGbQB$^hU%an_oHLoB(;VetRh5v.Xnnw6eN^
U"4:FT+qv+Oeegx<N/,<8)E-AWNEf/6A$OZ.My3rig;<lXUsDKC]mwtl$mCAeOAxU
U"p%=CqpDsg;HL+YRi1_[c]Atuh_R?lk?J7xV#/p3E8LC%0M[/HiVo]Ni)9CDcUP%
U"MHLP%Z0dXduZ:+(^'thuGy;dmY.[74jJ4B_PG4#5AOcd6Qi9^561/Zmi>SichaF
U"&1vz+eoQ+MA?mp%iAa_^1WVk,='lpmPd$0;2yWf_118D]2WOVz'wu%ZIMa,i)gS
U"^7g3tk#B(v^1f5e(o;Z92cJt^$W7zB^#(h,j;I00Zz$[h16Sl-G,a'X\Oh7DLoY
U"qZf\P^RuPe9[vGetAHo1YcUaMYjjiC+.mG:E>#EEDEel1:OKJItmo7/U6b(D[CN
U"_?q]qHlL<7]-SK[Ri/aj&c*Xb.&Z^agj161Coe)gNML,)l8oRu.roS>=%?*JdI$
U"&w;+V8>Kh)AUEbblp.Zd/4PYv&T;YRlO61AVl=/gP/pF96BNX+vDe+a0.t?Rj*5
U"A.Pt60$oYZqgfj$%ltmzu%MMiR3E1^3M#ty%N'XnS%RFdd/Z%A.zp'nskxa6[OZ
U"6J:Hn2Z-8VJk:&]\6XM?#C1y.^iM4o<H(?bq?&F(SO39sL\-]PVNMP^ok2&OOw9
U"(&n.&?gBDeb2a>B<l7knu:KJI:B+vOr^+*\kT:,s6H62XkDdoPM;0Y&lUgSGxHb
U">I\udEc(N'PBk=_IJqxG6HPl[1oaOhp:mz_#m#REDZpI>Cu2.b0H46;=a0=6]M^
U"H%:NeO&:s05kJa#+(LUn];JZZ.phZjI)au%\&t$&\3#['1SN_QHVa+N7Sv\dvU9
U"E6=k?+G6y8pX;wjF%V#0bJ3'4U)1$);nMl4;HS9Dbn)9:-IMAOGR5/VUs_Q]-Ps
U"buT?219&$b'\M1)[[YgW9'\dmK>Inx7Md[U3;%]#BY&8C6?7[,/0c]CxTu\K_R/
U"9U\3Z'<?%Q26q\K%.JoE+1-RUqV^Ae19w9T:E1(-_Z]EkfDY%aA'yKgGlNi2&RK
U"Ai$p4_CpSz\MV$XUUrA<8W?vPL-)[A&-(%aHUZbY,LviQM\0L2*^Pg6,O,uuxtQ
U"-gJ]j6$M[aiqMZ5h71>;REWZljk=Mk(^fXM';MpaV'Ono_G\bq8,7fUp-#-d;'9
U"NvOf\Ola1:6IKC>j[VTSNk64h[V8_0k+118\E7uO4Y==IKA(+J5fJ.,4\9%zF7G
U"03#^U,]g]FWeCHRbImI;WStURi&b2S2vJU3S$mZx%*7R^)$q?%^If7:mTNF75Z&
U"NauxF%Lm37]MfMq#3C>CG0'Y$-3\3K(HgM<;aOEEP$xb+5P49lPO?'584H:msM-
U"l%&=)k:n7ia%g8vw4u,Vwdp=aSLH5*'T:UF$[:Arm7feM>FsMY7/>I>)]oW4;--
U"=QsWgkYMFk>Ip$Zuk>/q<k=$k^,)i.doV9e/)$mTuA&45U3F$s/GL(NRs*Yp2f/
U"TWMp3'A>#a0Y7k>*c9=3[)V4Y)e<5k9w6m>[Pu#S/7\44bO.=f]2,nQ[N]OKB&/
U"9mT0)LYF0YZ2I&#CqW,kIGGD=up*1RB9tep8\fY>Rob$ql9DorVWltre]F+3L<B
U"f,nQN:sl5Kpp<&#)rZETUR(Rhr:Z.B62V6qU7-Rmr[te/Xf(GU'sJI<J7&\,7HB
U"1WdLAW50i'LZ?UnD'82FGRW-^T?TeZ3-weXMoYm\a2WdWhrD]I-i0mW<*sVsyHC
U"^muKFX<)dxNBsYF%%/s+\tHRVW;4d#2F#D><EZJeWgR0vWIk(I)Y*fF;zg5HW=q
U"4kH_HtGL$(dGw=V&<F&l)<I6&pf:Abqjq#xD*'?iq2]E*ak_y<fUh_?X/FqOi6S
U"1HTsyo%1kaY-COrm0U)1T,uL=-_aZvbw'2.xIg]M93644op/\STyi[)=06VaIBL
U"9s+v\boqla,2u.IhP>QI/y=iq-?jd:1(u+-s#F8C76g*NuU%fK=6<?[[_1Hl2+[
U"[5x[s0P:wF#BagYM6H:_3%Zm=gCx$0x<Z]a<g5GfD8T[syRCih0=CelJI8.T6\i
U"NB#UOSsct[tD$i<'4_PQE*'&afKUH5l4T&A?u;,:c%0N0_6n0*T(7^?+cZ+og>+
U"3VWhU&e&*pkiZA)QluWx7lvk6&GWkpk1PsE87;GQ5Z./L^^hkGg8qY-.$HEt/fr
U"il)UtEf[G5MZc-jn4^Zk,Unk\<_9:9dJGeE=#/e'D'7bmR+UQgQu6tU2*Q8R;Cm
U"Eu'aADNmZ?&f,BuHfmS\7vFCu%*2b?.6O_ji7Ep7aWE5kyerV,t^5^Z0*n<s<<:
U"SBpN2q']]C:D/uF:SCihBuR3PgE3\;(A=uwgK2aruL2Um[_AU;FC&^UBc(<Y4)m
U"PKZ:2d3/C0dzhC?;5g.+1UNKfA/)VW]er7?XLK%,XZU7p(,9/'+QsgQR1RHq#<[
U"7?JY1/5\_8K_Qc9I)ocb$Lk:2:Gu9IVR+$0JJ)r6cd^Oq'I3^5>?iUeSmZa:,ZY
U"eedgwf0.7nDO+%.Vl0Ckm=Sg76<#2^Zo.A$SbDAC5O)ODE5%U&f9%;i:>/0n)h%
U"J>oZ.ZniFgn)N(FIN.[O>q'v&;rk66>q&DfoiS_=)3qJ_3qg^U1)^osqq#-3S1[
U"Q(?vN&E0kXpUR6SYkG=;VUx=qY[xO7&<JASoRULodjw-sChh)eQ9>oJ7m/$2ASi
U":ZK:Nib/%xEgqdEb2IInF=f:Tv=f4FghTkv>H$/A+\.-=?E;bkqd<Wf2*%:5v&Y
U"K&l2$f/VQ>1=MQO06]/v&&<H,7'sHyHNS%&hwp+]0:/ep&zWXB^NYp0%uS9:iT/
U"k.lb-l?FR)2>N#n=Jmr-M>'tKCW:^JgYhEEjtY;0f>N.,?H;P8k[kSbEvsb06JU
U"6#>P#R<&TgGIj'4taSfsUm0dK0NkfX'q8ZB<\)'YN\.Ld=i)aQ3\Xp1&GsVk7Sc
U"2F5$2H=Rh4S:'7GaDk\^?$J4Ki(UZ3^P<hMVr.KkDU6v4JTgcGB]ao10cBX^_To
U"cI=o;%QTh4.;tuf?8r]&ST0]xjU,=0c=[+#f3qP_K3B[gf7:g;Ni3XbNQof40?f
U"5)00_,y'WuWbz/[u;:KOlI642K^..A%lTgg]jG5Rc[c&qbK97<SY)?*'VwET[S%
U"1G:E(.,dP\4.Ef&sFjMhoZ6)s\5sl3:_,?Ss/0ALFe7G>mxA-2ui#6exp7q0AL\
U"Fe'CVSp0/OOQWx4$<e=?_I6Gt+Ols/aDkUeoptS'kw*GVNQFwIvmV<'^EwPFesE
U"SLYrhWEJk3=/nE%$*=9WeJjVQ<Jpv7VHgCE)4L=;7/1=[%9.J/1(gUVVD[UZ+*A
U"]5WK31)01F6;r0AH_3F:+HSLQ_US)k#YFP^_CW[YAF]eOz,AR.rAreHBPO%.V0g
U"#s+gU=j%X:<,8Ug4%$Mh7Q'MC'lB0y[V>y5nuq^WO8.KGBFm:R'*E5FG4VZT<+v
U";flm<ffs&ZtN:b>0#c%?FGr9_uXb#-B^pd<W>.\%'vh%0Zr>re:WSIH=-1k9o;<
U"%o##bS;:mVWRA9+T1XfLzQKn&%hF0Sz&cIjM=pw0Du*v,oE%55OR;+=\1^5.Ygq
U"3B9_vXA)HI)'LIOys\o5J_;I#*'HE/)\%sDlh4gl6^<,Ul4IF\NEEYXtQFmlP6e
U"=c=Zbq#CQm[V0myMA<aElX(VH]B0.73g/fe.+GGRbtz<[OBY)kPgXuML]>=cke%
U"Q5L\S;p+l'k&5.$/%\G$H?VSD*CLgB.=FVNhR]/.Jgw3GWI2hbL4CH8IpAPijMt
U"NJH:R9aMESj_)YI*d],zh>?.[^C8%G&31H\'5%barC6VCLhB?#4sbb(4AT/SU\,
U"O?(-WetfRD64D=jh<OX0N]zHh>X_lGj96c:4d>'HBIvA&hYmdJQKnVUWJ=/B$ZD
U"#'LMx1j0Qh5AM[4W9K7LY_87O]HkB0Z>RdI3dpGT);8HgrpadB+,_H)A8f2lsF>
U"bGr%S&-^f==)?(mF=H$[zWE/DJC:GficxFZ3r^(z#F)[AL2Me1V6G[+SgK^#%CH
U"m</sbsp7)fc//a^ig1)SIBXqt4X+trVWE#el/ES;iIC*Hht2*'ZfZWM\vLCoEU%
U"<%:$NcZ638^j%YpM2'gbp7SEg[)MS*8?hW*4H^b+X&?t&FkbJ$Fo$hs>:FK;zZc
U"[wX=aw&RF)%5KKhlCk>CK1xQM7ovHB*dR,WXujOh-+]\1\j=$3=6AeV?PHk_#F^
U"]5:S[E39i'(iUWa]ee5ED+0L=i25:t(nMJ53EvX3Bf95%$6j2w*+ZDV-B$MAv:H
U"D:Y/tW's.gORRSjQi#3/q<b6Cj%05l$C7JSVl%sC2co0-Qj-RaKhC,H^D4M'[kR
U"E_/to(pMKF#16Xdmq3N?&CkWwYQT\/$8g;w-L3lOY)m2T1Ni8i^VvYE^U5G_Gc=
U"p;PeTmV%\ygMFbWwh<X6.,Q:NdrH4GMch[L*is0w0eYTPgWuVlr?DB^z*ft#-tQ
U"'7W;AvjXjO/h1Pmb81%;VUjNu6RJCSy0r/nnjgrfY2jtV;x*]fPyMfUZjt0H=Aq
U"5\O>e+1-$&QZh/u=Jc>p%*B'yy=y3sUrq&l0Z/=r3T]K3e?8#u=rFpA3bWVe=-*
U"2^:GrfUID>L[T(okWY4ZETzIrVe]nxc\'=bMx.8EmFU7y%rEF[]r$[_DR8c6\[<
U"K59Ilc'8HqRVllRrrecUbU[Oho'dhe?3dWEq6H8NodU1fIu<_=db'HaUaP5_Gmv
U"6M)kprK'._=;Yy9Xi'T;Hh?0Jcf=dJ_L+vE.VBZz,5VAuDb80Hcn=MV;W#nZneq
U"*%k7dpVpAuIe,eA1y,cCnb\<8L:hgW9:)7ny%tu's9j=8>Ys]dJtjJ-TTAVSRXM
U"\;)1PA/>B,ZZa'/8#sQ$9gdjr.*i-w.U2*gAD-VnakbkqTgiGjS1qjVFN#iro;w
U"KSk/Gl+07hqap%/7;^cE;j1rY/i;A<[[/aqhU5YIGTWghV=e$1,T?T3],pTqmSc
U"MDJ,NQ3V:p7(Ro.CEiVSt1>=-R78F_eOp4*K2M1;)\[:;-3K6v*l[bU%(2r$;Bs
U"2-_Y]0[/Q?HL8Qnp,&37OtQsO91Wt2(PEsgnUYpK-m/uzY]*Jl:<Kx964)kOFL\
U"03q#piN#'S*SDJj8jYB,[YJ:ciRfHL)Ie=j4:l,Nu8OW&loOG%nnHV[eHB':n5)
U"K*;C&B'3>6.[JA:3D$#9p0-Ic?:Ec2h[>X>ml\NxK#Y=c#%O($IHur.vPeJeSfL
U"0BI:#D$MChG/Rmo*vTWhDj1^,R_0H1G.nQjGusGrO)FrnBLqkvmBLrq4vUUYUmB
U"Z>/K7R#f<,q+f*53hf[N['L+UQ$Nq1qUOm:(1ez0L8bG2=KgF)BvrZU'1V=SpD,
U"]bZ*Se+58BI]Mn*[p$Y5P)gbaz+'Hr*QG%80B+zvWqtQuU=*tx*Ha:Q?;-VGqw]
U")(s2P1j_Pf6uW/[8^t;j^bsW*2<(YjzU1EmntJNDeA:&Mg*weF]nQjCxFEzLo]^
U"PP8A]^*Ji]u,B2W2M:j<L5Y/T:M<gmTeDk&1P_o7wg7GpVVvw%Mi?JVgjg#S#N-
U"e+.7BD4x>ln3FU(un:89<m202Np\1ewreM:34Vr9EtSNE]^\M;T;sQ4xY%=-pZd
U"hM<4>:R8=#qYaEaqy5epunwm#:7;E82+szz/K?kk(>(stI=k-2\w]:qp9d.*bq?
U"LFtSw8GQwLD%J<5Tu$*o?8Hj?A)IWrf>4Pi.H.>VC>QsIt<o<HiK^Wl>=XO1sYN
U"Jd,;u<f3\52>+R[<$:xiwzNKXdgpN%cbcb%cccblflN#E#V,vnVaZmHai-AtHkZ
U"Z%N,]a9gD7a'YNa.1F]^4:so=.RT/(v?#v8%i?R'US]$js;sEUdiv>-_$X^^]oj
U"nxi,g\]c#JaeoMNAG?YKABk/AgV,<uxHnFDoFp*xN3](VG'[d3t^s-i>83e^&Sx
U"]pWgfHmqdO<fZxi(3^tt=]BhtRs3ilf\'au'xhEtAD+So>y[v=-2[)u1?LyN]Hb
U"^ghnkk=#]R$mO5M]-+C7abTvC>#,AKd%]MI$%;3n])9qmML7eDQe-:jGWl0xf\(
U"h-7*'HNDAsD6u(3<MS?,vJdc[_abqCCYB-pGZvwX&$ZW68lQEntcObuiaqaa9Qd
U"fJnCko]1t]ff<8sp,fwNYm#U#RW[[\&LQmW*8Y?[_%]c]aC'X(U*<Rh9O<5R)r9
U"NhtalI]IpCViX50xw4nA]]H=-BlTixIWrPVIuL8;\GD]MR6MifWf[<nR_*Phi)1
U"K^3p5jmfN\p$w:j<b.*;.T4H.%5=o#8wCmTQZfcf7d_9kYUo\Kkl?GF;koVsdT4
U"^8%db^a^'kL#8'+)A&1Dez#(.&n+I*c/-tmT%#,qEKcxiums>IU\b2InaOGQ=Pm
U"I.nbubbJ:+Vm%E_F[RVch8'O:4pJv$r_FJ/gaj?.=Mo5M]HLH;hbx%srvwqr-Ns
U"kSstf5]#Bffcq]drr8bwDT\xefKX(QNc$5D\K8x7:RiISnI8^o+np4[x/f)N'f6
U"?jva)ifhiOx$Np%T_u,LXd''je<'J4fPAW7pOV&o5EFuwic^HjBNCS1sk4ux(IN
U")ofDBIA8mrG29hGGpV7Y+?a3,%c%Z_fwT-_0vFE^^yxxuN;=FY]%CD5*]xTvDI_
U"%lm3Zqq75zi=tDba(f9:wfV#nsjMsE?QoxBxn[9zA9&^S^A8E-c72oEvlnWCA<5
U"F8Ni\ipB^6ixku9H%NksiI6tgA#nc55DE(5msf,Z#;mpIzjp/H6AKB#EU3vPWwJ
U"sF1M3.Rg>a#M3l^]o9cotfx&9D[fss:gsuGV$e/1a=Dwn)t[WZ^C&)c-k]8Bg0q
U"Lg2OU=QjZ\Lpv)V3QFtnPZaT^F]r'Jc_jfd%lZW]clBeGia-j9.f9c[JpeN%o3f
U"NI]vLNa.q::Bq7('hTt3s4xti1JY^hgDkkm0tTPUVYsXfcVs=dqHIkvOnxO;nXj
U":]k=P4aKNLq*Naf'%;(r.3mdkKcbEY3<5c:OZp[<?FT1FwRm<i+aF[Z\kM'VNA(
U"Y'GR.o=#8b/f)x^m1^EmZNP_9.3xT+&%v%fqdQQ7(E-b;t>w'M/U'X<:>XQp].^
U"8rCLwNbQvzgVzhH2hg>9rq%PK%.E2O0M.XC*bR.^'a'#xqV9UxdWr.jB5Ou+'R$
U"?)(dMT'^GQuKO#)&Q''=z35R9&:QXnhAqS;LQB[(4k5m3wAP:os[KYkoZRP<<hs
U"%>\x.qmaB=f&iU+=QqrR1X4Z9mX60eE-mG0K)93(;xCUW=xu:s0?r'F%,N)h*sY
U")V9RsTi'RVAO\0LRj#%q&jmOj:YC(cw(MR[r%k/.T[8/*)oC>P+9,Qn\8/%u*o&
U"$Uu&I7;v_.V**M.Ysjm1'<c(7y;^E1xoI;()/G,9A[u-,Y\I.DVbq8CN'Zm&Q]E
U"*M#wco7koL2?&vYf1Wxi=/:K*IEUKui.-%tuR/GGW%NDG27?x/X?+&+y1$1Zm#z
U"/IWQ93Gw#95q33myXC>Yk#?ePKpuBFia4OuNk[^eZ5IE['j7)/G-\%UUHwD3TI/
U"(ucHhN]kib$JWnc&YD5MCmG9R;aSYW1u1G%+N9h]%,i,4;]d9ATq+[o^Sk$R/4e
U"deDI'uEC59SGUm3wv(dOWMI06Cy,N^hg8CZe[]99Yl-8_fxaAcI3A=wTVh-8)M4
U"v%[?)-vro&QD9=l+ny&>..lVL_(j<YD3fmoqB%BUz?,>$,YdnYJ^ppX[bF3LKIy
U"5=$?9K0+]f6+$AA'9Yi9*Jl29*%x:&l_mGO94ef*N09zTU4N;jJb9wSV[_ir^J=
U"Xd+DOoSFs0[19UN4TLI&&2-_Z<\S^9D%8nt,8-Z_/YK%#g9UbE*j8([5K>IiTEG
U"j_sgf4[VL6l9I7KX&]0PrhRr&Zk[hGlEt=VTTjR5NNXs4kgAFC2Wki8i4HYr,c8
U"B.o=[u6R;WRXR,zY3U$Jk5a6m(^j1'yUIb-u7igI<Y&JfyjhTHz17]DhQq,FTf8
U"Ulrmg,l;eqcC+Bu.o8o'oFNRQHV9M)>L$ea]V)h^'q-%;<HVEsX'A:ih892Ii0r
U"z)RIf?%:uI)&-:CF3)q^6p+&m3Ww]T<'%h=**d?]M9a,)4FhKD?YG)N#K[/_?%J
U"&147)Oi0nm?6n\u,2(;qDvr-?8$5Xp+O=(e\oSN$oR=Q=mr\*Qg=b97+ZBmTaI6
END SUB
SUB V2
U"gbqUs)v72yC#rvUI\6+?^68G1'0gY6]wOMIDEjB.L_4F3&K/OZaF#oZXTnBn:9C
U"RS>IN)nGmK;&Q.I>\nAIWw]MlIcqgue1gGqmCB45;R+<$[Up;WlJr=.6T0ojN)m
U"3[vokeXtt\DFwlR*);oq^U0Wn:\3tf5k=tY2&c'[w7^OiR#jFtGi<'nqv)[:$G#
U"%#+B&DZRx>>(VEEeP(vChq1o,X$bI$m6\(,3a086Tubs44f5/:[,&ui*lZSntGl
U"Y<,iV-FTh>2VUlf.Fvs3Um4ARC),ls:%aKTCE#DF2(2mx#d6h5F.cgY/soT0,T.
U"Yi]Q;MS4ch9%4U5<=EVs\VS\_ZnOmJNFRGvRSy=4*4kvtR?<5:j-txFDi\<o;UF
U"0f%GU=wZI;aoZw>BWZ>>hhag0,\C%0y)#Ef,&1VwyDZdFK[QGkiCE/xhP%:%lUr
U"au6n9$fjee7.x'o,RJ>094PgiFCr4H#2LR9'Qm_YIXB'hLCO=QD:3_HQ#)3jnLR
U"*6A6E0eN$^gkGs%r$TKPaC/RLdDd#+w?8g1RGH2'NbC0uKuQ9'Q;nepptL4*Xh7
U"<Ltsv?=rt?eT9OBb*0U8xGw>wXKKF]]%6dIKHRGdu^1ktt:6ak,$V\76p+)VKpS
U"=pX+BV?H[Td_G.u/WMW>rE5T<7eg82;O\F+]nZEIR(:v'/TA83(]niv_aX59C$x
U"ITA-lkkQL*BxRMBQq)Ys,9Dg?\^fmodltbJwq.sWAJhmM9'4tYSv'Nlp?e)pdSf
U"ewXFo$ONRPTC6[fFe4Q?xkPc-<'#=ljYEQI'_qN1oFa)jzRHsn4Bu:szqZT0H+3
U"VOTUzUH=efTpxU5i2]=-HA.C_\t$kK[OX_KfQc2'w',r=UAT8eD8#.TPl/NEP21
U"$JV3Y&&>Tw+m9'&)3'_CE4:1-_hV';3*A[<^9]S6P2tFzbv/eY$S_4;Cb=7aGG'
U"]b]dDN7mljs0ZA+'>J-lt^FWXn0Bq6fl]*d;Xnd;ZC<oKR=XM^ksDjX*-9fZ.DO
U"3//83MXlQfC\6%^F>uWm/$(Zj%>IAt#mif0=eMrN4COeNYtgWze954\FtYBaQ/c
U";6kNjwb:mnoUZpRBr1hm-ionCbHWfE?3=UPY>tJrayH7?Yr]6<x_l-DXcn-<FN1
U"L,+-7.AR:<S>1iMle^Fy##qI2e^,gdUJR\YcB=gGY%:X6WFB]^)[C=%11]70>-V
U"d03;UvD\cq.D9\kYMa(,9<l_lPi1*DXdc4YhX#H]Y2Q(Za9PdbNB:ZdBE'oao;8
U"e$aORg+*+qB3iz]1p3(J%DJ/%,u9Ao5Ik'8(>lXl+js,7JZQlo'>6aK5D/D;7Fm
U"Nq)uUzZ4RC'(+zFuP6HXbl]2'HHARPPQ'O6\xL1<lcjZ3DYCsT$)%L$MgO0B8IG
U"uDvUQqxLA_S*%aAmc8qcwZ/B9RW5esAY;;.Ga59X-=f^53vFt0Df&/D+OM]C(%5
U"Mu,bh:s5,ghEeOJRY8k?U30PbCYm1dE1#:\KjqZ?:Q)K749K4Nv5DIXN/_r-IXI
U"%Y6A_OT5)T*?E;S\g(kQD,Y/cBBR,b+BxZH/L]()?Q'(m)_%)+_F%Aa[&sA<BE0
U"\)7Ef15O8]._)+RpXQ>4F^u=RXD\hroej1<#Rc%O$F(xUR57)6hZ;WjFvRu+Hk$
U"-O_sp&a%1K)ecSM%-L?uba=(<KE/o3P%Mls_/TK7pJeSIWRdEgdF3dzZ5.&eU/a
U"%g,J)3W%EIi*/V)TW%MRj*ZgVye9(Oo)gUOU2q#M>K[Qbt%9HEEO1Hdrx83f:*1
U"aF9tn*E)^j:$bJWGP9)wB>FJEb.FXwY]_JFHag.qUKLO[h/8p4KHhJ.%?TT>0jL
U")r*sB0l5IHA-c\RtkseS+&M?M:D6I[=#_At=xWTO63^&$c+j(6q7;8AOAyMP09?
U"ennORnA'MYMqS#Y.GC&%G#5Np[a-m7OqY>:Il%vrqOYR-cI<_VE+QU0.c.1IJn.
U"2SI-uFs.1uL+HdhIrGWB5R'n8$p]Z[>WGJZ/oC$IT3lXRJ^#:gHJmT%UV\J&GUG
U"Jx,'Qa)PxVT\YO>T:u$[r1gU_825[/=HRER3+JYq'$j*iZB,^si2]2I#9frB&XU
U"eI3k2)M=^^h3[-Y&3X7AofH->gU?U^ubD#]$X3#10qM?Kl3&+UZOkF_-E<pET_[
U"02U85cUH\mhG5?5L516=C4/D/u<RLS1)w$9rQ^N9PS$H=HY1J?+Qo0kOwlfWocP
U"*<oWkpgpDYDJAUO#NdIO#ND2/0C=x-_uCYY^MoA_^jSAjMAp5_b#5DrpjT2:qzp
U"Dn#]PhkDF()I\fd?b4bkf<S1=ws7Clw)W<OSSqdP_SQJoVCcENyLrJL?xL^i8MN
U"+5iwYhc/L4:Bb4Bx+g7F,9W[s148;hh3=,-*N'\X8OoJoVkDtPYZM8M==EuKkUn
U"zkaLR8BW(EfTsVe<3)dvESYI7(Sw+,d29<8W.\6V]nmN:;M+x+j-9=^=tA]vGMe
U"0h'WMuX?Ue4B$E+3Woaj/-0R[9_QW;[PWV8XL_smW>k?w9IJ&#;WwcZ97,GxqUx
U"^/]Mx7IM(b:cQ%%M&=oG:g3Y:M;gasSYvvPoDAQU(Gs:f&*085]3E=<X=7[S_wT
U"B)0G645#B+D#BqLEG]f;m+f3M998wLC+W$tL)2w/#YS'+T#I3_cdKvyQ)h:)IAD
U"5#'b1qyBQhU>e3%GLLR8RCpJWBj3s\1Q;If*5\&r=>\49<iqn(Cqt9Z#-Db5nAU
U"3Uj4c&aqh9co#?+\,2sr0#GEDAA8H[I9+#6uf;qix'k0Jc0vSXF&R]oU.VQ-t7*
U"d]hT:4sTmCh/8N]=t[V6Ye)7KM3Q7T4&:Ese1s4#n2Qq5+rR-\hPmYl9X4g6JtK
U"V0lo.4hTqt$-<vvn9)0.N(,[OHZ(44u5,&;';r$:a6]lpV+8KsKg?QzGLbE;MVb
U"T2,T4=5qF6h2e\SlRpY)46jST;t1$9jCTcR#ilj*kmTr\am5u5K\c>6rk3VqFuN
U"9a[PF7s\<=+8s5X?,C#GUP=wB9'm_S0*ik+z-6Knfz-j^bnz-6j6o.7Kk0S?==2
U"[TM,hm><sf3[y6k>H%/AcMPMA:RM:#mOGsb3k*_5[>1M^upx)(J;*uJfe&)o84p
U"Gcel0uzbrw1+Sm6n%e<;d$VuOnO0a#&dn8_L3KLI/Y1A.7vudYK[4WX7Wo2GiVp
U"tRjG>b<8>)j:\CPDnrTs,id88THO37Seo2qLwS6d>x1K'KwGX0%V>n)2ts5aO(F
U"O(XG:B3d1op>YD*)+9&RE,Cfb7&gm(n>)(9/rQ*u\_^5'gi,Xpj&D:kXK#[)0?(
U"$[QNW'LBbC2rcnS6t)vKYyfX-D_]gGDfF+)plLPp?[^>?Ck5QdUcugjXEXg^F;,
U"E.WJr>544ZCP+rhT*R<2hACK+)O3StrBdwaK%4(B.>>s&SqjStqG*-*Ydhlvd>E
U"BT=)N<i[e>bWFrvNoDb8Jh-\W^RFH])s7mLY.uZ$jtZE1dG[b?vq$2)+%8cZT>1
U"\A+T7XN[n.S]s4's1k7MH'/v&Bd1UuNV1GNtX_vaRFGhmpLY%SEQ9.JcEU[c8a_
U"I,KG*2Af#6h*3nT,wb.Q:)Lp7o]g3iW'1&N$/Ax9_UTvO8;$BEo<[u<qlnsu?#0
U"i'vgLf,T&kO\3*2>VHK_V$E>Y>?#c'A-*2+uY.6^7f,oF#t<YtWsfq)',s6TIu9
U"DdB(z$NUOeyX^+EOTN*E:QccUOIAyGWRZE;3+45;aGZ7T+>eIXVZao9z61uVd=1
U"wcG%t'KiOsEON2p:SEX^m<amnrepk:gB:oD00f]'Zb58H-e68-VUf9#DqB4b=S3
U"V??9j24U0?&CRByn7,(2Gg$Qy'^RRS5'*-ZmRVRw#k/ZbKEk%fZXI._m*F];g)C
U"NLIW)k-Z\;Mcngw^_/wZ/6q6YOA#lXQhGpOdg1zSTDUsH-SCa#VqW>EU,M;]v=q
U":rbF/Qf*O:zf$p%GICcrR_QCkdR1fXNW^U=00KX<.O><)Dx\T2>]^2%dz,<MgE*
U"Gsyrddr6ETTh_-+c0-BkxcYC?1J[1KvUGVcFgq90B4Jg.P6PEsVDfC;poRkGLXl
U"G*RN\Hw^eEBO%jaG:n'T)Qz-bcM\U'-b-O0NbBc6R5o+S1GfB26mkp[a0Q+U=(*
U"0jYA<fG^)Vf_c*$u96V''0&G)8+v$)j]K+#uv4?8JH#iNa2qO%BZ/eehDq4xCJ<
U"U?(:Xe$%,&\A4RGqYV.dts9KBKV9kqfYf3bf5u9oI,o*$-O\?])NG=sS'gW_l0<
U"W<gd+iL%VpaN7rmva6sq?Evcl_fzdsDXk#Epf\6rPfuthYN.joh\utm2,ZX?hrt
U"tSf\$yq7O]FZnRFjZT0(=DMKp^?$P$\#y1VZr#Zd:kq<mGa]q^xj$t?GfB8Vklt
U"fTGosRH1g*Q6i>[h$dH62cN?xo.'j$x?wXX$al<=#o&/GIk(AsTc+_?+<Pm<Ai[
U"E_Q(-rU-U5VLL&0K4+1>LT>MKhDua(s]uNF6T,jDm(uYe'e?=c#d#wB[9YLo4+9
U"=fci5GP99D]5<Hf+_3$)D%uiuvrp>6ee]o2WC#.%hy:7Op:u[6dhd2WLn?wNn^s
U"YefRst$=k-rnUyReSk]sq\XfQrHk8>]ceL*wM<otmigNlf^VPW5u(>hHD=HM>-B
U"o?PP(fuYhH(^f['q6nfdk$jA-6iln-XV+-xOI?;1)luVkx_CpNB:J99PRihCMlw
U"lzZYawZr#Ga,coPd58U-7D%#BSWy99P:&WMeanH6\UYU4mpm6<j>rG;5=%6YnV0
U">3wn2tWju$<Po*hb4l+T:ezI>tyGTDTdDXY3#ZjD2.8yr*CF,-amhZ$uxcoePvD
U":/g%i*d(CqDenv43=bTWJWhPY+kWhzd&c057Itbwoo.O%HTtj]u_ZuofzG*G.xa
U"5SMJ\Tz(CZO1OCbeWN$7h%:dWXR+lGpCf<I^1WhsEWjUm#5urs$IYlg#KVca*En
U"Zj0;60?(((cB5+O6tsihWWkv883Fu:(YcKX.4h8LBLvOzj,&CSNfwZq3j?\n'T5
U"ECoW6Dtqk76XI$qP(vM?BX9tI:8ZZvFAK$awfW]^ZMqez4f0Lu<;wG.<TCbE)/(
U"HGIA+1jw#3;Cj#Nt-a6w?e<2s\Yc)*Z,d0NrO[nf*NJrVj+xCtF6+J&Ld,T'#_d
U"#_BP^O)u1].wDF]/ObEYBxutbe_URNtjFAMURWlLviqBLrla>xc8LkX7I-jp2B5
U"0VJRsyhuVNdWop^#klwlGI_5&UkCgHuHDtA\ZDQ]pA,Pr0nES2O(NJ(#,-$6)Ri
U"jqSx=H0(ckhuh_^9f=37XK>,;hNlw)lb\OO>EOj$)ou2uVb-5$4Z2qb\eu]0&tW
U"cSrGhe-oCFwN)rlr'X5kvKcushVrPV,FAhWIJnqPI$rZn)?\$uXvYI1+1x2ffi9
U"+SZ42pY\T$F\$d,pOJjwQeoVFhy.+xR%hRV$0>cucf&KNK4LO/X4:I-lW;ck176
U"0]UAmV(gQ;l(n=T'(/?_FJt<lNn?X-*o9bqAY\n.Bu:&Diqb'_X-qi>'.F^eU2&
U"vpn\hEfi3\,i=17165A[Ii;qtd)9(;S3h%AP&UcnLSem0RRE[qoInB3u9GSb=(e
U"=cQnT'B(+.,>K1KQ<mdan#(gHQb&i\MUe.WmGN1A=\q,qk9^t$uD\WaUF/bHUNr
U"V*)m?M,uQ_s>);#)R)G%rrcJwY[ftin2M6%ktS0UFYEFZhg7:C'8&p.^/Fi$i<O
U";(Gv.I11)6>$xo<3)ED(NLIhLZoLNVN9aS<XVv6L+Bf5<CDo2MI=yjzL69BtZL8
U"5rPDB3$F671:lCVEqp,pgKI/l)k2RKa>73>ZtOV:/ImZo(;)Zf4YXd79MVG]\hR
U"SRIWJz4NJGJnS']]jIsusNr>urRrR_n0tY'x'up%()9%%%%-%6m''PC&Q/,%M+%
U"%&?9%%%/%%%%ynqj%wWSxRuw>&(r;8lU9M,E]53IQ,ys8i19>t;RuTFtnQG9THo
U";&x8w/v^s9a>[(uXAoNDP9v..7&S+bn%M2fwdO0MxtkGXX]8(utob(9#MOak'%.
U"4z*OOnU]W7O\,:J(\EGLkosF7u0htW_jh\,W,*sSL%IlSd4e)#eC#ubs2LLL]3Z
U"b?fFVMNfbb%(iPDz'<8_U+_jHJ)RV4rHKAn>l(K?8kf)/H)K*C+R*frvaX9:mVc
U">9U;O/8:T=(Si'PHe3P/L?=JVg1w-m28E(+ZrZ=9W98?u\H-LpxVTR)xPLtIkD>
U"1G\a^+H:3b2T\7s3rVT.fJr^K[6nM0#cxK[cTe5R9n3#)*;q<q-J:IgrD%lIxGR
U"QUqRc[mNFq/FOS[VVUD12yGg>fcXBKJ>r;zLN/EsBo:g;lkk$jUJ)fj[%LL[(/S
U"DK=%(aWMpTPrdF[=;Ji&<$Q.m8e666ao*,6jJ52mnYY-%W?mwk9oQJ%3^Dg:)er
U"C>E0)cuGFT[Ro1gf>u.LD*aI^LV1vb,MUL0MWNv$(*Fq;C[hX$6._Z)^P%vr<rV
U"*1&aV($gmYGBagMI5Zu()VWA?,1b7Zu;A4YBxx))1ASoY5Q?5'QsDw2j06HWeU7
U"mq6E)^7>qmMOCIGP/v<zJM'>Ndbm.%G5^YP(Igf)Pa0O_aC-'7m^z?.s^-\x;#U
U"qpwX1o3?ORRmS,IBF?)UMZG.PFEv6eDkL1/r#[mCz1I5v1zlOe1mo&a1Tw&J:+>
U"%+wE>7JZCWk1X<ShF>btCI#QiS9FPrI..+H5)OPYN.*CfbFL)(B\#2b>p*DpHia
U"wR[s>Zhk6Y^FL$nQRF/Gwu[zTtd/Z[uW6f]'qAoTXC).Z$65^oR8J3jc1Mae%6P
U"-UXGH4iO+bC=fPm_PtjQ7$0lFNN)bS<KLe*dxQM(<cy'gya8(i[,g4mIaP;PUUY
U"^H4i_5(fC\NLE:Pb[)\P3P?nGwuGPK&MKa8>TX1Yn/':G2GZo\AH]T3e.c<mx3i
U"YQVd5l1l0xa-<Z#X05dT2MgPm?Vz$)b+bC-?R_q8ZlSn#9jar4x((<5Em2?5ojO
U"V;u+vUtm3Ejprhir7%[4/3t%C,%q-ia?KS5(*1ri17a(aGqN5_NHj/$A^(T9CkF
U"ic$DKPOZu\mr<-OkLir.6?_(e<O1ZcK*ILec7]XnMQPW;Q^Yd/Jw>_[cEd7KQm%
U"BnJ>)PY4I7:ccV0\SXqAhXo^1_+l;;%/d%0eCVN(+lISq1L;<ltvS'9ggXFM[l\
U"KQC=YViDRkP;6kPr;LEs<o(t[n_2h4HIA]\4PUaNXo8s5pOsxVV8-cfuE4R&NW<
U"N)AWcV:(-5tNS:t8E,NUJbGA>[XZ$.R)C8;exPruJ[MYFv,G&DLS$eS_i3,5qyi
U",zoI;IlW?5'8Ej_G[pWer8s)[Kg=Sb)nWN+,l]SIjLU6scZIp;32_+*?4^ny*_G
U"HZq+9(ZTD#%0Nsy?tXXWIYZe)A<1c5fEP,[JmI+*M;A<f:V#.LiA^V;9qNRu8%m
U"riT2mp$3.hY#m\$L?mNIGZp0)lg4ToFhLfk1)n%*:B2tUK3,*%WVx=F[R,flaw-
U"H#)]nF+XPIK\<>['m9+IH%\N[x/yYf&'#rwMEC[sV[&p\'#9)0f&jQ__#c-EB4o
U"92f[oFn0ngz,.R#m<qbv?l?D_5CWd*cYP.(?lq8wZ<Y5Ia1\m0gWdL?ZcpBjCsv
U"U?n(e+'9OaG_0MS?(6LF?t/I]\d]leCjB(+RYVlC).a[r/k/(s\[ZQi74h\BSNn
U"Lc)61<3[Yxz*+yH%c>;^C6ihgWt3.20UgAj55;?;aN^I8'_AQaf3&8skg\1U:R9
U"ayI9l._Q?c_5.0mR[fbHq-lGc/b<jt;ot7])dM)&3m0/O1)5yQ^UOHYk+$w&/pE
U">U&Roq6/-tzuNE_sdyEGVdv/uaOBcu_E*dIqRP'?HFjaOzC*Z43*tAZMb+'Rp?j
U"ITZ*W5,UaMU4a/g=G$NBnCH1\N8J$i'QotMWco'r4up%()9%%%%-%.l&#P6thDH
U"'<'%%%E+%%%/%%%%ynqj%wWSr%fujy*DA#Vj146?n.2*B.jv>IPb6sJlmqgBfh:
U"OOl&P2(B=\&Atqr:a0]0q0KRB'lR.imK*D-al$$>CrTFAunuAc1xlLt>0ovavWq
U"-ClBuL(E[I<FZ;Ie?K<(y[1>dN%lL'Zge<fq>ADF\CN-R/;5Wec/nBU-l(onvdh
U"B8CW4=*_w?cNL-0cnugkeNIXTKkmLhI%NjqT9/DI6tyco+Y5EgrUJw;_=$7+X#S
U"+;sDKo9xd9xpD13zmw0UX7NkDw/]/iDPw;f7ASJ^hy#._:/Ulg[hCKc%kJW%CXH
U"rLrUCb15M#r1R7]An?qnOVmFJH*vEG.pBc:kJf%aXQImK^09F:,3m5wtwWY4%ZN
U"dD)0H-Hm=,_=#?;Z(\VEw6H%?jS1O?S\en*4o?<RG5/$I&Lp:8YM;XW=?.+rGU\
U"fK3Ff?A,]_VYsd0Bw)QWLT)I?^,4&X\+h5;62dHE/Mon?_[KA6gKElP5'$1ezgs
U"JX'7ED:&6K]AX0AYp\/kcY1RnqOr6Y0X,TVbhl0S%)FM/X?>xGhOk8g2usL;DK?
U"<UCsa/m;umsG&ptYWV9MSrp1r+.<$=t4Ghsa&CX)UF1)MyS)qyy$DHPMaVqub,t
U"fIM7kWQTf6ktu;8K=&yF41:nDHMt3^qSxIw<l'-x0CVH$KV>,7=ME51RxLFVBnu
U"Kq>*[oW]CtcS;CcC_.NXH\JLjf-hEx_sj,O5UpKDuM55*&y\G6-_Lv[_Yq\B].Y
U"9=1,l)lFtC<dYsM<fVr[NgqRn7G5>81RfHKYzCrp/*b6*=edompKGZIrh,m/h*N
U"ZN7)E&=+RXB\J^nG5+2DIrp1]9]0,pDJT^?u,'<yO2:IOi8]x1Yl=xZs_0=O#/(
U"6nV0V?94'gVq*YBb9BZMKnCpBtfv%<up(%)9%%[%-%oC?BPqbkxl0[X%%;&v%%1
U"%%%%y%nqjw%WjiS[gfxV)L,x#?2Kibazu,&JfaP\Y0$Dn0r]4X2UG21[,#=o%Gz
U"(C)Qn=4lHQSF*t233SSr^=JZIJ$fS0yqY2(3*<K7?[o)D$5otcR>hm$)&3g%zJr
U".)k<hN%h2;3MhQl^QMQ^.e=tt=&tcG?qBZXsses]X.G/QZ/e586C/4B4(;CH3<U
U"1PvV-^,LP4^$U8=6?_h<hZ/LfFH;L&:K/^i%I=j>Hc*R>0u7?O5O,l5MXFDcD$w
U"/:q0L[NMlkhuqD-b>zYzkBDZ^LCYhKy%^Lx2L](o%OW/8LMwD/zO<:zt.p*cxmt
U"Ui5TG:Un0pLu\I)'$t^8Vm+w3d?[Nk8EDE<Ljhy%Dwlx3Q/lyYYy;I)Tj]F(ee(
U";.^Z/TDBEwno,)'mqY\2raR&gS7:cg0]p1cQOnm#'B&.1(DZ&qJe,^Dgat4_wAn
U"mW,E=?.fZNw3cPX1wI+&>X(?laZ5YDF'TGF8m+('oR046QYNs]uM=)k0AUVh-_4
U":Nw?8EY5,O9r(>OCIma0,q>;K<-CsK(f-K:(IXX.55j.Ypq3GM5=C./lk\h#KSi
U"Z(,e5#\C=SD%Z$S%SPfA$:NuEeEoIAld0c'PW&L1vLl4ORx6O,H*Q;b4jRNX$Qk
U"i>nEr8bx[jj^Xc2rW3.Fmrs_cm_Lj2ZXhmQ&I#IEM/Ol\h)b4Sfnk<LM))z;V3_
U"(IhB2zFmORo&DxOR1tH6JKShKA>mryHRGhs/:rMiluDHPbHf?oH?bZi\oYS.Sju
U"n_cUJKNn4_u<SAVk6Bkh1MP.MnBq_G7TU['R>9Oi(GPP0EDtAhHAz?Nd]HmAlf7
U"D#'PE'ag)u_1m**zo_+IpQPC[a%^ezEOjn7H6EhFe_qM9)8bfI&l6iJV;&LoO$k
U"^44EtsNVa&T4s'<E':YQ0:M79)vJ=+fOBhwqlY,oT45eq?TZp6j$eJV6:FkJ:OF
U"\*0aDjD+Ei(8c_1hJl=xg:go.ZSL.orHI::jUD)DUt*t0p93RluOL$V_&Vq54[O
U"n[i;LNQO2t;mGrVdX#Gs;8Kq'v5K.*Gp'sM]-RGIW6XlZw:he(Xuqr/i3VJkZOU
U"KJNL0<nI#Ym)Yv&09A*Q60;?:9U<h-_hh2ge%B$<bAQ0O:TvMl(p?9/i$;T8[_5
U"'(s;R+t8N[mPl^vzdfdWuFCTtr3Yg,(4jhiM8I9)30N.VAQ#b0F'x5Nz#j^pk*W
U"b-1j_mEG]gEaZMgQRRD/N]/ul_Ln]w'Y'rts.E.v)LQaq&;kKC3Lc<D-9s8]$wU
U"fa%y.(L:r'4c[NeQLY3>X=rt_+DT7dtYu0eSO8cLc8D_V.Me(.s2aoRFPxMgkl*
U"YII9th,t5x%?_%sRn0.M[->gTogV(Kl+-jiBT=SnM[/SWjsNJ_Y<-S/V$T\=MH[
U"qHDT-40ws$A1Lk=tt,XU^R.e:\:.KLP4hPNxBieKP#kyIg;;WH0Ko),q.?VE)XK
U"y6*GnOgrFL&iw2\.rd:.FCWB2m%xMhPIc*miX$mWy6JtI(ap+j+kvutWY;HlV<h
U"h,EXwq#FlEJ0PU#7JGd'Wf,o,Q$io8AxDhB%;/F(?V.PuuK$Jv^c%QKLAcQ_a8H
U"moX.-MK$P4ej,xI31h4#r&)4E+OD])e?)/f9O^N;_JUQI5Z).'d1176q(2lr+QD
U"TQ*Gj^VJqfMeLz&GlpZ(H[?5>8RqRUeRShi\g0M]\;XPXN97)i]bF(V'Q')*Ry5
U"W1jfS^g6ulBF#H'X4_QksG#YCl;d[*s/Wi44Eo;M4e56I/;i>l-Akl&TWHc<L[e
U"Q?X;^s9nfU,F1a(%VXr/#J3*$=:[,oBK,q]MJFaXBj]h0B%/t)%4(#dyMqtt):8
U"0.y.%kH:e;sX<l/#zVnhqB/_yCL?nmq--^y:G%\e?x[J?oAw;MkUQZT>B(J(I;6
U"BR3Ig2A+kQQbCRALgrFy:or##XEx07JOavsQi07Og'vsq%L#%y)LA<VDwVIig&)
U"pm*07*s=nJq$o-gJYVcgB%CMs?p_G:#%2%M>#=9&8h%#9RsYXv07^(jx[OITogq
U"9R;fS<%voW2Rdlc#D>otW&NVQ2r%J;B=7.H>&Q[Mp^G=++_18:&*.IgE[9>:AJa
U"kowNTlWp.8Y>/s#8El1US1k<HUZ$)C;g0-ErDZlTrOyl5PH8.nmB/*T*i5Aik8O
U"seoPl)<R?.S.2;5(S?-I-ETn69\5he'A/#]6*p+CH]>.Ew^b-ZNwXsd\MI9L8/H
U"Jt1i&ASgRyR<7JGp0$<CM*)>%P:-9xuU5A^87oQ=j1+WP,<o-.g)%F=OXnXE)e<
U"RQ<C5=CFfL*_)9uB1YUVwzs1TltKvEilkxIi.q,:.d0FzeN],/tAhd(d7,?czQ^
U"X'^$V;rE/U'1_HiCYKQ&tz#zf8qi+$E8WFOQ,Bo7S3np_Q?.;\l)&.e0vyIL:^j
U"d1Be(S2oUc1P%$(dHOkay^w4SD1O(5SOe(P]I)?0#9sn$ef^?BlbDcxnB1JiMYD
U"LY7;xUc?1er=Sers5NSJ2Xz/*O0<U7y))[s8xv908,g?=1pEQ_(f[3tFaqVigba
U"s&&'I29T&uS0t][m?W9VLvh*gel&t(PaK#w^OJK,7)V-;:%TX*/waQf&v\p;hPc
U"[RO>?3N,r^?q3LVVf^\apaiRhaB9Oa+qr47#Cq7RI1S(Kn#PK*x^DbpHR_cFQw?
U"KkACfS^K\d-[8^Oi6;j^L='82(--amSQG04]Rje)Ie<;S^0)gQB+9q\wM[6gm$f
U"Y;K'+5]Q#3EJPi5[]g6vjAWMEW(y\n55q4\Y&b2HX<68AzNo5Q'.hu:m&A2fP)g
U"e';D&]F;O<my?$c<itGrkZd(Q9,4%qON&X=u5,(gXx8[xhv<]fGE#B]%Q92I2LS
U"*DM)z=,FnW+yA)D\'Nl&-7_NBSju=d.jefoMH%xa\qEV)UutRQ+ldy?YE[],,Lr
U"O90/yW0gdj+q?Rm;]tUJTqjE/)6e41*&8wF%y;q42*\AU2\=TYCYS\d:en8>0jt
U"t&%?lrSXr1W<Rbg\TRPs7X/qJE9ZbmZ(aMPAIs/iob6*3__mhNF_.)_'klf#YM&
U"vb2&?ca]O0%%^gUUIL7ijSyO&mSq7%P75#0zM3XYA)qqLQlHd[4gma2cfVV*xUC
U")kUuc'0IBk<z%=UAkdD2u&2HFgBDht*IjEoes$p%%)2Ih9gQhQqoYlbVdxs&]_f
U"W%W*9CW1xb8jiemN=e;sL$j6QlAgeQ<&DTuj>jWQ\xZjX,v>uoFS&?cFhTs7Dwk
U"bxDk-Zd\bK4ur25B1H<Ut<dE$-RROH=bXBSVbGUAWu+zI7:ou-\Uq^4_Zg-&54U
U"]OjaQ_-auLQ8YaJuM8YYaO-aJeQ8XDaeM8;Xa/FqU3DG3*VzFF0X)$JgTlM4DCh
U"7Hf51RBa-[.ds4RZ7F,D-2V5U2O3<b-UlH<f1%.mb\;o))_XO^%sp7H\Bgtf^MD
U"^]QasPD;0GmGW^AC$-JZ5C-4*s=+s0w$=uhJ/DfGWJ\gl,N((</Z*ZOS14++p<r
U"7QQ4]4n=ILN)/m/-^gZ3Bbb4wNX'v078$PS-F7\](1H2[8oCG\%c8Iei:iBrBo3
U"-l/6H0x-%QctpLOsH$6wEIqXsa\,sWP\77[UON=Rfx(\Rs;=Y;v)7H$e)>a]YW6
U":i=IL+=zG;NagP,y]m[Pl1xb2Z\S:6.9H<.x(?U.pTvq'd]n8'%JE,_[%?\+H^)
U"8=KsWMj:JOP=sDFm;a:x3KUJ\-J6G-\57$FG*OxS>6;j%:AP4zRu70]0Qa^*qMf
U">X-f7JIre%sK$E>FfKO<>FXB7P'.jjYz<GiL+6/)xsY7j2.Ba&R9bj:s=<8Yxe<
END SUB
SUB V3
U"2IOLcio1irj*k4;Ke-;)s_XKk\0eMZ/c(EI>nA.dQ[-7QdJvWPV,'D(;tai;MQL
U"U\oq-pX-P;s%j#/_cplPHu-6ir%uT&Q6J7<cya5'Jd;#DF[6fQ$eid<s'.V\>h'
U"<oT9GQ_wo&%n,:&04[yP8Jo<C#tQbJo9o2%>5-iS:1c[R[]=wh9gTSe%cMF%WP+
U"Xp7/cN/S^P*Q.Sq%QA[[pLd$&Xjo/(<[O\On1KO'/6=;LlIv5+B\Wt:%XYVj+>h
U"27.KN_;rd2SY$jR2j6p6Et<>Pmla/>V_#^,iP,d:Z-_urD'k,AaCdd?l&]R]/Wg
U"-cU'^LNd>x1_f4P*a*7s\tVdJ2YfE9WfaLhS&ff%\(5)&k/(C[jRskYGx.a$(L\
U"<ZSiT+Q0v\oa7TM(y>*-2$\xn?.Nf)r[QF+(.PLWmj:,]9PLdxT;H,i\/*%Ow,i
U"#,J,97K/8WO9Y*UIuO9iFA)LuK&lpD0vmjLQ-$vj<,/$]q\1>3i/)Gc>-MGUu;B
U"GRUw[c#g2f9pAx;oS[,\Q(,E8C2E0M/gHS6kp9GQ^.4C[:4C$6<pCEr<#4T1cd0
U"ah[\x*HJ_)\d18qD%Z+jC]]%Uy7I&ie5Lg1kIqJ1'Ju4ILD:dX%4ZDqUh)&aFpg
U"l'%?AgZw/f:&xk?\[rrjl[:__*:%)aQekV4e[=J7#^\4B%IAo^&\Tu^%WWG+fsj
U":>V*WvQb#u<dEoVFJ'L2s^1huPo9KutlG]UHia=>F0KE?kh35,Q,g/M[,/;,cv4
U"&A&/_[S?F1I1Y#;$*x7AnAb3JI7\+j>Su>8EOn[ut($/t*:&7f=PuMu$ILo,q/$
U"l^SG-c*DW:+-C&c,)w;V$>h9/-5X%5M:%>al[h9M=7rV8<7f%L\1AVlpuO/l53W
U"wx/Y0'=nenar_B,/0bSdwIchqKvOMC66)f.k<2$FeP&p?aFaXD60s/5E96)3dX.
U"/Y<6yp_X^>#yQ+E-l$>n_j#$YnU'ETo0h7A=m?he*2u%&btG&F(hk7[:mrT4^+w
U"G)UD0$[pi3]dIE]]*mP_bp64v&Q5RjU5b*F+#XfIB/3ICGgs24OfTmV(IMQ$]**
U"vRU?Pmm#,Jlj_NV%(4Jj):dvEW*6c:\Or=7l65.Yq0E'+W%a#j)t08OXY'O69FE
U"a**SnF37=aS[G$evu?ks?B'ubkqX=/>19dNa];M$iKh[0hpR+8s3udNmIDaNK'?
U"/)h2B*/+J8:#TOE*ro0x4w>(b'R<Vq0^;>MCu%D[LSnC<jZXX.GQg#((zI3MpP]
U"jVg[&?0^Kr/B788#zZ?tClvnRGbmt77hxGC22%[&>_b)o:jgJKce&fYn.:ubJdo
U"(3Lz?y.X9buRB8?9D]0+R,S%H%9den\Ma[B2#?btlc]G]l9VhdT[&5C'6q97qfT
U"5FU9mJVu[p\\.K*9u,=feu:Z8j%O#8^>TWlDEK3hDk4O9Lra7D(5d<G/=Tw>]lM
U"2ItFsG%X=)h5':0]<cej)#Hb2)iT<PPD)wRNb%DEES+Y\d1DE:L(,4rh-1leCU5
U"03T8pRaf'Szn]6)CA5atc-#,LC60P%]X'E29CvQB7&AFLwmJ/ymiNL;xe[i:C/,
U"9#F#4V=K&9P0Z3CsBk;ickHI8%^8o:LJT8.;Wol>WD*\S)uE?7AScwS))b.JF<f
U"SG0nZn_5'd8gX>pZ:jwBZSreX.^:1(T8V5*A/6+Gx1=s(mv_+xX2FwLEN4gNWrJ
U"3:S8p.N/mC[o4oq8aIIs6I-a[*LxuT\61RGA]&=4'2:'DTCDo;2Qc,)z'Q=$-b+
U"Fb<##i*K^f6B:5Dec\=uh/QF34,qfF[fQE[uFHgK%T%[]kp[tK<rsTuM8#7o(M]
U"YCzp.TP=*7Lxv4&-eQ1EREf$/A?&&]=B9PDYD/-NiL3n-WAp0;d1'^B\em2P*a?
U"<a$]3D^b)P>H4AC0OGNehDC^u,&:%,KMcZQ2]gxC.RV%dY/nf6g+4X,X,Vwj;=N
U"8pVM9)t[4FH,ZPdo.m4WEX'X4H]/kE^d65jJLZan'>[h&lSmhlEW1BiyL1Kj-S^
U"0:+S2T'(nb4SaLhuDW+2oN/Z1'beU_K\VrjcdCv>r)Xf.7R4HQ#t4IS.j-7^&iR
U"Ld_2Q\8[a0fX&K6_$8E4iu9=7X]#/A^(Mq/ie,8E%pyLu86nFX^H_MA:&9sPn%b
U"A4e&A;rEpTvA,ogpWGEMywQLOxyoC&%HNRt8L-]I0trT$&EYk/Du$.DDRSMDVCm
U"^3&u#(vF=1Lu_A<mpO*AsD][G4s%%.:O%2jGI:*r:X0:=fdDVECnk^<i:g'L76j
U"]9]e3=gC2d>l6]BaSEeTd4Sp0J_*VOvA+]A>gCx$/x<Z]a<>?s&w7n]#ydCAp<j
U"ai\^JB^T6&$NBl.;7LoOC7z%hb'4_l3E*XAcLB/+i$D/K^GoC<T9L,ZV'n<9obD
U"hGRDL+;8<<;DE-qMB*1M'0Wqe(G>f8u7CjBL45xfS2X,bWEL(]htCT*p^Z.iC_B
U"Qjke7-^\\enx#&s9Im#/'J+sYg^Z0YYoh0Tqi,IxQ$'N733(a&M.m_o/#)^k1,w
U"EdORV36-F%Xl-U/jm#RQ3W*E93qRb-IROk>'cCA)=vIX4*Q-Ua+2AUd=A)v5TfS
U"&OdMI[f4DsG5CNIm8e?cZ\.vljYk3VPa8LcT4qqpXf,b^+J;ThD[^Z<amecyw)J
U"73GS-B3,X,:()rA9?ODa<OK4IWznvi:/'IkK$Zs\09Z7)fYK,%XZUpjd,q9^o?I
U"<+Wa9:6xq]vkr=c:Ke+AaAcJw\D'XOAJiH7b)v71/.Q,v)UC0n%/)5H_W:Xgor(
U",s$cn^iegif_MQ^&+-5HKP#MBy;skfVcaM<:Qv;lAe)<oc4b7+&de^E/'[dHh?_
U"]?moK8iMBi_yxnKmqmKs_ray4C;5AP,+)Z>8t9\d06fa7ni8d[3p_X/IzV708RW
U"ZDYZC*f&)LSw4'38p#.\RHCDmU*e^Sj53AcYilD+Y/*qz-,1uP%v7:xD7*gu'RP
U"p)bZ-%3]nh*oh'7U*[%1+sf1*S,h<El%f;N'pnH8zMo-00o7qHY]-1<:Xx[W3+>
U")afeuK3-mkrSE3GF1=bFB,4](QBcaVAXEY[9Fp&2?:viAjj?%G2B-PXZVxq1Cjp
U"]1JDkp8&JW<emUX8C3ps+g[:WTLt'*UgFp[:f&oFK=rZ#db8%mLRr(6x:HDLce)
U"3K'ms6bqA5-*S.wTlVSaI6TBvqpl1CFi-sQ'QaiW.#V9p(QP72DljyVUZ(A].5W
U"U2A(nFf8;rAx\_s9+CHSQ_LKS+A#YFtv)CQYA4F]gy,,A^rQAL8l,QOn5m0gG#C
U"gUnH7]9,(A+7fO'(FKZfCrEDDS*1=PYOQx?/q>;r5),[&,*Rana&:A=*d/FE:-m
U"m;/l51eXPMQI_2]VHjc'1\\2nxORT*8WsZ_<JC(OdRK:53_Fa,DeQsQ5,aMeR2/
U"(^^^sSQdjv#xRD:K5(7Vfj4r4X)^TV=.fU-BoM(D9P2%y?('UUj&qn^ss>8vmM&
U"&'LRv_:YiTeiiTcM5-FJi6obrR+G:0UKGPM>56wE96%YnA)MhaC96fjf2]2R02*
U"#'DmNQuCt,tyj*#5ar6)YA>y_-GLtu[zkX\7w\+qqrYF><7VJn;(4R/N/++WD%s
U"pZs).17F13U5w\t*fFrO1V%aS4:QM;'VlU&QL,QkxZ'q58\63%dZX,4uLRw18?%
U"GAQCSL/h%3L8Oy=/\QnD+Dg/Lrk'b3Eq^W=JXVC.tA?QIurH2N$*#GntRhZYQ>u
U"O&FjQxE;NaDHE\uVL(:]pwUqf4&QFn=NT6u1z-/:y&rK+2XBK\Lp9E.\W;^uAO/
U">G&&BezqV%WckQ<a&'[4BcY?wf2v,l+5:C0UloaO4?d(>I<,_]f/%;f<QwwiM,R
U"wZg2RO*/OGjx7IS'nRV-?29'Qh>n_';L;V_gn3ho?3ds2UO.,%#6p18/)#Gxoo&
U"^nXhnhzQ_)+N8iU>7EkGhQskH)ncD3x.li=seo#t)?M68MH.6Ld8.-OA;4X2jRa
U"$<f:Y/[5v0Z>P1f/Z1CXH#X-Bzo>8Dr\Q-tj$m/Q,dIh9w6:Xm,-6\qGL_Zi/8J
U"Je4266w]u=PAiDi+sk7r8*kk?eyENi=sCKqs2LJ0f-F(6JE-pS2Y?CB+sS>Wq#H
U"pwoMfI:.A5k6A-UYD=Gh,C=3[F>ga15FTxZRldXem]A$Y0B^#JhZvQ7STBtZ-[?
U"PnaHlHnNg3^haAB&sGtn*H1q$ETmy-xg5L<_iSC,?62/SV1NKgl(CcX+0myk\;0
U"JdH+iKOBSZq54z*H>UeOM2t?0HUw9lVkokn<*n/il37j3'76tPTfYg88.(*qq_6
U"M)1_Mk1)6ARHm17>^G3IWo*JN=/?'+v7qi-FI6b05hpo2CZTs_>>[cJY#yTWA/E
U">>)hZob+*S(s6RZ6JipgcW(DdpN4)<v_f/(/nzBIT4z9n$.snF=<9Ic05>ZdG#G
U".%s0PXS=IZ30QZB^7IcFS7YeC\^(2gm,2g8,D1Ds_]]#:m#2-&/P3Dup]V(:9vh
U"H(#PPK>fMho(Le1HEE_]v9lU/bZqL(d5q3Z%;d63UZL6lNdBpGCWBVU/mT/W;_&
U"jWmW=dF[pTeQv>:$WIpA=S>5K3-q+-:'x99_aL_6opRb#dg<G6NXNbhOStqlXkp
U"X/N:W#?wK<3*Zwiv5GC-,A>,pb$wx2TSL9b3sA.:wiKcNxFab30ZT)^BpaCfY&3
U"AdqT<%SP>f/nh4a=Sm4K\7TcVw4-:,h2*u#GMKkoG;8X<qv87]K0wGtP8kKLziJ
U"R&#q>(MK1<QBV-yh<sQ=\&8SVVvqsPg][Tcu2hpt3Z_2<\*KV+%.Zo9&9(jE>P4
U"]EREVa3h8zaL]X.3uPbW_bId>V[DUJ]/nJLVW>?*T<uuX:>&cFto&2H/+?)Tl;f
U"-:S0iH#Ct.L&o:P,(_yUEPkx([YsZd-Yad.+F4vme2g)#MN)m/prhU0UGmLbX:7
U"CZ^Jf3fKb_kZq7EVB;j%A\3qU7g;0:,.Y+(%NAkQS*PqX+..eHz/vB>_Z=jd]Vk
U"a[\1JqVe(dOkcEk^jNGgX2/_BgZ<DTNqlQaW0H266-)e>BgN;[VMcmzF.Q[=%M(
U"k/RLT-e<Q\.3r\<3b?Hk,,%-P\i4G?SP>HgWQ'rr%ofh+WFx^Tqm5BCMQJA0k;j
U"e1&n5qw_(.K;o%XLCpQs(k7uHF\g>P1>uho[jIuP<]Pf?/o04p)8^oUdZoBs1'A
U"B''YIcg%3W[N7BH=vgE(.BQdGvkBD?2>v_VQ6aL4eL<V'qjv=7RVO1Hj]iDHgpM
U"L,(1La<SFKtqU$bkJ?v67:vuML&1HN3Aedx:Od-SUCa6+PjT&pXid$e>OZa-WFF
U"Wei\wB2hOD0a1Xsp8*=<=Ej[qusZ^C*AaEwS2sLo/y.I9Ls&WIn9:b:A6%^F]:K
U"X7X-;(LfT9FpC/i3oQKQ1S7u6RRQ1iAuk)jE*bMH4QQi51_k_#K?dvO#R$:7SKt
U"T=cL.hpu+Z/)oZUqx[^HS(L\qG^p+N-[;j]/PD\HsT8W9vXX6N\pW]^.'PAkPQJ
U"j+]7uYv(Mc$nElFIh2D.y;tEMWuqZ,#JjQ4oq:P><k([=;KQ5MVh)kFZ<x0Bb.s
U"s\PK.R[Yi0>K=Y?dIRDnPJJoGunO'2E?K?;dV=:=)ipNn&;0^M&XgFW7Upx8=W[
U"4WF<[4w*#8Txxb)gTaW,9sUV(d::M'ByzlTf8pl5(>.oNjh*Jn_HFX_GUc?x(O<
U"M&v>;Cg?7+$u-B42_LEk[uuC8T;]>YB'+jtp+)iH$&9utex$cD--8q2Q%tyPedu
U"RXZJoO.aZb;)8U+4x>FTH>U1kjE14;)Yu<aAhV4Stuf\4L1F*DYg2*8&WP-s.ZX
U"VH^NWab*+Ym;i^cZ0L6sZiGx/FVjEgafN1AmQPo_xgliSg(a,eXm5?H.ia&lNZY
U"[#W<VgXqJa5r+EOB*_PJPD5X5j2QWeL(v0VkT=-SCRWIZW'WhG:IWK8?Jh'CXCf
U"uEg&TG6:Om3hcMmzy4%''Ox8'a[pY2BO*%.>L1jRPD.8E61v^Ke,k-Ll*>u+gqD
U"(p5VNj'RUB2K^H?hwakY(i>fvkeqAZf816A6G_OJjl)S&le2SMKKyOi*X4oMr*A
U">fFKcpwp*23cPI's,%/fxP%GPz;K]pkJU_EByNdp5IURSI(3C8Ylm)-Z4$9gLIf
U".YhZ:dfQtJCFt?[qxr[FJOPQ':I\kUO3Bs9%a:7Mb14#mdw3?=Yf\Qc^+;*\c<Q
U">0]EoP946L)1hLQNg:1iA;huR;XFj-552;3mc%KS1l\v.^8JRHyI9M9S>)=U5-H
U"Io^M1xo)1.P+K]F&xeOm:IQ1%u:w\QJpDn%BR\PS>aFStO2-;+-CnH+Ad*i*YWo
U"&BbJ%pzT-':C6B'MuOtq0cpmu#Ty]f#npH\8cg(m5Wl2&AGwvsEmCj1Xqdkm/x1
U"Z91e[nN)jo29h#61KQ[B0O$sau5;a5jI0*ih#l0/zn#wBX'l?1=N;HDlLU*beDe
U"Q6euhvzT+o\gNr?0bB[T,aJD_,pvMYfe%RA&koeYG+uVTEPEQM]'x)Nj_qD:\pU
U"V+FBSRC=?84^8,crZbcQTP3EgHDaHaGodQb,_V3&NA+;HZGtmrXQINIQSsvoN%Z
U"wPj6:x)y9A:Bq#[0y6+/bUvLFbiq6J\ICjxm7m:g.C6:pecp6;uaQh,8&I6iA5w
U"/,MMu]1LI#pK[2'[SN;p/J^GI:k8Hx:2upRIW,uv7iIeKYKI1S=QBR(V]*jn+wU
U"Iwtfl$CJ$SpFGmWV+0K/\X2<Aok+oVaKumQ[>I8k.d)eNV/IfVr%*+PJl'nJJ:t
U"gW>edPnHCeQMDIJv99%>ps6p(h;qYKKOWA#LsU'6E8;ebp5/WgyEbMiIt5GJ30(
U"j5'K54MqVgwXB[N:X.3=z)ojVJCNfnM9M\LZdgI**1yckiVH^3o(P*G+152][rM
U"JKw,HS9t(OmjQQBRRzY3_Ko^IjkY;=x7KMiPa4HnSybiKdcBa1\U]\9OKa,C>Aw
U"h]qI&i*99n&WAVNWm/SU.xHibqW.GjJVcZQAmd9vt/b0;qE(08d4dfNdD3On='*
U"G;6F%hZW=NiQRm[u-(US0GBqLlRaJ=EGb[%.)hE]N]T*A_ihc:*RcMx79ei+Ox(
U"HWb+sg0&aCdc*OkAiTX2v*FCe&D&75L5=df'a-vU[Rru)e>Rx/i:v&Qik2$;=:)
U"[u#.EjdQd-^nNPuH]v;E85d9]+n;S(%n*PDk/j%A)*)=6z7:eY'hQDbWA$i3Yjd
U"L?t^oigsjKe5MNtR0C:GM:P3^%ob8%Lojncwt8\u2V++Npfj&FD%)*9X($YgN#/
U"14I=/(]qt*S0w_*12?&FrEZ\j.7ZNlNk1]t$,$o'$<pexm:)x:cB^hi,uff1*Y0
U"\7kjk?%EN6lMCDqVej=<.<=1tm$h85m:P5SOvS2U]#iHNZtQ]Vr=$H^%:]D]Q=q
U"KxGp[3';uB-DAr>;DC\\2>KK\,U7T<ZaUOAl>;V]%>yOm.tt-LFf\(-YN3s*^4Y
U"=bFH.U4z2vFd$1I#df)C(:0%MZ4&c+JqT'et+vM2MjDd(C1ETuEl2KNt(GG0nXj
U"JWhVEG+Nd=H+eDD.,q7kEfz^U[X,Sy_Q+3MAxS^alDl(*8yeRzFiy,RL'P,c:-*
U"*x3=Cur<g7iXRni*\?uU2[0f79Kt#F_gEn+].(zqK+'[]hO)];1\P%D_;QlSY8h
U"iOcjhf9j_:-M1*]9chv/O#%[M=,.#8>DZQ\H?7Gaa5RhcbnMy:[<uu6=BIr)Fq_
U"si-'#_6rCd=iG*OHlJR.uCQ>'A#Dv&x.^W,T8VMSN1J6*#G^4Gj$N$c1V,h(q/A
U"n<iEZ3nX_)&dgB&UTAe^L5Ec2QClv#/.l0'4>N(hU+9v6MI]-r&M?CVRp*?KpF2
U"UUSl$LRvDbw$KTD^krr4)N*AsIO;Y?]pI2(UF$*9/K?[*>d;q_viMk^)ER?x>(m
U"j3YO4'sn]jZ9Yf/d=A4RCES]hWgox?oA+<irqg,)1LMNuIUM12W;wtyHTpv*+4<
U"-$H]jnCRA3YE]^HDgo[AkM:-<KET9SgFp_G/2<4NK#*7d_2p=xvf6jofK)(U,JS
U"4KrPpptQ*Rd=IT3Kk>rf8F1b%UA'HRc$_Ss+K1Y9nyQtt<Od7F.-5nNB<_Z^2U9
U"-IU_wNJ(W1(ojp-Icf:]qnk-fYfO%2hmuzhclFK[O.^LRh0cu/*[E713ubBwd$1
U"GQ-SkyPIV.C*0Lt-#v1>,nB()vQIkb';mRcjVDctcE4HQ&&ENo1J]A$z1RN4hHv
U"KYQ8a7UidI6c\>:3KD0TVz0x3l9OQw.pf\UJSwXH*NqDDNrLH8U,Nm.e00/<-t;
U"dSf(OJRob+Vw2zfFwS50C-I7P?\0ep0Qdn9w:+TB04%^e?>hFH#S>X1+jhDYC]L
U"=DlfU9VraaB:z.f55v3[\1G1mAe>Q0ZTsgL$O4\U'mNP[n1TKFbawF)SysetZ*L
U"]poXoPI4ag?40LY-W^eLY0s/kM&G+dqh[B_$:R#.<8VsVdD77FtcsupQLgL_rX6
U"*O;KP\:;l&K;N<PjXU]//A)ox3p7]:C<TcWqGVb4Un7.tT_:ky+:m7Xiq0c(ip4
U"WXssQj]j4=Q8CkW8-WZ?AyNVEu*5-l:H\IL.c\ebI1hc05X&\rKeCh&5$8fn),V
U"'dulCip<0FTZ6Q*rE7P]s*\hJH2l>##Jp;..Wr%;gC$XA[>fNv\nDdHxZhBql4C
U"WJv>[Y7]]gk.uw$iW2YX\G,;s4hid43Q#9eAw^QJ8-u-ovU350\t20$Q+wA+9K/
U")PZqR0/efgK6WbF?*mI%>Nh-#iWfXTECxN.DsqNUSp/:NY4IENb-(Yto2j?lzMz
U"%JP_*gKu*at.<UwPA-La_VDDYg1r5Vd=gk9J/XrjKS0,+[YgCG4w+];44a'?7X,
U"O0sDpm=anBRx]u7H_k+z+'E44lY&O&_PTiaC+5G3jVGB-Fa)\?>.Ms;OCp(E$i%
U"'r.+d\)Ggl+ln\)g+/wX_-q&Gj#jJlP17P5W;gEV]A6HD+-&(Up;emTe8dt*//T
U":[O.rMW^%gi%%kCvq%/%_Crn3Hm9Ghr_a-^mNE*HAK^)QL92-(L*L6aS&Yl8Tn%
U";Ij>:[oN7.koS(2N7RUkaE1xI=^B#FBH=ON'$L*,'QK1tDcC\G-])_rHSC^Cj4B
U"wgAcZk,3k$JSDjCYYHos/59t#bnn(2GQNX51'0sObxn8KJgoEs=dkMFUXNQQdTv
U":UdU4V^]9au:e/L#._]&rZX#wu)4Pfc:E0$Tr$VM5x1c/(7Osqr$L^vFv;/M:(x
U"k;5+1k(XsWI87B_gN6Gn'Kb4<NM+]TS_#7%3um'eWKO&Y/v=%AT)Ou-DODk8nOA
U"qh%uHZa5?,rI97;>viSj'hqhaskwMC&-]_1)F3^8u]R?Mb6Z;g]Bw+kp1sH.6%H
U"ha(I.EL.Oqx(&7A;$la'<KKEOVD'Os-ImU>X-l-../1[WuM4BMD[6G%ARu&9H/+
U"rU-%%gy%/EwW-&Owy5;]x1)0C/QiL1,A\m,W+I=OiE7NA_B)=MK>bGGkya)^0ze
U".c;<<ODA7grjqGf#jp4SiEO8EBDhCm;H:$CJ7125fJwhrO,]_[hQ2't.vl2lZwY
U"n/8E+%IO*KQdmQ^[UD9KX$Yf>\Y)5]Gx'iqB)oR.V#8'bvIEfAjlN>&/g1?.285
U"2/k=IZC,S_z+j1S[%[G.0gH5A_s(A39Ql'&+q(O)1Zg44b3+,20aC7B=y_BB?96
U"oBgm>ors[lhl]LWB:5Rn8L3p3jXqg6?clLR6j<+>fZ6k_w,x6<%>=h6%t$e6xUD
U"'asDP8L\iYgT:*u*r1OgU9245[EHJRE/4u]NVK2ss4/(ovGN-jg?R0,]m,m,tjE
U")8qEm>'HM0BCaa5#Hg\&Gu-U+EDOLBmLsDNNnwjP$Xpm5/Gn3>^kXbU^.r3lPJV
U"&L0Qk0vnGWeobR#1vCcdkLc.2y&$-?OJ+.pt%3AV4c/c\0.7+x*a$7(=#X=#[4n
U"'kw77(*wg^GU+DWY.DOYbH5wsrpx\ij6SC'+w.'C$<6#n=MEDI/X-vAtJS5Oien
U"pHgJp+)e5FF%r3QVDjY3b_'?irh6#Hffj.3>f1O2>SBG<o4x0_s8[6xee4*cIAT
U"Y<Q$&fFQ]3F-<Xxk'[k/-2KC^q7q+PYW7M1lFmHd0F9k6peNLV_3R-lKj;OD?Fv
U"_RdyqbF>OX90g&Z%RHv4UKh=BLKR>e*3)nY6/3_zm0F#aEl'wGp8V%#7gY/7r8\
U"hQ\IIm1%UtwqED--gKN\F3Nc2uFO/ZKOYolQp3jv],ZgCD4bMXf:EQXf,5*V#)/
U"F&_h3qW&0>=-T-C5F5ncsVFrsS4v\AbF$WT;H^ZO'7dPSo.AE%xjI$UuF>49T#F
U",V/M/j10(IV0jjUF\2V/%Auw-2J#=7*f1/nYM3A#P7sC:2krD*&Qos)KUz[=T#x
U"EpcuRG+;s'gwBHTg8/#^fL-I#)s#?CiR5=I9n#>IB/Qe(w5K72EG?m3PE0MpWvQ
U"<%dqfRuIw2]St+H64/dpl'\R)Ud3l?ihBnO>+1V^a=shSl&?ZePt5tbuhx^(WSs
U"6EgNDz&)%_LEVJ*LbnND68_Z)N;=9NT?NNq86n6aRDCu*OBJx-K/SsW?W%WxW(.
U"1ag+4tV*u+&3LM%1zqO^8/A8mu4*tbTJ&*n5%&[o$Mq<$q^Kj[IEg]831q<3x=a
U"m?W%(cP>DnrPOR*KUhix)ZIk?^6u6-%.ju4,T<U[(*)V)dMsRg?IT:k]D45=u[f
U"<xBo<-kM;D5u/:9DPsCJ#la47^^gbcNNRWk%9TrRh^-%%O0E/7bt/Vwe>H)o4_P
U"J4>4<F5;+)/-=:#_14%$SX,*aUq6&c(TvKON[ie4\pQut+GNck9qW)H)^CF'Jg4
U"gi#M7>eKEu+w)jnO])/9.zhq1Y_jngmtBvsTwK0^JjZ.OO)Y\RQs6iB=bNMOBOi
U"SEK=U/-Ml=x55^R$XR2F24d?%q:\>Z<vvb#M/_Ae2xH+20*uD>m+x^Kb306sI^)
U"7h4KRJq*+'-9K[lkOHh;'hh*Uekx<<eKs+McSn2('ChM<h(N=JZ>/v>d_B3)PHn
U"L$?A?,t+jTLb3.5/6O4j==nW?)3:5Neq)GC]BR_Zode-6^ql?JBj5r>V8NR)c8M
U"q?YfDDeee?sA2Fg%n8g$lbFPxbW%#.S<=fj3d<KyA7#5R?=J[m'&pQ\^f1o.qs)
U"J?<X8MBk98dIKb3-zIb5ttTfh.:LL=z__F2qQOTrjX1i=Pb,swaEaNICh\o$aj8
U"8tq97HBa's:Q3eNwnor3/RH3FUV0L^=]e,kQv0h'f7?ftWnsPonT[bZVP,zbFPD
U"XY,vk$pdM21sc43YrXfuthaNNY'XD]-uxw;XLd.+^ayJ=BqVz,d[4\DXY,xk$IC
U"l&rJ:OUgu>\rN,GJnte6AK=ZxG7]GGnipluwG';bM<X;=o;XtG?pJK$4&r7TDXP
U"u)JPJ3(kqtX7#R&Mo$?]pzLwnbk\_8j_$O$cP$Aiuu_us-\tP2]T:yoZj[sf_F6
U"OrPa<.-nNa4w[J+*ClG'OYcJR)GsvI5+.4%E(PQ$[+1&L_hCY.mE%k?$%+]sW_i
U"\SlVAKegHI*e_1='i7hZ50vL^eqT8-54?fQ<WkLRC6BrJznwo-3M$7D\N\r8.^J
U"AlNR6wAM#omuibVFZ>PpkHLp\kqljJnnJ3mw]cb-ucDa/=pMOXXD+9Z-gqw>mur
U"vn>QNHw0p.q>Xunal2AuI<w+&h52sNtaP_FbJv*llGAO&CznW8k#D3D%lQUW1Yl
U"So%1tHsHc#[=j,Hut;ZqB0K[-d1>GxKnAXN/N21A-vsCY2Eq;c//#71VlpcKu51
U"s^_rGa8Qw^luiSsK0qOOmWGBsT>KGc.+m&&IUb)p5vd%_LU=JGnS]j.y]MQN.-?
U"64Zqmetsf$\41kmj[BaqICljKV2vSIy-<c6a;y&M4:+8R_phcflZUY_n.eRTGu^
U"OA*3(1(KWta'p?)d's)?aQ3?F/%TKs/J.yKEulwckidJw^n[9wLXlwmj<O;3[me
U"NvvsbmTpmN*15VMvea2q.zyq&2uL&d<i>Q00=.(y,DwYDuEP>M77emZb$XQiw09
U":cCM]-h[/9ZuVPZ(#/##?cHI0nlB%;'4XY,;fxS]s*3F\pZmd6?wedm*(Yci246
U"&D$xt>dGjDTiq1[xb0oH0p.Sd.KIm?l\NB:SYJeQHt*x\u&fI3K[qNnH'sdk0X3
U"]oU>kkgzpPkcZ.uHqpad/Jqb'>D#_Ya3p-twWaLNtcopC#[wN_67mW#hHtwiu.F
U"O_\kt9s$;:n-\6n#XXdh3er00#U[*,WpUdqncVP6m)=-3qWegol5N>e>YtNc;$3
U"%N+scUK[sDYh_uuLRnHr$4i9[I.G3&:rX'R6ehmux-_:l,8c$tDYvuhLad'RL^i
U">L5uo36BCZDx#xNA19]RqP'c^/TKT0'qh(rZ\oaIcmrgR/ZT6\^dNwv6[c6=lC7
U"MuZin0^Jiy>n(%Qb)1hJ#(FxC0kPTZ?GVE:*s>D75^u83=brUt-FVf&88V2dKh)
U"S8c8a_qXcrYh)E)67Zdh+8BQFn?sf;a=eS(YD$tL6?$w<i15GZ+9hS(*MLI&J0-
U"1VOXe$6)L6\lQRoOWDJLzoZ^82d)62P=d83Au(aud2t5pT%jt?8.?zG.\N82mu>
U"Fad*>38b)5aTcM^O\c[aK/bs3<ul#2R2ck(w?nMj%k%a[*zw,_'y?o?0Fsh+7%r
END SUB
SUB V4
U"7g<g)Lj_iF[SY4%NXgSvQT_$5_jD7WNXRO#9dQkd9w3KS3(0)TH,Hc.)M\RnoK;
U"LX?#pb3b#w:SlY$#.32kq[;fIv<H0-Sh7QW;<mnr2Va3xQM;,)ZyMZB_J5hZS6*
U"7^.+rLzNmjS2GrXol\B*eVHANHC8Pgk+MvZf\^vMG$faQatFrulJRa<e.Y8-q8u
U"p%&'9%%9%%%7-%HN\#P,G5ZEA^d%%f(%%%/%%%%%%%%%&%%E%%%%%%%%%ynqj%w
U"WSg%fxup%&'9%%9%%%m-%m'A'P&Q(/,M+.%%?9%%%/%%%%%%%%%%%%E%%%&i^%%
U"%ynqj%wWSx%uwup%&'9%%9%%%%-%l&n#Pth8DH<'%%%E+%%%/%%%%%%%%%%%%E%
U"%%'cd%%%ynqj%wWSr%fuup%&'9%%9%%%7-%o?JBPqk9xl0XR%%;v%%%1%%%%%%%
U"%%&%%E%%%'Ng%%%ynqj%wWji%Sgfx%up*+%%%%%%)%)%'[%%%*/E%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=218AND B&=30638THEN?" :) 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\30638,219);:END SUB
'>>> Page 1 of TILER.ZIP ends here. Last page. TCHK:218
