ClrText
Cls
AxesOff
GridOff
LabelOff
"Iterations: "?->K
(-)25->O
15->P
(-)15->Q
15->R
(Abs O+Abs P)/127->E
(Abs Q+Abs Q)/63->F
ViewWindow O,P,E,Q,R,F
For O->I To P Step E
For Q->J To R Step F
0->Z
0->N
I+J\i->C
While (N<K) And (Abs Z<=4)
N+1->N
Z^2 +C->Z
WhileEnd
If Abs Z>4
Then Frac (N/4)*4->N
N=1=>PlotOn I,J
N=2=>Orange PlotOn I,J
N=3=>Green PlotOn I,J
IfEnd
Next
Next