'=========================================================================== ' Subject: QB MANDELBROT SET Date: 05-20-96 (18:22) ' Author: Erika Schulze Code: QB, QBasic, PDS ' Origin: 100775.2275@CompuServe.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MAND.ZIP",4^6:Z&=5905:?STRING$(50,177); U"%up()%9%%%m-%K59-EAW.IuD(.%%;3%%%.%%%%rf%siVS[gfx._&'f#5%s^2n[mS:qZnV6+;-G&R$b\3]?+H,TQ0tk9Y U"6r&1Of43ekZQ/4:N(>gT*EqWo:>MPc2MQL0/g*kC43qopeg7i_h8H U"+BOaa-='nRX)F/w#2?n().J9B+O/L'U%5/2;+VK8DYhH]xZ*OLCWBb;;fiY,mB= U"a:-&L*)YpWO^%_7*^T;[*i\QT][?lk6VbGRt)e4$k;[[&LAn\h4XB-)BRVWIJgg U"EwCH\B.rEe,3Q_57nXWKk_*3Q%_5nXY/ETr<_x(K$KcV;i2/9+m.]UT%YoYq6'f U"UcGhkdjhU]oKE1E]AN9E,^n?Th>6rg*')ILTMdnLP_nz\Sf_Hz22Q%xvTjkd%h? U"Kl>rD>2-i84XL,^V35Y[9V^Pr6Z''i0p#-s3m\TL^c^iWn9,]68#nO#0Ow]ENz+ U"X9szY(5orko)d2bzkEmlek_3'Qi:Tvc3u1ME,dTzFS1dN+)NOhEYgeRz%s-;$K=:W1=Z;eEYlI*5EUy;,cI];shMY6e#)oXF4DOMkm9d0L6ci]k6'I\ U"^sW2WlvGAB&;Fu2G<4n;*C?1a>Uj'%'S-+18^J^J4*f+'3Cmi_X/DM' U"K88WPD&*+z^9XV#H4^k4Z>b6h%a_]8,-RYHg=D',')y8&UHF9smG6]' U"$T9#cd(oc))5Ms*0W]%?5K2R]4^1i/=Di&bo++MCLuXtfo$+FiOA?CX U"w3/ZP)p>0(7*L9G(3RaXK/tO(*hqBu5P;78^G;BWoFx,azlcLNE$a=Ua+0=kCMQ U"hBst7Tdwn=C:Ns*fh:9zX%up()%9%%%m-%K59-Eih+GQ>(.%%.1%%%.%%%%rf%s U"iWS[gfx.b%ht[7e5vQX.x54 U"3T1*?L8?rPVeHl57CX(=PRY+f:morlsfA,mTu9$M+9pAi U"^E51[-.$V62#+BOVOA5MRYlSKLoN'FXWg'UmH]ArXa$-UkF_g'-(xqO#pUAffRo U"CUI^K,/\Ab[FX6mGFtPww3kQOH8tJKh[Zx>pEiGB)SKd__I84#7'tU8l-2eE.:+ U"lhN3OxP:951vNQ;YtH,\yiA(#s5r#/4)b8)MJd+XZIOL$BQ=T[h1E##6pf%[i:: U":i^*YK#F)EyeHoDWrt$#7U#K3veLMd$)S'tXJ0ygaRIz$SAGsX,eaU<(UsUMm;l U"3AZ=HZhaX&W1g<:5YI,7fs#+zTKpQ%&>r6cR;6U=1?2&odT1:G0tGG,WLjbrD-V U"#dNKf00lYJLSee&Y+O]R&('M^Ck$U#i.'2.Xiv-3fN:y2^J*KU:g\YgL,4A&Hc, U"hpW%ZZ(^K3f=L%bWDR(qvTD^Ku*&bHl1#E)Lk3>*[?q-Y(8-rrY2rb?0a5)nU8eGaFJ U"hPKDjHe&gpn.T[EaKYcECZUc.p0]=>[4t75#k-RIDti3)\,o)P&e-U4K9t-kU^C U"]Qn.'2[Ve,$[R.9Q(zT\wOBC.\.r.TG=5[-JaqVRR7e'XumglvJhX5w&WdW13+f U"5Mi%2BBE#kXeVWmVLDdie%]RQ-6sSfR(=P0PY,A5N)b%&9k]JW'Q,eYa7xAIy%h U"u]OjI6c9E'&1&9uc=,^?%Mg%j+L]Vqta,90FEBMd]-Sm[\g/ndo5I+]-cb/-,y< U")ye+:+_3;y#^2H%dUZ9*XfYCrAnFwXSe(S(FT)-gIe1;2w7m01i4Q\Z/,+nl()r U"fdlM+F?AT+G0I-.>%G>pE*#_tjmT6umT6m8jrA7T7=3);=ldm$.EG;dx:O,N6yG U"T5Wn,dg3/yl6mMgSdQePxVW+X.s'ag2#EOL-SG>GLmSSFTP?6'_LM?7U8P'9VAN U"Sl58aqu'\olk4+9CojoekGK\D-XHq]:c$cZR*S-Bq.Zuncfrr^4ocep^UF\Fa9;wxZ_adDshMa-]n;RZc&o U"v0AhPY\H-9Bo]%e[JS>ujt+gOmpCSn,ne0Ct_U#T^JR4Y&(Y#p2YGC^,M>/LC61 U"6e#D+T(6t5tBtGk0d1s+E=7&([n(e#:Rg:[uAN<#DF5D;fXc=W#H%c_A?R&MQhH U")LEDN2(=0?5)n,q?p;n1Q_:5YUV3hn)to#w?Y=;-[AUt97l+SgA'\bg-\=9nJQAAsRep9*#2;-i[4Q6 U"Mi+Z'B'%JW/f(N_/TtkLg0Gg;MA6GIVBHw4pW=EoIYYvNX3v4r8NSvp:;ujz;:K U">?g\VUglrpJw^b-[lAZx2u;jX&^_,0WxY1u$S^oTTekr,fHIo?D88jgWVLl,Lh* U"5:=rF*vHE1G%]VVib._&i_O>4G>#7#rgb%.c U"L2v^9\2S5jB]O%Y7X=f7v.BsU5o(vSk_Xdq*?ukjX_I)ugQaas/$I4AG3aNBNk. U"hVq;PoLP5]eh?N*3?LBZdEU]Mg6U,.Y^2,/))22k8OFd=wapA,rplhLrX2m_>]:no&'Ige&99Aznoqhf7/^FZ) U"eRXAQcwN:Gth4PZIDl$Nn7'PmT,_E7t:l9K4M*0&L#eKpq*:2\YA[r]0Y?86K1/ U"XKk^]L->aEMX[7F$(i/RVYGrO($EeN[I,\oa^UCGiV'=hu0&=DHChRIWm\nc:*k U"SLJUj8f/)>m(u\NCNOi;ro&Hnam;$4K61&n%FNJoWC:rY%W%1%WPPoa'50qei9li%a.TKm>R&TiCjffQxu3^wd U"GyvLtTd[w269=N5MBB7bUssC2MwqX&PmopyZkE>y)B'?1GAN&z-Ep+E+Dj$;iGA U"g,Fd)]mtd)APltmI9K/WeYRW4Qt%i#uj6+D2eM*zs\#u5JEqxwAfc'CS,0MS5t] U"L2rPI:)TA()EV+/u#b9RbvFtF5v^($N=n;Q]5qJ:MxQ U"hMd$;XOodlqHZbiuJ\OiBlSe*rOb.v-O?V_t?1gx5/ay+sgj1=ChK')_T0qGJ7j U"xKRiPozOFe-f*Apf=jLt7??bn,H]Vq-Z(e4S)[t9/n%YsA7dgX[,[t&,YPnN[H8 U"uF_rx9KMxJHup<=h-..N_-%qochlnQmx$*IXEQGRT8fsYvB&,78S^[XP%GUWhlhoWSeA0BGmE U"vQkCFr;8C4ptmB;CrbcDDsrv.^X/TGudEo+J(s='7c0u4hm'[ZP[R4dbDhAd\SgQcwcY\?0H/K0*8S564-L,HLK/K5dQ-9D4:?/[tT]mg/(aHG\$7$hbK)GccY^+ U"g-Bs=PH]oTp(kwg<^AralK_[&7A_E-_VSp,eSJ1\F[BTcfc/aD=\eD2fUk=c'PE U"n(OV49hp]pg26RMbZ\DQ?,n^Do8nB^tbu/%3pgoMdk$sd$n&dTn U"Y<%NQS)br^pBTUJ%#\q.tE\,0MS41Hrv/4Hpt6;kl0.r/KK(?HjVXcvkq4;>2Vy U"*kJj6IpoHpGW:8,md5cQ)$,/SeknsYre';;T-+^EW.Osi;]EgI2mQr]>/#%;bEV U"Q.n)*jB'dNx<8]Sd,o4#eAcxnYRqo;&Va2CK66mny&\;8AGF*T'#nwaY#V-AU(< U"BE_R$\7h$or6^1[jT=9&E>lG,,bP,q:;)jF)[K(HC]bBh-)7<^=\s)'#,Xtc$+Zx_a U"t>Mwn8xk8WmfrG3lm$S*JQ[T&XtqZFPA[,L)=]/L6$\Z6'5x.D?X7rT%up()%9% U"%%%-%Ba90Es^*>4/+.%%L1%%%/%%%%wj%firj.Sy'yN.%<>]T[5wmSexZM)oglp U"_if=$&jGd&a[j(+QRp'_Cn+I-MRGg&X?n^qEMvg>]+\1]t_&/t4Wjgl2$-Aulx$ U"B9,a4%;:1--o*g$0-5mB&BYvZ$JMo+r8DR6NBsQzoFjLi+DpvJ>/1z2YniiG$Mh U"%%FS%j\i(%^I)b^CgLTN0mpDOZ%yj&Uw31J^^-8,YOaM0m$FSO#NcS7^p%fI7ga U"e\WO:Yu]fbJ6VhN18]L<^*Jz?YJ'Y_t>9IC*>:7[dJNecNq'5$ U"4tRltmIiCC1<3.5$U3nd5Gisc4)HG.79K9M-)f,fjK$'oiKqsO*EXXf%GLBWXot U"9sW&h#8dEMH1[4pbZEQEW,=u-]v5eh(*?0uv_VCnz_itZF>ffLn#H#+,I*S$k'> U"'jU4AK\9UU5YdA/gDARfz_erW]G#(l-FS4-5C.*k&(P,v-ae/9uYHHews+_\b3u U",mBH* U"u(0F*rSgIp.N^efB)T(uW2=4Wpw/]NFS2WH;vxN/8HDR[.JO]l>i8?K)AQq(-EY U"y=_ccW_q]qo'tr8,jj#/DQQ]EjscZW&e+b,\>%bH>w:&.EV^=Sm)mpSDL=a4Uk^ U"AQ5G/WI42\91frTfL1DA/M:pTrF7Q'dY_hD9-CvKa0O>+a*ew6V9McKoz.qbuAR U"*4nSD&lXjHI6K'#VC$q4k6LTCK$-UYwt-GW(9?,C06>Ht,RA=*=;r8f;d;S%):y U"i[/#w1kU>t?M,,b*1NO+An(qioFgdIMOdOi+G7N(Fl6N,rh[??beH?eTj^tSbe# U"FdqAija)7Ih$KW>,ism%G++aTJ&\)lfLr'.2ditQp0al$DAks)d%d U"RqrqjaVtfPoW.AGnMJ(ft/bLBm>4*/lrui?Jm(4C*+mOkPdF*.:&fAAteuzOat? U"K_8148W(q=1/8a9^pKhA(2c7w*^v76DU)[D,Z%f$UAEJ;x1mHSY)J7*Xo7#oLlv U"FOHfT\aAE>j'MNZXpqpId44K=XE-94ZXO[[Hw^W$rSk)lz\$E:1X)*mQ*.%;IUi U"I>0oNgcej,l-b7*rXvfamhTOoKea#oS,lAWoK$wDO8x[ZH:l*6UXi]hKPcPpAF^ U"5/-(2(kCcMIy)4%mL0mN.7dhw-tI[tRhYqh$eY?D6nO+uX[aLg;nSOW]aXCJwiB U"k8NRpF/6)6aLtEi5u;fiQf*CVN?qQ<06'3Q0dccl8X(gij/>toPELmBktJiuUSj U"?xD4/CBW&nr9n(hiGgtpih6rb6mv[tHb.v?hLJNnZ#fNLemJ0:i U";n4k4)m:QWadFlBxdtm'v(up%&'9%%9%%%m-%K59-EAW.IuD(.%%;3%%%.%%%%% U"%%%%&%%E%%%%%%%%%rfsi%VSgf%xup&%'9%9%%%%-s%K5-+EihG'Q>(%(%.1%%% U".%%%%%%%%%&%E#%%%k%(%%r%fsiW%Sgfx%up&'%9%9%%%%-%?K5-E(SBon'b-%% U"&4N%%%.%%%%%%%%%&%E%7%%U+%%%rf%siXS%gfxu%p&'9%%9%%%%-%Baa0Es4^> U"4/#+%%L%1%%/%%%%%%%%%&%%E%%+%e4%%%wjf%irjS(y'yu%p*+%%%%%)[%)%V% U"%%%C%;%%%%% END SUB CLOSE:IF S=235AND 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