()"H"()"E"T"Here's a Mandelbrot variation, getting even slower now, using z=(z*z*z*z)+c!"& plo,scrnsav,scrnloa,( "(T)est or (F)ull screen ";scree 62 (%(scree)"T")(%(scree)"F") (!<cl()"E"()"H"-Fset()"0"()"E"()"f";Pset()"e"()"1"()"Y"(;)( )MZ"Parameters for horizontal axis?" "x min ";xmi "x max ";xmard"Parameters for vertical axis?" "y min ";ymi "y max ";yma "Maximum number of iterations ";&n "Please name screen file ";6x s()"" "Filename already exists" n() setN %(scree)"T" highhighH  highhighjsieightwentfoutwsidexmaxmisideymaymiogapside(high)xmigapsidehighymaoldr/ high  gap.  high gap u""   fousieigheigh,    ()*  plo (,,)8  x plo (x,,)xmi u""  %(scree)"T" J setrepl""e" %(scree)"T" "Do you wish to save full screen of present test? (y/n) "replv()-, %(repl)"Y" scree"F" ?6 "Do you want to make another run? (y/n) "replv().@ %(repl)"Y" (  "catalog."J scrnsav(,)9T  "Screen save error - try again!"  h6^"Type new file name ";() Jh,)9T  "Screen save error -