()"H"()"E"Z"This program and its variations are suggested by a Scientific American article. It"\"tests the formula z=(z*z*z)+c (where z= a(real) + b(imaginary)) after 10 iterations."X("if either a or b is in the range -10 to 10 then the point x,y (where x and y are"Z-"the initial values of a and b) is plotted. The resulting screenful of points forms"62"a kind of computer generated micro-organism!"[<"Choose values of x and y in range -8 to 8 to see the whole 'organism' and focus for"[F"detail. For the two constants requested (which need not be the same), choose values">P"between -1 and 1 generally but try experiments also!"&Z plo,scrnsav,scrnloa,d "(T)est or (F)ull screen ";scree 6n (%(scree)"T")(%(scree)"F") d!xcl()"E"()"H"-set()"0"()"E"()"f";set()"e"()"1"()"Y"(;)( )M"Parameters for horizontal axis?" "x min ";xmi "x max ";xmaK"Parameters for vertical axis?" "y min ";ymi "y max ";yma\ "Constant real"; "Constant imaginary"; "Please name screen file ";6 s()"" "Filename already exists" () setN %(scree)"T" highhighH  highhigh6sidexmaxmisideymaymikgapsidehighxmigapsidehighymaoldr/ high  gap+  high gap u"" r  n"a()()b()(),abC6 d () ()  @<J () () plo(,,)Txmi^ u"" h %(scree)"T" r setrepl""e| %(scree)"T" "Do you wish to save full screen of present test? (y/n) "replv()- %(repl)"Y" scree"F" A "Do you want to make another run? (y/n) "replv(). %(repl)"Y" d  "catalog." scrnsav(,)9  "Screen save error - try again!"  6"Type new file name ";() ,)9  "Screen save error - try again!"  6"Type new file name ";