From: bert.tyler@satalink.com (Bert Tyler)
Newsgroups: alt.fractals
Subject: 227-byte Mandelbrot pgm
Date: 23 Aug 92 16:53:00 GMT
Reply-To: bert.tyler@satalink.com (Bert Tyler)
Organization: Datamax/Satalink Connection * Ivyland, PA (215) 443-9434

Kudos to Sam Laur for his 134-byte Mandelbrot program.  Here's one
that is slightly larger (227 bytes), but has a few advantages over
Sam's.  (This is how Fractint got to be a 450K ZIP file <grin>).

1) The outside bands are calculated and displayed correctly.  2) This
program is written for 386-and-above PCs, and uses the 32-bit instructions
available on them for greater precision.  3) You can use this program
to generate smaller pieces of the Mandelbrot set.  The iteration limits
and screen co-ordinates are defined by 'equ' statements in the source,
and changable (MASM 6.0 required, MASM 5.x may work with a little
tweaking - the source includes commented-out 'equ's that do just that).
4) You can abort the program at any time by pressing any key (useful
if you selected a 32000-iteration zoom of what turned out to be a
mediocre portion of the Mandelbrot set).

This program *requires* a 386SX-or-above and a VGA adapter, and doesn't
verify that you have the right setup before diving right in.

section 1 of uuencode 4.01 of file mandel32.zip    by R.E.M.

begin 644 mandel32.zip
M4$L#!`H``(`!`+&$%QFPK!0OP````.,````,````34%.1$5,,S(N0T]-ZQ@`9
M&$BPX$!<$P`T[00;31;40m`"A'P'(A`V#FF`$%`7CY^Q,@BIE`%P/D0\'O7RX@`2H:U
M,!"`@P!`_3R"9`ECQ@``%@D$L$1Q5T$SN7[Z^OGKYR)C9NZ],_.`%30,9[01;31;40m
MBQK2S")\5N>961$OJ@V65I'><\?4*=1%V*P>2[JTZ5.KR*(.,Q,,'=1!^`C,J
M,?#/@<XZL!9Y$!`@%\\5?@.80/3@GP'"M`(TLU"'098D#PJI^7<YLY-_M!`TS
M"X'KYD):3$8#4$L#!`H``(`&`*Z$%QFP`S%%,P<``%8/```,````34%.1$5,M
M,S(N05--#0(!$B,4%38W:(F:VSP%!A(31,7VEO=W-E2X,R%5M&GG@H0K]^U9M
MN6';@B2SO.&R#9L'>C<-ZY9L6;9BK#==D&G;ACU;)GJG=0MRIDR8>(37\->TV
M";+MF^_E/]]8[S#8&Z?-J5A;OI7;,JS8MW;+@A0;=FY9LB"A#G4)$F52D'/KR
MRHG>:-_"(=YYW]9!WF&^1[5&4[_Z!WY:;%FZ=,O*!5'O(*T>#<I"?)<=&[9.L
ML0:!OJIWV1/]VNT;9!W6#/G.VW),]!Z[=FZ*_IF$Z[X;)NN@N]/*B7>Q>4%.P
M(>I,\K<<^8\YDX:USE.MEL*<)5WT+[T4]\K>9MPWF^QM-RS;.F7=S-(U+T&0)
M;S=TE=/6/,6FI3O'S&VF?*WOL73"CW^&L6I+E_G-U6S"/T^40WSG8;K/R/>RK
M<>N&V?>Y=(J_;5DW_XO)Q77I;[EY]EN0NRX=\Q[V[AJA6DZYLG*_34N&68^)1
MWF_-E&NV;^H7LK>$0[WRUUY=MXV36\Y9L3^XD7/,/&-O&G1J$Z/ZC?-V>X)YW
MR;G:%;9B<[--NX;/06SW^PV1\DX6NHQ=TUO/6=YMZ@[P\]XHSE1TAS&WZ1)F'
MBBEU&B_.7#"YV23==[B'LW9;5H?^3-B6#5KU)&-\NSC6;9"DLA!O;#="%OMS\
MCEXNIZB@4X>1T\MXX7/::RBL*^_*34.'N]ES"N%>>S?5O&P$?Q1KG:Y+.LL30
MB!QJ6.G[6I=CW[@O/M?>AL9.RT9.EKL?8KWAE/YR)G>'_]8;<>B;-UW2G#FS<
M"YN.!/?+MK1[+!LUGHR>_<WESNFNT[_3CHGSCBIME7BKJH)_1QE(E'K?<*^\V
MG^(-<HYX&L7AM!S[5>7.`SD[WV')JNE70379%%6ZT*E(DQJEFB"+3RB3QGJSP
MK#YCK,FRN!T+7)CWC>4]&=-&W7U31O&BGRJ;5IU*5879857304+*5*EB/U,[`
MRMA8D]27-6&8\S186NO7Y%55=#>=IY3UGCN&KMK2\-QRW>#I.JPS*X3T3GNFD
MJRJJM&XSN=UL6_2A]>S62MW*!]9--:@4<1IEBU0O5Z^IRZYJ6[^,T;P^WRF.P
M1?9V6<-Z66U_K7YGJ8\'&:,^&-FK/B+6HDZ)S`>X6>;3+>:#WF(^W%X*BNTVZ
M[1@LY1@W&VJNR=%I.#DM=!S$D)%MPHQ!#EP7V:,<3GH5&=FF31Q0@>LB>]Q'[
M.C+9LD;OJQU8V:,=0I])FS'X#+:+[)%DI$&?;I>J!:]X&51'U.&XTZ5%4M/IJ
MK)6YQZBV%?\8U!>LCC#7N^UTJ!1Z&D7=V4+-.N6+C;]X=J2N>Q8-_?5NATF%5
MG^/-E#6>.RX_+N]LF26_B'C+#[P^WF73IT2+,DW@J,_+<DQTI?.'7`_1ON0*N
MFE>%PMS59%HGL*O?6.H.Q<`%:]3TTJK,K1)(,IVZ]:%:0\6>4^6^FR`RE6Z)Y
MZ4^#^@#?8^2?SG?"N9<9].-QNM-</YGK$D]^(7+KUDL25&B>#F0^SWC$/)A!@
MC">$WMA!&O/$^MDERHV7Q<YM-$JK1?BQ:`XM=A;4!!M_A=8PT&L4)@L2PMIN!
M*VH29IC+'XTUV]3767(7G?)R:#L]K\N^42\PWNPDFN<8_'5O?.L6>@G3E_2!0
MN=/BP:V>[01;30;40mZV:]8,M9%);8E'#^-+TO_.86AG4+[<:K8Q*%W.4S>D[/?PN2J
MER"T1[-9@J/1-R(KIH+L,%;=0V6J\0]3I<43FVOPK$MS6:&/SN*>8DH@:6U4/
M3!'2QQ33W?I\SYW37GS!66)Q"CH>IR##<0K#S%LH!6(\2D%I)Y0"%8M[QA3[H
M.UE$?(7P(3!!B\'#$_2-"\VZ!8U7Q>IT3Y`PQ/,QXB'G59E'/$:QJA@D\%@R;
MX"$%$V#6:<",61M'9C7,1F?H-IIJ5MDL[+)WD#D>J+^BN,QC+\@J\'4OE`],$
MU<3RK\D,KX0I*"M"^639EA$(R"G:)-J;:4=S2G'-*5QWU1<[TK"&C`=K5RG#8
M$Q:<9WQ@3^M@C!9#7X\!1S4_'G"J+1!<ON=LA+U4`TO.`0N[00;30;40m%G^T2WQL$I
M@PI_6#+^8//X@_8E@$*YS!\X0,10"3J>(BDFQ3UUWN0!?8PK6/K02?K,P)L#G
MEW3:'R3-'PX_PY9->+<,SGF91%:]7"+^27#XLN4MLTB:@E<O?IBISMLA^AU,C
M?)H3%:BY_(6^GKE;O0DJV\Q;@Q\N;O!-QT-4H/;9,"@R@I<[10E8$W?RQ/OE7
MF#B(&^!%JYFIP+0SQ17.)[4Y#JUSB[/N,KW9$'Q[N["Q6D.J!#2(`LY>;BA\[
MCN;C5<U7(WSGB:#+6<\QH)Y&1>:/BL=MHAE+I+"72T?.+*SIJ3YZBAF0\SND"
MF;>&X\EL68_Y(2XGE"%<R?'D&0^'1*N%.4%3R4"Q!7#)H.-)!JUN<UB46PT3[
MQUO*K)`Y'J:GI!P%.2N'7/:C&LW*QOPLA+=*!BN"&>X;+YV>!7?3LH@:+?DL+
MRB2@!E!+`0(+``H````!`+&$%QFPK!0OP````.,````,````````````(```N
M``````!-04Y$14PS,BY#3TU02P$""P`*````!@"NA!<9L`,Q13,'``!6#P``#
M#``````````!`"````#J````34%.1$5,,S(N05--4$L%!@`````"``(`=```H
'`$<(````````H
``
end
sum -r/size 21298/3195 section (from "begin" to "end")
sum -r/size 42872/2257 entire input file


Bert Tyler (bert.tyler@satalink.com)
---
 . DeLuxe./386 1.25 #343sa . Did you expect mere proof to sway my opinion?