'=========================================================================== ' Subject: (6) VARIOUS FRACTAL SETS Date: 10-09-97 (01:29) ' Author: Nigel Traves Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FRACTALS.ZIP",4^6:Z&=6153:?STRING$(50,177); U"%up()%9%%%[-%6%.xH/x2U<,'%%%d*%%%/%%%%rf%sijq%SgfxJDx,>BSe5KFl[ U"d;CDyI_pu?T#.i/Uo[m)lYAy[4dX3,:vtmhSlsvC8hl'j6SY'+ejhlllV?.(;99 U"Znab)ylZ3MACrMZ(X4i]BaV8HJ[CE26gq[QK.XvIyOSb0*dscr9Z*)ngc:n.NZc U"QSDGpw8luc12X$iyIA:A7:XG*Gnp-U*CkagU+g$NIZ.*o-O9,f'hW8, U"DxTbR^c5$-4^2'>kV]'7c9RAZFIl9k:&pA+(^_^.WJhfPKME/VJ]hH1I6Z352^4 U"qwqo$#Jn3Hq:e98a=#C8J;'Jo3GAV87l..#NbPn(7cb(?cr1GH\?iL/xQr6\=FR?S[+'u+Cu U"BY6'-#c;3ZKtEhZGOPHZI&m)sk#CV\a%+gjkfmcb2R8_:WSO'x?cjNi[.sIum^^ U"^.TrZ=#0OyE.=Hs6TCb1w);qo1lkL>^)Gjy[Kr,t\-+-I1>gfVrZSe=K=j3\Y.8 U"Mis*2E=)6HiD:gSedRYVsls=*0KCM U"-Lq\^k1y0B;xUzhM]UnN5hV?FBVgKGBDNfEA9CTj5nJ>sXgpw%'up(%)9%%%%-% U"J'%xH;4Uj:Y%'%%G%*%%.%%%%o%zqnf%SgfxJDx,>BSU9Lal[dURbqV7iCOL5B& U"72;21qsGqhceF.nA1NrQ,e%6ihFT3rA'p113y)h]6nBahAh:EZ(.8#uj[&6;WhfkqCadA6JxcL U"Zd_Q.cMHrMj/RgahB4%4q*:Bd9ptu#)kZjT3F3+ADI0<7*lo>M14Aw4Y87Zp$AY U"8LP5SaF3=:4-*')1:T^Y'gP?pdo_QBTH7RPh[B5+T&qtKs^=hY=GIB:-.9o'Dn= U"ohKNnEMO.KL&:G>ZPKN+o_O2^Zh*#j)R5=Bm9iKZzUS8>QS+L(.)8c[HdLOn70t U"3RB%EkA07o&jH$-HBCXPHlb'hk=Dh\JIUnM,p2TwdsFu1J-.8U&d:CLYcUx]04\.S$V[R5NRx3C)Mj*I,S,gHJVQn4/r,<_K6\RF*Hqw:Q5+r#XBP2JM U"aUzbKIGRl\T_<9Fq&zt:opZz$k+9I0.qPjC=SxKtVZ[derdT2I9+:L(7jRv1:J<<9l+7RwEaFDK2 U"GA.EnrURGlT]d%C;3fN?_$&^*fq_*Cfe_8Vu.icX')Vg4=5lnYMDME-_HW#)$6h U"1c&W33bB=9xFhYvP2ahW-aa*3gXQ2-=aVMj+RU$93BX7)Rf)uFEAXObw+f?--O3 U"Cjh>D9UH$2FOxwV;Ynt_qMr'XEkVZ.0G[XwF=0Ajl#6j+[NKx)3V\t#$snqwI>H U"YnY?l<,FAvs#GLvjfoYLeW,wr,u%p()9%%%%-7%p%x+HRPi(ii'%+%D)%%%1%%% U"%npj%ifrf%uSgf[xzxh,>SU5]vCNx$x9,Y]qr3K'7Y)gJ_I\)>Hl[BY9.p*tPKAIvxW#)l%^X?orcW+U7UJbldKGtJMA2Dh2'Gt2']IH1L9Je77B;ht-.9+4ta[&K: U"a1:B9k:r3:f'Dppzi5_DMLj8Uf)g U"T-/8l2=lZYtD87RCjHKQA^\/5ZEAasd])hpNlL&NQgGu_C\&I*%F/MWrhdAj#co U"c0&2E)3hEx?5))YDoMZH#A%&9Wx^nA\]BN&seSlkVWXnp/gZIW1+LU9CU[,=;Ev U".N4L4%6v7_W#n'X'>v9v1y44oQjNg:udq_SW8bHqYi->2Lkebf:]m:zI=qmeG0i U"UNbPu(d$993J:JN;%Tahf):fXJ=gSo&9Flaj?+36/+muvYakCvM8A5LRLUW.oKB U"UIqje's6xmJ;ugZVk9r)*eaj;,Z3?]&G+7M+b<*([7RTEW9+\q(,\1r_lVm;#M; U"sOsQZ4<5qR7IdF>?[%rEb[qyhw#sQpZ#pf U"7;tcn%C\/(rOSuhl]?mb;H7Q8&9,T:du%p()9%%%%-:%;%xdHy,G-YP)%+%[.%%%1 U"%%%%kwf%hxyf%wSgfCxLz<,>Sm5]wCNx)0SO:&Ie(rlK4-TebFU1IJK6b(K$sLj U"Ro1($)FRhm_Apd5>?:'4IN(o]5$THjal5W%so;>Jef7'&xtts4tWI5sPrO9))y2 U"=StE(q+9Qwz7+qCFO:SwAL09T&;p0NEVg<:Pox8j;CEYnh#ZTodJcQV)K)w(u%[ U"?[q&ROjG=ID+R+9NW8+_^V-m.1[C5/=tw8:)cfkzZw4h_B=O_d[j;J0Jayi]a+1 U"n_VHMK8m]f4NDSq,)I[J/b_2k(MX]jW?h_N)C/x/k2I>2DT:YO^>z[5+95)K>2Y U"*U0A(d3]+;KfhQb:[DHXMg U".<&>iAe68ucP=hN09yHYVPR#VUT?JTg%.6vL4f,gh'PR(BlSaaf500&uwqCtev4 U"uqZ;I0/X[ArT=2kJ+a>SE66,w?Tk8(mUwI U"DAk4SM6tIW'$;8ZZgRfxdW4P,gF,&hjq?P(b,jo5xP7n)lC(lbI-wfBgErD,x)f U"T77Q43:oV04dF3i^[((C&6ROB%'3<)PfXQa:oRPU:$0Q6O7&2>wl(*-hAJcZAI\ U"a91y?WS0aa$>Qnv0bMf;PmgCi#)nu2uxaIEY?S8G25PR9K=bUcknVU U"<,u.lxtGJDPWn/Dh%ZBcITa$\u96D2-A,c4jEhv5,hObx9MD^_(sL7EpVC2sxv*P=I$E:ZbN_o> U"r8;%(:Zd/KJgW0p47pdCZ*;#kE(ri;H_P'/Fgo$$Epk>mJoGp$+<65vDik&-Coe U"qNpei(&B168o5SnIw47'PVAQ]m9c5tP8Yte-ajHY>p0>A7ea U"vnJ6^xAOu&uBi2.]i$0JMZRdb*3uGo4+bxmdElKSn0t\c\FZmrJ2O U"Iq(YFw;jA(zP;R&;MmtDdm=ln(EXSI$]tMy[_kK?I1(Uy4E?Go6QYIw:toZd1p3 U"uPYm]\HLcfY&G:[]fObh9W=7'4[vG>ccniTcjdF(Tp(WbCO?.'RO88 U"<;S-^r\Nn&a*2-j\agDfMFp$s5txMqc)BC0LowH):O8/rdnL(C/l:S9ee)rKi_^ U"G76G0Uc.h-H^RJOe#/j^hjzW3a1*[QX*g0Ik2usm%0[?MCO[[:E%f('h2WrfIEV U"(Ui2x)tJC0#N:0l-_DEO%E1KTSJSSfElX3D'bFg>UDs%v#]9fiX/UE1\+OYa,Hk U"#s*miBc+IdxSMrTU_[0^r7)nIl U"7):sSc?V^)IVdUl,sC_9P]WMps\Tqjp(>W[:#[MNKcfJb4/eyp-ptAk4.KhG5o( U"dTlHJ)TC3pPelv>d7)\Ai]INn=SgAI-en:94k7iDhKDb%?x?ZDcX]q27.%J-W<] U"st$'$'\:67?cvayNhz10DuK'ua,H]VD0N=gAoBu^BpI58c99[#Hjpv83/qMzJiP U"06=#,$'GIwsZY^%3y>Dq$TT%S>lu]aOTtY0f6sR5f'Qpv;:M>ofAsdp0Pc?xP&pHd9hs$TWRqiW7hH5s%5,19 U"vwVH2V4eu$(RoHm*U+Q1S)InalxB_Y&1c6Z.V5muFg3NkeG$-\uGE#8>T(M<[*?Q_AoULlHTp=MN%up()%9%%%[-%;&.xHLK U"/I^k'.%%Q*%%%0%%%%kw%fhyf#qSy'ay&wH,>Ta1o6#ix69T)EQfK,Ua+QFbpTG U"ds8pr0BI,j514Z+gntCv^8%DNLB?S&0/[mEx]l\\Ju3mUvQ+eHbr2/IL2i(nj'h U",/k9?Ftb5Q1'aWwPsNNN>=ZUXrW8.EnDRkv_%G1;Lt?t&sEkB[l*EnrQ_V'[&R02F'14*D7Q#hn-APPy U"cK&PBmUv=QC[OFG+0z7)KMgo<$dQ3)r_k*s-fE/E;P#Q/pV^-D6& U"xwoCghZUBRuB[P'YasMpDz5 U"UZpp=QNH.$h,%PJi:QdR3O?#P(u7k2[*Pi'5p$fo1f9x^RITe0Yw:*jsqvU-&PA U"ppV/_Kp-bO=+ZkmdGS./5=E]f)Y)wRP8[S(_W2t#+Z8Q_?2(WMGn,PlGGUZP'5X U"q00]DSO)U)IcKsbEaV.?zW2RN\j2#,8MoF[NFm\;wk&fUk/51=H*SNnz%M^Zpk8PW=__epZ*a< U">*V7.7ZB?%fpnr\7e8rain;:'QmNNWM=bTq=(u,B)\FBS,,cpD$n9x[vn)q%2up&%'9%9%%%%-7% U"6%xCH/xU)<,'%%%d*%%%/%%%%%%%%%&%E%%%%%%%%%r%fsij%qSgf%xup&%'9%9 U"%%%%-7%J%x[H;Uj&:Y'%%%G*%%%.%%%%%%%%%&%E#%%%T%'%%o%zqnf%Sgfx%up U"&'%9%9%%%%-%+$%xH<&n(y%F'%%%X)%%%1%%%%%%%%%&%E%7%%Y)%%%mj%stsr% U"fuSg%fxup%&'9%%9%%%[-%p%7xHRP.iii'7%%D)%%%1%%%%%%%%%&%%E%%%%P,% U"%%npji%frfu%Sgfx%up&'%9%9%%%%-%,;%xHpy,GY'P)%%'[.%%%1%%%%%%%%%& U"%E%7%%h.%%%kw%fhxy%fwSg%fxup%&'9%%9%%%d-%Y%RxH/-6I\W).%%y.%%%/% U"%%%%%%%%&%%E%%%'i3%%%ytum%frSg%fxup%&'9%%9%%%[-%;&.xHLK/I^k'.%% U"Q*%%%0%%%%%%%%%&%%E%%%&o8%%%kwfh%yfqS(y'yu%p*+%%%%%,#%,%]#&%%4% U";%%%%% END SUB CLOSE:IF S=146AND 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