'===========================================================================
' Subject: RUDE AWAKENING V3 (ALARM CLOCK)    Date: 07-10-98 (18:00)       
'  Author: Ollie Cook                         Code: QB, QBasic, PDS        
'  Origin: oliver.cook@bigfoot.com          Packet: SOUND.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"RUDE3SRC.ZIP",4^6:Z&=26170:?STRING$(50,177);
U"%up()%9%%%I-%o]]cIKS9m?-1.%%;W%%%1%%%%sj&&fqf%wrSg7fxN?rRA\?$j,
U"zu8V[&('mwY%Ja7t'2*PGmOQl)auKS^].&7V7.Q/o&IuPL)A]4my8aTAh8MJVX7
U"]+Po_)68(t9.;mom^LLiVBC3$fPVf?;e[9:;e0[2&uJ4pot-N;$IOP6lBB[roQp
U"e<:T#aBa12g//,+bZ:I325?7(SOfJ]]m3IkW$>wbhA^lU*jXl]2=XXm\'WsgiDS
U"RQn-dh][4PalWk^rlRJ3LrNq>Gb%F[p1chxDBdfhy09Yem$[Tr4G9gLTMbG+8/N
U"D7IcB/.l1jaGGqDFS=#'^[J:\bE$zaqLJ6jt6G?6Rk/J?B(*[Lts)X4PeH?Sjf2
U"IkP(3FU[Y]3EL&4;^Sfp2.JiIB$d$lQ09JSYBSJ4D0dtMPlY/pEF$O6s*2Grl:Y
U"^MUhnd>42Y6/8*1*cP3B.pH7uXq0q<JBRT<4(;Nr4EU>Kdn#_Rt,?;NWlQQ;;?Q
U"t(r^rA5f_zd2Lf:&F3WJBsbD*8o[k-#]<FR(tB=cAd1uCiHN7Z<Yj&iZpT>X3,6
U"Tnrf'v<_>Q[,lbN4/'flFtcbdl-CJ2:my6i:)yKZ;Lz=/DdOY+Z(FS:GE*-[hz:
U"#;S7f?/_vF#?[Cd]/ubWFu-/kM\XlF*dKEZ+-(bC2[vozcZi=SMR(8Z>3bnOoId
U"uNF?QzTSrOZw-u4Cv=Z*\]ay8aV%Q==DfIx;DN7PVI02/\'-ULL=E(%;R?/\UFY
U"-,-dKORsZ&X1CCc$Q0qnRy&K<O/U[N_,7p/w+)Ee(Xho(lBM(dAH=AN']L)rE#w
U"-G51/0bMD)X^Dl251\<nE7MeL/%-(zAp]BAVl9i:.p?[?hK87i8VI$=*Y5<=4&m
U",drl4lZbEa^ZGX,ti=G2riW8r#t.Ake>DEh[p*//wzd?s7tHT34mJ=)qgR$oRVc
U"p)\orqC*Jc/dYwJIE<<2lOV%EKf/vKV&UrHC<,)WelV:lbm0LI;7#m5-kV.Yd4^
U"3IRBN*EKQ(\WO*QjJ]MUIS#lSA[6%L3L2oAEiTjBM2C;_U,G95f:X)?RGRc+$]X
U"\3ArKXPeqnL[G3Ysx:6>bkdlH?2$u\EQ-^A+?(4uIfF0^J8zImP]n1Zk2AsK-QA
U")<NLIOl=V6p)qWnO#>-Ky7=H^bcU#F>pg95:;t+_M5RjG'L<rHN5_ZGgm&L#U>8
U"xeA(rWvh_Jjl8QCWw7'<kIyjQFb]b1Es'])BLEDF=AAKOY8zeWWEdLqsGXdo*KX
U"s;jvnT<F>l8bMe-bNv*<4C2wq7Or)a^_#G:#k5t6L8r\kNd9T6JRAwe&^q&_C4k
U"m=MhO>H;ONQ'ne3;I=LlO6H2cVDg+-feI:?#>Wph$jL\'OI,Mw]dN#zcb^:mDdH
U"=sF$[yCE8q5T(1J'LxE;7S.hK->0=PkZs0N;i4WBwEWk=&X,LECaX:?>edUercb
U"GAa/0Lgp*Pkpf,Ld>TK*K:vRKjR%3^3k:SFieS^l_ud;<+0]=D]HCLa,?6a.Kqx
U"z_)36aZ<QqB((X4E&,Y2\p&ZOFK#qK;Ux+V);<I':)0)0R[]>z>\3\)d>Hs9.;T
U"jtM=HVuRwwMo19>A+<dPDG_Da#x)8v.BkD5&6z*S,p-J/(1aSrrT#3MU_e34/it
U"yaGTg'pT-ja7X=xlU2e<oKE+JQ<m*:SX?D8<?3&V3P3#(:$4G;\nn/y>vkb\[3a
U"dEHIS.UU4&XmyQL+TY=5(Wn^4TJgrTS/Cx9=5eS2<$o)g<0FEN\>nu3l.$\?3s;
U"JV&&<?jPB(1e+oWx\^t8l/vWF$(CNvA1rbc[K=9X($D2s/7ChW5][\o?cxnmMH8
U"CgEhi<9e,7o*(6&9m)*PNl[3>UWT>CCI\>.)RC>.E\rm>o9FuEg2WE[r7/B>:-v
U"K_f8q'Ai=<9x%S&f#6ake$MxghmZA'0thNSGCf35\,3od,QD$uGkk-fKv2YXlqm
U"1LpxU$g%<DvNhtt1e#:j6E;0TlR*a$DH%Csf]]?AH<S)o<T?.U#P7^v#bG&>b&3
U"<Tel7#_S,jKpI;U1$:aDT,V(9-RERI-8r$a^og'd=FrBR4\qdF%'<D0ew3DP[Gc
U"O(Afe*\6_+bF'?,%I.mwq_ql=r=f(0P>A[H#ftScKAhr_uA>?4u2TmMAjDGl9]7
U"m_J\pj]0f(_3RkR2:SWWa2'HkQ0$Zp:#Llk.RW,6tC]spW7SIQ6zU/=KGudJ8Kf
U"OxAng^\+RE/shEd,?'.H:yP4aAiDMQ_YE,VKoAwW\Xss=3?ORyEj\dbO#*_72[)
U"V6EQ'Q1)G[Bs./,:6bGaQQGcV-?E).:Q$-KfneKfI7MoIPoIHn_m7TmD<cMA<M.
U"Q53mYQcrQ*mKf,*rQ30C)loQVqW#4_XOs#6NP1_mbupd6YQzLE%t>Gbjn?R9,j&
U"AR6nJb.;IF.Ek1/p-4$+*'j+_rKeDqr/,:BS;)vNm[l&/fUhGYV_#sroCP8)+_Q
U"c)I\Dyz%Rx>\olR%2U$_:YmkEjfPga8C&N'xVIj&7m>fP4C&TJM9>P3jjI:h>./
U"ri*;O09*y'US/j$P41Mb9\8pPq8S]q+iL9tj5Pa#F;E:I8,zN]chGV&T-BU?h_m
U"IlkO;UCDN_JvrZ7JjR\s7ibS=AK)g)H.3B7-nrnNM-qYcGJaCrUq><k-KM4dq?m
U"DfDIN7s<dAQf9+f+kN=]g<=s(O*XO1AXwIOTi/LlL2xFh?2;;D[.zl?'q.1;%Ew
U"RU'Xwp2-JK(67<B.SgcU1Tn(WiEB:d-fs5n\a9Mf(aauTA%tTmoRw/tN3_vUIZa
U",_vnuIa,*_v(n<I6Ft2Vaoi,Ms'wZF9*>gsnKo3[3bI8Gn3naw5IZdINMdXN$]N
U"qhBmXt=GroF0E^qY'w=kC8uA&*]Xtn1_H8L>BN6,3m\JG5fh^QnJ85Jho+&\B'=
U"EZ[ZG>Q;8?\7%EZJ[QhwhSJmV.;3CGM:#BMr16N>gUE#,SH:iGtT(EI7Ia$O.8U
U"YhFvfT/v^-#IZ_h#[/sgsta8WFK:BP^u2hSRTu''_J4/M?*L:tH1b2_Al23p.R.
U"bEKJCii=_iRp4edQgyZO$*4CArh*?frF#Pk1T_H^\M&Z]1r3rDwSCaS%KC&ZAUj
U"++Y/GQepaCp,L6.Ez:X(TjX5>&KQe\6lL,X^ohTD4cYPsjpch:r083,lV>(kIA7
U"UR)gk;q;=#Ce8kSgTeFHlBvm^aOG>dnd9d73=i5GHYsgE2)i,l\1lXvY8e]QIhA
U"D5>+cr,Fg2px+B'Ig_Y&w=hoGparq(INQqqqXSh8k0fZOHJ;jyu%?Jv;(K=0.yK
U"^#^diSm'B4vXfc+AjPa?jprv+Ukr3lAx*obSeGCI'(s*mXNo#ch6wZsDo)m-^:c
U"L[9HlrD$l+JO9eH)'ii,]L[=%4d<oHI#c6vE*:TM7ZC6nW\C4ATa(D3$,l+.Lmo
U"VMaT:<wyE)vZzKqtT:?P-h';=q37le9+&a]m(gf^\:E:jlw5EWj4vfu]'ZoRg<J
U"nnvFILDlp&ZMn<RFhQ#qgZ'mNun4Ye>gXGS'&:hS+b3N[\R,2ut77o:5K9G$)m/
U"OPjT*K&Nr^MhS.GZ;3L59+>.l#8Z5n.%m20qoV/[Jifs]#E_i7ttUH2s24mE>Rl
U"G3Q5%f$cj,7t2)O<(CCKw:UA?B=CCRs$02ob_pU7'u5$S:20'G%j>R-p?JjDJh.
U")Ve7kL,*-&_>P:1lY>noPb>qN>L,,>R46](bf?4UNt'u5j2K'#]/'p-#h2D[NLT
U"yWk?;lxpS2_dmFN+F7[<gLl/8?ia[iFK\ZYS?sJae:y9cVxYqP.fJE6]%wDXV+,
U"&=xUJirt<q1]cYI6so_2#bk:RNDZ+rJlQ=D7976NVdZR;24iH']t6V,)X?-nixC
U"+JL?0/8nT_I,$S;%K*MkW^Nt7)7T\n^K[['CinVT]4BJj9.;414NA.3JwLO0D$0
U"<tkU,KE]]L6Nwl82#h[\[]9#QH9RZnwUGCCB9WsDuF5HgthBL&PM-))]':^$J+<
U"T)zkCZ+8J0C:_2NS+OhM7TLkH((S:>*N],keuVQNl8Ldra?89SsUPF/i/17IbSp
U"ect4dFQujHLp_b^wpWuX$cPZq;d$9e#qb(&Zg)>UKU]Oi(Sq#KLS/^cjaHda6LW
U"bnp,Vue;L^*abC&=r(_M'jDup%()/%%%%%%:q\cIbleTB%)%%%%)%%%%-%%%M5A
U"4#LSCGC%]UUU%up()%9%%%#-%N\]cI+o1g$6z#%%G,%%%.%I%%0;20A<S2F0EZ0
U"5*g#cPn\%Bwpni1[<i[(3BA[gXJ<(3f4597Xp<aLH\gHthR4/?PEE9UL#10b;L+
U"Shuo>]Z7XSIjIVh2YBgZr]Xbx75<De,JjiqiO2Nj4t)D\pJYiqn=-xOdsK3vsGX
U"a30aiOK/fuqGX'RM7nfSQ<2)FYIUF1#nagETfi=l_w-8+=5bYQ\0VGwTDB=hxh5
U"%jXYjKYMY1+I>U9DPp-YL0n'U'=v=kLUa5(,i=6=%:cV91j1wUFo*3e:5]\9%r.
U"<w#=1.21q=M9hQ/[ZAHLhoAoBg8bvTn:.%%r)-fY^/$.*&UQZlAS.UbW52[ZvuA
U"jz]bQZ6MmGSF;g;CG6Cd;V8Nb%;:k[^U5)7&Mf.:lQ-j/vU1IXDi17ae(yS(^.O
U";QoK5zE:Q_Q/0\5wgpd%U\nolvPcV3T,l58\KdyA\tdfab%0UQ*p'EEZT;rkEAx
U"64TgHp7;:r*E]ihrC&dRw\B_$h?oJ/[QuG7O#5G\fJ<7O(Gi4Wb'aL?^0W(z8w\
U"jn=A90g2IXkR6LV$jg#)LYdf<)x$OAqK/[Q$EW0$.a3nv2v7yM1Nw:4-necY7$X
U"IBN^0,zQ%*uwqoo1BUYEZ\T,bJCh&>c=>#^/J8^buinTR2hQ<0>,'Vd:LV#h-;c
U"bU^HV;z-mr3An630=-=id:(.Y<nl^uVp;+lkiJ(uvn\0Rd_3>t?L?^'D/\QqI#g
U"[>Ime$tnwiHN8LC-?.Y*JM\Djm?6x*JUJ$*zq.6,RqNklOM%=N%TICJ2XpN<NZG
U"_w]O\ELxVx4fk2nZmOePtk5ln^N+PNdwM6/I1R8Limi_HR$.pLjvo&nvkb^t[zO
U"l8-KdRg0?-urkKn'ZuO?V0:lmQvflF3V6naZwVPN$FMW>\ey:%ZWqu,iD&j3paV
U"H7hdLB1?4?]Wjzw%mpm(+Pug4wg^<LBB/DP92GLtQ<?H-qmu<?SRkRXLdFy.HJq
U"J)mdj#mTrP*OTJmldr$J6L*sPdDngX0xbbD$<t=d4t-U'Hu:zkdlnSpYcv$>3,T
U":?N^TlMEGzm.<b5BuRv_>b>wc1Qcw6H'(+4f[r0;NtnGw)6T-sAdU$l#-XR&cON
U"3&L'vqlJ^O&>;V6Mu0Y>69\JYx.KBS$Z2>Gmppfud386;g,vu1-.$lfev*gW$7n
U"u9$RPtkOF8lqbqwP>x#)qkNx?=KNA,CDKd+(Ki8_NU6H;\x,mSTj0(MqEym0Jzz
U"VI:?;^ZB\,lEkb?y$2-+;$gS?HxVE$a03P:.r4GlmPD*+1-rH5H(R6R-.WS(2#J
U"zX='T5^s%uo\/#Kh\-i27d',g4a^ut;>mXi'V&E*,l_b>AkAiH%ec$rAGqC;J+Z
U"+Zdj8.GnORGHqj^Ze_d4,NhdZMZ7w]\bs.^g):hXlSNYtX*gT,r^DMg_m<*G)m0
U"CW3-xX\(>^UhaE)*v8H3sv;QDLeL1LR*CkJ1KaQve&=qu9t[uXu7Qk?oZ\nU[x2
U"oe$ktOi[=?=hjALoXs'rrRlYP$Xt\M$pkF$oHX6sc>b+JUbd$.[*P:4/L#.QHex
U"VJh-HvaX6NE*2nKNPsVpr#(<g]bgQzR4lXC5xnHmrL#,C6XL[EMH6BQwbtivgI6
U"oN%;b.ruR*:Z$OgD,2t%p[MZlFmeX^JybvkIxu$p05+#=5j]f0pXF\Ys'eaUTjT
U"1#*xLMuAw2^3JDAzcj\T]M<<r^ix,/cc's^l\%cO37Dc*DI\2NaE65M;FAS<K*s
U"moP=woAG<Vn,xV%8x:86Jp9d7.CRr6B<REeG$Aua-j^-NZ(b-Au,D(P\lk1TLbb
U"32D#$W&-xj0N#*?q_l0+oRdF]08G$S[8b,gWZzdJZ+R'a/fYr<K<T>QkqIQXja>
U"3,ebo5$=J$\TjEv0n0\4iTS3tCj=+HS[5<olAMvmL7ZNok)t5u(ReNi%N++<Rd5
U".Q1RD,.8LC\jb9%TWV:nq^kvdb2*EYNC7uaTp4e%F<SXj,JiXfvsL_f88[plkTh
U"5H4Cb#b/W([XHRLic/alL<9Z^bDrmrFddJ^alTJlR?e2O/[M*dx)bHJ2_*za$Z,
U"RhVY9T5ePvh-qjZN=Ii6jL0ZTZXJnCu5YN2f-mutd2+6(+&H)Pr\s&OtyG5?\Rd
U"eHQl6I>\CK5DS-)5[fDQR5bRyM:yF+rA5HK,KCzQX7FH.l,1Ea2*0o\kak=r9rt
U"PZ8cTUW?nHeckZ/2$YX1Es'Q[tUGaa\N^>Wqwub=]/$3/e0XumlY*pN]%(FfcrV
U"Y*QlXN:C%-MO<pl3weFPEch=YE<V^ZET/Mp8KcTWe^V/u&D(TcmMPDPf'%,3B5^
U"I^8J,3\cp[&>(m=t6h(MH$t-T,Qx&:e8HOGNtml,#sgX8ZcO#c223)&Dkmj<5ll
U"^usoSKXdcReJIp7^Oxio6jS9c<&GO)8D8D9CM,'qxv^A\;R5D>5L\Q3]Xj:X\fk
U"<BU4isGb&x/kE+\WWg&w1.6grtFV(x$qnl.?FV(texOc\NL'm7Y$WW)>7au[\JO
U":US$Vvnb72k+S;B6&Iucvpe2tId]6poDkf'RwJiBF19Bb$tG8SPe]UT7vO9D5>?
U"*EN#\&1RGUSAL>sjHhs9w(%wqB=UM8UDWDfXII)/[y&nQtxdl'nU8H$=R4&FPWY
U"F5Rb5[/J8<4TeDTI]hPkTf?l&gQwpj3p$Jam#rel*AZD9Xp;lF7fd%I8N5s,%.c
U"UbOs6VPo6S4Cr?<g0,pZYw,f4rFwKXwj<tJ7j%GogkMSAldl>^%)Y3()m#bgMo4
U"D]#PM,-ffPqmb8rhf0ZNkNq\<hg%,5rm=JH=pXFC)BP,d96+&\j2e3$qXM<7kBG
U",I5KaK)6jGknY<x27K2f.%dDabF'gs4s^5*j8h*%*-pwEmtNe6;jPCa?5$R2R_'
U"/jTnHXuQ2LvJ5>l5ZUNnHgwkjxD^Rn*3oMs$P^>pev0k+6J0x5.6\9'0D$-:p\4
U"sP\/YMi/$RD_yw\+$xY#\pX,>8_+)u2q/0VgY;odWI;#j7DG3vz=Gx>jjBR;8[.
U"#]kGy,k2VyMrf,qXldoH3b94Xh][P>j\5DcBiB(,NagrMJXU8>O02mD3$vue*+O
U"9kW4Ei1NsbS7wi';^&BpG%B3M)$LT&5btu#Zg1,TV7-2=3ejZ3qZNo]V*,cyXZH
U"u%FISK'B<]ml*1dSOq3+onGq4p-HHg,yAr\l<YYMJ(9i6JtJc.B4sh_4eo2ePek
U"wmf8$r<zRPiCP>l+RmOP)g760LX:JbaNTc3xaL<n<w?HQ7J2bV>Ir&XGJ+2HR(,
U"<q,&H4lPAqvN=YnW5chN\ZK%3C<V69+]H4Zwjv-+&FM%3-3C5rKq=&(ri7vfOI;
U"TyEqN_FgBJ[)E+)_bvY>K'M?/us<o<&XE6>lVO.O?Z;Wx)mBW\^R&p.Kc&6\NZy
U"96NrGHJ<b.ixX:OmA$^MibU6L&Dd<R/%>j:+V:rD*bh=+[C7b)K5^>4ZTJ86/.t
U"V+k]gwxQ^vtiMY4za6ReSoN^kK:jDL%*-k>$i7T1x$U$:,]&+dhp7^g,o1II5Y*
U"t8t$5AbWxZdW*j\)O7&nBLFcZQ4RFhGj>MQ0smVd[>*l$F6cAS-kD:\Vs1NCd+K
U"zq)-aqVFES+1*D+_1M=:Nk,s:Joh*D2_PQlX7_w+i&anP;_W->tooX'%HvA&BVt
U";k7:iK#TBdUy;2XLibK<mQrHjFd.Gg(Q):xblwelR1xX1mqrnd&#OorZ$xJI+a?
U"p8&(cEC:0%=dpL,U1v+nj+fpLZtQ.*s%S/rZW>ivEX5qiVlvs;Ns]X/lfVqX+o;
U"F$kNazeF1\CYfNdEP3VdiKk,xJRKe&($AqTILHk^;j5361O$tPl&PYeN<h^xCnp
U"XNu8Ex*^k?F7?G_2v3-\%#vF&U,iPY5xl2]5f_LM^:OlZ,bSnSW;9c<SkrO2Jie
U")2U14dVJ84uq?LlQkN,.4.?2h.iaxV/C#djz;P^,Dr133YB*>pJ>,nOjl8qRjGG
U"oW>^0n_ba<Dv?u1j'XImTLB*B6#^OWR-qcdejPsas;?f+O4H.$gK.R+Uf+<JbDz
U"ioI7mfid=g'cpsKCRZjFM&7*31h.6TqvGGXCB$QIZu7[UZcO]jZRP5u3Y]3hudo
U"F^0D0)bM.LIG>VUU^>3W1gP>#[zE=X-:Q+n[nR^\*>am8fmfL_jPrM58iQr2pCM
U"IEFsduII)X3)0RP6H.JQfCX2$4RjHeXiF6EKa/St^6oR0PD+C>AZfg&g5RWd_]&
U"p8Pt+d>M30\%j</[Wiz5utE$]nr83xvu>>6a$36Cs*vL4cQ.-4?c_ND,BRDS\XM
U"xqZ\v;[-O\P;'6OYHr=-thD^&SAoDf<hNKwUr.XW8S#Eg\\E,y/\E'OkJWungbi
U"s;J,&\,8f)F6iU3YGeahkj(^an-5v]6:.T?pbJkM]r0<HdA$MAt,v9(YNv#f,&d
U"AHtvXtm-,pSq4jJej/Biql5%C#KVL%A^Q82Mo6Hu[eHpljDC[eHqu$wv\*X-$d&
U"QcQ7gR7c0*.eZ5*Vf*_WXUk-2)o_\s9.14LbyILusLHpH\^7\u1.UC/HWRBUvV-
U")DRs'Y9CRrwVJ9Pz^D-bc=Sv6mmYTiWm4D=dbYOZ*CBvcI9x14q1IIW__L8WViL
U"0<O6k,vl$5<jDUCM3sl\F:,A,AsRM]'_wM)h&>-?fktcH*P#$#r3SYcxur6dS8A
U"ojAumSrx75At>lc9fgnv*/(#>tLnN\g$+YCdjT;IEr]tHkjC\Bq]PB65rWqLLC)
U"qE;5U3WM=&37_AI]E/i/%Q2'(xeU=>%B?sANpo4$*_Pa[Qyf3?XWG70?luV#X5J
U"M]o<S7M&7UuV4RJ7zMXJQq^ktIfS1G1F0HWopRLRX6>UN#m-vdA$Hob'(l5Z6:S
U"LQgNLl>Y.(QKUuvT)LM,h+IpAb3/B/EeuNkx?k?&:i&9>HNaGF55Gp3tuQ:R./D
U"#%TY.36liULCpje1>$8]C?/p8y35/Q;Tg'W))lk53Rj-J6x&h#DR=%QXfIqZ9Td
U"Z.eapZ<,v0*U5wO1Z9RstpKQUMpmx$NWo,zl.;wV^MzN(CXEBIc\fhVYUfrtD1\
U"qu3I9cOYs$at^#f4nS*pO=OO&:8Ux8]9Z)tqT/2XR(D8)v&G-VKkM7qkMu0D$\^
U"fd7];S1N8Uqu;=S]f-4Dz%0Q-Z\xl.sBl>ZE=\-q+%3muB2lkUr#:GGI?,F%q3r
U"3jxSdp=b,%ABH1Cj,XJ+R.%UXqAWxPDjO6hm[KWbZVW^*xMyyz3_%&U_Opn^s7r
U"2feJ5I9&#?5q-,.(0J_K_7oWp]pSFU&Co4mI9JU5o&y>%<mslFGC=el);J(?D;1
U"(y92iF_;g%6U\?,R(SO3.V?#lo%L_M^odK&--.:E(^vXWmaVKh9^u9Mh:d7f,WV
U"3FFIf1Uah*iA1*wt/'=6/_&lY/Nb)Sq%QD$?UK[V^(X4I:_/ZU:z9f2F7CZd>nt
U"hbH1elYp%qx;/RRYo6N,sXl_)1,V;T)F)%FQL-t&MG6.pEI6S;/UUf%D(%-?\p1
U"]d1V8MA9ZqUPb*ojA#^EbC25NzFf'\Rkg0J1=d^=QXK&C7'>U=f2#aE$*v-<F:5
U"[:)QZoV8CexX'_T2)f&?6MBEejAY81[,g6SWyYI%MTB2->y$\d-61$F5ZD.Ioj$
U"*_BeE13rO*'?NT/Mp?w6Q)Xpdm>%QUXEJ+M:,/-lLlF]D%i'Sut+2&?4i#S89&]
U"#UeKMhog'IxG_U$E\Qp#l_Ujz/wiTC'-'8T?0Tok<g)q(GX%?r5s'9+*7Skc-rW
U"DX;e-?So*'e3]VU54u#XC=q'&YvZneP%:M<S2j%\5K)7M*\IS8C,;V74pBz:Kl#
U"n3)oh)a5S6e%D>3'9FZNo\zB/p:1UT\q<&ogm>.:1s,LNBr9mjBg)v8%);$%]X#
U"hcE[f7(XE,:KW&YP/oJ)yC96uiP=D-(u=qDFnptuV?C^2:paSXH#UPG?s;2x>5_
U"%l,^nMD\QA;HLZynYXA=>?),$M[$euf;kJXQMQ/g1V&=SY_#pk$Rff]*.T*:ti9
U"mB(8#gK/$Nir5+x].i(upB>USE%=XI\(Zn1P^pn*)w?vV)ot;>fCM%jN3LG1_Y#
U"f?[xP$Gh#?7*)B,Z>=PT_/lUbE*bWcVbJ&U?rW=-JTeOR>.1lEvx3N,<,+rJ?[L
U":H4U/a$*mB#k6sOC>DrF_[$6?X^X/PA\zI_\>p]]qOo3M,L.ghkF?l(<f&R\NUW
U"9ph3RO(2Eq+wh%JU9uiP&*3D2=e>*>H7L.nLX#(R)$Duafn,&9N%Oo=W=Vbfbpm
U"2DvC2&HZWK?aZVkOeJYVmXX\\3<0*jH:OK4YjRLL5G3V)D0<hBmHChme*EQpn):
U"s9gm&c=SRF+5N:YK2mac7h*AXNl6\sd:giqv#*$/5zlb?5TQEg,RAPe=8ZT-+TO
U"1oJk*W]UOFN([iT;YBS:H26c2H<HHXDhf^tD?QoTnpP8+w6b$_Fm];Rn[&7.7\7
U"bCh2B3H4YJH1-Cu$HV-*r,oOR#F#U86$GC^%;)r/vEGEAjYEN&*iNSGrlqEx\HB
U"k*H>aJjU[*_.jVUK*2Q$B,,(CBnvnpW,dikMqa5d24A]HJ47rrv:[gLn;g/h>5F
U"8Ux_RjQj.xQ[VgKe*zxSsm#pfWgeFNV=\/FupiqJmH(c$hn'TfFcO<2pND:utKN
U"e&Aj$=HJ<j0xUREalqB0R\<H<N+7_X6<NGsOH(4d=4XAB1HqV*,sVd%pd)BLag^
U"Fj\&*(WtBaaX<:Q/'(+qWCeX[ZW=ma?ORRA1#?iWgYtoc_.P>i]]b#d$U#r]s7J
U"Iu4d_F=vd[LWO9<=uK8tM<1HN7Z^9G-,cdsu&tp[nhKVFmkbnHrofKx=Br4tF+N
U"O:nTesOdi]\\dKPpxxkRtVs:>)RO.fGbhmfzwu+jD0z&$8\Sp3:=fM'u27,Ch)z
U"lqqLDn)aJ'Am34v;==*J(3.]b8j&MJNd&<ef?,J9-s3;$S\6j2FD5Vp(OzV+8l+
U"*KTYY'lo4oO2_>E]KhlXqflf/]\:lJ&Zm*:NTkYcw:EbP-spHkB:<:$jFW8<Dai
U"5)bV&oZEYt5-jb.blEt0sN'T]1rPZh#790=9/RacJwB4f?gW:Taqp5d]q,4M#,-
U"hcWJdOEfBEC_+W8\ph+\S4JdjV)YF_.(p2j2paMZS?2b-x>%)*m'd#?qjEKik$k
U"I:RtN]EW,o7js2URMtOE^=(HwCK:B#ukWsM5.3EOm]CJ8W2;Gz&O<LUIUvN\7:H
U"tRQ[eJm]E7NIv:aS7FM]0IS+v7vQ<G5lJ/YmX5[%4K:HFDIdgx$PjeC<b#+AdD9
U"=ZW[?A9:WgfU)Yq]FZI$YlT7mAZ.HUXG/OBuM)j%2XQZ)V68G3,>[R-g9([j>id
U"E=SUEB])^G*F[l6W_[2GD#b5PX5%YQi:gb'\bY2&(vO5T^N=w\dZ[aPgE?i'#%#
U")(u]uW?EQMwK2k^A;$CEh)74kaZMTPhpIpok77NNJeS%m+VwzddlgZL4&IB[nZn
U"O;%3369KnX=Sc\tWYJsdIh/+ncJMN$E?]JW<;<_$I_333GYL(IDRm_A5Wel)bCn
U"ndr?]fQmQ-QcmQ.>#me6kg'$D&*J?Q-UJ6'$]A(Z&BH)>ob/S]t9;L^+6]jW3[U
U"E8Vn[s7.Dh?5i;?=;Jo\QWA,N=,1tYUFoIjR.m+Ye$D#R2p8Hm(jGLB%8/ra8DY
U";9UxpExID\coHEm_Awm(eQZYND;g^g2GHS1G:7&q+x:G;sn,o1?cSL#A0VWV-pK
U")sECVRL8D1w=Le:Q)%i)r+O.Ep%F5W99<w%H=5lIUm%#S=X7Q$#g^8Y)%%[a=qX
U"F=5;s(USQDJaAdfOTCSQU*$071:WS(U=;Z;6bOGt.vQE3k]S-2UC+sgUb*$1*xX
U"OE.0cmH7i+G%2wZHk*i>.K:rYaW*Cp%i'3+=u0O[Yj;6,L.VbtG/.s'Dz^LDL/h
U"X?d0Hk#s.RjiUu^Tu1wzDOsR$bc>D<sKSx7lubJtK4?U_koYhWb?\I=+I2ydwT:
U"c_igVIZV]S1Qh?Cwor6R7=YAL^SoO)o[L92BBgfUJ&<cu<B2vCa1y:]YmQL:BXi
U"?1n#-8fU^g[OuKPyJ*I?ASwH[/1BW_SPhUh-f8zv)%(%%lVUusGMr%^0GoBeI.G
U"sb.$YKCA&7K(SiQ3r5gga3+^FwB#C(#,59Nw5lgUJQ)e'rEOi$\Su4A%%#2/PqM
U"X(Cdj\c;SJKJ#F'\Sa8^PK*3cMdd;xjY2S=E&v$UqW*m'-7:Y,cRE?2(yRkW[Vo
U"TN7/VH<6faW^[qOR9)Gk11L&)#zI/1E39;cE:EYR3gC+C_t[w,eG8'UY%:U[mu^
U"sndA<a)>+X_elJFmQG%rB[7]WY?M0<Lj%[XPArQ3-(zXRe9dAO,uk_Q:ZkR;r?A
U"Gi]PSL3fAog%Cl^=A]0)QjSQ9I[()1<+]<X=#)E3NO][4/Mzy,u5Rr/IWeFIOCv
U">H+kM8V/C#[KOM3RXgmDXc.Y5=bZXL51yf2rX4cuZuMV\yTd[-D.t5GCux##ec_
END SUB
SUB V2
U"Ooq8Z^gyUJ]ZyKCmE_2G.k/bV7)%_=fdrV5RY%S<4Mc?^4MA9UoQEO\Hn*I9F\T
U"UfG_AWEh<:24MYWCEDu+931[i\qW5J%Vo#9ffM1\\^DEt>lf-z:<i6p]G^I>wCn
U"\=DKI3,4&^/8]BYJU;ilVwo#H>4ASGu.j53;,Pm,O?e-.H]NI=:nYkK.q0P;8e$
U"^*U96W%j\lx2cb4-RF6?0%$-e-%kv1L7=FB]L'$_Vj51rPnh&Kf-j+y3CTSmVXL
U"]\?5j>1[\(Q->e_][LaQDW5?H$Z)^T9(eg[W?iA+3%CB2]+r1]]SQt%=ZlBKM-p
U"1MU2YKDvWof2YnDfT&jRA3*>^6PF/=JQ.&G\,Q.T9f%;/1^rR%[Q;$:1_S7s1g5
U"b.D1+&P+/9+E=]\Y*HGSq%.$o#S[Ll-0O5UXbGFI9Y%G-sw(9PGMIk-:F^_'/#\
U"/q]GY1)>;r)o-T#TM08:\8-%*bXj'B%rR&3aSiLVeY1#],EWENZZT,nSj(L/*vv
U"Ti]4#Ia/9)\5C2l9^+QU>R_n913/2Q0JB]H0#5%uaC81HR4.2uj$An)&(;UFe75
U".B/)9Zf5%)0yVpYP_c,\TmP(f_9P%]gAj,TijUDQM0.&/=im6OfD_\?Fg^C%%s'
U"p+30S)0PNA/jh3VaFQ.K#HVFQK^U'0lSTG&[UFL))QO6qMg+WVC1P.q9?=Z_m_,
U"7;?)90AmC0$92*Y#_7^?82]b/gFRr,]OTUA_jT4*d?'jARq8SG)UDD=fESW5QhW
U"4[1\OBLco(8ORL,jU>I+hLYH,k9V]41:E%#79KVXZ$90.Fdu>\P31<#uiE+0qO+
U"F7urY^%K.0H#V-9%Xt$Y4CQv_su<^2&7B'xE%Y,L8m=Gu^E]J#G'?5-)Re)<##1
U"HM0T3A8=.Xng;L85o==HQ0n7:M4bFS]+Q:YA[5_U=HW<0pgAL,STqDg?ObZ\afc
U"W[Nl$g^9Wx>p]x4dGLB[KDNj?BlAim-46et7s/2H_C]XxM>50h4^CAM7$jwtckx
U"do>Mtf[CGn$R:IxT)*w>M\IM1rQ1i?kf:.e=Ne0'[=h8P'Z]?5oY(Y^vQa);-^%
U"E-iU8;u)&3?h2^&RwI'$R<=:'+S;:qC\ni.)J+-/r5W62Q9AS,.9h6p-/OT<eE:
U"wA',3iT&U\]\G]/IHdn;QKk*2#B(8uy(r[\I.I7oksSOJ75p*PY&<z[.-j98.ir
U"/l-Dx,MRgA$mg;sf;*+b<)h([zy+cIb31,HE/7Q7GPmd527]G9&CA*2qC/]K?U&
U"PdoF3.7S]JaU&g(0.fIAo:u&SUqHUlGRVXhAgtP=WU+IqF2#$S7Gce&X?]sG/.t
U".WW[Td%a9PF\T4shAO#Ceem;#B'hxBVsG<n#9VzSCJiPh,wHs^PY*.sP[m_Za:<
U"]59^3In?[\=TNL8$S?B-ebrOm2ycIJ-=y=3Kd<P#U)4nOaQ\fSeQ(5(bb,k&F*9
U"zXPl.G;97Pi2k:yQPdip/hUC)-mK0DLU6NI8/AWMD>90Re[8%XB.3,o\;Ri_K<.
U"Nmu_v^95SnwL7r[r5F8cp']I3I;au2rZHZxoNTjf13\3kD1Jhq9$P((WL8Ltu'-
U"_WF-hU/I&98\[Jb-KftlA1f)ViYOj>+yN#;[TO5tU+us1*1-GZEJ$Fp1CV)/s[N
U"9gQWg3c1';A^rTD]=W%f/)Ef575$R/5LuN_&T&yt2DrWBq]8O#Uw0W/\)pU,Zk9
U"$;%xunWs_Yr\6o+q%e6$KRY^Q61/dU^#ulNLlhgO#MjqjV7LB8BT(xn/$WH'wUA
U"U&7YO_NgQzfu7iu_ZoQ:^0+Dm#io*9/I\&oGu<Dl/_e:KG?x\l(18LR6(xDHso0
U"ax4=^DC?jQLNrc[\b\0\ff3'lGJtVYMnKj0MNall(.X&fKaOU0^0<>mtEHsPNwl
U"uXvq^&tc-9.pYdZJDjHzikcm'Kb#nK&IGrHhwys-f/GN^_yKR^tjwkTK0K2pAgd
U"-z]D<bq<t.%V_JUdvLOJ25qoF;VrS),sY$4hHu+FGpZ6nr^ZXU5?uAS5eEbJjFi
U"U.ne$hjbxKN4n,FAnO)FoPcK]PB4%+:tXXl0wbF/MZ0vewpnwbda<H[ST3EZ7oJ
U"frXMv?rbg.]fr<ms<<kt;\iWl(YnwLV1DLDEuJqUCf.pm7n6(=>WRm,ntLmW^j(
U"]a>2Hj%SP-K/utX=2pbMACD=MCSoI\RMM?NO+/jxP:R3e^V.(^Yza6s]bpY&(RQ
U"rUGh(rXLpVQd*I$&7sP&Cz=GUtI5Z*NH.LLY>n,qI<Eb,#z<nBU>MYKk5)fUcwa
U"0??J\<Rg+1oH07k[re..$F0r)ph(#lBlax/;,cThd5d<TKcDtqR:e:X.u9dd#hV
U"It#>YHuGd?.sK']Ru[tQRJOmh;zzSRI[/f6(R9C[aHQut5lV8&-k8WAj;Q-niDt
U"P,.'D4%GJt:%$41(#::pmb:kB4tDlv0<Ayf?XhFO64//>YjK(NwNfN>H*0cyoHP
U"&N=\R:zFe<(NGh5>,aHO6MIVA2luPfDw$id&.88hs-b65eT;USb]yJ*#k.ZU1)>
U"9uEXuU/a/<qZf55r/w$uT$Dx?1S<v^iteVhQqvkVte2+RQeB#<u4OOZ2VzeccjT
U",lZ?WD5+dRX/bgE2nQ.NtjQP(c\ovLth/RqduQ8K7VoPunauHC\$jSgj16M:BQ^
U"4X\8QkY,^p&JXDlwv;A<\B.RHq\HZ/&S-l6Xq>[iT:wIupJ35edzdDnmM^XNG5^
U"hETKx#?F3nr]crT'ijMbvOaVc&&5Aa[5k*YpgDM'ggpAPW8RlpCbM\M7K^4qVUD
U"-WSm016SptFfc?&xfDfOy%'UVT'4OdTp>)5FC3s98qKYeN(;84);tPwDdLpHKT,
U":py/SgU^Li<>8)RP.;45EXg.ffWNIUImMc]MBfE\reGtL523vjZpF&;kw.-BnMZ
U"cbp_CC0Zsjtm\)Y4el6k^0#H?2N-[UClW:Y$NCR)+Kkavo0B7/cI_01?J/;6XCs
U"E8uHOLBQdu>99b+47_2B5Q7XuV-;K1DrQxtfwwB2o<hmPCxyUr6nxp&wrjBQ6Mt
U"ytzFxFZU3ox?86RzRx87EJ29&Pq<N1tsfR.(9XJOp=a$vQ?Bgl:Fc2aMfeq>>6U
U"^)SZ7tuvnn2'6>>:/JKHZs>_CJH4ExIXT]/9T4T$\HftnwZ(oLqPZ?\7rt,dr';
U"\*nnp07Vr[5KcV#WoHl:7\;_:Zq\0]k:SWLV62/dqEID3>Egiyi-0-2mFY/lWcz
U"0q7Tb7j?SikpX2<#6q6^7torn]ZTXb+-3Ki6#i8DA#htBf4gpmK[fB*djAR$$pc
U"k&oxl^eFPmb:HX^N)QF?U3b6\&)SxJ8GsDf[0M2u=o?T+X=PTr-)3o?8njdpt<6
U"lf7oJd<[KHuJa3\N-kN&c*xd$ChNH2quV8g*>I#GILZDt_DCl=F)6avrsf&hV+d
U"X?GHI3$Mrw7r'Hlt(4W]]L=B;gD/SeR%n#cak=2I/d)6CeJHQtPptS:P=H<8(_=
U"msfWJBHccgpwfHvuFDH0Or6#4Z1dCdXef;4Nmg*RA:1mjB%C^lTFC%*iUo-*Yp=
U"1JREywKY2$0fO^.Kc:P)Oc;GKCc3xmQuq6IYa5nXXRS+4*y]$CM[u[w]ZFD8^tM
U"I;<T4y*9c<6FUnrGMovG'Z8H^[bYeYB+.jC<%2N)$LLKhd9.1l8KCen+l>U=JZp
U"3VVKI'5G\Zrl,(nk2<NCvqtmVrRf[42cBC',QeJJjqR89YtJ\hPjxrjcoP;&X=a
U"mZQWSc1Kh\*.%MlEczIvl^&r4;6cW]NoDr97QuHM+:eo68o+YQ70F_h*O#F3T\Z
U"*RBlAAtta:VF'I$8Ld7PQX%BQ<TM,IaZ?&75zX-qa:^z&T(OTS?UqY5p:nS<sQu
U"\DNemmmCczj.i8;ln5Kon$m?;/dBO;#gU8JmjE_zTKp^8S):^3RwZ?8ov)rULC4
U"OpFlskGWQM>I7Bt/Q,kO*3VVQ6<nLgc7M]*jDP:t\_jH](wOp5]6Pz.4<1s+>>3
U"AFpOR)P\6$LPjQ+=NAJ=x-rO4DGI_c*b#q)$F)?hdF4(1-hMFf[&xJ:;t>#2(N7
U"k(IqFtJ)Qi>a,[HY:8Hs\$,WTe',l8khr0Q<N$4e>5TD\fQ70+#%[_Xx(\Vl)*N
U"-s\8usr.'k$rf0[943n#N^xz&^g4#Y)MIzCgYLw,k9ZA'eF]_Qcv_:vKC7ttZi>
U"rUDR6kU#KsBDs;(VUCG:PyKd]DqYvx;zitsN1q:zDc#-5C%Rvx'mrqFo3_G$1QW
U"3I4ykB?&5psD[tP*qeICd%u1L^H:iYIjGKtJPY*V:nWc7aVH5q0&HNg2E/GTVDv
U"L5.jbpdp\%%o'am>::'_atNR*nbps=J?gip3N\dZ&7h\+Dcf*FAti4_(bZUa[HR
U"+cLKrWq9##_M*W,]7EYD)rF>FMa6lpwF+,&&T;Wd\DN<2mX#g'WX(fWbyRjw1MB
U"Ks:\&WwDS^Th]W*uk[_EIc,88Mc2E*W&=Pvh.^%%57$9\8eymCs#J_Pp3.hMf_<
U"^e=UD*b86lntoVxSV$hE28Nr4IH=BaPdeEtH$b7Q$jER&8D'paNlhpe\e_tl6Hl
U":p-nTG:V6?])GYkm9z/#mhD6A^X0&Z-PGz7jL8_kpS%Klrcg*q7XNL]/:=wTllw
U"U+ZDBafccMl=;xmb]Tbuf4/^Tpjv;FjQ&ButOt(Ltc2GWwE\nlOG/XFIobD0Rks
U"d%,-#(C=pIoQgg#Rc't3\;tgC+0V>LrDdh,K2pXeWLj$0W0$9(&A(9L(PSjDVzV
U"Lyv#?tU;558Dp07Yv8HM2JCKaXu1Y^E8nX6dfCMqi<NLtQndr$kW7/Ws886hDxf
U"[ut=5x$tNwi0$pEE^a#_duqz.wXpa(XATb4wm?v[mQqq7UmB)mIIYxOIHpQjvPN
U"P>+[+Odo<OboB$q72s=EmPPnk4xE3ZX#A&$x%IsHvco8rP<ItfM9&noKb85*t$*
U"*rFCqIr0Nx#b.Wa.XT-v6&ql[;VeeP(s6heTgdMHflY73nA2T[A=ewv4(YVMI1Q
U"+L6WQ)SO%34^y$TfbtHiDRXu0,x72[=+z>TnpIj'19d(xFcu>Didt(KIKtTh4Di
U"$%$)-Hnb^zqY)qGNv>LG80[^Fql;I1;L]aLi(W\bqRn56qBCsQ6Wj')*&JmIDIq
U"e=Fngb??[STd_MFO7t0bc#LDMuWGnf)jQ:bb6m3C2/V^IjfOd4BhrFFYKdmKaAn
U"gzs=9B8G:/^d*EhE]k3I5[8GcEW)eF^,0>5wJ8QKOm5gY:S)GR0=SBl50:-(X<O
U"\r1Ko^P^$RJRSr#H$.uk$QbSLoebS)sQIue],F7_]D/b\&TOYJPZBB)KEnQg16H
U">rL#tBq&=ct]pr>D3=frx8NYisqX+##L,gXUTp*vKc;[?B1k&U7.$6tJnSjCj%6
U"3qzV/6%Jsu#x_.cuf8u?f..w25?De:/Hzemm=[4#A-$CQU95E1*/B(hcGC,hETc
U"aEU]T1KUq:.5lYe*(Ls_*-;g*a#Rrg+u<?qn2rE\e0oPW)'T.nhAr:D^>8*[%QT
U"iD6DQva3FZQH4L3)sKh*WuWF^N6A->B#b(it6v#d]n<&R>yNfG=Ww'n5pg2YCa9
U"]#I4E]-]'h(,U$id\,E<Cr<Gh)U4CnktMdsRj3^qXQVn1tF;pLQje4Dcb\hcQ\d
U"+o$H6+>[mjE.Ubw0UB0R(rnO++g[5SP<RQXS/XqES5-Gn:FjaXe42;Sk'oY1jpF
U"%j>%G66:/aFC)z=t)2&V?Epe]q?/hG_xG-.kjC&5Zi=DjMtGG?6XrFc5In/7BJn
U"/eQ51/LD0l=W;C\eb?lcNbLVDL45bK7fpVr+'NR[Ia(H2b39Iksw5,vLntV55%-
U"/&v55g?[^l4pn8tA\]'RCg7<ZNkNj0l0y9gmC;hZJL#Fn^)Z?Hcck8h:jXD'mk>
U"$7Eyo)GU<U;u>QqAai8D0?RNNJdJRE=P9Mb$H'ZBJX3gc1UFZNunzNAXP)R56kK
U"b]'<ggH8]eC>bm/8o_H&TO)/cRDrb)S#CUqn4E>9EHG1=s:OlQ1=N$?9:Xr62h7
U"<:wT>=Dee3[0'QSS%L:(NEyd9L23A3usA:bX&(N;(W(Z/gnLH:iO)b4M27/GM?7
U"7smHn.M<M&a%Sj:-B^91VTaage?(#XJwP-E=U\(3Y-;ZjdOhy)gM2]R64?fd^.M
U"'x9:WPgm<V44fC'%P6Bnm5g%#V#.egVz).q_Z^2D?c%t]fE:h6hCGbLQo:aER8D
U"<*NR]jDiPeIW1b<;I+zJ28Z:p,<;[#D.n^/m&2g^,glRORDQ)%Y%rK^,B:+nZ[o
U".)[\X-,TWSydit<7GJdv4;<.'aw\,IK.q6NSuYA9.lC9)X_k\[K8b2?/%(s:ga_
U"V0z?;q<fD&n$yEd)?6WI/7el9V7dbCe<K\V=Dbcn^+k3U55K(Q(=8hVHCDeWcFT
U">p#e?HQ8/=Ek%g.<'e'ZoJGyPgc=T_j)#wvT=*Mw2k2\'ZJ#XV?P%ASTLaIss?M
U"s<ej_0>]]&F_^)7l-WDM?(t\)ArL7DYA9uNJ9[+:]bkECktC#ojc(DnXMcc.Yyo
U"X$Jh/+<3iO;8b\I62A#]EC0'z%AWF)D5AkOjb4['V_$/UY%Z\z\Pow_f%(n)*Wf
U"%Qn+m4Y/XJcma4=bBV&E#</*s,SyTXuKo*^Vl+I+(syW*wGmSg^JnQ)d)9Z0PT1
U"^xJ'_HSk;b?NfBq>E*OoX>gdZ2qg(Qpv7)G<'l\c5Lfu;VRz,>)1u#Qt*71=d7b
U"As$kCm5Y#b?uHi'(bq,w.'B1rtDm32#Y<S<^whIoFX:yV#yOyJYSgwh_TEK)vo7
U"'H,$hED1CQC59dqvFX])C>ezLZNBjq2K=HLF5du0NqVXGlBM2N)y[AU5\m[\4MZ
U"%eePt1AjLfwGB-\08f>-5lA2H4<;/J7diIbgYXI1]FU-p\A-<.(WV-8,8yV[&_F
U"NQSdj#4f5o,r$=)ONngY)hRLZDLNawTI>P7E[6:Kr/21T<t$Yv<j]V][.y*7lr1
U"hEp/6NE7:f_Rxb,qMR;_ih['.#o8r(7EUUb4==:O24ImlJLSNc.\[%#b+v(\WjO
U"D2q=)47%BmsqqDF3N;<4d?HZw#J'KeP2TT2N5QhgLMMJ<bl3]**QVPRL$8o)Z.H
U"do:H;<rtKML/K3Ray1<;ZLpmYkMIc<.8Nku\Yr<BvYk$t7^[nsRV$o=tR-ssLM7
U"+$?acTVn#l0Q,-7bn[?aa+mLF$f[7zTCOXm1M_^tQnCxr/L;651DyNYXf/Q'+[n
U"?DR*4NE&pNidN>CXme1e,,z3K;QWm8LHmR>\'b*3I89P3-*YWD:rREP5xC)BDx(
U"HMR^bRYnO>H'M]U(3+]YSToO=F6<bJf#GYFVZ%A1-#HBD=pQd<l''Fg#d[;;OSR
U"-ts*bAgP&(\Yh.h.^MYHk7=aG/:3.Gu34BbCYh&=<KO6\br>LCf*tD-#bKc$IIj
U"w.Mf(+JE;*p/crQ<o1?ZeU^(?(RQy2+-wm^skB#ufC+?A1>Z#lq]STIOP9%kJK$
U"'.y%>:\Z:[;?$pJY#r>2%H$9u.1dVX\^Q,x&A58XvC44=T*G]*ADP7A>jNQkX\=
U"Cc5PzD'6N?(^>hG?3=JrS(cD.w23jw2nBXePQ'E#O$/,xGT<EtQsbgkucO5*rrD
U"n+?pR*.ykV=5aiM-Dk[[=8bjbMJuVL*?egV_hmCFlqNdD,f]N'3boV3QrKxmlgG
U"CK/ZY>P\=Y#^RW2b#4$vpy:t>3$Hfp6WN'#J#K.BP<1UjW]2HNqP8b1tMGb1zq(
U"(Soi&2YH9Nf[3I)JqMqZj7U>Vdo+#q*hQEE>JX-Pa^HeR9AnGYV&7uERwvWsz-X
U"#$aD-T%\aU[8g3T?>yT-SLd8fced<%AZZmw2dL4Cr.u=pMAmfr<kdrHNL/u:G,o
U"4HAWkH\hg56eA9N_&g&9%mmITZAxtXBZ72'c&9_<y%t0s8wketxy^uoIae]w6D'
U"(\)1WCZc=W7ernwpBW;ZH'w51d(>fP-FjQhQSmY%/h5A61At#[BIZ[_A[*^zk%K
U"y.8h^Cj/iy)0C<Y.0kyLTAdzO\NNZZ?ED4<hr(?s7b1hb8\M;4KM.iRb#9%K*iC
U",JxpRyYRfEiAOr#.WN)?mgWS00q5I&1QQiNT=^pf&rPL#S4TsfZkX;T_nm3T53A
U"5HMbQWd$7DI+=?G_JZ&?#pCfD^E_Lat&cm2-Zbisq'1rP*2W?FO'^lR7Px=Q#1Q
U"V$=P9Pp3t91##m/F#f.kyInPjSUBVQUnEW=xOIK*r/2^lSzNe=S$t$sEs#^Bwj&
U"p:R7mrqOLWUw%T1$9Rb\%.ezRf$8r6_-m[b9>?4LFI=+,qL#4FcNRPajFL'1K&6
U"\\D\vbOdsw,V+o?LlL_?'xNJxDW-(4T/:o*mENf/Ql06v4rYRW<VRA3W^h*d99:
U":]4M%?&yw^Bm>gNh?itH.N7L;o61PP\D:z;twDDA[jbwIw*B0YnP$rkD&1I+8iX
U"Q_9aOe>PZB3:d0NMm*VjvJ2>6*h80\N'J^WZF?KZe1\iSY/vP[mV9zD)t[u=7K*
U"9\j9%k,P]U6&M][KbY5Wpvhf)kuIh1]'XD/.17:NxOV:gS]6)Bz5=&Lb88B<.gz
U"2=&jfu?$^er0J[urJCEd'=%-I2lPo#'JNzk#-LUQ<Z8=3towWW'W%3OM*jjDYwT
U"$qG0,s2]-$8<ax\n;gM$ye\SL>_g&H*,cKCl3Bt$aSD->h',]l^.DZsr9-_<v4G
U"RR.e74i<Fefj,P>o0\&bV#H11ftltA]3J+/oszw9TM:6//+R:RHA7'EAR?d^oZ5
U"URhSMuR\-p4#HVd8+YaQ)%<1LGscS'PKdV6O*#/AFff;WnI*ncoI]LT$P[<Xh%I
U"78B/[+''df%cmg*2=?D9_NdY5;Z^1*+Wv;>TRe7Q>[uI-7a$IAcSR7%I]o*G+<H
U"\7,5K*fE8;P\?9vq'6=>e0?RJ&i([ha.8(/'SEO,m*v)FUM3+p>WXf7*GVq;\gE
U"V4&?=lv9:_5aa.:YhLGB.'94nY&EB?9mH<:)f#81_S%9()&:)Bi3=?-S%O):(>O
U"]c5BDJ)%r%&gMw61&R6Cmt)^Z]AJv#X=v64Uatv,zYR5RSE)T9#EI'+g1TI[Iv[
U"6*J5luBo[=WEZcUJL3hTAf1?Y9';#sv(3f$=eCVWF,o0(A*$A7-&oZ.3Id7XG/k
U"=76F;e.T2R[,F,eA&OHUR:FePK\W:sHucL<7cY9nE\4p-z9%UKWoS#g&,19J#%E
U"+fl&</=y(U&&IB0F$e+dB?1V-#4(>B'#ntEX;o+wA,M^'Aegfb*R7JMhf^BKI)p
U"#M8.IAE2Ix'.^upmA2R*c/FH[p5Aa&,=/and[#lIC12;Itq):08b%b.+YG9n;W)
U"ATgCj+-)e5s)C=UgTNrs]\mq>SC9M(y*s'^L?A)/'Fv\HYZMa%eRkX-EjCL+JA*
U"'pEkp3JlIUoF'<MU]p$^;(/grEGOLYf.(G(?l,S/E0Z5a,>'1;/sG%D\][m9-N:
U"QkTCmQfEH,>/A?5P<.%s'kmq]F2q5+J4,A$A[[&pu3D_5(s1A<3\t(>eJ6AJs*7
U"ZW\^h.AMhh(eB]T4'S<UdFuN47.<:-;eB3^%?W.oVX_-R)47a\(0j$^^,v/sAd(
U"d#<Zr9')YD]],aA2.%YH^i^[V[\(]Y-_E^3N0Fw:7A.]UJ#])jnS6B$Cks=G:V1
U"3]tU^i/&>t#;Bae<Adw;N<;=M$Rzx'TeTF7QHPy#10p5?1UB'$tTj]U5>ZIF%?.
U"0\lAr]E/Ev3''4>:#mI>ij:1^ug4k4aLA$'].N^[zf)tiCs&ImxF5TAvOUU=V&/
U"9KU)WqNL<H_;J%Mj$A.Q+g2#k%;GRJ=,jK>n0M3:wSO./8Ci)_JE9.2WgzA67Q&
U"[m?==Y1BfGb/V'x^fZB$,At1)[8:-,4/\M<VT)f%.0oIgq$oHfe06zB/7*oA_6T
U"<:g/X#=$h3E,cY>E9gS7nNX'[g?%YA6/STAk]U0M;3-)Qe5n2^W$5FlM\7KUCr$
U"KsgJA-G\r^SndV0VB#%.-M_q7uI%zG:&]T[waTEuGRf1.*:9CH(9K[g'c%UTfJJ
U"OKPjxSeooVL,2\6oh(,*PPo+SV#k$>RCi<;9*GP(,c3Mz.m+/NA^F&Oca)mo;rX
U"hi:VQUdTi3UF4oEk9P=>?f_dlIU-^Z(XV+.4)0$s[*>^e>d&_8V8VD0j>\;[C)K
U"sB_[f2)hPK+f&72d1qD4#V$o(8c+M#(LDwJGURr/^]beN[?W?o\AyE[3Mfe>;28
U"8v;qP;.G^D<^93e&;cp3.9&7hfp8Z9l26pt8$H]j8_n_==B6oC9J]>x=$PZK9x[
U"ZccLN#bQU)74/2W:R?5&XH802$e/WTgiaCUtv.Ik:&m.iS7FCDv:T7+iVHX0$t^
U"usRTCS_0NOfOvM=)5.Q[1q.Hd_[s;uBL&ZlrP<cYy$C%QV<6:1PCggQ%bFM,/sz
U"NO0n8b4H;kYSvNAsab\,BcjKSZ:9>;**p6PH^^6TD:2IM28s=W.Bg=4eU\NJf#P
U"mo^^)qX&((&8Y>75J'nBg1#MSbQ).3tDJ6p_=8H3Ok'5.mbCLR:vBIKpTjp;Gqr
U"o&<px(cEw?D6Af\#9pOi=FMD4\Et&$bdc0G4nqby_>*d9IRVT*DcU;5$*NXLBIF
U"]]h)g?jyP=cjIhq:cW:mxDwlZ#H(\lr-*/j<&hp6E,Hzjm3NhM:>M?qDF8/W)Kf
U"yE$mP7\P8Sx$e\4X7dbGOK/TIH3ZU92-]H11j2nD?7's:[n<;:l+e)vt0bJ1:uX
U"*hF)#R)k/[J:[ENBS&k9P\p(dI$w$5ChRqUvg7_2RwFP3'MblFwD(l(7)Nk+);:
U")U<j_HH=$NlBwvLXMRWeW0?^u<KYFOZ/pK.uwwv2pE0X+3utHpuP%TSoMb3$u?P
U"ReURIG>Dnzw<_Hx-flgI:VL(nLEhD&BJoo+LoIzr?Vc<b)b0Z0nA=['S%d^P%8;
U"qjU$7ES/+)>K]=[v?eBNC6zQqbV\cr+%xZ3p.4##P#P%aa)Oi,)o_v?XYUd)\%P
U"VtsoZ$1#FN]&d-s4?tTMFdCXc(AMQD0stufOQ4v4170z.AG]>:^acR[v'?)?&D2
U"JEbfGdb)i7A6.#.rlIN(lWJ&#Dj+h<\^W$4[atHn797EpFM9<kQtK0SC.2bn1f0
U"n*W<wHonp9Zp8W(u.+O2nB4#T(?z-ot)\5rNBpuD4j6VNiNUY=Te3>a4Rjz,$Jt
U"jV'(Bw<1Y064j*SN8heY'Pe=\-G+CjhoTCuEgI9I0zb,1.8ZmPxm;C80<R6i^)Z
U"Li%vqug6qoJNTl+TNskIP/lv/]ied,sbCoh(deQqXs'79SdRRtJb>/:BfGKYoie
U"M9wVJ?N$OJ*CcJRJQWWog(=^\a8,7cfiO>;V>JZ)l:,iJvtNt+N_5ro'rWBrOk-
U"vU>,a<lnN&N;UPkpaE%U8koY9iR:?PpJR2aQfC\.n48csnN5])Z]eQQ-,6r(*5F
U"nCHtfWWiF9fd58^q(wa2p<)o6-pX(qBL?B]soZZVlZf^&r>^87r#.86-RA]LZ'6
U"2rNfXJittKAInmm4RQ8\36:aYNatDh(PtswnhI&aH/5ngXLcn6fjmonPMBnij\b
U"AeuAY=O4oBFp/a%\TsgV*z1cUlqlnkj&n4\iAB)6'Sw>R1ughi8KM)Qip\gt4L5
U"cbh7-f1$C7[^O>705e6glS+]aQ2q6]kP&F<FbvS#Ai]x8tZ+>A$/b.#^Ia=e>(\
U"]DBP&GH)GKua'mv^icu'_.iuAwQ_9Xdcc$I2)oGNoz3nMFWBW&nP;bW1A4sS7*(
U"bL:XT$m4*9bz(2N>>pGC][o/YJc<FEAs+(*hNDNBlmt6\o.IBDl]W,hmAXE4&vY
U";ll=mPPoKZ^eiw8yu8&p^kqr2X#QRP9moR3Jc2qiI*RIk[v?+hggeeT,wlu/p0W
U"'[a9T/:.UF,os]5^#oog2p.wlT#Cte-b^+W62bu1/?IK66rPo>oLQ%=4vi&(Fb*
U"$QQfN+IK&9*qoRR8.AWpvZ3kWHeD3f+e$?KpZ6:a/u?0j*Nc?Y7*PHRzrFUaAHG
U"RX&PUZUTZHvZ#:Ze3U'=lgldllL%Z>)Zv=0DKN]49$kHj>y1nCt+jDfq:Eq<R%h
U"Q#ezy^k5E-HjRr<[fzRLQtczMQjouoLD1F^#=\d,54J'esS2tI)h:\3Hq>tZ%iT
U"n,)>kq+hLh3PQIZbRcK4jHf.G/4P4H*.WEut]O1deY0gP;QJd2NnTvu0A<42Sl/
U"7Oj/<_dllH+hqa54CU7QnA\,M/M(LNBABGuaMiY?qm*(>,+2GfJxaMuGBQ9-iGy
U"Qr.:KLkG#RdH^s?HWale#oOCSVq4N^7uuc.dt[6xFP-9c=u0_Br^u9m+o3EiSfF
U"Y7$cQSR?#x\L3PtNdz;&c)LpdHhKnmyMVQkuLq<F)6\rACf3tAfK7mB67sEGndf
U"NX'+qsdu0e6&6J45\S-5Hv*q+guQ.CfwX8l$pDZ8i+3$E1w>\ADI<,xCZGg52J9
U"UT)j&M6_&X:e$YX#h<8Nl)'XalIS)1n]eO/K[ZaZ<J73s,P1iqD%4S(Q3>MoSql
U"XGrV3[fMV<8y-9?Srw,\rkXJ'^wMy<Ke5ZqixPXkYQ3_1%TTsNg^=LtIn/fi.EM
U"iEYp86;56#GF28<X([)$,#UUcEZkEBb)6Ef#sixpk5U;KhWXnxBSI]6Bn>ytkd0
U"P&761BD]8jrbY<G-+3;QOSlh.x[5PN3r^K<vdHHYm6>-:CJT4c2u^YAl<^\=Bq?
END SUB
SUB V3
U"4'IUl%itpU)^t2d6i>jlCLEr^h7NB#ZlFSQsJTKxhINN+lx;haEs.d*4x,0P5Dv
U"nDr?R<<b]^0cU17Jq-?7xLK6J9=G?KDkjaP*n?A;[Ke#jTUu4xF(685IW#.R6XR
U"Cwo[eDojA8p(PS&k_UMT4lmz;1Z.fpb?j[,]J(\n]uTgqK5Dsa:+HX;3F/mZF6V
U"I%)z[T2Lqi$Huw3v^fqyQY1(7JYQV-?*naa>%gs2rjDTFqoM-0joxi8I.1rCNB5
U"hxXUuK#xHVgj^2<=%<A;<tN03d70-Fg0:7RRMz^:7_8Tul(%i#4gnE^+O_cxmoe
U"9kN(/fQVpSZS]4AuUP)60'W>hp^Kqe4lPV_0thuR8Fd)r.r&oGu-xSN[0,ltswF
U"pFhH0BJ>iF&8tNraC9b#(4B0dII</KV;c>GDx(a\LL442fS_xfOP'6QDd/J78uh
U"'LxmHIN#lE?6;=6S5p?Q>[J-?tqDp(,IqpCjq,cuV\VkgKJ1P?j\PS'hudHPiL/
U"9pT<n6\FQ:e32I8gHvY8z/eS;r>LnFiE)d?\)R'Or?_Vjuc\G#\\EyLMFMBHf_=
U"IPO?5m]X2Z4g$WVFmRLdL#3s=RuDn.a*?q_AK:Le6q6Q$RF=;IZ$TkIZ]#$0td6
U"d6gL#sSnoQf=3*<rvFAtEH,jD6wM$C?4:$s48.zCGL2;Xn0[pa;FN4=uSO=I2y&
U"mOJ2X7boMXm>0PLP/UnCS(,CpW]Iny<csBwZ\rZ<DS3K>\uCkx8+bBHD-e&cNFN
U",=#(EslTvp2?AVPI07hchM6%W+h6D$jG\WlLF<wfND)M3J_f36rolbs_LLXlJ)8
U"^jPTYls/dJ1pPD]St.7xuq<E^+fFzHHNHH;dC74(JOdH5NsaL\*+:6Q7hXM%]mt
U"j#'k6,.eG#<Y--,c4d*4FnfV\#aAp[j6e4;0dN<Sf&MaM(NTk';nxHZt\=S+B'J
U"TsLlg8SpUE0N[e>s$WBwct,Cb18Be$2V2_yWWk8yKQWDD)N6_:iHCtt9sGftZUn
U"#fA%:y0YhA9hZH+RFhV\aSr+fh6/:zjviT7Y8QwXNMllrtmK3^q._<7UYjM:yFq
U"]hp7ls[9?oSapP)BmSv\xzysri$<0WWL\/e'zdpHE[KrW63Ru<AXlxqxl$p;9.C
U"XDuK7LB3#P*fQaCfLoop(_;<S'rl-ud:lhfT]HxEW'=e4Ht,wEkY9#e:tNsw,NJ
U"U.Zu_A44q0MoYN1yo'rXDa=f>N3d<,FFN4,5l<XdqPXQo.T%r(uBCclsjHh>YMs
U"hvRXErWlI[6XFd$(B_j1K>l]kgdJA/m,9(s*<k,[q7/pg3vVu,ev3\R(/z13OEx
U"ddm/OYg3WJGYp/8dC\yqixn7Oap0J_xc2kYio[po#Tm9/x:m4d37AFE&Zapl\'t
U".,&34r'qKjT6IgrQP<4shcC.MZmN4^xb7j_][2n$o^3hoa29+?[55OSRX9jt0;f
U"Y)SaJcfSpyeuwGZ'_3>i6t=g;[8U[*Fj^,NH6]Ep(($VHyHl3lN?la5G7J<c#C=
U"hcA?wu:&W-EvaW^*c3.K%ubtX7jvX<GhEV%=U%Gz)0T&yfNX+^[b$KorFRK&ojR
U"6MC[E)1eO%9Gr<qhIGw(f<4jS]c##>&AH:rKj;jF;7EHeSW)ndSz;'wg'7N#,]\
U"<3M]DI8-4+KdCT>phI'/CE(1]DaW/6Q>n:QGT5'MwJ[bS\dm1iL6A,Nd=#:Pee1
U"*C5WKY;YEsA/cn7U8cAKctTkegn8+Pi]Dt^Z1baoHqfU4VRlo.).,xi:U\>[W0D
U"dnnAeiO$VPOGf)PiC?)9)H;Pde]m5[6%k0]g.6TT7tc#>,d)-ieC;\iyCYiu>Ys
U",4FAo$'zq4)EBC/D^o2;<b&nKU][5,WGlXlS$st8UUSsuTIU&'Pfg[Bh(4Zphfv
U"1QEzzer7ZTK=?g#=W-L#A[kGXVw^Iz9-E<,$<-wL\)zRPkRg'$muY_p/sW$540c
U"*o[//P^bE?8YtLJww\CI?psv+CCR;#D$XMBK%Jt.]Ce57M0&ReE$1mH2vPq6wqC
U"s6&XHMYi>;Ot2mQMHidlK/u3&%R<pN?Ga39Uf0uf=$?95sJgv?Oh$^*A=w?&;qU
U";&\+HcgT]pcn%j6SI/$lSVV#3KD=>ah^/HRF%J:ZO=bcG1AC,%RPXYLPP'IVxRJ
U"W6d3YR#42s<&fs)$Hmipv'Ito+Sm/I%A5PwV5vQ5b]WJZF/ZRgQ0b%c\f7E2]HQ
U"/E*GGu02XG8_1$5goFzGJ/jAjl>6xG:54>.I;(<I$&%SM,PgED3mIRf,&gLB=?C
U"vge=K?:b&lABn_9F2#GvfQFk.y;(%84l2o5R65uq/t<hC?(5ydcwe4$7p-=KvCo
U"?U;^431lI.(#32B._OeXqoou:'uS;7P8^.Ge=UTCyU]q6J)V%d2kdOf;+UKgFaA
U"1:6,4/dINbST_oq+m)Ahh*nzz[A[UpT1YuNYFicYE:07/_-4sxu_2#0cBj]'hVp
U"=51UhpGbpqCppgLoY;GA6$d+o2^qCJdf$<gx*Eqzb/NOp&P$tl6/+6fn7]thghf
U",/C<Q\&kKp&F*HCkw6oAO9UB1qW7W/$6unfIBaK=3Qp<W#fs=rm(c-'nw3aTo2d
U"^)##?OZZ===XP,7eY2IhX/KgcKwk*38l7[.[r+sf>2'-:9yf0$r<.8h#o5+Uy/q
U"]kUNplgTCQkC),(8Jkb(=/vmi=C7P^5>8d3.9l*74rfs[vr*N[71LB-Miei/.yv
U"3.jbsLcVfw(<V9g^UVhZ#ZUI)Mk<4BX&XvT-?Z?sOY:Yip5W%ome5uh)?gV$L>(
U"r?g.>6]k';b6hZRK&CKxqQACIJbu\e;xh.u]SuFVKE-h,xF?hGcDhRcc%xA7KX-
U"YL&Wd?j.%S2dUJ$pgp*Wg)4;Oqw8?MuK'[4XK\?%H*,P3u*s#(4sB&Qo(vafuuq
U"Bl>R+^0MfZh]N:rJ5l\KdDA%Y^vUS+WduOM%Qq)y]sY6oG5Cu(x((8^*>2RlUB/
U"oddm;g:SRNJP'W***1wmzHE=h65q5P+N%&5r-C1+spgO;hQZF7$>TZe[Zc0)a-D
U"1HTv-5HJl$5pk[r.qI+Ie6iMxn3Vyf\9KC(T$5>t(2M8MZ#Z]5B%g6+XSeYR+s>
U"GISLq^-m)D(e4%OPQF7,Sgl)9e<?e\/wdi]6>4fk<>*[lh3QWfUknGG3M#i\z^#
U"N1eDtL_3G1CQ1Q)371L0?Wp?LY>$Ovp.EfSEN8RHroP$]qL&7tTwm%IHjkg8q3/
U"p1qr4v\UptgZ>NxmmQ3eh&ke-sHi6L](>)jQ8sj3G0l,RZao;d7Q6Am]sTo*Mz6
U"xq3vZs&H>aBhv%t**?[3XNL9q9-uKmpjqeMp*&uQKIU4O*=PM<OwKp&:[\iU4nb
U"R*&'U)gn4sTmyH?#^KIm91+zy#\+bLoAFUz*kYnGxK*(JU-j;<D_'zpeuRf<-lK
U"fjdEqRDKGJKLzpM+2/O1WF5U\h8G>bB8xuA>o>>*_(M-.nq36t]Tg+kLiquWsw\
U"e#h,.Ge[(QaxSahi:HUEB:Hbh&3?zyCOa,^lf^Cnb:$TUUq\eiIoUw(M8FsE2\C
U"vnh*BlMH;i]o%zZPqOm5J;sW^IClEgC0Yf*a)LOZi\_CuPg9\5K'$)$Btr4G,1(
U"zyu'5WX6z]DzU>>pW'(Gv4AO<?;J[jo1/;)2_Z[I[YWl8bl'A4r*Y;)#r=s=rG=
U"zkTD%&C8R(fFc5^PU;d/hQubPXigOIVQu^d_gdd[_]iK8TYHsmmr-CtS$nDkKd#
U"/?/K3otBch^8LXVGK%*-ti>YhRJ<Q&T-tnrG<4io\akc+fWK]LX]Ql#b)Dkz.'#
U"OeKxx_xf>Q>Cxe5O,AdI&d.s2C2Gz4)tDWbr?vpglXR\TI1;z%,>-X3.kH8[D_=
U"FiunhWP:hwTyM5j-t1\'[o02&Z1asf>dhERa/nEZei01Vjz\vy?A;mXjYh2V#It
U"1),wU%kl\kQBb'L%:%*\geI90II7Zqi/?FdHOtS,U3_,5JsGy:Hebmn&M?RA[/F
U"DP/\rr1b-bqJpZrsL\h//UnrMO+^vvFc195E$2R3ECGb=[8WXVdbe*p/:::VBm8
U"X\VW%9DiJ1j;?nydA;6S/5^Sh7-dpl3&&%/0#sJ4auu$kEx)br<D]gMLJ,j9hiU
U"ad?OkO\Ow#ZxaECC?7Qw]+^wvN\2R-ZN/ntMI61G.QqzpHd>uoDzFl^NH-*+Mr\
U"DEQpq82q,0&E]LZZV4<?)Pny#*m6ae_DkzV-K(-U$lYEhfDjZ_<&g,Kh:'Zssx-
U"2.gtRkW6lA-iL%F=QmuJvP[7idy*E8+EL6$lq?2s>[<J+i?4mYycn3(U$qJ)k%z
U"he\/WfAg>t'tt.>.R+IWf8]]F+-.W++Q44I'&bg*$D;OB/I^uzS+8vHvI4D?)3>
U"</QO:*W*UyE9;nRgB'0'EUe7gU>-$?XnD4p=/]TcK6lMR#)6etgMSCI31o\-QVr
U"7$_V5^gASQ[s+$K2k(xY;2wNqEkp%2Iw#?V>_wqgj&Ks0#u3<4hV/a-a#-;G=#m
U"1bNZ_ZqR.'/i<%%a[&=+696<jQG1)'Uj0e[r>*-j2[2[q#$LeGRM=,ho*+N,k2%
U"&%o]V+=?5B-g3F*g8Nae/YhFa%b.tdNmzP\*FyA*Jqa*-QeMs#XA/idrEWK5c<j
U"hNf']F0rg0C'KPy_=8ei,e,1/,TSV?b%ojB[2l%r<AcO?/fe+L'Y#O^\C*,Y/I'
U"6)/L4XpO9>'LfGNIfOj]gC3\ks9J<B3_AJ+:YsBU^:sVlM8_KqFyunEB[k,Vv1&
U"\gR[Ms6fEqCfRq87'EG8[2$F,=&Zuc6WfA5s+&?GEtLSiAOq_R,\k0P;v/I+%e5
U"n$)ScM,fGuc<-$^^9djuaAc.K62'Wk=H5B6lQ%hFU-E$mejNTRRQs^EB^8AL%-&
U"]xIg%51pe(;23UIG]VZhv?[k*])y>mgmhEd5fa064rATu?Zm^\IIf4*:3&uOA;8
U"-?A<Fgj_aArDQ0d<*,)Q%jq1Su%1W?qIMH3p\0DH1(0Ze(WhDLo*J/l.5i\ArDi
U"E5v>l0,a%5gnl-'(:&sESbo%]B1.Aj2;SfZak)AK)Lk^sYfE;)tGoWsbVRR6sL'
U"3P=1g5xgS8P;&y<&RHHxq28OM)+%HLE45KIsbs_Sm?N]eSnCh2Z.nN1aXbtnACk
U"UH><,W6&\*AM/7zzq(iwP8,S-?0#g0nz+e(nQ3O/Pi-EhK5bZO1)q0Pj)+n(\hS
U"cHeFdXKRW.e^LfE0b%Cn9XcmF.m7g;oH)$#A0-z(%0=g7^tIp#%KfzgFS?q[(S/
U"B\<i:7A#Cl]%8-+&aM\02n7)E.sg_3++.QKmedE(GZ:K2p&+0OT#y<U/[,v9?;?
U"YGb#P=k#*Ch($.n1Qe=-=)Ao;.Se[[fS;)P/I9b5fK.ES3h'YFIhq3f%R6GAq8X
U"W)*iHE&9M_TCIUs#zR;:N*?u*M?o)hRo,i$ACKe9]^O0>H46a\O.na\9ik[&#LF
U"u<bU2eA?<]Yd_WA*u#s;,P5+ls5%5-A'hT[\G)$QG-+fK^IF\PvIi4^b=.6-S.b
U"U$^slxnTKR3f8T41R1*:vQp]L=ko7/e8C(]]'C04(-hz_Ir*p1lJIXnMiJKeuhk
U":23VfY+Y.m18Q$eom+56%Uz4$J/SycusoSTNSEKRd3kQ9nGz;Kg;'F;l]_[>)0w
U"m_[&89K582b*q9EHi?T=>ZM8QhKO/cK6].?5K'[/'[A?bn2v#-;=Z+/n4H31\+0
U"c5Tn\:]]K32fV6Uhb%tH,peFdF*aZ%8S:EECC/%t(q<jMbe\=E&9[Fs*0/wC7<(
U"$CQJE?;D=RRm5:Wt)%FxIs?*2#c0$?F*h2T><-72Lm/BsvHlPw\Y62_,=BCZ62s
U"3(H#=X00j0]?n*ll.(%pUH4:&hG5)8ta:mE9P-](p6%USVLY0;0bYg=.?^0C)k9
U"/?IdE5ufjtUpI90Qm&yi<&0Dl/77ZQV>6'(:LY7D5k_oV\d6,3JqjA9&6#$5ekZ
U"RU^lOg#Jk_F;#YSCdEdD[AtHJN3)%EX,^<L+'JNqEzC$'z<<#U)j>AF70i%F1.6
U"km9=pXs$SgqT>1YU97:B-v(D^F,.87]':$0A8i]OdHUadh9u=,.I,JHf2=$d[Tk
U"F:tF]s&/lgTPq+^V?ilB^Qp;ykTZ6=08qq7Z?92R*g9ZFU\QPTk:im4(_4[3mh_
U"8BB#Q2,>F>]X/cF)-0e>[Wg_rGlGWFkdn0#g=:563V]RUQk\T*S']e*v>T&nixv
U"TIedd:U\5R+l,/ormus+)h/z?g_$)30?to_(?Zxf[87m1xe=,Y<G$TuOr$K]f#2
U"(gTd06;'jHxEt$,o;E)<M.AH2F7a2qAj?tAf\2*vR9N4OU%v*ramIWS%5tV3*>e
U"lC#SHNrI\sGuFKLZU/id#*0CNsShr#Bl9Kt-rjax&jwS7*vNup%()9%%%%-%;#\
U"cIA^n>=&V'%%&k)%%%/%%%%wjfi#rjSC2GCLx;,>Lep5K0]6x)L/Fy:wYH=#8sg
U"It$SLyspO#54<J\lA^XYi46u?wpe_\xoPYVsKUHM=EF5VKKufqd6#)Rm:;Gt6/a
U"&>.<fpEa^&%CB+^6#6c5<t4(#xUG$.g/]Lfx1]j,q?Z8aa8JwKkAWI0q2<)Vl/?
U"fu'9WEYBqeXFC7F1E&Y.AZ/qg6kUC(FRQKnbg<GRIvQYljUn(=6g(Fq)Ko03S/s
U"^$7(?X-LrA-3AX/uKpklV1-9[M06lR,73dSUp>kRF:M'L#y*b2<9yAXb4V>D/_a
U"*LOM<Jg3jdK31qJAo07O/nsuRQHhtkH/GVuq$a4v>XT:;4qKa&<o8DUFf=8D*u7
U">TM<2xD=HOxa/T7s_Jk%#/OpLr/%cj=C\j):[u,*Sb]H)d=ViIpCml=ahrCuUG,
U"h-]%aTXoR6.$RDr=3+8MMriXr$u,d^Nc[T8DC:GXQL<?5Rm9XEQT-Qta$=L;4%B
U"vi^0iMdE&oh8jpugQC#4irHPG&IlG90=S9giID&XOM*-dh,=kQ0tGUPoSc[])Fc
U"3MFp=Oc[Og*Se'09PpZ_Ur:rm6N)p9ZMdJzZZan?Em5]I:0L9?Kd8rU+%.LxteQ
U"+=Of?iL8lsk1+COwy9Wk&$7FF7m+f]y$,9dP2_In1kt'mPgiD.yP,.?\'/BwxGF
U"RM_XA0nF/-B'(vrAR&>aeuzimBhUILS9Z^d_]+ae0.LRX.vu9c2hzwJ:J*X4_h]
U"31R[zo\u^h<CNw<i24xr&TX,jbmKqhnPX/Vf7ih1\r:DpL2+uA(bvAOll1HB(B5
U"wC8%=iCC1itW)K..Atgt+mv%+up&%'9%9%%%%-g%o]cmIKSm+?-1%(%;W%%%1%%
U"%%%%%%%&%E4%/P%%%%%s(j&fq%fwrS%gfxu%p&'9%%/%%%%%%qG\cIl9eTB)%%%
U"%)%%%%-%%%%%%%%%&[%E%/,PW1%L%5A4J#SCG&Cup&%'9%9%%%%-d%N\c7I+og)
U"$6z%.%G,%%%.%%%%%%%%%%%E4%/P-#2%%0M;0A<LSF0E%up&'%9%9%%%%-%;#\c
U"IA^n>=&V'%%&k)%%%/%%%%%%%%%&%E%N/Pe1%%%wj%firjLSCGC%up*+%%%%%%)
U"%)%'X%%%(j4%%%%%
END SUB
V2
V3
CLOSE:IF S=104AND 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
