'===========================================================================
' Subject: STARFIRE (3D SPACE SHOOTER)        Date: 02-05-98 (20:08)       
'  Author: Kyle Petersen                      Code: QB, QBasic, PDS        
'  Origin: Kyle_Petersen@cocc.edu           Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"STARFIRE.ZIP",4^6:Z&=34139:?STRING$(50,177);
U"%up()%9%'%I-%kz/WHfX..H/=#%%['%%%1%%%%xy%fwkn%wjSg7fxFa<vBc]Pa8
U"vYfxfbD^,m=Og[__0^TxGYaIM5As'hF7QV4zAT9n5^3Qk<7tk8wMHs)J(jKRh3q
U"yjVBY'&g%rdzNVq9#Uq2Y5x<S.,*^mS#.6$\V1vPe&KCNhvMk0qFyTL13nntnZ3
U"?-8r4K&hblvlSi.I25\Q5;HwwXC-fMIIYu:Xta.0ikja*[aLaJSdIcuiD?D7<6i
U"XT<gTjw0Rm\W92dhg]6oK6d1k^j5CbHTMp8rPog+=NMtj3as-T1dDjs?7jJiCoI
U"*1H^YtYSR0:PC$JT1xXr?N_>lrn8imJkCi7T]d;Nb=u9P\WI^<RLd6)+6Shy=DU
U"nUiodfqBpv1Su<bXMMUU0_F+WOG-#FMzMXnM*&2CwjsFs,8lq2W;%Y-\c8=Qxy$
U"1/+,]MpVtS(?&>4G.M:,HD>1A1w7/L>J>&QWk8bobj9%#,v-\UPSdd8fziImzTd
U"KGo$qX7aTdHdyt-O?P:CdLU$5QtOHhW/:Zn6*_R6Unn\h.ni4g<gb5TcsXxb>+4
U"LH8%rCD8IDc%M$qcc\t^dQx8nHf-uEg8t\#7iZgTtmwIC,x^76uvF7ppLW>*tWt
U"(d5xXg.#rSG==ce^*B^M+t:WmdwT+qZ1r&L_7q1wS;BqA]MKhxt<^8sMzas^gfk
U"sl<Yt5)ARUm0>sv1y<^VDEnKOH(B0nUnYt8stoMo1e(l0?l_zdD<n]M(qk6hv(V
U".UBBhce&LXpmc&dyRrw],<dbZR:)>oCY,$3Q*VU4gI#=7n=Ah12RMA:J'SE9?q-
U"msi+kWWZRso*()kXEUh/e-IgI3hm5ZQL,<z8]jKKc<)+.nQuT/x,nY/G57'q/co
U"OBiBeJTtLoqg=3[/(^^WgUo1ggi4]PQ-*a-[*$)4q=c>1fYae$kDFUJ;7&#4e1N
U"f/iMY.ndCyu,$a&i=^oHQO7^j;IM#1_-2RjIW3-0$TGEhj(u(9kn^%40F.&]+0a
U"cd7c=u=lpgUviS-<(1dAJxt3[x.>k,LXm%2UdNZG]ID\N5S*BG[l-lb\<h,oUFs
U"&P6J%1E;,q[60L?WvQB20obhlh?&6nP1bvPL]M&fICr>aK:5T8QK$dEg,i&(l<4
U"F3m]IXJSjA>iU8<H#B45/i]gC2X8E&S/X&h/_G&&TJ45fw4Y)F2^QH3u]NWv:'(
U"f7a?%uHmX2c^^4o7W[n0/9RD?KXA\xii^ih;gdMpq(PRcxCZ&7zCU&dk*Q;rC0-
U"FydxPR<vefeIkddaLs0_(uPRy2S;Kd:^4Hf\y&RC*f$Xs3:KZgL:S*^iNhOOE<t
U"+sEd'5u,#^E3MUF7E<Tj3(]Kt.iU9VDIfT%)7MTS)[J,LJa+EIVW]J(^^Io:C#F
U"/Mi$75f$x7QOs:GDGqcXa#dIH7v.LH*?)9YEO\9is4qw\CSDSIl7P/WU]u_kLnn
U"6C5Bcc=VtJOhYbIDgERVxV$yhng=#>2h3.FJ<KnstkVC?75H(D09FLAV_sM7^qW
U"]h9kSi?b:LIQa(cQ453ZNR:'q%G#>5VNB(hQLTt:CWw4xeb/io'I)E-a_bAmRL(
U"#%Bk<E(?:ogIm:;'*ksn>w$w%_w;MH9sxPB&rX]l&;83*9ZE/qlqx8dsAPR$kOG
U"\>rSm0oJm=f&3oXX,d8W\Wd&SMd<p5gfnL]wFEv#evDFGrzZs0LRN3B5oKrR=+k
U"_BaI?ohp.C+.?rFn8\F7fst0W3n;(E0N4eZ^+R;rgB%t?w]w,fd1T5s&,ZqZwTu
U"oA=xn/mx3(B]$lh?)cxEA'V*rumb<A_el%coO<2aa2[U2<EN0Y\jk64<2?mn#jK
U"IganYp:f6-5Gz1A^TjOpnC=bS^j)5AkQeV(gBsYgT+Ce=Ru.W2<?J0F-xfZE46I
U".]i.T\$j$E/[wTg<)O>?D5DhP_Bj4hoUN3]'\jzN'ZQfSF=[.9q)eF_^hi(IBn?
U"[KWkXpo'E^N;'gMS7uAh6ZmABV/[+b8xevp/[291:Fk.&a,>l4SkD<>YhWUrX>A
U"VH<x(#]_mY3dvgcFV$qU_uchNRU-aBqT4zI1*0a*?jj?pi0;oK^UK[?7Mo+E6H4
U"Dp_5pU>CjXPQ,\i%7Dc%X3,2#m1tS?Oa1h7q#Zl$Td4#rZY1P-,aEb4Et%De-m=
U"zJ=:^0Q:AiE5%rea[.(qD/e]YdUtsb9*A8'sV$eCUjpr_/Hc%(=mApy8W2UZ?:f
U"/rsXUlUUqYiAK8)DI9?+HA>8g^SY+mmoZ(;;\_Sp&5T8vI=cP??=;48(FQ^J[nq
U"j1K5M;=1v;H6>)2C&5:_q5TTBF+_PsuVZ%3IO-u,u+K[G6nrM_ZlIi;?T>*0QCn
U"1_u$aTAc.J?^RAF+^;h6rULHc7H'u+\#iB)wQ[UY.qMV9\mZ''V2,,QnRKIjeZS
U":'AB0E%(Z5MJJz9L8_)urn?\:TLYW[Hff*ivV<)(>OBE?:X#a8$&Rsub_RAkDd+
U"<,Td54W:cb4.L^hI=NN24SX0t%FY::SY-ssEJq>uGAtT9-rd8Q]^.?bdi?BN>.C
U"pC%IJofZw$YW'ENk<;n5Yd:eMiYt-hKN0%VE?fG;^lljVP3h[YRNf*2:Y^6U>Hm
U"\)[fi;OV7QK6&nQMqVkoa$qcx:Mc%fVT#-0ehIfD9J-pW86rCyfVKrTr7.&-+%9
U"mP+t5#$h==Ea]#ia?q:lT1u)(_8jDdOQ-3+7fn%C.EK:B%\C_mfyddsO;nn;$Pw
U"8kNSoXA/Oi[KLsvD]C1CWOJs.qe8yC424*6sa*7x?\FsB4ZV'9>,fj$s6TbEPui
U"4-(c2jrYg9%gltK/]j=NcdO\Qacr%Y:8i8sId,\LjsD0+)<2*/>d/O8+Jk9GN%2
U"PZuR(I7?IQulacJ5<TaF[*,:LP=D_a$]Uw8$,:q^CuLOwi,ywt:VQh)Uj#'9%8e
U"I$Sun?S=FLB7R)D-XDafe%txJ;qhqE7#1iEv0_ewj8YWc6nN2B%FJUFEZARM;V8
U"XqSB<EsG2sTcDx&Y_+_(fSt,e7A9Z)aMm[V)=+X;$Oj%ZBu7qas*-C%)<Wt%U7B
U"6$.SkDY3Dj(.O2f7\;:)$-UCWf2KO*CZ,[ur?;EQ&0As'_JQ3[z7(C:1Gi;]361
U"Y7c37]r<eq#&wh2)q*V4i/O=%\W'_mk$ER(bh^*Zi/b\<g:VQGJ<[eMkyt3<8NI
U".-nkhT/tCD^3KyM3.WOwNH*%*lXnqXUV+&dUnEm+\/ob%Y%Jr2eAxvm;,/B-ZCV
U"Hh-csTyAe,ewAcke,jnUz1SmqJQ]1$IC^eRh2>(A;aj=:7K7eFp$R*(h02ZpD6;
U"DZwGt$7<;Fd.1$.MxXW#2vlqMXPs2)xGG//'t/^e#PywK)Z#*4KC6tFe?BsNqfg
U"D%(^i24uA&1F^:5t;zarsC($<A7vUXpiq3zS?^sU\J=:AeD_Cx0L.'Q(8,O:q\I
U"poD=hFN89BVBQ?k;4fH$)aT#AHPpeFQDkjADa*-]R%*/E.1Y%U_q+a%7'YR)(CB
U"a&?*a01p_J,vB-rI+YUMs'>jYj3V&FnOyEY#317ST&eBvcRRVF7Y7%s,d.pMovW
U"ee%E6Axs:KIA0']C:qr1fe?,vBc4<wD.HMI4:r*-Z7[*)f86C9lyU>tcWCi(*$E
U"1=m:S.v<0*O1n3Gwr9bmpyB\%8QWKqV,[:>IO)d-B]7zZkI*_[zq*%dwP\V68Hz
U"rIFFc'/DeLkVv<>4?-^IqPS_0$8F6sS\A%bq.S76G/Orb-\)iP)c4q:<+$=Ds&B
U"z,B8Y<5dT[_\6Nqey):84m-%YVc.QS_*V8]CC#^IY#Ah)]4i0i,zHM)i#1J$5E%
U"+;J5-\Uux<\e'X>pQx,<XG445T$hTPaqHS,Ufi*,)uQ]>&4(f]g+0z)Q92sv&F1
U"be?1B0#7X\?cG/Q5[B34l)Rn\ie)VCN=Z.6fQo?y_1#?'7eOfnMeK<XOF*lr$<8
U"9&e;,/C;16.&:8Ip;an0*5k1fW%^(5Pv96p\^S7+eREEVw;)APV\EgRJs6^PQ]S
U"rLY'$BdMmgZPmL_IHE4p8eG6+<R3Xpr&D.D\OI[no;=Px5qt8m;T6x*VsRfIJeZ
U"65lYBP0LC+FU<MR+Q+q,r\wlCp1mj?q>+2^JE/?QeDib<coV:k#iC;Tx0g8zEEb
U"8:,isGXt*.0$3v]Zwg#8u)AJ>d;-M4Z9#koH\BKTo1U>+m.?jQrZzTGlJgQ^kA^
U":46F(V96FI1>m.<m3P(QghD\PYl$\&]%/Ari^Rgj4O&>J'l)w?OO_7FUV1.Qwg:
U"+#MS=>'l[1)&l'S5WP(^EPVF>;+cU^nX0pHVQyk2nB]^5X'dXQ7^:JW#RQJMr-F
U"_\uPDu0>ikN->*chsJ#3KGzg;B$'FyHIydDfGbSz$:FYmv&+f2O(AN=z^5#chf,
U"DNe*-:<QW8:]fW5,jenF+Om>fv8olO.Sd&'*WZ.yjC/7N-GJSQ6UZ=-a;2,_gcg
U"jmhSg-WqN2\;h)gDd%Y:\JguG$>[wxA42/I*cJpmuU%fF4V=$f>1[a*csW#J't1
U"g0Pv#MB+DxJU^o<=sRmb84Hua7[O29^7a(2U8Ne2=rhh*LFSu7&qFI^y1-VX[fG
U"isVx\1LP8<(^v)\=)Wm-LHu?qPwmo5-58z>>elia*d0seL]gX_q=^I&(sJJgN#7
U"_ZW]7*^^#*[ZW't*Zva/L$SQf'H$>[+0,]lx,i]p=J8?4(c+.b>46-A-*8/QEEm
U"y3fER,FCMhvO'%++Y$F'=+WXxTDB1eAcAD1Bm<>^T4)%.1n3RE]&qTee2zb.\j?
U"qID;s(Vid,%.o[4G#-nR0Il:TeUqKQg1&rWG;gs$FD7+#49;<2FoK=a,RZ_M-oL
U"rAUK_F](Nn7?*aU#a5FuL]_l[4crt[>7V07Pn3'T&T.3a?f];M*W[QPiaBF*rOn
U"skXXhVB0d*id/l:K\iD1w*Hw[N=2h93H0d:l_ggBhJZguu7]IUiEgQp5YvWkMZJ
U"]tRE/xcwJRe9q42w6\14ME%V':ngY?nPbe;d0Ve/,kZ[^*4HD\1I>dJt3bPSz]6
U"w8h*IzAC(F9+zXL=umJ],DA249*[S+0,O\g5Wt+ag$28<MAa)wy+3^IsXYfPwiw
U"aIW$>^xSNM?,&M-T']&w11*MAAZG,p]OVOk6=b[MS5KTwuFv8K&,-;L4#;I/2yd
U"Go7yesgboby-pI52nmLHUO[>^Ms\r>,QM<1+7ka=5p667Juih)U/eIdN9[y4H=J
U"-PpUNk[xP'?6G[M&QuMu[#(w)A.;KFd]e)75;-B6BTpLDkgE.ETJn/[(:NW.i(]
U"LAB):+0RVUYdf-cS^H[[RJVaNWAzR[Q]/Gl97*6Wig68C#gJeoQ2[DMZV*%w+2\
U"edWlT#+($$Y=V<(KE);aiu]fV<89t$\Cuj'nk/2TU67.k5qQuS=ATqs$8n+<F,T
U"5tRd9[rB/w:ky/Lpbw*J^Vk_]/Ko7*YY;SmQm%ZG5*q.0sH<j/>W6iLObL-7EX-
U"Nq$0)6ahjfpF*3ht%^^S*,Reqm0uvb#7O,<R)\\J$8?AjntTQN[u#7zCrovTU^*
U"[D;n5sc\,>b4ZdD+iOv-*(j6%Y\uJ)2^M]+^Xnrt:MV>\)G?L0GjRQkl(Oiayd0
U"MpGP43D9M#T87I/2&HN*eM/wC&EW6xFC[nq,8cLIv8,ZE40p3#AMv=>OT5(qKEG
U"ByTFXQ$o]$<^f^-F8l)O22H[dDu6JTFIJ>y[v?Z_qeTgpqw(5v'JbqSsWB'6$kA
U"\^)O(tU\Wmm,Iwws,>(fQV1B-5O],mdu+Ua-q?tn+GkH]b5)n=rEiJ]03sXEEf7
U"Yh]2*l+9v^cJ(p<KVi3Qm^j$pexBSINRGrY6TZ78mfY/H\ufR'Tgh-?)vA$SS33
U"g[0uQ''a5<,Xw.]o+QtIa^jgH/eN.JLdL\qqDlF5JVV1rT+>pY6LJ?LqrKQB,ls
U"rDkbRB/)iz:E\3#.^upw.$=]ieP>Pz7KbXAvpE>B],XM0[sw1f#HmF0nYiBDiQm
U"\Z?UI9B<khu0l<+5=:qq&^Pjz5XM9(r/_O^_v%P64<aluuYntXcBHM/\mL&>n9W
U"us6pVVw'-wYP2v.6'UKUMSdz.34nK1C1XsTD(N'$N4r*V_u?V%][9JM%QftIKce
U"I$JLo?7CpIIe/_yG\k3'BhM+dt2PA:#PB/2.D;U_MzthDmj/B[S/QhtJ>eYdwWh
U"s9caH$^WuY-=mMdc:9tc6J-ngCa7.CnL2F^xo\m_z)Y%X5k/V-U[:*1LkTytGZ:
U"Vd*y%EUa/V>]=IFWa'2rYVPHq-M=H'-TXWh$2MKFbGW]rm7.rSgnj=n\Ik^b=B:
U"I8h>3G8T5H>*mKS5(l1JES<c#N4>evC:k?g--g%pp-U9Yj<*5yP#*cF3YA7(,;M
U"G%cApb].1REJcveF(mx(=a_qX*pw=le#v\[:&YcO(ogBuAks:nhee^G2TDWtG+]
U"=KS]x/bAbS$5sp'KT)eTKx16IX-puNJ(.r[_'R'gZs2kjo8#I(f)AYA>eZ\-km;
U".j7Ef>?S;7n^TfaL?$UbfCg5S2F3e,Mg#7JoIRK9#SCeWJFHW=Wq=SM>(emdmd0
U")[kOmkC&&+f23ACO=m-Lf<go&BDrx1,3wY(lG_8X$KjJC8,LDc30V:ok3-Pgwp+
U"ggGN7q-n_+pEb&BR9IkLcT_)lW[g[Hcvt+xb-/p7Dl7n%diK'ngO\jO#]4\_:n=
U";)HWFXjFK6Z:BlA7n<+_Qd)b)/ezl7FLF#5cKOUBAEVvBE;kdg1N&Y0:MO?sFWo
U"aA+\?g\-woDpbAsXR\hDSftlpb;k,3K,&m46)fO)?7nS9KLeym:j/IpIq,IOZv6
U"T[81^zd5GZ3Cv1K#i]KrnXoxdoC(bm'U[&:A2I7X>9^41+MxW(U]S'9%aFRp'5-
U"Hh[N*]>N^W1c#8MP;RcIS;\auXOXT.S$Pr%t6;W3w<Q&-*^-5v_+HuA6ZUv*Fjt
U"EXZnp;<]_]Z%BEVBMj\wjwokCe(Mg(A6Nhgeqe.Kx#$M.qU<\WTJQI3;CP;?ND-
U"giKO^<$nq9C7M]x'9vCn#/&\4Z0_Pcm*K4aP$(aXOM$t%)0k*9uJ3u)?busxe0u
U"I\\,/Hk[_M<hBlE8l/,f8k3QemLrl0PG+Sx2Oi3G7m,hV$O;ZX#j,Y>Ie0Wc'qQ
U"^XRQV*(1l[Mw7C(6Wx8o/3R(BubGX,RKq]3j\oiP4i<y]ZlD5JxIEj7l73;t#v3
U"m7EPZ6u(Za/0PP%lKj0&;*;G1hu%)Mq5Scx<I<&_CmMwK2Ua]b'h$6,u.s_\\Ic
U"iUaHF;ta?#FC5/D>o7MyqMd*bAE%HjJ0%+Y1im+qE$hJ-=$.qp*\gM&+/W>&C>(
U"c2uK/=]KQ#Rb_36(^gdxFIi'jc8GHY<[c^tmE.1Vm:?+n=2.m2O^sU).:2l0R2^
U"sUD;Lh<JLhlY)UIghCRLh]E7pxL(h6:2&,.2n6RsKn?UnYL)A/_8/3Z)M^/&>kA
U"1DJj#ZQ,NP(u]Ta=98'fE:<<,MWe^eL$H1UtbiA,Q%aj'/7JdDsFW8kLAS4=me%
U"LQ8Z_jP2x>sB-oW9T&Urf9Yq-Z:v5YO'kH+Me0>;<V:AZUCSZXh=*(aTh6x^6nY
U"DY[EO1qa)Qc-3iv4dijn&8jT](kBac2t1Cz/I2P->R53sb(B*Q1srf42(dn,0q?
U"EE88'4%s;]NWX]JB(Yed67;UNS/*.8-^_W>Q;(fwStGK.D)$(0[BhG4J/yKx,Xc
U"yC=$j^84z&.o+r.zA34[2$1Oarf29Zm,ZXI+tXwI9^h#,_wTY/rlL+(2;Lr,Yet
U".7GQ(,.uDu'1Kk[6pLK:YdjXd.dbi3,t=7Ms-9U/fKF0*&iGpN<cV%+Xma(-w,Q
U"q6BbsL'>D:h5hUlte;OMiTl=F8MI+mtX%h<r0#liLsljChZ:fkJEiAwKBr<m^%N
U"QfC.'5gPc2j-8TaIukOrBCBR/8(;X>;d>NKWAN-m8up%()9%%'%-%3g%;G?H_77
U"%P,%%&O0%%%.%%%%ygzr%uSxr1ud%47mGT?pT12JVDX>'I[;4Xh\tWThZ4fQ2'Y
U"-=:wSa8%h16hR7v=z-AAE3K[EYW(GYMG%o=ch'=j7.%h/NG#1NGXfQJY161=U9l
U"*ULX>hJoRh^eL8XX$HkqhBGpitL67X^fxiUYw.NruxO/m&C.vZ\p/Jmqewps03V
U"Wfeh>07b%:d]r'09:k'&)BMK8]V2w<1';qKH>U\1v5vP9ita5>5:?B3hYEK\EB1
U"asv<<=.=\CpoR%'eQ7Qk_5H,K7eMI;ntAW2+/wEIg-6gEe'F-]O\\Q0p^]Y:.\r
U"trvVV-fKkF)l)3]6&1%F4:j6K-#W14lm83,ZQ%$LQe7PpPpPr2<hv_)j7RaG;3#
U"s'BJy_*LMdEzg,7iSY#f))HVTNf2YT+KC>Z+,ks<Qb1Zytj)3[mI(5Yi0CWTwrO
U"X[%zf<#W=U8zR+<7'UQ;fFoONNR9DMNF>JqJz-w(FboidgcvNVs&BStKgqQ;jpw
U"<3Hg[l?fx&zN#>[mZW7:$NJX8m,''W5C3.]iuE_P0JEPVv/6<nd2.L8Y3'>=#Q0
U"0\juds^ri#rRv6k?ISR>4tkI[qvaVXTUx?Bj0HnN17ck2*'HbmncdkTs4xu9Iid
U"GFhL5GGlWtrO7/25K:'WJbP;Pe=lv$6$$f<?ns$Pt'\keuLbjJUfD(+t)H&'4iv
U"-$k0Kx]a7wAAj]qQFEc0cHQUrwr$6lW3kbjgRZLLD1'pvpq]l)72r?/*2iv$3/I
U"ucwLny\wwTo5w=2+,K)O;>KII^7?bL;_7m%d272*73V>Ef<4r>Rj]NMJ/GC&AsM
U"vnw11F^:[J+u>&CJuBrNFQV0V#iptMwuj134G(AIrUc'MoA,906c?X18L'Al^NS
U"MY]H'#t(SL(<>B#^XQU*TSW$1U8bc.[s.Zoj(zYn)vPurfN>lRBM2DS[-H.A)ux
U"6C_HAEQyTJ\nW$T*TM&Bt,V6eNwp$FL8+P3%v2G]kLZGcgh#B(n)$4qtAlnTu(Z
U"'j]r'IR7N:+ND?S0E'4kJ:^.5L#gkU-6Ea4WMG:tzORvqCy6Jjx>_m7f'EK0;V0
U"TD,sP5OY*SJ,#nXS''>-8vD%H*c<v;Vdkk4CeZ+&KS71=yC>g(CfXVioEG)Ynv5
U"Vs.T+vTPqeS?FLtAsG:dJ3p/sugQdz-O+U1FkHupqNC95<u6-.6&*b_csb4%PE8
U"+\=cg7cYZQ4(FU\\dz0sJK_Jns:Vp,d6kD%8HnNDubXn7IalK1Ee0L+l%xJ_RWT
U"Bu^SfRXco=umniI1EStc3OB?]kbrstgVrZJuNRRRZNN>/2CFFXhJmqhnf2XhZYI
U"Ajr02h#Sv]U(.9*455KM)(DUjR%ZKZmG-v:mY7;t%I)&&X5&W/##%#J_;7zOt5&
U"]33v&3$^jZJf]s:+&f=?;^ZFeYydCHWgsHG:,y+OT]B/nGO.+^A^j<sf8P\&E^m
U"#APg[u<P:.?AdwFfCntwXJ'1#(Z=$lGKu^Sh6RR8SDFi(8\i(>cFNG9Vi<hi_lW
U"p#2oU>9efeQ[Y0:uP5M1x7-^GeQAFE)PdaO.k&-Nd2k9Y+x2TKkSl_=^TYI4)Qp
U"%uI?*,mDeYehotLEb;Kbov%A^?OkrZg?H7^JxO.O/53m&/A^GR.(mvx]byW2i+a
U"W#,1JmI.;3Vgd&D1cSA^fEO7vz?&b.X=kO))&#yO9/.>u-%+P$jg$)'EY((#_&-
U"Y$)28Pu9<[-Mgl3lo]iL'2sAO>[t'&+yQN.zOt?PoJ7DU_lWO_'1=uC/POON)'<
U"%)j\In-4Vf_e+sfT6^jIa;MnXDO-sPL#M7.V1HO7QU;^#f^Fr_7R1m=*GF*]7[9
U".l;'JUE9R1EqL=c(P0ZL2V=bgP*8)'VBSf4B%-,$)Sf\'RrY*Y;1(*\[kInQC%N
U"FGaE8[Z?:i^uqg&2)))w1g%o'%_6hJ(zxzYgx\e[(/;N=;j[ZIEIqrR,O^Ne*DY
U"YE\<RN9[mU;bR&e?J*U_aCB(4JnC<wFQ,M-j'<w/It-0JBMjl*uYs&gA>n?^9H)
U"E92P^_i5p6=F5A\lr%A(qs&o.kyQ7SU;9FC_s0dQZLu)(9o&t5\p;69Iy9<_v/W
U"0Y'<3c3<0Vx4ifcl^Aw)7ds,LT);qH6&I&1,<\$XmhCp0Y3;u'U108:b/q_w#<3
U"u4n&i]RT5)7x_?+_43TM>&8\>x1%#J0O_7k=fhO_\5G3N;ukBIrX=Kr^W5mf5Ar
U"XrhLQIe&Ja)sHue/j%G$&$Iso_\uSMd;kI9AT]F^47&x-h9=_rnm?Vjnr>M<'O$
U")*M93:.?K<w<TYoSxk5-nJKR;>IO>*>yk/w0&eefWgYF?X*5%TN%%up()%9%'%R
U"-%g%/;GQM3sM_07%%u2%%%0%%%%yk(y&fs%lSxrIur&*S;APHV%Yot(r09RA)En
U"Z3UOqft117N_#iY*49RYQCpqMj/sm(I;f+gSu2UV2<Hkt^&6S$XkJ$aMKkGaa+n
U"VqneeM('Y2R);9RVKcKMS_-)-[c)C*Y'L]ap&p*%)9Bh/F6Hu^x8hut8xE*gf+4
U"6cOGVEtw[&uS0h0ro,rVkLxFvG'6SNrvNg86m82,j2Vw][Yb\rrnVtouv8d=*wP
U"8i),&p2b'5?bQtv:>Q.Gt)kbHc?u7t#Wngcu_lhVGP%qdW3G6$K/tcXvGuskWFh
U".<U:jHH;wrtnFu=f]xkEq.tUWXLiHt5q<sZ=$3Ws\Wte4DX.I(lqL4k+#z8uvt;
U"tuJSfiO%Ddq26KF4uEfxdFx#p/<gU'2?Xun<>>'8LOCxK2?)qmPl8ulDO4Cb7Zp
U"PpV6o>6k#TcWHQfF>Lct(C2qf:6jNG7F8$[.0$:cIgP<xAh<hlp3atzsZ[+FwDt
U"dI*?*5?w3Jp?M'lW6-JLoL>hwl^t2l.Xi9drx1vioT475]S$XGZWt7'cX)4xjoe
U"7l,fj\c66qRLu&R.8%d^J4q;N*&i6L9v:d^qTQSDNFuAdW>mtBr<Sbl'3OC8aZV
U"Eq>;#b\ZZ[YH>PQpauHl0w'(]j=b3X#2>F9GY/Wt^TlhqE-F]Kn;mJLb'IMhBB0
U"otXUSg[gT'_#pdBgiVxaV2FN#-13fDLB1X\g-7M_q*omCVnI$oH5m-)dtKjXgh]
U"kzV-54v)ZPG(;:CiX#*G>BQTR<FHGg7=-j?uGshT50r*wt0*NlR_<K(cF2rVEx[
U"uI:YR<(=6y<vj<dtN)vstTSgKU7;0V+Pb4K=KPgLi(gXMPe7#Cohtxa6;*d4bUw
U".$k%R6xuibVmk,w;[uv_q]FIt?NtCpovKjtWm-8tWTb*sLVr4h:?g\&a,uJC]ap
U"\RG,#LBn-\E4QV>R0pKlO4v+i:1zku/T7)1DOQZm$cJ4i,K;lj>xfeNt#D5PChb
U"N_m8\?_=it]NK>lmnLjIYRtuv%b(0d&_qZT-scuS0uxOC(elCN)H,+B3r1GZ=)T
U"#WU'IXf4sA8.xKWl&jW0[[qN27dmVmq>rI]/]lWc<$(Ww6P<ZksDrEpvs=C2hD4
U"YnS7Jf4pZ.tTjh5lnjps#-7VKl#-6&cFF/5nm>7sfws8sd=Pc_%SQ2:nua2rEae
U"$bJK7HR5;BIRO[5&nG)SoBKd$Vu-W+#\RDp0Y:dH9$-,#+ScWG[a]f(.tM;F03t
U"4a2N7PHld4C&^4HW%qn=al:ZthJP0Cs>T%tSo6q9<6f?7N)d#r;hUbXAxlJ0&^L
U"SXRks*i#.JucCWrlB6X0h4A7632miCKZIRjnPo,f^F;<9nfFs;EM0Y=71lFFPsa
U",-ji5E6Ip^t.I\H$$On7Y=srBx>lNVPoB03,eLj+m%qdH'_Ume,6P'?[oY?S8,k
U"HGB8ZOi8b(KQ])]ZGhu?t1n5#OS^#ASzZ.g.>^j]slC1M2=k#LD=+?6urPCln6#
U"iacMFSSu?1L_hDJ4a39D&luLR/5^j-rRNCI$TXhJNpWCWOh]bzk#p;%Y5LzE[Eg
U"3C6GehbK.5/.5dOK3eeI\(A+Nt_*S.?*p$ZwcbA+c7_vNR=>[n/aORc3wxRhLHq
U"5:xg5ySkc=Q3GC+mG\>OY<(pZqf-_a\(:vBCKN<:o]bkPL+$sZ(\,QY=^wMSM;e
U"eW]O[gC*iD0r7Etq&:8Gn7%G)RhtF$ey=)M?w[-aQ#?[_>RkII.6]?oWIt*P2xd
U"W$m7KC$ZOJ\t1T&o$Z[MH3Je%)-in[;vXLPb>%J9iPY\gd+M&vb(/zN3\xY*,vO
U"OhKHLlKcR.q,heZS_)mjo$_0=p]:i>rY,;p->jp()v\2FY\'F64i6-W'Mn?h-Ot
U"vi[EJh:vaqIV$/aw(cZ9[u/Oe/I)G/e<+#JIx,6]ry7-WeBRouD_0e=Q%'J;Hnt
U".&>SzqlgMtdJt(bjKVvy6MYz(NA4[8&QLQnhYZG8)2,Sw_L0J_BuT+Ln]uq#t0K
U"B<+aQ/NhK-Y'86.Ec$2BK<?<4b.^SXskun%R$<aKe]oA(2[,Ym5K-K&5cOYaLm'
U"<.os.)*e:[#gKU<..#c2X3LbXDyCg'092YWQ.,rMm:v%N^_5#<9/ZXXVq3Q^MT.
U"A8rM/'O&aMjsgCCZZ/KchtJH+Q%:_*'\9l6#Fq?2_P6+fE*B-'LgInHr(#SIvjg
U"<HVlsOn%)e<_AKB]u[UTDV0h-hG)Md:fhPS1Hg3a#NEL;$\RY#)aK]7-ONyadV/
U"cdC<]Na[ScLs7'P4</-.YEELd&E+*+^oUQ&mp1h,[5)W9$L+Y<g)'X1oN&'cRUs
U"p7OFWfE#fd+1K=cDQi>+.&[Og/-8HK+>:I:j^9#;&VXDZ5mWNS-3PIQKT]+8Hin
END SUB
SUB V2
U"(a:\6B^q,xd:R*lW.gq\YO^\sOz_83oL=]LO?DjZQ2[+;Lu;cC(XkrJK.omc+&%
U"FL^V*mh:_qZ*(:v#pP;BU&T>GETVMpF)RXX+eBQvrVj3be;FI)FzOz5%zf9I?lc
U"FA%=i.ksE9$H#Ub,CZ%#65^s+7OZNT5ypjUkV1Dd$m?F'kHHF;<7kOI8MCR0r%1
U"AR)JTZQ%Rs4rRu)m2o=IFT/qQ?'2;Hy/uY4C,0'9m;e441gut*//4J[Q-]YiE0g
U"Fx/(KTUm*L7v>#ETV1j7-_f'I+Sjq0;TKmR&RA:#+a><&X)j+a07'aATV%su[0_
U"A2&=uS$_vK=T9=,)o]GWP*()x)9,2xEDvz3p?PYCKH)J+%W\6zS\O4hFv,iw/><
U"/#5GQv*8VoavHZS+ZI1&L[1&dmtLhc7aQk9FTIg1k9)ssee[/1'8'=(hu4$YmU0
U"n-W-VcR9cnm)UjUF3K0\a_ij'lI25EJtEa[G5eG=ab:5dW10Y%UVt^,0M;)VB;t
U"p3#x\(dPE$&bqrCZp-S'FPLEP1.h=3&m;A1=#054C3PVc'&^7QO&QWIb*E,OIeU
U"zfjd-]$m+iA2A&o%/#1.YkO/#bnfmQ&?I1KXR^%Vvzf.KSw_.c0<pP1X49JiuSK
U"VomuyDsSg*[_7.N)R+e>#_U-+.6V,)U9AXeGgSWA5$#<qRVf9E+*;mgJZ0uc3.c
U"l-8XQ?=3*c9%4X>ihCExLK)%po*IO%s+2/x5JH0v-J.q]_jgeLI'78h9&;B,Zf?
U"gr/0hKS,eV2&3k'3Fh'#Vkz0K*4G/by<P)S/:qg&USfgse%+d=wBb*c;g<<)aQ'
U"Mm%uGn'MN(BD[#-T(0$uI%U8;jaU->,JK'sZ#(E-cd18uE-YrA,fML_se_h.nIK
U"x)JSQH[A3PeYNX9Q*_mO99IL8S#ON)Oy%'C)O-(j[XmnX%vm9C_cI#LwN^qxy/i
U"DwCMB^^6=ni^cySLghV1K>9#w7GUC-]py]=1JQQ73SFY?/qqH>F7gO$+Nj)z#pA
U"sXY1NXOfMos+5w>cH/Y]5u'ZH-6Ffsox*QSwiesph<%]v-MB?1fu;12./-n8vj%
U"uZ'w&1OYAnz.C*<+s+[.zQc\'sh3x6jM>;*.PN3MyY9t+G%UUK=9LTCp#wMA%$y
U"n%M^67mOCc4njhk))Kce*A\U:V(&uywfhoKWZXPHX,dioNVTQ*V,HtmEqvL)C39
U"Y\7)bwL?0p9&ZPw_W9jo>*V+g>vvLvNVO;)xAMK;OTA%N5o3Pu[2t;qA,oloI7C
U"%m4&N[n&hviU-.e.cMqg.O]y:U9G'1Wodgf2nAws=hIP?M?YPaLp\bV>dYvQkyb
U"cnIyqsI8m6[FGDYNlSXOKN%(up(%)9%'[%-%$&LXE:7D\L&#\%%U&-%%0%%%%j&
U"'uqt#ijS&Cf%yI_J?#n?2/S^6fIpx:s0aNScxY?%-57-#VFFX5#[g]Y]h/2_*aT
U"3M*&:ttd.KgueGgGZ'.+%h)8D,N'e<(?7#P]1skzh%g77'%Fs/2#JAMK4U-V3mB
U"=a-iwM=xur7n=Se:(EipLn$qHnpv'v?O3%CI_IqaevFH(dQ]4Lw,GG$u-KlvkHB
U"=dxvmDAnireCM4Ye>mYU1]W\(*us[3TiCqTQQq\5)7iK>#1pe33-RsZ&La85b7C
U"*<A?t4Q9Jg5d%S/c?ADe10SBv7O9ILkSPU]w=)SQV<0O,2)E?[1pm9i$RX;Rql9
U"-vroXjWJwtCJaMi*;S#n,Y%Mbx4$3JIA'VsLS\c,=g.*AGC65jK,$BG#*dl7??Y
U"hdNs-KJqqJ3tLVV+^/.cJ=tqk1)32*6\y;gR(yJ$Wk1JpHsflk[]_G=X+0jC^sA
U"bcACXp9MV1E^IMs-Rz(NsnAL5rkuf<),q<#v00nG\>Do0boDt&#mx-.b:v*WDQi
U"se+qq$Knc2E2%=n)iX1i.ACcqB2YohMxtsy59pz,Sc,/VN1aI1uZSEA1yk(>4dU
U"[73->+5&Kgou=lW\+o7A8Y,Z'YV5NfvL[h(0,<\fs8MLD?%3WBcJU.*vBUdH/w?
U"s2#(6+31n39&sK7EpDPYYIKTj0D2#Z'j'McoK,5OLK]1JKDS._1EYO/dOex3H]L
U"bJ'547;yZBTOD>)[;(9tTYnfgxsbqML,ax_QP$u;vV^Io8gpm=GopP4?cWd_od\
U"sLv?WYs=?r:#dI1/nLuwN0ppc'4jZRn=c8^qq+_LuFLu:'c++kTP:0c(euJ+Tt^
U"?ZiJaalX^46s^tp;ve#G_u5-[p6leitPf8q7V%NKb(*ikReB[_uJlQ\&*h.Y.Dw
U"Yli#9Der^rq6orphXt(8))uwpRj^8(CbK\G]y?:7t4p\dBnsr8Rto=[r7Vav/%5
U"&.2KQ2FtG2tZA5]V_x,INY^D0NFvS-%x^W>Am=\pDL37?7wptr8.xg0<dL\r<Ni
U"$hjv7b]v,wffNr4^aTgz<H.p\eImCH9i$B*/?gu2i0;Omg8:JTs.x$mjcl.7Bt2
U"Tof/emm?X]4px1,NRCMr0.7qEDraDxzP&^c,B2lwFTs?+T$gEdvZ2kF7(xZYGfB
U"pDNtZ-#PhL^+MxPDrwb/%pXRz2_uQx7pC+I<mao6eHprW-LVR33W,Ua*?&_7h8.
U"IuKc$bN2LV.=ThD5w:X5bOCnTM$(A*jrLzVnL-J+hGorrnWblT:m%(]K^^UHQK*
U"wz;/W<XA/83[XB<x?EWu4s<sFd7(^Z3wPjpDNnPinzX(WX.4Ih9L<fflP&HY]6l
U"8I_i;Mu)3s05^e<_ru_]>I,IaY8&CSPirN^&f(CKgRzw3XSWt&L8$Mf>[.R<[hf
U"&>5u8577kkpK6uwPnTD]ptM_'.<cu?PPLBElDAhR.k4F]?C=>.Fpj/'8mtM$_Rz
U"_<Y[f1x'C4sbJVk=HBO(OB4tK6vWRzNN,RxT?<dKEV4[bsaI0u%VL:076SWx.7/
U"SS*%l7)1c#9muq__LP4hlub>7hCd9mK:N0?r_gdL4)E9GkO;aSc=S\ikzW#Nv'L
U"6%JNGJV(,adv:s9i[>hP^8GoY8tHnkLaf>l40FeZ'ddwb%IbQuC;Q*BD<kUV=RI
U"Ku6w^Rs0X'(JNaz+,-8U^KIyMEnxPipjPkZdtT_%#0ZvSK\fd#Uj\4M'uuMfr_j
U"CZouRsXg'E5kD7tzfQUPNsf1,FfAJemp.6dCi6ZrGt-oRwM1Nh8jok'4QFTs?*$
U"JOnIO+6NkxCl2l^CjhjsPe7rXU%zU&SpxmsWM\FDH7oK^ZE[cIZcZ+leDjatVmM
U"sv_av^rm($IIGP+KZa.j*[WrzP=rE+ro3d^USt=]m,g#N-xW$#Zbk\hnXurkgJ.
U"icn?WZS(fuQBuM9qI5tDEohvJnz>xgEd,/u&1_RsS\:Vu(w/Ep,>trVBj]RXJxo
U"b257>zl2>%S2PHS(/j($Sj??&Ops,75con*PTf4CDsq[QkGV,;_aLGI>rY9.'Ne
U"XNPu\*Xw<s0BH8J4QGjbtM3NH4#C5D92LNW.OgqBfwmrjtu;QspnN-xN<DYL27E
U"iZ17f6?Mtnkst7#mtM5*ooNbohR\Dv9FJ%sVbDNF#8[+=$mWbFgRw)Sk<KovHv,
U"<548[\0(P&;/LL50ZB9$UwmlIM%Z#jG3/K:^D>lCoEtGfW_My1Tq?6$ihBTR98E
U"U&kAH+s3,ln7a<Bk7)&8n7qJE_Rd,t+xgvmp(pOuX4wRW#NxMOHp&5fOT]%HH)D
U"+LqK?HD?XP\D]g-+CFbOtuT0wqMp<^>8$mwrlkH10)#;SPlKhJ5Q6gx9Z.%7IM6
U"DDBiN^Nr59bz4V%/?E12&LULsC..%wIstk-a^7s\,mR)vFTBP*w/4t/nK6fhd-t
U"QktjztN7jwmL<hVQqi>ndT8$rG$uye&Eu.tUGSrKqXc(HR<-jp>r,r83lnK]unV
U"S9p\n7l6FCtTgsLC$ZM9]t3-r>IV<9caQD3<VIp[<x_GEx0fmL*NqiafT\Nxww3
U"QeqRpt<Vk8z,wd++xyGcrfHYT&<D+'CGWe^Dr4C57K4wNdx2x;OoYTaXr#0pdM$
U"M%Be'5YchxTSyDg<YKxg.j=4B^?mJ(c?vYddZX1u^FT(qmuqm=ku.m]CVttwK_1
U"?oJW;6lSeZssT.pm-X?I-N,:b*NzNuGVxkGpRpuh%S5Yt7a$mRj87lhw.VHxL,M
U"?6t8C5MgP<h:F;WY)mlNVJ1#BL4=H)UGHifhaY1Bs(NT/F=N(mI7-x]LT6Hht2w
U"aNAt%?i0-1,d*._-Qn\D4-ci:2+'>ZC>]cLdxR093Jrpzn(q%>?20TFf012Co&7
U"xx,wo2<#TqfXVTC4:k[C7Gfs(uQb\G4jr0Cb#7q6mN,zt4N(uP'k'h5IdL3Tu\(
U"y_,_CV0tO2yYW??),[Nuh<Pe1&Y0]sxcT#SWtHx4huO8v]u<HOhjQEYDrhKswuC
U"EF8YNmB6nzD'xY?vg\3jr:D)3rHhRP(jr:.k3apIbo&JsQYlsdsR/lXwIL2Bt4t
U"6V8d/NZQ:Ji\/%26>0CFQv[ZP<(&mBl'rZ,lVNL#XS+uTo^xJ*Yr;K&kFLKZl=k
U"n8q.Jhg+lP,+lW2Bn0Qwy0*p\4kXlYIxu:^B'UCq4zuenv^b\T[f?SmQ06>T-Pu
U"VuQ<^JjCX(I$aHkHqT#sJ8qh>N:p<p#KvrRHt/>Zs>d^ObRTEN0:-J4fYpSgr=E
U"s_b*ke6_%Tr+rraLh(50^9vT'RUSnw;lvDbh>MmglYnxv>^L2LxuqoSFPx0MGrl
U"\l<Z<*L:h.LMll,8Lll#8Mt1dffLJU65tpD='RQxKbaILoZ-gSyHq,PFTy'O\o#
U"+PpAWSg>E5QbkH,ru?8ANhNqG&&\yzbt*]qQStn?<5#?uUO+7D#R<?-H6._bH73
U"?j##B^mCKL]91#I:MJ_O[sCNMVp'l1JKD]nt3uWsT$MxBN+pcLd?rPNtZWh>xM?
U"v?El?L&;]aL]AGH99Y#/sB4n.Q<?]dOo6W1<C<waS:W/QGvjZL#:-M*gt<Clvbr
U"xsSR2nr76gXX-DHmA$6Z^poMKqBs3*(lwkbtg#FC/3O%yY>l59vJ,?mZsr#K\nB
U"x,L+x#L/3LBX)qNs6iuRT<$jT8HhYN_q7%M)^j#DnS6,UG1AiHs65_XFTkQE[1c
U"g2(3&ss\D.N+YfEICOLxqs3$dcf&?Emx=nRuA;mKlebT>gdMCt-O15ptWb2N&d9
U"krN6#K#e8?6(q-J\&=\_GR#iFLb&)M19/Ukv*^AF/J6g[lJ34**pM9jnI5?$pb2
U"*ncaF1DCLP/pm.I<BI,n0yIV0n_V>2l2EZAE>F36q&dUMrIxmd3t2__OF-hC/W+
U"*B%UQ]\nn60rW-w[<T^?(:8fX_s^4kOuflL<bT\p556^KFLJ1VmaGG=3U-Z3C*L
U"b$ooopN^Mjm8:YNw2lZ(v$LuxrKDbjo98lUi)6R9;Sgju9V=GU;P>^Bnb76owAY
U"N$BT'6hiG__i-avTo\8jVjGxjnj\gVQqV&FNh]5=qMEpkcI[4XiV*-Co2AGi<jb
U"va#;CCpS3C5M2^9kzN-%%9>ygtjp(uT*nro^c>K_B<*oF?Z0HnMz,I=Vw$wo&K=
U"YO0VbC2Q.[gYDx>19DX?J4x$Ad88>i(m+Y764D1mhZbJ4eET/LH>sXC5(w1Rxhn
U"^Y<ToAtLR_[EVJoyS)$Tz%_R/,_z9\Q*aC/Fss(oHCS[AnJj>]U+bKkhqH(^w><
U">FztYV4Mlnn<K#h//2k)p[U5,?;8GnxSOPku9H*_z#p4\(l$mbVk_QeEA98oE+S
U"_l:E<VEzQkAoPRz^Rzl<]vQf)Lu<Bv^xoAKuKkKPlSM4tM:99Ee;RxMGc8utU3s
U"T9?IJx^D]op.bn$,gtMpfPn>rXwEDf\UP5PAW[UYY077ZK'LZaBU*'lIYp3&gph
U"ZxCS5'\Ysh_V-caAG]NXTh_U*FV[dE\kCD#nzA8%V;bv9hn-d7vo\3>V2/FQ\&x
U"orLg2FG7M^/G\mmRds=EgLSU0(e#zW'^MyW9/mMrMY<\sV6)GPTJMMS5t=W4tuB
U"ma2%\<KM,GZqKdZJu?oL)B:f2gfE_eu[8V;=&8<V,S+Vg%?SJk]P)>C]9%LRbhh
U"Dt?r2a#.]SGL=^C*j)F_2F==)r:^8r'oMsRl'6(),8;(cB(h2(bk)1+=f)F<p5f
U"'&nszmr1#N'C<_SLP'LCuL,v<]sXrt3hLuNgBlYGU+uk?kv9(b,plOiINAmB$.u
U"Tj=_r$Fupbr4PcS:46-WO'No'by=A:_R&pAvhuv]?=G5c,2M#+9Wbd?5kR4rXn_
U"xri^hxRVR'L5LhZXWv.V*<2H\4#<LWrVzB,rjxvW?BA0mB6dD^<ih>:WZ,,aTEF
U"jCHEk64cVc&65n_cwuUXJc:VZ.T.4O,w2Fq%U_L-W81Qa&B&VvTjdQJjt+GY$lB
U":]blG&+d2HSC/*o,9n6zudlTotcgSNOu36NZ*3__pr)%/TaQF<-E91<611a^lwn
U"nGul_MSWrdRXr0>wb$&XTwTp4058uSXcH8-]i&U2q9sx4EKTP[hIT76'&eDzc-D
U"ExpN6jlf5Hqrl.-P9&/%FRi=MRShtiJ'Wl5tH+B:B(Cf<MhLNg+0H;(KkCV8&[[
U">s&N:5SVyN%deqz3Ktmjb=[DEM(SOM2Jkn/hrbh^\pPf(Gt[7jgt;gSfWLZ,6,%
U"(RIS1(h-ZgprGLt;OB<bySU\PwPSJ)#nJZqB#n6R3xq_twNSQ34G6q2&,%JEtLB
U"Jd3Dy)9<Fk4x\*7toOKvP5E5%tF/BSP0Eoeu3Q'?ea/hR0>OyQ32B0Loc.$?N6l
U"7W/s-ZP(<TAg(Ob??J-abjpcH__lrbhN=dv^4uhxwWN^d*FN(m-)Lc(Wt+L_;ij
U"tS2d\yzNS2<lt$I#EQw1Qy7M<(pbH]^WL>hUf&$L7wP.Jgpx*96<XoMh:lmXH.'
U"7#F6rWB<xvm%V=1s#C_yqK[i]?C%6Szc&9(fMt,0ZVy*&aUz=V(NWo=wk>T.KBO
U":J.YM&:kYml2/T(t\/u5JmmN2(>G5EnG%MZ]uGt6,C%EKw:yEOaWd:85tvAv8&\
U"IrdSU/BLV5%aaU\]Ldb:&I,;0#((xB3vC*#5#u9%>#m(1^);WM1$iAeLk,F7MOB
U"%xAL5)x<N9,vrO+NIMH7FH,BfpT&f\?OfpD8M#e[1[J(+ee0HT[3Pl7FJuf,X&k
U"kx7vFThS]iGk*4hK5Kq?ET#x37w/ueb(Q35%NuVMFE2cRjJ.?=qpd:>W%aus\<Q
U"ScTdPE]cW:cBaKmR((p,W'v.4FMW7*8O(#jDR[),'1m]0=>]?5&+V_f-b6m]hbX
U"k+nOe:p98e?ji^=VOD19,<WG\;k823,]5a,=F?:Hpwu1Q/0w'v.c61/s84*AXxv
U"tr:BOEkUsD:hd?(OeW+(6T%pM%E/->Zcp?UbU;SUbZ<5$kR*OP6Yk0YZf-Zs%*1
U"ouR9g=$=)L&VDbp51G0KxZUxz0uZ;*lN*1#c\VDMM8%5;0arZ3RQoM](I$RWyMZ
U"K%d5#/vfs^'0f=X5/,,FH.=[OOR$y)YiHW>8BDJ%:JjJ6(0z\>>g=1%l_BM.A3J
U"fMj]a-TMN9I=&&,],i]B_IP>Bx#1C#ePUaXgM>1ICMA;5AlrCTN6pg-$qJ9r=Sx
U"8LbDZbLe'KGhr,nF6g1yz30h-t(Robg](?5iK&%zr(GRR_I1Wm'd91y%g-^Slpi
U"?beCz$JU*L(XfKlo#'jr&2>VA)ljTqN5B<?tQZW5Ic;k'e-a#Z<6t)]K6Wb^ArZ
U"wVuS>:kab(oNi&V.VkFiW5_uxhR2q%hRgk'6/*I-<PU'6eAI.c'vi,()-f)jH)Q
U"3k/,ebj,&VVs&Itj3&&LhLsq*UOo#B-[,]mhQ&\2f6G[j\,AsKS,feiH,H$Hg&\
U"%atF2kH7*Q52zw?/^n^*+o-zO:,ecbjFr3bj[PyM]L)Tm66>1rzNhX0%n%1I1p,
U"EqEOlS)]Q-/Cw.z;a-(+,Ujs=NOqY3Q\29)eI8M]X1g'<UXq/*$c;N=0BpUkrFy
U"ZNcN<<K]O;t8n:k\U[R^PD9m3.[DB]*\2V4r^3L2uUa=KEk/S$jr?e$(*SDCI9N
U">_R29;IGRaX*T:l:_PZ;rB:X((TMi[6b1G6Du&W*-M]EesCh9EH9$u$L*5OYp(K
U"lL]]jJ;rDI8Ve]M]5KK.]6sb79TkaCno]\#]-m:Z%Uk9M4:4#$RPb^p_BrlX,E?
U"%'&5HAHsC+x49?k3s4WZC3+5Z*Wn?%&I-s-GulF,l5RRo&NF^]m]4WBGjT&kA%L
U"boR6<LKk9]a-f#/HE<hWf#R)kWsJ4S$KUVhWlP2;_C_&R.<C'oKL+b&G3#T+G]3
U"hBbhJS;5NInV*V7IH-3RsvWQ_DjkD]?>;5C'C+uH1^f4>9Wl3y::JD_(FRyOq>b
U"OD[ROJ]f9A59Iz76'5Y9(3hV8^J2/#os^AVn(#\[]Bu^;ECNcxttOx$%]jr$q5O
U"Lb$)c.nBk3OUYK$r$HNawQHcjOmP*m1L_lA0cUGLYjo/h0I[/avs/=hxA(nOB^A
U"zN<G?ndyzB)VC.r]/6oj3>zEN:;V^ay^ORjPiKqT%[kH148G<gH*1CKcqL9gQ&'
U"_;1n5K,*NJtrr;rBl^%F_a['8]a[biDUs^srjR=Gf%dHUII<O]KxE%-&BQX)aE+
U"7YEkc(41x[\wAI#5H,he8gj%si(Oh&O;6T1);?E>%EaGhGRZPPm5)Gq:-fDo(wI
U"Z)[89%0c:eG-+2n2OhD:bUDo;z9$F_ygK;v%CZ3[%ZW\L:725;IW8nd0?sr%EHn
U"nct_p#&OOuOW4ouohP'N6J04M#8MC(Qb+c$LoYS,C&2lEc9?9P)d:s.BRDR_DdZ
U">?TpgN1_'-wQLOIGTXc2RnpR)Y[h6<<q$sL%1w*/tC]Wvh$U/],F=-VZ2>n*cr/
U"KoMMjF>l7$$b8_B#?E.).a43iqg=mq,<Bd]%NS]dn4$R8a<I^b-C9%TEU942Nc\
U"jm2wj$i0(U]J'>^uK3685LkdbsTfRlRqvF$s_.2Z/?LO5TbgFl+3Opx\O<SA57>
U"?LL)JVVu<jeiWK1?j7$bc>ja0gn11.,C)ln##cD$7Bew5]?qRk#d,#b_yU;2d$m
U"spd'Nk%4*(xDjh(xLppV:VC72B1Sl[mstH,\?KTl&VHpBs#pTX0x$rI\s[53hKK
U"YRd6FksB\<1>+'Kh)ld,4R\NN<?&^NO5VY#%CO*&5iN%v5$3uh(AcP29FJG],:y
U"kO8\Pis-1vhrP(8TY*$cAa9MBQ^q#'&Ar7Ar>Z5lKe3/Hlv/Rm'gAf[Y9.XF)N7
U"U[9.)4)NjFDZ-O<DbyQ_cW?-<Zr1A)^ATV?)b]73BUh8-c(#ld0]kV0$jSV&#X3
U"wZK2'KI1Gn[4]HRt_1ie1^nf*_L%CG]^ddMG>Oq;Z('n3+Vf-Awg5CSsO,Sl5Y+
U"2<Y<;]V6MH<lf$*+'Ut7uIF[oC*U%oR1=McZ+Onp3?'<+oY[HS$-4;UC-E4?;JZ
U"18V]rU5RKQ=I8=.5I]FsvulZqQ6EmXPppb#GM-,i'%^ZX[5kFT>(DZ]fubM0MGF
U"-9>Ld?s=?PlHa0sD^ai2zGDtmcC+Vqf]?(r(hhM::D,i^PY<&drwe(lR3g7QUZB
U"2,hW<CslS[%SSSRqngE6ujocbuBiY*3rdd8>Z<<XAv<,V^L6k#2]57cg#sKrd=<
U"?2I'AXRA+x1;djukkAPJ3iI6M=Gb?15o\A1#i#+'SQS6mEwJF*Q/U6XiX8/?e0A
U"GUA78nsXEKNBxzc''N(nwMW.Zp)5tQ'3qu?'3bmA,hx,-nZ(,%OO3\%YyDME'cP
U"dk9A8.(5P%n+kLcKjvAuLPRLZZ]lppD[PP<'uW3t_l[b:hrWItKnXxP(Mk,mk;g
U"nBJ)BR.D%<Cq)SK%ck*#VgQi^CgFJwh<C0;kz0L[)+wT>'3yh]%l<J5*(#>11D&
U"i<5Z<j/W&.#^Q%wJ%h6j(&AFkYl:[s%&JN'IHnip.=f3eP)LTXE*+Kj%>BBC'GR
U"S3Pu,Thu^>:e6aJr8hbBbRu*B;U/CSms0?X03>k=SEQ,RT'FQY,3RuNNI2R-t[/
U":zoA(o*fi7opo;_ff<hoQzkclL8Lo\xlDw;^q+Rm4duePPk&ZGEfOy*MEYYJC?;
U"_1wyB]V/[oYb-O<oK*g;Gb57Uv-o&plm,tV2pYNcKed\&X31M8_7\2_'qbbr-7=
U"#E*d]FiBdI'XBK28#5JGYkj.CRsj.V;\Ll;<2<*2'W8KY'Xs6a^Qe[)>PGSI-&e
U")3?uG[6G%g^D4-=-b;M/5Cx%0^))v6:vvgygOj9c3^ll_OEoyEY\>';]J$.EJ=l
U"O]J<i]o9:l+]r^^#[AXiObFm^WhApqIhCnt/bu2eMee3KkD\XgTbC4AQTO^%)(>
U",Nd,D*s,.I$y&(T3,E/E]d:DL:Vic>Y?3Ke?6vV>o.QF$QPX91eIRA)X$YlQQfE
U"bLCE)sTFKA0>VV)jZh]vSZN[FWjY:6#/vKvL1l5]DGnG<5SfK\1+im,*??dp/h#
U"Psv5$E'FRX].A2AE9UpdBku/d#6/#xPx$/'W$r+-BgS&mBqk*=o=3]s)dHfn+PJ
U"3b47\[s%)Bh)k=&=kTKyWTwa7kxQF)YC$wRqD\(8t%JUQ?IKQG)>$PZOo6-6a,F
U")::W=0\)h[j=#OVC2'uHX6&Yp1JW[M(na;#lu&cTc99Zw\xD2#V.8W*>m#a88RI
U"9Ks'+\:)^OLeC)Iq_(Z3K;eC&yz=9Jd,4)b(4gW&+z0?^=bsR.yLd\OzPDgdZ,F
U"P-/0PY[;)X.Vj7?=3>#zsh847,;hCTvqnWbnR5ktQo6)$lATXhTuuYq[G;KDjdQ
U"Ib2ljR$=Bej5fA;W4%h3VA*HUqmE_7;mmR+8RgDft>M\3K<=5J>/KMn\G8eNGeA
U":1uuQI8DYH_JL)a#lGG9U[(&E41,w1;ES9Bj?Y(-3+\pk;BrU)KO6ztd/jV5T2j
U"Jp.yn:#a_-+,:.KRfOf$k=pVaBi+1>.9m5G)=aoIg1ef*>I&E0?3Zpo['3(fA_7
U"&wV-7s$F;bbB/TCBEL1>_Pb5kl5(Of'Yg-_Il;/[#A]:C--Ok[D98LILt[3tv(U
U"3>AjuqtMk]cuj*eY&/W$WU[hH]f]&C+VhTlv^<fs'gA.gC;3v#,1x0-m+J;Gt.g
U";zBIW%B:f+e%,IjT>e0drImB(VMiJs_z(:Ff.Y*Bj3NiFA/N:Pi^Bgo\q2hx(2N
U"Qcn)<$4]E%:?tO3,(&K$n'a;Uq=[cfI*3]^'>eMj&n5pJA2#)YK#G$3(a$nIba9
U"\$Da0V$C(37Q&xyI716GmJ.vL;zK.PdA_(VkNuWKQQf'\OGIsN>;.yMz45%-7$R
U"?#^)E,yn8'I'BWBRB3bNKOp%^EU;,C:A]0,g]eo8J&=^LUtrOuZY:YkOpU\M113
U";M37A#h8#EZZ]B>Trb$*RirTtRNj;00&IUZYtcC_+hRTxBujj*;?AIYm&pUZcdW
U"[cFZHE]2OgQVgL25ZbS?#SD,%&wJD>eot(BO#w>T'6jtuKdn(KgeBdiT\\\=91Y
U"d=,S49n%29EQU%a'VPK)F/h:K4ICU*%/fMT%lEe:pr%M'<J)E_B6k,rRe4Us(</
U"^.DGmmuAa65ze3QhDJt)Y/#='LLUckmZS-AlX&M+(o#lw-;^&r),5bUW+h;T#=B
U"cE&&A0\j28=1#v(mvXfpeV^fNKuu5AhqO&9cE0#f>5vN/3[>es&;5%]V)$UXIDt
U"(RSGK+(Odq*PRjG[Bplie3>l[tcY%KQJ=LKcA(,fI/dorX0bfhYHQV1w&q3L8(n
U"YcE^ohqKgT][^=wBeu:cbC/]-<5CcDi6Y&Y^+lbJ6=](E7\qpXW<b5C;E=VWRT=
U"W#7U;RkmE\7'Z?m*E=jNWiac4#68iG%^9F>2Arg(%1h=D.47c%L?E$15b2'T<b\
U"m__#eF9]r92YjeJx*GcYt]S3GZG(Wb-k<+x1=bZr-5;fB<Md+G/+[_B;&#w4]:[
U"&s&e1Q0GVbkAtH/[4P,:m3#X+c?D;'6M>#fBjOa^LR1d<pRc'qr[P#M1=%/Te+,
U"-G4*gWW.rV;$O(5MF1-xxR(U)jP#8OjV/.=Z%6AU=4'1&T^nZe:DP[Xk+da*:2P
U"u(+JTrIS&E#9/96nRS,b.\ZuBS^KE_ukt3/,pZ&gQe.Lu]E'8k9F'MN=Ok&w#k-
U")iC$v8ak:pMe4JJ?65HTlqv/F(4Od\g)/lHgLR$U&'S;p&\9+8^fN]E?pK6c,e9
U"V,pe]+kUubCs%vOy+=--6KklByLA9zo\3>s_[0.McBso,<']P?Q)W<1/rAw#U]h
U"sLqAWj(9e-UAuanm#B>LH11;XQJDSF&XxQ<(fnwF%OaGFcKrH7n\:''h:q2&t7e
U"N)IH6M.i+_u#1kWR'Riu5VRM8f/t%F58[E:n+]DWEJvITp4)<<MI\hR\dd]wm&E
U"PUiWsE6(]RuvNU%=+tV(:09:yI4#(fksuf\A=0ELywh0m_b.$mds=(rG*D%,S&3
U"aFa,6/DQao2TL1[Id'QbF1lE?^e2N(8n4?7(VNT<sAE#v4Y^\iI]9E/IYj#Mq]3
U"u9^%_1#n15iJ+1)oUg/;SW2Y1ol9#&d1XK4L\4_fE,oR09Am%p?qT6YDPfL.U^/
U"K1YwsgIT4L&#k11Mkoe0geLKLv/*?RE6xI()Q)]-l#76Gmb2v.GcNaEEQPR/R4R
U"JaIKDjbB6I:cr61Z])g5Q0c)jZ(olnHR,=c7)8;we)5tg(MPv67Q=GSPBMEEM.Y
U"rOa='.)e^]\^V=s4>%M0[^6_#aj&no20<>/DMk*u#)-U9ZRlR)UC/ErZ&^0]82#
END SUB
SUB V3
U"\UEAH:(y=81hTpy^Oj/o*k/;7h3(/+d&0P,GQF_\3O3%Y#[n:)hD6vO/7j?'<i^
U"bJ]U)rZSw#A2914>]2NCGIsJiB;/7Sj#KG.KE%MC/0]wu]U.lWLQlZ/i3NfCW#&
U"E#6+<09MkI$/zd85$9'P[1JI8??%>]mV]F6poCH+g+<W34h-;$d#X:e?DPJ.%g;
U"U3Bb+Up9\ttOGRP31ImY,ut9vohA[&i#X]PS:gLwmY'Y6L?YH2c&e)HtI7jO;Ko
U"eEzsvVUSe4[h3+YSSrK$6h%ZTRWth8e9nhY%h3[#[(<J;Y*Ja5A)2#V9(TDPs\W
U"?Boo.\O>(\j8\Bl<9IHD)jnBD#?CBYJVH/7'aKn\/W\G)AY)v#5RdpMNU<D13g=
U"L4.-K;,bG;v,n%(_$eo?F<n=7fOY9%GmmC$)5sq(0(hfuItbQJ5X-$h(z.(hJq)
U"I:4f.f%^eD:l=U#69/)OH)*]e2ualcorhvo<HvZow6I/I11sBQ<Rw.+-kAT5Su+
U"Ui[4ItkG(fpltr-IQJtJPZ#gORM<AW(uVWRRcOW*Rh\9b6q*zgc9/?.k+-UXorZ
U"O49YD+6p8C_NDMXOlF6vbCWC7[iQ['D)O.2loC\kG64'6,u*rg#<_e=-ES\J5LU
U".(?3UI9G7eV^O/m+8;FcJgBWVR*F1#1--],tWx$gId1Di*Ml/%7+H1#o.kROf'Z
U"y4i%%vTsron*f6gN=UpPs_)[QD)FUr]ws6=?WFf9loCN-5MSe0ov,avv%1\?>MK
U"Y,PP3iRc8#9uO]&5&znZ;f=OX;:O=q2f/D$M<y0-DSZkqBF0NIr%)P>_[gC.$=1
U"u&=-e%%+1'F\uN?-19M5(MEM>.\?H=Z\/M3-GvHPSfs%,s's]?Y'hQe?AO.u6%c
U"A9eQ6YT/AsdOS?[Ya,4TsG%%peR':[jFKkrJsP&*6UDR&F<?^9O2>k7?<Obj3\-
U"ko#=c)UJ[OB%8fOJsw[fI4Jb#\/+,K2->AM[:.jL_xGIM*#Pt3F'jJkcY'&Ii&I
U"\WB2&doW+=0,ArUgoXB-oO'c1hb2oXoeJQ%g7$/F(Sb/$J,Q*tapAPk]\>,x]H$
U"1C4aQ8VEw/V)nq:%V:G/_B7?+.=,(9:)t^=\I1&G<i?_S&55K%]17AeYiqBBwuM
U"aFop,()Y^iHX'4jS'Yy)%p+P3:jh</+=%el+0#[Or,=ATDZ]66;\.]/Yap[Y#DJ
U"#\OXb7*2[9I5A#R]e5L\?OQgR_oEl9G\p'UEos#m49yr$n=d/Pr55^i?R9fDcmV
U"8o19DfAA?(_0ooZ27NNOkfDu,'bMmx[WC&R(:qFuo]](P[D+HTq-mh>5#/^&R4,
U"c).Tu/E5N9k64#0[''d1o'mpEa?R59=cc=i2s\R#(xeX]Je3V/Xv/:Wy:b)\+GH
U"3&EKMO*Oc7%-Yy7A&7*NM]\1p);9xOR_9GoT[+Y9xaYS)8j[k,1qh+#Jm1X),iG
U"Idfw3QCkAn$R)bmMu$FET^Jf7^t^/b*\TRVKZgTp5?_F'R#h(?'6Zpj*O9DpJ6k
U"p1Vn=&g<ppH+gdOL:+SZVG-56IuaGji<7YjVV]V,<.*>>g:)>sw\b5O3C3ARg0j
U"uNFvVP=.)>>=hWH*>ByAa^ES)X:1;YTc_H5[C225-BGsl3qAU+OeVk/ToNCUMq6
U"&K=^=tZ>k?T\sd8uZK]1F_E$Z\va>dmO-^Eh2=S9Mh;p=Yiu8wpDuFg\0uX7vw6
U"t0.dtLwsn*DfTU8yDhFTN]]-\IG4#sLnefDzbvUdVt-v'm(3s[Fo5D-LPLIE=H+
U"6.&$\AN\sM2TRGmp#n#Q;r,'WYU9B,-gRHv:QdIm:1FJi:6U)o4_eO)[5*%emWi
U"Kgu[8%.gF9ii]P#]S,g-1)(6Pa-e]?LoDHfvL?9f;Zg(pP69X,8#kqrOYMBN)qo
U"0](TEMz7Uc;km5_K4]HLlkcnxtGjlbZNRdnXF$\Z5B):/Bm9zRChWNJ#$t:'Q;F
U"9Ls(+UY][Oeds2=>ikV>cu1:8^S'\6asYvjHjNp7UWj3>,PEnA3m1uKPd7m&=H(
U"#\SM#LHaj:%iq.dE-*'fYcO7%',r=a>n'%*#rXMBG9zub;EWv'[Z)cI$$HB\$rK
U"qsReJbF>aZunS%iQl+&EiH9hdojnUNwronX7i;GNr5KxmCKo+?*%h+\5?tC4/97
U"1=g5&'WbK%+1Z?q+e'Al(dOE#;x&d:]>mLrlnn8]K=7T^Cvc)sqoeAVuqsdblt9
U"n$+5%7vq/^;O<>T7qA7Tnf0m5g?,Uvg1XReXfm)J1G]u>d:6UY[2[7$Yc\06iQd
U"]+IN4aiPij=%G;)5Z6tHndtMumjW\fXMr6Rrq-mrCWj*6V&ttc<2nr;IX5y:,=#
U"&mjPmIF_B(*H4],6\.yF&7Qjg&c'GHmc1,7Bn8=?ZIY/00&:m+%c2fq=%aS&z:Q
U"&efu7jp^Ed,=Guga8ED0\Z9vVV^4F%bN8PP*DO5p?,IG%yn]LR^Q^a9CKBQrkFx
U"nsU:05O:C>O,77'ZN:XwHPQroGfaEu;)&&[%VV.y$66Y59M'bpY.4aPY-PnZ-Ju
U"XmpNI_Tc\ErvA>iZPTVEr.'9N*9NUv^:j+11m3aN7)&s1#w*KpcQ2(.g?c='R'W
U"&?Xh4VEQ6R=>,>0=4j4O_*4RAQ__BqZq%3M'&PD^T3U1\n]RSTj4>CoDt9(tHsu
U"jxTLj\(NrZj>D&sTxnkB#<T-r7Kr\qz&8)3X-5U[:i-TgEk',0WWh$?-,&qU0m&
U"#d4;/20WgHuaBsOuVV($o0:/u+80U0p7W;#O,=?czE)*9sCI;vpg+%WA-q_>SIw
U"$0VJV93fb;XMSqWKF?_2BFY>)F6F:eV-SoO$Os6gwm:'XFB01+To#Q9*1:L,6_O
U"16Y^i+M:M#oTJA<.2[9IeiU>d7Rk9%n:_73&a#Eb^v.1=NfgoZbU?MZL/?)#.3x
U"ar7Y.=17CU4ar$3aImx=SB4q=t0jKOBWAm7Z;-]i?EP4,UlRgg*StjfggQw<VJF
U"/X?*^Hs<NjI'74n#M9HJVu#$\R*x7OHIhN?M4kw[k/T(hxuj+sJCK9*YolXUPG=
U"c&Bj8*LkS3eG4%Tv,F^q9#[l9Q_FGo,^&b'6hj,,+CF1j3<D[0y*Cadjil+dW,s
U")#g^hPoAAX1i*\dO]WaV^Z_oE1$cI7*ia[xm5[O+XDmRV6TODlkrXU3Riu3DkB;
U"^;zVtK?ZqeU#=:j6No50rm1C>e9,$YCcwv?^JO-#O2_4k2$l9kCde<1FYgeTOTH
U"#$aPiP$T%OLYWEGSW7JB=2.rCS,kCU;/ia(:cWMQXOSLM:YA0EWu[B#>M35Q/ZG
U"av'<B<Uk9FE8-qPwv[lVLQw]S>^*&sMJkj)&fm$Eh^l2%8Dy)&(YS^\=.y;d>I]
U"wAOG'Wg^u62DaceRkg)Ugb=:EJc]J$Qi?$+#B?e.3cv^>i%t5jWVTJ394S6kP)X
U"_Lb:(b%I.+?[vFM/>,aRmrv#9c9w-25Ibgk9F\DXs9qj_$_eSpw,*&/?z('.J]'
U"a3m+bDtiW4gS6]1UeSA^UpH;^1Dp1;PkwX7\svQaehp4QX#_%>1]pVMt4uuI=:8
U"4gNDvHj(n\9GSpFZ_TQhf:<AFQP6MU*8cMI_oS$JvW'g%*08$llNfU>ZdQR>_8h
U"S)$./'2j_TN6T[tQEE2E(ByXpgpI41X;(Xm;+]^lH#5e#;UWgI%W)AReRX&k#&T
U"oC1p?K%^[M'D)pAA#pt:qitxGZSG/a+9I<d=\]j&+'*9IDsE;wG]]-l>e+:aECS
U"jXCe[s<LF4LbD?CTqQ2<r+8(UsNL1xST9(r*S=SrKAgBv8GnSx/U1aEfF]99uAV
U"LF3LGdKZ%XJku/xjS2+%.OPpl+9=cvN87;#UI5<5u6_c1LyE9--jTg%**=vo3[;
U"Dsdu0f>U^p-R;^2[j:o)az7JJ4K/^%Y:<,Z\,]A)mN%Q:0z6%KaN44ioM,wKOyg
U"<9ZL[W]42gHmNQIL-4'*l7iNYvOZ7WeX0h8TF3U42ERoU$vXT$mWB?IJ0&U'/7?
U"IH]-l%#ZzNs,o-tUESgIbIXY/%Bd+1_QUDTA#W+,W-/Sk7#W4]/DIhtD/]OK%Ja
U"-?Ag++8'kmBtANm89tmj9>C=*kK-)t,PvV:I*c8H7w%A)Z0+GCAPmMZ8D[VSRKe
U"Ad_Px:'J-wf(K6GJ_Zm89HpH;LIggZ2f/9CrVGY6f]j)J>Lns5D7x/*opYELU5x
U"hYg#KB^^Iz1(QJB#<[eKZ21u*qQ:t2=7(csA8SHn:eV$xKyB(YtWQGN&ZNKc*t]
U"9\A]Q+O+RHf0Ih0KS;fKa4ldPx+F'luWYB18xO<0HrY\q]j9aGn<vZ+&<9gpbX/
U"F(P6Gi3q;;^O0*B=._V<Tk#H).D8ho5B(4V$jq7aADctbx[qDj,IMr\TUf+QkK?
U"+:H&3eQ>i*rVM;AvUu<IhYgp+#C,bgUU\(_U5o5Tf*0n6eYe<.T_P#DORcrq/iM
U"P.r)]RHUS7pvF%7;Cde'JkzlQ#7q2g(n$hQBmA9.OG7XJ1C1lvM?HcBjqGyMd_-
U":-t*-K>B%7+i24u?pYJEF'P?k+pFjXvLA=KuWJd0yqo1pSbf%p4F3ko0OrrV;17
U"F?SlJqPzwk0-<\L;V?_(<Ec;#YGmb2p)D0^R.MNV-^\d+Vm%t86k9*#D#70kXKU
U"9p*(0W5)Q%n\g--(;qOjL#KO$^]=15WIeNoT2)eUu5J;d*D2/Iz_+j2jX]0&a]F
U"Ag*:k>DUgEXN=>a&>,pRnP/YWS#if3GQNqa2N,Bg59y4YJ\?k0BA:jTA\tuY.C+
U"L-d$C>A$=8*CGq>ne5OEE>(4w<F8)\L(n\]sPeI%;8QJ)k%6(w.e?Hd;:>+tGHT
U"#q0Nx1g?UG)7#;BE30k7%vkD]>\FtX:-[9yQ]W'[VwjB/ySDpzOUlY\?KePW3U8
U"QQ.8FWxdl]RKv[V,cJ;Dgp8w>1O&\ZToNA[ypfnXOdR\:^BZ[muk+$.$3eS0sU*
U"f%yNHv.Q:E*)48KL4\0rEY*?0KABB]16/%Iw;FYfaX[S+[>Nu9qu2J;MNKE$u4_
U"Jw,90=c:%eA9bS7eE*Y-?V73E#kJli,=(,yt$1Ljz1IK03=22c02v*3O.jF7r8*
U"PJq)(D2<x)4*b02]%7WHNlHK,*kvE_.x:RO;Qi>>Y2/[y_aF;>$4Fj1EZz)\LzZ
U"&nCa[hc+6;.^ZE+-NJfg.yL].C.6h[EPts%]uDtDO.t,D.qA'w<AL=Jg5l17mH?
U"((RwZ(:h:),Utcbw[C:;F#>HkXOh.WJV]S3[SCE^EZS]pS_+vJZ#%)9JcYMms:9
U"(1F)nd'i<$Q[Z1$=1RUU$J5hKd41h1oh)7u;G#&Z:$fe&V<*636+l'g,_C#>GFj
U"N7#m:[6B'45_8a7Y6O]I'yUu,b'&a-*9&ta2GBXI2c_1#Amabc_j3+-#-.?Z5,l
U"0hg+gUq_-gg[*#A:oW;Pm[0IiM;'8T*5Jpmu+,;?a*/Qb0JQdElXo=D2?w3,Nqe
U"<x-[p^6Mh'Ee#R2Vc*2Dyk1_R5i/70XEI(M*;]hj?2;BXR-SuM9S(:;TQAuhqkB
U"8TC<f<3%;Mt[A4Z+Ffti(:eJf290jQ&QElT+X^$$M<#godyN^mY>&Fo1p]564%L
U"I]t*p0n:*:mu&eNET[4.W6RmXF)7FP'GJPgKlSiRa4IlEvT?ynD[O]eddAz.xF$
U"nt%fQx?hF$v/wRsPLQK.Z>LfMLGXE4ysC?s^ai%EA81A+b3sir\Bn.W?tV5pHMI
U"Efzxgl-fwd?$tRr%QjQj)&n;gOn-8wt8ld_%A/S9UU$?=QLJbQ)2&,3Gf_E(S&4
U"$PCp,+KaT]=LPMbaC-27yB]23ONJdOPFZC5MXqsOh=$^O%wQaUM?im=t'Wpw#4f
U"XZswewSLL0j>Ie<QZb5X#H2+9XEh81Z0K48bfw4H;bjd=KXpCXDYco&82f_)$hH
U"J.nZzdYgTT0Tn8IJo[3S_%5?7nSL1-RdjBITfwqlQRC#r'7?7vdQ+'Mb[]qr#$K
U"E$bs3-lI\7AspV?eKX:4o+,1+F3J]^x7Xh6E(3N$+JZ0c.,O:Y^*REfc4P]gfVk
U"pnmp#1]_WlaXJhmUE1pp5A5_lqbfgY=CHKUb2sb56PNV'Zb.Pv?)?fZOyP&BrpO
U"k3jLnZveYJMj%.-a=6q*x+Qmfx\*o$]Cb-j(j61:SAk_%v%:(brFb;2lY^X''pg
U"EsnA0D(iAkq]G3Mm.O%+9p/$)_3\]E<0wmafBlNTbT1]kV]]clk9zoBJdq[,VDX
U"YrrP(lNvglB4(OqTP3tIaF/BDQ$>nspmf=HNHbh8':'4pUu#tKQMrsJShW=oDcx
U"2:nPJ<?cr<Ew(lC]$/8BM?4,Tm1:LA;^N^Ep(Z[BV##F2ZXA0\CAX>^6Gd&zlaZ
U"F[pY*lNL]$qD]:&DwNYcYL'q2;JyhJ(-NSvfXNSZa)1,6su8rw%b7dUZp:_;?HC
U"uD:xJ5po.pq'Os]XufWbTScwhRoul&]X,Ev4u%p()9%%'%-L%6#mXFr<N,N?#%%
U"%oP%%%.%%%%yht#qqS&Lf%LiD8&x(?P'dB3\KGd,ml4Q7D*bQ%pMj6&89v52$-I
U"'JP)a_=5K0$;JvhhC-p._EIV%p&>*6*#j9VCS1xwd?,OW.Awzc&V\3HHWHJW:%f
U"WQlP\CL?ih-9MG>8:t:9uNVs]$wht>8vojdYnxm,YqstnXwp'0_w2?$xukEm37V
U"1)nHa/IbnN5s#b][q?b7GORi^eZ$FbipsgXr8XG2iGLzsKO0.04R$?5(^U/R_cB
U"tOZ_lHLMR[l2YLtOcb?gA^ZTm9Vs#$G^5Nt_eT8Xr\BYPkZd]<Q7'jRI4id>nCY
U"0Iu4?100z,vK^[O47l#hO$2HcvED+n]X#JrC3HiZa,06uCdr^;E8sDRdRVEE%M>
U">e.Y'8tl5woEhKcglpo*NW%imjox]lU>T%+gp?V#2tJ'^THP>TNtn*lp6XH.C/K
U"KiTnn3X&%STRQu6xmpuXv]Xox#*8ExMt0g=.)TrSJp_Wh.j9ulNTfnv0lL[(H(_
U"0:S)VR$L.aA+lRJkcw&=CTaHa1WY:jIWy4Dm2S8UZxupNP4;wz.R;xltvQ>PhMH
U"(c6OXNTZ-q8*n:txvc;F1<lUT_ifr^E^r4\20&kpvV^^r$:fjgv)/$J<Sg^^B*n
U"-\*oNncRbWH>_nQLGn^U$NwAtuMukZdP9BB0N$aV?n8h#=<2n_&qGLW+:dzmPm.
U"-dkz6xu=U_tZ(8YGNVXa8BlX/$OSuK2QiUnXk]Eonmsft#^:6ZxqvWpd]Ol\GDn
U"vRL6vc=)ugtNWLHwr^/y74x?n$H$?5Y;H)24vUKD.52IZNoYgiup&Dj&7Lszgts
U"DD<*C;Bn*]nmQ./H8(Br:)^89(BDJV9r6N^ZmjAyOkHnvsYJ=LY:(p-=Rn1$]&B
U"3MsYmbD8fTi*iQmJv;Pw7]b8x^\J^1xx,N%lm*DN=<C8HNw.kKD*qoDcDUNU+aY
U"]$:Ic.wdX\BX4*+t6Ik*<FTiSuXr%bfHd4u11-aNp1D&-xl8VPXpzgG]w<.-7<d
U"Oc&TyPeB9ceXgG9;?iSv?2pcf0P%;=$WQ%pJ>wf'soE4Bhcvnh]5T1sdV2Wk)%W
U"[;oYLRj;?AuvVh>UCQu9M,NsFpIqZgjJvUt>O6N#G^MQEsmz\FDzNrK'gnZH8]S
U"8GQ%XUT.qF]gCe<PaHoR?Vo$<1$nF(>vtppgdNm#<'.1eio%,I+A,TWo&PqY4'O
U"n;pqGqrclDS$UXw+1LQ%ME\9]ulU2qaz8rxte<VB$cCw,()kG'Mq?4DfQq1ci,,
U"jMMk438j?HclgbNDxBnu:>/V/LPrb8h<gZ#\hZT2d?PsND5p[nqP)8f2DJV_JA;
U"iaQZ/OiZ,U^JvtnI]dS''rMLs-kMj1eff#sfattGKDtZF)^(nEtdD;JcSaTk\FN
U"1?(a>ibtL93>,kLpI*Y7fLvjhQ5i)JmbRi3G$=sq96JQo_ZH8JHJ[(]CJJf.DQH
U"QiLjRc<$hA].Yp(<N5Fnq[OG1]%)wgo.''*t6;8xob$/^G&sixgtmRKUxNj1Rk*
U"1.>=>RJA2rDC_^lBor60,mc:&AW[mDHrF4vq?,J>UA4/Si=Z-^?-,[47pH^d$LV
U"b:(EuppYYko#J%*2GVb?w[HUs+84AOI\q06\]sUueY=hbGg>gh6UT^BV40ZI1p>
U"Aqmk5kdd$PQ.4s5oZ<;;=tZ-t)*(X)2$v3dfE]S;eAg6;eAELQDd31etKv[A)>)
U"Qpi6U3kJS']=Rasor&C#*T.J\$*JJfs]o-+_d^.>\lq.o.FAnx-5Ju,;;w=9p6d
U"uRl/L898<GbrYQL#^]$.VBrp3Q5'ZWO$RihhhJMks(M))'%6LCJeuNV#9;;dX>3
U"ClZ))#91<%.0EcKlBgi'garV^D(AuqrSC\xA+5;tCE&*^.1$cXp?[:vW<Hw]_^%
U"c+c'kInxZgfE%;?<l]Dpd]Jv6_d&i%Dd??NQg(&AN43:Lc=JIjo(NuC]r[MHu1_
U"ML%f^]%c+^-Lcu*tP$Zv_?^iv41x:<WsQEIktEn\#6dZ#*tZ=?3$W4-pD>1Z&JQ
U"$T*$1m;WCU(7Mci7LvqP<o\-ZK/9E&bD&0uG?et9t]J-J[exKRZ1XZT6-s#N04F
U"%R0Cc%34tE$fLA-$eUSpA%:CM\s348,\:h,XaZZ&tr2ei'iL=^6cw..r/P>P+f$
U"oDl,[^,ftXvjdPsb<Z<l>oiIe0#q_eQuGh\B-o[JG.(pfSvb^P1%>[[Mp,f'<#G
U"fYA#^v:)/qmTp#ut<lq%k470,kNG6?.iK4S318VYB%MFQu'pEhGH8$*qG-Oqj5n
U"u='lKJR:H[06tj#lu=\b\:P?\_+=7'\L,4c6.4Y:$u#SF:7p6EGL]]V>b(]p*gT
U"]&$Hi,4fi:*.HOP5HF1Ag3K\UsL4ra&:\6?j#WAGE,qud_&\T\\(][da,2Z97:z
U"28*M/)MU6vu<fh'*vvqIdD-OL1\Uf3DP><52RB5+;^^#SD,9^%2.a,F'%666;PV
U"oH%eJMHZ':cw#KJG16na)igdwfo&]+?1ES8]dN7lzW,WiCR.J<O4iQzMI*i0cdN
U"LoLBbC)2pA%HGa<DnZ6*(k6fdw+u_SmtHI->n4S5V-)hS=i=<HfJ6>8:D0DQ-6L
U"U%A6USLtLwZBA%j)$IMJLm'wX<EZI)v%LGG_sG'5l?RT9kS*l4P2,Jf-ne3pBMm
U"c,]QYg8$rN/QJsf'cak7HBvtA2ramMgnc0am#<8iXJH6R^iR7QG[K,rvM_5qvWC
U"m6v3Iqba>B01:#oDqCMcqCSNWp)Y%TgUCGaBR^a404_aEZbrZpC4X1$0O;AQbhL
U"G(-alGHqb$<<]AmQkQ:Z0B-\ZFKINo8.s.2O.k\=1NiZU'J^;YV6Hd*7UcV^Ru*
U"r;?4$n*09t'$/A2msQGT_&Z._hWT%%G,X<)[FHH*,V3qW[]GPf&(omt27f<'<(t
U"0iAYZEeuH%%EFR*NSSd=[3=+HJVwGWc4mG/^)w-AC&=E9<LqjQ>pH:_DM$&yiZj
U"4)i=4$\GsHL:Cqn1q,VDOXVd\;5VIcacWdGHrXO&NFG31vg_YoIr[i9P*S#u5*G
U"'QrD^>Oq_[k5tzw*32d=FTed7X(<J\rew3F2Rw[\J/ahF62lH2M'?Gq/qCz4R3c
U"5?IljHF2rqa]_JZv%E>R\%%:HHOROpBw'c_-Vp7D.gNY/4k8C>%KF9o,?tD.u(:
U"MQ#2$7_Z)/W[tj_l$Mo*YI\]o.kI.s'd0Tm,,Hqi0q_knwMdG)]*u+/[,P?Mcbl
U"h;g:Q]C]'eyUUGXTAd(5eCkx8FoYN\VP1cDgDiD^grx62crmiv.=uJ'qY?bopJd
U"r+jdFCZ.l-Gwas5KjvafLb5mQk/oKpb\LXXJJNl^4.f((mP](GEGAK_ZJ.ph4C4
U"8Ydp(CR\sL:3gUNQpgQMc3[[mSdo(t>)ppxDr,0j0lCsNRH3H%E6T$r7OuCKQiv
U"lY>kFvr;=5[bO782/-Z>cfYZwBd]aXm[0:*15-ia=zTq6Jf\t;R8kg1Cm+(dYAr
U"8q*_L<I&?]de:1A>hdMNHFUyA/ywZ##diII:YTHu^WvvM4lG02Nc$CpBlAFVY]_
U"5Ri\C(q<ztX0J-]xY^-9_XSx6g2ggKP#dKK6&u;2)'Ux&m6DVgqa.oKiAC&YW#x
U"68B4*q1Spd'?#,PWcbeb8R<6>YJEHi-Eu8?EYt[K*;(.'F,c^i'(HCAXV(E%he/
U"]F5-%9S9,ure$[D#ahsMJ/&;:llky,,>ZwqEErLrT4b+ps4q3,A)VX9o^z==O7$
U"4<jg.*cWmawQ7bnoYfiHl[JoZuoAF+/sV;NHnQ)8$4-X:RtO$kRegP\yFHI[0-(
U"u[nf=(I10A-$0%_H9m8lXAr7MT%8$7P5Qh\17mN7jY8D+C,W+_NFx6B7<$MQP9/
U"n-D^B6KMvY28Mgc$64cU#\Z,wuZV[&oe16O0l/G/0jMAU\cmDVjdJw;offyZLP4
U":;bZLwBXu*j2r'7[jxb1Ed2IC8bs3eiN6Tq,-GU?qeP]N#Qd9MTi+,Eo'pO-NuG
U"6miVeMA.?#n8eBDjE-jBrnIXgk8]%(%%VMzgRZPp=;V][Tqrqv5Vr+&pOYxjq%N
U"YUah#cuYF/JVkNu&[0g<W5qlBjPF6h;cYDx7*?=fjqq<Mqiu70&Ds\bTsq8#J\N
U"3#5]IJxbRH^N)YD[#Ze\8A?oaTGr3Sede=oGs5tu)nHdY>hfHq,lo/[Cd$v$CNJ
U".IqSG7hh-)UlTTJg>nRt\6W8NduZjE'01y)H-4*Wdibf8^$]I.SWc=>UN/FNXQ7
U"7sYE;;mXi4leu-$(mNON^'[t9XQqQ?(bE9XSb)S\rr#;N-vL5x^5TY=SizCI,hQ
U"qa)>Eugg[mB_t6:644jbh>U</mS8$s&^6r'&<PLLOPg9(',y$a[cYaslm>kH*V=
U"W[#$LR+qhBvV4djH=QpYA;ZevM'IeoM1q;;kV0QDGEDhjU(aLV?X0TE:HOcxY]P
U"PsvLp0>_mtU7*YY/tFjl0dBLr7X.nW.vL2nbxMtp4==vs#0lB.YF\QrglSR,H2a
U"dadTd1Z76lIN$.'Cim=[QlLY%??f11,hX#NvsHgs&VSj0bX8[[YAFgF>jg5miN6
U"in)tM35sp7C,\p0b7:jC-h?twAudgl=uVgGYG?ubo;1S,f'puk^GJp\6EbNI-Rq
U"uD\TWZWiS4dqyz)VrwLx[jN4(?x9F$?P(pa38FL#-+iEl]aeJo<>fTd'JdYVZ-7
U"gCu::io8EcQQN7Nzait2'^$oE#0DR'urH.p.du.76vDi/irjW0Cp:2JUH3<<\Zs
U"^0[\i\BZ>-v(<wZ\,O.i8;\H5HvI?k\(5RHU,TW1BD5a-:foZQev<H_GjWWiq/3
U"<J(AnzFW)ens^isn][Obw<JeR_LB+MTXXP?10lP=eL/j3WoSW3UJ\W/*4HcN/jB
U"lD0-ijh[FW0:3k8%nvfYkWEkTBt&CJZ]\,7d^g'\?UrBqK+Ks3W\#Y?x';_E;.'
U"J=gmhIqot2M3#BBubrK_'CWSs43cg\nNj_\N_epeW'tF.:uBl.i^VT;u;%Mm;qQ
U"el8^0lD+JWqm%mommtGM7uqa/3Xupm^pBE^u-7z':HqhvHR29bsKntIUHQB2l_2
U"afMPsic&,H+hjW>4X)jFK*b*k&,)$P.5'l6k(;).l#:#nONVfdiAYS3b88qaqE'
U"nWfVR^%w880--v#]VRrY<>L3PN5p$4IgKeeZg#dqk;;#PUdJJ$/rZxhS*Q'+SN8
U"f'(/FEXIM]uD1.:Yb-\#k_BEZ#_n9(]MBWV7c<ekIQ;rw=JS5[+yyJQm+Eiincs
U"u#_?FVa1+zl^jlgunnj.lnn8if;>A3GV6xo5'btc%moorFoC#.BHpoU^fxU%bPL
U"Z]V=pP#mir]tjnB6%KG$[1%7?//XWT#H2gk[]M7HDD?RBBrNCE+EBZP1ZMrBLLh
U"#CH6ohFehnfz]Um$p5T9r1)_,1)333sen2EW#_4E_PVoc&&2%Z&FnCn]R%&'RPx
U"wucOO]KRNOCZwSSiNH-eeRgEa'u<jS]koDR^B+XPt)GYuBQ-#/V(SB370/Z.DFJ
U"xn0%oo>r,qg)D:/*TX+]YDV/zCu'Hgue)TpxAcoE/W$q5/6amI<VD9%<SlP/$=y
U"<7BpCZRf2JEp=ct)L9*UiP*MpA[_Kt\ci<BdY+6X,;hEYKqLuU#l;;8h/tuKo01
U"IC-lhfULb\D^2qj'3m&Y<e?KK;uINAbh&^0j7ctq7Gu;qqenapB[rk(-KJ1?fk\
U"lCGlav_(5;7j,$I;<6UX6b[Ffa1TbOwHgRLRCE\_PMCYLTKOr?a^$6KN($JE7.i
U"UszFuu8WkQ$P1_dP_u2cA8WQaQ;_i$g,Cbm>S_lo=AX'/rr<BL,V,a;aDk[E4Oq
U",B;$oChDLSJghMh(xkGQg3E(.7WpLa2)\'%/yq'MXr=UL3^h:]CF1Beb3c\ljM2
U"+9P1f[lczXU/m788Oh&y-,,-/,)6e>[*TRvL6b.kl<Y&_.a_t5NflQ'&9)bx[)j
U"e'j<-^ZD\dzVko.S0p7:#.1FP%w5qe$'Ax=D3M6&%XAlxFCu%eee+/%N$,j]_:F
U"Bvhl2EtoIDjo'K##aK<1xD0sPR2J9U71YFSG+ubs)_S#DO1zzuLJJd6bpiJ24^#
U"/%DdK0XIVw#B03NVnQ;pt6v[kLB+Sd/=y;gA?&DBFd>k/dQpKxdl2>cC2kKeiTf
U"La4Pf$S7]Mse?p,CK+A+e2xhml.N#^seU4/6-.BCs>wu&1S&?BHFBXDDFda$?%g
END SUB
SUB V4
U"u*g;5-5Ksu73_kE;d;H=b]0hCoCHI[(gDCtE<yW]>\RIwRgli[^VJF<T$XsQqg$
U";u0uGUg\Um/l1>%+#FY^hYDILcV]/Od8MowM/O9Y#^2]ayk(l\**[*jq2nJ9#>:
U"NoO9s9Mjc#0E9iU>7Sp6JZ=W&7p?N$N%T)kH6q[f;gdK0dZI&D)=6sl3%wMp*J(
U"*O>o4K>p'6B/zIh+&#zhT7Ge3k:kk5GicWU;3eApk;,(J8nQwWI+UGe0?.eB8P=
U"#_-EQXap%?Q(u-fk14g4Hw9lAMbqm3Mn/9Koizo':/mILtinScUdmA_IU8V77A4
U".6UZ.Jw+8#LVL7wu4&NM)++Gz*T,hfk+;UkH++/us-.04#,,,JjafI*eo)VUKJN
U"ue]iii#Cj)bR;vG3,'bQKV:N8aA7AY/3g3G;^et]C2,JIRTT&7CPW.t2cNRUcau
U"*::3MA/cXPSMy9^O\yGL98)QbH[O29*3'[)OF+DCxzyw2oc+24?Mw5hZi8^fFyY
U"EmbUIxp8%.%&XNiRQGwM&Pf)yk5OE9/,%.Kt5N8tC/eZw2e.VAC0D^W06(4CO<2
U"_DO.T<qBMLL=&(D]nF#gZKBjLJh^*]Y5QtdB_e/B>s:mzQIOYz)sY;)x6*<&wY>
U"%af_iAD::+,T6PI)G;oSX(Qb+tT:fjK1Q=^'47wTJTxvmD[FIfNT9:8)s%zZ)?H
U"2ydnl^TQfgEw.:QA:\ojN,&'vJKi%y9/-2Uf1d7Uq)o-3QaBRI7XpS?o[&/gw58
U"t0uDI)Iaq*NYwm1Iu]iucaffS%X:W9X+&k(.XQx$\*[iY>6Oep+a-0a#^8dXZ?W
U"m[C.,.Tne3[);9Z3Y5hg=,6\JtuPRVf?-kjnGR-#qhs&&PqB)jSJ8Uwt9m_Up,2
U"BZRU3+g%4Y/iMQNMe=M%DDZ8Zh]wEiLZdnyWjB'FgiKD_R)*G60xzQY*9Q*M2;G
U"YrT>w;xpDVM#*FF)jx*ON&gpm#qKx+1SflrGUIuZC(CGYXuU=8>5ke38-RMrn,1
U"%<KNJt$3BCH<Do,S&Ei:&C)E&<FQ)j%p/:HSS&%RzM2eX89=?6'[pmrI]r9V3O0
U"'Sdgq>9dcF1KKsiMlpdre;0jHdc_?\;?c4E']F&R$$S*d$_kOA][^*e=XOe(kYm
U"kPpI'KH*&B/%jM9o&reQjc%&ACfpM)S5#EI;5T;a]kW',DGe0$'_\Kz4E<qzyf.
U"_l.[jFeMgK1;]i:,$<:mtCrBny%./=Y8zdw&f</oxRU.9+6-6&-Po[:P1/Ox>s/
U"L%ZO%,.XM&T&sb?-SN1?B(C,D--.^16F)3nT&K&t[2l0s=+iP7u.&&F-%^X?%%W
U"$=+==2q5j7X*eT+X'%Rm0O/pftn&84O_A-h(*A<2[A(]sf?eT3V<*'8'J/.qrNK
U"E3VUlOe?a3mEVzXQY+7B-K&kKCB_%.:4=^#Q?*n7k8A2I;,P,USeL7JCz:zIrSc
U"j5*&AFJ\e08&<Zn)aiLQOET*F%.z8\3#fv$P>(:96YxjOsD91)8G%Th'MQu5p*O
U"U0+b[H3S)g+bmfZ[rSVo((3C'(1-%F0Qj.Wq<c=2-TY%RRo[nr>u/E2;6j?J=\0
U".Z;j&)dB#tO6;le[DVPYCipjtpW%A#jW/7%[R_y?^(\-^Y/1Lq4YbsrfEKxGG59
U"Uxpyx*SFsJOgF)eKp3;sapWqG#fOm%%z*RoymE=+;b/\Nd?/\;KF.r;zvPvKOp*
U"N7+3CP]f>u.A1%[5/8IUq)2_JD+j^Qb%6'p11;HL:xCI2l)\N\sA[4q(sIddeN/
U",ki]gG#7iO%Y:j;s?_,HW)jtMV4\DSr<Xl>fAP#x(gQI\JA1[?D\9iK]RY&QgIV
U"=8%^n4W*.9Zi1GI/Akk3Kyn++6kKH$k9w&+Oz=A\w>yR\(-g.kJ9/6:ZAs/:[yV
U"^gVoQ9=X9gpL4lEm)A*RD[q-Ynxq)>\SA&%1);_NJ1(iT51M;[Gwj+Q.>9A5tp[
U"+r)1Mu8Sxf'e6FOO-7(6%f<Q;'%Zu/QW%;<qKebkp<>SU_E.oqx\%fy/&tfD$j1
U"I9dA4VYan\vk62%qO:&#HlQ&J2GM?&\Le9n9R)bH.iXOPaSCU%fJ7ENY^t/P[Jw
U"%Q;(S%5>M9Z./3SLqex9XL)3kNbT#<i]qG)N\7yO)5=M:10?Ege;Wo3uLLP5hp&
U"$iiab'-U*D/u5<*+i8CFgFS#/hIKIC<yKhP+PAB=76.k4IW2D+pfV%MY_^efP$d
U"b#,k?R:G)_cl1a2#/OwK[:Z=qa/iJ=(y)RG?[j2)IW:#WP-&cWF)Y9P7m1waM&/
U"g)5zPz:C?L5\7g'Gh_/xx[/zamy%&a=G4'8NCmtM_jM__*vUzW9Vhq&xmIOqTpL
U"'H7O:F1a;#Pf1U0A6?DS,5irb7]Gw7>w2')dY52-;$06Sls&cBB9_lLwP9QR#wa
U"a)Ov5c%fLg5git%:(>_Ii$1)1oc:pe&.%3PiX;SO0/w'$m69pfu.YM[h#Y?iIAE
U"*9K'w%16/U)<-mq65%IeEcyXycLP)%R/%dGyZB'9xQ:#.)WT&'MzMUhB2')?Ym6
U"/)hSg%F9i7'2w:9MdAX+(hcO9Rs*YR.'LyV92A=7(Ht9A[H,*q(=pjMe_GiLQdY
U"vWK^O\%I(4$SC3e567Eg.;$e2?.('kTiLUt)rI&2ueDZSgh(=7O2IOzO^.lFP+]
U"ilJq2Ur?%S_(0)>TC^M(+DZ+i0#c1%BE(D&s7hf&imI1#Gz)L1ox'G(hW7iNCWG
U"?+%7Ql(.jqMDaQNYYPhx8<?>xD%up()%9%'%%-%%%#m?DU&)OF*%%%[*%%%.%#%
U"%y%%ttuS/&f%BD](x).,%TnVvlb2ZtWb3Aurq+0[;z[C'=v$L-ww0R6jZA.vS06
U"+)RieC;$rSL%YQO&q-7&Gd=mc3=4qV]JV_FEKnwuGB_amEhKBwDuuDMkQ:Ic]3D
U"(IQAf./XUQ&+eMROvWX*)n80Yc-6nT^Uq'(Zv't*Jz/DtWh_1RP5nlb65?727ar
U"F=(3'nGkt.pr(f$Wl$pAYCG)eJ%pOI>o3]9HT(S<H^o[jh,9wFE7>-%vwyy]s<7
U"v%99>at$m4lYzdHnLsE2-hbCWqts/+m1f#(Ja7Nr\Yzfw'usY]e-mqEBb*-MQX9
U"U\i'8OO6^Rly'lK_^hLBn.+SkB7[YGm;MX1u:nl8xEt&=N7\RM[rbQR,zjhjZbV
U"SwlDru-_Eks0DYa>-'?BiFkMw-ohdD*,j0+eMTy3HiGDHjJ2dAIAon+PLrILf/<
U"#AYhqsYZ;5uaFl&I]Z?67JtKwjv/j<ZkBJ%;-PAx=M)(<,hJ50uAeQLhqE5ep=e
U"Ly)iGokVP=$^X_65AlDDtK+MmD?w)0%'XBbcGk,qf.8XMkuL)n%L+%4U8s+X0Af
U"zHb0LV-4ds^%B(TR+Q'kvJSk.;gPl)l3]o7i\DrxPY_K.$I^bNn;XHMuRtX5uhp
U"RpipI](7_+nIV^/)#+:?Pg8ZF%fn;.MQ0Nbg<dp*H>n^IPR5kbR\H/z><zj*pYY
U"UB_GfI_]IfU3hqS?sk[oWMOKj9EC8r&Iz%[F,:%ytT]:4A&&bzH6/?P##[Q6TGc
U"eV9nE/3KJg$GWKn7N&LDXf1]GDH=jgV^WvC10=??Oyl9Tpbuid<vj24_Idu*>$B
U"SG$x\O;ix>,NMdcgVm>Xak7U6kkUfuvSwjNWY5oubZ<_^FBYlmK_F='M[7J-Wmv
U"[m_*-Oep&,iZ^TVODaQg$UJmF&UTk5]f3kaE_jI>.-l3v=_UMJ.FVt1ZoEn1;*Z
U"H:2M,^2h&%76P&SfYVl%*&TRc*.lZ90&S[Bga+q]sm>QPer3mar,5s80*S\#qpu
U"GDUex'(H#[X3K,/#X7T,JK6cD?N/)Al*)UUlQCA?J2;I2E<oJmf)v:CY#C.CguW
U"xhA%RL&XKb=0227Lf(frtQ?8W+2a8ax*SCeQPSfj+#FN/*CXKP]lt7_l]c3+#<6
U"-('M^-cQ5g^TNmTM;p#,)c&tV1PV[Vl[&])D/kh#V8me[)Hk)YV\X*+D<82*B<#
U"mW,s;Q^Se\Z&3wKH%cs<UEfax(roo/(J.\>5-L]3B<=l+n.>AZx7HV(Q/?niieS
U"lkWTkUBAF,8B?;GU4kh+b3A=<_ZIS0L2(47+__Frd8,G_$^\rgGWT#E3s1(NB3'
U"b%^=;b]ENB=78)x.?51Ym&6>]M4$v;SL(,%;?;Vot/FlSF9,QYf:kT%P1Z[YSu.
U"ip4j<Oi.3o4y$<+D-.]k$r_^YKQM[HT/BR1sxF+f_a/,,g2MoMD7LY0_;ic62u3
U"j4Pa'CX+&un5QcA%*9bGB5jPTIr0ylr:6SO^A;t04EdBJ+wiQ]5JZ#lHj\%$R[v
U"6k,emjqZf-[Cj7n8D5zrK5N8P$4XZcq5Y#5iOS+h:%,q7H3a/**]3fXa=G3tr%y
U"HzI7?:)liQ1_:C(3bi[CBvLdcrcoR(G+PjW:Q?nJZ6O\$V;<]QN<+JwYaCJWpr[
U"F8mi/)q^HL:0cx&%up&'%9%9%%'%-%2kzWH&fX.H&/=%%(['%%%1%%%%%%%%%&%
U"E%%%%%%%%%xy%fwkn%wjSg%fxup%&'9%%9%'%R-%g%n;GH_'77P,.%%O0%%%.%%
U"%%%%%%%%%%E%%%&Y=%%%ygzr%uSxr%uup&%'9%9%%'%-O%g%;^GQMs)M_0%+%u2
U"%%%0%%%%%%%%%%%E[%%%U%D%%y.ky&f%slSx%ruup%&'9%%9%'%R-%$L%XE:D+\
U"L&\I%%U-%%%0%%%%%%%%%%%%E%%%&dP%%(j'uq%tijS/&f%u%p&'9%%9%'#%-%6
U"_#mFri<NN?%#%%o%P%%.%%%%%%%%%%%%E%%4%81%%%yht#qqS&(f%up%&'9%%9%
U"'%%-%%%#m?DU&)OF*%%%[*%%%.%%%%%%%%%%%%E%%%*%M%%(y%tt.uS&f&%up*%
U"+%%%%%+%+%%v&%4%mR%%%%%
END SUB
V2
V3
V4
CLOSE:IF S=138AND 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
