'=========================================================================== ' Subject: ITERATED FUNCTION SYSTEMS Date: 05-31-96 (16:32) ' Author: Robert Seidel Code: QB, QBasic, PB ' Origin: seidel@ifk.uni-jena.de Packet: GRAPHICS.ABC '=========================================================================== ' Remove the DIM in DIM SHARED to run under PowerBASIC DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"IFS.ZIP",4^6:Z&=16074:?STRING$(50,177); U"%up()%9%%%.-%svn=ETB3U0B4%%%zE%%%,%%%%nk#xSy'gyD(Vb=Tm+T7L9F\w6 U"3)rK[EQ(skn's1oQ*_lGXjD3qE--]'J[/xC$rMpj[2oV>inb-^rk(gj\^'nz\N3 U"Rb2eTO4tvrsz8(GyX\BNf)i8,bdOru55x(LN%(6lFW.SSyQP8\aK<&;EyN^hlFE U"Jti?Keu?03oLY-D=mh<$,j.?tBClrPIZRMd]tvQ'Vn7l2/gP<8'p2N%bbyZbHVl U").y$KsQ^FklhFl4%*W?f&+QH>UZa'.S8z$xoOpP( U"N^H,<iGyKJNuI/Fn,1N7CFSrAe<;Ww=Yttsl: U"j3ZTg&ht[3OXwp-V.+pEm_7n\bcXAIes]DHhm>CO5Go,Zv.%'gcmQ) U"UNESyWf,j][jVqdK:k7ZsGoZ0% U"C?/?M^KZ-bK3l'v1bW-0>3Q%Ke-qjyI+$2vXTQ'N1thlvd+Me94R=Nk\YhhD:fa U"c7_W^(WYW&3L>buTXxk2c.VlRtL%Uhty)9GH&P%hU6S/4m08w.M%/QBj];ScWcw U"F=Fn4o].#a*VI(<';=,'Xt1vk_gdSG'h*F&+0/9K2k'Lb<*vLcHFBui&\FshsXY U"ZF/4)8zw)byOrnv/Arm+H0;>XIQYoQ2xTjUK8krsChMNqd=(HAWu:9OAO]-/%4Q U"T'_HW6;su'cRk3<&BkUr,mKP84420ZtMM'1+RrAds2OdbDl:ovKc_O-%FY^vkI: U"w*7=v#_M9VFX$7gK6.XWqVM9+8mjucq,Y?U8CTG#ED,4mAPtXc]ik8k5$9mYore U"x=%\3b/Nd%'^68J6rhElKsxL/Z7 U"iWCb+Bqr*V+R-klGZR_m^g>,'=LzTOssOsnJElrYh,8p'xh[YI%Q:]\JwA1kW;Fi3'I&4BD.zB5PHWtWWK.,#ry5 U">R2<2uWGaE1Sc:zJWeWMVg$h78adCo*6L'3mz99g/Gc6BYC/=3c;X\sTk4wVp4Y U"_mt\8#(Gi722l]X>Zs(?Yd:T0UUN_u.6mf^?Uc=(*?Ssn'+gi[y4$h[6;XshXT\ U"1uADd#V/EsI7,]99%,6GZY)lcnkQXj2OBf4b8L+)UF[l(mJVAb$qm8QjbMu^TYf U"r;T^rXNVS^IU=B<2a;TVrAEqfS*.]$4aM*4[]*-k5XFhN1<QU$II^#Y&lm=uS0Mm1/8J3(L?;VXL$zWi+JC208\FhH#m_>/eX&)%_:iKl U"dNR'1(NX8u[F#k0(32-hl;m_6G2-nbLxvflpR8uXT1aHkl*],6=Sqpl+D.0^Rz+ U"2Xf=$$i?7Y%>t4Td?pjw'hfYU06,^C>ZW(_%RYO[$8*;:XmXkH*EDX3K$.;NA,4 U"(?\Zf*']jjE:EkgY(L.SO8*_N.tx7Gy+B?P=b)R,.e=oom&c8[R?txJtbUS6X7< U"lunwYa3$0Cd\8$ou)/'PQp7fuOL,/)M,D6Ty#:a$Nf(Xe6z&,$r842E;PEDU-CqqBV.O%t)J U"&]G-p.8uTBVuoT:Z^t%%'bT1_>;Aq[F(R5tFj:C=6VfG4.W+TU34z U"?lnn#0MIs=)&nv.E_En,zO5Be6lX8QPyGQRU1%g#X_;j:d#U/jFdR-H4S?b4O:) U"G1TE[Fk/>Q4Mo_Z[m6&kTeale0JjfQqjc)O)ngyP;,'YHLDa)cl(jmJC\S6i1p) U"3e_[O;j/U*+b;4NSDJ8(cThCZqGJ54*^dXPRTfwu(eQ U"MOBjJDMI2u1_tFOI/ek0/EFPF.'I^btQD1K1LU7+D87$s);Co8w>.X;^V(KNHIC7:['j,k%a>*eGqHPak_u(< U"m['vjj>:G(*N8AM8SM:u)V2gQzC12b$hc\&)7b8&X*s;D?V_.ZtN.9fifxjmkES U"O-dOsabg*L,6O,tsPp_zvWBk:LzbS%Wr7ew$.b>uO&h91g+^BDsX3j5W]PIBr8C U"2+d\Xf&u>=_[fpNnS9X(IVgiatGROCAPN^S;]_gA7BXuP?Q-oYkIpaWJyw<[)d8 U"ZbARD\nDD\uA?iur8ZKn37Luo3C[/2^&W(dLJ#(8Clf8dMruZ[k<&W'$qI8)QQF U"Zh(CIw3.kcHo)]37Q*3/+k9'HTMZkj]S/A+k:pu:,gfc)WpH=Zbk'9mD]YGU3H$ U"G9b\5QDZu5uIg)Ve+6b6qDJZis U"&c/8t*L3UDmVdf6c];B>S;XSuhbkUN:[,&O50Sz+RzwNGCiLNFpcDn98_J^hWpR U"C(Zme]G1;AV-fqLN6tGBtYA_kpO[l.RR%R*cgvjUrq>$1t^,vv3> U"R(tembtR?8bimK7bLa(bet,QH,R.7DSs]tJum:cm#avlmXCi^9.3pk^+R)uIlea U"ua:e_M2g=+IMf[i4Q6)&[l3hQMOhMDY0HIk%anmEfcnibKOsClrYdNBn.Dd;Q#F8:ra)drXPC)7IeQ7buPDzT?5G/u]Lsvc2c U"?SAndjfP1R]4VqEosEd&T_wNI1-:?Ppy*I-bit;ZPX^Gt((&IM<4ttK;9>T2oGX U":HtV<3#GEcLWGpu/p>(3g[Dfa/8JGduP8:LL([Prj*4)tL:A+YgD5;_73R'& U"P*f;QlIZ1?Dp*j6DfI8kjv7=PYV3,(?-A'uobF%8HA](%:2x\sv(Gi#olU8DZWG U"JDsbf4z$Ti&n_:?_ENTT7g.ufc(Puh2]6v.am#IQcoKi]kAPpXOB4&_DuF6#GfQ U"bk#q*>^<''N\L8tX'pMx&fJ<.9Ak0^6f6'he;Y6s,bDrun0dIy;d=tTX3=ESmnY U")R/>.Q1KJQeEJZS/ja3L0>=T,nvS:8$m-#Il[,HD6t\l:Kt':&UdEw?6O0NF^o+ U"r^-AP;9+\reP>&cd\B2xIY.OShP)T%i&_EQEg\PiBW3?o-+EXO9*\lTZnRxn;^q U"tP0iFC^w6eE1:ha-71=,:sc#$ie/E*wJsC0)Pj%\#)IW4%5bU+VQC9;EDe($A:9 U"h]Bka.gTzYs>6u\ufT\DcLx>Vk>fq/V3w?U)$4&16xKB#:idJd:k8;l4S-21dK> U"LcEqgefUjQ9pOm\ppCEV?F_R;DDOv6WCf6wA^I/U<-d/*PfJ;Mc1rpg^IqdcJZg U"w6Y1J4e&FB.C/5aN%\V>]P;0fq,?6)\w=nRlg*jo<)<>MU>sw&ioD>M',U:=VZ% U"Da9;lgJ=gyOd9;qoB^_8n,sYr;OI U"65\&kr,FFL=cs/SEn-ZO0-C/g63c?bK'B%Q0e%eIE4U&[bI-3U/UBFj?nNvN(#jKV U"]se5/ky6DjF3l46CoRp^#rtBx&%up()%9%%%d-%_*oqC%w7OgR'.%%H*%%%/%%%%gj%shmr%Sgfx U"S;zGGEK>'q?8AAC1(0]EJ7;0u,DMOR?m]K-JYL;)n;LJ'zXdtiDuhXY>[w=sx'#eZ'3.r/:vHm-752d_%'>%;57)e%M&KsGLf?d4l^dVntj%F>W$B U"/BW=%o,RBr)C)K&Po,NgBo;2;?eaq94Aj'Z#Y0o%Vj.B9nia/F;KeU25:?&EWa> U"G>OCEv+Pg(e[AaKE)MAb38wLw>PD&>*H?<$p0IWr5^z0u8eq[cKkmsib>>q0cD2 U"X3GtW[Wi\P=[DlFO#,TUIcr\#9LY2#T=u/p;KVtM^ciM1ONHcR/be9CQ6'8^w%+ U"bOr?CCJX+=Y+25=G+D7NO$47nK3O<&kB+]\\mxdgs)H(nZu0%68Ap>-1CrS(&kt U"zNC$&(03-+Ry;?f$_;dY$_g:KJ,M;tmkNTiO;Y689)D3Uwg:_<\Y6UnAhbm,(HQ U"m9B=mbpi>_nvqG8m6;\mbJ)Vb<]w2fDe-F($j,#/e#P U"V7zX'd.V*TwDea9X*xj.m5MlT[D1v46.3$8X84wqD9Md5XQ?J-.**i6bn U"vH>J5FXz\ZDa4mUd7r67RtDW>r9^IlP,=].M/qe(OWC(9D2V0 U"C1B=$uHZruqj%N9TLhM24*PX4L^1=&<6nYOaPF/P3HZr:UZT:^4s-#Gny=5'g79$kOZ U"07i[]C.oy*RqNRo'UN)3CAHO:EMEm#-G>Xa9;9GM?O-an%j:t59EiF1gR&SoMtp U"B?R13iX^XR%Ua=Wr158,J\r2Gn7bU7&=9-RLDBquX:(LmgbPPr$vMzm)Y:ZWFkU U"OQ[uGxE>FmPzXN\)APQ6uK_nJSisg3$c-78B:BPav,LE/Q*W&.JD-eQSRD6Q,G1 U"6:\lV#>:CEjGE;h&MTdomCJ8_Pt3BIb'JpTe9F1]5$1oVdrO3&:iO;),XL<:;^N U"nV$A;k8%bw8DV/rK(D.vXalecZPrkX3)h?CM--,ppR&;8*VasrWTOACCXI2r1rW U"kW*Mc4?jXEZCjA8br$x*4OiTsCrE U"7')yLx#5LP4ciZgE;5hFNuJp;DxfTXJrVA-F84Z,?hqi.l;IFw-6HN/Gfe_RQhm U"CI:;2Zgx9=Ju91L0W:pe:wT3XjqW;1im&a=uEOf9]Zja-7ueVc#LrXqSD-iU-qU U"EmBVSq+m%::&XOPm4V8SiTI8Q1;uN&D29Gc_=HC7)eB4QiGzpTnYH#bUGtSH5'H U"(X>>^2Y2)aW^[^o=#.1*=O*1WHdmL\);HuOY]GGH\eOa7dBU/ZB^)podDnfg&4F U"S$tFUS9kZ[:\>FQ3.5kcqDr#0U;GXQGS6t6YZOvTGw.aO=yi.QADK:.:0hI)+\H U"..]rAM8+>wXUUqn06lY%ts]U1d2jBB\-W]inC3F1cj,sgO(LL&SsmExs;b,q1l)jKe\gsukyv_e'qZnwW9[n U"tcK=Rj+tKpqEF7=pgmA^rnLxswMLJ-nR?20&6ZAV5TEfi^p=t0Y#&X%pvm&0 U"&[*E^fyz*5\t;Ih's%rE[9qAbbVf0P*b.w99hM'aj_SdL\BVVhuKP_TbeU8_l5fbVO8(:L3XON5T]18;j/JYNcVhM?sOfSuvH?3OFCn U"%UwaCRcR,ZmFY>A'O)8:%dKF]q)P'9u:MXLHmad&ea3mQ[^7.T8K;R?nP U"D=O5OG]cA+u+0h+IM>A?IGqQx(Ave1ea=k%p$x[3 U"]jJ%DHqMB(.2*,1Gj4iR\HwpdgufuW#AeX0keP9TO4?gPmI'2 U"q:'E60g24l?kr_SS]?;_QHkTn^E#^h/l2fuvqs/d%2A%Y+T+kPHR7g;_QW<(o^k U"he1?L9cYWf6T\;#O0;A-RDn+]t+u%p()9%%%%-L%3N1CDlM^,ZD%%+%f U"%%%%0%%%%iwf%hmjs%Snkx&BNoqoGmF\o^W[^=WI,U%WVU\]JvUI+X+UY9*UKv' U"I*W2_\[rEJC9OqC;5KU&e;ev%hb00%HHp(')'hh#(X(B/_SB0JB8B2&_n+eDHBH U"_Mgx$PDtT*'hpXh*DTTJg)8;3)^;/hFdRq\FAOKN'Ka>'iMi*iQ'f\YWmZW$^0K U"Z&%&z\*w1EupFLTfXQ,Q3gvAM.Tfqv*)'Cp1n9Jug)2\$gu)#Suep%QdtF[MdN. U"&wiF]%ZXJZmlf8WaIW.%:PQ>+W05VaB+5.k5'.+-/eu;13L*a)WCQWYS/aen U"=AiMMwgPsv_OIjAHo3*d3LIes5(OsZ;[N)*d['*9CHkl9QEkbwZ.o9Qx#XxwB%9 U"Y1R#RrZH'2%up%()9%%%%-%2cT1DcQr-6&^%%%%*&%%%0%%%%kfsy%fxWS#nkxB U"+pEPn+QGqrmtrCE%nnzUc[^W_9^WIX[zuuI[vuUI%X%X57Yi;5NAVWQpm2[.1=q U"7V[[Z+kDC01C.?rZ.(mZ&i/RN_WHK,%a*?I+e7\(&u/&M8QHCGQ%ZY^kC40ODn7 U"QnFy(m:Qw7-/O*d/Mc^]$N)^CLt;dIM)v5;us_MJ7=))Vi9kA%&%up%()9%%%%- U"%1QU1DlD:yt'&%%%%a&%%%-%%%%kfws%Snkxq4^:CB;U5SrhP5<'UyUJPj?a-dj U"/-TdLu[x\.-R=UGGej(#j*jpThVFtKEgwg9V*i44Nsg#/P*C_pPR7%zqrFg U"S'502Jzry')Hk6O;y[1AM1_luECsNf2.2M.*fsmsT[1\'Tlc?MW%4fj9)jB>;S& U":b+vkoffb'/nThhqZtB3vQPCc?i;K^dA*JEO2\?D,-?\R#.,lhTce/rD6]TmF>% U"8up(%)9%%[%-%)[aVE-mO5#I%%%%S%&%%.%%%%k%jijw%Snkx(b\btBBqNECi7?'<_p_sE'3>U$pnNW3EF\T5/^:>-KQ9W1,(k U"YA949Tn6_\I:/&QUA+?i4Y$AK\2 U"iZEbKl10pzc>POCfsN%NV1\>jgRgBS/=Dtwd2E'tsN6$WrtL(N<>CflC,<;E4U( U"ieO[Re8s:.&3XgRL3lY\jxGEC%a.hG5REBZo4YHhPb.1AMAO_%k;,b2UlB9VmQ6 U"DR,6?-NL5+E#yFVfOmTD\sv\=1;G\(lc*bS;o$cQ)>WxFc1v;0'Xup(%)9%%[%- U"%R)#3DfDkcHb[%%%n%%%%1%%%%k%tsyf%jsjS#nkxBHDHP8oBp^^=W_^W'IXuu' U"Ivu%0[/7XI1XQwU7'p:).REQ;6acp/8DvMP_oz\Z-^KZ U"'o4lPQ%Ai>>(NOMhC(-So\Z99M#:WwB2AaA7:pH2aNVQD,%7pwXF:K?ZL9QQDAP U"'/4*rH/f0rnxjRJ/:x/hNx^I/?Ueheui5&+%up%()9%%%%-%._yQDIDk<$'8%%% U"&z&%%%1%%%%kzjs%kjhp%Snkx;d\:s'8[e*Fb-(]]N6&,(>:tb*Xe U"w:d^J3OyyfR9hK$xnWOr^.]5\jrzWBKD9(t3C]3BXIVxVc]qma*cEtcHIj-rhAa U"IJU#-4R]n1-3*:eTDDrz)$D<=rP[\,M(wK1bPEk:$\mxP/Ft U":]0D^bg+i7Cigj'rLMF<[aO'm.fSxLOf4q> U"L.A]PzY=RkV*>G6G#e3EV;Q='(.rpT5GiJ?JRZb/yE'ZB6%Dup(%)9% U"%[%-%OAYiEXaN^XL#%%%6%&%%/%%%%l%fwyj%sSnk1x<_V,:-Z%u?3'>u#iI[Ke$IgPW6R.;S[ysAfRp=SudT%up()%9%% U"%#-%>b7iET:7&ec%.%%#&%%%.%%%%lw%zsiS%nkxzauDszCkW6qXI^MUC$/YTR U"3$IUh)Reh9yu5Hcf+/:lsng/SG'8oV5d)j=%$$l:,Osqi=\>PFb)NT% U",3'Fjl?NEw=csJpj%.up(%)9%%%%-%T_lEDfq1ZMC[%%%A%&%%0%%%%p%thmR%v U"zSn.kx\t3D=RUj55*kadER&%yH-/F6p)x$Ct/v%&,[VYY:C1rKBx5^YP;Jao&44 U"j$dHQefsf%GLN;U3)BTv<4](IB>o/SRfA#GdgdS9eC=>76jQf\KVBxX$:kd#rDN U"_FTtYh:<&MsLjnkZg-h5v\;H6hCXkhc)uzlN_W*tOos#^NX)Qk U"h%?Nc%%up()%9%%%I-%/_/EDm[<^A;%.%%]&%%%-%%%%pt%hmSn.kx\s3:]QUa9 U"5\b+dErr:QpDwcZ'K?9Dko,&yypQLYHqmHvljYf4V+/5VPHXn>W,nR,P/&93>Gc U"%^hAJ(nQ^_s5\r_J>MWPO.xBM5sxFObt?sRqbqT,dqRQktZ]Yq$DM^>:pK4DO$# U"hl(Xe=WVV]+vUg*>(_w].OPioF<+BCPBdQoL:au;jfL U"(Zj>6)lJh#R/xd$?0OlLal#5caK?$uSw]Tpk'JR:Ykv%%up()%9%%%R-%%9A3D, U"m;&EG%.%%-&%%%0%%%%pt%wfqq%jSnkgx4]:+o=U5kUhT5c4Ws8X,s$a U"*dTxu[c'gQE6DG;jpXF8Y.j&27YPO_[qnyEFQFSBM#+=(V.vGH**w:0TnM0O4/w3+rBBu%p()9%%%%-L%Ql11DhbW*Ue%%%%Z& U"%%%1%%%%wjp%Rgfz%rSnkgxL^:+/;U5jihPvPV2x/#ow?8f(GQPK]0)[FuM;1QL U"4N=;;yOGNg0V(ooR,Stm64NW6DQe'woQHC+$-/5\2Yimj6L'#+EpRr\r7u>*[c] U".7D/3ow(]h(mA?N%'Wi/=SWBoUuhCGOa]VB-iZ0O7q\ih U"Fw*3&EFwETlPE\2A:T2yDg'GH&yJi4rs;q):933#aLxP3O)ZVy?2m8?-HP]=FIu.q..4xd9+=$O3k'siQ<2,fg/,Y9\L[gK^zY.%up()%9%%%I-%Fx81D^V0$si%%%%1&%%%0%%%%xn%jwuR&%Snk% U"x0pR&yoRO#OnR%+-GqR=OAEPZGGMD7NoFqsrG_^=W_^w+UIXzauIvIaZIX)+)K/ U"u%?I1GC2_m2FInUD93Mc2EjyluG0_HbT?K5+FElqpf_?RM+#b>O[eq[^'^Wv%L& U"DTq0u7-SOt0/,kf=aMpqT-?LGTo/2,oOg2(MmgCuMw9CvXg?D95o9M]QUp2ttxK U"%T<%u%p()9%%%%-L%)x1:Ds(P(n[%%%%&&%%%.%%%%xnj%wuSn[kx0G[qROAoEP U"GG*MDNo]FqrGc_^W_]^wUI[XzuI7v%K+[E?ibAO*6;(-8qeB.Fny.vn28J-S,oC U"YW,qV\P-$8mF=y(x-Sh&o^//'c/?>\x^^3Pi^xh:4H2aNVQD,%7pwXF:K?ZL9QQ U"DAP'/4*rH/f0rnxjRJ/:x/hNx^I/?Ueheui5&+%up%()9%%%%-%2'y1D>EXq,'K U"%%%%v&%%%1%%%%xunw%fqjs%SnkxRruD9]=U15a,u43r.T=As4Bk6U9IVK<:e35 U"1?EfYQm7N-6BF0Z)f0k?g4m>DqE-T>F2B2ON7Wq]pUpHJ:UyQn%[KyJBD-5K4FZ U"+kA4>*h33,XN93f(hOYaumpxp;_%,W=h^oguXM0.1/0C;coqXXxfR=og\JQ=Ire U"_]#h,PNUcHQ9CTa(ok=DQXCRFKj&;eCxba3YVy\bybD9[Vt%tPLt-M?Uiw[st($ U"6jRiDX'YYtO?9hn'bvdlTqEgTk3R%G36.KZ#'w%up%()9%%%%-%3Yz1DJrFBl&I U"%%%%7&%%%/%%%%xyjn%sjSn.kxBo+qGSS=nFEpc^^WZ]^wUI7XzIv%%w+e./kiG U"K*Fs$7Nc.kQQMi/eyZP,%2nU,4LeKBQN:c*Y/l^.M2NtotsZWX?A U"S+fR&SKhty0D8bISv'k'up%()9%%%%-%5Z'1Dd=Ry#'5%%%%L&%%%.%%%))&jn% U"lSnk(xZOtfFq&A]FQvi-GDTSsmF\^sW_^K+ZIXV:X&Iv7uUIX%Uw%WJOGUU'?u6 U"h#xE(w#if&T=[[^',a?;u8\K?/KA1,gI9upx(>g[ZRW'L5)/\KK/U54+JeUUP%J U"yHy/p.c[dZURSL1EzPF.MKo'Sm9tL0]x,?dG&Efu#y_5zkTA U"dmUx78UAKOo0>2SKFLg&#YC\b_0ovj.tRpBW>#Y.9C/cuGE2pKUXf=[Q[-mL^V7 U"ki7j.qe-\LMh1H^-.YTnun.1Laqae#.8IU+y]$U73^W'9.5)<^w(f3up]M+:-;o U"yS623RY3C3:x91p$c>B:Ejh\2f$)?xUY/0rwxO,rX2cZ9b#^=DGY?bdibX*dSnW U"Cp/]hE9;au*rGW#gS/mEXSf4U_Z-o<*a9o$b9p];n?kM5IhS/01va&mLi(C&R:?tAtTH+(WDlebUT U"YfF$)0[0va8\t(-V% U"6XjTFN1L^'>F)0UUu_p^AK_cnY5D'd&A=K9>^Dqi4Xj-:)qlCmv$Lo3hneFYNE% U"CPxMc;0eBG](N4>#VWm:i*z/n%xhS6R;Go=yZ.Y[<_sP'F-,:2aA)cy5;T)2Yfbq^ZPFg,Y33q/M/+/GGL2909d2+4 U"jbS+gqGPs.80XYSqUrfSn-0u(LOU)J#iq=Y;Bp3O;D(XBNY[BEduR0]QetW%2XE9%9UYsHU;r$ U"510il]_DLH3MS2+(3hl7r>FI^G[NEb[*7FP9JEqBSm5Mal[dEi2$O U"ohaRy2>yJn&(7b_FbUSim?s/?(V;2O7E6=E>bds8gs,XE'72f;4o)$tFnKXXEA= U"P9:=)s'EF=?<.+,FkPEW7V.:Fh733s#?rMu0xm>[EN:0U-,=-E+wR+m U"Vb+TgWY6*TCE>Q\D_DCR10oW9(HX4>pDdnmiSY*\q/]JsbkC\$l0UkY2iW-G_V? U"Q,?km3^(81g?:$/H+I?780'].NU)Eb_PWWn[k2=hFiDfY;W8q,)7Z#\.[JzHZ1B U"Ge85U\wGttsWmm3^5b]:FW1kpY)#0B4KW6'M&mevBL&i7I#3J75ZT(ycodLn3ee U">c8[Ap>s.QX:)qt(Fd-x2$/e6/PIp/JhPXif*z.S+96hIjn6gPPZ--/W6'MZD\, U"yKUH$7a;sq,BGosJK\UCq#S+)T](0:plRRB*C6-K$o#lNBpTe]p%P1tfo5S7)/5 U"=S)??AI5=t+4bPi8nXXK2 U"xL-hiQlS8Fus,$I,V6px<'C?yxWRJX;0-kEc(odgq7>z31UnG<0gNP5\4E9ejuQ U"jHoab(M9dQ->?LXq<&VVllEeDmkNuE,G0Sw]n+rTFZao3hhL&vp$UL(ht&oYvW( U"9$]c8o#hiVqV8iY#lINxBl(xadT[Q;U]HYJK25(%uiA2Zc[rh2T-z2jX>T0v&Oi U";U4:-UJtusPuBBuN._Q$tf?7pxb[H&b(em.F$Yz2aD34,72*)g8p>x]+ymp\?ts U"lY=)8R7l:HE=obdDodBHrc.t/#RJN%<9c/t>Uom#A':/b$xyF2lMpK6sXQN[$]q U"V&0$i4<;72*bxYcHADO:.?wmieO$QeWWe+8T-&A1ntn1VG$f?dBR$gG^G_b6A_0 U"$:rcs8JPnWUu&d8;ogs%0Q67=a$tdgNvFI%X8no-Jw_/E?GkhlqyA*rlKj[SPl0 U"jJ>W76pp$vc3VIotvIWkpIQ6&DH%L6c,x1TnyQ0TpB=AE'$sY#*&XM0%a^=ZhsI U"r<3UEDRpW7Xvp:E9\lP[[GkViGVt^v,/j]\*bWVH'>%%i%nfrf%sySn%kxup%&'9%%9%%%I-%3N/1DlM;^ZD% U"7%%f%%%%0%%%%%%%%%&%%E%%%'(?%%%iwfh%mjsS%nkxu%p&'9%%9%%#%-%r_S1 U"DhA6]Fe%%%%=%&%%0%%%%%%%%%&%%E%%(%r#%%%kfs%yfxV%Snkx%up&'%9%9%% U"%%-%2cT1DcQr-6&^%%%%*&%%%0%%%%%%%%%&%E%.%%1A%%%kf%syfx%WSnk%xup U"&%'9%9%%%%-I%QU1XDD:y-t&%%%%a&%%%-%%%%%%%%%&%E%%%%?%B%%k%fwsS%n U"kxu%p&'9%%9%%[%-%)[aVE-mO5#I%%%%S%&%%.%%%%%%%%%&%%E%%+%fB%%%kji U"%jwSn%kxup%&'9%%9%%%#-%9/e_D+94.pl%%%%W&%%%/%%%%%%%%%&%%E%%%']C U"%%%knhm%yjSn%kxup%&'9%%9%%%R-%R#A3Dfk/cHb%7%%n%%%%1%%%%%%%%%&%% U"E%%%&xD%%%ktsy%fjsj%Snkx%up&'%9%9%%%%-%._yQDIDk<$'8%%%&z&%%%1%% U"%%%%%%%&%E%.%%5E%%%kz%jskj%hpSn%kxup%&'9%%9%%%I-%2kA1DDt.aW$%%% U"%Q&%%%0%%%%%%%%%&%%E%%%%tF%%%lfqf&'njS%nkxu%p&'9%%9%%[%-%OAYiEX U"aN^XL#%%%6%&%%/%%%%%%%%%&%%E%%%%.G%%%lfw%yjsS%nkxu%p&'9%%9%%%%- U"%>\biET[:&ec#%%%#%&%%.%%%%%%%%%&%%E%%%%)H%%%lwz%siSn%kxup%&'9%% U"9%%%#-%TlSEDf1>ZMC%7%%A&%%%0%%%%%%%%%&%%E%%%%:I%%%pthm%RvzS%nkx U"u%p&'9%%9%%#%-%/D_EDmj[^A;#%%%]%&%%-%%%%%%%%%&%%E%%%%-J%%%pth%m U"Snk%xup&%'9%9%%%%-O%%93ID,m&,EG%%(%-&%%%0%%%%%%%%%&%E[%%%i%J%%p U"%twfq%qjSn%kxup%&'9%%9%%%I-%ZEnFD-f:.kI%.%%.'%%%/%%%%%%%%%&%%E% U"%%'$K%%%rnsp(t&Sn%kxup%&'9%%9%%%I-%QlJ1Dhb4WUe%%%%Z&%%%1%%%%%%% U"%%&%%E%%%'XL%%%wjpR%gfzr%Snkx%up&'%9%9%%%%-%3sm1D8gAs''B%%%%h&% U"%%1%%%%%%%%%&%E%.%%nM%%%xh%msjh%pjSn%kxup%&'9%%9%%%.-%vaRVE-+=3 U"TO%%%%c&%%%/%%%%%%%%%&%%E%%%&aN%%%xhms%zwSn%kxup%&'9%%9%%%I-%Fx U"81D^V0$si%%%%1&%%%0%%%%%%%%%&%%E%%%&_O%%%xnjw.uR%S%nkxu%p&'9%%9 U"%%#%-%)Dx1DsB(Pn[%%%%&%&%%.%%%%%%%%%&%%E%%%%xP%%%xnj%wuSn%kxup% U"&'9%%9%%%I-%'ye1DEX9q,K%%%%v&%%%1%%%%%%%%%&%%E%%%%+Q%%%xunw%fqj U"s%Snkx%up&'%9%9%%%%-%3Yz1DJrFBl&I%%%%7&%%%/%%%%%%%%%&%E%%%%'R%% U"%xy%jnsj%Snkx%up&'%9%9%%%%-%2O93D>aP7z'2%%%%i'%%%0%%%%%%%%%&%E% U".%%sR%%%yj%uunh%mSnk%xup&%'9%9%%%%-U%Z'1#D=Ry-#5%%%%L&%%%.%%%%% U"%%%%&%E#%%%U#S%%)&&jnl%Snkx%up&'%9%9%%%%-%>_*qC(5P+P%,)%%'?,%%% U"+%%%%%%%%%&%E%.%%8T%%%nk%xSug%up&'%9%9%%%%-%>_*qC8Q(f9'9(%%&,,% U"%%+%%%%%%%%%&%E%.%%cX%%%nk%xSvg%up*+%%%%%%F%F%%a,%%&G\%%%%% END SUB V2 CLOSE:IF S=125AND 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