'===========================================================================
' Subject: CALCULATE PRIME FACTORS OF NUM     Date: 07-19-99 (20:01)       
'  Author: David J. Smith                     Code: QB, QBasic, PDS        
'  Origin: djsmith@mwci.net                 Packet: ALGOR.ABC
'===========================================================================
' Calculate prime factors of a number
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PRIMES.ZIP",4^6:Z&=29446:?STRING$(50,177);
U"%up()%9%%%#-%XU9lK4q*5l^RI%%EL%%%/%%%%uw%nrjx%SifyObV,e-.%3)lYt
U">&eFS*<HhqlESsCs+Q-Nq1-9e5Mj8XNxuN8xsu8x_8rxm$tltomluxwpXZtvxMM
U"'.HLt4f<otd.hxYM's]P\(;Kutl<rYdF(;bL1cUVvmXximF9vh4FnttkVpeh%=h
U"x3GPE[<vcnxO[GHv$o6k%MBClrC$jxebJeHek$w\A>v_prX(Ggxorb+8gbjBmQM
U"u]BoY-wGLxE9MY&Su<NcW*voK_[O*bcotLA#z4nB_$mUil'w(H8BnKdm)v8y_vu
U"4lAE_qql_0?L0frh65B3om-RKW2vKEMS;v>WT$-lkiTx-Z&lX8eM$\gVv2txr-n
U"ss)8MdrEfHkv_eMOa;vxvYi.nuoRxpXH,S$>ClJ?8h%]rBtBw$,]MKr4B^3ko#Y
U"8hArupeHghxCkon]HSuP4,^%5kFHCQl-Amb%GxN1a^1CQr_x4jCr5m*$W[tbV&x
U":d_4/69RA&_+z&\_AE[le2D9(lhoDi38]Qda'D:baunfL/;LySl_oLOQo$VgLi/
U"Li.mtztmolcV-7tRty0)tZ[pz]kw>q68Lux8-Ts[^J\8.9r<arw2T#ABN.AM.N^
U"a;xw8YnBvXo]lq5CNHxaNSmmaZMoEcOQTknuSWu_t-8+MYbX>bQX=&4b]_lpXkG
U"06.$xaD_(M+Xa[xlGI\7%96'AhDTAxbVIodcn5CSjDi<b.<Ux$)EPMZ8,\ZaR$K
U"0md.Q:L'Ptek-0,t6R7?/-0RiTcvN,<*BNBRqm;smgKL?WWkdC(b_J6ce$XLd\>
U"jtaMULHWuWmouY7fg^i.A;b.#X?KcjWFzRW*ZeOiN3G[;h)l$UdM^6uU7>^l0)H
U"5pn_I/kGI>^6miG[;rV\KTgK<mgniBbnAZ,KWdg?%m>AYIP<_+HGrq$KTMh_IEc
U"oB4^R,8\Skj[xvXVEmAm*e=o;Nlja:_Y^vvIB2HNXVB8rtPhh.lFJ']b.H^<m[J
U"*9r8gYujk7<Ci(LN+RbllZeGXI57>cWL4+w8^Miin$naH$tUkmpf\PFZ5-(ZGJt
U"$$F.N?WFs7aw6XW^$f,MUeckuo7nDm]8RC;?bSONk3gG1PD%+5mCGxp>?k4\GXs
U"5%>McfHkx[14bRmX<lJr)6Exx^$8$\8nZ\<<0TG6p]F><We[.>m6xTmXflPGlpP
U"G4J[Uwjl-X7x7U>qf>DUQ\I<w]-S,29$1>q2tU2eu,>4-W[)?XOx^gll8PKExg8
U"uVE,A=MjGafL>8l=Pq/NQBLk8D2M*>OYxl$R[h>jt.:0&a1\$\GGwt^Q&-It]6>
U"RWouSWa$xj6[M,x6vqUl/hE-Ll>DFIT2-=0rn5)6rFR>VW75Mv]IX:F([a6n$H<
U"'Mj?nMR^j##WSKWTc#0PW_&C]7W/Meb?mL]x:b(5'wYxNm<BCc^aoBibbY/5NTB
U"Ylo8qfj:t.JNi>jBVI]?JAXLy>A)6$.8+Egt$eKzS:wx$_#hRJ#_VGf*'x:bTBW
U"5LwCG*plpRD?_J&AmYK#x#H%OctjPz8<]o3[+>W/NTBu-8/uc)C[x;vn\)RzY51
U"ffPE7us+^1Dl<QKQ>/&C07k)?g,w1T%PSujT$PS-*jLO_2.#KOs;7[x.yQKj'0P
U"SuQ>;&k;oYTx5bDg[ZGa9[XaJcYUc&5nVY<(7YD>/&?m2['IzanY=z(qcK.]m8J
U"&anYCc&AoESxRMsu>GP=sd[/jzUoSqvUo\]/Cn7Ef[Djux\=?rx8*fpR)V[WlKT
U"c$Ek>8FZWsZl0L1Hk*eHDUYo>mK0Lm?&5'R[$54?iJ<xA)uP[T-a]tR3rv<HJNa
U"EZ>uL[e0-Ql;bt>JioN?p]m<0'n;pdv>H>8*$RIcqZ^WX1B*c5u;dTVOWGH-3jn
U"O#Xm.iHv^&>=*KRY%3>bh8KIw2KKg;UDu>>e8bLTuL0JfV>Jc[j4LqBE&j?sO:j
U"*)YC1>=E0GQ<T]n>1u0af0Cb&jJW8<w^aa<A\KGT;BsY.FMj8xs>pd8*HmR_U[6
U"70GK#RcnZOtK1hq*CqTk57a$Z.K'dGE>d8-*9RcpnZW/27;Z*>=*9RQ3SqnCRMm
U"ZQLWqzFRWmZpZ=JQp;:U[Pn-<qR9n/x,a2wK=p*HbQST2n2JKaCufv/rddXtq7I
U"bWmt^WoEh7J5,FbWm^Gdgtu>+JTCZtU\n$pGEvP(Rm6$M.8/j\xnOBnqyJ*5$CR
U"?fJHCt>5#p?aJHCuX4#d?a*?bA-lTbckAD86[TuI6,5G9sb/0#?ooq:RbxJmM87
U"^FWJjR2'D^Rl<LYq::bBICc6fbv\/+?fZfJQ=mK?DUi\JCl%u8vXrJmO>O3p7>t
U"^6fJENm>6V^vJrezbbGjcE6lkC[&p&G?bcgk^^Jh2JJ5hZ>JG2n8&aVYm26V^.J
U"2q>J-0r#faJiN>JGt^?oQNWm(6rH[,#tfq/rXd+>r?aJ$CsttT_57c^ZHgjSItC
U"4#o-oq:b8MjX;gxA5mYE=K]k7bWHFa[d[q.uZ8?E<\d,^q4HqeE=K,]q4HEoEi&
U"i#2%x?_x+rpn9D5>A=(=_(6>JEK$zdg6.1=rW]QTg6.1=EW]\aE=Z=(Rx>jhpl;
U"eAV[A=6+CjPkEuY6>DH3j4(iVla/Y6z$0[v[Q2z[G9mHC>Aq[A=oS]Q)['q:H;Y
U"G=o]]EMlmYE=c]]q4H7<jWNB]jJk-5C=B=cV3kGEhe\U2<]uR\(\>JrQ0J=MQXD
U"aP'S086]'\i_5zH*/zH)__1,l-YC=?]Bq.HM3;WDB-JQVR9(1dP:^i4t.ZA<DBj
U"5kK&R6RB\(A>js8?CCjrmB=mh=JE^6z$+Fak.DFo[L[Bq.HM*;WLU+Wh#$4RS$L
U"qeE=\(B(I>A(J>(.K>h(WGnnnDrDXM3;[VUM226CGG?hgthpFaufEc#AKQ#l8vX
U"\#-Eq+X8)_\.*EG'XXChEYZ#EE=dkp6_tFl.kMc:2&56uP>;\lj/85kx>o4_\dZ
U"GQNh$N[>xMEeDz>ekAuJ$^EDD5][2pp65R4>&j>Nd6561XeBk<p5OPG5OP5c5R>
U"Dm^X[H,[nX_L^J3]ID$rnUXrx[7D$\(<E'J><Fkj)N7<]5d6Sm9q[eGqR(XODf?
U"8gjp)5%a;[eG6I.X:jGejW.>jJK>8*_\.dq0I*nwX,,\8JTw*9[4U)rnXHiw[MG
U"57_[s<GG&XrOA'4Ze$xk5b/3jA1kX6CaP>ja^\.E\G'Xsa^\.E6EA5kEudvMr>M
U"'%sd%aW5YF+>NX&C>24K.>$X&Q$VY^31g^&KMYd.1d6.1dvMM4<024c.>$^&krt
U"drPCQq7qPQd6:fr/df2XOS11gX&;_WCW81ORPzmRm7v+**hP[_Bd*I]-JCbnYs'
U"%jO%[tOP/#4;K.jmY&OR%l?sdjGL>$,qhB&Er/%?md:TC>jg'[\sPS134ZP+#O0
U"2qPgP%#>Wx+*\(Pz,Pt2sCscQ0rB,HsPHrtY$2DqPPBAw:2+E*bPr$rY+'o%=%%
U"s:%QB/dzQ:O$2qV.PP5P6S11^V&;_ig;PN/RXp<vNUiAKEJdzQ&4j^HltC77'%L
U"lp_&%.O\Yy>:)&5tPZS1+]35qVPYI1[Z?'QB:<xB#O<g[e$5i22FYF?pl_dPBTf
U"1XbSlJKlj_L6YX**_$;bA#[g,[\$P#($;AY6?-ren$rrZGs9]c.U>L>F?mBsRVJ
U"HLB.C6gB;6of-Xuhb[Y$wr$].UHJBB<$U(8Qj>:F?$glz(el6K#>5g%(re7_Gh[
U"865]WRW=s<VJK/l6KlgdF;b;=eaHOz-C6Qo-rzU$2s]Fl3XubNTQ]jl/7hWGi9]
U"QWg=h+d69'M36DF>6O8Xk]h7et]'gErvF%^>].U>NLFCDn6qXJiNl(xq]5gEqgE
U"?jVlhw]ZH2\B3gX/=Trd6iYHLGg37rt$G:2$ekB#5gb[_$sl2\BgG[b$sl#G77\
U"2X\/1HeBH1bqz#i\$hMW?H=A2=SV:-VX4f2F(]]8k,eF1Vq\,d9sOA'1qkK=nHh
U"wJMVoVjW*v+l%NMI#TMi_:ayG5Qx:AY2y.dFUXM*o1,A5kom(2upJ6UIL(]4pNt
U"&f$LI/0BBc7^NCq]g,1u=c:AO4-'p?\MqJ0WMw\[DS\>V3qZEPpUMdrXjo0ZTMm
U"DZ.L(.Lw&>ls[V&EqpPM/,x_97dQ>4=rj<ucuI78lZkp$N#4sW#YSLtKGfepk0q
U"XXHM^=YBXI7uT[\NXGtqrLabP*#[Y1Jj,*s8ZWj*'*g?UxqepOMJK_(],buE8Ta
U"ITOT\SeuuN/U,To?vuoGtT[Eifa;bAmLxx44sTBR=%6eXzR$aVEf(J4uQNQ&,;%
U"sS(S91XdmsXpNMw17_ioho6DenP4cmg0X4ibbCXp+\&RYr;aCHpnsq&G0FD_ga/
U"v9cf)y%ARhOucYUN7_*;u;)]V80uU&$iAXtEhBcR1p=S,3gX.Fc_xu37g35vdAA
U"HULTl/xN,xp_(an[XY*FNoSNG=S>o1Ib]_nH<Vv:Lt5&v]#Lua'ZqrfnvbLV3J9
U"fv<4cS8Y>Z)za^/-**-PgdSZmDR/*m(OBuQR)/igFDl3t;6u4XDR]SxpE]l,CN8
U"uiT8lT3K(I0F;h;<3T,>GV18m,/e9%y]:kZ+p23ujhg^6EtU+66?yB6)Pl^&+\A
U"x/(aZ4oA7([4f(LepIIv+-Ph$S%]**BbN\%3hiOT;6'D08LNz-VcD/\hnmxiOEf
U"FFTXr<[:hk.i6NDTb[06kvBY?V3CT2x-etI8A_W02S8=^7f(>\g]iOa8,:p$#jF
U"pTbw+6^hGSL9?[kChlhlChl(VRda[#7PH$Iu$5(Vn7$dv9sb5xqrv#:;W2Q3&GJ
U"e4osF513_FHA\ZmqsrD;8DoD-D^Pw^F:WQMgme2OrsG7/(]126IA4qsjZSV,REc
U"Ygr)i6roI0DjM-Gg04UE6LFTma;=TDRB$_oDXdt8oPesRv0D-(qIbI]l_+o]feS
U"i9wjrFDcFT_J>DG.H;D;DcX/M+oivc7,-:lNKGnTruq9^pUrZ3fJ:=b-\\Qy87?
U"Faacoff57b]04<-WcHHXGea4x5)vnl5m3[]Lj(Dz:/*D]*$_5)?LxB=X?I*;z7:
U"-Hs(riZdoPF31elVKc[ra96S'Co#z989DnS'(w9RgT)-%YMJk13nZ-<p$.M4o1O
U".gdpRibpJY[*GcPMYT2l8LPofjOEWzM%u8o1YWEL:zOWWd0ZRTHJaWm?H9oEScW
U"i5E>M,?Yfq2'o?&W\kAl6o/OUcgouXX0PA_+f.[ARr$_m0=j?Xu0Pjm\ac?<l7e
U"ZOcfRu*IjbA)_%)Qc(hUMH&2Rt)<h?cHf7TcHBZ&v'-0s>e]rJcD3pv8B$zGJ+S
U"pk5jwfRtr/$weaODG#DR.$_Fbgmr3;<GOmY>PoYPW^yUYIVUGv;l8V[#\rb/QcI
U"]7ne(7'Zh'^Z=[GifRpIYB$?/o[ciud]S\6\=A<]oT,S7pYi#K#;^NCV*N(%.^j
U"l1YDThL]Z/5I]Tf-2R,<pP;fx5XHP,9Fc5;LY[ZQxDoGP:3qL?(D0Vv=4lGfRP)
U"-,u=>(sX#kscsPSlVg5Y$vjUO=L[T/J5?DGsD$jBU^Ll,BKrKd$DtlB6$DtYB:4
U"&f[_JVT6?PHpQlRg4j9A,lhCDwXp$8CqMH$8\Cd0%oV,=nemAigp(>EsU*CgHQ$
U"8C>*>DCpu8h>jRv_$sjxvMXkV\kYT_3]A\-n\<Ne[Gv?sQ3($G;sJ'EfIXcEG^b
U"m1agg*bbQyi8j)[oe3]Ekx+x+tHXQL=ch;F0i33T#0N,AQVksH^Ql6hf%\Ig?9V
U"DVsk5,WYlng+X:eVh/v]uWVMH$r]muFH6qVF,QhDR8<Q/(,8lDu5jAWPf/4hTpZ
U"Z&EzMRKc01z4?sF+ND%#z+,3cIr6SZr5''EW&qp[*99Ws,br:f+4Mr$Y]1l=r-V
U",<WI-_CWGCR=g\a3^]uNU5$:e4d3-ugOfNLoFW/A68FeZy;G:JGI/bgCj)WR:2J
U"_FD)_T$Wf3[[X8T9W<4]&]1$OJuSh0$3ul6Dx+;#:j]Qgtk;7^Ch(T+UTR9RCeZ
U"F?h(<ci3KWTgfRL.e;u>:lF9V14dM3's^]>)R*VqRK,h1?IH*zH?B=k<$0s]IqD
U"V4Y$BBgq-7?PFBQ&>)uixsdpKbntmenurV)5TBCutzaHLpE_bpkZYLY.MfS_xb<
U"m-xY8ZicBQQW$Dl%eD#og*gG%/tPEb'5(oE-PDQ9B$Y'2</FL<(3koWiKH3/TVL
U",)A[$W>(ZB4thEh-p_QutXeN5a\8;^RZ]R.^mgtl?]BKt?j=JF9WWAe-?'JWsJm
U"h.B#sK:mr_UA74,HFEe6slECBhyGsW8l7>TEusW_FW&V_HFbrVl5_lBBgONru4$
U"QBBg%.lKR$02:b/atDGL$U?wacBKs76?]:qQW>3FaL4$0UsuPbt-Hvp_IC*kiUf
U"8YYq;D;R5BqP)FtNYOSiRCck+5+eGCZVJ,A_4q<Jj(I<,3(r?-O(*JQ,wlqWf./
U"rpZVD-[VYWiRgcPMpkxpsm#[JHQuHTja)S^,ABHP2JHK0Z,-+LT>R*CP(K[_ZeT
U"73?1p<=061A,g<4-57WWgKue:(Za>p-Sej)XI,9y[j(+gfQ>P'eI'<>JJ((+eXc
U"OqJGnvg920bfzRdYZRCLK5T1D_iK=T,:Zrhzid070>tFtiE?8QDI5X3k+or*7d[
U"%CQ0?qZf)13=ZiStM:3(ZExgjfodJWH.$7>nz:T])=B-[qV/xgf^'o1C,jk==S9
U"_']Y%dA:T=xj1qtF\tr3bYu/k5&Ct;KE702RAbQF<W:AQFF3Qc>x37<h'1BG%XJ
U"B/nE=x)F8*Q;PGHi:&ma*H9kj0/xWDuK#r8Q4ueBt]0j-kZ)4C]B_4p_uJeug?(
U"e''05Pej3=,':r:\).G00'R;Y[uvUegK_t;Em<Zq:Q3YcJP5m4*Q&Q5K5jTZGHu
U"Yk%K1$n0Tl>/t]crd0Q>b<A$0fS0=c*23oTOU?hw;b4_LraQ*VLHa>7d__n;c<7
U"o*CT^)+Vp6rgz;t<OA\cukcuhUkJ=R.]u/,Six32S1c+7EjP=^-Ej3q\$H*enxq
U"M#pt_#h^v61gs,<^L6*bguqa&NJTk4C-s^_kPB^GcM0;aMGpaM^gCJQj_f#tK#p
U"tO#(c=+-jZq>&G^VTD%=#l[9'jVrX<>Gu?e$iEukioX]$q4f\m(rb'YZHiP-7gi
U"7cUj8Voj8Wj6ds)uu#(4t5?TpjRh]G?Ep#(Ac=[-UrqXRq-F$gSU5yjjS=$nSeg
U"2sYg&JmmNm?S>Eue_f8uQP.HHqR6s/Iq&38'o021QS=V<,)xeU]\XOKDEFnp?8&
U"Lj($G;n'ZhDM+ugroXft]YzMC:M-;P5ihOXGfAId-JVL[BruM]I.nqu7tqlPkMh
U"O;g.e2T3^*o8(&TPbLg*n?HWhh*X*g61]osqM/T.A/^:MMf(h8DfRmt2J?VDVb=
U"3:tY:2r&tgx([jJZ+KTc\6Gj>-uXPF;h:[$pq&Xev8XKa/G$YX9vKDgWtL3ioDA
U"oJDfpy[,&N-HY5<>BqcgdVmp$Vg,fHU]t-v;497^Uqs6cVJ(<A,Fql&T.?rb*$[
U"l5,nkNua>(g7YhBx4b\HVmHQKEthPhcLopHf'TS)i(nCrsrfi/u;v*+D^PSKHh-
U"g/Lrg/-O[#qK>qV9D=X%$5fg\#+4]4R$j5*qg$p?lZ6;kk\=J\1)N_SK8&GgB;(
U"shr'*oMRNqtt?IhdqOVRNPYFMtLnXiDXhf3t.=J)(i$i4j[I(R1T,>%Bwfie].o
U"X2uDYDEh\3%Jj[pYfLkef:M\jm5W8Tp+QpHsW#1qF2eW:sW'j2,ZwNt%h6J>DA6
U"(F/NW=#YGFU7S=SU]-fuVI$ZTTc?jB)AvsfDgTTM$p2=M4ax<Mm9DY8pBtMYA9h
U"e'8sfpKVhFx4dPffAu<rt4TrVLbgp2n<cSLEe$0g/m$mU((6ZpgfO4=DnEgp$sn
U":8/BuQ\q]5g]4,1CVj\7:XJ;m_Zpkg96GecAg/j6[cgcrX8;e-)#ED54uu7VfFj
U"8*JI,+oke8gJ<pQ;#1gyL\_3c/P72B^fkol]CVv_Ke,GI7/5)F\]%0jrvbE(]2I
U"4??r(QkBMnouPjpEYV&5pfqiX*D6''6(/ZeTdPUnJ*G6k1_-]*WPRWg;GwU5Y[%
U"9nNgMUpP;gI0v/,S=+-[>#Dums5tfQgDZbvZ(mK2aBW,i1;TZ(vm'g>JT6'b-EJ
U"BDwdq17*?B>PMeIRUgR:cpY,ktemLTT=(qgG>I/LU+U4T1=^n4PE,D<(5M_#K,/
U"i90TJ.QvD,,kK:386s)92yb-\]2Y)O/l%3Eiege\uxW?PY7^EAIHs?r9-g_3FMM
U"+=pj:=^e,-qtu9vq;/\:=\E=hV=$5Zk6j*FLi:'\g\poi1%RUCh<DKUkF2*%Qdf
U"q0w/,v$^0F'\3Wr/ETbXkUWeONTZlitOkLEvG.\i8Zet;o,A*rUR?=g/ZJ>6>6\
U"vD<ct7NUZ^Jj*=LItP4LAmkHTOEl(:J*j#TGZg9Vj7&6Za1&$>DtsJVQ'X>si0U
U"&J2piWG<-fmqI'U,pF=FE#_m*8uoJP-DINO.dh,lnQ\T5gY-,3TP9$gR#d4SElL
U";O;te\Z])Ao/<6o&ESe\s6d[e*J:D5SQLIjh)iUJOm:#>l$EE/s:(o:91&o/PTQ
U"F,W9Z>z.BMou+xQtFe#TIf7:'pGNM]BpXuN_92Ly[LJOuJT'8Bu=s*d-.VjlnHL
U"T^iY>Tt9XMquli2YMJ**4Le-n9O?f:ji6m$,bvYR&/.W-KoR2/PmIf&?Du\]BI+
U"8)/?-+eVe'UO,F-F?C320IITWU5/D-vA?,ABCB<B%%4+ZBA%4U87T/f:U-F9-DC
U"Mu)HUR,8rCo&\0_=aoS1=tVE*Nu)^F?Du*^&uM9<gVa[jiOB%9QG14S9/d*j9Di
U"I,,V/'A:F90g(h?K%J[ujjUR:ehB,p]i0k8#.CYTTX_]V4=VDk<t#Lg&'b=\UbS
U"JM&'i=\+D=r-_#BfiS*j;l-POS9EAhxZCIU=em#)#6PG.b>?;WF]\pWS9q/1>;F
U"BA*C2F?.jl>6'/p4W4o%*^PaGFGQe]f:BpnP,Ggg/bJJe:TIfsj(6a'.(XEEBTf
U"N2A'vf2NiWrT_<6E;kJRWdG0IfR:OpYGate4^kCqSSPA,W8O$teSA2/DViBFjO,
U"D3:a?Q*AW6G.FTOrI$d,UZ1G[cYp/iYAWky,$%$VcC'_r$G]7cE'6V,GUZs6t9^
U"A%-52<(W1<jdoq;k-:>h^YqtLEx8ingYA]8%QGe+76HsY/qty]\(qAQ;PkB#Al\
U"HX4NM3dH$xxbQQLqjDlSvl>[c-gFU2%QW\-J#=Tge(-[k)i3;lKLj&LzB[*58p/
U"P30r4L>kY2Ai;rs3:-kXZpFgeAxuAhe1I.=M_+Y*)G''N^-$A9(u2<^VEE#hwq?
U"2;&sU,G9Z.of;33H[9/:oL/dJ#n/DA?t5g-WtJ:+$u/?w>>['3>J.??*U;B*gbz
U"vS]U9r6Wo1<:n4G1-fe#D_S[GQodE9emu^e]>m_#(,gAmX$gS]rP8C=:O;Ng,+O
U"(ZM\b7rsZ.qWot9-<Z.QiD):U\K[7SDg;.y'te<uHh>T'OQf1*=<T3M?-i2(I/n
U"<IeTDJ>3ILo0Ywi382E=mBrgz12;b,$&pNs;DDS9Vy&Zv:oipPUJV,sRZ7R$d0p
U"X_d/jNMu4Aj<P;Tg(rHQQH<PSExE<iF9jpVZmto.&^Mq9xjIBe?fmQku4g-8&=V
U"PG]gjphL_mQ1AQ<V)/2:[X:W5'_$CDUmYhS9F8QaPM,i1Pg;TE9XNJA<VlEL:49
U"SZ$SJjJLmeIG%-Y2<d9oG?cLESTQ=r(0zDO<REsxZFg(/r$Tb9$=l:PIgQHi]qM
U"B:C\,_a)q(+[8%HKo&xH;yw)<=:o:u>wJEM-kd:B8FE.UYkT9]lusOM_C?#_?pF
U"his,pFl3=M=hEr5VFmKrn4CnlWFOOE%0o/cao8uxg*iT-ar_WW$):JW+Lmjy_a1
U",k(/gJWa^7nMU&Dvwxu1LP#J+Ug(n2u3G7g6&g&I76F%6J]soAIEV?^,AoVJKz9
U"$cRbL0.JSz)u8N(2;JUrg_1LE2,derdibjMfY-Y/\$i,tAo]IUfaQ^&;cDVIquf
U"%hR:xZUqOdBhMo+Xv?Xr&nf5*dQx[-TlLe>7Mc_Qx0]b8sr0QFq-7Sz7R%ddnhI
U"2%6(Vt6'p_9h'3sJQK#==JGf(aB+m/2=l)I+tLtg.K&=Dhw;:QYEVOqia60(^/<
U"zkCueic.J,4n^d(GTic$=e-rBAkLrnj4mQ[+)>&n=O5eUbJNr3X;dPf;n6Uu24h
U"(mDlVed=43RrgWUteMb,T=ONjMdp&mwvOlEC>k*^6+JZ;3p-o;O*B^e(t8-cU%t
U"_UsTRyDvskr?-;V/]:z4v)Ki$Y:r8SEuJQLn.SZdr]+C.?_3daY1=x2HmpCB;Cu
U"dAa1J(3b'-:ZzagSoS$Aa\+Pm*=Y$0kW.GEcm9<s3iS%NH0v*nP;r/,Ll=)Uyux
U"7J\]&PT3K$hI$IbXQr<mar9r9ufE&,Bor^F,BGn_SfF2s\JQqLg&T,Z>?:)\CB*
U"/fK;RRlC9Eqt(i^JK*&?pLuE?W32o_3\L#--DEroSs$Gj0htu:D=06IEaq_)C^;
U"t0-sOUSPk9By7Ws&8+YN6tLtYLKZX.uP3y#.rPXICp7)4nnGE'PZz\$&4y>hsd/
U"-L7[%QTJ3QZki7A[i6,:4NoDaD5aJ%>XEdFWb-huRcIaf9Gpfhlhh&dir,ae**]
U"HQNRCp9(EZsoer#aMj[(BGb4BsxI&EQ^BRpw#aZN*WtmjWY6XQ&E]0nWyWU^em\
U"=JK%iSiBctVO23dY-D['fK]eQK+(]8HJwpZV'PpQu;mgF3cW[OH5L&Jj0]XNbBl
U"OW*=YWPIcS68QDQ.#OaduGc5RBd7F06S;2N6\1X2mo->NaELvr;]2a(&;>lcxng
U"A4#5/8A>CUlX&ZOgxtDGs4\\82>tPp8y3rCAZL?SB^W3J]\R2Uv)J3T$+2O3K%-
U".qwj#jpKA5R(#$v,.AHS1J]j*z;:5PTa1gr_GG,^Yg$zjN%6hz\<(2>jLb/^kiU
U"Rq;Y1Dcu&=QOQZ/%=eTNr^GJB^qu4cI(9c3q1.gaVt,B13\jLH9y==c#[J3U+]]
U">x3RAS>/#j-6*]0Oj(:^I0/BFQ5LH=.4Mou'orNn##<e9i?ajj5R_'x'QT][1BZ
U"eprGGYgf^q28)C[JDS2nAGo9NL*e*0xb?'Q+hqE-A^oET;bYRgE#OfZ?5Emtv)4
U"9LPA>:3YK=E6rk\j;Z+1u)Sx].sIg2Pc\JZ=%=e>dQ+7;*%+YsC)0^[]J085oJ%
U"QRynL'KkYM?:8pcCcsR=Uu?YCOG'KZe1q\V)(+m=ZI:d%W,y;uzh*S'S*9L:H2%
U"wx(G]b<h.k#6ft?QBJe)E6+r-\XS;73\fjY'REJZ,5o+Pe/Hb6$CAi;'q;m3M5b
U"A/Ha9&yuxDE5]ZT3FmyNIRsyIb5lD5^<A^8,ol0_ivc[*_32a/OO9wE[kzk?=(o
U"K*8l>fA+'B>pb-?7V#zWXeMC[TT%O.>0.0zaV8eE(hfT,[o]Vqo_->c\NdS<oXc
U"-19,#xqf-dJ22Br9GYgo^qsRKRtp*a,+l:*=;:wTb(Fs//mt7S_zQs^7fz[T+sw
U",ATIXqWDxqP9GW)p;t'+M+CAC$IMEz?^pTrsc9^+o>=/M2QeVW]S*OZ(XJN[P%'
U"/01r#U6b&c*G7bubec?E;K&PTVm)QEXVp^Ajy[]+oeOa,FVPATkOH[:po>K;Kds
U"AYZq[++\Mo9d(.=*QtxQBR8d'1<AuY<E1(3SsW'uEmXJN51Z^oU-%Z^;9StaP?p
U"AYNr$kYI,99Y4IERz4A??^d:pGOU,92XVf>_4u'_12qf>S^MpejM6RU-oH>;KLV
U"_n>/U3V:*,E>(S9IU_u_c%n-\'WROGo-mt.gOL5iNf1*$=;B)8v;SOk5dS*d<uw
U"d$]0;3:z1//$>CGV9f6IuRcr/3&'QN;4pa%n-+qf(oV*<*&4tRqtti%\ca]'?J#
U"W]b]\NadE5n8/IVLtl7AtR:p0xm:$5_xa5v]YD,_Sq/;jC9V9[?<LnZNZ[#,85m
U"f\^hCD8iYhfCNN1Doz7CqDK/eO>5t,.aCkb:rp4wUTe%ZjJf1BE1Gep$g0d>V4d
U"]Z4Jt1nN5G-'Copnb$UZJrn1.HsYO1\-60h-sCVF7XWnP#0*/Sy_A(1C_#gk:\F
U"ykQM:eGsNcB[,=S4y^((Qx9pAgznx5'qr7;'DkI1]TkYUwy>aY4*=&Md;ZT+dsE
U"w+T,C6dzJ+cC(6o:B8QQp\Y3]>\\MD?,w]zQ%N:4MRA/l?keZ)MWM#/B(/Fw_K>
U"4qYEDwR9cc5O_tcgQ5WYc-,=S>;=4BADrXx;1fNAwa&$*ssusE64sRb[g-#SU-r
U"\RoC>F4mSzi1U5kI3<zW0kN$v1Jn1n;q'+MJeYYT.%O#w&T,OaOuBw'JaNe?&x4
U"-m0d;zM1eysvaaBTeP$e5uMvDGo3l-lxP+7,=)A],O&H:04Tmf8_R_rGf_pKv7Z
U"FkZPRo/>a=hj91(qvQ5^JamjYO6#mTCQ>Z/wOpyLJn1X&wO6z&T3O^#:04C;AK]
U"'GM][q_>ZskCPe)Z&TAO.[:pMN>hFRxC0Fw%i>a%j;RCA[i:$.*Ci*:]hws'%]F
U"ko(,'kM;FCa(FqvnTEM5j]>EgsiYLJb1X8bOr8FdI8c#;Byj$Bbo*B]wQ8[9dE.
END SUB
SUB V2
U"B21'wRIvuShD*r/(aYJe)y3wQ'b804#y7MmeFRP$09A=??2F'J7uQ28:pkM&f#a
U"*'Q__9=PR0CY1Jn1n;w'+M/e]x4Mqnj1DY[O[Xvf8>XLu9HJwDkm&77P[JX:j'e
U"w4e;V<>$gITIWMI_UP2uV*gQZ1YQC#KFCD37SG.Bj7Gy'QujD-1Gl6esp;+UDMY
U"M(>od=9omV-ZQW4f-d[z[A84dgi2ox3cVdmO]-[hk3B:2tURl1lL5,4lekcMirD
U"GT]Ug;8pKD,(K.&fSx=8EM5%e,w]e,Ul[T<+[e.?'w.k.sOMW77i*EsB6F$bQjc
U"Mt*r6^r7x<%(Z>35jIuK$J08SHM=YL=eq&,X\B/)W/mp$#(^2jCMuKKMxX*9^-o
U"K<,0<(ZnX3Hd3;/tUF+)n5EQ3V;:tuGr]qw87BMIX;DgnK=2x0M?r_vrq$QP9K+
U"_Zpr9qw<(:B?EBh-a43ELS[Lje9[S=2BLi%VZ^2j#'vrr?'<ngA?PdPig83P8gf
U"#33X1_Vz)G[%Sby66lLsT5;[esK[IJ9lbst4*5JAyTj>3O#k/v9M1bik\U2BM_m
U"pj<&r??;5ZRKef%nCQ')grsE<U%91'ei4;TLY>1v)X32jkU,SA/VLk%4oI)<f,e
U"Cd4V;MQai3\UrW<dKixB>1Q]R^a/th<gMpw5hhBE&]3]J9Hm9w?l*)(1/.T2;s0
U"+=([$o2,2MUkmrW<_*</,9LkWf#omf)o\51dYG'SLZD0JXc(\n-$Fu9VD3K%h/h
U"jos_E4/2#'M)JZIyvJZ:mhgY%Fo2zEMsT;'k;[F.orWwPJ,3H?Yg^9o/zW;eUA9
U"K7<[b0QTTC%Aug2#HM]Y;\a>[urJPMRazVzVZNKn(uP^e'(qT2PEM3H;('e3]<_
U"M<*Ohp[JDlUr^)99DPe[H9[5eGIUmuZLeUh/flbi;K807]R]&9w9[B2.#y\wnvQ
U"%iVZvjqfte[w9[Z[pr[;[(/.Z/jXA8%[vqr,=;KNKZ,8n1MuUOb97&O&?i2l*MY
U"V;5qMK'c%BkQJsF;1kbGI0Ib<3AEWs?;MQai7As(Nsi&4K(1qTitPJ.quhq$i%k
U"QFV6JiUsUC39mm1K^/8,#MucRr_:U<d8k-([H)#i_vdHO#ZIi<EPF<E4itBIBm4
U"hmf\-G:&63$XXcT+(rwvh0dYpkCr[vb+ei(gD[#fp6C_BFZPr'$)wqKRKY,SgDS
U"n_ZDQXV9Z7GNSm?ZXW_94i#NKk3EX^/B8j1pD&h%jO-=lc8(Q2GW-uTvo&i^M,c
U"U&$sMn=p]II,r03D8([>1GVi1\O,wAX]Wh=0.qF?<'vV4e?ZUl_M?0&]L)..=kV
U"g,'1).Z.n'jIePrE9TO=#5=M#gA)?;OyFLtNPt/<Y-EtxR$Ih2DBK9NS7U_s2nY
U"puhBP)E):c3'8PVWM8xNNGdQSS?GurZ;SvWAeMNSV9+vmH2WpEd)GV5iMNDnG3?
U"irtX&t&\R&iU26L31%;\&S;9lMn,pG8OKR.buWh9V-D^yvGe8Kk2wp=s%4%rVnq
U"phPl]n:kWsluWj^>V/.i:Lei,Gk;nX3QL(Fjm+lhtd&Qg<?qAY?+v?BdPINm:wj
U"0_x(r']u8^WM3k:FWrZhEui9M?FP,cY'ooT5kBP9aPMIf;:aoZIQrbnWhR-%]Au
U"hOXYrri*uKl<+9_&-pE9kl:ZXrc%u>$MLH.b$0hM^bK;XO'SiKr-<lx%KV%wZ42
U"i'p43mh0<jblPWsZWo%V_nEc:^BaXP)$j'(r'u84;M_ZmD5;)*TvSUN-E29hn=:
U"3jH:-lGL%KJb-lJ%gKX-lXj%<:BSH)BPW38wnjK,W\pcxA13EB>QX69a]aZnmF3
U"QprF*tAg;Pu)PRAE&dsMh9V*Dh+xPn491/M3sW(x6Vd+D%0/SfxMaQ>?UmM81Mi
U":Mn_pe&rq5#(^JZ[^2TLO)tKos2J,x%&up(%)9%%#%-%(FulK,&;;dU[,%%O%<%
U"%/%%%%u%wnrj%xSgfLxt'<&>?^5Ww]=N1=#d'(2X/nqj-T]E-TrYmi%*TZ4LbC$
U"KaZ)Wc1LLsnCvstj*6%K6e-IMKW1J85alaLX2J^\/WBUZ3Wb6r#zPcT.HqiK+9q
U"[%Jf;.g3hO4sE7D\1E2_RO>%b7$>/CU&4GnfBEF%m*(5Q^+zsh62Sxc1naIQ-\0
U"g/PXw7R9'<a6PB2A+(F%lM5eT0L#%dJ0c(S)oo#YoF]5%a(m1s$T][m;QFFE[>*
U"T))$Q=16^Uh2_MHMRST3+TYFQVRJ^M-;KaK[:Z/q\Qv5*<YZ;sX/FlFZf,,ZSe3
U"BPeCNae=SHA.Acoig?X*)2iJ+iB4xUL6oVX'*mET1A$A$U3\^g+,=2s*FD:)gJ/
U"/,yFT<*'qCNSxSn(F(:SU&Ri0*]1W1Wc,*2wVNGCI[qWe3xo*+s=b0\D]Hj%%4q
U"f:g%>G&'N04%vAHJ)W&5pR8;HKb2ts/To(QUMJUjNWHr4>-j_yWUOG5PUY)i7e]
U"3AUCQWIm_B$9OECceU\26E;IX)l_;KW+J,I47FRp]smAS5KW<1]B8I-2<^Nu5$C
U"24\ipf]cuZ%Wm6,%iZ-h.;O:9V.iHorJ*+4A>(w7gmBLpnIUk:F^rp\eIh6c>Qp
U"nX;caIA7nQ5Q4Ft],AmdB[V=)/Q\f*n_,MHzVIZPzY6pa.+(rh,(FC+D3O00F>E
U"U8jK=M=S<48jO9IM*VvdYe\ZMGCr:]f.PPU6^K4-bLt#oc<'-7I,(a-Xj,bs.RY
U"O6)I%MN-0k66\rcW:kXelOu&H._?jci8Yp3wfGTMf*-YJp#f*W3DKP1fl'00se/
U"2tdpb$lEYg'PIr\$$\q%1.G$-$pa,CSmznkWux7r#uI,vxs_199>aRAtZq72]c2
U"36I<]9g^70PwKH.K(ruc^n\nE.'yfN6x)c._=Dec&<G-6GVL+(7BtU6UY3:vSvM
U"OO5:U4UqiKnB3V.?X/iU'g-H9D(7&x(&57R._1[=t'eA[Ax]m28]QxQBt/#P[Gp
U"/>[mrU&FpV>)_A-pf[obfc4vd5.de;a'F)2sh'xXyWID.LE\Hg<f?7N.A5;rKO[
U"p1,DsmmBJ3hbo.>.P?RL8C94l8o^is&ujJSDOEsa5rmma;E*CD6d+H&\'NuN.T8
U"f\r)dm-st(so;HYSm;'1>H0:sk)EcUAZ'PwrQSTCZh*]-k,FE7Os)miG2T<?/kx
U"<(8<DB-&9M4Ld<QL^vc_$IyjUc%T*HRlI3AgBN4m1Li*Zn.*8*;z?5lf:qX#0^r
U"_B<C]vMOPZR'Gz^bWZtB?(%)6\i=1YVdI,c7_cAp/S>9OcAE?KZP3M;TejZ2n/0
U"&la#2sSKOnupA3J6++J#MN^#ClLY&B(:fNS_0+knv4kx[G$M4c#\.^=-^V,qz26
U"J1Bz-hnRw]21LkAiVF+,z,fg#)V,y_(]'F98R$hDKa0'SZbsT^8g]NNo-gu'Ah[
U"#&a^8UyC:y?=DP#7r4YZY_%V+fI7He*I#,u-fufe:Fa92_6_JOmAH%;AUvIR,b/
U"Vj68;;BQD8sfn.R#+g[^eGiXO,U._nW+Sgb*+[s#]4[RmQb5I0e?hFM4i/.Z2Hz
U"T;)778ffm]-(^WJ.$_>N+D<CEV(o_d:rJJgKFo^/Wgmp,sB'oU7>FO)IW>nWx)b
U"8V<kOp\Ix4P3w4DjGGf3/H3bs#aguNa2vigc^sGq]ZTQEDoccWD^q:q,ZS9c]>f
U"7F51Wb$/0RKpYiZML_0F;DJ:4/X:jUAft6f2ucR+>CN&zjWLFPqb2B0]A5Z8#uR
U"$Y.BKQtb8lGPOE+TyN4lI6VED'FS'%UC7Qu%A9CygS\Z7W*IO)0HkUj:=XHvAyV
U"M_y*9i]wQ5YH+BDg*NH)kLMjcA?PLp#ZaSZktM>.b?7pgnHQDPoC^2BjCanj]af
U"frDeOb>(8)JWPkH-b>zWWD0<D.+[h<n3(O^uI6F)NJ?(?c_pe]skBtfos7uTNJ[
U"G&z>qby#q;8tA1eVSPh\mcAw([TO:8;aY1XFl2D%ENy/WW]tVu'lTDXs.f'4sfJ
U"+%ysHP$96O6aE'hVrjvo.pSA?YI=_y)2='5ykYu==uKE[MV=9?w]1]zLHpxan<Z
U"(fkku'DdgyH*f#1lUa>T/f'_Er_UVmmTjS;d'Elfwrv,g+Z0laDkgRmovxR[ymp
U"=7:+6h8smTAYo8^0nGGYFQ\qw>?wlDk-%jk)P>3_^LYKOOYcK*U5>MdAzN$kIv,
U"%ig=R2l:N#)T[:NSX1SE-DUQ2F+9^v-(P(^LsA-J/UghnLo\lb$P$)LgON$i2JX
U"z^$m(yG_be4VLSq<z><Uq-t.kjPv#?,n[en>Tf6cAU$dcY0-q%4up(%)9%%[%-%
U"AGUlKB3'7Vo%&%%b%(%%1%%%%i%fyfk%twrS#gfx\jw:9;7e56,]oDC*8V).Y.w
U"OTO)s5x(oTrA'(uI0Zd*49*sCsrVS(rU/k<4fEuGE7pFKl7m&5wHCK7W^Hg.nX1
U"0]uZlPwvE&=LN7gj5S)oV[10)QPR5(nN^p-nIX&:-fqc/_P'f]Hkbu&MBReO4u=
U"9x7xvbWnrWlk8QpqDj)jH6c%ocKB5iKZVTu?-B=aok7]V:2JC311pC?efLjR]_K
U"L(r*Tk<V$mb82[F;Um;8CrYL3*]Lo6w>hg/?>gV$'Q0%V0W7<,9ihqOV7Rm_B8V
U"EBbU]fLFqutD,Or?)pGxVO?GsF6IF#?QS)^.S4\(,_yZmwH9x\mpq[]<X9#i;OR
U"EBV;Ig3xN2NQH^B>w;l9GS+NXRtetui7VK&tuYhZQgB1zrE(7J>8\=?--lhwku0
U"<j^wEgErP;&>up(%)9%%#%-%\GXlKgH,e*2%^%%D&m%%0%%%%u%wnrj%xWSgIfx
U"kl)>^B\>AgX#*iF]UO'%\7a<VQw/z2Qe6*^\%%lWQRV=?X\H&*Z',H?$Xl+\Ks*
U")mDtulAj6j<1IJPD3j,dxIZ>eVQ%bp4v(8tHwhH_-tdv6dL&D>NmjlnN]vnZZsZ
U"CNlGLNNnGBF;JI5$qLFngu4ph'FC(t^,>(tdZVXuGtLswcu4#4ttVLVpqvzLfot
U"D86c7x8XhNDFn]_fJ(Zgh(M;LAs_acqw^sdveBubtt4XDnsZPv(nm[CC,X4D(>D
U"IDs&^hIKLto_t:$ZnTdVWx(afudtdLtFpP\r:jL0r8mg?FLphuo4Dg(AMAa=WXk
U"'M<s8i=W(Va^D>>CQuRVfnVnQ\VW;kW+Lb-l=RCsh=5M5HaMN#LIqFDx<un<\bu
U"_ojstV:wjrf_f4tzTL0uP:eZuhh(gXlbq2P>(Mu>(g(D6W8Ztu143v]Z_?$?VVf
U"4A6c4vLtBL10OcjrpZ9oougwj4$p^F=gMDNpl_vFPM>mk=f7<jps4\(xt?llnWf
U";\_Z[og#L-AIBZllFjNd7RziT.RT[QVJq<)q,PN?Z*9SBSu?*3ib_=$jmahGLJv
U"6g_)Zg#4N5j?X\DiFF&htQ>VvH(,ZqWZN7MpXzl[<gfLTTPYBd?s]clj]uAlugV
U"btPjakFk1jPwZUwspue:dps#iBbu$dj#uxww_u486tndC64tLpdblZ_VTPjhVOQ
U"0\^,$Vwb8H84dBIxdNNHlg_IuqVVNJjLv>KXdmqUJN2HeK$svujgFnlvf_vuwFb
U"FuvFHPo,s(gYM5OnQ88MG*5$MdS\TX-6V7H<<0>(COsX-.rXm'WPSCX*uMhZv*0
U"vtcqNJvV<Xm#,;nWV<lH7Kwu[nbbFDx\FqnNnmMj6v&tNvPLpOHsmtTS[NW\LiN
U"uscmcTn\H.?u^,4UdGnGtDxqeHhh>s>nw_RWvMl.EPvttj,H>Xk+x6ip?NwRh.m
U"Llkj[.VuVvmsZgd4.?'h$,^t>D[q5KjNKD<Nht2qx:l^DjT;jV0p5ux>k_.kjr:
U"qLi4E(-dL6vuBZlRlN8QYiS%hGAIruwj^p<XS?uQ]p*_YF(w<*uhTsH0868V]cU
U"KuxeuceR4wA>&P0d=a765ZvBbjS.c1dranX6W8L5GHujlnr8KjcHnqxF=dwm]Yh
U"ul8iXnk7W5Ip?1bM>tss(hXc#(dgXvNH.YMnkj1xJA?2FnNJZTu^Gk?JM\YjLdf
U"nv5r\e^svLO\HmMKjf4%cRHcwua>,xVGLjDuitc^0$t.d=$fs#D.N8yZrcdvSnd
U"tVsttoRc^dyG0hdH;ph0uZ-4t=b2>rPDBhs4^nFdvbDb^dIZnN,6_.nIx+\81&?
U"l:>SHwALv?l8x:l?ZURh1iO:ZfT)uLWS#FQlqVV]Xq_xHkBdLci0SSrun\BEujh
U"SqNcq\cBl<HOsH.KuvPjPrJ]L8Skcrvm4Y^\\^SkZJVTmNMHp2vl85KvukmmVZv
U"nNjY.ngeZ7q06pTGpc&>\d2d&TVaO5kRm6tqrZRkdedZBqHbK:M+tosTNBJp(9)
U"D-]deuKbNd)6.lRb8MztsdG7^$r>#xtbxr:=dwG,SfOjNpTNRALt>hh2NvdNNuN
U";:G-xsZu87xn0b4&\'0<jSX?wRNLaNLin\9+xku.HsT:E7G$w**[Eb>__YV8X<S
U"VicjncILrWj9+3=<Fn$t,+s]*RZT+*4^d_Y&sHInpfuFjTsLOY]Igf+T83Bs.6t
U"l4,?2$5[#/M#Z/ad5m=GQLt3-qm,h%qBftI1X?M?BX#HkonHaD\qFX(?f4_mNU[
U"h.#6L?Z[b-mftnoCE/cY5*dFr0CN^Q=xUYiw'MW>Zeb<V-[j&X<Z/?PqNIq/cdj
U"NODX6BshC1IlbaS:t6BwUwL[(Nu\c4ECC>nMt/n9E5WOsO;HQLNc9Q#u*fECkQ6
U"TmI;249ql_W+jSJ/JR_;F2jF,TEd;W*iW,M'o,TE^?dLlb]k7mkMHC3i*kV1(&L
U"CkBWVjrJBNAk^ucH:cpAG#ra\rFo-8G.GJMge7a[7ZTcE:/zQLpXif0/t%J2y.Q
U"zP#nACJB-(rrl9M5-gs:TOgKiDnX<:2U;j%y#y)BX?0:2ka#M5+5<3[G:R'.uJU
U";d=avb;u\)^pNagU;%V)WTsJ6F3ZXke:tXlHmsgp7.i9dn3=/fhyCi%IWOGrsbs
U"ZcJV,%o#qbtyc:H%hY4S:ClevXzH$5Qpa8^=soIAC4%C+7aOaMQ8MLbW7>4MaL?
U"(PW,'\vM-5,tWt*^yLtzmF1+_mp9h\v6=kP1^FXTZY2Fhhbk89X^,-miQEpuLlP
U"zCZ4$KGrt(F(7X2\x,h,8iz6G\SIXsxJ.b/X+wkuH1c0'h,X.,;s#K<*<<1[ifx
U"T^=UfN9P=SZhWEb%'_lZZb?oQBT+cCagtR6Hp=c%$hyM%nW,3FyPMgV3/(':98\
U"P/m^t1-eFjovrJ7TyMuBs&c#<VS4I>TX,%?[qjl=7ws7?u4kZM1?*O2%,RP9(9S
U"qIg(6_ypP/g52'rl&[a+W;'+9Fyfr;/iI=pWH)O2f.obQsrfJMAFrw927\z1r&3
U"NaoSZ+oJ=ljDZ*bcxUSh3y6UN.?,*\O[P1_1uZj.4yNeZhz$P+2cfcT>QSEbbge
U"Gbh_:c;o;Coc[h*v<dq9w;cUB'OGz]8::%G+ni%hMbhP0I?&bSn8B(<+sbO&8EJ
U"rA'nX%fSZbeV(>>M*(I778vIBwmy[&ZJcw1UEK2ne*=O>NIzbfKYxb2s^qat,cJ
U"1CNB-rxjV9>E?218aq&bwWVO[FDuaNGY#e8]\dgFhxof_qcE>c4'vP+<;WkyX1(
U"DpdYkpweU2sBE+wMU5psd>M8Q_[:9P'Yn?a&xU:p1c\dyS+tu//ufaYBjI2^dyz
U"(FC]xW\Up]C;i'99?gniA?Wn7,y;99QIp2gMMIlrd<<c:FnVxx#j?]O1>A&b^5G
U"bMy>12ms&hbiSPE=cYG-?N)N_+gg8NNY,\3I^(S)8=o?7sn<KA8co,NE+;+4rZ9
U"/Vfa4)pybJ1jCNC./SpbY%dJ2=]TgKL8OVFmo/jHSRK=,4db<_Rrc(+j#xT*2(Y
U"/qhW>S_;(<jb_'?YWq^x[.-;\zWCbeOYTPgIj82_[:90Ji2?gDuX?7YK?z;4YW/
U"_'t((/'wtY2pgu71(m8g7VxNqfEK'D8IG1++o,zr[24(+/8YgnTCQ?(S[Z2gC%h
U".$/hEh.GbR'4i\vY9.ew97X>Pqw+I'EkoLz8NI&'8%,]WAdTnwkd0G:k>A&rJu+
U"n=Yo<%y['q7ur<\9cP&28wg+JX.jhDUY.g)hu78%cXrJPuJ/Q/7K[[0',[:aQ,+
U"OgzdjMAsnW\+(L-U8pXLIA1?,u?r<O-R=dn'prxb<bSFqL;V8[U7FXL-#U&YB]*
U"9s,LZpgz2z,NhaUFaQ9]2IB1W\:84/P>ft?Z,%frH>#AAI0b)\zC\7:<c;F?Dg2
U"\(8lWsh7%NOrOk$qFPrvt7,%B1G:DXB'O7dQF;-(q:g%JXU'j%ArF0Ee4R.?QnU
U"j(K<H:/W]sNPd;W(L[l;3Di;0(YIP0-4W&)+5MZ;ziSiK+8MLp#_#Z'Wz^:%O%#
U"wYD30F)(X7f;A?iP2(;.WJFbfgQ2[>)Maj>\'JUl':'iROppBP0>B[BFQmd5tn(
U"8di;gCOzvw(mFpL#RZcNaV3+n*GaNJ(\l0M'.OGerfE)l+8oxOAq_tn2;X\iwY=
U"#5hp*f+%VNeO^ez;3cQF'9E4z,z,Y4Y,_gwea$bM%/,N%KeduHKge9smaMJ:>at
U"EQ(=8P+nsA4zr276GGiu.W^zg2eT)<\93MKEpq^o#-N:xZs1cF4$0(6&+O'ogji
U"--f-T)OL<0sqVhoe)S1oBZi_Oq>Q?1mzY(o'Q$JRJ*7orsBedR)%1<0sG\dSw_)
U"qtj6%GO0*#:RIYf)u$>aT;g>HQ%uD;SE?z=t--:]=NWfmJDq%+-f9Ri#Ze[Ljgv
U"3s;HJmXjO87#.v)C;YeYjUo-CEN%u(TOpXZCH5)?f'nTgiGT.]Z;#%\j2ddhT*^
U"'$:cRmGf1S)D<$ZnGfUC&64t0(7L$so-xg9Pm:ivwue8J6_>QPqwx,i;^jcdhG-
U"Ux3GZ\%+jYnum*#cna%b2G$LT_)H<&$3Z5GZ1c0s+9=N?#&jPUY#NTt=?+qj2gv
U"7Y=9RpGK-xSEGY,*t8awkOgh-tKJDp65Lzwu=rSmQ-1dpDe1:oxWf]zU5F/Iyho
U"lO>'a$4Bb]U&zQQ8Ci&Ppwy4SD:Sx3SlywWby6wCO?x4WGzEHLrZh;/Iran3Qu9
U"LSy/t&5hiy*nD:o(%'_zeSv/i^Hd2(yc-7/$:y(oO8kx.>LzTBy+;Mz0TcOL-'.
U"Rz*_CyB<YxC7&1RwzYZ6C+&g&iin2x[I:$1xwb%OMx0SJe#[b-.Y'cKgOf'''Vz
U"%#rz_P-R412VX\JF>kOd4CPr\0Rr1$:n54oN(z[FJdo&h9iOYwL*+y[hFdIP\Eq
U"M\+L4wO#G^?;';_yf8eO)wbtKz4Rnz9thE<InJ2gxQRQz3+k4RzohbUGj4i9t/B
U"1y&f[Oyw.uQ&'gfjJh%eH:7(fSzySV%yS&qy)v/>\v,uoJKYK1)(iqGGT3GKI)(
U"iG%5rilW-,MYEoWq<hi9o18'8w]bKyKnSoSWfPC>-jrLi/=n(#z=tQ<8U(hfuLj
U"<bI.\FcKjIKeR;=Qdrk548$/v.q\\2#Ud*2sVnsT,V-pK<+K7RDt?7rOS)NAjes
U":rU2nUvj/DPi/Di3)Gbr&=gDri12+v*Q=y:4)>jY03.]Ykpi%-[6NHVGs?rwV3+
U"n%34jD$1Ib-\^&cK\BV)riJonb$S=wb%gJ:d%M;a9L6SS1K+xV)r1?JuW0Qr*^)
U"\Lw&\cKaKbsEraernh#inwu-01.B\s>\O$TGO8RYPM18E\un\Ajunb7ZCU4BB)r
U"iFY3.iFY&ej]Il<[oaWH\QS[yL;((\SZ%J0IGe%0:2C0\Sl<UT)041B<u;gS]ue
U"S]edgA,4LT,W2HMqakl3/23NOj,'Jrp,JYi4>+=rPqyPyT4\64%#t:,scW9?b:q
U"#W.zFbh]S(Re\ol[zZfbmS*gS5FbE1nvSLTnTZ3iGCP+5s<ga;p?,Q3q:\R.6DK
U"Z?Xfi2fn2gb;g9,yTU0jW1XETTtr',o/I0]F(ZV'&dpS7JPYm\qxE#pE,(Mr0Wh
U"Fx:PGA*p,f4Q?PeEof3hE<vm/EeySXXU.^iK4U45c/:<f+pD4he$,Oo1\/[+\'r
U"#imV9)]#TIVr.^KRoZ<Cadg;l&hLxCPR;ohaIte1+^45gNY,ts,joTt-n,m3DC'
U"F&6Pf6Dp^1f?4b;(T%HZS$#802P3SYp(,5'<TQY+/P4hJ,%Pd*L+TaK7Dlhu:#a
U"$K7<+q?<N4d[t+qE;TT+FOfw5L<WE<:PIC,+XZ0<Mi?p6/fVENK)pD,%#KSE$ZQ
U"5'#ri<_Hi.iCV<a1CHR.]C%R3bpg?<a1+yS*It+CeS4[j[#$^'.4?mS.u;C800t
U".1i-L0.[:XaP_X:0:1[^q+og-^;DxBmwRsUbEPe\W0x1kCUtQE'\6fUBER0X<-i
U"IgQF+qr;tV'.R6f?04;VS=qZkz?29+0:QJ<BsyntQ*kAR6Y,q;tHP'BD2f0EFR0
U"<+?+N,0Qu49+Dt(^v)e6SbeN1y3ggB^d-NT#&8cJa]%)3bBlp:*cTqE/pq*fIIT
U"9<[vucLrIN=2;<+':&ZbsuTk#>;LFP'tAsTlgYwF9kfCIsa=4.3<N>p%OAx#^cx
U"R:76LMK[(Bi;(.,)6V^S=:/VUMxdeSWF&ud?v42Hkr>vURPf#h)=ikTb'Ki-H\G
U"UIgAHXie<E1o[K#u#SvORl,-(CqRx2DpcfY?fZ;'S/W;eSP?=cf-:cP(c9z4gF?
U"S2<Gf[BUp#mGt&G+/TltpHcmXeE>ysFOH&'$\ywtu1o*rT0iQ<2TZ?N,<tQ\\gz
U">\[/L7YxEH]]lkU?j->D7d<M<TV8?<>-nWxR9293hbtIlkVrIxt.v./[vLo_]90
U"l-rC%p_MMbdszbf&)Z3wCK(s%#kjYWFm$P+Jx1]lJR36N$%El[8hc1]-d)XAqEh
U"tvrei^1'<S5CZX[LT8rquEkh42WPWXcRF:3dL*+Jg]#RJh[1BqV1/PfeytULQip
U"?rm47vtln9mU</,&eSP+dA?]oL24Du=hLrp_,'LuT3DQ.,v$gdL9i%UQ>aCQ2g4
U"IN-x(p/5*x=L.Jt5d]yF2>[ovgcTpoL;%kY:g^?qgA)rk&[Y-4bo3k,0Y4(oU#A
U"]uv*hC_tMF0g?6.d,l2k]IVI)+(<ZNbT]ejCtXm$:eMp1<XJQoV8EjtLZ8A'V%E
U"fF(RI;$]+^ZvbmTopn];O<GXrj%D#HEu_)A8Q==j%?4#4pJ2S$gfQ<W]r_u90jD
U"U(cwLEU1:Y&cQ'5Rr-iGE<mw.ie%]w,fO]2\Q+u5sg+6GM-.**(w[VVI\VoRFbI
U"3-vlo=]j92,jF9k$Wu5CRx]g8_Wn9g1YpCBVa[P&[q1N9<]<V.DPS]A-f^)/Ov$
U"])\_/L.X/<u)7Rg##9IS4bl\M-.efI3RII_]i=s$cCcXfGbV=Z(U/%1&k)1AsDr
U"q*DSAi[Ui=<mqAqNSu5X='oM\U7Ca;,*70MEkM&pz>dGX<-8UR6#>GyG)a\gDw$
U".ypV,/64ax=tX$B6hK9Pdk1-N.E9w95v,g$Pa/5E$Uyf_6VJR+Z7+FG$<(\?:4]
U"OfCOFcXdC'ueY1YY1#2GC)Bm3wGG'q/%mqF?U\0$W'D\kB6e:5L>f2C2ug=6Ii9
U".3;6IARHRHaGSs7'hRa0/(UWr9bB:[Y-a_..Cjahw6-<'RWwV&1QH3dh*6dh]nD
U"#'4_-:I)cTjEn/*GUW]e'[fA3cO=#B[M$/Ti:V8Yjj2+'N/HEXCH%-3vS>qDSCf
U"w>O..l95sciNe&/M(hX><:Odw+c+(kD>5H?bA25+Q)wr=>WIbYEVOZZ:%1m1-di
U"-al9:$.-$go\\s:KjA2A-:T_-lfZWc[[.4dLIzQkBFVRirp[g$=rNF#,v,=.JGy
U"F+2yR?CG:4]_:*qCEGyEaa\hRW,:*]MBFDcE\o4kBNoe^j*4;BJ+:Z4MaLX*35_
U"Sk]m->kE(&Y+^Q=(gLfCW>]-R+[CU>w?jVFBg1q/VesfZOj.H\Ar0]UEcDbr9rk
U"'J#,252P?iCK%/<YVi6GuBZhB3LCMrp70A.P--\n2B+O-+fCML'Tm>3^D:D5iJl
U"H8h_$_PVmzTG$,0nX=:/VcE+y0FO-$JW,0KW:+5+%RQ-6CQH%WUP(-,+s<6e1',
U"1f?O:H7Of7VYD?/-u'9ek;Gv^nMcq#A&U+'84tl]#EITx1]vU8>E#x_m-lv/_La
U"K;Pp:\bnQQ(DbEeP?Y>CF^[J,CO7B<dEJX$jSMVayK_?A?gp1V;ZcG;o3feA6=l
U"u\CVHj03qo7Mb[RAHYx^%mo[#eH=y$)iM%Jz0ZYr;#G;SkUA1^*qOE+4>]]=NPM
U"E7m17O<Yz;oqrO(C+*7O%kz;Y4b?I8P'eEAA,6Y9;.A*Kza]J^A3JR4C'e)h:f9
U"x0=:9eS]q4Fu*af=(94YA1*/+O[=+a-fMaSvSE(BtGAGze'=s?][q1MNsFd:Hu)
U"-??t#+i%?A7#ATaMFIp&XA_=Bd#iFSJR/q^F$C%qFOE;Tn8G5*7,P?mC&':5,Z;
U"Yv&gK/ug/^<%*?G,l).JW*m1z]J-Sd[4c=G8*My641/w1d/4i;>#E]7Pki1RCWL
U"q]kV%*hz[SsO1x(W1O#(wDd35A=>/eC/?+_epwR5J;<$5W3sW/Ty%?.ZRJzq(G\
U"(gBSb6&;Qze^v4-Y8f2;$X3nS9?oCEvK:kG6YFU,R*9$n((d<5Cd[C-+MqQ[RcC
U"[?HWf]dE*#0$-LwPc9Sp[DzQ.PHKMHm(5)2xWrsyM5+98yHL5fZ'L_zDK59GHEQ
END SUB
SUB V3
U"<5#Y38QyE45drpW=VY3B>SSm*pE#Qg*q9,faO_%uf+fGPJHm.r<ER%/DQGOzTc/
U"ix27CD])QNOPbPC73E+SCdq(6':gd\rxg]9R1qWi%*<'=e[gZuX?>kI/pS%Aj51
U"k7;Q7Zss\e5)K0&R5W(Wo>aC<T&,\PeLGBnR]$>JF-FTbFGh$d(i'#p4EU0df?v
U"FIz3WS#0\-.IvJ;J7(U.:s:,\^9V#Y.Cd>5LI1w9'Bs+i9Ygq?m1wGL4b%eTZ0o
U"BSoN)a=T'cW)?k:$UVn>=uioiC%Q;59E&'&qCYR)lq*8t89r12t>QY\<DJi)1xI
U"sUj&JKsEtUBK\qK;jvmV]j28X?O:,B1D>;bBb2pOO+w8;Ay[[bh)v5e4N.]-'vg
U">%Ev\Bt??s1Vm)?O5(&R?U2wPH?l/6,Q6o_CV*<pVA2inr.dqiyJJ(*Fcc7,=g:
U"<*%B-\X>,)GQ,vWdF/^L_ow2TT$Qwr\IatrSPe%R=_'UD]J&v&?5bq+XCf_9PVq
U"B\RD3[AR:PUY]Nh[76a>$cwZE36<uFe76c[EJZ:ow.Xy?>#4gMT76p:[px6JU%>
U"<B)?MlS<'fq*BUYSlGd5i4f/[<H5aOHQIn(rm+_UBT-LN:6k*BREH'lh,+5Do,$
U"6t'l2iP-<*Yy$Y_jn=Ynh#6Z.PrtGXYFU=RgEN*)c/,Gge<+fm:>,;Bo&(':#Ha
U"mPfM>P+;'pXB?IKR+ic/fge7HYV.&OL+Dp;XOk4fMYC+]2(<W7M^;:*#h]YE9X.
U"K41<T:P7]Afji[[/%qi.%4qF6d$WljZ42,LBTDKC'RQxFU\s[Ae(xk.2B6hB#fM
U"]eu_ic(_\8vC^M6eMrA/BIl#lljA#M\=+Wj%<#5,C%'y+^--V&RD]Z1f'iEy<4-
U"\7OFCZEce;9(/ZV*f]D<FA5)-7;a;4];_DZ0l>7BqhPf[VMlm:A*f_-x0/=BhiE
U"eL7YESap(kffB6:ld9F5W=REgaK]%BR]m?X?7k/KkI#FYi%<,J(HRuJp%\,JWbG
U"#k>4&Hmnz0TgaXM/vJE%\RV3K?*%^a%Y9LpexlbvaN+19wiHC/6E^J+8=.ESaN^
U"wGlU$NEYtTqr)d,e1fy/kuzr*155]:7H.6>7.fUn-0Wj64;rveovO9K')N<eC31
U"U+>hW4idaYIMz\Gz%RvthI3Hw[1ez\=Dz\Ez]F-T,::O,.fjIk>GRm>Zdk^QPaW
U".KG,9D-ltCN/UA6.T#O57q5MT^T3(+p8/f;6/.p60.&<lg\\.bvK7(:w-uDx/J/
U"B'Gll^FBiDT&H=8LH=9:TtIsY;?x&FLerDW,j;JAGS404)7CBFLy*V#Mv5l^;X]
U"S_gJX^SKs^=>1ZJvo/Sp<s',]Oi?%M_mH^AfscM_yI8&eUSeBD]%7n1KE1SaGm_
U"'o3uIIgFR6->y8[y-l-/L<E.8F=h-%I9un64ENGe'\W(G7=kPIs&VVL8rWwm)>g
U"S9Wn43^osBNS]MVRm:Vg4EfbYW<Cpm$k97r_g$pR4aF;ji<Y=AF;gaoq=bJhb'<
U"v+d]Z)s4[umG[4[5NPBUWxf%qAKV)SJf]$MkmUdE9p&j/&.c_ayu$5QQttT;hq&
U"(i4-52Xj?B)v'hD9%OvwEb*R20LsCF?G[-8Fa1\ic6RIsn=j,#>>WI5]acv0d6$
U"y[7)2gBm^_.gl)cH*a7)4;+#-jPfVf7Z(sB_:S3Ie]k?7[EZgME8^Pvd*9mXE[I
U"V)5Cn<gbj%1,^yUY0n6<-<S-P9VW6iV5C%LxS_%_lW0HT'Cg8kTD1u8b5vEFw<>
U"<,Z,]-#j?DFig/kKMaY#_a7>np;?]+J'hho--#1m.p>\C([Y5.8&?5:\LOWtnYP
U".qTkRa,Wq5w(7EDz,6:=<CyjN<R:>$)mnoiKZo.rX_;gl>_N;%gty^5vu:#g*v;
U"5K38k?J[S2H;<0%)DUHH1st(OCzyyXZYRMw+>,%CfWEz&#=%XQ[[Z=0a>[q,=\c
U"B5pmgxM2x=.vQV1EREa2G448Sm_W%k/A;G/w8$SmS-:bpfXdq;ng#E)dr9f)B+e
U"8GX44YhK*e08B6C6CroE2<)+mXHYZ.22qm_nSG7J'&K[1MB2k69.j-evBsj2_7<
U"B\\m+CVX?SR#zG[k^^OuS%fO4#$=Hm&I&$E]%Kd;K4.P=)&g#iDNHWAc3W53^B1
U"+d=[17bE$DY?Z3[exiB_t'0X1>?&2jWVBRIhq:#PEUM1#^Gh2jQ:1NT=d]LIMko
U"*QS$\iA9E;KB2wR&:\6E2jW\r31ER]b#m5395R6WC5^&DDW]rS?#?26jC;Ra8?8
U";4H;<Z?Hi[K1/4,p*F_;&Rd1=39=E<K#O-AK*=:=q8CZj-d.B)]ieV#EX8Of?m^
U"E%[AdF:0+)R_4%W-n.bp8S4C2&<aK9KN+KQs%lkGc.pnHii+#7w4iu_r]5S%E9N
U"a)+oM(kY+eB%NXOW[N=WrMOWq\[a+5+[<US;<tJ)'g+4r1]jL&l%>ZLY#[-4lnC
U"-TE5\)aEL%KWgUBS8kA8PQL&5I5J.$-H<d=5HfrB[XKS)A6XOERS:%\36f0aX_q
U"XkT,EB_,NzT&ue[>1\0r+)9+F&$('Y9w?ib5:*iS?U+\\81\wWfQJRTHj#3adL6
U"2i4o?Ql?qd:o40PcV'U>rJR)[ZW7r)73RwE]kCeL,(i%kMJ;m2;6>ji9+DhFrS'
U"-8e8DQ*,()zX'G4NQ4ao)f1D(5XxeBcj#[;XWPf[;gK_1Za0e[7)^A[&wuC5aYw
U"X>k\p[3B1t2o>iAd7EX8+/xZOKC]',p&QE9A$%#we-Io'U%NQf0J(c?x(3Q]eMb
U"a0d8xLc#+f),PUeH:MB\pBs-GmCajI:Vo;)Qa3:)-cj=**Q*\gwUHGS7K+_yXuP
U"&S8ZER44ZNB*oR\7AIY82kwXUBPEacm[;m4FY33l+C]=]+)73g:4qQ*9>KCZ+6M
U"_-W[oLSK*k)bIJ:Y,LAtCs21H)u-l[Ik^FT,:N'R7K+3[P^PY1&/.o*uyEeA*b+
U"5m_-B2um?sx*0n+GJ2F](fM9Q#aF4hbtqQedreC[K0CL7yTYl^*MyYmljFjJf3q
U"iszm4Gg1;s7MxO$IP$]uqT_:4+Efk%UhVsO*bhC2ZB-R>wfOEz&?)JqwU,$;%\/
U"oJ0R2F(R/_tURMfix/*7_/u&-0r+h)x4_2qp5eBhocj;yl>y8PDZOpb'*L(w6_#
U"fYl4<>tGuZ$9^_LTO%6XMG\BfJz,(Q>%-6[#OmGjHCO1$K)..9XIBZ=>uBR;^PO
U"n>8[8q?gi.pf[:)sm>:;,_:-Q(BcAqr/%BY:u)]6Z6%/$-_)P<LK+[Zw2E+iB/&
U"QpZm%8Fl4gMsP2d#Ms*is;gq]/7?=3;T[dJa/f9%GS[6%7$-AIf<<n^DwHTg_Vk
U"iAf3geOEeF2PpR5-Lf%g\\Ksi<LKKxxo&xp\603v><K21#kzAUsg[;EDNAg6QXG
U"7D:h.c?QCf_CWdfQ;;%&_-a9Qm:42iWKr<f1T5$H6GK%ZZEk22fs&mV?cT:Od#E
U"O\iA*?gwqrBGIN>o<E\kp1q[eOC/h=eXJ2<aa00qoJ%M&Ov:hI=.<V%LH\\c%+K
U"F7%[6/#Y3*;[B\MrS'6kkL46Oc2[qg%e[EY7?H3&x0]\\R9+/,&xYi<J621wh>D
U"Ysu*r[pji[GH9qVsb)[H)Qi+,;;4?XihI*D1280i*R+)p'nYr^1q$O)\Gc8G#*.
U"ff$Es;t3&QL.gWG\:8$(.*h55b<-h$O4hMkBbRUVAOb(8qbrCBqjfq:;Mdh?4.K
U"G/,pfM/;_#-+j\dbpo,y,vmUE;;:U>3WX.H#TBKQq7;e_0%G7#OAOQ+P<u?$K#e
U"_b]Zh(1P3YU>3*yCXx<(36'07[k$-F<;Oa%\dsC+G]bC3**1A5%U#ia.ePlZ=Jg
U"IicMeE-[-oDJK+,zh&J1=s)s;I#KTFIWEKF7]hD;E#G5p:2UWMLue7$]Kf]#8C+
U"UH3KM#e[]]/$eUkf4Nu(K6>0pk6(U1v46D-IR>F2-E_1sFrR7[Q(V,afqov$b7$
U"WTLiY;^GA[Z%VBi2K\Pq90uKV?[SFlbAlbf1J6,hh$Qw7IE=PK=S:$S<3_cT:dS
U"F6HH=RWF(kQ(r_?dK[e5,(t%13ML8+[Z3+rqf,7fAoxqk$Ye\b]$[T730[3XlAm
U"Q>OX2N[Xf\8,Wj,hwGl2$^/zP+79fP#]e,p17O<ann.H$gEdV-U&%S&)kFGCL[W
U"'0JfBsP*(B5Ob^;_13<6=a5.t&c48^PY:A;Z=b3PGJ)?4+Vb$=h^O3TeY^k/,^W
U"_&Gl3+k<'R7fm=nV:BjC-U2A)sCHU3O?-?OV)RCBg_A0:qe5RCF2G.<XYhCK80^
U"c$Q<p)(oW_xC=bA^,OPEOn1XnX[*Pw\\<IT?_:8i33Se$hQ1<?&m3g+9oE,2'?/
U"ClPX)AMtfI_3:aH/Z/%qFyhRE_A1kt^rZT.Y;'PRap[S=5jwmYLRfR[7T<hDt,W
U"<A>0ZQcK7ejk,_\)=:-E<90qKe\-%T0sVH>s3CQFOzjm5AIi-h:9t0k^u:5WBJf
U"PukJumU\xE^ga[0n=uXZaM3Lxox?:^.YNucURgWqW1+XgI32(T\-t%TBd010,iu
U"5JCM^]B_C.)#MoNT4C\,c;kse0HQN^-%ZK./,(wNfLuY^YAjc#3zKp$)$vQD?&?
U"h_T<l.$pDMV0oi-nrmj%<dkC0<_H8i,L?xS<4\SOquVtkJ^#]qTM\ccwX^*&UjP
U"LEk4]ghdMbx(uL[4.<1z7E9njI:/PbG$3K:fGV-u;Bk)5/0\Q]:YKD]JjITm#xr
U"8$,Qm1);3'Z/6ohA8xj),)%?RV[1h)#-?nO;<>mE8(#pk;Ba06g\33f_+<j/-?6
U"H,Jyqy.fT$da.YEX?&FlyliMdfGAW[ZK2[UBV)WZmyGAp?m'=EaI6v$EqAxkS.+
U"p;1kC[.H$r($BP0Ks1vIQV(J,\)x0?XZ:otg:KW(Lp]W0Git_/9ZWr+G?XrM8)I
U"dH-.60&D9e3)RVvtgycGL.EO8-D64z_^Qtn$B<2DrY$APW#iZa]DeSE[c%6kmhx
U"tDwpOMd\oEDB-g%UjQmxHWM\W\Z[grR?0DA:KA)eug0L9y*_]*EHs.rs.p.g<eO
U"XAd/iK6G>tdbO[.&gYGqsRNr*hCbK6Ikq8_6Ne3O7JrhE7Y7rmBjV?(_I\)61kU
U"-HOj(tM#vfWcaK%^2eIR01jnD:]0[ZQnq\/Ki/t>3z45<l=:3s]ZbAk?Z/rfGlj
U"*vkM0Oi%41?r1KNdlHI]j]?GT>EUDtWsLoJh?F.]%=3/K<(:=AO68;j[<[H=y6/
U"Hm:H:ONgV(iV8EByCPoASl%4s_*^NsUZfZR$h$fc5OP<UlXXlk.RN=xh';^vTfS
U"cBkp?/=-PO-hkQPOP'PjRH6PIWh]0PuB'sk\(aXPMUC6/=5wZWACJl);?\&#1g&
U"]=FB(PpX%w;Dp&Obd(<FLsM-zK-cHI-&kL&.YKcB&S$I+W('4/NN_&JUKRI3:=D
U";lY<_^l;XHjd%3g([D.<*a]*sTb+-26qe9+S:*x7X^N(Dc\Z=5ZG(a'VA/5w-'U
U"kRa2LkQHlDSV?YKq:r&+46Gw.Y->/6^m#+hb_6P+m-$mr_,_ZOWASW2U.i'd?A3
U"Sm2Whmg:/S-K3k-,QDdW/Nuu+r*93jJ<IE;lH<vbXqG/[<qpG)KHoAED#7/yYFp
U"(W9A]0VW3W4)IJ.y?u,jGyUIH:9]5&JAfF]KubbNPm6A:6^I9)'&5gc9sUO2;lC
U">V%4fr=nEL]1?R(]V4HlTgEM[k3L3U7B)ZU<csWZGAh?8kF\c9>1Nay(9j5vf<J
U"81dFRF='by.)Is)7_%zfE11NG\A$5RuH%sl_zFG:YpVnRil\.M(Y.K(7mJr#sX%
U"9C;CFo['-LFj=_,2Y9eO02D\ngt<x,7qD,=n5DauEU:xX'BYLW-qv]afKI[^&)N
U"]%xTMXhhD\ME30%^#/;1FN:?b-I\-F92eQdS[E9Wfd?nEfpG;LAr.:]O1Z+\kqE
U",<N;73OZnq\\aSV-i2&_zfq1Z0jk+GVE+WZ0_]Ko+[c#W^SJXz-B6C*\SgD61WR
U"0a3<I43L??m3g&T+j,(]a-+Y5STk%t(6:^-#a_WQ4SA\$WAQ.s*>\n*.W^q?2''
U"QQj2XpZ.RASs-i.1T%Q60m&r%V/g5R_DMguEWLfG7_PtfS.I?FfUj$JW.4YUXfW
U"='tCgfG'1<4/>3dl**Y.RY1R8\EDfXWhq'&=gHd;=kZ^&UXSh7Hh'z^;Q:T=p]^
U"E9)Gtd28#\Q<1R%V.mW+HQ%KWv.1G]%>4KY?_H?2xAo6v8F<wfzEkU,815d2bJ'
U"phSkVM[e0w:J$BA*P9YU.&O:*A]3^gd%Cs:6&aaR7h4kW.[XJIh1NN5TR7.YzOi
U"%*my7*t&5)qHA&'[)9kq_t$ZP1mj::OZ#87[]2,J)WxE-f[UR%d/'wBDe:)2#k7
U"2R<i__ITDdZgIkA5_?>Cb<:l-)j_2Tn3'UESG4>Bg$:mU%N7:,[EmBC);.78A>J
U"7q.PdS?50^&jH]Ek/*ES==]U/i\/XDxA2v0ZE<7d:fhTFo0WMIx.e^JG0RWZ8UY
U"U'hU-JFPh?3exMM=Lf_R4,0<7\Bwd01^M\=C;Og3([mi3VJR:oQ5S3U$QJAr:Gs
U"IZATa?bB5Ri_K>*TJk3%t$sQPAv:k3J\\;CIAG8$i3k^K,H]2A_4jEBq#S)ACgh
U"4kEG(I_Y%V[]2HFfC3(%=UU1.V\s2R#u<Yi5[2REI][jsB2;N#(4%Q)iB^:q^,\
U"]B?A_+hnG\xt^1XhCh+Z?BmXPk$=?w:fpyXGG.X&akHY\Ecl]x3bZeLnZX23GM:
U"l6D><#oZ6:Ya]?ir#Ri-)ku/-TP._#H-We%4O,=7K\gEHKT3Q+EwVsd]wsiP=fZ
U"a=XPiA1?X#2D^/5L2kxh3A;=V]gka+drdCmqW&5h4:;wlsY.**[GvHmYR$-F]Q6
U"fD0oJ3%fU=,5HLk[r$XAPAW;:s=ZbA[?7Xb4A\Y:qrQ(u];kd\$e1D2QnZ[#Lc>
U"^('6bJ?4%')*qD,%fky91<.k8&t-aAOCe+Ci8/T.7JdgEA47V5*$q(Pp_icQ1y+
U"K;qx?H%CmW#sSXYCDhWc\%o1f1Tr2R\7,eZ)m1?$$k)A+He0K-_YCaLkQ>+<><r
U"2Zm:]sTF\(\>yf4W_i(7]A9f)E+HWsWO*U3:94)=Wk]?)XA,v.H^:^ba^?:qbUt
U"HNAf:]6nnd6NAkDlo,X$9:4A]3UgdQzG?UM3o>ZK[&)iaC*%O=3Z/9d6>GsEV>u
U"]>Z+7\?^\#,fw-3wHHXl*BW($3l%#5)n#&\ulH4R'$0<P?j*J(:;bj,6S.kD9Q,
U"Bde[+7H6'6Kj=SF;:E?:L=SA\F'-UG>Qe1k^o+H[\#5N,3(WDH?IJi-7?C:q5-U
U"[lM?_7lmE2;4HC4(y>4+[+mv&&W1W#[fL?SFTMFTFDd7d'B.k4Q]^$[8[FI=nWX
U"H6FGm&,Z4DD/Hb0t[>woJfqD.'0Ry?g3gWbq_Yhrm,/>Lo5E_,u()44Wb:X,m7q
U";KTqK1>sr[3)%:4^g8sgBh7j#j%2'lrithk/;HzmjLjy9bl%/yu0^_ZH4e\zke6
U"Z9Viq:\oJ=yr,Nmoe<;$WEEOOW8e[sJ_fpRtE=LL5+K:^aMS)%\\yJxHk[9gEMj
U"#;[8g>gjf2CgfQ^#nK\<%K9V8)Rg.c?EqoW)h9XSo7q;S%]x4^,5$qw]SqwSmq[
U"S5&:pF82RgXflE]rFF]nW#YVr;xqf#c^D,/FW#ckjX=fE=E25+KfPG#n(UCb5:)
U"Hf.wCAsx+:BXxS18Ygn#p#i[V\a/I/?\sWFcGY(UkyE.U;5AS4G?EFgJtBtGQ.>
U"vA-K2<FKqUaEG#,zCg*:Ga9s.6lVP$_-q&':S#O&.iZW1h/d/%_'+wt>?]5(9gG
U"hS.4>(.Kp\<?0_fX_E:$97\\I5ZX7#B23PH?>dXhTpm+LZF'DCI+4.K6<KSwUA9
U".P9j]]<q[S=qcREZUJe-*_l]_,,g<OIOpkFJ<w3q(3RY-%484X+inI6h<_rR0j-
U"5ahQhs--*Z$.[4JsK:.[Q*2UCYQ06GsU)b\[L_0ZfM&RNF3]SscS/k7[vN_C0_^
U"xQ:stl-CD01'BW>SLCSg81gj^'5WII+^cPF]<qk80sSSm3Whm,d/XWDx6XMu8xg
U"e;KJTknA]uwGOv3R$YOKvi,7;C6+hi%5=[s+mw$)6YFp[?,OTq8T\AB:WD7,n\M
U"jc+4k+lY5(80Y)ipm3eV?X[[T''&Maoo/:jJm8(7R'[]&Y-j0],d=9\-w6Eur/z
U"(-2kqa-*B)8(FZLs256JCgk;I6/17Pj3%)ED/z=[&mV8>JrS$mEmnY1gKPdI4->
U"(gEjpY1IS7r()[5Vxs7<8Fo-7iB%'oH9KW/tW.gNqYe'HoEd/ZWK0aUnBDGC5v5
U"R3lM7mj1,V-%9d3FXxp1Nq_/dygr*aGvLF6i6wu26wS3\u7m+gg<p_%I]Wx(u*M
U"%]>oX5'+5o/bdQ>uQ4BUrM8^Mi<IO-^,6'&Ar%a9CPmrSC;n_88Lu/TYIfFjvMw
U"iE]]f,%)Jq^YaPd6Zb2uLUFPsjsX%\[H9A[=jGP=SZ.1F(vI+m>;(iU&8/TW<='
U"f.uQ1LqHoO*ui8QEP9*x]e.u9SL:I,>dQY=l^fD*5O$i8*=XvHn/_bX9>>sVGRe
U"nirq+,Fue/bK*_qBI13.5oL8&:E&_<T(0,zX23g/l3a<f9%9EG3&HV)7J2&uSXZ
U"_Jk-e7Yx=]k#gJVnOSyf=?^<7BlQ88ZbW.A8aFNMvtBkbRNV%X-A;-jh\NB\Y2,
U"aT''3z+%dOg9e:/:Q]ec?(SuV]=(i('Nuz_fLx1ri-A:sh'eFs%8H:*op7$iNbL
U"wLo)/:Q)Iq6;9K(Jc?\S2G-1KY%W&#gKsHA=.gr&im\R-0,$+%.zMTs8Y)SB7[d
U"*)xEF7Le0/*.NgKdsXW?GgIOG(Vh]v5kOa:B'1IzYa[AGcY0E,1/dOg%gs2'I.&
U"hA.e&az$91:)n':eOp=FYJ7ft/:+I]iO7vyQrD__8y#'*Q%[J_O+);Vu5=M]^)L
U"Q%l$lKeO)V9m-2]=qpJ;nO7Obo(/aSz'[y2e:A9eEW$6e^u1VcRww_UL$^e(*[z
U"FTpK9xQ_=c^O'_O_/Qx1BleFhs:1\/9bxv8Y[y*ANGk9VKADT%wd/%yc/3Ap0Vp
U"dUjO7d1>(BS/d5X;v61gh.sUUu6218a=^u:eUo4HD1MZw)n;P0#YZOkeCx]a8Os
U"/S9+sU5V4Nd9X$UoZHgcm^./[]j3aMAkUT<=1A&B'1xJYe1(meVqEiz)W*$.%^&
U"(z>bZOmMS\G;>ZQV'&FO6C)gbWW=iULN'Jx7#%6?H?&*5xC[YxJ>FvB/37xr5hO
U"qeeL]pE9e1.dI^e8<S?^[,O%TeB(_\C8OnYSS5k0=*8g<%Z66.87<o('zKO]RL3
U"8ru<uTglFE$Z8w8n4QOh$sA%h8Hq^]*iGa*PXB4j30MD+Ch8&fxW?n3rcW2#'u,
U"Z0JXY2nja8s0&6g=,q]$PDGonTU8$3&Zoslgm=96x15h8:aGSD,$JC_L]#/dcbt
U"T6fYyo8I8QNGwIfcu[Z6ssU::mCssdEvvd#c\XcOuHm'?N6kX--cQ2luo#4\1l'
U"+2QH3bmL#LF>Ykv<]TVSPr<w/[3:KFWJ(Kgp8$h5P0t'Gg6ZtkY=6u0(WiD58kT
U"OR_MH3kS*Oc18ah5FMrcd:SHbinLDtD>qH4wgy\%]AtkANdq]D]A3ID'n-lYmgq
U";>zn=nim&;2>D2?HBed]8kz>FHPk37nX$ahA7]>3fbi^(unA_xrunX2\96O8yN(
U"fYa>zU8-G<4QM0[ptD4r,\H*F%Sn#X\p+tE$VKouFv_N_8Ajp\5wOpT&TgrlSde
U";W'cC,csl]WvS5Tu%P_EV>lH44v0ndYw]C5cnORK<N9oJ_>)QvV&N\>QUp(EW$u
U"gMPe%:1mdF+&(w\pOE4Xogm$t(LWhM2Xt'$vHk=u?x1JlV]E$-Xakg:AXNkP1Wq
U"T_fXpPFg$4cljsfLQ&lXkFhN/.tDVe>=<FVC/sIbVdPpSHbH5eZ,fq[D>6;DUex
U"2gl*ehgKz+PUPnU5_FEClnj*GKqDav,N17p=*.NSlHfir'pQ0uJ=vWWuHj?c*7T
U"5GS?+#m<lL((3tkvZVuZ.CX:t=u4pZJW6bFR#R$v4abjss6Gg_?LfA#ZA+Nc(l[
U"Zg#j0(g;dDi3NNck.n+[Us,b4fv0&ZbNcIg1UP5ls20lb#oLj2b8*iEJoQmdejS
U"fL;V.0;/(jo8YfeWLX7pX9Gv&:kDuZ.mt&fm/+GaHs/P0MC,mL:#P%ev0?lvW5I
U"z89FrUEp3bQHAmF'6CZq]Nb3GdrbxjC5##E%epngz%YD:wfrzV%jLICuzA,p2VP
U"tiUFeEV%F61#2<c+kFJyWkD#EHm/\_3-^[O(KHs3Go^+/I'CMu4Ly^Vvl$?u3UA
U"v4K<x&AV]k0dF-uFKGOVu60J78VQ%*hEO=QnUu(9'a:PZUb9Fzg.*qB-nhJfrG<
U"Vv+27TayWQm[fe)?+GD*$jmRPnpj1C:_w2nQ^Y\zEU<D\[p#<Pu80usiJ4+Eb+F
U"bp2g;krqf((m#K#zgk0x2>rwJHGL[;.vid4I8TAo(wbl>dpu1;HVTL;LVQV));t
U"-Qo8N'=nmZoOq$oQCq6MW,zEc\(r9&nup(%)9%%#%-%2,TlKn\9)Vm%&%%;%*%%
U"/%%%%u%wrhs%ySgf(xTxr,>[U596HjDFkVhZ#;Fcy;%JaF)O8Hf[7JkTezp[)7)
U"nP[uSoXh8[h9&c/nJE_jh\H,>ERI$b17jCv>A3Wf%4D%0pH2mMP.)SyQ9eJ_p[E
U"hy_oO=E9Ad2J('JT/ueF/>wRW?i'Ns$owdA\B(w%%[:k)eq%p.NqSDx*:=I9Hk<
U"G^EI'jg?isrk/1^$uN^$RQc.So1q#_b^l;W_[UNjER8cf/ACh7GvLM#,F_l5[,D
U"teS4n+3,Za'+<E=t:ZXl*;i4lt#.<[3)>E?\a20e+?*jQOQ46Y']kRrK0=RIXpX
U"LLWFeIBftU9c0unvC31hyki>xH]m)(Y(V_7]LC6]$6)>,=H-M>rs/,P+uV;5H5K
U"[q63vi/z6gWT:h>9zeFLuzEg(20MTCJI-)<?.65J^m=5a$Hl1FZu3jbpk9b9MY'
U"tNZ21k+x?22P&SL2kLH,Hw;G/](FL;nZsH$jjU+a1Zq5dkm?m5KYLkx3=B,)*3Q
U"ga?e;A/5m##'iDWVl](yw.DBiC>?foRC>_E6WHu?.iH\x^k0dfa5Uh_:^oc;8L\
U"_X13t\JvG>Pftr>lf4'NxN\bV$DfDp*-PBJunOd)R0<kF4#n8==jh_i6qbjq&-.
U",sTGQZanPkx%(up&%'9%9%%%%-d%XUlaK4q5&l^R%1%EL%%%/%%%%%%%%%&%E%%
U"%%%%%%%u%wnrj%xSif%yup&%'9%9%%%%-^%(ul1K,;;%dU,%+%O<%%%/%%%%%%%
U"%%&%E#%%%0%R%%u%wnrj%xSgf%xup&%'9%9%%%%-j%AUlUKB'7&Vo&%%%b(%%%1
U"%%%%%%%%%&%E[%%%2%Y%%i%fyfk%twrS%gfxu%p&'9%%9%%#%-%\GXlKgH,e*2%
U"^%%D&m%%0%%%%%%%%%&%%E%%%%R[%%%uwn%rjxW%Sgfx%up&'%9%9%%%%-%;2Tl
U"K(n9)V'm&%%%;*%%%/%%%%%%%%%&%E%R%%2>%%%uw%rhsy%Sgfx%up*+%%%%%%*
U"%*%%#&%%*N#%%%%%
END SUB
V2
V3
CLOSE:IF S=131AND 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
