Mandelbrot generator Ver 1.0 (C) Per-Ole Otterholm 
( d95peo@csd.uu.se )

Programmed by Per-Ole Otterholm

This program is divided into four parts , and 
when using this program start 'COORDINATOR.

Observe that Pi is the imaginary part represented
as P*i ( in 'stepper ). I did not make any ability
to "zoom in" in the fractal, cause the calculator 
is too slow.. . I have done the generaot twice as
fast as normal by using the symmetry of the 
fractal, so it actually calculate one side of the
X-axis and plot it and its mirror. It can take a
while before anything appears on the screen but 
don't worry the calculator is just calculating :) 

If you want your generator to be faster then change
the value of M to a value <15 in 'INIT, and if you
vant better resolution of the fractal raise the value
( don't try bigger values than 30 the resolution of 
the screen is not enough to show any accurate view 
anyway, and a calculator is not fast enough to 
calculate it , it will probably be a battery-eater.)

This program is compatible for all calculators that 
has has ability to represent complex numbers. And
this time I haven't programed this program as general
as I wished to make it...but I have to give priority
to efficiency at the cost of generality. 

If you find any weird bugs or something like
that just let me know ( mail me )

Hope you'll like the program :)
 
-----------------------------------------------------

'INIT
Mcl:Cls
Range -2.2,.5,0,-1,1,1.1,0
15 -> M
2.7/94 -> O
2.2/62 -> P
.5 -> C

-----------------------------------------------------

'CALC
0 -> N:0 -> Z
ReP C -> A
ImP C -> B
Lbl 0
(Abs Z)>2 => Goto 2
Isz N
Z^2+C -> Z
N =|= M => Goto 0
Plot A,B
Plot A,-B
Lbl 2

-----------------------------------------------------

'STEPPER
C+Pi -> C
ImP C>1.1 => Goto 1
Goto 2
Lbl 1
ReP C<-2.2 => 1 -> S
C-O -> C
ReP C -> C
Lbl 2

-----------------------------------------------------

'COORDINATOR
Prog 0
Lbl 0
Prog 1
Prog 2
s =|= 1 => Goto 0
"FINISHED"