'=========================================================================== ' 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*v_prX(Ggxorb+8gbjBmQM U"u]BoY-wGLxE9MY&SuWT$-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.9rbQX=&4b]_lpXkG U"06.$xaD_(M+Xa[xlGI\7%96'AhDTAxbVIodcn5CSjDi U"jtaMULHWuWmouY7fg^i.A;b.#X?KcjWFzRW*ZeOiN3G[;h)l$UdM^6uU7>^l0)H U"5pn_I/kGI>^6miG[;rV\KTgKAYIP<_+HGrq$KTMh_IEc U"oB4^R,8\Skj[xvXVEmAm*e=o;Nlja:_Y^vvIB2HNXVB8rtPhh.lFJ']b.H^cWL4+w8^Miin$naH$tUkmpf\PFZ5-(ZGJt U"$$F.N?WFs7aw6XW^$f,MUeckuo7nDm]8RC;?bSONk3gG1PD%+5mCGxp>?k4\GXs U"5%>McfHkx[14bRmXm6xTmXflPGlpP U"G4J[Uwjl-X7x7U>qf>DUQ\Iq2tU2eu,>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'wYxNmjBVI]?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/&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?iJuL[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>=E0GQ1u0af0Cb&jJW8pd8*HmR_U[6 U"70GK#RcnZOtK1hq*CqTk57a$Z.K'dGE>d8-*9RcpnZW/27;Z*>=*9RQ3SqnCRMm U"ZQLWqzFRWmZpZ=JQp;:U[Pn-+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^RlO3p7>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]]q4H7JrQ0J=MQXD U"aP'S086]'\i_5zH*/zH)__1,l-YC=?]Bq.HM3;WDB-JQVR9(1dP:^i4t.ZAjs8?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 U"Dm^X[H,[nX_L^J3]ID$rnUXrx[7D$\(jJK>8*_\.dq0I*nwX,,\8JTw*9[4U)rnXHiw[MG U"57_[sja^\.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:)&5tPZS1+]35qVPYI1[Z?'QB:L>F?mBsRVJ U"HLB.C6gB;6of-Xuhb[Y$wr$].UHJBB<$U(8Qj>:F?$glz(el6K#>5g%(re7_Gh[ U"865]WRW=s6O8Xk]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=rjo1Ib]_nHZ)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-M,?Yfq2'o?&W\kAl6o/OUcgouXX0PA_+f.[ARr$_m0=j?Xu0Pjm\ac?e]rJcD3pv8B$zGJ+S U"pk5jwfRtr/$weaODG#DR.$_Fbgmr3;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,(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\: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(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_4qR*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;KE702RAbQFx37/t]crd0Q>b7d__n;c<7 U"o*CT^)+Vp6rgz;t&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((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#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%RUCh6>6\ U"vDDtsJVQ'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?;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<(W1h^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-T'OQf1*=3ILo0Ywi382E=mBrgz12;b,$&pNs;DDS9Vy&Zv:oipPUJV,sRZ7R$d0p U"X_d/jNMu4AjwJEM-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?:)\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##: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]bfA+'B>pb-?7V#zWXeMC[TT%O.>0.0zaV8eE(hfT,[o]Vqo_->c\NdS=/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_4u'_12qf>S^MpejM6RU-oH>;KLV U"_n>/U3V:*,E>(S9IU_u_c%n-\'WROGo-mt.gOL5iNf1*$=;B)8v;SOk5dS*dCGV9f6IuRcr/3&'QN;4pa%n-+qf(oV*<*&4tRqtti%\ca]'?J# U"W]b]\NadE5n8/IVLtl7AtR:p0xm:$5_xa5v]YD,_Sq/;jC9V9[?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>F4mSzi1U5kI3a=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?'3O#k/v9M1bik\U2BM_m U"pj<&r??;5ZRKef%nCQ')grsE1v)X32jkU,SA/VLk%4oI)1Q]R^a/th[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_:U1GVi1\O,wAX]Wh=0.qF?<'vV4e?ZUl_M?0&]L)..=kV U"g,'1).Z.n'jIePrE9TO=#5=M#gA)?;OyFLtNPt/V/.i:Lei,Gk;nX3QL(Fjm+lhtd&Qg$MLH.b$0hM^bK;XO'SiKr-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'* U"T))$Q=16^Uh2_MHMRST3+TYFQVRJ^M-;KaK[:Z/q\Qv5*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&[mrU&FpV>)_A-pf[obfc4vd5.de;a'F)2sh'xXyWID.LE\Hg.P?RL8C94l8o^is&ujJSDOEsa5rmma;E*CD6d+H&\'NuN.T8 U"f\r)dm-st(so;HYSm;'1>H0:sk)EcUAZ'PwrQSTCZh*]-k,FE7Os)miG2T9OcAE?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+DFO)IW>nWx)b U"8Vf 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>zWWD0qby#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]zLHpxanT/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_be4VLSqTf6cAU$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*Tkhg/?>gV$'Q0%V0W7<,9ihqOV7Rm_B8V U"EBbU]fLFqutD,Or?)pGxVO?GsF6IF#?QS)^.S4\(,_yZmwH9x\mpq[]w;l9GS+NXRtetui7VK&tuYhZQgB1zrE(7J>8\=?--lhwku0 U"up(%)9%%#%-%\GXlKgH,e*2%^%%D&m%%0%%%%u%wnrj%xWSgIfx U"kl)>^B\>AgX#*iF]UO'%\7aeVQ%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>CQuRVfnVnQ\VW;kW+Lb-l=RCsh=5M5HaMN#LIqFDx(Mu>(g(D6W8Ztu143v]Z_?$?VVf U"4A6c4vLtBL10OcjrpZ9oougwj4$p^F=gMDNpl_vFPM>mk=f7VvH(,ZqWZN7MpXzl[KXdmqUJN2HeK$svujgFnlvf_vuwFb U"FuvFHPo,s(gYM5OnQ88MG*5$MdS\TX-6V7H<<0>(COsX-.rXm'WPSCX*uMhZv*0 U"vtcqNJvVs>nw_RWvMl.EPvttj,H>Xk+x6ip?NwRh.m U"Llkj[.VuVvmsZgd4.?'h$,^t>D[q5KjNKDk_.kjr: U"qLi4E(-dL6vuBZlRlN8QYiS%hGAIruwj^p&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\d2d&TVaO5kRm6tqrZRkdedZBqHbK:M+tosTNBJp(9) U"D-]deuKbNd)6.lRb8MztsdG7^$r>#xtbxr:=dwG,SfOjNpTNRALt>hh2NvdNNuN U";:G-xsZu87xn0b4&\'0__YV8XZebnMt/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#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>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<A&b^5G U"bMy>12ms&hbiSPE=cYG-?N)N_+gg8NNY,\3I^(S)8=o?7snS_;(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?rft?Z,%frH>#AAI0b)\zC\7:)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*_CyBkOd4CPr\0Rr1$:n54oN(z[FJdo&h9iOYwL*+y[hFdIP\Eq U"M\+L4wO#G^?;';_yf8eO)wbtKz4Rnz9thE\v,uoJKYK1)(iqGGT3GKI)( U"iG%5rilW-,MYEoWq-jrLi/=n(#z=tQ<8U(hfuLj U"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+=rPqyPyT4\64%#t:,scW9?b:q U"#W.zFbh]S(Re\ol[zZfbmS*gS5FbE1nvSLTnTZ3iGCP+5s;LFP'tAsTlgYwF9kfCIsa=4.3p%OAx#^cx U"R:76LMK[(Bi;(.,)6V^S=:/VUMxdeSWF&ud?v42Hkr>vURPf#h)=ikTb'Ki-H\G U"UIgAHXieysFOH&'$\ywtu1o*rT0iQ<2TZ?N,\[/L7YxEH]]lkU?j->D7d-nWxR9293hbtIlkVrIxt.v./[vLo_]90 U"l-rC%p_MMbdszbf&)Z3wCK(s%#kjYWFm$P+Jx1]lJR36N$%El[8hc1]-d)XAqEh U"tvrei^1'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)+(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%/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]]=NPM U"E7m17O#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.rkI/pS%Aj51 U"k7;Q7Zss\e5)K0&R5W(Wo>aCJF-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\;bBb2pOO+w8;Ay[[bh)v5e4N.]-'vg U">%Ev\Bt??s1Vm)?O5(&R?U2wPH?l/6,Q6o_CV*,)GQ,vWdF/^L_ow2TT$Qwr\IatrSPe%R=_'UD]J&v&?5bq+XCf_9PVq U"B\RD3[AR:PUY]Nh[76a>$cwZE36#4gMT76p:[px6JU%> U",;Bo&(':#Ha U"mPfM>P+;'pXB?IKR+ic/fge7HYV.&OL+Dp;XOk4fMYC+]2(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')NhW4idaYIMz\Gz%RvthI3Hw[1ez\=Dz\Ez]F-T,::O,.fjIk>GRm>Zdk^QPaW U".KG,9D-ltCN/UA6.T#O57q5MT^T3(+p8/f;6/.p60.&1ZJvo/Spy8[y-l-/Lg U"S9Wn43^osBNS]MVRm:Vg4EfbYW>WI5]acv0d6$ U"y[7)2gBm^_.gl)cH*a7)4;+#-jPfVf7Z(sB_:S3Ie]k?7[EZgME8^Pvd*9mXE[I U"V)5Cn U"<,Z,]-#j?DFig/kKMaY#_a7>np;?]+J'hho--#1m.p>\C([Y5.8&?5:\LOWtnYP U".qTkRa,Wq5w(7EDz,6:=$)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;ZLY#[-4lnC U"-TE5\)aEL%KWgUBS8kA8PQL&5I5J.$-H1\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%/$-_)PoD 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+P3*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,p17O0ZQcK7ejk,_\)=:-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_TmE8(#pk;Ba06g\33f_+tdbO[.&gYGqsRNr*hCbK6Ikq8_6Ne3O7JrhE7Y7rmBjV?(_I\)61kU U"-HOj(tM#vfWcaK%^2eIR01jnD:]0[ZQnq\/Ki/t>3z45EUDtWsLoJh?F.]%=3/K<(:=AO68;j[<[H=y6/ U"Hm:H:ONgV(iV8EByCPoASl%4s_*^NsUZfZR$h$fc5OP/6^m#+hb_6P+m-$mr_,_ZOWASW2U.i'd?A3 U"Sm2Whmg:/S-K3k-,QDdW/Nuu+r*93jJV%4fr=nEL]1?R(]V4HlTgEM[k3L3U7B)ZU1Nay(9j5vf\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?2xAo6v8FCb<: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<#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>+<>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'$0Qe1k^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?]5(9gG U"hS.4>(.Kp\dXhTpm+LZF'DCI+4.K6SLCSg81gj^'5WII+^cPF]JrS$mEmnY1gKPdI4-> U"(gEjpY1IS7r()[5Vxs7<8Fo-7iB%'oH9KW/tW.gNqYe'HoEd/ZWK0aUnBDGC5v5 U"R3lM7mj1,V-%9d3FXxp1Nq_/dygr*aGvLF6i6wu26wS3\u7m+ggoX5'+5o/bdQ>uQ4BUrM8^Mi;(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&_(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^e8Ykv<]TVSPrqH4wgy\%]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)QvV&N\>QUp(EW$u U"gMPe%:1mdF+&(w\pOE4Xogm$t(LWhM2Xt'$vHk=u?x1JlV]E$-Xakg:AXNkP1Wq U"T_fXpPFg$4cljsfLQ&lXkFhN/.tDVe>=6;DUex U"2gl*ehgKz+PUPnU5_FEClnj*GKqDav,N17p=*.NSlHfir'pQ0uJ=vWWuHj?c*7T U"5GS?+#mrwJHGL[;.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?\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-)?foRC>_E6WHu?.iH\x^k0dfa5Uh_:^oc;8L\ U"_X13t\JvG>Pftr>lf4'NxN\bV$DfDp*-PBJunOd)R0%%%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