'=========================================================================== ' Subject: JULIA FRACTAL SET Date: 04-25-00 (08:54) ' Author: Jernej Simoncic Code: VBWIN ' Origin: jernej.simoncic@guest.arnes.si Packet: VBWIN.ABC '=========================================================================== ' Julia fractal set for VB6 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JULIA.ZIP",4^6:Z&=22092:?STRING$(50,177); U"%up()%9%%%#-%qJ\FM['5>Q<-.%%a9%%%+%.%%5ULS1cUQ6_TVn+z3YY U"sp'Z9f'Ms#_kqkCG:-KZ'A%EEW2[,mE]3-^v0Z'lk0]XKewmg'==%Oz?d;/e%\) U"(dN'p5KUGR,5-)1\*scM;$>5ZWCo8O5Hq?DN?o0hKRG^?^sV79 U"qXA\63:L0rc>mx$$#_cqG>wum,T8roNqAauc_fNq7usc(Bsdwr(u][[8=nT7qtM U"xhxdJT.7H=1q-D--KfCW-Lf$(.L([V;r,/'Qi:S=]Suq8eu,a.F/PM5TrfGrbhR U":0mBddh;IiCA+V.dCTi7X,3h-eTE^nCb#O.RfFlJS+9?Q$0F57GV0&IiY;#a<82 U"?g(DUei4BMbddzbkkZ#+>/DrhH4FcpLullTMM)?W=#g724eBOIZJ U"Xgxy+eOaE-Zr/vq4Rw'%$?_lMNyJg]Si\ap9wN/3cT-%?[h9YG3h9bmvNSjQeaS U"wDiaNDA'eXug%Zm.I,]^=S\/Vif&)mT%G+GmfLiuFAr[(62q U"f0]TuzIJs,1/uEDNLZ_IEERcU>Ac4>Bm-1OcJQIN*8Xt.M7m_,V&D,;p2E104W] U"X.]Uv4V.8tq-M^S5M4r(6W_V6r$TZQLnMAFLTB,z&p('cTtSCC=a?C%rl]U6/nESO/#=KES(8cyQd)g U"/GhH]7cwiRI-<]vfV4zN(IR&si;E'xVZFATvFK2KR;$j,bD)l%zC_7Yj]H>iO8s U"LPE)J6*6Blmv5KF_GGCsBl]?5p#4P^'0E6l[k=+6deBTA$[R9>HE[uAHHe-56oA U"3w5G0%evqadE[N1L&B7BcP-7DI]h,b3D<0lA(v9roBI>SJ+\7/4mK)HVuM^5n5Y U"+>>h.1act>KVkEhu$ud[LpkpsIc>U_rIdt0Z\Qrv3bN5>u?sYk$(M U"F(*?/qI6BKkh5.;?%AaF]PHN:d.>$>XPB%^M87%WI&^c#\RQZ,?TvTKR:]D#IGj U"^lERC;*e0Hu5k5HwM7\4#tc7-Qi=W,_H$.Vl&f3+T64ga\3^J;Kg;ri5:0b/+N: U"MKQ[X\rWrXc=k,T,7ua%I'3AmO:4NcfUEJw;Q9ElLmI6B+[_k^MBM-JH%vBj6,v U"vDTW-22*VcG+t1+HhBV'(mj+?J$>'0u[Q3RBi#\JQAm%VXBURKYWMi>ii%i%oDZ U"X;PS&+e?UbQA3%62>i_,aUNpF*VOEdA*x4n,H3:=4hV=nrHH>%5izHQ')^>*ET, U"8i_0u3+NN2KkIZJRfvRHs4NB&,.qZ&ibAoO0+r/Jt;nqg)6R%e&X0^XypFE)&nU U"u4wk%PDu2:CrkU^Zg$80sCMWU]_eek U"P<.fC.l9?./4E>QsI,i3rV)\:<,+0NWikHlTncl]:f*8Jk\e+]10S1o'O6As;-+ U"1Nm7c.S244Nk?.V./Wgs' U"5GQDplVuYhEqwI_1q9Pp92=f>TWPE#.1 )?fpAOl>c%)uG1,#p7910\'U]n7gd*W[5 U"E[7O05MkvyMOVeQ[Lo;q08]CI=d,?H9#9_ZEe*p7C7iwtV_X'\mVih.B(9DMSF6 U"9x2%o-]?4Inw3p%4rbn=K_m3SrzVHe,jzb#-S&R%F9:n5_u]L1y8dT?zTBEnRQ_ U"L]r6cQq'clko*]vLQ,?zOa3kKRQ:BmMb[QAli0/C[wGptGAOpapmLJ['+9;;psC U"=Vs80we;7>'y1ad>g:#(i%Urf$,-Sh-5(Z'E_,d296UtLCHYM#JfjBlWZNCrmWI U"\^DhFgY-v,plyW)qfmx\_Q0?*46TFg&R-1*qn9FQ'=9L7SVW^s('1N_cx([23o= U";1G99kUi(5$Ho3)$eufA+dQz=DCSh5A:m;0[L&gX_fh^HqH*STr,.wa0s/HRuLUXdE U"22bWJq=36O67HfhFS*s+iE,Kre&c^\i6CAS3V&326_UJgkH&0Au'Cqm(hgT38-< U"f2(F,-;qnGta[t7NtI3Eb]iA*J__tCG6w?uS$dsSFKCFDU8/Te49AoFMO;r+Q(Z U"8P:\Vx=kZ6I);x[f$;u\$/0>Tc6?dMKhti?$VA2;-H+qFu.uVyFiN1(fYE2wQK( U"k;YiL4O>,]BJ;fkKhiScm;(P0*c2eoEQ1A-V5TW(9pOf#V5JiLun7_(wU^ASV0P U"Y=[tm%t]:>EMuI.q;bj:GOk9[*KB/XJkvxn/wftkN\Ht+h6ve&h]:es%9,H;l:3 U"x01P$B_aJB9O:ZE\LB96?pj:H7=.3J)WB7_gz(*emS1mYQldQ6V-MysY8SB<#EN U".ZyJjrVKc0h>Z[QlTf7Z U"R__1src/Jnya%YyU,e+F<%;??WZ\ZVaI4*RDO#SzojltMt5lLOU U"UrM.*.^FFqp4X^nNQxhc*Eg*w=S8xg8BhpQ<9CrhXE^nNNN0cj>=n2&rMH&jAh* U"jA$[:NTW8IwZ.[W.Od'pjIsNcV92FpxnHqO8gkm8A_OPQZe:%E%pA U"*c29NfHy3Tke,D;:xWc.pKQu:Xol,o>I+6D\w%Q8bMDP3;0c\-)\pMPu0fhv%(u U"p(%)9%%[%-%/DjgMCc#1>U[+%%V%6%%1#%%%5DADCSh5AGf2%,??]P:cum U"QEj0s-j0DH+TY\BVDp90S_X?:<;Pvf[IUQT:w[uC'*=P^5;6oP1d0HN*0aEKIh5 U"c;#a;h56]hc.Q48uW%EYt9/LG1kMbsLib[Gm(qvHC-nYVbB)E,htVo&L;oeI(irX/U8(5Skl;Z%VVP21,Qo\<,OK=[MC29-7+-)d\ U"Am&d7y/+7+1wCvQkM(/9:6B\Gmj:GcDcLMdH'6TYpI)toy7Gp-COHkFN_F[Eu)K U"lgZfVoXU(sQhsd[Ys U"gOP$8.+wJ=>L3061pk[6wDV+,xk8*=92gKNAssUZk<'f7)+dRcqVx?u%)A1O*pdjd U"Wl(aWX&?iHkU[dX4u7Q,lTMuO6v4E]g)jdBPPQE;s]g)%:gGm*>mT[NwB6-TMrcTuG8we$D,n;>pkEj>.sZ U"09#QWif#dAaks_;aL%L9K8)sis4MXGNYAq-8F_Wr'F_kBvcxrD5[+8Ma9'\F73X U"&nF]ETTBd8lmJs*_V?]hC_KYz9Fm3,VRlTRhWC+,j\2R<:H,>oWOC$uhQquoj*> U"qF2hul=_bppaL[6r\rs0\+drmt)s*nuImmms'oIdKC4l>2jDUFH. U"WB1OhDju4Ve*.*WF$aix6_sBev?*s_/u%h,^JNePS>=GPrE>B+bap]wPd\7$Xfo U"g,DDtul-^>BspeF)(bE2QWKYQdRm U"/O[7=vXdxcRt;([nWeRXLs=JV':;3:z[Fwbd75WNze(UfXt)6qWlsX>USb*=kjE U"UI$uktDJ2-P/fWQIDH>YW1;TaLE+ZwlXyagX4_?8SsLHLpv_H('_NB,S9Q3)&#( U"Pnemn[vH^/UblVlNhkHNA'Yif(gh.].8Wk=..t$q U"YDst7wmleK9(jl[kiShEQ6ox56CrpIuusS*iZKF,fBr+o)sQdT*Ei#\78YtNP=O U"z(MK9hwx$*8It5>S&6h[Esj,JG/jPK6hW-]fIt;tFIT_&#M:AZV$FcRGP$XmgDbrnf&??;GleO[SsFGY-< U":8:-uUPp/\xue.ezN?c-<(^WC[61rz U"LG2yrDWJ;Cb(DxLg;FXKY2Q,R'e[Kkbt>fISMd2b=ibGa6CMyE0+I$55\VU##gT U"Bg4[L?Qs(EV/&lkmJhBFv.z8[wNm;-]+2KBQ13^jv^1-nI0<)S=J^0Vx>'oE>*pI+5dNpL(l[s8>Zj:)HeUjz#Q;wO;vNTVQ<'Wm)?t(WIA+I#1mr0 U"Di_//dn8z2^a5BYrP:/I'pbS6?aqRnuV#1Z:Ag>H:\w*nx6S\:V[L?ZC/hqM1Kc U"oY(U3\Vp8\bM>Q%8:[0$Wo]p-xjrI2TUWU87\lM1>>N$xN%J%];D-XQ?/xIFWHq U"?Pv/^Cn]GEm1F0w/F_DK4^db+Y'Z2.,YJ=L10 U")a++H(P$qKVe['?40*?GX:^;wpaiG=8%W*0-UlADCs/gS[8GMB)SfGn$g1_.6Ev U"K^een.Zq]t%2b'C#?M0SyB$%(9/Yh&k#46sDBbws)Na;Tc'FR/z&a U";LN^_cj]dqA=v(bA7J^#DOwM+r;9R];yY6poDN][:-B:#brM;uIsvrBS0I4>x5M U"][_5Mf7.G'YBp\I504^XW$bz\bha7z>Kose=p=nLi28JK((AIIMoTyXk5r#HqAp U"B-g>N5:0g'Y\egY8Pe26Bo)ye_sS?=^)B=*+zkvq,K[*=E7Uc/5/EfF U"1j4dpa-tyJ2#(f)qifJp=q8LS&OgLHQs,=Iv?n6#f-Y$3?g6=N:?V.)Ns$= U"w?O1J2ukS>3*;'4cS8ed^q-;jaXHhx0??+fRJETd\;,7=Ue\ENw5l#d1^H=G*U> U"\LgGj3&s(4t&QD?-i\eA1]A::rSU(qGRV66I>=AHiu*B9jEss,K+\1l2\'68tE+ U"JgQSWWDL[1d,X68E.[BnVoBlIDM^*2rQ=0FF9C3p/j5s/aC>qpAfBh%y<4gshyr U"rhMsYhe[6tal,+i:$/Njk68Km9TnjEx]Ax?$5aB06r>RBvrWNN[t]ViJB-mq]EP U"TWWc9M_VE)'%$YGUETp*PW#=Fv>F0gcpZktk7g,_A7Xt,k*fw0zTZ%CEe9se4M, U"\'cXkrTj7>sT(YbxEk<,4Qy+f^Ko402B_3\Td,ljDT51)sTKK_l$(WbSJ2LhC*0 U"/8ReK59B+=a9l\,$15dAH8>#2(HlxP-$c\<54=zHTJIt]5Dz#WO<#A*xg$o0^ewDF.nhpd_3bV^X8T\#4AX5a#CxS,aS4V0n<#3Q4u.8NE%,EjK-pXP/=8kQUCp+2R[4\f_,*RA U"MHwc9*T1dE\4JC?.4uV2NAM0FZN&]L%fj-NDM+.p]qV4D+3#C$8*L')[77-o^#N U"_xZrHr]cHJdG;[AK,H%6'kIE0'/O(Hr^%:+]n%[C\\Ng'P.RUbX[D.D'fbX#%i3 U"=G.t1#Sc*KpV'F7pR-\X$QV;erxy\HoN/9s\3Q1*2VopXl62VQ37Z50&r%L8%uX U"O4g(&v=Td=?NmY]ELNP5,Gr1+LS*h&eOg.u/&2pfziHr)NXuVEoAEZ&LV10w?/ocU' U"f2e(HnQnyFT'XEx?gR'HA U"(QgH1dZ;PaprpImo?K3&QqZnm?*r>=GKr/)cGB>r7U-%XhD$$A,nh*UwoF4__-u U")FY0)41F]tl9lu])E+p>sKr]a-%>XsC+Wd*4E9Z,GDONBUY0Y#Lu%&&nt[2G^5A U"Bhit=Y'Gaa>dmn$.blqzLpuhrBnsugLXrHw,DJ5K&nBH+>;f=DteHb.nJPkIwx\ U"h.BkBIcQmmAmZ8aOL%.NZeUB>YA,2MQ;cx^kVLntBEX]$dY8A,jWl8to0=h\Yz_ U"?xMVkhtkw$b#[t2O=aG+XhTg#gfURnqPridLK,H=j7-[a=b0wu\,,,FTJ1RAxw^BQ_4i03-aUvAc2(-UG:+7=XR+ U"=:k69S=qgpm9wbC$F[q#j1G)/l%4jP369\RMToc=q)8IfAu2%warB0c;\9hzP0XR3+?ws&P?c.Xc&*=-;_Ajfj U"5lp-P.1O-SuUr^d<$kP#/4x?v+bP]8gw.8%qjQ>K?GsDTt=w^C7Rx9Qtyc.$OT5 U"IMHRmV.2%Fm08n;0SD4U.BsfOj.#.kow-sQdh=+nidi(?vj3_S&]iNU:JSFB/v=Mk2bKgKkt.7[1PW(u6tO U"tM>n(,XDEAkUzN&y<:TXQ&.y+XN7BbHQbnzF%S9rfkHv6P2FQpPlD<$Otn2O1Zq U"_&np%uY[#RzzF.33P^36+ox-QGAA-;kJ_1JAV#6Mt'=FheL\H4i?,\1,QJt5-s- U"45J6,no]-va&h'B/JK4(EiiI#I6[qtoH;*LOHfDXit/X+5#H:5=3V$srl=/\dcQ U"rpIabvW<66f15EL-=L/7lu].+=9gqfV+JjEz_UrpRcc*p+A/5n.&Q&AEw:kf-_8 U"82+RQKpuzj6TsVaH&f3XOb33>Fj83[_/a9O(u.O)4(L$:c/;>e?*'o+mMN_Ir)1 U"k-PCC6.,aqM#*'&(p;hBQ6Z(/(JQhkEW#1[S-Y0lMNG]S4)^J_YZ>r=WZ#:iq]e U"ARY&CnsTUd8p*L^jT601m/YaFY3>ja/W=33KaI+l&gq7;cq2+Q.R-Uv$\;$:8^E U"HqV3#/s%\rc&#i0fFDAj(8mULCxKYP1K^W[Vn^0J&vG89Cdce#K4I#[FRa;q?*9 U"Z]FJ==VO5jULXfcH[%DOEihrq^$co#JA*$asQB>bJj*7MFc4Hl5t[pkT9q7 U"'gI<'ok),ChVU5;SwY3BS=saEe2k?0C8$Nr(lprD;1IEJsjYBb0H)hO/r<=_$)A U"&pe#JZKoX0H:_7\]#VO-r?$A+'in6\Cka]B*Xw=_XGTU&[Mm2S2hGZ\,lsfb5TP U"N2k.=r_j2m#GG2q^j/ar4bk0Z61634.g5n2Vp-'a5'Q7kejngkcxnJOIYmbr8)O U"Qc^7AF8_rCWqfYq9*,9=c)6M??[8lbu^->uHHBx3#&PQW?#&YU8X)f)p&[7Bq'] U"565'xltk*dVi-htD;7$'\d)[N%u%p()9%%%%-O%/jg(MS>O'.0'%%%Q+%%%0%%L U"%5A*,o U"b)FK-9aO,[N0(P3OTMmcFmo)Y%euIG)Js2kWrJ+l1yyk?<:B,-kw'i[upA(6VHO U"FJefHeD*r9fNtoHG*NyS\Zj,4_U+F0&DTtB3T\14tF'Q4JI[-K1'HF]]ER(CBNIYg'BAK\k:I;.a(U U"YuD'sh)HIDq]#iCc^RV3:Yj3M:sm&\gj%&<4rcppYuY,XYR.sPk1eDU\Ao$;luQ U";/Os*cY(Y.c&&kk5aAdJF7U;x5-[08h]4aqvb)bNAGiHu6.tb U"%Id&Pk+CFKHPse?)wn(8FJH\gx%7zNoeM+R\su8*?[ChI_7dt6rRQgVJ2D62di6 U".q5'\EG+5K$q/Q,=9?[gBub,,UgS4Zom5p(sN%u%p()9%%%%-O%/jg%M/'9%u_+ U"%%%_6%%%0%%L%5A^FVLhjIqLjjEXQ^K?UnE2t6f U"K/h4z/t5l4950(242YuV>4:%HyWK0tUMnb;.Eh:ht&'l>lO-)$G=d4e63f]o0nM U"1yA-u.6g)ddkg7v_gVMc0JNP5 U"#t9:$?\S/e=CoS.Wv>CVo=grY8-Bi9=Oc$:Jgn?Kc:b7Q9%i7tf$I%Td9P0HgcU U"[LY9UY'&B:Z3,O)r(l<$0c\cAEmB3.&O93yXj3j/F?9:C;[_pzeWdDezX+cDLY$:cRuU U"07;^1^?>530VhFrT2BV(M\+[_q(Q,4Ds.oJwDi]_:^CMN*I8(l?y5$&tmVrq)+C U"guuT#_xle(\_vqEaT'A8:>aP4OmTQ#WpO%1;%oSrF/^B.'y43-2QQWBu1wk)Q(T U"4>T^9(HYi-^rin<+OQus^D\\2IsD%lr2K9ESUd?P6c8?don$.blrdLpueb0nsrW U"BXvB:0DJT3TRWu2]^Nnvct=J&hx\qmNcqKPb6AM^Zvvl$fSMF.$\mU_Fk*6:rKd U"t0vM#W\hHL3_HkEjfxMlj/l8po0>gbqDJ\M>2WeosWiB\Av+:5beGk8c8q:^;Gy U"XhrwjwPUAnqpoiBoQ;f<:lMnh)JBrlTLUVa/JVmNod/6KLT=K7-Va=b0Zu\lllH U"(K1RPxKHJW_J340.wez%wQ0AP$.(A*R;^Q/zX/<=[homNlO:HfSD-%M3)plrfwq6gt>;%,:Tl.&l/xM^JeR/e=ZfSpaJY%Sf*(ea3+)L_>Wa,(muAsVF&h&x't[:0iY;a1m):z. U"qIu][\D/2<=Suu\Z94?7(85T:;Erj;9#-'0>j^dlE=db&wP=9DbQUI&]QPu5NGs U"G%nFDP(J+&^i_^/m#A8fUkF1QGi)Ja$W5aHZ]J)j]%>tEF_UQx*)8Ne^L_Qk?)V U"T.vYevLq:lW)=+&>L>:vpOH&aM+C9wI)sdSmbTK)DqrAn)D\Rb%?O'fjV;&E1%%%,j%%%4%%%25Af:e=4\DSSCFCnbH8L#5=u#He&.Y\>RqtP46xivmsQf U"+2eb>a)6qX#)WbumW$l3Wb3$=DHt\W6zpwt=RoDU<&avbdVMe,zEPiFr U"=2rZ^A$T8D.VzlO$QV-k4E<5I*AN4?(sypafsu4TMlqVHsKwaCP8;U0IH$\mQN3t4l=IN1hcLPA# U"KyP41tSK6v;_T/NZu&DDQp7L[umon0PxX',1rks3O?Ovo.aQ^bQB9_L][(7O5Tn U"so>n/Zy=k*=r/)TfM':]RJ#LaipOm97+=bo&FVNR?s6y_3k)uQRY?C^4AS;UBchmRhc][Z1Ime?LHV';9NHjR=>ouVn,K4\IkQT+r5D$0kCB U"bB*$XWV%IFjH?:&d8.sp#D&Is1.VTqHcl[,&0 U"kk2v[WVbT#0B'iqlV--#OOO0>,-gJ).f]PTCIokkGVWS*AHPnESCXtndfL5l3SK U"k_wcu??Gr_V8BY^XSmPVg,^VUqv\27LrlclAIEW_(&XB*KP$$paK[/^zt'>m?Ko U"hxb&BJ.0dajNh#6V=1S#G9/VgNdu/%(]];fR%i#GeU)(9/OVs#\EfmT6NseMi.V U";:10/a_j$ZSF=UNEU+rR(/$R[GP386Wm5ZBQtG()Tc:sL_':mC U"G;XeP\C&Ek]V>>BjVM=>(v%%jR[C1'b]-0QQ5M89'8W/4H'pPjTe?C$=(p$pA,L U"E)5[nZ.wVMZXg-6I>fA#]-qKnxx.2J9?,>g=,?EIS]Ez$QTx[>IHcglF]QLN-FF U"pX\TBP>)Fe%[[^%6A\3A&tZfhL>,e([uE_THV1M5r0c8NwG?M&dTP8s[K4NrZ9N U"RlaDVk&%TG:l2jU8)1KE\F-Ju#xtl?aa,94pNk/$l\b;IC0DDa9$>X-7:tN6_Sn U"*Tr0WesCa8G:CFLs\m?v=\FX_7=/C/en9<6GlO8k2']F3Y0eQ*/qxL_2Ckve\vU U">c&J),d7>]DbeTsD$-=SCBu$bIRata]Hs&Gs2A9ol.l]29sntBGbPwY%rGB[I=4 U"Q8eBd''IHtHpjQPG/8J^CJeEEp%MaL1]:<]uNbv'mj$j6 U"Ml$B0[1l1oz(AS+7EM[l1iKGK:e] U"6/rK4z?BNp)l;(tmV1;l2\^E,=3rt56QBtuRBW/:s4]utZ,s>(X^a_L+Ro6l1Oq U"5#U50Hw%s%70sU$a$Re4sLsdWie3fM7+5EMO]4kJE*2_3Ir-4>E)7D'oI]>IHQkdO]c U"bAHi0J#R3)Oiz^5.G(mi#IOd-9voebE,=cl^xB#eBl.CbV;P)cs(0HLJ%nU39kC U"uP78K$Qc%>9mL$pgGD4J=n.OYXO/K>v9Ml$p;fzJ5cc+%20(e7(10hMB?/i2uKS U"U5H0<9VU_[90D$gzhdM)aovYS2=7Hhbw]4OwnV)nFao\Q=^:^[nK#/$;whJvaQQ U"'c243?COKnEA?kUi.;_b*0A7W_k$Jsin8)OVv)Ojqt46RXFsBx([zZL9O6NY0&J U")7D2??s$^qjC2P>Xh%?H:e)U?u46&,pIoTQr%9QVoBJ^r#sf[&[93nU3z(^A>sT U"=[/C3>k2,'qEg U".W'r(%ay(E>uH>WgS#Q]RiiscI5[u%3gN>q[UuI;Kq?.bia\#bmJT>MHT46VDD+ U"d/IU5(:vFi2-wL+c[&JWSp:V7pGcK*5iLE?vY_g_eSuSK.>8[K\TT5r'axoT,V= U"m(BfWMIq=AB_-jh)u9f/nol:KkPO^=+Pd)d&[i]F9;NJOWJ:Ys%j]Fo-pcxRQcL U"cwj\LqW.QNan;zT[O(Ne^#_ZDs(PtjmqV:2bVInrXNjk6k=m\)b^gkSSqF.^SlV-810me%E3^(R(aCr[>u. U"vhkD#w'c5?phNeuvALfh(M-MUZm&2X,#ZHHs<]s3C%K.uBji[OR(gw(%C?[6OI7 U"0/I/(*by7wNCZs_r]TaKg*EankdqSmM2fB?zkkhRbl=?.U)=s_B0GVal'KYsW:J U"]#%/n[wCB#K^LIpdu;?Jk&-XHWa3:nWkm U"D<(wm4dz)c7Zuv,7YcAHxaD.ags/%JvnsI,ZcMnn)agfu&-JhMl%s*zEi(CQv(? U">^yQ3Rx)*cWqw6c3NWMNCH+Z(;36<[sihlGCfU-PcfX((u+W2cGRC$EaO(?2NWU U"Xk+kZ6p_(mj:;j3.6T*UbcWJrdgfw42x[bN,8G&zFkCOVF)4bnBL.2q6+rGLN&z U"=s6bkhS<[$Q2iJ'D)puu)x/:&w5GNne%bUSRFpkqmL6^U2y&^#G1G'WP?v]G U"?[yah,aCR>\7v&oRG:C$RH.r0ng6xP-COa^V4ye4a3hl,Iu,*bn^PtYf)gd0N#: U".TgPa5?cWlyrDl13(&1bM0T(LF^QW,.ka0nXZ_6c]?C)%(Y.geoCQ^xF_VAn(8o U"qtef.De/um_J29/\>X,a.h<,mF2;M/x8'd U";W9a&(i,oM07l-<$dD=wHl_8?5DY4J%cTIz)p?VK4y?R,$(HS^Y/HIr5%[##kQ4Q0cad U"zO1d?9rfP,Tg:X,wfZfiLjha^,#CrXEKMzJ:rKE^zWx(r\T2+j0PV%j$;deZBbi U"wq;*nno_/c87$R\_VW;qFe'UA__w%64enO[6lOg'.-eQj=\5(>SWK0%*9,f%BsW U"H*(=%gF1oZ0Kh(NG^2-EZ0/SH&%TTK*VqGRQaBVeCNiqp,0(=8($PimA.]$xnz( U"7cZJ49[akfhsx&P:t%6cB9fndXQnv*HdM,z:tr[I=T76G*n8_](z*OY)D:[U#Z? U"*B]ePMt0M5aE$v]'k'GV*I,Wl'7[i_En-.27NT6YNyRRj.=oFw&$ONi9.+yX^+8 U"yfsb:v\FyN\Ky#;U95J$NG(NSGHNG4HNG0YyjWwf?kyjnFin9kkNRuf%C3+PI)4 U"%d4[3n2/2%4lO,)HP2o9>A(bU5lnYJC'c&[xk\lx?U>yje+y\2y$\\y\8\y\RPw U"W*%j4)$cddUzx%,up(%)9%%%%-%F(khM)A6Q.X#4%%-%L%%4#%%%5DA>oVL$pH_U_4Wa3qlg>43bJw U"?Vg>kvT1XzC$K-qz6K,9jXNJ\hH'iQRrXSL%WcJ.ca]Q\hR0LF),0X-\v\;WiD= U"<:vFY)fhtD:bF?t_'FmKLw>_k5H]J_\mE&qQ2#H?LKJchi6M%Vf5:2ixIj?gc'v U"IalD9sn/>hYEn4/5<$8eLIDvnD;V5[\IM=ntH*QZK=hVU72DD;mg,YzMh,JucN[ U">5??MPG*^5iGV7_8Cdn2tUaub]l9?eYqlH[=vAXrl:_rMQ$fqm[_dB&oQA^5&r$(vRMv]Nzc7$W8Xdp=FmP(:#&KTD^8p?mab(w$Hm3DtVfS8r U"+r:t$7uKKp.NXK$m7)eC$iZFN.f[:FV.\Tx4WHL2yixKJFT(djkoLhPY8:r8dZi U"5xXpCx,Eaqsk< U"#8Lsk(=1#yGZWv4ulOEoroIHoco%DG/w(J9cH39(hf<>X2#Gb9rX2?tr$7p1sX# U"oCON.Qg55DxmM-I_5Tr+HySQTu'_..lBY./^\9gz:?aIsQ?\LL/?E=2<)Jb;k.uuO&U6T^mkXwW]YgC^U?z%YL8^4Pnn5Nkp U":8\2nB#v/GDgp6&vJ,f8$O2WqCDn>T>N&jOo7ZniQ7HhXn,nPXqLOQq#]NrtVpX U"7AM7LHw^b#tI+q7lKrls6P[b*2XB&k3XiIZt-aJvPr].LZu,9tb8#kpY:[hSS7? U"uJ'V1^[cwu(prI^XvEEgzOkzLNs$W)xlDq-U8cs>iU6ubV81*njDR/FOYPRYM(G U"n=M+BhT3Q'wKk.$(T4I5L8+zPC(6J:0P3.]7hC)M:J,Ag>ggj&\utX9pAWGlcr+ U"*DNj%ca1iQ2r94EUL&O/K9T)Xhovb-xB53gFN#HdYr_Y6tR.L_HSl'l)hJc=pQN U"JEWtGV>h7>>\la\693EV\WSi+f=UZiLVna5CEi3lS.M3ho^rV/29=Dr+,mE&*+6 U"bP60e^[?p9;fVu,bcTJ&EkUcl7_9&hlOFhPi_e)dceF[O^K&c&Ll60qgb?d&Mih U"9OsMY]])i0zx3Z&6,#AFb?CT3PT)Wd)cjqon%XKVf*Ju4(Wd2<87l)LX+ul*vo8 U"rL6uDPS2mljMPc/MAiLC9=?jzto[''C5ibdN2g4;x$Kq&<&(l6&\4&Gue#f U"mP>p;FCMDrkC-3J9_jz:#8$]u/O36t4'SkhUYRW33y]hXz-,PQX$D&uO-sc&:4\ U"Dtx'jhp[p,.VqpfOu(,,stW(+&M#&oqrwoT$5Vc\Bpc.FWjqicP6N;Aj.AiJXTZ U"5E%Ry_JsoXpKxrGLCDP4cnbdxMXCqx[333Cxe37w\7YZZTGljqRmVjprN$;9*74 U"Zx#6LfcoGmDNg;^:M^w*WC>6SnvI-1%QmMf-2t2.2ZKl U"H-eqP&w;kMs\iP8WO)Xqj<0=JRrBnK&.tdtt-:RyOkjFu/X U"uYCs^wx2wehov/fiq.9#[kbBO0NA; U"kW8*duR*$^pLDl$Wc.J_FDb[gAhRVkwv]Y4TbW#w*y_R(FU-Ufc+8fn$h,mLqLw U"Dr3CuAuA\w#KuPb:v-ApL%Sp/XV/iS(0[A+Y U"Gz$ky_<7g[/=ufAFDY.Ka70MqW.Uhj+BJ8*16m$h<07cZ)2^9I8T(M5v#o[VofK)]16iN9Y7Dx_O][F>dQ\4P[S#r>8[[^*1?t9F_u1zpbv1;t4_9,VBA/ U"s-*Q(-842(/0WO,aEv%O83lEVqIDhO_98S=qCwI03WRENbtqpV(=(qoET(;^PN:e3R3>)Q>?g'=*cvG* U"*7z*'$s1)3A#99u'4Y'KF./8#MG&e%EA,-)%6^k>.ELN0g?aY#Wg[Y;%LC5 U"0VtYVT=PZ)9nEPFb,[i/a#%e$ne)Q=iO=A[,U<2Y/&n?E))E4k_6W?fE+hT#(vdki' U"ZKX5K>YP)LHe&\o,#lvgpW'W/2x)C8q%PA]yn0].?*tg)\YRX&v1>8EBfp$Z1Bh U"z(5SW-S'ldvz.J%%SjTK5Yl1Fo+9mQxGtB U".egA>i:=s9=R(>L.%17OrMd_ba/(>^pJ[cKNu9p:amP[E0XfLe6R6-U^P4PM1'% U"i?5cA9yGqYDpLUhwK)N,b7^G_-q0B)V4t+6LoI:R[6lU=;x_Epp5^T9G]/LeiMp U"Bd6U_VbQjek8+=?,raK;'fiO'JZqO'G-i6KbO]tv%W*581ePPlQi.\+%e?U']g# U";SLH[x86DUXiO9a$1-#-V<;OAK:C'MMJD7[s(%a>gu.YJ,F.+Ci00#<'3.pouGf U"C2i\STk6JenaLJ)ez3I^JHk-RrvE<+rXLtiH('SE]5ZQ::$^9]$5V5KXA16bk.? U"r5l[?Z6Gi+Z1QC2DHVG.*&l4Ijn$5?=0)SU'7X.ICJFSAI*o1+AT.*T U"P<:TtcP%<>Ri'd8pk8_[11.[t/NM2C U")GqR.W&cE<)Cp+^i3z=.gwmh_wG[,%6EWyQ+akj+OvumJ^p]ypJ2;97>uLq)W$: U"Q)Qj;tS*#Ic=*B2D;\;O2J6r,W.)KDMISHOj[_NF:oCEwFKT_OC>2A&pbBYA'sy U"?)H'+>:l)Tx:E1)GaJ&l_b'HNMQ\/v_mPFdA&1&6m2=R)lBl\oKqo+X#H_bFMul U"a'Y/BPm\[1Q^Y>XJXi33_xB^d^JbmrI'5GQJtU#qaHg+Fl;+rG'_o9\7z*7].wu U"Phtf>4-?Pf[dI$7qiK+QT?S=zDHogVfJOAD$U7P^C8msv1l;KY[-'0L5fm6kYL& U"UHi2U0G$lAfF&R0WVld=NKGm8;:g2Ei]$\gLYs&#P,]\)PI]F+'YcEXACWv3E-Q U"b'KIIL3LUql&$(F$'AjSOhr=D4oaE'$]X=Dr6J=S825>f%r/[#F:uxR\j U"tGPoEYG6wiWjG/tlIi$gQkN^t]:SzR;eeQ*4[4c(EEc\4?ph_Xql$pNxi U"pM>Wjm-f.m^?4qRD0 U"MUgJ4R-vf[_Jt_=-i'oE&>Z&d,bw-qMJj,wjrt7OS/3r1*$nlGEnI:n+sn%:%hg U"7f_-I%#9:\/g?GwNwwfOY;fM7wiHCyz+y9T>MS?H:U6FuVoq;zha544O9]G'Rg6 U"MxQLrV]L&UEsA#u20q8y&Wjy0.Z9D8;*8cVV%ah;V U"uGFC#hj)&kfwuFVd6p&A'i%7'CY&NwB'eqTnm*c**fhDRDSfspGG^s+gse6P>VD U"niu71L U"IDtB7mMth#8>?H$s.'dLc>UrNZB+TYV7cmh\(N+nDLJj:m-'0\saueB%=EvncMJ U"1u05rbCqtkZHw#GbvCAuXm6ZHqM4trh?#7\90cjZeMSzpdI^DqpcVldCRXBXVQzYd-%qD9(5WGkFG2u,^)%iGO,Qc5VHrnF U"NhQ'Y$[j5C9TC&YsAgc=#ve$6WjTfmS)-n)R+-5ONNv>HTmSKDcvN=4e[*1A1$u U"_),A3ZD4^AY(xjBlMauA1ufF#fmgPNG*[U5Q^u/5/-vpp\n;&4%3d&-^WpZ,zr/^>+l7pAm5 U"s5BF.Xq']?p$8ZWmp8'Ws?hn-CILfGx*>L):*TT?[)[3_,Th8Ps8&eHn?bP9wL^ U"DPN5E0ujI8k;fzsgZZIx>n8S=q%3XulYV^W=$.7^_g$b&ox U"sP<4p8.bK(25Kox_tsNTf>ljPSQko_T(gJTHf%eVH<7h?t#w/&\M+9nbE,qH3e8#=0,]5( U"Ih'SyRe9)n[Gg=qrH=;*LHifDX0]:6zdE'/6]aa$Ct;8EZC:ArHaBvs6Ju8.,Q7 U"t0)YBI_r:j()ORK'-B:$Ej^JL*-4GTp?P,Kis?.A/mdl87k,gE)'JqpgY7ruumO'>,Yc;,qQFL>8p)r#om*)=NKdi(0c* U"H]DNXE>\Ade9r:=]>#JVwXqshywbj'j*MFLC[Y1Ue]#t-Iq'w#]5:12ajth#=Xg U"+EkT>eS&9Pg76aciJ;o?X\P%H#=7p.mS#ccn456$Ei\bx>BJ/9f-V7E#:zv<16H U"D#n#?bl]Dbwd6J+zcOJfx1[Rd6jT1UI]V&m:B19h13KOj:rG%b=ruh4$DtM2AOn U"nYqtu-cJ67CV&ui\_8.X6-eeg[AkejLn%%x$n_GD-wtd.SkxY88A#ohkCmbYbt* U",9:=?6Mu?[8l>NC8%%up()%9%%%%-%FkehMhV8H7i&%%%X(%%%.%#%%oD2;80S2 U"E1?zjwJ=S.U9LlB[D5H'RKJW7&z)O#45mfMx_7pMCbG#EAtZ\QfA#Ou'c8h^?vj U"DphAH*cH6L#5-8%5sQGIfRiwj/6(qaWuZZ0T0r*JuCEE5K?TW66(gKW?d7\DEEu7YXt5hG9flBATp0b^uWw=aJsnqtS;CiDk?T'js8Y0VlqGhXhAEWrdn U"=O]'<'$w&&4:VYTVl)5'SyD76EQ'BosR^:(>_3JB$y9U(kS$u1wxRz3R]p9F?G_ U"m1,L1:I:+ffeO.P^bemEN[+yU9/i.*8DBQl%,2?RYPp#1v;ORIRDfP_QNCiyamo U"#l.q0#JaXS,=zH.nE-eSaXO#'PTv56g^6LId5kQvv^Z0avy9Ol*UvpoMJuG:Y3[ U"E5O2RoLAk_IN;J8=[(]9>N2?I:2iBk:9Dq1E4fpFc-1T^ibbWCdyWp(/GC>c*:R U"uk.3jcGi-V4+E+:y:(UZ[Dprh)n*s(&R7wufbmGKOl,yZ^wPJ4)j,Ox&u%p()9% U"%%%-#%Nkh[M/ST)Wj%%+%w%%%%.%%I%oD;D80SED1Fr]%$3'V.1iJIHgY(slAH# U"//oeC91Yk/610)8(p73hH.]/WGbbQXHHGfz]fdW^-RHLO_-,Wu74[=a2a>C3FUf U":/?XAe\_FFLPga_0qv/-1<5oO,gp;/24S8Lo9RfPfL]R>RLt2h/ U"sLQf]_[0G9>$$QJW*a:M?8,8a9P/edC6I'\?Y4=1gP?9U%,up(%)9%%%%-%4Ckh U"M^R_M[i[*%%&%6%%1#%%%*'937Tc24[9RqR'f/*'1y>DT0Y]GN6vd2ct0eBKzVrEAMhk66AE>iA1)Qt U"()$2_3g]=nlwp^([h^YAYZTg'h?Iq-Q'S/Twq'8+E1_>(r8%K)m-=6BhH[z.nkp U"g#eMCJC95PF&A95Xf*;5dej2.)Li-)Vf?GJjn2rM(X_ovh*JxAtGk8)5M.o U"7a/m?Z>43m2)j79&:=.Kf&Nnm\Yk\D%zBE8t0UYd;k_e=huo2[WZaFl,F4.1Z^d END SUB SUB V3 U"B1Xl=>i?.YN<$*Hg<&E._D2-p[g0M U"ahhNAl+&84:A=5-8^I4(s??(I/d+b0(3S7>%21d6D='n1V%y6f>==go(Z4YoJN% U"Vt4P'm>:lPc5#qz3[/ceZ%JVE:Ik)_2H9%)#G28uk#K?asV.he1%m_Rv?Su%V72 U"G3]T1_LiY'<[pCfiuc1#eGdS4'jC#3X$xL6k0s'wP;r]d]X2e3PZl$xga*Iovy/ U"Op_cu^55$.][.gbiC#E9g#IPOWSPJ%]NL[C.;(lK^un/Pai\W)5#(^6Oj U"Hevc$KR[=$w0UtI:3jHY>CoLe]qs1'CvTEVGs,Vu?C1rr-+vC2M#./x\hWsmT#f U"[yKWqjUp+*2'0oYP>]PYezPGw$eCrn*_*3#W2PX-%5f/< U"HSM9Gt?N#puir5,c4gj_>6u4bjDVrKDLd3Cm\=JZMToX]2)UKQE8TzjatXw:)l[ U"A-ng:vG554>et1c:_Lshu,9NtS([[qVq+cXA8r*6-LtqN*1r9g2k[At6R8M2)Qm U"m&VIIAMG[]2lJ1lYc1Z[#hmEVKsk#eqephDEPP1JY.77Wf&E6RWDT#G[+wzF*9G U"iwSgsZ=Wh:(fq#zV2*<-G?h9SmuGXS#sYn'j$F=r^+pbmME3E^7Z;S6NzoG?$o; U"+[G=e6*R=,c:*D/Yl$\6TNU1RXT?7C2P9^YYCZPqjuRMeDBi.n^Zb_OG5Ktp&Z, U"Le,[K,;J'[KS%;>Be(70lUy4aPgbpzNQGvGrk2Z#B.F3OUm5i U"J8dP6daGdACPNtnwu)(u.ng*xyYFr7??J[-v?[u2sYLwp=4L?RxfCX4K*JKv>zf U"hHNo%%up&%'9%9%%%%-I%qJFRM['>*Q<-%(%a9%%%+%%%%%%%%%%%E%%%%%#%%% U"5IUS1<&?up&%'9%9%%%%-O%/jg+Md6p&3k(%%%;6%%%1%%%%%%%%%%%E#%%%$#- U"%%5DADCS25AU[+%%V%6%%1%%%%%%%%%% U"%%E%%%%&1%L%5ADJCS5A&Gup&%'9%9%%%%-O%/jg.MY-$%M-*%+%,8%%%0 U"%%%%%%%%%%%E%%%%,#8%%5DAO.0%'%%Q%+%%0%%%%%%%%%%%%E%%+%DC%L%5AE1%%%,j%%%4%%%%%%%%%%%E#%%%1#L%%5DAJ=S82&>up&%'9%9%%%%-#%FkhUMhVH+7i&%%%X(%%% U".%%%%%%%%%%%E%%%%9%o%%oMD;80LSE1?%up&'%9%9%%%%-%.NkhMR/STW&j%%% U"'w%%%%.%%%%%%%%%%%E%%%%Pq#%%oD2;80S2E1Fu%p&'9%%9%%%%-%4CkhM^R_M U"[i[*%%&%6%%1%%%%%%%%%%%%E%%+%fq%L%<3;LoD;8J0S10&Bup&%'9%9%%%%-U U"%T+fCMGYp%Nd%%%%k&%%%0%%%%%%%%%%%E[%%%*#w%%?MA428DB4S2)DAup%*+% U"%%%%3%%3%B(%%%>x%%%%% END SUB V2 V3 CLOSE:IF S=100AND 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