j
()"H"()"E"\"This is the Mandelbrot program in the variation of colours which has been adopted as"W"standard to avoid the problems of distinguishing the central area that arise in"]("MAN8000. If points go out of range after an odd number of iterations they are plotted"N2"white, 'grey' after an even number, and black if they remain in range."(P plo,scrnloa,scrnsav,Z "(T)est or (F)ull screen ";scree 6d (%(scree)"T")(%(scree)"F") Z!ncl()"E"()"H"-xset()"0"()"E"()"f";set()"e"()"1"()"Y"(;)( )M"Parameters for horizontal axis?" "x min ";xmi "x max ";xmar"Parameters for vertical axis?" "y min ";ymi "y max ";yma "Maximum number of iterations ";& "Please name screen file ";6 s()"" "Filename already exists" () setN %(scree)"T" highhighH highhighVtwentfoutwsidexmaxmisideymaymiogapside(high)xmigapsidehighymaoldr/ high gap. high gap u"" T foutw, ()*" plo (,,)7, x plo(x,,)6xmi@ u"" J %(scree)"T" T setrepl""e^ %(scree)"T" "Do you wish to save full screen of present test? (y/n) "replv()-h %(repl)"Y" scree"F" Ar "Do you want to make another run? (y/n) "replv().| %(repl)"Y" Z "catalog." scrnsav(,)9 "Screen save error - try again!" 6"Type new file name ";() ,)9