'=========================================================================== ' Subject: PB MANDELBROT SET Date: 05-17-96 (18:17) ' Author: Erika Schulze Code: PB ' Origin: 100775.2275@CompuServe.com Packet: GRAPHICS.ABC '=========================================================================== 'Please load/run under PB to extract MANDEL.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MANDEL.ZIP",4^6:Z&=10361:?STRING$(50,177); U"%up()%9%%%d-%E%T*EnM6bcO-%%%[8%%%/%%%%rf%sijq.Sy'yVD'h>]T]7vq-o U"x9)LiS5BMnB<6e=j[Oj(jsTbZ9ufPrK05Vv?%+JJ[64omYwt;$(8+\uJJ]f*m\e U"aAAqQ_FjpGXiX.(n)MRub_udqvzX+=d(8vP0c%wWSm6K-jk*T\qnk0P&$n=Z'+r U"NN_0;iC*jnE)#M<+Y^\YC(UG7,e^,R,(]GW=]uJ3GEu/=mE(cJ:+;fkYkaiHV\g U",zCJa[y,^vZ$QP%Mt7.oOdRK-ud;NQN6-1#Q0H*c%np2up4L?;x?I3*R;m5=P): U"5y^8zcZ,Q,>C3](2f\wQ0*(ZkFo$.]VslbwI5ZD%I_lS-Ji+J%U[glqJ%;z)uvN U"Zq.*3OrCh5xvSVA[Thcu))x1j%%tRzR,)U8M)hYiU60CRC%E[F?LF= U"\WoRCl+tc;Z;FCD?L$)2Rl4^Lk>UqVRX-NZ%^r;rLse&T$G7pe=Z%><^SWjak[) U"8;'0dV_*xu4=lVNa#k)xXdD+#^UNANe>KM'o?AB/L=Ar/4hHBv?^t_Dewq8*mpY#U5u1X** U"Q+ER-h7)sG8)%jpDm880*srPTEn_Z#MYA1bga*[9cr99eA$di2XNSOHe-Hm03Wt U"(U)9A.S)2A+(%8D\\RSoLYp6-Cw3l0(Tb^6g4==Riicq\22/$^#;>N**po9pPoE U";7RMN4lejca_Th*%z[-7V+?Sf1MkWv]&$ECr2QlneQX\F.zJeW'l*/* U"+nifsBcO.CTC&IR6+a:'j]=xN&#rVBC+5lJc5feQ:+0gn#Y\(NfQ,v:n2LRAi-p U"yL?A/1v0B3k)NlZ,Z#=HF/TfGe2QmF;3$\qpxc++&E-9*8?>s[AOJjW[p$%4F&= U":FgHClU>rY;v3L=jP7-eT_X3?=UqG>bY*V;qmcq-H:w;I%xBg//z4s[oG;J0uMj U"BiYfTtUMjG+-M%THUtzR6EN'TVFEkKih&l=Na?;i2U&rZ/1&KKr>%'iE70ARL.l U"Vw;A#>yA$$LM.Mh2trXpQP<4#:nBZEY$C-o7GXto%#QPtPb0E'J=YVepw_tr-BAm( U"6A[Snw.I7thbV\3v6bNX(vXFWa1Ut(RZdoRLtYE:Zq]SO6TXFeVpr-:B6'2xLEW#2UgekJ*4ag?u27BtK U"umxYWb,MAZX<6H5,Gkq>CPIs'AdU32Os,F60:AMEm_fu0=mH[42Gz\s(,oav3') U"_ya^<*;s0ZpaL,_U? U"7qg744JnVUD>Z:A=p%?Q:b;B)KoN]apWIdpZ*tHL_+\pVAv'dM/WS(4-hI(pWim U"w#tJwfDhvzN4h6(&2WCj=3Cx:Hq;9K7b$8kHjHJJVvudti/O=OUk*V(YM)0?Yag U"Ir56H_G'>c=?:sqidVP\Y273%j>'#%SB,w%;3Y0/E$.7IuiA(7-s\uKrQs6 U"PF7W^]ul]I?qTu$G)S,p6afGJBP>]7a7SuInRYSxBs#WcN_7W.MUl$4nx#OKt3M U"(_gdciF]6H$_^,lrLFRbumRuB_/MWDhub6lc,:aFZ+\08]wNwG_MarUrrR72Mt+ U"cp-2oZQ]7.WsB]/&XXJS$^gtJZaQD98bWi4 U"3ELtAMW&ANweJfF>>yLbpt\Dd4mXK#bEb;alGmGGTNs$.,Cl2^RgXKKr<[>x(%u U"p()%9%%%[-%n%'*Ec3%s<9).%%73%%%0%%%%rf%sijq%VSgfOx.&<,>Sm5]w17x U"M0TYkG_Kg]6\Kz]O.Ea'[*#>LYspFP&<;[ZUo0Wb U"Db63_K0s1C4Z^DWPTE0k&bcnq5i[uI)1di','+[VZ>L8=rfLU(XPgbR8J0vn\N2 U"xxT+z\P\RF1PT<^xNxi83:a1ib5x)35R^Z0YNf_hO/$6FoT19A\6\HOMQqbUGyV U"a?nrWND7^Jc/CeES,$)4lW695afWjG2)CjJX=CUEH$*pEpW+?f4U+RMX5/T<;kN U"qBsv0[GHjQx2KZ)Q9U.0;*(5wJV%E;6iu]%f42=rdL'ScHGLu]7*#I7#IRpXfe-kJ/d9k_emB;xUx2wZ$mB' U"8)SmYCVM$wP09TpLD\T5jY)0Ns%%K#%JDG$3LWQk)ei_Megj7hhi?:^2u78:v^z U"#disD,FtW[5?lLf]+Wi\mu8o'%Lj)%T-BDmjMxMrx[\1P;HvDT_tQNkEyiYkd%D U"e]%;DgLlE,lW77OV*lLR]ednC_x$zXobl9^GYaIxfUk%aevDP&[wss?KtFQ_L?Q U"n'p%6Ui/R*3u#IM.U*IdV6qg4)Gh>nsW#f?UUJgzQ8-xj.x([f.=Cv(%xc^nzf+ U"Q,^&k_6xZADL&o7E&+gE$J2($XsL4peagtLaJCqjJTD$I7TZS>7c4b&\QYGGzhI U"hI7Rl_rZ>6jYRAoqreJ[ODE+d]Xw0I#+mm;_.sJT*TqQH4.wR4f+MHnFDmMASIN U"uII/-t;gTbQ$F]c^>WqG_TtO]vzrLd#D>Jk[c9M6S0No*[,'013p520cI2SUg;t U"0vZz;t?e7?o?+UHjBC]n^K]iGf,AeXA7;kh3'NORv),/G(:;-X]iWwcx%&up(%)9%%%%-%nH%*E*-KPi[[)%%Y%3% U"%0%%%%r%fsij%qWSgRfx.&;<>Sm+5w17Nx0SY2k_a'9^ugO4s[4nN%Q\[t8Kt_' U"9[]V+[jp8lqnlRN.\#AGv_EzLmGEn&LaX$QH%rC&]\ojgjDRIk^_pfo2&ui/K-f U"AQ_W9Jmji.BV/\d7W/6fRJ[4j8IV<6EEsLVNbR$oS(U4h>.Epq;e,8k$&t_R:XsJ U"idrX2)6z8h$NExECUC(I'sq#qVBbS;TE1.n>jN8VO(L?lhjmiVQwPC]MQwZv%NV U"hhpcjqc6DMo2$nI'34==^lA6\M'rLJA5)MraBDbWMi$Nj5ceX]RSaPX;/HTne-?V&T%ZI++Fa U"ga5RPdK'x:3AX[TW[)Mh-oB8j.\G<^&\_*Tvqp8:,F,CV<1xiQg,^)k/'kBK:9Ir-,DXlu$]r>>KH*TqRm1l#\>KRd/i*6a>]*H$dov#v<.[ U"I<59V4a'3'NRdsC?5A>:Hi6L?Ca>rZupr>2'$iP\q,Fkd%np3[Az:4L4#d$-j.t U"_#MuMsCml;f1Mz9VX7Z>hJG)52g1f%NYkd2#1C:65:D^Z?n9o2?Y&7Y.ejRusV2 U"y&*.ou6Y/4<(+ED=ybH+/H/6q.o318*2\(K5YVILx5m$U&c U"S5dL^p:o=9hq7kM_GcH=BgiCNSeQNm-_Ysl4+(iV)AB6o4r6D+*=q\JllnVS U"^[cUQGYj;[[>fGUu^SGd05*f>l%u:xu)A8:Bi*Agm2lfk5fkcxg/RAwV4#po U"sDE#JnJM^q:]LmB)IwwboWe/bi%f3ni9'XFi-QV8%/*G1^%>aT(6DB*bGnR&4%) U"**kCEe4Ap7^N/ljDvI6mrHWQ(wn/.irl,pY^E1aqh*Iae6+K5Aq*gDD<4ru5*PEA,Q1/OTPcVlhq66$^$jiw\W^mF\baZ+; U"I4r0HJ=%&mp41?:Wmk24eBDM$sF-$4/ccj#ej#>T\R0]%mCCAB;8vXAW'dL U",'n,h2r:uQ&<7oTdLCu'XB=B4Bm>oK^i>,8kf0^YOwb8;54Iwl8B9#n7&S'6 U"GHiP\Bb\x4ol-_jbPVf1:H6UD-h#R5pJ*SQb<0N=-&wjNh3c*ie,CntpJG&?o8c U"hO1<4=eHY=/N8s:CDWyA\I->99sa?&H]K.>M5ztVOjEXJF-'JsHcShf4X\g-UJI U"XTL6RUesE18Xnkx3JO0l/DLCQV\y(*KoKZ,FIeAM'Rb7]5E<1c6Eh>z8tmJ)8M< U"0258xZD$+f:m\4x&xyx_4]F:mjED0P42&e*,)%&n8t1IGX4=$A:TA3iUX'pVSeJ U"GY7w3Bq&0/J?0;A,)KhoAQ0FH?hV6QE/ao^9'guqp^UWNjsW>clH0*vzoC<1&yq U")Q#.,_suy2=Yh:s%l2]8tUYx]9+_L8Vf3dXOKq6S;I#hfnDhnLDhDz;g3Q0G,UC U"KfhC;H;jbiK%TYb$GCUy=H$^.Bm+0#ZZ;0);L-_C>Zl3b0Ix]$w=-gEbaDt'v&arH=LaFb(Tb?$.s8_X.DKH%V>xlqSk> U"b(9/[$+klf>p'peFk&i;W6B).FRhD%lD.RVVduQXB4qpjbApbc24I:L_=7RfZxV U"pWH/266ZP6\MUEH;Zsb9+JLaNY<%FyKtk$%xik/UVsT7Qi;KR&/03Zuiz:y_Ga% U"94;:m%fV=[u,Dw,acPZ4o*&2Vik*;s:pKL/49Y2*exB^mQ$>V3M'm_:^MrK([un U"k.F[eO=>\1*U:M3wg1cl]DogOeLR#>XO>u;gnX.O7SQOx[Mp7DCM=k]0M7kl^Uv U"rkfV)\T*h;6\^q-4nl>s*kr;;v%hPNM]Qf2GGc/3Y,hlgd2'y5A$Hk?9#]j6Ke=%uvG+hF'[Bq;iAo'8=FW]lXipo0l?rH0?g$Uama)5pwyW(3%2+kk^ChWbXD)$wb?\%JIbyU5[O)NqUt13%UA[O8Q+.QBlL[pZ\[>J U"/:fELOSQxF2K>TwwUX6,bcf=QY^cWNz9sjWT6:M2ZsrBrflY9.sxM?;uoOWax)c U"]r*L*'KOM8dtSh.oW3XHbUZFDX(yuCKGoV=*0DhiQs6SMwWv6$,+g/KHdg+VtSa U"V=s^lE\o767Y6TU.-RJk37MA0Q2pD#8;Qum[^7+;;*?6Zho_[(,(>RcDT<6['g\^rdk(,q1+0R;uXDZE0BJH_4y2irUA U"hS1$g*6h.$0f>OdVDE:XlTHE'>55B=k\*2KKQ$k7x&u.Hh/r<)vxh)GfZirRWM3 U"LW_y5aD\IR<^-Y,z0dR0rG:\R$B13:mDgZ,$Yb3l^Td:1R.3SPQcjQFlQ$'JdI_ U".?]jH;WsrT;Csn>2qSU?OgV<#5FZ[iti:%M,-qwndEAZTMR0L'L;hjqPcU;p^Df U"J5(;(B[kL5MezKuD5,FFQ=EGPnfonc9?S8,O_MH9RAdDV$YO\[Sp U";XPoPv&Jk7HqPbn*+:6UXcVlrXfc64nWnm'R U"QEtnH5f^pG4HZ?:Z:4H6jR8EN*.L?.#;\6vf0xt\q3#iER U"$o[+\$w\k-oX*D.VEDt$4132WHsif)g>.XXPCnuNLj/>MQw*jjV:Tr>d]D5LOtS U"sfPrX[632HNa9b40pES3Wiq_zJfNiI)'aAW3-On8&'4Bvur091n0lDL(0Wp:/UX U"oMr75YAsF]?X]s82[:26Fs(pO=]^0YFIh4%;B2nn>]42;i7V1NoDL*375Urm(O[ U"gOjHFWQ4AAg;)&YNa#M[Og[fbYUWaEH$p6F0DJ#cF-'?SB.RgM: U"AuUNYP8$/R((3V,w.U=1-R&][q7ISu-=KAM;/,T?>Rd(,f^sM]xO3&3Uo>,V=,6 U"8X\$ZE:5V#EP]3d?:YE>Skw?pl^K/l]($q?WuaSw&B67'*))6pJ1FbpOI=[ee%m U"79MG,)V0EI_eFD.ng/l4[]iwi;[V28v-k)8fOqftMVXSKL1C?=AVCjP*$qSOA4jOk5s)6?sn(b>Y:A0'kkf.B(7\\3[GFRXCcA]-6'jp)VO%haOCuGD-\ed-fw4s)c U"[v(tkbBd\,1H'?G:RB((g/^\\q(ckiE=-9LRZWsuE1S4m$P68o=RAGl(Ij)AaJlN8BAv U"/ZWXKNcW0*_t#f>#UxV6E8,:HHue?he:M:L_K][F8k5BVUjme#?21/MUi,Ng U"/cC:\3+Q9=SH.\8sJW+qp;]pA*Hx0G3Y3'C->91Uufa[Jk7G&aQ; U"*4w6V$Owf2wn_Sgspe='389RaVR4(TlbLX:Gw^0=SLp)5ndlPllf4tE_BVn_]6x U"D>$TA[GdG[RjG[#+3pi7iK?KUP['P&'6ML_N.;>\%*B_0NJ8B5&;<_4$M-Xk7X^ U"tJYT1,bfLSPeqI<[+X]SOskQlGr?S))rd;QI5AA&EAQxqx-6(HT7Az7>[iYMG*3 U"(KT19^**X8S$IQ&+grpj1OQNHG;h3PQUwxt>>EGqdnDo:cHxzlM=Sui'oCI]s)? U"'E&H;XhH)h[A^0FZoFpx\%;reXhHF96-%AoW^8,u1Fm&o*m3DGZ.n*D[u;k2Tfl U"%VMck9qH8IZWj+G)0Bbp%u'a/>ze[2VZNk\Cj:Mkh**e#FZF^yXr^/9(#nVK#6$ U"#\f4C;VWQ%<>yaFR0><:pI>[%.-T^k2eIgXE3cX^KF8KPHw'J6<'mQ?6bWK3#+M U"oJ%?p$EDm\ImRTjPcc-6=LORRXU,,6q?>zDSc:K=+JU<=:+d1/#XBMfpV;Uz&7+ U"[k>[A>=-,m;Ak\,vp+84S:Fd&9*&5G1WlP>6TT59$LSz,[YPPSy2Y_KSIX$&c,O U"+MQu0%]iTMWE%nPlKH&S#PpF;CY+^;d4grp:p*258(oK[[.Y,G1;s U"3'uf6/#e)1^?>js'AYQ;M_*&:H]l'9n5_[,S]v9?P U"%%%0%%%%rfsi%jqZS[gfxFh(kquQ\7#DmXZ]Q&G U"WD1C,N?3I[V[z53GG]^>+#=]qbv2dWS>WYbZ>S>[X6xdkKfB/>[Ib]1IU03QNNv U"fa#twb>QD^oV4?-2._.tW_Tw/IWB[E4h?C_qmaDjQFa9%7?AV1P\bo.R?Bx5%qF U"1Dsp<,rXjxPKg1l7C0O1$nUP8H06bpH,OL-j6AlIENJ[SURnMCJjbWmllQdDx#t U"$<7eWW%(gCJ7mbr5JOla2kS_4SLj?.azZ/J:Rsl()VvA0>Y[hUkTW7N8IR)LK*A U"^&;?[4Gh]7y4VHeo]&i,3\42.=>,3M#dR:74.,Id9Do<>W(*ARY$3Yb+&>43p)k U"Qw.lBC0-%O[n%.K7NF2:Q/#6[&,8CORJdSB]&YXrgJ?-t>>[A2fj>CZt.xd%yHE U"WK+A#C0kjsHbPqov)e1]tEH]()L(=& U"fiETVyhm;T$%=_M9&eFt<45rKq]bB?J]Mrf&>d3/x=n=U2KuU U"u-NuS+_+6vwS\K^Q7OL/sb49vkeQM/#(RnV=<9PW]Q)AvtJX)9VtnSe=4>13'rD U"x_wA>vI1PL%4E4ApQMl[cmWsOUB-iakx07FywTSNBF9NoDthodqibwSt1f*h9hn U"-?MA\'NkX1uK^+WM,UaQo)G9wSBuZC?cY&AhQO9&<3hmYZdHdb,J.WW*Jp2x6CX U"PKIMMfG;X8hA-0SS(DHe_OS2B,XG4rk*dL1F\\#hXq5sv.7XN=1IJpHauA%5$j[lXDS+dUy1x'cE=&LCT#0v\0A U"Nm5VL)sNhtj8NCc/YgA#]/?*(3Zy>.3Ld4lg?:h0*xWxXnl/'VY33eG%W:902e% U"1b)(7s&wWQ;c9&S20kV$8lwGwt_,8dp43A4wZfJ$xtCQDx9(0hS+axFG'faGMmB U">8HI.?MG:Ej5w$5b[+RTkvZWd:k$Z;tD*;1Ps)OrrPO8a:TOZPL]j.,;'<]+7*k U"VZ0sBF)o=QF+q>3+3IidccZ76nr>(Opn-_t99\q[su& U"6UU(7,jfDQyHom:J_Xu.3iqUOAZ;gZe0&&mA/7z#D/n;Xn/8gG(Cdk>G:I_+g$m U"D$xJ^SS>(;2Xl19p5_KO'k7i-$\*F8SgCblo-^4<.fWZk4L_)7DdYdp(RJ(o?DX U"d.llAm'k'8>qC0r?0DbV,'x%up%&'9%%9%%%d-%E%T*EnM6bcO-%%%[8%%%/%%% U"%%%%%%&%%E%%%%%%%%%rfsi%jqSy&'yup%&'9%%9%%%[-%n%'*Ec3%s<9).%%73 END SUB SUB V2 U"%%%0%%%%%%%%%&%%E%%%&w-%%%rfsi%jqVS%gfxu%p&'9%%9%%%%-%nH%*E*-KP U"i[[)%%Y%3%%0%%%%%%%%%&%%E%%+%^1%%%rfs%ijqW%Sgfx%up&'%9%9%%%%-%= U"n%*E,R_8R&G+%%%2:%%%0%%%%%%%%%&%E%%%%i6%%%rf%sijq%XSgf%xup&%'9% U"9%%%%-m%n%*UEG=I*H[,%(%#?%%%0%%%%%%%%%&%E[%%%^%<%%r%fsij%qYSg%f U"xup%&'9%%9%%%[-%n%]*EVg-3Fp,7%%&>%%%0%%%%%%%%%&%%E%%%&iD%%%rfsi U"%jqZS%gfxu%p*+%%%%%+%%+%z%&%%3%L%%%%% END SUB V2 CLOSE:IF S=132AND 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