'=========================================================================== ' Subject: MANDELBROT SET W/MACHINE CODE Date: 06-01-97 (06:13) ' Author: Erika Schulze Code: QB, QBasic, PDS ' Origin: 100775.2275@CompuServe.com Packet: ASMCODE.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MC.ZIP",4^6:Z&=8594:?STRING$(50,177); U"%up()%9%%%I-%A[mnGqh8hpV(7%%'3%%%0%%%%fu%VWvg%VSgfOx.&<+xT]5uwU U"E]adeU#7IuKpswC-PEZ5]?a4H*LjnUrv/w]Q-G;DmAsFrn0Da4$>hE8bLYv=W6t U"nVngQ\nTB%c]#_=UskVyB;R< U"o&u9KYH[*yQ4M?2m+)88IkQnB36dQi2B>G/viITYL#/m=s/0;h[/=[sG%g.ogW= U"Ds>cW&f?rm]>i*UhUf.(2;[S7a*WBW_e2EI/>0_''igRYp(aY4/;1[6ZQ,e4;iQ U"-93#%cIK+)Vi\77,Xcvp,+l_G8\Wp87q#qR%)aog0s1#?2\xO^-[dMZ5-X6V+6, U"?L':[f),WX_->Ck1rg5^WX._-CWnpYRPu&KVe)u4r6TE9F5#x[#;i8=+m-9iYk8 U"J5u.OgGb5Q\wt_2OV898*yqwFy'GA%;jy.eU8zBMj\VfnIMk,-MLD(RhS-K$e'O U"(EG+4EGAw,xIaD[9(N*fm+noM9DL%E#ZOa+)i-BTc1ep>,]i$A80hS8vF$Pp:hv U"N:4Vb2-J/T,neEul/81yh*O*en3<18;Kj]*xl$Xh#jolP(YpuX8Hig*OC7GJ^1z U"'%IzKUL2M;GK3CQ8l&x??s#Vz?t+h&Iq42Aeg,1O5+dpq.f4r/5/9+j&4ZuDd+C_h(S.pfXENX$l)a[m^e?%6aVZPTr8_U U"fB2iZT9_t$P+.$U[grQSFy*S.0j1zk[qg)__vO<0c7h6Hhb74GA/Fq]+k%NkR6P U"EX12Ep8Hnsj\c[6%fWghC7gbS+kME\CQkOes8qMrr9pxZVH,t8]?:8=kV>0Pz'5 U"i=bq])o[VLd^\u.337GOWnh5CWOju3SQrucs31U^r\,pE:oHtB7saXMtlHu]qI7 U"TXd;%7$]KIs0nE#E_e.[:O0HYe+jTNdMnDusJEiWsH(r:oo<$/7(/OtZ*1J1nIv U";Gg+R1NfV)I;/JT%_0UwbNL03pCV%#3d1]rZ6GnY;HW\-qf6i7J)0vrz?]-uZ+: U"Nf?)eD&JjZlInK'Q(LIMX-zLZ,7gLa)n6oLku7AS>^H.p<=vYM:#Il?=n9SQe_L U"Gl14RWa;8q/4$Sjtc]qRun,W/qNc>:#>NDx4CejptFY99 U"ujS'pt^lf0m(RI_g+E.OqQWI&'nDup%()9%%%%-%(.LnG(5noT%I,%%&(C%%%0% U"%%%fuVW%vgWS[gfxF_(siN+2t6O],b._>Jt> U"gR$Vt,CZKcZuHD$4.#MN4XM$n%Ma]C*q2'_f*AjsGmc#]=2 U"'$a_Iy*Dr\KP/\01_PM/8JdS^Lt_O\CeyJ\2jOH_aiG.vQ'?LJ^J?j3X)vkPkt; U"s)At*AOWs*c=ofN)D^u?N\kVV^%F$el$YKNHl:Z59=)Vx)n(QY\qtb;G;n2Z1E' U"U:Pr%xu%[Zj9QR[1PO0mW9sGg)w*Z7.W1G^U2o,hVikW?O>='*n%(v*+U%1SmH9 U"1;CB,=0hkx\di:Bm:SCA0'GGS9qs^_M+:(c2NOO%GCq=(=p U"(13Qxn-QuSRyg].;oIuWEICa%gcE+O3(*lCWe3uPr+MJcbE<8(=GC.)YqukAlD+ U"%$m$6OpuYMZYrg/&6G4FIyfQlnE)KomyAaSZd-)5BgmyApZ_>7Y^IyFzSf>['#j U"c,D#:2+p3g,=nvMjGcfACLuTWBFaGAR0nV8%7]&I^'m(VpJq>rv8MsS(#UZt$5i\^LM( U"3Q5fen'MMq/&h$?R]Ec:+E94v%zqBDfA4o*Q%L))[1pN8__#1I5n]Dyn2N11ZBr U"je<)0d-1*=awC^G__TU U"MYwmSw:zKdN(dUMm,K2BMChwa0npUoo(JuI6*._A4/UlR3^RZWl^vcUTn2-Pr8S U"_r,n2TBEOhi0HCiLBX]q>y1<):H(sb\U?B.1pn%$[Y?QN+oufAP#5y,onUU]Vb/&\l_HCS;cgN-]\X\M?bsC^A4]-hjIjd U"DC'KSXO2x--EHKN&hae.x/.Jo&KX#oKKTSD%zLt2<<*HpF<*.G<#n8Z(+f5'cL\ U":Hd3j(+s7cvkg-P*gE#Q9JvKKmrt#4<*1b?L4SMw\mk(a&]ZvLlsDXIxa0n55rBFYq.JQzbe1G'bhE)yXttK&=x[+v6Y& U"IZ?Mb^8f:9s(k#7bB)(4eu?R>f(B'xaQ->P U"gdm)(D1nSI_R6KDXGo_IQeksSBAAGYf18phrPS]]=Jm-bCOGM^q[]sl)[_6]eY? U"k/l^qO4-/t5t=Du6>uITV;rWV6dFH3tI60p#hW>_W#\6ew:-5lZ3XFrazk-])YH U"R\-$3NP3I2jzNA;k(HSlt<-AM<#\WXl1W)gbgz?Rb&hHZ.*cxF?o?Nbo^rwZc)V/$KUOvMd77gM/i=6# U"1#y*QU.NGLn)uPbm*\CZe&6GZP\kOqgSH^FpDaich>bY5gHwfBPWR$k4wuRSCe&DGZ9.,%NsWK0 U"m-oaI7GbFP&[[K)HMn2rO.3ZOq-'cV21OJmhx)a7p8jT6'8vND_Xp;=>7OUuh,: U"gLMriZ&N&ccw3OZ/FS\A3+4t&6MM$K)u$I2$Hq\\i8hh9RGkGF/rHP:xqXOJVd U"/_IN9bOIz_Idshtzkht&LkMc2P(do-&x%u%p()9%%%%-+%?&oUGs%h+7',%%%NE U"%%%0%%%%fuV%WvgX%SgfxNF(L>]S]=x:>IE/5#)dlL/T&l U"s$N1Iu30:nW][1>5W7Rk#T\GN.XeKe3+S:cD3b=]Aq2jja<$o_ U"K'H<.w1M#5:0-LA'[(Tu-\9(I9I,oX1/CA*ZB1#i35a[j-9\DO382RRs?vV_sk2 U"Tq8G*n9KfOc[KEou*8R7o_^gtd(,m4Bt0(^[]SjnAkD[jCVtF0L^5$\5YT?2i*Xnk#(%^Aya3neEL?8eN$ U"_0f5%%U[dm7[F,2&Hs9)n;Ksr:X*dG[\n9)58#p:$uQYE'W*0cr]5cG[vn9_M8# U"#&ZrVcf'h5Cq:dZn&+q/cI6c6^jYsrw-]W3L3)9j7aYZRa3>(NJim(tu\b9$DKb U"?&i5dI0J$BQz;rpQI9SmOG5jHja4liGj:QfFfpD-ZQuDWbuSWiY)[IG1xW%(oWfn]nu,]tS U"[bgn;UPk?OGRY;:iRKW8PX8pB8T#T;6a]HZ,[7-A(/le&5-:EJO#\ U"UC4nKPI^/VT7:#)PFeYs7Gz&D5=)9S>.C[uE-,<*m:;B)rt/M3RS_s4sWnHAgd8 U"M#Cg^_[khLXeo5H.Up9rOCguZ1mcbMYneJoT_ik/LXPX54UY-[)V&LMHOOsi;hq7q3?<+F7>lZI*cv5hL=%YPB&Dn5:^LSo$&4 U"rKFQV9q[S2ahKco%t1Mbe.nLe&;ngdkZC=,d2^6:bem4?E;k+:V2bQ2ciHteUSH U"b^gqF^l5NBHkjn9cGj#D9FZEq:eWG\)=Nov5CZ,9e\5kRn9XK>bD U"jL,ZeX9vpGu,Dir\KKSMJeywr]wHNMVuPO&1yM=&iZFfu=HB U"Nb9:J)a&f-ubeUe9hRw)cIOk)g5#OTT*<\W7l5GV U"W)'VG.)pF/$R>(C^=*-ZE-xT9cUE1eK U"k._/1ui>(m)46;ib9)VDf]lp5?k%iV0'/?4t0s')$:HYx9O-Bl3ONspJrW<\Wz_ U"DJDn*8nBl4D/?&T6O\)'x&up%()9%%%%-%+:8nGBOo3q%l2%%&>D%%%/%%%%wjf U"i%rjSyJ'yT($Ua6fmXD<)xhAmD U"U:Q5ODPE6DYP^bfs&)0O4f(DU7tj8v3PiCCSVD86,ydylRP8AKNSr&Rf.S^Kqph U"-&zG9u^YI72[;?UlET4Ql>f.W=vXia$LRbqfZldYzP+%YH(P4N4r%Dii/xlT,D; U"90o_mtr.*.lbG6AQnYOfINLE4yUz-F$Qe,Nt$oLfmX#Oo=DVNQ[$U)xLawpbThO U"jM9tI/2OV,^Qd03w?\_iOV1?GT(Rowvd:Ql3MTqoG,e(q25D?ekTo3n3i>Oqs-z U";i;,D24E3KOf%DxMIE:zk0+)bH_*x)3kvq.M>Vu8uZ?O-aRtjZR]P&=VDVah#kQ U"$,Dh\)0nZQn3N<8qXd\sFNe9kfV'+ZCTV_xd\?ciszFfh#yS_[(6kk7vQ%)6/M+ U"yd90tvvIodC5s.MQDVBH;bAJl8JDj&+L9F&Fb(yl\>6jBD_#7Dm\y6*Gl##3o3x62ajSy.RWB;;*d U"kxpY=aAEKQ6kolKW*$s03/,eVS]$nXK+H&+E2U<^_qC):=u)2-F+S;%y_6 U"$96H+ju1k5Kj=r,#k=gzU6=WqG&f2*:y?dkuPJ=1#3fYG;cz'[,yN:5tHWNArkg U"QvWl\*'Yj4#v%1Y9/:Z4h7V'Z92+[*3)0Nxw*Z3bee[&qP4h\d%PAc2d[##d68# U"%mmZkPt]8&xREtc#;5kV(6t[aFDm%&VoxXKmhwQg?(5[_R^PVA=a#8>;T[Q8Y?6 U"jW&QwaoLM.3R*MuZoE[#mrSE0S'nFJ:fC,TV^/;Ii_^HO'ft2^;5nd.Ti5kfWuu U"sgnqvzphp=VB#9?]XpNnF+s/;Y&Kov4\x$MIhBg-dy3d>[kpF2LcAMZfA9Bm2VY U"nwjCG??.k+_ulk%._f,Qg\E:;P9-MJ,2;[VIC1Qu'KBP\e0bn+5mYjeanXmS;7_(o U"ag&.l$(^(oiFox&2_Lu)#XQO)z<]'e&So1*oG8+HZIGy%7,W) U"6w%(#-(:8LUMQ.L\UI5o7fs/k3V1na/Y(YGBUmW.=\(KbiujoVSX*O9L.C7q'$/ U"JduVbDK.S+h7'W3M)/K3n\^,*oD?3]o87Ye-$*IO#dAUL:BkC>?W2ynKI8+1h*F U"tBt-e]#sEhMY56bvn4Pv?uT./akgv=<#4\+^hEY:lYR/5]EpfTT#Of^\4'2txCm U"bUL]mJWAH9r.l.h\_q(kYV_%1ez?o6_..UwF30p0rSb:q*)UJ4doKmb<.aoE%;* U"01wUXdMIW27yGgzHdIXEX6DUs?bH:y(\?lJ2wEi:;PA4)2cziv-Te7a[W5H]#lG U"Ym9H>^O$qFYJh$Sf*Qc2.XI4wiWa-o#N,N+JVTaF%q..s=936rfBZiEm+T+)%$O U"aZOO-XBsx:OWtvm]s:4< U",h\t^$b>b]FFT5tU#N0WUh$En^H;*^l.x040C9ek3quD4j:$u0Sn&'oIg)=9FhL U"g-Wnqta/PC/v:lATR06#qB=DqhAB)58EB[^Y2cah98d#*biKSe6CT_x/fV])SjS U"OL*]eEeRWy$;Wh0KC>GX8a2l7nRl.N*IY^C3mgh^s6J=vc:BFJ1py3Ptsp'#Uxi U"tjoLTinou5Xk4xX%Xiu,S0)BM#r#9jV2XhV0BaV>Tj:ZQLlbz6([kPN(Ae?]*>R U"$q]4PzhaV35Y:,b-#tag%TBslf,rd&.cCA'H44>^-:e*(q,,?Cu)(/\Xg.D%7I' U"^NopCuHX#=tRwkMhU\k.$%8VL1G+R1Br33*d7ghIBVAvr/'K+WdYr\PWf7qIb6a U".QO:oDB8A1=QQaEp(i2L:qQ4ew)1aO$JV;,F5&aBLV4Sh\KT_TSB[+ U"J&]7+0j\o)L*ANCV^fHq#/)Y*URvEm)Qkhv2$WhES:u]$7p\_3Nl_czK;1XV#6- U"6M,1YR^$)0?QoQCvwJXHVilww3j*v.f U"ZspOnB)*T]&5,0y7FD77'OL[cmqR'+Fcl0d:0;X']hgnkIbSYnmAy[3rPj:g[cU,4XBSssf>L/.f U"D%KEaq1+W:uY6YdJh#.Gt6UXWZVXUanGe)#w328R#= U"q'S-tbXPGMS_xK/9ZN^^4p7A%;j^e[bWakjr_iGjhaQDHJp-.J8c%Ugn/I.B.oO U"sm\#7-=9&8iFKFW2aOjn_5Wg3rFCY]cKxHTb3Q'P,KK=Fj(e5TJS%(mtS%Fb)h6 U"[lWB<+a\djDFI>ebvvEqpg-Vw+lGgHmnO4>ScV-Co3]7Y79qIc^0K(>u?fbd6FY&8>5Wa?1n^L0rty/qp U"_Mn,GEj[:1tHsf.,i,>R1Y]FM?3,?&zn&tfOtY,FHuT,Nss'khTidi4p\j%g3I. U"q_VJK]KL[h')2kUA0N7qt,'#G%bJ+q;#UdN1%Iv3f_lsm#WQ1lFqKR,NU8z:;sk U"vRJ=>G3]otV.+>[3a=Q7t]XTYx?i\krUoYYtPoph*rl\SO33j U"X?^Tp.V[SLvmODHz;[$jNj>XUcOrj$-l:.;)G4c.FXFA0:5qx/lB+vriqaC*650[d1SDR#[%_qGOIp&8 U"^+Uq6%mbK#KQr]FROgMAGD.1o8J^WRpe,bwQdO0?71SSI^c^m(d36[kATSFT-W; U">V%384I2a$xl(W'lt-NCqfIXL02:nJp:L&E+N5Zwt*9>.5=$svcZ U"eMAnv,(7R+^F.)vFUX,WT;4GlGC)Z8IZY._zN'*l%>H7cq2zyeCE'q(5,t6/c]E U"L2JdC$n]($cITba3/P=ba#Zp,jhmN;7n)ksJCvll[oLmT,MSD\i+s3[Q>-.Vm+AMZUNz<(K3YX2#&e]nCTamc_Earum^=7h; U"dx\9mX(q4lMu2IeC3gE3]^6%5%Y4Sr02S4Nr\Fns41m9&Cz$mq^JlwpH^hhUSNx U"cdUkn6s:Box$Hd0xAMFdJtM17uIY>H&MEb>QrpNbv3h):WtWev?fD<$ML1]PX]. U"f+D1*$fpb4AKa3XGb8C2+_BYra3)42fL%B=du^k;Yy6^\x>6673M&rZAkulrR;* U")GM;du7[Cf;Cn7P?q48pa(p=WMDPf.kMjfx%%up&%'9%9%%%%-1%A[nXGqhh+pV U"(%+%'3%%%0%%%%%%%%%&%E%%%%%%%%%f%uVWv%gVSg%fxup%&'9%%9%%%#-%.L# U"nG5n%oTI,.%%(C%%%0%%%%%%%%%&%%E%%%%+)%%%fuVW%vgWS%gfxu%p&'9%%9% U"%[%-%?#&oGs$%h7'%,%%N%E%%0%%%%%%%%%&%%E%%%%x0%%%fuV%WvgX%Sgfx%u U"p&'%9%9%%%%-%+:8nGBOo3q%l2%%&>D%%%/%%%%%%%%%&%E%%%%O8%%%wj%firj U".Sy'y%up*+%%%%%%)%)%'\%%%&hE%%%%% END SUB CLOSE:IF S=152AND 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