\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Julia
\FILE=JULIA.85P
:ClLCD
:ClDrw
:FnOff 
:Menu(1,"NEW",NEW,2,"RESME",RES)
:Lbl NEW
:Input "BAILOUT (0-DEFAULT): ",Mj
:If Mj==0
:100\->\Mj
:Input "MAX ITER: ",Z
:If fPart (Z/2)==.0
:Z+1\->\Z
:Input "MIN X: ",xMin
:Input "MAX X: ",xMax
:Input "MIN Y: ",yMin
:Input "MAX Y: ",yMax
:Input "REAL PART: ",A
:Input "IMAG PART: ",B
:yMin\->\Q
:yMax\->\R
:If (((yMin*yMax)<0) and (xMin==\(-)\xMax))
:Then
:If abs (yMin)>abs (yMax)
:0\->\R
:If abs (yMax)\>=\abs (yMin)
:0\->\Q
:End
:xMin\->\X
:Lbl A
:If X\>=\xMax
:Goto E
:Q\->\Y
:Lbl B
:If Y\>=\R
:Then
:X+\Delta-x\\->\X
:Goto A
:End
:Lbl RST
:X\->\S
:Y\->\T
:0\->\I
:Lbl C
:S\^2\-T\^2\+A\->\U
:2*S*T+B\->\V
:U\->\S
:V\->\T
:I+1\->\I
:If S\^2\+T\^2\>Mj
:Goto D
:If I<Z
:Goto C
:Lbl D
:If fPart (I/2)==.5
:Then
:PtOn(X,Y)
:PtOn(\(-)\X,\(-)\Y)
:End
:Y+\Delta-y\\->\Y
:If getKy==15
:Goto BACK
:Goto B
:Lbl E
:StPic JSAVE
:FnOn 
:Stop
:Lbl BACK
:Mj\->\MjS
:Z\->\ZJ
:xMin\->\xMinJ
:xMax\->\xMaxJ
:yMin\->\yMinJ
:yMax\->\yMaxJ
:A\->\AJ
:B\->\BJ
:X\->\XJ
:Y\->\YJ
:Q\->\QJ
:R\->\RJ
:StPic JULIA
:FnOn 
:Stop
:Lbl RES
:MjS\->\Mj
:ZJ\->\Z
:xMinJ\->\xMin
:xMaxJ\->\xMax
:yMinJ\->\yMin
:yMaxJ\->\yMax
:AJ\->\A
:BJ\->\B
:XJ\->\X
:YJ\->\Y
:QJ\->\Q
:RJ\->\R
:RcPic JULIA
:Goto RST
\STOP85\