'===========================================================================
' Subject: LAWN MOWER GAME                    Date: 09-27-99 (08:40)       
'  Author: Aaron Severn                       Code: QB, PDS                
'  Origin: rlsevern@idirect.com             Packet: GAMES.ABC
'===========================================================================
' Mow a larn while avoiding dogs and angry women...
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MOWER.ZIP",4^6:Z&=36934:?STRING$(50,177);
U"%up()%9%%%#-%QX'JGZ5(iXy%%%%X&%%%0%.%%&t%rfsz%WSunXhttxDYPfVN*Q
U"PVd&1Ee6R86,m(AeWW8Nx=()Fd-mUUU7t\;fhqV?pgQV8FN2NNNL>gPT4g',,f[
U"5nU(pD=KfAI5egp13xs2T^Z1;_ta4%%up(%)9%%[%-%^bWJG48*'\t%%%%X%&%%
U"0#%%%&%trfs%zVSumnhtt2xYPfPV*QPAV&1EZfV8F[<(AelR8NxpCUT0>pUvEZ9
U"IX^Gl4,wJItNNp\SPL.4+,u#n-4=3ilI5DOB>Mrv19<%*'YS+u:e&%%up(%)9%%
U"%%-%4GWJGI%G\zt%%%%X%&%%0#%%%&%trfs%wWSumnhtt2xYPfPV*QPAV&1EZgX
U"8nm&&oeH8x0Xr4Nxv$tFv2=M+vE/?4u<uAgggf7(bg-hhfwKEu..>^?&f?ZONFY
U"#dcMlxw\Y;q?a2%%up(%)9%%%%-%VbVJGc0bEhx%%%%X%&%%0#%%%&%trfs%wVS
U"umnhtt2xYPfPV*QPAV&1EZhT8nm&&ogH8x#Xr4Nxv$tFv2=M+vE/?,u<uAgbb02
U"2b+*k_9XuMMP<<RNcfJo?X*3FO_+'4%nZG'BD3,FJ:%%%up(%)9%%#%-%^,WJG3
U"6;FEs%%%%X%&%%0#%%%&%trfs%qWSumnhtt2xYPfPV*QP\V&'oZhX8bd&&MVcX8
U",:r4Bxwcwvm+smU4vb/)<Cu6VLLZLVX^2sepDMd*..5^=zfQ^Or?YNxw\#G07/%
U"=U%%%up()%9%%%I-%&W]JGev&>*v%%%%X&%%%0%.%%&t%rfsq%VSunXhttxDYPf
U"VN*QPVm&'oh6X8Z&p&MVXo8<:4tJxww9vm+mZU4v/d%xK4hvvv4'8DnR[hdO0H7
U"7C\;*.x#DX*x*,VE*7W8/5.]86Wm%,%up%()9%%%%-%;JUJG\(Qcf&%%%%%X&%%
U"%0%%%&&trf%siWS[unhFHE:.OdU1TZ-$VvA:uS[%2t3oCTWEOEa,H6%i>U]Y7t'
U"rSH2(2'Au:X)2$3Sj=RChcdsUfU%N&qJ)DI6oM,gLwl\fd-5[t*CF-$UAmq:xb%
U"&up(%)9%%%%-%1GUJGZM<K#%%%%%X%&%%0#%%%&%trfs%iVSumnhFC0*2OU[5hv
U"L%X/(G#/=EY)=o9C7IM0(D<QiW]Yeq9Whm^L2jOp#*Jr:mU++&XJ(X>Y(U8W_P0
U"M7S,rM,C;J#W>ht4+GTM]HD-:44p':t_%%up()%9%%%m-%E*'DGUv'ACR%%%%X&
U"%%%-%.%%&f%qqSumnhtt3)ePfPV*QP)VPD-(]$-C.CCA.#Ye$bC>?%MsM]=CX'B
U"lO.FL%;)MH%u%p()9%%%%-L%*8]XHfd_+q<.%+%6>%%%1%%#%rt&%jwin%wSgfO
U"x^'>;7*P:+d$cnSeQR%#XJ]N0/_0#V=W._%U7WxG1Dv1^m;LGYQ0Q8O:6f'VZ<2
U"aIA\0T3=4.AlastF#=r.pUDe+\qM7:M5t%32)0SuwCM0D)+/ruwFk;c[m*+ShlU
U"tmm/mR6>$q**h<6BHblpUBHlrVBH3NNWNIf<H]=H=C/qTrB<HNc4x&)B2B/rAt:
U"0JALr.iLGujbY,U0Bi8c=hl-mtf1=$CMr3#Lz4G-EVpxC_&LoX?K1S%W2t8.n'l
U"]LgY?w$?Y::1=mG.NQ[loiaX\swLq.x?-O2o9</Tq8#jhlk-L^\UXk7bmS$543u
U"hA$5L\%gyp]tKE,C^VYV7Mo/?HwZ^PuAMvEK&ML1&,v/.8sHyCv7_&O>8vw[n=h
U">'kcP?Ebl^DfCNL>$Mk*L0-_d$OlX?jp\,XA1k^j>XFST+5jr4=6(+VC.M/6,VA
U"bGD)uwqEEm2j$/moty^]x9.j=f8<1=VXb3rrTni$YusJA:6vDqSPcIBSkF(SZsF
U"S=U.i9n]rof*y?CI4VZ?'=r0qY#IRh_XXF%)?ljr\7/.L#7E,54K./>Nf7MuAs#
U"7WAYX^L#Q\FP=MYN+QR:864Odi4V%;5?)IK'tQ^/qwuAp_kM6sr+<Bd5nLy>%C0
U"mS1&o.&iiDH[VA*>Anvb;CX]_uzq?'8,L:6CtZj(#M22I<pdS%j.bQ/:'D2=hDG
U")*O-Ms>XV>.Tt%q0MZivk2(&YaSc1pNh81Dm?U-lmb$c>2q^FhAB,;NX^Cxcvfg
U"Bapt?8_mqF)i/\ol\n>JXit=R+s+St6Bc4A=7$2sAtwKgA83,dC:5hpXkwuk(=\
U"+x>NL%PblpCGdaI>/X97rWFvpL<3V\0AWnyezz8p.F0lfL+1QFgy'BSM$0_b9ax
U"qc(qFYDrThQfc6=Ppaka/xCk$p.-pJ\U$CrDs]q0Z3\l%z/F-t-inP>aeN-[5q=
U"3S<'6lnCx'&(TgsgXoJ;FLmbODvt^67hrDHqaliq]8s*V^.n7oscn+c*\Bw4;Y)
U"tt0dPA6WXrM5?1m763>=Pl<d9m[.Dbg?JJnYU,)2CMi4CZK-UbXKF+ITsd].-Vw
U"aahd(LUw&9ZiDc[vHfR:)'hfc>+j2=$zlMG3(KJXsB:n.AsO$9bijfM^Y)N<J8e
U"%2<.,CWjn)HkeGZi'1kIHH9xEhgH[GkbFq4/nS_BI;oMVe:[1sjOuXNAy)A7T+M
U"eb=^vob(.<)4<ep.]uP[i9*Pi8tlV:K6M;B[.&QBL17,R[)aM,gS*Y*FkP]2:Jl
U"e/^4$fJP%Fzd=w*d?]n2uD&>a#+tIpE6)jKOrDi3TWH/Z7c]o:4#C(=/[>jt/Y$
U"9ONJ_(gH3</0q%L+qOW6HFeO3>0\n5oD>H.2P$[b-THc%KL<r\F4AW:p-*qXNhC
U"zu4p]K:ZpZc#Ao8V.PDJS#c&j*?_n7=wmBd?G>971<\dn0i/2wou;cS_D\<dj]U
U">DpnDVHMDAf&[ZW+ZI#FS^cZrV#1P3Ms-aHM[TUf,5,w$#1)-E5qSZvJ'^'Z_/C
U"nE/q2qC=2?EiTeIf/dIL\j]>+=xVXVj%^/%/9us4D)r7Agu<'/v740O>\?9s#P;
U"1L56iOf/j:,Q>ElwTR1a;U-w<80c-bqoNi9XcmY_G=4Yt?.I6WCGg5WS:iK;Xf\
U"^d2sfYI^o-lYz;4.esEadc$5kH0s_I?XFEZm[?kAqE.WLU1]-8UN8kOIXd>B&5*
U"<SbTDq1-%XF3z_bwToA[GAxa*6b'[\uCjScLA.hm2zW;)uVP;'[oi<cBOp5<n<[
U"ui]ae/xBlPt<*Y[Sv%h(bS\P6.nCo:^,L1,Bx:jV,?]];s<.;SRXIT2:1VwvT3N
U"GSAkn=5r%73Jk/&<Wk)T7BTn'GKjb/C2U4:GK,T0GxO^u\d%qNfZO]ViB(0d-//
U"IJk&(Dvr>L\,Vjp[9S?km7Wwu0AWu#OwH,87xhTo\$9^^ls?C:Pn5>0x&kn+Svl
U"\A6_aSn6,BQUlGWsn&V?a6Mg0$pK]fO^$:mlV3Nh?#NXs7/1><M_2hCXIW2x^JC
U"2'Fc5]VUa>n\\PM8wHEY]#kF#Y3yDIW,d,'k>Sow'N\G,webVU>Pgt'Zfx(e5n)
U":WZH;e+%r'RbvPm2w;Pn8Cpgq^HFs[/[tv$fcdl3)e%/pTHtJ_pm\32U+hjyHVk
U"'Oiqqa/>3$JR-+JkzmdW-i+abvZJX_M:;IzTtHJO90=CbJ^U9$5Sl2?D?gD&2Ac
U"v')5h3;h^*V_On:Er;nOm>r&;WzZWETyz2Sj^(Qf/>mXK/U;j]Eta:K3jy*k6/n
U"B_gzXpZ=Rx6fg]5.9<;DNMYn]5b&Pe*shx8K)#y]Xh4FD&jAFM2[tIbxqm.cXse
U"-$J*G924^U>kB&2dl_[^JG-kxE-HOQTjXQD9:Q^cp5JFKbVvi\j=DoArZ4(xX4z
U"c=ZH]-h*\tah<SeqPZg'Kxe**E<FWZGlP&.l^i\\M<?lv=y=d8n]*Go>WQ68X>h
U"+o7KNK:is4S/Xn>]oi;_LoLXq=$c+r*qcln-nEbesroQhVvrm6FDD7XVIg\q8V>
U"^6N2Y>2sUkQsmDNdDYFfl_%xPybui'grrkB0m^_bn^a_D7>WB__>3Bd(V&4rA25
U"dJ,BtsBwlTHkix=R)j6f>NH-%\.a?ab^)>]5.6_PMOr07I1+mj0Rxr;?#vJZZO,
U"$d&8XBXGEUbvxl+9<*B<$6dnBwlYTfB7D?GT3?[?iY'ib*Q=iui-0)/xX?$J$97
U"^f<R83/ZkkD=JRn0/$K=Z/fMH0wFm\NcH-*ERGt';KWw2;ZNxiJ*c-4>*eQ[YlF
U"L85hxnVk9H9e3Wp)CU*i/8M<$)\k>kUYd]>bR[?n#76_>3dB6A05mAt[Bi7.W&W
U"kIPY*n-bQY:7N;Lu1=S=w*HPGnf_*scXUQnE>pmV:H&H?nOKt<p,4bPZFM$NUr:
U"HnlNvtRMtpCnaWt=-ULIS(d]0lpCNu_Dd$qsUCY>w>cWOLkG);t.R]lwf/Z$tn6
U"WC.g*))'=RMCZ[NFq://o^eQ.3NH-.3\u3&YZ(a<?yvM)#NtfdC3o3N5*3fM*-7
U"(QsGx_\Umwq85SvkV9iGrw^8xjqYn.V?,-37C.w$T3QS=\h'pC\tspqu8L:XS=n
U"3+q6H#K[_pwfk:Mw$(DaG8*WpxTN'Q:7YEPi.%up()%9%%%[-%F2S5Hw42X>P%7
U"%%E%%%%1%#%%r>2F4AU#WUS;DE;R[7f/;u.1i,</I,^Ud2dnx9pC:08CF199j)B
U"TeQP^e%qP..2hHh7oa.La3)Odk2TJo4C.tJ\DS^O=B06YKdh?qu((kG$m4Jmc&x
U"lVGtV2GQ&>xVY8]R^2Ld?2Q(jVOP;6%r#isV//n>F2-p*M2&u(trsS+DlC)ivDu
U"%p()9%%%%-X%p25aHR4u*&I%%+%6%%%%1%%I%r>F)4AUVI^S;E/;b]p+3;U1ji4
U"]Mg$?SbaM6*DM-od_ECU*1'<[s/X<Y7[LBSc^)n6WsR[[)Q7*iB:dkT7S\1yl[8
U"_S[&?7^F;Y,sNS9k?txrhT'NW3z#ci8ysPITz4nNP1uBYXh=0rq3EkgtgfvnA_(
U"T<lM6bBoV28+=L<u%p()9%%%%-R%:25:Hph7(?D%%+%K%%%%1%%I%r>F)4AUVI]
U"S;E2;<]V+3<U1[($#A4DkO1Ayf,I1mM_NHaORzIy\8-G,JrfDq_&b-mJ5IWx]Z.
U"2%t;wjCKc.h[%0R%J?C6%qQPW&nZI47-+>+EGm++H<5kxs]2hI;$J/T/(USGfZq
U"F1aCY/P;'/3T$l<Bs6HVtp,fWup%()9%%%%-%2az7Hi2DHt&+%%%&l%%%%1%%%L
U"r>F4&AUV\LS;E;:bZ*2&OU1))(OB=]ZJqZJm:gPDeU*kbSIu+1TM*gf+9Lg^soZ
U"gSQ.M/LAT6A<t9jNXBC^]>49#I^i>hH0JX?<=/_flJdM8_:gR^h'o/;[?,%$cG<
U"#]K%up()%9%%%[-%52S5HQe6V?8%.%%d%%%%1%#%%r>2F4AU#V[S;)E;Rr.p/Ru
U"C1CRGeVC09']fswk?$qT7/b;ar.t1n'7symT;IlX=67:.5)96i?FkISK-EgbT?G
U"gZu2IOl67Y>yoPYX'.OF96E4QwmZY+<NI-j+ghht>4[J[ixIAd^0tI83/-bS(u%
U"p()9%%%%-O%1z7pHu4^(W*%%+%D%%%%1%%I%r>F)4AUVIZS;E&;XVU/9,rK#8(H
U"R&%HM&B_>ZR)W%(]BX%K\#G%vU.O)RU**5]&^:8j/7,QN'$]p=KI'GiOjGF/r[[
U"5^Nu=9M9uI;I9]QRL8[MVl:#TXbr7I\*M)df&%%up()%9%%%m-%;)\7H'&5$I>%
U"7%%'%%%%1%#%%r>2F4AU#VYS;2E;,r.f/Sea1lQq^,n53[B>d)]Yh;jjOsPGb[s
U"&x,:3,6CF_K<+wV6W(gPNq=A:=55_]0v<5ktmH\V5^:S2dQ21f[GMW9s\k6?7sB
U",9mqNC?br$<Z>jIbPbk9C4a2bnhY'Hl(Behuyis%'up(%)9%%%%-%**25H9DH/a
U"6#%%%t%%%%1%%%%rM>F4A%UVXS2;E;XVh3I3P1I;3;/8I':GO%Kg8_'4_(Zf4D(
U"bnbCfbvbDPxfbDtPNS.2<:f_WOr*&;gjE8deR;7M++r/)1O1CM9&j,3R(wF$N)3
U"MexPX2#G1nDAUg32M8$g/?n9&%T<(T%<%up%()9%%%%-%4%25H)9*iX&9%%%&r%
U"%%%1%%%Lr>F4&AUVWLS;E;(jZV/&Re5jB&<aYciNdL)Jc9f+QE&wZGc'8bTU\,k
U"Z:1Yc6#D[%XAUK%d#1nmXH%/:2SeO__wkIDyr]Y)>]Q2M1)ZRh*3(Au8a.37x'p
U"po+GLbl=0MpqU#cO?#tRR-(22r(#Mup%()9%%%%-%2wz7Hq?u<1&7%%%&k%%%%1
U"%%%Lr>F4&AUVVLS;E;:zY*2&Ru1i',%$U_QrAA.QelG%0EJ7dYyh9lwXn*B*Bvs
U"<3Fh3/d1\)Ad/=b7J?DyYbU*+<s&SD,RFv]46c]0A;Ilc(5\Yd^7%X\6%*I6dce
U"RIG,aV>lt4N&Ynw2K6PgE'%up()%9%%%m-%-)n7HiQ'GOq%.%%I%%%%1%#%%r>2
U"F4AU#VUS;DE;Xhk3I3KV1/M8k/M[;FWaU9>T)S1\[15e/=HW5O5.Ocl.:'&++&e
U"J(uuv$SSZB/MyXP8MbPTPkX*.7LgG1t2QN8.%T((T%<%up%()9%%%%-%6')7HLe
U"WA)&)%%%&d%%%%1%%%Lr>F4&AUU^LS;E;gXh3IV31I<55I1+V1g/Odv#_Vj+\O>
U"g$PC,&hNqr7Li1*H%H1q[-iG-DOHr5dr+uF)5/&5KN+blA3U:7M_PpTVPt*2Lx]
U"Q*M9-A92YQ6C%T((T%<%up%()9%%%%-%6d15H:g]);&<%%%'.%%%%1%%%Lr>F4&
U"AUU]LS;E;7Zs:2\Oe-l)LX$]%gJb,IVS/[1TN]%\vH](EYl4o0-uo.gTpvBI==P
U"$#Z?=rd*z_hqYR+IfTIp[/kn#01;wV0d\/#NGdk:D[nd(vA\Q-<J&1dw-Gw1C7g
U"Wk-5hP<DVeBV]LcDLI%&up(%)9%%[%-%$*15H]&^Odn[%%%*%%%%1%%%%rM>F4A
U"%UU\S2;E;X/8W7W29R/8\C[??#O+z^*?=V&Jz\9Q'KRKRC+<e#mE++I7q&CthOw
U"QdMn91/iS3/QV3/eeMb.m)Js5a.tm#D>-9D*%%up()%9%%%d-%o)\7H/55RM*%7
U"%%+%%%%1%#%%r>2F4AU#U[S;)E;XV+UbXU(V7W&+7&Kr7e1_ZC#OubU&SJ3*K3+
U"9([<XUO*BiP<^Pe;(X_eXCiL<k/TGRjULYBw0og+Xg:wrBtoBI9%MIHz-:6MZ'*
U"iFaK*NVf2PPf0%%up(%)9%%#%-%fE)7Hz+(#&p#%%%X%%%%1%%%%rM>F4A%UUZS
U"2;E;XVh3I3+';r+[BK;&7e/=YfbVO*L1i[i>oQ9'LG5P,I;h>jAXj$gO.*2yMXP
U"8bMP0bP/$l5xLo9mQ):-nv21-AO%T((T%<%up%()9%%%%-%2Iz7H()L?H&(%%%&
U"$%%%%1%%%Lr>F4&AUUYLS;E;#XVU87WWbZ&7W&X0S1)q/ifk;%E8I%E[O)$%]E;
U"yU>SL9fI/%LF/[ZhNmRw%/b;om#0u+wno*%%CBw&XsXN=9u-B9)?B9AL.VTt]+^
U"*EX1Tlf&%%up(%)9%%[%-%G$15He+A2VU#%%%f%%%%1%%%%rM>F4A%UUXS2;E;X
U"Vh3I3k1I3Mb3I1>#rkiY)OC[>*mhZf6R]iWuN=9MB95-\agCXl;YH2=,G2%u%p(
U")9%%%%-L%Pz7jH+5:'Rq%%(%W%%%%1%%I%r>F)4AUUIWS;E_;:Vb^\7*\CKRKrg
U"[R5,mKM4TkoBsTl9MoRHA99hKN)sj&Oaxq&$3(ImsXQ%LKbEg^1cVNp)w#9?KI9
U"U7]X0E[LX^,2saf&%%up(%)9%%[%-%#*15HD,A\6R#%%%L%%%%1%%%%r(t&jw%U
U"UVS(q%qXVh3I3+';r+'FkBe'Uij[6=exKC+uemMpPp.25AygMmQ:1&#JT<%(T<%
U"%up()%9%%%d-%A-e6H*38(Qs&%%%%+%%%.%%%%rt&&jwS[ufqNPcV]qde5TtD96
U"yUPP_6I%&6m,C9rF2h111[Zt8NmQwQLS'6=sQMQCNvVyzMg&?:il$%XR*:LI[i_
U"kX<[ag56h9=,jnqKhn+W=nc/8p<IB0m?I0W6VgpjtI6aa<a0ma#m$ma,mLm4<r*
U"c#*C3^C?^;^dC4^#kS#[#C*^*^.#CFa^CGajnG>lPNZN%/9F+s;AI)bUBw.bPq=
U"p$IF0aJCO,6Q-gh>o0oI$+X8W?qVTu)7Tbn<TZa$q:u^+M08nRd9p9ilqlTqX2)
U"&bwhk%2JZ]M9ww0#t2,9:=w:x'<m2L\9]x<Ad?;9oq[xG1dUmgiHofIaBm/saCs
U"&s+%VhDMpnon2p.pT$IRlENbuk:=+,]QgBv'J9Xb-(ovBa(Gv8Hka8vbLTXPv,?
U"ah0AaGlK>$_,oMYT&UEFw'\$AkcIv6p*k7AxvKxYk<MDKCLb.:SH&R-^pJBth<R
U"u2eMX=#AGA1pb<MRklgx7<T8x,3v^DTB>4x_A9jJM)gTqtYJj&yXPnMZYnDL8S^
U"<XaJ6fU]L1:A:*ByLPItcbg_0M?_2v4M_N_6/M+alXW7dl_LBuw[7AZG9rCtcEZ
U"/Ayo7.^yp?(ZwjBt)p'4uOndC/Dr^a5iI[SA7f\C7l4mijTwPw%%up(%)9%%%%-
U"%PGpJG(H<pQ<#'%%^%8%%.%%%%r(t&jw%Srxp<Ne6s##f9T,^aGfgjlS=.rqd_+
U"49Hu0J57w.FibO#*YmxKkc8GF88j79IrO$sd$Ur'*lKguU;4XPltF5DE<dL9u&U
U"DGM#c;0Q5BU?L=L,?OpR9mhM,F=Vd=mTw7s4eYbrFa?9&K^H1=PE;gke)gV1_9:
U"C&lS;wI#JL>3j0H&=b;='7J18CZ;2Fl1n;3W/-EM>eRk5$%[riz3rCy-:i6^$]\
U"WR[BlCe663;(RMSSI6K'd:yxJepy[[IU1^S%%6aJO2Q%QK-7=S'ponGo-ue[[\0
U"'QTmc93,$dVGDo^Wr9$FeCRLHVhktNch0(yAi0<;UYM*gy2^SG<\W+s:x]NKhaj
U"ov^C%Z2?$f(^[XU0cfY$rB=;k1RF+lM8p:GA]])$2gAj[0DZE8B]//[oUff)Lgh
U"-*2;_GaMC>FM&V8rPr8-Ya?B=G4eo[?N92dwc:FwHVrP[wVYEA2&U]:xI:6$RML
U"xq$[DH$,-f%F_C>HQVOs)cyOZk23t6/m8.zwdAO;::fl^0%Im]Y*.ZJsA83:-f+
U"IpW7Wi?FzdfTlBaAH8[uV;/k5?T_p&$ars^SHq<%j'%p:bs+l-)&2JjkY.\AJm'
U"v^.W:3TN'0w<0G*hamp?eJlNozRQ^)vp,[]l0N,^b2O[A-')R\\K>N)w$r&2n*I
U"MTZ)/'?(,$&A3ZVa<eN;z[bURJMfu)px,2J*R>^9FCwji%ez^lbtFqr,N0qun_f
U":CC]VHac(b$AgaLg_qMSgm;,qmn04Lvu\J]to6]=>Yf,Dztj,d(o$\Xw%'up(%)
U"9%%[%-%*)9]H_01l<8%%%%>%%%%.%%%%r(t&jw%SrfpHln4FO2KBAs1_^k.*V,a
U"&pa%u%p()9%%%%-O%Br>.HaS',7c%%+%w'%%%.%%I%r>FD4AS8;2>&w7$3;U(1L
U"jmPe3cX;d]U'D]cR17Glb2DATCt#HHHY45:Ec&<,II;Gxd_Hhr^ym'Y5sSM,:<+
U"(e^D1^I]XUlR&AHQY(k(c?SJG(uV]UH6RXTsE?ck3Be5<wPGX;U)/fn#T.Hb'Lz
U"YTvoIeovQaut/&*O)E8)\5aM3g-AfQE^0b1=bgNK-bdpIVc7k&OocN_wm:tB6$k
U"+#,NYPZ(Ek;ed_&2wx)KM6I+>C&7K-qQh8m*2Q8Qg$6ZnpwS-1=iVo3k(?F01cP
U"]L(]i/ss1'EajMI]b:4jcKdKW1W2P\%up()%9%%%I-%Q9BEG+.%2%$'.%%:1%%%
U".%%%%rt&&jwS#ksydh%*=]RU1Lf]*+1q==tThofZoa(*9vtl8K[c.)X]=oCY^G?
U"pXxicxS<v^Fqw?E&1Y[gS2SFTYN$dW;g;PiR#\#<\aeVB?JXG(OhP4RLu\3VP_G
U"7F:AYm8+#l%c+iyFlmSYP'?^Mr[vEo.)d^UIX*v+m>P6&,8nL&r<0jOojNm)C)u
U"+OsD9Jgt]fn=]/V+)#5tS1td^xD4Y$=EyjZHdC,z%2VOi?/kEaU<%$BkV=U=7VL
U"-ip+qprgDw[qaL8V,Lvh14Qvr=aPwV9$ukfWOiUq#h(9qc.Z8g2yj3+Xt>X*BhQ
U"[oOpDhFZkwY4Z(.71E)v-#cB_(+i[)_1n=LhEKdvdF=2Aoy<U)vfZlmg.kd#L&_
U"?yZ6KoQE/$KmkGqXw5:2+LO\e/sKIW=;/vSWq.9q/ZbO/w\my3T]8lWEyny-:3f
U"lsCfLe30.:xf8&HN5<g<c\zm1CFaW1dQ;PyC>-E:+17MUq<.\p[dA_Am$mUBS$P
U"RF.fB3Ek&pXw#(WblP5V0^Z)Rnzz=Qedf7yJSR&yYz8Ab+]Ec-$C<EOr5iJ(_8:
U"BD>t#Tgma;ZLOg5iflHcXxk#V?fJNQ;J9L<PgBeD]THsf^NEq)/gjBPmAVOA.4X
U"j+ev(S[KbjReBk\u7cio,;0Md>?,wG=.FVZOP-F1jdr>sxnm'v8:8?SVFmKCUlt
U"AGjagB\VSW'#Moc=H5]3Ymj$-[98RT-e;p%idup%()9%%%%-%:*ODGcKxvx&8%%
U"%%X&%%%.%%%%rfsz%WSunghT[:(2OE5a)PDB_h+HonDRq*:iJ)&*;b4K/A,vvg8
U"lL9T)#o<g&u0?R-E*bJoU$W.5Vi+7vgL_4[n#+tyRR.DcAOAsvU%M3S(dpk2=V/
U"\fd7q2dC*UAwkQIH\#4[$I*ra'v&up%()9%%%%-%:sNDGCQM2.&8%%%%X&%%%.%
U"%%%rfsz%VSunghD^:(2OE1jj8&KDsZ]'Xli[Ua3Z)m'C&8N^uR?WjdIfXFYZ_F)
U"/,[5C%4l01U$W5(Vi+VXgL++*Nf8uQ%7,BEG^G4Q<&e%($VVO;1kc]9HviTusSY
U"kq:QMQE=n0[$I*pa'v2up%()9%%%%-%:FMDG#0eE5%u%%%%X&%%%.%%%%rfsw%W
U"SunXhttoDePfVN*QPVd&<GxpCQ:Y3p>MU,Ok=='q^^^bHq>WJlbj$o:%[++f1>>
U"X>pZ+%++YS4(+1YPr)(STg1cR9p1hv;73i#=-rZ5%%up(%)9%%[%-%PbLDGK3co
U",r%%%%X%&%%.%%%%r%fswV%SunhQttoeePfV*2QPV&:<GxCtQ:YPCTMUO]k==qZ
U"211GZ:UmC.+5fB';rtto84$7:dT?b_Ty=VdM1ZIelfLi,mZb//\1M&%FdA'%%up
U"(%)9%%#%-%2GODGN/^C.s%%%%X%&%%.%%%%r%fsqW%SunhQttoeePfV*2QPV&42
U"5N49:u94d+dM9K1akk,ku11OdY+%(5fFbuveR0Y?gvCIEDdZ/y=jv/w;p^8RoYb
U"*<J9?aBiH:.DUff%&%up%()9%%%%-%:YODG>B<ui%u%%%%X&%%%.%%%%rfsq%VS
U"unXhttoDePfVN*QPVR&25Na4:u9#4+dMH91ak;kku1R1dY+.[5fFIbBhJ7dBElN
U"_mLZH%qQSDZ19yUj7Gop7GHi(CTk,9umi,*E4u%%%up(%)9%%%%-%FGPDGoO&1$
U"5%%%%X%&%%.%%%%r%fsiV%Sunh>TH6.AOe1U-ZHsuKAG]De_:;U'I2Qc=\)6gs^
U"h#L(-Qtm0jgiA]d)1F/WChxLzVja]ML>[Gg]gbK*rHIaD0;oX)7_kb+2n.W^e/_
U"/AQ,F,n#dAgY^Hcaj:a_BD<G+)*lup%()9%%%%-%2c8]Hs:;XC&.<%%)0<%%%0%
U"%%.qj%j%inyS[gfxf1b:B?:naX:bpxu#1NK/F4RVO)%_p#-%?fQ4U*o*LQ0pPP3
U"/S\ea,A[pWZMt4t%O44sffPE&-Q6XZc'C&M4454=b3U-YifWWoNsw\ZiYioa6M$
U".Of9UF-P%CSO[ZY4G&DTHT/.8=D]A?oPHPz^HSvCz1dSbtY\NeBcA+xuA2gFh.k
U"](sVpA6KS-r;rgajUd&\09QS-%MkTFhG]S4d92b>u=?DYC8=+?,:&r&^+2CaJ?>
U"(COM;oUSPBj]Z3,Y+F;DVI+WAJerw=scH$0#mL6qZpuA8]%8Fs4tZqN_jl-.>jD
U"iNU1v(aez\zRH[wmC$r3^Hr,H11]Xaelk:<I4X2hu>j'w7t^)L]#mdsP.l;rb>R
U";0TZ6R_I^J-r2:-cD^=o<_/gJ5ZMI8gr[P)Vbz=#SGzl<^GS.UdVlGfdf_gSG;>
U"b)I^y1l;b9uJtX-OWu.l;j0CP$bg?4#5n<'/o<u0kr<;.WpEXn?;T)'[dQ$-&N?
U"*=_=[]ZfZ6XfQ*wVRet7)Fe=VeECS6%jDo1>(YWh%u,_O\Rh<POC#n^buqIiKPC
U"4kh>($OI3PAV,1M(P%#W7-2:rgUoat=mB.z+7m?1JXM1RoiCN:V0:h+-edmnRbw
U"KW>1V3JE<()z*feY$3.j0)5;fe).[qsfrQZPH.DcSPh9NrH16UrfW4F<-aX(/^]
U"nz]W)SE^9TP[Y,H8TA:Jb6Cfb*O5aqU3FZNeNG(tvX4Z4*QT[_^qRi]8BZWWp9V
U"EYl#nE8&?AborsO(G%D^zu_pj]lLv9ri5g5D8mxp]q-NCsZ^K2RkQgjnVyH_HYE
U"FLG=3i^ABCmk4LyQ0?'VP(f+Pg2l6eg5u7#3RJOP](,LcJHEuPemXd+(Gj8pg69
END SUB
SUB V2
U"ll%*d/DaGQEJr4^&4n2/Zg)g[lPV0VC^NA/_8TC*--CD#b'c&$=T\rA[DbnaW05
U"Iz^,')eb*c*Q+\M0-lIcFqn2>Ctd\hcIs$4YHCBKcf3mos$D7/vT_RE$uAtoTR1
U"$;6f-Mi<u?:T79-JpJBaO<;qRj&:j<_f]#0(PZ\9'MxqZ7j3BJZ;&fA.65+D2Mz
U"F:t&B/NKDdG;mGZrZk^DloaERu/anTP;v[.w,PQno-.Qro-bQvg].zj<Ze(';5j
U"$X<G.mz&S9)tyRP:[dmqW5FiQ6,Re344JusoGNnzTs%Yznb88h1.;RI1nVhv-H&
U"^T.nXCjj'xN6S9V'1C1+ov&4b>^se&$?f^?,m<(BK3&%\$e'X%g4Qo#9<f6X0=7
U"2YAt<^KRCCYW?#ZQ*18WT0?o/V=E.'*mPUhVr)oZi)9h0GG9a)n65zPU&8Yl*5B
U"\\;kGJcBNhR/GPC2'TGX\+ZQ9GU)Etru&cTT&_x>hTN7+GQHIqsz#Rm'G^mX9[o
U"9*.+VqRFXx=Xn=bY1[/?IHB*2RPoD]U,rS-(V313ZqYmlw83L%8cm+y:?wG9,O$
U"vI<.9UhQIBC_W%A)v^Q<4:KEUlSR%Y55tV0W533()tw[F5JPA''>f[)*FGNIE:l
U"g3jp15z$vr]oz0fm06axse*V]gtv1U%(fa[A9*;N;?1W.)EhLJ8fGl3<Xd#xD3n
U"a[5&gg,*oJ0aI*+:QUB.0J6.:J)*u&3e2D_GC+&hq+t7nRTe%#k6TPD*ouXE[1-
U";QrU^'[aDJBk'1\0?T#p'qLhuXkANBbh#Xg#Y;iGq];-*)6Z.h/WqG[u#1U>]91
U"rij%-+P=4#3=E]R1%+eSLa#(L,GhaZS8uwa4ky1Q)>CG4goQM;M.\mc%.s%oG<c
U"_G1a?]>)c42X'E]^wA4fuQ>L2&^sSw0fi\UlK<78IQl34HGehwqj2jb=Ek<flea
U"=nEf=0<zEs1,b<r>etxYjgLwAJCyJ5*e\nNZW=uL7[+OQe3E?<nkrWkRnx01+c*
U"cvnduv'5\2$)#;k+^gw\i0V7lBItnFg,NgI:?ecZ3oOP2.80l.z#_Q$O[rE900J
U"WRgP7o_Uk;pB.kmYP?w*OU&hk$9adFE1JwFFw6R#PDl#1UJmt<R12&pAgVW]\y(
U"*#tX-:M]vw_N=%t(A_F,uo2:/DVk8J?QO78\,]+'6*TIjbt%AJA3?:olubh*%eC
U"l&(/%MW7kgx,+NX9R0D?bJ-U^(l])9=l(k,,NM>D?jeM#y2X)F5wDBO?29S\IVe
U"ts8?J)=E&NXPb\WrwyNUXVKlGLjIVPXCX1FKbv,FDnY3kC,VjbL/io>G9vNnS=o
U".6dsXUXY8D53U(W4,I#NvpPod4VO(%4]_Q2Tdi9#b'A'&Km2a(AQ-[xv;dut1B<
U"_(J</a>0+ST5+ZTR_0g:gp)l4'Kdxa3cO_KKmlH$L74'RWv*+AhEjeOj-O/=<jn
U"(EJ$/h&%5qen)g1MBCO?)(61.^Bjni#J<[[(-OWQ9py(M;sVbX$^c[1IE*#^Wu+
U"ahiLe(G;HSsRz-4x1i%dR5N-vx>'uK03348/E+3'ql>et0,>WvpD]F7X53>EqrD
U":APwi&0kk><<KplI#c.^E1K:TfXTpWju3saM#%U=q$c3vX+lD6E2LWwmrL%)C[p
U"S\RRP)WkZ86Yb^UaS:l%fyY0>]HAtIr;'/3d2i2mpi$qakrRJoRSS^t8\W$5i$D
U"ionS^X07i95l:lBnGle&z9Lb)6tA_=.25-4lvPs6j&L^pZ(R&1C:js73L;24V5w
U"Fi_0Ex:UVx[ERB4<aCDu_Zdj]b#M'./$?hR]J(FFaQnC6H>%B^:g9g;4R<id#XR
U"l3htO%QK:9TcZ9Fa4BX+Iq/MO:Ci,b]z&]qW7mRp*]S01*1L$..ef't<qGPOO5W
U")SN.6myd\Acq9*?U_g'R<x.D*,X<(J%O*MUJqZ=3\x\B4HY^n*</4q0er(,dQ.e
U"4pD:1h8'_dtW\AY<?kRGBkA.>P96dik5V)4d7/m#<H_2EP>WavoEP#5BVm$lKLI
U"xHKhHjwj(UBE3[18h[?_KJGA]+Pk\Ai*Mb8l1=7E7w=xSCnd6i9ILshiBi&V>eD
U"x[-K_].?.jg(Xb[SYq9^qBjbx\5ss%F^n&;Sk=3Y:5i>A6U[#,Du-SC7ir2clU]
U"h#x1L\)yhgB)^Wv#&ibNwF&T;&U<<M=x]F^bRxqkL9fiGbb6Ewp;^aADW&]#VST
U">zOZAW%H/+ImB2pP+daP^mHc=+Hn1G$al5*E$Oh$.&uP=BcP=)]E6WGOy'W9NDi
U"Wwm0Pwi4S_rgu>H4)*((*]>dDo=2QC4ic<$kxVQ\*XZfWXQBpl<Krb]VnFkf3e6
U"lYtF/\oQ\YC<QACc<v>SgwC)eB89%r+#w\)4AsK=go2s,iN49Y1.xYuRR8jtB[-
U"ne9S0CM.3FZGM9vDkj]5?,Jn=poLoorOT'tdl;we;$]SA#^Nd+u^2)]w7[R5VGl
U"?p%RmQr,#/V;.6MHAg'ZE+,o,b?cb_WY=,a0ZmU8..Y&\?IyB+u^\H-R]>QB,FL
U"f7Z8ttSAjv0lARU/o0G(#5A\^KEwrFlM-'0/[tYVk,B'61]d8_c&e#YLj24.nRr
U"FbtP%&0(Eh5zE+;6MNJrvl[iVBRI1MW<GqDTCP_[]N_0<8dP/%$4;,K/lSDGhSo
U"rhR<PK,Wv#xozlAwG5)1Kip:;d2?*gpVAJouD7R:vjjjE[7\'cf>=54.pXk&4Hl
U"]=V%AUliAAR#JK1=_R-gM#snShXD8UeG#FztXGqtV0g[ppZ,XC+s;Cj&H',Q*UQ
U"R>S)Y1Sfo8O^T;p.0ojxwNRF(4yz$Dcc&KISww%&pcJ[2*=ri\Jk4Y_.Y;TB8f2
U"u7(%>%8c:^LvK8D-Xgj3\pdbdtelX,qagx7M70wCN7>4w+9,gs#+OOUJ7Q8fW)t
U"MqKhIui51hZlN4dr^&1r[PCam*<#1<x+FKv<Gs#.4:p%k^-+QP%)s=x<L+A<M-*
U"sYn')1(oBcv[m(e(>xfm6P>Z&=S_83dkJwYICQ#Du5A9eWA]3F5,78LMaD$-O2m
U"6^TlaeSj_ibOY-%W7KZ_c8X:YvHQ)\f,qba*P%I&f.g8EVRgx*]f(kBNQ\*iU1]
U"<V?9]//H'.E&n0D8Lk$;kV/_j5h%TF)\o&S=?1:mB4y+Yqo18eO]J+-ap&#Xq*H
U"(RrVLaVSt'7G0k7%wka7h^WK(p5#e^\CWc-sot.%f^;1;;(PhAN69HD9bw;dqC^
U"gl4MtB,=C(r0T4Y_$17]V&\p2.^9>er6#Md+y^9PO?(edHuet=w,%-y^+/y7P_2
U"ZPykPoG2oA?bh*i3z1rB6-cZX8%[;N_Hm4c3DTi.iDA)lLR52-[9>(=1?hqe<*E
U">LcT*k&&cSd;V;Etc/,ZxI_IrOQju?uj[XOr-F<4#4+m%]n((-B3<G#DB+21$/;
U"(a#ImUq3j'wG;>m_\.[f>%7&q_WNLbU;]CD6=_mj*RI___<v:3dD4Y;35.+#IJ*
U"ZVJIB*'\*1K\+3(+fo%7%wG'X+EG9iIDEe_[2ieG+:A5<kR?n<%-m*z$*men8Nd
U"H[reXG$D51b^$#86?eF,#v(F^Y6i\wcs2?WJI23[*K'/Ba/:6'ozedz4Qs%,uCo
U"V3\t$OAxscJ$1q#VtsgCNd0jgKaQ/h&4Q,-$fIx(WxI&28%IrhRa*2$3uce#f,*
U"?Qs3Vq*[%c<G7<(;8UO_Wu0Dm9d%_qd/1:ysYWD:nq>yE,Eia$DlXhlph:IF?pX
U"hEtqKR^%L-rN?WDY5#O;bh,bC(9[1W/$Vj8NRqe9Tv+_V&FCG:o0Hl>-:ophG>a
U"riv.dY4vn2uSn+wEsH_3;N0wT*M2'daQoUB0x6+^sR8u$]dix)bn:W/TZdIKJ[s
U"YEhy*#fayu-gE>skn<x;_nn[8qwpm*o\JHLG$ZxLSjlK%/a?NXxgj;cfDm.h,w>
U"-DGeNjb5g-,At_]Fa6l6HTH]q-VeDkg$jIE1ha0em&[n*sHV^)LirUI<0i;a=UU
U".'?Gd7sRYkYMDv.:.]]H_PiYakCa>wb/c]HmGxGAqjD_gg?(LIY[v]noF?ta]V;
U"y_*g]a?JFFu]--E6YyCZQI(SYFbv4Jb*IfDvaHh8tK/)tC$/aFKor/;pHC+J2oP
U"l^Ce+[7hW&ecP*C;9c]YE&cx*4oHDJ-uw]27n*(MYI':V8Znq^5d2:17jZ[kO-l
U"_i$cRrN'nF3XIrrD9pxDVa\0^4LTIyiY,qdj]1X.tF&x69r*P\5I4zP:)=jLnHL
U"%H+tNKvPpYw3'S=UlMy]$3zPnj]$$HM+c*UyLPn=]$My]$3zP,v7QxQt7Xq6a3-
U"jUex;cqXqa3kM>PK%jy8jEJDbZtOKDdp)%XnIT3c=%YZv9>,P#-sM65GYoc4MW?
U"PK\JzKYq*dI?&;tfP>q-LPP6i3^I,q?zE1K,T7+rxCVI$_L+_NYH#8>4*+%f*RM
U"W>36IHrH^AdH;T&Hl?JH]W=tCuHk1]5CE^#+<67B4eoyz\M'^(n^#tco1V^\P96
U"Y](Un:M'vT:S$aO4K#b(')L$C+)'LE>aAHm?>HmYlslJ1x'h'_d>+g-;VeP*0kO
U"ba9$C[p2;=39*R[-lH?+walz_uegrd/Km8U+455(D4VSD6evD8m4>Xh(;m.VrDD
U"^eHut%I;d-,n?/j#5d#&_Zlcsh\9*=IADT^H]aaoFdtj\gbTRf'DcUA5Iz$7dAN
U"yh,+igQA1p+P'54.-H.2$TL(3k>d=StRTY_6n\u+0oA&-nhq-oZEmua>c(oIi8l
U"^RIE%I)RGxZu%w<GQl0?]KpSJX1JF22c[E[sUaaIiDXdb18d,_3$?MQ>o\vAB+9
U",8%^[,$/JN6.kgarBN];nsC(rT4V*X+<XjR?aS:jRI2T,)6f'g_j2i]$umfKQvL
U"3Aupg8';(ZN\1eDq+Rr]VfT?4ojvs*'G]SDzr-GfqKrcJKAS4),Vs6bX<i<HJYM
U"zQocAgElgIZ7jj+fO$4i3Q*-Rs6QOZ5^yvJ_*cZXLnfo1qri?X.[b/]o_MZ92=k
U"mS90u>H)XX'DP-M%yn.-7$hFkoL6IAPU(Eu0By^[W#t>z8N_Bcip=pd6htg]zlU
U"P.DEj3A%;rb*PlCp2#s%3I3w\Vk$IS]gaW0_m#k9'HOjjM<zj3u%<f_%&LjlXae
U"3)l#*K3$V[1vZp^P;bdGzSe.rekDGFF._MVaSEr9w%s'/v6dI9WI^f6:=e#)JWH
U";H0+0InR0SL[aQk\$j_;KKHS,8kh2Gtj9,+5$U]X8Q[Z.4T4ti+s/>(fXCS&FE)
U"j.]*Ru&7Q#a.ImFfTb#\-l,+g+D;-Fo0a'DW4/DEBlHY6bGelNmQRuIPXthZ8ED
U"n_qhdB#lgLQiL%,X)UMH4kjr_r?+P*MQfW\.rInM)#FH8j5k%uP\FMx=pvD2Ess
U"=Om*?0o27#e'yxUITi'k;v4ZJ9)m[ub#,]ViisE8;9HgQT?6Dx>4/.^SDOcX>R3
U"[9M+e^?/HAdog:gtCO(E#g(WQMo:S;]X+BR5\PdxmU?A<ET3^,F%cf\][$%i_UM
U"6PQgKgfpGeHz/x^?xw:SFp79uv1\7V&0WZI%mgF./K=C\RdJdE_,C7<gaOej&;>
U"',sqI1K50hFaG,-4i1XYu(>&M(7pHk&mh:skR$m=K4&oaoQl,P,qTXO\awvCDbd
U"Ph8>_0hwTqCW1Ee]_NR6l73Z$0#KOn^t]?h4d4HXL)d[D=2iYG];rnXjud%lc*q
U"ta%asHSpm5']*VZ7Wr)O47^Ahtt_d>afl:5;3kAe7)]PT,Q?DB3G\M#(nvvzI+E
U"2w.q/GDR]p2%F-Y>TI6)G-D0S&Y#Q-jDf2MM#WFXke4yOv:4GdXp4An/g'0q=K=
U";2X(dQiRQSfX5/I?jn,lJfLou$#_vnLqW7VyW^(<_Nrn?ULFH(CMk=jbJZO]j#%
U"V_1LEN85;6S4uStcZ.6lOlgGzjWbo5G26>[X*bXPo1/*,t.G3hpCOfTpt1&t149
U"'O'%C0[)+$XtW0+G70Rj,b.l33:\Ymf=D)&&8JiEY:-8^Zf8Y%GBTD^wG.ZIcAA
U"M1Q_\nf/R)1;xqWpz-W2,1rOobrs26MhsK:If\$kH2):do#m<7>*JGgA<Gb:?FD
U"w'Q<i-l5_e)H&iS<#2S317Xp,cB=-3NWeMk(?$tP/qs&uGttPGD-pb&^TDCSm*V
U"GOEEBU4IfZ9ilDEn0zUIpY-.bw:oUGl[i#&dM%[QWN-pCyVWT8lVVIMsn^(pk-K
U"k7('xu[a=lv0)d/mq-T\bMeT.6?dFs9EqK3&;.%,r3q&gZ3w4$89:ckBpBNbYLm
U"NS.l<>K;l0FwD%,W0f,uVy*19Z[S-pEv&5nF4=V]9SV9J_'?\BEoIj3F?UI4$3H
U"-E#BgQ[Qhh+AdX*e#z\23a31AeR>'2FG3wC6fKgPcAHXi$Riqh&,;k1bDLF8V*-
U"Ho,0mNoA5;z;-:*vi=esc_+R((h0NYtp^5^O\/48WMhg)aI]=mOj/mQa';oYfSG
U"0/$ScR?-,qDSRg185:0k2ESoZ%7T3LImsr5:mQaSe$Dk.SU(<tdS'=W]<auuL]f
U"m7QN8pbf.Jx/BiV,fv$m/oPP[XXDKZk*8qPG[Q<k;>%luYfmQF37oM8taM8[P_x
U",Np$uBm*MAx>&]^;*8QlUaiav9H3sDJ/=9lq%nX4XO=MDL-&2BCY(%W?=W'xDup
U"%()9%%%%-%;*vGG<DTq3%x%%%%X&%%%-%%%%mtqj%Sunh*6]f3&Oe-(ldVvq=e\
U"H[HKmvm[r)F42jGFsm9/^7L3/*EB%-I0(EaxhR;-RaXZ$-+:6*[+a2n?CY)l(3i
U"P5[lm;zYjbhdFco8ywu*bnau%p()9%%%%-d%AdG[G;s*(/-%%%%X&%%%1%%%%lw
U"f%xxzs%hSunjh>\:(6OU-=)jht9YM;'gY)'?H+v$2%EWNfpCP6294apjK-sd5gW
U"wWo0#%C;A5<z#N/*G#aQcg\-FB166r5OkMsb40X[rSVMKskp&/d^cmDZ:gR-OZu
U"+D_*u%p()9%%%%-g%5_E:G4<K*['%%%%X&%%%1%%%%lwf%xxhz%ySunjh>]J+29
U"E-=ij8#+%$'3KQ]1F\9w4I^:9-_umV:tUq$J=r2s<F_k\<)6-,hOJnp<wmyfZiE
U"uoqr]&_k?+=o5u>aM)W[&n6')13s]oDEu.UjVu?%cup(%)9%%#%-%LbPDGCU.:Z
U"8%%%%X%&%%1%%%%k.qt&j%wxhS[unhtNtoePUfV*Q)PVFRBFcR<\L?=Q,v:%d(q
U"[d24&c$9e8FXtARnS_79yqd&aQLg&$dymdd259/IIT51FJwa#Lq97FSQaN)St1]
U"[e?5SYRBn/#7+F1I1M1841u7OO>Y1g*)m&%%up()%9%%%R-%RK'DG[p6V^n%%%%
U"X&%%%0%%%%kq(t&jw%xSun^hDs:%2(F1GrX(X%b5$U=eoi1fvy[9:M[[:u3AbcQ
U"]S6R,;Z]K5kh&o-vjqJ7FhN%%(3EXf<?jJO33U=5<Al,/q1R()bBm]ooe>mMu2B
U"&?O^G^au)LcW[a[(V'c<-?aK1/dUrPG;]#jglP+\RBvJNEbLC8*B#hOximv_+D?
U"n;;K:l?a$DgU2I9q;Am>88uNV<8K9lXU4%up()%9%%%d-%O+KDGXG*^%R%%%%X&
U"%%%/%%%%kj#shj%%SunhQttoeePfV*2QPV&#/W>_%fjj*F/p;-1Sy1Y2r77WL&O
U".DR*=[b*8TG4%%up(%)9%%%%-%<c,DGC1v(1D%%%%X%&%%/%%%%k%jshj%mSunX
U"httoDePfVN*QPVAPGu-D-]i3beXQH0=noN(C9%%%up()%9%%%d-%(,BDGwU%L8h
U"%%%%X&%%%/%%%%kj%shji%SunhQttoeePfV*2QPV&+\A%g)3=k+\k*G+)o+-H((
U"T,x'A%X'%I2V%0'>y4ag;Z;6m<;h1V^P&9NnM&Ru,Y$%,f%u%p()9%%%%-d%4xG
U"FG=qa%ts%%%%X&%%%.%%I%i>6DBAS?q826G.f/OeR1(9I::n[(K>LJ,LwaR/h&E
U"8v,O22r_oF$Fuo^)F<WO-1K]Ou:]vwG(KbsdM2gm<.$2TO:(W3yblHj$3f$>Rn<
U"H.l%%up()%9%%%R-%KxfGG<P+%Rw%%%%X&%%%.%%%%it%lxqS[unh6A]v3O[U-h
U"jSNljOT?Xt4*+$[VJ#U$HX&tp7:N+$S0+Sj9%>'EN(ux8;,9Q,eRK?m?;\7f(]5
U"Y'fahEhFqeb6QE\KqD=#Fw0T=ypv&=up(%)9%%%%-%t-&GG%7pk<s%%%%X%&%%/
U"%%%%i%tlrw%zSun4h>Zf(/Oe1X(dVvoqejR-/T2&Lf*EZH79FVmsg(lO5Re,2%h
U"w'iv4lsIyzCU.4V_iax:93B^NNCg>-b#&.(w+NAc(s6iH7C*rb#u%p()9%%%%-g
U"%>zGOGLeL'Zz%%%%X&%%%/%%%%itl%rwiS[unh6A\v/O[U1hd<x][&i>2ZS%QjU
U"RR-/[vV0S6t3F]4[U#VBi;L:$0?4T^IS,OXSC6p$Q+>c^>KJ?:%.LV1z(1)t,TI
U"vNJTH:8NUNG)IPzsNl%up()%9%%%m-%M%'GGd0(6:y%%%%X&%%%/%%%%it%lrqz
U"%Sunh?6EV2&OU-)?YlVvaAI]/O.Mbga-qh\U%-S_J^g^Dg&u0?:-o*fL:&w9Z/b
U"\_-JdrUq(H6t[:WQW;ekos*evWVRv/tft)?#;X]V,o,.xVL%up()%9%%%[-%\%]
U"GGOE*I*u%%%%X&%%%/%%%%it%lrqi%Sunh9>q:2\Oe-<Wx\[Ol?*\9L:BXT*)OT
U"#pw7L+f'x3X73>kB3gLoM4qb0w-W9-Z#jiqbJ+flkn(*jisK%3EE9())TJ[M9UJ
U"4iN3GnG&%up()%9%%%I-%[T0DGGY<FVm%%%%-)%%%-%%%%gf%hpSudnh\I0V.Re
U"O19#TL3p5gLPC]JNMfjp_bC)45RheHfd-tQOI$H.,%sTG$NnflQ2Vzyr7+d/oK,
U"&M-Jni]nE3P1HeGT%uUr<2B8kO/4cGg)^CMl=IA1^vB&KonZnWl&/O_A4;8FIv1
U"J3vy,?IZrN<?c1SvMhS7VA#9m+LX[nu*/<KiB5RFNlUFj'#sE'2%=sFvraf%;]r
U"tLS#MNb>]8hK2(EyM?=N7UvkgJLr]e_$2<T]Oyge4..3$B'S<2a_#7RklTRhH?W
U"25(ri]?F1Y?F]Hj*^7JPLp;\3=+W=0*7l_I(c5\:Oo$'8Tup%()9%%%%-%(q_NI
U"gP+X=&'U%%'ZF&%%.%%%Lr>F4JAS10kB]+dtB[1+]xczrgDCA,m8]<]b/l-]V=u
U"CO=.MkOg1bhlQqYOb[U(]PqghBr3d>Fp9+JTefAc=VRbyf]pRDxM*V9nRkx\eV]
U"g3KEYIxpbI\L>)PE,6\,<_q#<EiH2Ve*xciPZjWF_m'ekJwx9FghlGq%/pw=_E^
U":l3oCI2kCV(WOKm5q.*:[Pj#ABHu$QXu/mUYj<hH<DAx?Nrod^;Z>CdH3p0PRBV
U"r](lE7IlT89Q;F'^.]ne\l$uII?X[+X4]2iJjUWR/D*-3HE1EwR=NanO,grpmpF
U"Y*+UlTh+l+-79C'6pb#VH<#$FconFiN0:yG;Af2a0,A52sc<TkI^u-6WTo9%-g_
U"Pw/A8P71(FdWPQ6mZ:KD9JX;?5jJhDG>Q:c7a*>96Kt/SgU6d'bE-,*\,5*E='<
U"H*\h,22rnYO%<<oq_W>NKrM532JGqmO=r;8\</;R&LSkP#lT^'acuUTk\4H<5(a
U",10>BajT2k_M)9DJ34+]5S6L>/f4G[FUsYZb$0=p.SFwf>r>Hk5urTVN50)'dX%
U"tK*1dS^*Wor9m#XkBE1+_N),B:EM=U89;-Bc6eaf&=1^d/1\j]GSc%QCCBAC^uM
U"3fLvl+(UtcVj>.$aF6ynJo)1Ff6-jw:7U$kcp-13C#]1SI$ln;;$^*9K?KCf-D'
U"Xs0FQ':q;6Z;_.rp6aigUi[ZfILbI4?:Fi[*j*]3E,<w;4.h8?R2gfqO8mI?ar]
U"ga^bCiraJP1RQP^[jKQ:Gc,/j[sr^Ud;M%[8R25uh0wC2T(Q$EJK&',qF)NsOOp
U"83\+n5M/6^wu_A+d)$5>*8mUv0._.uOtk3VnY+c/SZ$Blbev.kb1Q2'Mr9r2eaQ
U"$T$FR-pe'V4f^k-/Z\dy:;=pWe_R(\7Bd&O_\-iU6is2Cob\<F084:XTL&eU;jr
U"AzLcp4%QA3n:PQIfjCc0cZvbk;ln.cj4%M0eXTbHgHjD/jUQ.qg$nJptZ.#;alq
U"4%[1BC)#l%]H5RNP\alFF/r)>ej.FQsk-:vZiR<-iO+PG6%Mk-R/5F)'B7&f]//
U"Qb7V0-o3B]gCs1ajlV/_sDF?K#W)q-*%\ABU56\D9l-wAQt>4Mnb4F':aj,&4N_
U"Ar>IRC'x+pkGQgcO\(gT4&v.iT>*<SU2LYdm<R0ebQY)quN&cO\%ynXzKKoB\&a
U"Js\E>dO8-p%#L^jeO*3nacgE1M\oP&6Oj',ZI+86Wg3P=Q.hUvVk5QY2pv8fh*:
U"Q;cKvE07vC/iQ:.nEj+/u,q0_jSfPaPq1\agS?zT\fHBsbPuTcU4tgzlpE6n89N
U"HP&?WWP1:i^_.Yqx9/v]b/=Zp?_j^Nhn2I(OMWLL>wJWgik8\o&S3W8-Y+P^pV.
U"$2k.5jW[Rr#0P%_'/rrn;9Q-oV#W;6Q55K#yiTtO'd*RJm&^4Ww7;2^jqf:49dy
U"y=\>3pJIA28J\d18JlC*'n9eD0P%(V^nU)sQ'/,r#;Zorsom'F0Aq<5oXXeJ24*
U"CV\.3o7yl(ahi#SJCc-m#RQey688dlTDwLWmqm%jvhTV/QTp+9JYJ%3Th23EaoE
U"ZNE+KPr3YG.HhhzKrkDfd?;hD]%./+hg(^E[>n/+9nHZ1Bjg/h$k4O3IlO.%+vA
U"Y:r%d_<CSY1Z/l9hA'4n=[neif&?7MEUE=ZNISyTfPjbNf_+UCO1_8[bO&f/#Mg
U"p;<\(WIZjP^n2:F?*qYLvZaU$pU66Fw&N.-2.p_.'\I><#S3StrN(-B.>p_O/OC
U"JdaC]REF?W38^5FQD#U?Rl9<MpKh[jC0t]^]6F*<4h7u7o+A]y(&</gu\aCE:O)
U"9:rlisTJ6nBj]T'%rqXrDBjRMmL1LYiyUp]tjCYf=GVAqhiZARwCk'6K=b0Us>]
U"^Ap+;i_&/,]/;q*8nd)Gg(R9vLkTb]#ben4+u0$+=P)0B;+(QpTU&POJ=#TAWem
U"Vkr)u^QfaDKB*;4;0:S\aBVN2Th$o<[).drC_?4$Q?Dt?G7Zt/TiVC'&wUz^?G(
U"oC_/YK)pYVT-))E%0fj>.9k?m)5sZZRDbNJ:78[WW5<+)+fSS#SsZaQOiYp6>RC
U"UQbo/LZu>wKbU?aNrbkHG6=gBx/?Ho^N?EnlI^8:Qq#;[Uuc]Fs[LUDu]hBSO;Q
U"DSE[XC]Dp_Hl\CLiYYoebD^kIoOh>il)M>._RdAh.i1Udl2lEG9tmYEjZ$GtoZ8
U"Yl:ra9LUkxqtUvEo$-I9AWAx1mexJ\2JY4Y$O:^6dU3^/+uVUF?YG<\7C8EC'VE
U">$':1\'\f8A%j2<xJLB'2Y5>xZ-)Gl8+9KU&FQ4fC0'J=1LTEC/B[kCJ59*L9v/
U"/*9-[pYs^N^lo_=h5R#r;?Y&GpAo*Hu1*-6)h2-A75j,&of=q3Ek[aYd-55<v=d
U"qD0OB,DP#^hE4hR_3LAi^ks_tI>:5[(1Q>fvRt.=52Wok%X_C%XO_=(?iH]7pu0
U"GAA;.s]'EuYNY:l^UuY&jUpmq>4b1^t?7TGO3hKuFrbRlxRDR7ohchcntHS>tWG
U"?)L#<-b.Er4q:V?-eWZ7G<ijdgDgSCG9tz6K<=;zA6.ok5La_=D%,aPUJN5aZ#)
U"k\NG1TzlCl**i74nTMAFF10pRq8bc:5V5PFA:RU?1Yt8Y8r6p2av^+Fh$>xPj&)
U"?\/c69aTm/vF,H]?X.I&S>8K]c6P<V1Q6jOhMy5&o'#^]oiGiToV]z19p01GfZ&
U"g=O+'yMcdt1B3;^pj&G('^h,B[f;k*\mK'[O7M7OUiq/a<qSfN^+Wm(lIs6V+:*
U"[ij#;dh#O*F5gju5_>ocgFv]^0dUP0c^y_ZXgu>$biIXpj+IR2?YJSxa001;iH9
U"j?XCf&PPD(;V*%b;'dXoBJIH\+F[7$.1MRe<rg_GT7t<#>eeNd=eoGPG4hA_$6E
U"1QnPc%xL6EO\oZP%9B29#wo*G5kTrkG*&Sh8X=q<r0(ae88W.KxkM;pxz'lW)j4
U"TSKor>-J7B]L:rQqlc]+>(s0c1pS?C&7y\gldqSNAwv2+p%\p'>q%1C9(io^gW5
U"3^=.gA5iIR2#H47Is5nnH;A2w4N=O6s:FURtHu[1eUV#sMO/lw3t\Y*>Av)c.un
U"3d<2Z-1>lH1=^b:m0g;*Nd:V(;Q&0)$AD#]XnP\%E$J8*CWsib;IbWZmdcj,ss=
U"6.QBW[:(\/Bwou7VKsM]+cZ/xo0-4P)yT-\QN$Dwi]m#$l(0jL^9Pv%R/P7y3Tq
U"'d]c%-Hq7tM[3hY+a-2quQsC[Aq\To8&%-NoYIyMww$ZrvGZLA9gtPaob#m)M3f
U"q[Y.Q\\bNP1ETB%5yHR7bwM5:PI&acL_qgS&77kZ3l$mZ5l[M*X=q0)SyJwdh0S
U"aWmWHz*c-hYBo*2]_*\P/JU7u;JAeTa,hBO*gyhxeP4ese*G\j$Vh0Mo>t7]T?i
U"?b(C<ck^pwK&735^km>0_0r1DswOE9R5-GJF)p*tu4gS/:[];:o7nDO7XuJ+XY#
END SUB
SUB V3
U"\SFSo;^+UWmAjHi*qRa*C9-ibOy5gZM=;E/R-O_M^,l*6dML(wu(+.U?>DfQN2r
U"8(Fc6%P]eQ&]#qSCCYE26\omx]xs>E*XYpWfEJw9BuCX4'_9mNw1ptIpd[bN$XU
U"l;lrCGA-:mYgga[a,)g$Jp2A^?nmBcfw:tttTd>U5&%0*TrPkMZ3Ccjm#\Y5wwE
U"^)6:d)6snkbHY>>Ack<jnN%_n&'f]xm?$ZIG#D+]B]<+[\53ZqG%s9]6fv(5N[3
U"9]&_Ii5$fr-e8B+/G#)8s=Nn$3]wM_w[]?_guD%s-0ZPrl1GcL]+;plFvYFZuDk
U"dAZ?JZ#r:rFK6#n^hYhup[ZR\tPEPC:DovJ)wbhvV/uC2G3wc,X1h)apc2*7Peg
U"OPDFx86qb>49fZf61myok['qGW8=d>Y7Pw/p?FGo#u_)X<YD#l]o)%[f,SCDVt;
U"'KUXd6-ofjeAn>(fp[4Ayl)agdmta:lDj/5uuc%1$IK,ha4_wdkBtvu1\Zx\d>n
U"u-1IJ/ZH+/ZQx#qZM<\Z6To>9X7esvB4y3iQQ>Xn't,c\sVNeKDr'CO2iQn'b%p
U"_0ZFpxv)U#5OX$^npXf=>h/6o>Fx)K4XoQSs4NWc1KZcYd^/Us,LWT>gqPqhX69
U"M>7r'Q:p9VDy6vEMJAeb#**nj9xB=6a+ZWv]go#8j0/12fq_-V:&xHT/YND,F(t
U"ip%OiyaD=]Rts).2a]rB/VOD/ggeZ7$&fYpS8>#,kMmj.(\D#k:_Yn,T/p6U)p3
U"3J5s3aLRLi#*>Uq/L:pdi>8p;+]l#,Jk6hH5*bhA],3yQ?%%:&;$3#E/h:6Ns^U
U"gX>Q;('/$e_hPOt\EjCY0I-)jy>XNafBp_8:1a#gZS0jq,-Zx_v'4aF's'J7+nJ
U"d#?5j<erAJXF()Qr$uo,QRrcMZG.Ke.y#-T*&I_15B59IATDl4<xL$tkV\=i8l+
U"$_fY&5-H=jRX0/e.]#WViGj2TtiQ%X)Z\)akGl>nVoynhh#YeMg&Nwk=ZvxBuXX
U"8ft/O\GlXr7c5CipVBS0wz-$\<$;PGWDDM3AsTYA98#M]:*;Hx_:JktTNRYkhY<
U"NNf,o,9wDDSe6g9N()tEt$?4:*x-p(bzxM=zo[YJ*/]81I??(n^dLQ3X0t<PDQv
U"&=?SCUr-D9I*Ff=?W&+)l_&YzDU5z/.f%o<(;p/kJK?(Uy<8'0(:mdOp]=^UIDi
U"yt&Gd$GObn<aSdkkgf5ct'c8^=eAsX;r%^eB\OcbZqDS=h)Ba(MD&RVa]ot<*o\
U"ZU=%U+XerL</kB0WEPbihwoJ?<LP/W:I]?3EvH:-&Yf2Ysc>ak1q3cJgw\3Z'ga
U"HZ_ZW3;(jR0aX($Ssms;M2;h>VOE-ZN-^j?W>)w)n6Df:V(sB3=%nunc-cV8q\M
U"dF?c.oV<N),,RPNNf8=ka8cJA-.x(+o.9l&,&Q#\8ej#r+hOH^yypbD9mr223w^
U">OH^AiDrq%59Qx*s4^&Mzh8xkO.:[9oJLbr-88b3g>Zdd/JKJ<z33Q-n$Tyw\Il
U"d82Ie2SjP8ldci7xsv*(sezLW;tA_v<z'OON8*dzz4K&uOPS/%r*/MrKTO9ToHv
U"e4oYXfHeq?I$ahPV5Y5gFOEOSf$ilP'kKMF]n,K,JA:d[K5ydaMQVFZqxxcP$wD
U"LW=Cf6J<;A3<uV]c=?:x?*>ZPgO1O\'q3CHNW.kpFk*BuUVUbhj*kC<?3Z;uhZQ
U"#>85iC7K>eo+eSV\de1+S#'NstjHQjCU/gH&6eE?(Uh-pZWI%U9Z1H)QDGlrbg>
U"aT_]G35c9&oe()QM$u9joM.u?#1o:[;Mf4pxTPwsLa,QIgk2QO#fv7.:auMG(*v
U"0dMflVo2;6NDCEV>CBC6UbQNd?WZ=xn%f\u*E,:r^9=b_q1xXQlG2>ZNC4pgF2q
U"C\5HwEE$t++PPC^0u0Z_;5k=N%LiBP5?&7+7382t;l^4MAV%<%9R+Wc5hY-o,jJ
U"HKV)kk\mPl9GMHaoC=)?,#-XDn68[P=FT+at?9&:ibZ//rFk=&$Gmym,a*M+enu
U"%5b-9*&]xeK3q^?uLBrI$ocYnllWs(VM><\^[M;QK<2?&VhDbIa=ZL7]3[9e.[^
U"nY4lxZgTj>NcBhdN\fH(A/vdfTu,EXhkgl\$\2K*F8UmJ[)GsJ8mOV#bUuA)sCZ
U"9,x?2cQW&5m#z6k1)nUY<??d]S.S;Cxq7Y9Rl1pA2O[lb=N;re<sl.VZ*R_rV\,
U"V/Fc1HM6W8(1Keu70Wb995?,Yhq8H:.8Y1;3rSR:ml&&2lrLWL:aYL9tkC*&joo
U"mK1PTEi#M1ytieN[U&Y*;D\]p8>Y0]Db?pouv5foFubX9Yt[HFv1L>6nWA#0Iv2
U"I3WJd>h(d25ho9mlyQMeQwC'NKtcH/bv]NsZKRM2O:Fwpru7(HrQnU=NgPF$wXy
U"k2SR'NUq<mU/%ptS-i8Yz8&$u;(.M$egmahO$BfyHrVGe4'4-:7^ry,u4iBEbi4
U"G)Ef+)bC5y+8aag5I]&;#C2pNHiH_(y.I'tJr.3#/yQC)X$gk;QrMEPGI?sNRTg
U"DI8AR[?XmAJA+sH1Qsxfk%K_Tq2tUc%wK$/LN]dAJzpHhJU1]djWIt%&4eCPD4o
U"p(RthG^;dA'pe8IVK;FF2aI+Wq^g5\s<kJdhpKfMF^m^GMMdUgi#ArvDD-M]=GY
U"irJw&BBZ^S[Cvt/F15i%DFKllJUNQa)#e?I165A7=FBv&,DXi5gB#):IzYM&JOA
U"6)9AMFlFk7M&4'Z^qiw^f6J+=Z#yX^m5w^rvnf.M]>gsgDFboze#-\^ya]JvLbc
U"C7Z+K#:6IB\ryIQ6=Ah3#q\]^rq%25AK6NJ#zx9C7ZK'#=L_Y-W=q89K#>m6B0'
U"AyQ6=MAs#q-\^rQi(5A%809401yX?z*UWJBZwjAD6.ri*1lp#_KGj9PqsSW$o%&
U"Zdkkr:sAAjk5U,;8'$YL4u;_N]1JQm>D30K5t;MOX3r5_j4cuIE;KKLg=AIQsp4
U"M9JlkHPFtr$]p)kQ)irHpj\jfkA6QiO#Ufmb]<tNt\fQfZe\H.8$HaO4;6tYWer
U"lYFu^Kd(#_RUHMp\W%UXKg8irO(v&iWpeFYXX_+0lAE$&Fa([g-(0e,(GRU#=7.
U"icUdqFi]?+Iw+P21yP[77B]Mto/2KQ;1\OK\&X3^b06(m$O*0o7xI.7]nJ8LN+G
U"eI='kU'zrtg]=c,ZgQFR926&t<Rk?fcG_3GH<r=\UBk>RDk%[vn0DOLWB=,IY_L
U"b5bA/#t(]ln[kf&uG#y8/n/F,[Wq?y>#+qgwVf(h8UhnU2CH3*_h'E2hrNV764K
U"fYJTiDEELr.i;V1Q4#\JI*zfNB;yA.\8U$i#POE<F;_kbk\&ltUkUBNDe*nR/]4
U"z3,(e/\9'rDfCwp^(9E1-WFI.3o#ndNMECk=2O)e&$%l+IkI6le=]cnktvIQJ?d
U"*KUo6NH*Nnk=0$Q=$o*]_&z48-ahlgU9.p-:#aKOAwk\3KfwrZCx.WDTmPGbG:2
U",KY=$r5&,8)inzX6l$7f%A]ZXtjT'gD:J]l[U+2h_CMzkQM1bLr8:UvH3/#yiW5
U"uP=gT_3?(NSsn#xT9r3zfC'wn>8$5Eq&aktE$Z'bu?5]T]J5s+F_jLG,Db%vE$<
U"'tK_E%6[6kB(T3?\ql>45Y1ijLwM.7$=^MfNW^n(5weDi[JP^%Ud1nMH/Qn-x=4
U"lmUX(/eCsvj*e=6Wbb^;:cxIBUBB#oVp8XF2:(.*h$5B,(^zp/\s=_G$-qB\&.H
U"cUL7(_I$9(IOj%5I3CseLV%^+b6h8z&Qn][Xc_'^:#2,N*NJlG%X830.?xT'<ZQ
U"$g<Nc<3.34BR<6jDLn.^J=IMfod_^4(<v85?K8tgRD856N-x0ZI20LK>5)pe[Zs
U"x#?mq*oPMo\jRA4;E]wb-Q9QqPX;_SPRmWsqb<3;g+P.rFg'jXzV(^*guO#kiZC
U"Y>>H/>D0H)TajqbO9TXHVr\Fmb(Ltb8W/k;1nY\JWH8>fV53p#f)1c'jQ/9GE<Y
U"JX:Rh?XdBU($Y>[M$8j>P&0&6]$g*5F9Dus7'2fgSZ_KX/P]9A#oh:a?7D0vZ5S
U"egbY__'#EJpN_iQ)=uI'0R6lst3JgvCM1+f%Y\f_*W,hN$T-NZ1K.AO6ne:LN*3
U"LX>2_^<chk<2^ogc\\#.BCT9oKR1%A:TFv%PQK5mR\\l&mC0/d^Z-(2TpGrp?i8
U"fb&(x#nkbh]i,NaEKC+85Se),&Q&]5m=?fA9on/4**74=.b]scQq#IVC-lo0>Vh
U"d(dNJV3K[os&MNLz(h(Mh(hDO7^TW8L:FX_4kCWsLLj_Oq+gfFV%5Hd-%D>2B%c
U"<PkGaV,7=ILK[(rO+(<vgDW)Q30&$ex93Etl3OC.^(#hEU6JxJ['2Fo0,8\2QIt
U"y^=h5khNMy1DTRp4<T45-'mh)\6'^UP<x-o^dS(OqA8k-?%jA$%ESOrOr'KEjiq
U"(vW+]Ic83Hr2QRQqd*,\_JMEeY,Ac+jrN7Dk3;sp6Xu5=Spd%:KZP?uQBVvO-F2
U"6H7ne^.8=[^_p%Uo\YcBPnc50?W&NBXVMlXuJ:5[7E)S,Y^4h^eJ5^?^7UBHeOC
U"QCXM47#j+IQp&9laPj*T)-xHdA.X\,t=>_+qenX[S10(quqcb(q>N^U65Yc$j[&
U"$eZ&qRG&rH$/'wuhcahE23\,Z]B#D<XfgDGh-#JIv,bc$7F,uoeIlJX2-&58jeI
U"&0mWrm%,*-iwb0&ZI>j(DK#aQPYs]Cwh3Dz&p?0lU4:rk]koJ#W0HIYEyF,bS$A
U"IrjmppG^jfYPp(%&MGKsfBIs5Cana.tX(oq#,MS>asWH9E,tg)nK1l)<w/ErKkU
U"h]^c^><%dc.z[=62TH9%rUnr>dlRDKpNb\1Zx:_ivNN&LiAPBb6,/LJioiJ%1U&
U"[cr=^wsMh2Ia;i;A9nhaCF:m1A[A0C1sgZ%Xn=+\c90N'w_?XL0ss&.wbi'&4=W
U"Dc]X)?sg51n316HLu+\ZC*;^h>Q*WG7l3<_*cqARP3vfV>HDDbzGj*%t/_u3u&u
U"K+r[Qq0,tp;L2+:0nMZ;rQ6?A_AJFyXfFZ$ruT5=s$lUM4W8KlwlqAaxjrOM0ai
U"Q>'I$Ml[Mi=z-?snM3'w78tpi/4UOyV$INsi>\U,MXH]BjjVb#DZmAXn%tc>MdE
U"pv85i&Nl\9u<[.vB8m;EtICuc:p(kk9OCWBPaX8'Gi10=Ku4%ZRGa=P?rUFj5x)
U"_#xm#.7$rqi]IbGU(Z#Hn=6wdMPyV=bpM<bS3]0>1PN-32eCTF\j_:j&S<fM#+r
U"y-XHTS<tT=JoG4Q]TF,2-:%A65-]6'G$7fx=ehvJ[D5N4nq)p=r#E<R=Hg%_x-N
U"$''HPDQ('#>xJNV3\:/#soWA6OybP.-mZ-'DCLJ6O:;lD^R3(lA&hDT%K=pmZ8P
U"4-QhqLcHHB8'?BVZ&fc[bkc&VcbM/ma_MGpJ;x*Zu^c_So,=TAK32#dBIU+3N(m
U"(n/b^zkuMx(-J<62FUJ2pm,Z**=MgnL][j7[FJ2Bx]1E:Uc\qE$W>XG#..?x_tn
U"<L3=nR29JB0ei3jzXXW5^I-RJDn027,4Kl#6.iSG(FB#KDKY-U*_VlZa8r')[LE
U"5#F(^rP]AkSDc#3]-2S+I\zH(rVUz?P>g'JN$(-lF\Ug*f?cx>Mk_SX516>OIQw
U"QwT,*Ah5qqw9<'?NW(+_I.e$'tg'mR%2g#g+$b;z1X)g6\X/BieZ+[um_KTD[L(
U"$$KiMc30%4pmk9eigx$YRfAl>,Si>MXwVF3Mak,f>kU*LMGAUp2w[YlmBMRcVRY
U"qf.vBi8t,jWsu9*Q2sTM6iCS2N?Z*gDcpHarO1RBadgcxlL2?vT,]hT(Y)TWWMu
U"vgTL(pD3aT<ie:=<l7zB268Od7LjbM[Kbwiu,%T:OD]BVw*e<)B?S#mYE1P6ce-
U"0h8r)^=#D]$V(q_d99*e,4V:8d'+D#$;FNjr_-E8)$3<oLl3jN[uPGeD9<+xQ2F
U"RPi*ks%aA2Qzk\v6<8cqppj:,+c7W6]YX-\oe3b#7>E8usd<E0c&(=8r>IZn8YE
U"=$$qZE5VrcIFur^1LcnZq7GMu<t%HAVW&GyLZ-s%UP-[=P*(9K#>k)>HT:jn=4D
U"d1OQrFJ]r4SCW*c&^c*(]rSSo6K4&=PJQ90<8Ly+IcA(w=9WZZfWGrH%Hba,^u+
U"a'PPC'I<8$m'3nLHK4i9UzfM2n2YXe=ANr^g[[CUV*g8Tl:/Lp+Qh)7MHHn#;7h
U"TYKL4tJA[H9GL7>\jHN<kEd_Fo:_.k9=Pc^l;4]]pL(LQv<,wi+.,\o_K^<wRdC
U":Q5I.)a>R5Q+o?b6fT8RmVl#IcMU6BOAUe8-VM'kd7L1U9o3jYJ1cT[3nP15ZZ$
U"i[EHMm#(0h527ZbnZ2Bl*d[*j?uO)]u/vr\&SNzn2.HK0V.Upn;^gw_ZhPiLf91
U"fl5]8BY6=Rcs6ce#/4xSr.AKb<FQK<cFN[]>g$KNA0-7Wa6jn3w.,a[mV'DnF)\
U"qFk%Bd<\jW8%#:Bcy6HS8:,Hhd:R(J8ZnPDQhYD+^20n8-t'*NKs9B/WXzp<C.D
U"::#E8dG:5mSC#[YPA\-ty6G%^Y=#QUW+<L=c(:l>L+Weh;JC?d%a:5o/rI4+rN'
U"bT9b=(ZE2Hzph1aLLF/V1gC)p\WGtg6N*#34qJso_qh_PaYw_*.bC>M74>gpA'i
U"1Ul9_jkLE;r[IrZ8#Gt?ir5MT9*A\E,w?v+Xvb5CfI3tGKd<zKIEjziaq[ue9Qo
U"Y;mzB3jFCQu]c%+a/Z0*#qQWkE8)fn<xSE3]Tm,>$nKWztp\?)Bj(PVl[.eVHG5
U"pkL1NCw_BD6fQ9Z'?N6mn-3Yiq[/5N_SYF&0]P=bt>G92w'BO_mnz5O/Eyt'KA8
U"i(Py'iF#rLW?'f>wXacu16s2X;'?A5R-td7Kouz-Daa)ENmQ_hQgv+^oNS-\99i
U"&cksaS.7DbsDw7+<-<M<#J\?TcBK$S+6_eaR.^QnGoF6j(F[jQ+$TsP&:?=+C7x
U"Y5^_]$3N1V#bkAWDYfzz#oT_l0XpJZF#9'<G#;JvfdwhkSSfkCUN%W.h5Oy*#3)
U"V_,5,Nt*x_O>T<y\2Do0cFn328<.\lUJr(iR5$sr%(S3uZU8\p_ziu\G.2fb&sf
U"q85OBOXUziw<g>90b^wo;]G#[Qt00M%oT\t><%QW$d.d$)ABk,g3>)=a>ZX?loJ
U"3%<muZ(0wOgD#hARl]5gx&I?Dmr]Ha&>actc4bG)\(u'=<5vmz\#;*]f6YgmfN&
U"x#QW\fGh8J61v#Sg8*Qu=*Bb66B:*^>QQNZ2K'RAj-AKfK.Z6]/_JLI*U:)cGFk
U"bxq&/dUFKG^o$1rRiUm')Xz2%d)/#>f\SV<>'bue6?IV?5_+/2Uf\J8M?%$/r'H
U"]:BJsGNA;FZ;KdI;bSt/nC$-hFcPfWtjH+>R_,D%.M,7]QD+k'rM5SJEKXkSAgI
U"U[+,h3V(>CkmH0ZPnH:Hn,2U/-(/i$7P$oM=/5cW;2Zu-s-wL_)/4:HtjqHLHOI
U"igh$\k%Z)BfO)kZP&y4_H5YIXl^eK,sLP$oqTx-QB-m1o2gCWqv-fXcJsD0p,CD
U"Yp:&b4W:XN)4geGx&G#l>_W93,mE-4ar3d69d<?QdjH,i$3M*0N/=?,Ug:-$e&>
U"c/24J'nyn\&Y7gw_AS&(F626:,#$P7./>?_W%*QORx<*40Bx'p#gmS7HL$eAY<_
U"P5&M3XDO7Yohd4:'IHE#Y>qe4$**%dM7qe0$vkO\V0HlMjlb1N.gXllTDJIy4#N
U"#KxEUbS]qu7sS'VbtOEYLbgJpeO<g;Jo946e7>R,/OB8]pVIoCdY>vgQ^>?%NJR
U"YuWt64i$*:pVK<?NP3pKzqwJ7nu\4$D?.\-)PNHEkl8:jN^bycRZ.X)wgq?GFHT
U"d2;,1.+3-kP&T;5lm\E4ekv\o/9-G&kErKYQW(bG$Jve5le)c_^N5#JtoQe[H5#
U"83gC_pS<%ffsR&uaK\Ftg=pD?]FOY=:1QBi(=J-b%cYPgZ>4,Eb((3.YZ=Er(<Y
U"oU-U=(e38pb>(q=*m\w#%vPjV69GBTjuMq[>+*fixe>X,Arf&UtJo#PYYJi^w%,
U"]by+X8jI4aVt=cU8'Ja?ru?LhcFck'%h4f98FVQUV+Q6g]0j-%v37N_xA^_A&n-
U".MrYlO41bZu^X(U4]'PFjf*2y2_q4q'ku)XP4_J:4IxRcf]3LE7%VjW3M-w_.[=
U"SP_mFsl#,ATu<a8Mz$=L'*%b#Mu:t1=Nk:[,9X2DW:SH2^Q,XKh.38S405QVnk\
U"qi^eVsJ0bkZAo+rq=(=<&>E#'iwc*c<Sc3s^Nt2>*55fc=h(dMA9P1k*UALDXl.
U"A+5xgJ+CtYOjVK_sIQuArP#+sfM[96pwDSHhNO-);8W;&=99D,k_ioGl#\c#]2D
U"d.cH\3TrrQ^,WC\uUR0GKObm0^Vd+.sfm:bdHjq1<_/OShmmaJ7T^_=rHnG8)'A
U"3Q$Q0U1UThE1PB1.C^w/S.IAW$u]qOT&\1M-D?Nq;S8v.r[)wx)(iJPSXAbo5Qc
U"KrI)y<N<>ao.(okB(3H>;Xj/hR%P*Q1ZLkY>'u+5&l3C0J_5m#PDqoues_jtlIc
U"GV14-:MrtB:Yu4)J&axy$qK2t_[9n?^A0Rvo'#RdFpV)X.6=^.*my>(=QQ.>F_<
U"^SpmPo*FJ0at:?uthh-^NWIl.P(aP0>5ofR_2H>txVGcB-^cOjLYUrUMYeYU7H7
U"N5:GW;QG7p_,.^KLjHuAHbg>A?^5f&3nhU/kV;x_9f;q_sB3C8ACbmSX[+r5k;p
U"G%GWJuoBp\oeqY)k5[-si%J0+;]ZsMDjq;&,TTk7E]:AZ]PvU'9\u]PgN=:T.s\
U"kj_)Bq0U^eEgm\d/RjWuzT1WG3%mqm<Df/f[n+QFTm;$q*UD=3/h(XKrL:D?mw&
U"M/6YlCOSQr(.=D$XUnf>c^jK#]Zl):rM]LMeUBkHkvHu9f6^i&,ma*\6_Yt)?o0
U"I=tY:YJr]w;9XDK&gZ.GWlc1(OBuq(#bS;U4N/GmUen-)9P%6'C%I0IX'Do>I%^
U".)Fh%jc&:j4'n#nZTehMQKE5'LR6p-_,fwa(xCrOq&.TXOE^AdNgk7#oF\B^R5A
U"cHpAvIdu3#mnIN[3g/]UO%Tb$lfr$-M2p1'vF4a,x;=a+5\MDyQ#9):jS5RN:LR
U"jNhi6Lmwbm_cim%%$L9v8d89Q4qU+zp9^=y5fAON0>]5cL^kah_9Dc59$.eY0#w
U"k\DHds$-N*PCOB_+NAegXsAHJm3/tb:M+4M_+JMM.a9_j'jr4k2WY5A3brR&cx-
U"_v/o*G;0I[.6S<-l^c8D&Q/rJZ_XO?Hp4(>x(ecn2iFAMv28AsT*%kT/\HWO\7s
U"aXLp#?T5[OTKI*_z9bk%-kdP\][='\AjK=m+B.?dD=^]q)FbI[J/w:GHWjk#yLR
U"]Pw0(v6ERRjZRt.JG?vVL34_HWEG1jHDR0f-JiM&FCCi'&(SXlEsN'AQn,%L66$
U"ZMcY_YKQp[D(=mgM/v[$>aP.4Obz;qFG=8[c1u$8FtaebtS,djCM[.=-2z.]=#1
U"RIdVW:U1kSm68lA6eOz97*B+b*9-HF]4+VYG5MQ=f#DKX823Mc<-I6GHQeRriKo
U"s_)RdhiK$eYafFy%qb,lA.I+S3jeR:v$-6^Ug4&;;mRBh,Y#Z13s:B9v9<xwZ6>
U"8jFv4j[.U_.,j+IA?lrM0B+21g?o>3R^:#H)/&:1#_4(fM#ipV(:G)PBOibUxBI
U"*pdhGgpLX3P<t-%zLv=C(&l*33U3f#Q?D+1tZGU9t]_lB'SFt5T1499BRR?ir$b
U"MW]:lkl#Yaf+Sg/gUOrt#b(0^E(%&4Xzrc=k9[_1;r-2h,luU&BH]<mn8B-mv[L
U"Y0P_OKVH0v/Reqy#7=k*%=>ca0^/'i:1/Qjq/7X9-l0I.DnzuIgB=]r*cP5IK=Y
U")G>]^IhoPj^CAr.=QaD]+n=hP\*98w#&p?(j*GI_\&f_F5L6%%9W\Nc7vAsQ8&u
U"=S5d'0<Z\O+CkunT=hv1[u4$lL-;x1uu4$Df8FA[:YRTP:LqnE.8&ubt09LrK*9
U"-XYxB-NDEu8iR-iPagOj^LO7)%c[.5o*c6XR<Xk=zeJR&D[UR'CMkuT'sikHjM)
U"%8)2+NS[RRi'QDu4J-ZDS-OT$,n)Me1)IKrqZj:E*[AY=ZF826%/,'O(-dVxfhW
U"C=+&3d>'B]OB#,P,n43ZBPgMB]EX)6PsjdDOukbIL3TT?Ym:Cnk1w/fUSj$6(;I
U"\\W1LRsT;qouk4bUD/LH_csE/M;n:R%M]0Y6F]*<X1O8,z%5b<l]V3biV<;.cxS
U"g+$Jquyb$2.7:u;p<LIGiT>75=HRKmFvkbF+obrFl=vqiCP'qVzN[D1:tFDuGX.
U"GVIKBSoAFp$G=D^;2I,#_J;9pd<Ko4vDjKmy;RZF<JeU6:ggie]sW_sjB)OM5,,
U"16h2n;en*:E+*/Hk>9G1HLK\&P:7j%mq;Olf%'uU5&=A=QSKNH6Yn=vEsPa:,%m
U"_q1kfA%SI5lXS=%Okq%2_tnvq]SP:7a%ma;u#XaVFbY_2B5Tqk9f(pdulUOjUCu
U"UL,\g9U6Poa<D1&J+fO9=f]/j_\80TrPE2ZC=EgGp*^UFa2:7L3DHHi,#AteJib
U"\7I6<JfJqj'cm184HpY4vpe&/mnNH_Z^D8s-]]WRgT<:&jf6(g91_E9WL0XUCku
U"mpaD#,Xfk21HXGdLSyi8m=CaeUbj]WER/:ieibtwm:<es[)hldIW\bJ,kA?i[[<
U"e3C-0*Fnj5P.TZv\#FlBFSNV1e*Eu#LRFiV,FI_F4n>2N%7%e:&2Me,2=C'/3SU
U"knFt\r)h3GF:_VXJI<.3b=.iPpuBZ4s55^nMq'k([1MDuNfq,BkXCX'H*qWN*YA
U"/4M,v'kt]'w>mR)PK6UKilps.7AFu?Y%_l]cxINSHhd?'d;J:[x&'Ib=#3:<W;f
U"OQ?N.15Yh?s8uZ]1_7e03_YS#K.HI/ADduERwZWIsDb8Yh$44^bpy8+h7J^sn?_
U"fHagV$ITT.kfU1blW#h/P&qyj<;ww5AiW#>9TwI\(CWX3i2d7r:c6^;qo\xM3Ph
U"U^hHNrPh&[\Yb]51,WOB$O<&<fWCDqzQ'uP==)DLM-J=9r^r83W,SVtJoJH$s<M
U"\]XLD82>i0LoN&qevoC#)M.cbIIi>.h%Qs,bo6SGr'P8Z_ePL0bVN5CeI8R+n4+
U"+So<'WpE$z.<M%#:HW<9Z*A4&fJolz\fuB9=A2t+hEW:3gJD6f/U$0*=W8x((5/
U"DJX2it=?Q;]i?#0k#>sLSIjKR/5a='dNyVuWA\LGB)IxOMK/7J>sp9NZ=koc*=(
U"/dJa1D:ruuWSgbkmnUC9N%+f;;/,N&L];#*ks/V?%QFq1k(pBFt+j.*O\yv:N8e
U"tJ:Invwq7*M3GCNyTn&qcnv)wq*M*cb9Z9_,Q[Gg$P\NF1RxJ/nx]JW4(1G\Htd
U"_+yjiqwDKL=j_dB?XXVdOWPzS8+;_Z8[KL>3hdvXTZ)6Kb#G5vln-M5B(cWN4gf
U"Q8*(KLA0HRkRblpe3pgrkG[I>+7>K_wlcYTl_Pa5Kp\vp%okjJVB\7[p?cUZ>E>
U"g(<bYmjm5aWWV-m.d/=>W2(iPr+m?$R3[j*6g*^q<l6f(1GHkr&E4XR>1Q*BpqI
U"C]HS$vZwN>4-=lWg(T*lb0^n=WRwTG(R3sl(K$hCAhDEKR[bd#ad_+f&cDgV\o_
U"$GJW:48JTo[S3Ho*RzTLMaQnwyp%0Dp#1TWW89Wl9I8*liS$tRDa<_8V&anBL^e
U"0U'WsZ2^eF3Wn.2hIpR_l=,HMe0WJE3Ub]?$'/GFYz-:fjR7HU-h-S$K/?eft&T
U"c*6moDI4d006Xs,m4n#/x4r>GWxYtmd8N,(]QuH_>N]YY_3UmT)N+u/TBs,U_4-
U"lp1e_4_&\O-97EQ9DM(l:qrk#dl<*uNvxF74MWH2_8BeJN9OQlIRDIcRF%MC'4B
U";LIo%>16C)34_&Cen#L,*3TRCy>/fj.->Xf[%fl2%/tkXqHd-w:Gu;]=7h=*(MR
U"jS)PkG[bUy5)g^OR<F/E;O1KF^=0TBW8zj1i58)BH7zezz?=AaY3#W-HK:E6dO>
U"%q;AxD7Fsgq0JDkr7>nRJ^7z%P\MAB48.]+l$6zDY]/Adt79E'HA>)yhNDuFqq2
U"dx%Dup(%)9%%#%-%3c/QIFHa<b5%3%%Z%M%%/%%%%wM403<J4SCGPC&)<&b8\7c
U"wgOx:,,7%2D-R\CeOoAl05TFRfEe-awrMH?Ao=XfKE8OuqXXLWVij[hF<.'fGyQ
U"&;f%8c*V9VC,\jlB*xKus_<cvwZMSr%q,7h%]3W\?'TV8dutZxqml]qY4[?zGjM
U"&e3+WcwRL/*SdfBz%3J/yCgTS?fd5-3xw5fj-u;B2%/Lj[T,sO)RQ/Ka)]0%vjz
U"%v?:AOM>d:2ezwS-h^iz5f^%zhI<c/9CQ)aO7ntX;yWCZ2$wz5$.^+]X[G(XCaC
U"5&;/_RPu%s2*4kFmdix=q_Xr=i\Rvr&9V>1UydTr$&o:)qLPySU75KZiUOCFjt)
U")j_7u6Ed)OGS#4\gSs77u0,v5d,#:CyxH8N>y^(2CBKJ'.Q#4$&Oti-/K5pE&CS
U"y]ABvTE9-uV-FNkh.l?[e1caR3RRm7zV'c^SQHF+=57ZG)DmrFERr-IyKFqq,Fg
U"f;6ccKj[.+/Tj_EKsq#UM436e6w;Y\Vb<+x=:D6]Ck4>r\BQI>10Gq*6c28PZSx
END SUB
SUB V4
U"AB,*2*FG9jrE\/)MWwjxP9I:9bgRRM6K2+>;:y;)VDnGzklD%qJpf$M0HrW4:Ko
U"/V[;;OZoIJ*'B+Ki&EBOWHC6l<XOA/H4[0MG=P5*gOM(G,;J'#;PP3g+&be=Uej
U"$W3'Ay1M;A,(Cz2iK$))T:7#\y[CX%P2BtTK'a9IaO;Wl7B1Z2;OQQ_%28U^?.o
U"0j&nn:FQLF$0aEnt*s]>y?VEDGL#^A&lb;Qu+oTJB.dvH&9k*mLXdR'9]ZFav11
U"hVn*:5xt7E*m4_*Ihj.WC4u9\ivntv(AN)02V'-tLlp3EK8m[[.\at9:[$P=h'a
U"IWPjke\PmZ8ZJ>JCY'?gZ=&nE+O1U)1DtK>HqtdZW5Om#s/^Jq55,hS5\DY-utL
U"Y<CPwYBoo\k+-f<tku(<<$Ft7$NamD*#&-<FP\Dv>99Y4Vl+37y_\S+?.13aT?7
U"+N_E^.2X9oQRmYXP>7XllY7%9AK-&FBUG=8oZa3#v'x_B,L5xg6cIB&w+BriaNm
U"vd%_QlfB&$*0:#o%<LC\6K(X.pRt(PPE[Nf/G:hZHsYJng>uAB^#&#z,4;qi'+5
U",RliQF\X'\v$U9Q/EMu;-NKD6':inU\#IKPwzvS..a-fcu3c-jm.6-k+HL<ZKLh
U"[rg\;a.j0k;=iW6Aoe,W12Cp1S5-(\8XfMoV/).v(U.xVE$4TG,=,_x+DZ]\bTR
U"5Tb6bhXc(B*$5N;j-(my[8hPLKh_kC.)C3a*[b/>ii\lbEcK)C^%F_^I1'8YePd
U";:yFXqGOuQFOK\(gPYwb=m[9/WV*62s_FvBeShAFRIis[Qm<e4O]LuIF-<pXhSN
U"I#5Q2-1^*9z[;0(6>+U1GRL^ARm;JD/'Mc\)gRh=)>E1,k1/Pu.*w/EEGVXGDg%
U"xOao-mqZFH:jo[)gq99v4,f#wG8:E[4a9&hF43Tt$]GBoc3I2OQc+F'POT2a)7%
U"O&-%ebP6>C1Ml*0:ed>_TFv'/-0SK]_jf3bq_,%OY#>2wdWBDFG:9+;+2\Z;)Ha
U"^)H/$q7A?W(T%:3j7)/aN%\^tD.JiIJ$^I*:7dY9:]\/^3wa(DZbFJf>^*-Y%H:
U"ZF/.*]Yt_+GA<Oa%eRjAc#fNK)esGCxqlY1A^)K&CGjkAO)Cy8PlFCEZb-Bg./8
U"m\kkLcZ*un['x'l]2_&W)M^J*bLtabANulznRM&6Q,P5Ph=dA3m3tF_yF1=g3-&
U"F[js>jCN\ji]k,_*N&GK]Ak^JyTM2j_xX+O(5?G\p-NW?e4yEQZWyE8zt'EwXAL
U"3;o\hC>g1RQtWV]fu;+/X5wO7LIJB*/g&Eu\i*eRi_T?jY9^Ad.v_R$NMLXg\<O
U"OZb_x&,4.^%3K>jaCF[^Y);fIDf=oe6uGni8UIi^9B-=&%NIRdny$d\$)_kNWi+
U",1\:gw?>Rcpfyv#+5yzh1X(M74-V<Ncl5N'Z=G]e*6)NdOwLFq:Gh\5xcRQ-de*
U"ocO2TEjg2S(c]3PQd\/F5clBy6nFMcsr.%#feo%RjDD;xt.>y4q6bbcwmkAQfU*
U"&rT2,Fhj<C3BbCIMg%_%JU^jGbkEIljVAi.pI??_Ytca=#?C7,hWCRI(0=2[An'
U"U)Jem1p*Lx#QF+e2HyUi19s<;3Zbv/WtJo]+DTIg1a_%*:5$IN1,$$o0u,TqZ^e
U",:3P%Cw1&pGWE6Tqx5lRaNqIm?eNOCIY,f=hp<tA*$UbE$sK-z:]o/BfZthLbxR
U"kbpO_y*'I(EcC.D1a1XHa7IRUx)FUKelA21/GUyg_]YfYafwg4H$biU3pOl=&Gw
U"V8[U2q]iesj:R-K+bGU0#&3t.LCI^GejB1#W6It*KKf4fOREIQe+i-W4.(vqq.>
U"wArp--)4PsVoi]'NQgd8;d1SKJGKju]%e/&bv<hhBoOWKYM3K=$qb7/ll:1Q?tP
U"WpdjW#hApzcTsOp1&0wV$.vU]f0yR)Z=AKIh-iRJ5euY(B-<Ml+X.:K\d%7eU$P
U"s=[o_JW[$,JoqZwSMWAF9m##oG5F;dIJ5q3zrTATrADh%81#vN%)$fe3i&b6/P*
U"4KSB_Ps\opoEvXOxfk=oL7oe>VSCjoo;I*LWD,BJ&j=z>CJ,9e2S0UW''6tkdgY
U"P^3u#(4tE\lVKK6ZWB8$)77r1#nQ\3>V*P$-Uw1PLoSp?h_hX\eM:VkFDfc,mPX
U"I7QTUm=$nTr;f67xtwC7ku4IJ<AXQ,9&Ro//bgWXJBx#RgSEW2otk8po5V-B(pO
U"uk7W'AH_'+H25\Zmm<2HL1Z6wIP)]8^^JQP\M9'Tf3POWe_<yZE$[%OdUxeph2F
U"G[unW/WJX1r4mv:j'pwzx27TEUw']mE3$RT>j;A+pHLa:BYXyhM3d9foh-XmwL*
U"nXC1*^GbE(W_Hzb0)KV6*waQQ(p4P.)bILbTZpVfv>HZ/b,Nn,mp(_:(H=*$fP7
U"1ox>AkfwS(wMJ)NX*t.+$cHMp,#AC^+iw#>rN#ijwT;AXuC5>Akuca$wB4fn$=W
U"E)CU7ggd^QVd&2c,#]9:5N>;,<*LloN/t>h3KNlwTJDFeohnQtPlXF=8RfC.wa#
U"%QZg.RdRgJ1F7.u,rg]^<n[cS'(&CCI<h6fDbm7)[F.,V[nwGnG31z=sBOf1RbB
U"]_>_cvshN>60g<lxPpjw^7-I[VNFxH.%?,gOn;N-f?)yJRE:gFbLGkCKaglw8/e
U"A2F'htZjs[v.h44Q6os?7,bK0ElCy$bZAS*nVE.1z;eo,:Qv,28LEbO>bt2U3b>
U"an,qG#)dkW7aJ>w'FSLiK=_$?B-,>\w)ikm$%0*5tGvgn7;j)\6dW51BoewS'*5
U"fGfF_Zq4P)bDJ+gfB\'E7,M0fxvC/8QhK&gI9\U=b7wFEQB$&Y3NoBalL4ENXit
U";Z8&U*$MQ3Ol^&t-/XPttO)dqcJQ*]i<ytPIzz_^<\*6O-+myFD'_oPB6LSuJI2
U"O,tvC0bJ=e,,qo9\clKiDi0eO1Dlf/PTobu]?IXgxNu6r\kuclm^9>:6l&4P[OR
U"/Oc*N;X%u'%<r.<^W$,.HT(9'V]3*Q=U$BdJHDVH\',?iohWw>3CU#csOdtiljZ
U"p9(Tp4K$WW,*Aj*9eZ-e,t*t8wnGj6vPC:>zmK\$'QTGATk,1sxG:),B'9gS3M2
U"=6^2.vwtAx,,FVO>(\2x0(xgw_yCh?fq$[Rz61Qe\[Qtz6X/cF]GwO(Oly44mM<
U"raYXn)6Dlg1?v,0pi1($)Tl=Q=_(wzb)QjY7;-pL%jF:[#v(XVQSMzFBIM^8Z>N
U"8GW>kKhA<8wQ(JMzh,HUgXj09\,9g_fBGDn_-i]ekgHAfZbTXZTw9A:uXB9S8Hf
U"7AW8CD9q<FdUIE3F&8^3n\a]MqO$6rB%pb#Oe+afp-M^faeUSh-1$oi:7<r5lc4
U"8Fj,imr?jIi6DdYS1A%#dfJR1Pfapal0\wFd&9hbu#Bqb'*c8[p]3L#cChjX?Cv
U"a,83MtFbC3X0??G$$N<3.KP&+hTPu.lkS]D\FUpky&5QHJ*Zr/Pv?P=4lCXf1Q0
U"E^]-?XJIfVI=.y915<i$c[%3IGi4KEtJgl4'&MGq-S3ng.hk85+pOIVS.aK:.mS
U">eE%t,/0_Rdh&.Zb[FqM\N_C&cc8A,;6D)+^o?TX7vF#/4P+3jnq+sab_ZW2JBZ
U"ZMoGNBz_/0LZ4e;d>.:f&sGiAeaVpse(DOM0vG9('C[\>v=mMrQN(C>,OI(U42/
U";j%<50+YVd6UNehEr4F?ZqJf)jUw6d8J\MfI\qr.EX5F8ErDyELnYhlFNjHN198
U"d7d/cRR,l_v$r<0S_luG$rN5XrjH6luK9t3:Zr8[<UVTx86o&4ra_P^MB7$wlh&
U"5#=My$Kp7Yny&lNlgVwfm()q2FI54?GxR6,,17aZhNMKW>nQht$e>seq>]gh]cL
U"J3s-4#F;Jp(->-1)vI;Sk\eJiYEBBAbv3hUx=[y$bpX0;WqT)cC/f&ph#:<9o3A
U"vDbi4rDj7-LVzN)\nD=uxo9q9\(\t(3[dbXUwVP$j6,?,nXbchJC/u>O5,(ckG3
U"A[$$EhreO5,=(kG3'A$$ElheO5r$FDTS-pG_KNNZA>=7DnId#lr3]\.H+$DE^ZI
U"uhw^Q]F<lhmOVu?t:rul\l^YXv^XZvw=MMN1NBM1NB7sd&1v^T8ypOTQm\+lx&u
U"%p&'W%09%%%%-%Q,XJGZ.5iXy%%%%X%&%%0%%%%%%%%%%[%E%/&P%%%(%&tr%fs
U"zW%Sunh%up&'%W09%%%%-%<^WJG$4*'\%t%%%%X&%%%0%%%%%%%%%%%E%3/PL%.
U"%%&t%rfsz%VSun%hup&%'W09%%%%-d%4WJ(GIG\%zt%%%%X&%%%0%%%%%%%%%%%
U"Ej%/Pn#%%%&%trfs%wWSu%nhup%&'W0%9%%%#-%VVoJGcb(Ehx%%%%X&%%%0%%%
U"%%%%%%%%RE%/P&<&%%&&trf%swVS%unhu%p&'W%09%%#%-%^,WJG36;FEs%%%%X
U"%&%%0%%%%%%%%%%[%E%/,Pb&%(%&tr%fsqW%Sunh%up&'%W09%%%%-%;&WJG4ev
U">*%v%%%%X&%%%0%%%%%%%%%%%E%3/P/'.%%&t%rfsq%VSun%hup&%'W09%%%%-g
U"%JUJ(G(Qc*f%%%%%X&%%%0%%%%%%%%%%%Ej%/PS#'%%&%trfs%iWSu%nhup%&'W
U"0%9%%%#-%1UKJGZ<2K#%%%%%X&%%%0%%%%%%%%%%%RE%/P&((%%&&trf%siVS%u
U"nhu%p&'W%09%%[%-%E-*DGU+vACR%%%%X%&%%-%%%%%%%%%%[%E%/,PQ(%(%&fq
U"%qSun%hup&%'W09%%%%-L%*8]XHfd_+q<.%+%6>%%%1%%%%%%%%%%%E4%/PP%)%
U"%r(t&jw%inwS%gfxu%p&'W%09%%%%-%F$25HwM4X>P[%%%E%%%%1%%%%%%%%%%[
U"%E%/&P=3%I%r>F)4AUWIUS;E&;up&%'W09%%%%-X%p25aHR4u*&I%%+%6%%%%1%
U"%%%%%%%%%%Ej%/P<%3%%rM>F4A%UV^S2;E;u%p&'W%09%%%%-%:E25HpBh7?D[%
U"%%K%%%%1%%%%%%%%%%[%E%/)P64%I%r>F)4AUVI]S;E&;up&%'W09%%%%-L%az7
U"OH2DH*t+%%(%l%%%%1%%%%%%%%%%%E4%/P+%5%%rM>F4A%UV\S2;E;u%p&'W%09
U"%%%%-%5$25HQYeV?8#%%%d%%%%1%%%%%%%%%%[%E%/)P[5%I%r>F)4AUVI[S;E&
U";up&%'W09%%%%-O%1z7pHu4^(W*%%+%D%%%%1%%%%%%%%%%%E4%/PD%6%%rM>F4
U"A%UVZS2;E;u%p&'W%09%%[%-%;*)7H'W&$I>[%%%'%%%%1%%%%%%%%%%[%E%/)P
U"s6%I%r>F)4AUVIYS;E&;up&%'W09%%%%-R%*25IH9H/(a6%%(%t%%%%1%%%%%%%
U"%%%%E4%/Pb%7%%rM>F4A%UVXS2;E;u%p&'W%09%%%%-%%E25H9A*iX9#%%%r%%%
U"%1%%%%%%%%%%[%E%/,PG7%I%r>F)4AUVIWS;E&;up&%'W09%%%%-L%wz7gH?u<*
U"17%%(%k%%%%1%%%%%%%%%%%EO%/P1%8%%rM>F4A%UVVS2;E;u%p&'W%09%%[%-%
U"-$)7Hi-QGOq#%%%I%%%%1%%%%%%%%%%[%E%/,Pm8%I%r>F)4AUVIUS;E&;up&%'
U"W09%%%%-X%')7IHeWA)))%%(%d%%%%1%%%%%%%%%%%EO%/P9%9%%rM>F4A%UU^S
U"2;E;u%p&'W%09%%[%-%d*15HgG]);<[%%%.%%%%1%%%%%%%%%%[%E%/,Pg9%I%r
U">F)4AUUI]S;E&;up&%'W09%%%%-X%$15.H]^O%dn%%+%*%%%%1%%%%%%%%%%%EO
U"%/PT%:%%rM>F4A%UU\S2;E;u%p&'W%09%%#%-%o*)7H/W5RM*[%%%+%%%%1%%%%
U"%%%%%%[%E%/,Pq:%I%r>F)4AUUI[S;E&;up&%'W09%%%%-U%f)7^Hz(#%&p%%(%
U"X%%%%1%%%%%%%%%%%EO%/PL%;%%rM>F4A%UUZS2;E;u%p&'W%09%%#%-%I)z7H)
U"AL?H(#%%%$%%%%1%%%%%%%%%%[%E%/,Pk;%I%r>F)4AUUIYS;E&;up&%'W09%%%
U"%-X%G15aHeA2%VU%%(%f%%%%1%%%%%%%%%%%EO%/PD%<%%rM>F4A%UUXS2;E;u%
U"p&'W%09%%#%-%P_z7H+>5:Rq#%%%W%%%%1%%%%%%%%%%[%E%/,PH<%I%r>F)4AU
U"UIWS;E&;up&%'W09%%%%-X%#15dHDA\%6R%%(%L%%%%1%%%%%%%%%%%E4%/Pj%=
U"%%r(t&jw%UUVS(q%qu%p&'W%09%%#%-%AE-6H*$3(Qs%&%%%%+%%.%%%%%%%%%&
U"[%E%/)Pk=%#%rt&%jwSu%fqup%&'W0%9%%%#-%PpfJG(<0pQ<'.%%^8%%%.%%%%
U"%%%%%%%RE%/P'6?%%.rt&j%wSrx%pup&%'W09%%%%-O%*9]7H_1l&<8%%%%>%%%
U"%.%%%%%%%%%&%E4%/Pv%B%%r(t&jw%Srfp%up&'%W09%%%%-%3Br>HCaS'7'c%%
U"%'w'%%%.%%%%%%%%%%%E%3/PZB#%%r>2F4AS282>u%p&'W%09%%#%-%Q,9EG+&.
U"2%$#'%%:%1%%.%%%%%%%%%%[%E%/)PkC%#%rt&%jwSk%syup%&'W0%9%%%#-%*O
U"oDGKx4vx8%%%%X&%%%.%%%%%%%%%%%RE%/P'wE%%%rfsz%WSun%hup&%'W09%%%
U"%-d%sND.GQM2).8%%%%X&%%%.%%%%%%%%%%%EO%/P]%F%%r%fszV%Sunh%up&'%
U"W09%%%%-%:FMDG#0eE5%u%%%%X&%%%.%%%%%%%%%%%E%*/PCG%%%rf%swWS%unh
U"u%p&'W%09%%[%-%PbLDGK3co,r%%%%X%&%%.%%%%%%%%%%[%E%/)PdG%%%rfs%w
U"VSu%nhup%&'W0%9%%%I-%2OKDGN^(C.s%%%%X&%%%.%%%%%%%%%%%RE%/P%.H%%
U"%rfsq%WSun%hup&%'W09%%%%-d%YODpGB<u%iu%%%%X&%%%.%%%%%%%%%%%EO%/
U"PM%H%%r%fsqV%Sunh%up&'%W09%%%%-%:FPDGSo&1$&5%%%%X&%%%.%%%%%%%%%
U"%%E%</PnH%%%rf%siVS%unhu%p&'W%09%%#%-%c)8]H:Z;XC.#<%%0&<%%0%%%%
U"%%%%%&[%E%/)PQI%#%qj%%jiny%Sgfx%up&'%W09%%%%-%;*vGG<DTq3%x%%%%X
U"&%%%-%%%%%%%%%%%E%*/P/a%%%mt%qjSu%nhup%&'W0%9%%%#-%Ad'GG;s0*/-%
U"%%%X&%%%1%%%%%%%%%&%RE%/P&Ra%%%lwfx%xzsh%Sunh%up&'%W09%%%%-%;5_
U"EGb4<K[&'%%%%X&%%%1%%%%%%%%%%%E%*/P0b%%%lw%fxxh%zySu%nhup%&'W0%
U"9%%%I-%LP9DGC.5:Z8%%%%X&%%%1%%%%%%%%%%%RE%/P&\b%%#kqt&%jwxh%Sun
U"h%up&'%W09%%%%-%<RKDGm[pV^&n%%%%X&%%%0%%%%%%%%%%%E%*/PEc%%%kq(t
U"&jw%xSun%hup&%'W09%%%%-p%O+DgGXG^&%R%%%%X&%%%/%%%%%%%%%%%Ej%/Pa
U"%c%%k%jshj&%Sun%hup&%'W09%%%%-m%<,DFGCv(&1D%%%%X&%%%/%%%%%%%%%%
U"%E4%/Pb%d%%k%jshj%mSun%hup&%'W09%%%%-p%(,D.GwUL%8h%%%%X&%%%/%%%
U"%%%%%%%%EO%/PS%d%%k%jshj%iSun%hup&%'W09%%%%-d%4xGFG=qa%ts%%%%X&
U"%%%.%%%%%%%%%%%Ej%/Ph%d%%iM>6BALS?82%up&'%W09%%%%-%<KxGGb<P%R%w
U"%%%%X&%%%.%%%%%%%%%%%E%3/P3e%%%it%lxqS%unhu%p&'W%09%%%%-%t-&GG%
U"7pk<s%%%%X%&%%/%%%%%%%%%%[%E%/,PVe%%%itl%rwzS%unhu%p&'W%09%%#%-
U"%>bzGGL;eLZz%%%%X%&%%/%%%%%%%%%%[%E%/&Pxf%%%itl%rwiS%unhu%p&'W%
U"09%%[%-%M-%GGd.06:y%%%%X%&%%/%%%%%%%%%%[%E%/,PIf%%%itl%rqzS%unh
U"u%p&'W%09%%%%-%\-%GGO6EI*u%%%%X%&%%/%%%%%%%%%%[%E%/&Pqg%%%itl%r
U"qiS%unhu%p&'W%09%%#%-%[GTDGGjYFVm%%%%-%)%%-%%%%%%%%%%[%E%/,P=g%
U"%%gfh%pSun%hup&%'W09%%%%-.%q_NIIP+X*='U%+%ZF&%%.%%%%%%%%%&%Ej%/
U"PW%h%%rM>F4ALS10B%up&'%W09%%%%-%>3/QI?Fa<b&53%%%ZM%%%/%%%%%%%%%
U"&%E%N/P,C#%%w4M03<4LSCGC%up*+%%%%%%a%a%%j2%%*dQ%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=82AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
