comment {
  Carr2500.ufm Version 1.3
  Ultra Fractal conversions of Robert Carr's formulas Carr2500 - Carr2599
  by Erik Reckase, March 1, 2000  

  These formulas (and the parameters that go with them) are
  intended to provide a reasonable approximation to the behavior
  of the original Fractint formulas.  The images will not be 
  exactly the same!  Roundoff error surely contributes to this
  inequality.

  History:  Version 1.3 - Fixed c1/c2/c3/c4 translation mistakes

            Version 1.2 - Minor optimization tweaks and cleanup

            Version 1.1 - Major optimization overhaul + hints

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Carr2500-2599              : pixel fix
                          Carr2504,2509,2525,2527,
                              2529,2532,2534,2544,
                              2562,2574,2576-2579,
                              2595                   : cosxx fix
                          Carr2533-2599              : |z| workaround
}

Carr2500 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m3=cabs(pixel2^-(1/pixel2))
  z=conj(pixel2)*m3-conj(.1/pixel2)-sqr(flip(.01/pixel2))-.1
  c=(-.9359,-.09659)/2.1
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .0051
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2500"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2501 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.8006,.116), m4=conj(.005/pixel2)-sqr(flip(.09/pixel2))
  z=flip(1/atan(1-pixel2))*sqr(pixel2)-m4
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .0061
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2501"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2502 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.8006,-.149)/1.2
  z=pixel2-.25/(-atan(.1/pixel2)-sqr(acos(.25/-pixel2))^3.7)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .002
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2502"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2503 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.3,-.589)
  z=cotanh(1-pixel2)^1.5*pixel2^4-1/log(conj(.1/pixel2+1.25))^2.5
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .002
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2503"
  periodicity = 0
  maxiter = 500
  magn = 15
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2504 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.3,-.589)/1.18
  z=conj(cos(1-pixel2*2))^3.5*conj(pixel2^4) \
    -1/sqrt(conj(.1/pixel2+1.25))^2.5+.4
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .002
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2504"
  periodicity = 0
  maxiter = 500
  magn = 2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2505 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cotanh(1-pixel2)^1.5*pixel2^4-log(conj(.1/pixel2+1.25))^-2.5
  c=pixel2^2.33/log(1.667-pixel2)^2.87\
    -log(conj(.1/pixel2+1.25))^-2.95
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .00375
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2505"
  periodicity = 0
  maxiter = 500
  magn = 18
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2506 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=1/pixel2-log(pixel2-1/cos(.01/pixel2))^-2.5
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .00495
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2506"
  periodicity = 0
  maxiter = 500
  magn = .13
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2507 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=1/pixel2-log(pixel2-1/cos(.1/pixel2))^-2.5 \
      -conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .00895
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z=0
  ELSEIF (iter==l2)
    c = c2, z=0
  ELSEIF (iter==l3)
    c = c3, z=0
  ELSEIF (iter==l4)
    c = c4, z=0
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2507"
  periodicity = 0
  maxiter = 500
  magn = .13
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2508 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(conj(abs(pixel2*sin(pixel2+1))))
  c=flip(conj(abs(pixel2^2)))-conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .000995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.1/c, c=c1
  ELSEIF (iter==l2)
    z=-.1/c, c=c2
  ELSEIF (iter==l3)
    z=-.1/c, c=c3
  ELSEIF (iter==l4)
    z=-.1/c, c=c4
  ELSE
    z=z-.1/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2508"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2509 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(conj(abs(pixel2*conj(cos(pixel2-1)))))+.3
  c=flip(conj(abs(pixel2^3)))-conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .000995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.1/c, c=c1
  ELSEIF (iter==l2)
    z=-.1/c, c=c2
  ELSEIF (iter==l3)
    z=-.1/c, c=c3
  ELSEIF (iter==l4)
    z=-.1/c, c=c4
  ELSE
    z=z-.1/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2509"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2510 (XAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=real(pixel)+flip(abs(imag(pixel)))
  z=flip(conj(abs(pixel2^3)))-conj(.1/pixel2)
  c=(-.7456,-.132)/1.25
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .000995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2510"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2511 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(real(2*pixel2-.124)+flip(imag(pixel2)*1.224))-.35
  c=1/(2.224+1.224*real(pixel2)+flip(abs(pixel2)))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .000995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2511"
  periodicity = 0
  maxiter = 500
  magn = .08
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2512 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(real(2*pixel2-.124)+flip(imag(pixel2)*1.224))
  c=1/(2.224+1.224*real(pixel2)+flip(abs(pixel2)))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) - .000995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c + .1/c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2512"
  periodicity = 0
  maxiter = 500
  magn = .09
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2513 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))
  c=1/(.224+.612*real(pixel2)+flip(abs(pixel2)))-conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001095
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c + .1/c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2513"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2514 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))-.4
  c=1/(.224+.612*real(pixel2)+flip(abs(pixel2)))-conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001095
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2514"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2515 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))
  c=conj(1/(.224+.612*real(pixel2)+flip(abs(pixel2))) \
    -conj(.1/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2515"
  periodicity = 0
  maxiter = 500
  magn = .08
  center = (0,3)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2516 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))
  c=conj(1/(.224+.612*real(pixel2)+flip(abs(pixel2))) \
    -conj(.1/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c 
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2516"
  periodicity = 0
  maxiter = 500
  magn = .08
  center = (0,4)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2517 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m4=conj(.1/pixel2)
  z=conj(sin(1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))))-.5
  c=tanh(sinh(1/(.224+.612*real(pixel2)+flip(abs(pixel2)))-m4))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*real(z^2)*z + z^2 + c + .1/(c+z)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2517"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (0,-1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2518 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), m4=conj(.1/pixel)
  z=conj(sin(1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))))-.6
  c=tanh(sinh(1.5/(.224+.612*real(pixel2)+flip(abs(pixel2)))-m4))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001995
  k2 = .15/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*real(z^2)*z + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2518"
  periodicity = 0
  maxiter = 500
  magn = .08
  center = (0,-1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2519 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=real(1/pixel2/1.91)/(11.4,-2.6)
  c=.91/pixel2^2+conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .001995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*real(z^2)*z + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2519"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2520 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(real(pixel2)+flip(imag(pixel2)*2.924))
  c=1/(1.45*real(pixel2)+flip(imag(pixel2)*1.624))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2520"
  periodicity = 0
  maxiter = 500
  magn = .35
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2521 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(tan(pixel2)+flip(conj(pixel2)*2.924))
  c=1/(1.45*real(pixel2)+flip(imag(pixel2)*1.624))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2521"
  periodicity = 0
  maxiter = 500
  magn = .35
  center = (0,.3)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2522 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(tan(pixel2)+flip(conj(pixel2)*2.924))
  c=.75/(pixel2*1.45+flip(imag(pixel2)*1.624))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2522"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2523 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(sinh(pixel2)+tanh(conj(pixel2)*2.924))
  c=.75/(pixel2*1.45+flip(imag(pixel2)*1.624))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0023995
  k2 = .22/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2523"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2524 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=conj(.3/pixel2)+flip(.01/pixel2)-.5
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0023995
  k2 = .22/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2524"
  periodicity = 0
  maxiter = 500
  magn = .05
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2525 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.8/pixel2, c=conj(cos(z^z/pixel2-2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0016995
  k2 = .2/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2525"
  periodicity = 0
  maxiter = 500
  magn = .05
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2526 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.8/pixel2, c=cotanh(z^z/pixel2-2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0016995
  k2 = .275/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2526"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2527 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=sin(1/pixel2)/conj(cos(1/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2527"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2528 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=sinh(2/pixel2)/cosh(1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2528"
  periodicity = 0
  maxiter = 500
  magn = .05
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2529 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.1/pixel2/flip(.88/pixel2)-conj(.6/pixel2)
  c=2.9/pixel2/conj(cos(z^2-2.2/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .79/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2529"
  periodicity = 0
  maxiter = 500
  magn = .035
  center = (0,2)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2530 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=.1/pixel2/flip(.88/pixel2^2), z=c-.3
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .79/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2530"
  periodicity = 0
  maxiter = 500
  magn = .09
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2531 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = .1/pixel2, b=conj(op), b1=flip(op/10)
  c=.75*pixel2-1/cotan(pixel2)-1/cos(pixel2+.2)-b-b1
  z=(.85*pixel2-sinh(op))/b*b1-.2
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .39/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2531"
  periodicity = 0
  maxiter = 500
  magn = .35
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2532 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=1.5/(.77*pixel2-conj(cos(2/pixel2))-cos(2/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*z^3 + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2532"
  periodicity = 0
  maxiter = 500
  magn = .05
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2533 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=tan(.75/pixel2)^1.75-conj(.1/pixel2)
  c=tan(.75/pixel2)^1.65-conj(.1/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .24/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2533"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2534 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=2.15/pixel2+.1*tan(conj(cos(7/pixel2-real(3.5/pixel2))))
  z=1/(pixel2-.5-tan(2.5/pixel2)-conj(5/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0013995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2534"
  periodicity = 0
  maxiter = 500
  magn = .15
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2535 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=|.75/pixel2|+1/pixel2+.0487
  c=1/(pixel2-.064976/z^2/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0003995
  k2 = .29/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2535"
  periodicity = 0
  maxiter = 500
  magn = .15
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2536 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1 = |pixel2| + cos(sqr(|pixel2|/(pixel2-.124)))
  z=1/(.75*pixel2-b1), c=1/(pixel2-b1)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = pixel2/imag(p2) + .0013995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2536"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2537 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1 = cos(sqr(|pixel2|/(pixel2-.124)))
  z=1/(.75*pixel2-|pixel2|-b1)+.5, c=1/(pixel2-|.67*pixel2|-b1)
  c1=0.95*z,c2=2.25*z,c3=3.375*|z|,c4=5.0625*z
  k = pixel2/imag(p2) + .0013995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2537"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2538 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=tanh(1/pixel2)-.1
  c=1/(pixel2-conj(z^2/|pixel2|+pixel2/z))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0005995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2538"
  periodicity = 0
  maxiter = 500
  magn = .28
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2539 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=tanh(1/pixel2)-.1
  z=2/(pixel2-conj(b3^2/|pixel2|+pixel2/b3))
  c=1/(.8*pixel2-conj((b3+.8)/|pixel2|*b3+pixel2/b3))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0005995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2539"
  periodicity = 0
  maxiter = 500
  magn = .29
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2540 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, b1=conj(op)+flip(op)
  z=1/(pixel2-sqrt(op)-log(op)-|b1|)
  c=1/(pixel2-sqrt(3/pixel2))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0005995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2540"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2541 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(conj(.7*pixel2)-cos(7/pixel2-.524)-sin(1/pixel2) \
    +conj(1/pixel2))
  c=1/(pixel2*real(5/pixel2-1.724))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2541"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2542 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(conj(pixel2)-cos(7/pixel2-.524)-sin(1/pixel2) \
    +conj(1/pixel2))
  c=1/(pixel2-conj(z-1.1)*|z|*z^conj(cotanh(pixel2-.2)))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2542"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2543 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(conj(pixel2)-cos(7/pixel2-.524)-sin(1/pixel2)\
    +conj(.1/pixel2))+.11
  c=1/(pixel2-conj(z-1.1)*z*z^conj(cotanh(5/pixel2-.2)))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2543"
  periodicity = 0
  maxiter = 500
  magn = .15
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2544 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1=1/(conj(pixel2)-cos(7/pixel2-.524)-sin(1/pixel2)\
     +conj(.1/pixel2))+.11
  z=1/(pixel2-conj(b1-1.9)*b1^(conj(cotanh(.7/pixel2-.4))+2))
  c=1/(pixel2-conj(b1-1.9)*b1^(cos(.7/pixel2-.2)+2))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2544"
  periodicity = 0
  maxiter = 500
  magn = .25
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2545 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, b1=conj(op)/exp(op)
  z=c=1/(pixel2-atan(op-conj(b1))+conj(op)+flip(op))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2545"
  periodicity = 0
  maxiter = 500
  magn = .17
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2546 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, b1=conj(op)/exp(op)
  z=1/(pixel2-atan(op-conj(b1))+conj(op)+flip(op))
  c=1/(pixel2-cos(op-conj(b1))+conj(op)+flip(op))/b1
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2546"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2547 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, b1=conj(op)/exp(op)
  z=1/(pixel2-atan(op-conj(b1))+conj(op)+flip(op))
  c=1/(pixel2-cos(op-conj(b1))+conj(op)+flip(op))/(pixel2-b1)
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2547"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2548 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, z=1/(pixel2-flip(op)-tan(|op|)-conj(op))
  c=1/(pixel2-atan(op-cosh(|z|)-|z|)-conj(1/exp(pixel2-.85)))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2548"
  periodicity = 0
  maxiter = 500
  magn = .4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2549 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = 1/pixel2, z=1/(pixel2-exp(op)-tan(|op|)-conj(.1/pixel2))
  c=1/(pixel2-asinh(op-cos(|z|)-|z|)-conj(1/exp(pixel2-.85)))
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2549"
  periodicity = 0
  maxiter = 500
  magn = .4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2550 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=|pixel2|
  z=tan(pixel2*3)/tanh(pixel2+conj(.1/pixel2) \
    +flip(.01/pixel2))/b3-.3
  c=(pixel2-z^3)/(b3+z)/2
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .39/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2550"
  periodicity = 0
  maxiter = 500
  magn = .22
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2551 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1=1/(pixel2-sin(1/pixel2)-cos(2.5/pixel2))
  c=pixel2-conj(.1/pixel2)-flip(.01/pixel2)-b1
  z=pixel2-b1-c-flip(.09/c)
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .14/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2551"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2552 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-1/pixel2-flip(1/conj(pixel2)))
  c=1/tan(pixel2)/conj(5/pixel2-.724)
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .5/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2552"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2553 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-1.5/pixel2-flip(1.5/conj(pixel2)))
  c=1/tan(pixel2)/conj(2/pixel2-.924)
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .5/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2553"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2554 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=1/(pixel2-1.5/pixel2-flip(1.5/conj(pixel2)))
  z=1/(tan(pixel2)*conj(2/pixel2-.924))+.3
  c1=0.95*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0002995
  k2 = .5/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.099/c, c=c1
  ELSEIF (iter==l2)
    z=-.099/c, c=c2
  ELSEIF (iter==l3)
    z=-.099/c, c=c3
  ELSEIF (iter==l4)
    z=-.099/c, c=c4
  ELSE
    z=z-.099/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2554"
  periodicity = 0
  maxiter = 500
  magn = .25
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2555 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-cosh(.25/pixel2)-conj(.01/pixel2)+.75
  z=pixel2*(pixel2-flip(.01/pixel2)-conj(.1/pixel2))+.0001/pixel2
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .15/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.1/c, c=c1
  ELSEIF (iter==l2)
    z=-.1/c, c=c2
  ELSEIF (iter==l3)
    z=-.1/c, c=c3
  ELSEIF (iter==l4)
    z=-.1/c, c=c4
  ELSE
    z=z-.1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2555"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2556 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2*(pixel2-flip(.01/pixel2)-conj(.1/pixel2))+.0001/pixel2
  c=(-.7556,-.242)
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2556"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,.03)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2557 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2/3*cos(pixel2-flip(.01/pixel2)-conj(.1/pixel2))
  c=(-.7456,-.132)/1.2
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .35/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2557"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2558 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=1/(pixel2-sqrt(conj(pixel2))-log(pixel2))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .35/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2558"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2559 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-log(conj(pixel2))-log(cosh(pixel2)))
  c=1/(pixel2-sqrt(conj(pixel2))-log(pixel2))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2559"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2560 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-log(conj(pixel2))-sqrt(tan(2*pixel2)))
  c=1/(pixel2-sqrt(conj(pixel2))-log(pixel2))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .69/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2560"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2561 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2/.7-log(conj(pixel2))-sqrt(conj(tan(pixel2))))-.2
  c=1/(conj(pixel2)-sqrt(conj(pixel2))-sqrt(pixel2))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0009995
  k2 = .39/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2561"
  periodicity = 0
  maxiter = 500
  magn = .15
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2562 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(1.9*pixel2-real(1/pixel2)-cos(imag(1/pixel2)))
  c=1/(pixel2/.5-sin(1/pixel2)-conj(cos(.25/pixel2)))-.3
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0012995
  k2 = .59/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2562"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2563 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=1/(pixel2/.8-conj(.1/pixel2)+exp(.06/pixel2))
  z=1/(pixel2-abs(cos(c^2)-conj(c))+flip(cabs(tanh(c)-conj(c))))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0004995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.12/c, c=c1
  ELSEIF (iter==l2)
    z=-.12/c, c=c2
  ELSEIF (iter==l3)
    z=-.12/c, c=c3
  ELSEIF (iter==l4)
    z=-.12/c, c=c4
  ELSE
    z=z-.12/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2563"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2564 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = 1/pixel2
  c=1/(pixel2-conj(op)+exp(.045/pixel2)-flip(op))
  z=1/(pixel2-3/c+c/4-conj(op))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0004995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2564"
  periodicity = 0
  maxiter = 500
  magn = .25
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2565 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=1/(pixel2-conj(1/pixel2)+exp(.045/pixel2)-flip(1/pixel2))
  z=c=1/(pixel2-3/b3+b3/4-conj(.1/pixel2)+exp(.05/|pixel2|))
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0004995
  k2 = .45/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.08/c, c=c1
  ELSEIF (iter==l2)
    z=-.08/c, c=c2
  ELSEIF (iter==l3)
    z=-.08/c, c=c3
  ELSEIF (iter==l4)
    z=-.08/c, c=c4
  ELSE
    z=z-.08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2565"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2566 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2-conj(.1/pixel2)-exp(.025/pixel2)
  c=pixel2-tanh(.01/pixel2)-exp(.025/pixel2)+.1
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0004995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.1/c, c=c1
  ELSEIF (iter==l2)
    z=-.1/c, c=c2
  ELSEIF (iter==l3)
    z=-.1/c, c=c3
  ELSEIF (iter==l4)
    z=-.1/c, c=c4
  ELSE
    z=z-.1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c 
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2566"
  periodicity = 0
  maxiter = 500
  magn = 2.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2567 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(imag(sqr(pixel2)))
  c=pixel2*sqr(pixel2)-conj(.1/pixel2)-flip(.01/pixel2)
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2567"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2568 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(imag(sqr(pixel2)))
  c=pixel2-conj(.1/pixel2)-flip(.01/pixel2)
  c1=2*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = pixel2/imag(p2) + .0010995
  k2 = .09/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=-.09/c, c=c1
  ELSEIF (iter==l2)
    z=-.09/c, c=c2
  ELSEIF (iter==l3)
    z=-.09/c, c=c3
  ELSEIF (iter==l4)
    z=-.09/c, c=c4
  ELSE
    z=z-.09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2568"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2569 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  p5=exp(.035/pixel2)
  z=sinh(pixel2^2)-1/log(pixel2-15*p5-flip(.75*p5)), c=z-.0325
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0010995
  k2 = .1/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2569"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2570 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  op = pixel2*(pixel2-.2)-1/log(.1/pixel2)-cos(.01/pixel2)
  z=op+conj(.1/pixel2)+.45, c=op+conj(.08/pixel2)+.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .009/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2570"
  periodicity = 0
  maxiter = 500
  magn = 2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2571 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), c=pixel2
  z=-flip(imag(pixel2))*conj(pixel2^2)-conj(.1/pixel2) \
    -flip(.01/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .019/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2571"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2572 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-conj(.1/pixel2)-flip(.02/pixel2)
  z=-flip(imag(pixel2))*conj(pixel2^5)-conj(.1/pixel2) \
    -flip(.01/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .059/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.06/c, c = c1
  ELSEIF (iter==l2)
    z = -.06/c, c = c2
  ELSEIF (iter==l3)
    z = -.06/c, c = c3
  ELSEIF (iter==l4)
    z = -.06/c, c = c4
  ELSEIF (iter==l5)
    z = -.06/c, c = c5
  ELSE
    z = z - .06/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2572"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2573 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=-flip(imag(pixel2)), c=pixel2
  z=b3*pixel2^2-conj(.1/pixel2)-flip(.01/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .059/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.06/c, c = c1
  ELSEIF (iter==l2)
    z = -.06/c, c = c2
  ELSEIF (iter==l3)
    z = -.06/c, c = c3
  ELSEIF (iter==l4)
    z = -.06/c, c = c4
  ELSEIF (iter==l5)
    z = -.06/c, c = c5
  ELSE
    z = z - .06/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2573"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2574 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2-conj(.1/pixel2)-flip(.011/pixel2)
  c=1/(pixel2-acosh(1/pixel2-cos(|z|)-|z|) \
    -conj(1/exp(pixel2+1.85)))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.13/c, c = c1
  ELSEIF (iter==l2)
    z = -.13/c, c = c2
  ELSEIF (iter==l3)
    z = -.13/c, c = c3
  ELSEIF (iter==l4)
    z = -.13/c, c = c4
  ELSEIF (iter==l5)
    z = -.13/c, c = c5
  ELSE
    z = z - .13/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2574"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2575 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2-conj(.1/pixel2)-flip(.051/pixel2)
  c=1/(pixel2-acosh(1/pixel2-cotan(|z|)-|z|) \
    -conj(1/exp(pixel2+1.85)))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.13/c, c = c1
  ELSEIF (iter==l2)
    z = -.13/c, c = c2
  ELSEIF (iter==l3)
    z = -.13/c, c = c3
  ELSEIF (iter==l4)
    z = -.13/c, c = c4
  ELSEIF (iter==l5)
    z = -.13/c, c = c5
  ELSE
    z = z - .13/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2575"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2576 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-conj(.1/pixel2)-exp(.25/pixel2))
  c=1/(pixel2+cos(1/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .15/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2576"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2577 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-log(conj(pixel2))-log(cosh(pixel2)))
  c=1/(pixel2+cos(1/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .15/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2577"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2578 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-sqrt(conj(pixel2))-log(cotan(pixel2)))
  c=1/(pixel2+cos(1/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .15/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2578"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2579 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-.1/pixel2-cotan(cotan(1/pixel2)))
  c=1/(pixel2+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2579"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2580 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-.1/pixel2-cotan(cotan(1/pixel2)))/(1.33+1/pixel2)
  c=1/(pixel2+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2580"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2581 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-.1/pixel2-flip(.25/pixel2))
  c=1/(pixel2+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.09/c, c = c1
  ELSEIF (iter==l2)
    z = -.09/c, c = c2
  ELSEIF (iter==l3)
    z = -.09/c, c = c3
  ELSEIF (iter==l4)
    z = -.09/c, c = c4
  ELSEIF (iter==l5)
    z = -.09/c, c = c5
  ELSE
    z = z - .09/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2581"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2582 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-.1/pixel2-flip(.25/pixel2))
  c=1/(pixel2+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .49/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.12/c, c = c1
  ELSEIF (iter==l2)
    z = -.12/c, c = c2
  ELSEIF (iter==l3)
    z = -.12/c, c = c3
  ELSEIF (iter==l4)
    z = -.12/c, c = c4
  ELSEIF (iter==l5)
    z = -.12/c, c = c5
  ELSE
    z = z - .12/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2582"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2583 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-(.1/pixel2-flip(.25/pixel2))^4)+0.2
  c=1/(pixel2+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2583"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2584 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-(flip(imag(.1/pixel2)) \
    -flip(real(.25/pixel2)))^4)+.2
  c=1/(flip(imag(pixel2))+cos(1.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2584"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2585 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2-(tanh(.1/pixel2)-sqr(sinh(.025/pixel2)))^6)
  c=1/(pixel2+cos(3.5/sqr(cos(2*real(pixel2)))))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .19/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2585"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2586 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2*(3*pixel2-flip(.01/pixel2)-conj(.1/pixel2)))
  c=1.3/(pixel2*cabs(2.15*pixel2-flip(.01/pixel2) \
    -conj(.1/pixel2)))-.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .1/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.1/c, c = c1
  ELSEIF (iter==l2)
    z = -.1/c, c = c2
  ELSEIF (iter==l3)
    z = -.1/c, c = c3
  ELSEIF (iter==l4)
    z = -.1/c, c = c4
  ELSEIF (iter==l5)
    z = -.1/c, c = c5
  ELSE
    z = z - .1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2586"
  periodicity = 0
  maxiter = 500
  magn = .55
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2587 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=1/(pixel2*(3*sinh(pixel2)-flip(.01/pixel2)-conj(.1/pixel2)))
  c=.83/(pixel2*cabs(2.15*pixel2-flip(.1/pixel2) \
    -conj(.01/pixel2)))-.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .1/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2587"
  periodicity = 0
  maxiter = 500
  magn = .55
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2588 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.85/(pixel2-asin(.5/pixel2)-exp(.025/pixel2))
  c=.83/(pixel2*cabs(2.15*pixel2-flip(.1/pixel2) \
    -conj(.01/pixel2)))-.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .1/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2588"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2589 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.17/(pixel2*(exp(pixel2)-flip(.01/pixel2)-conj(.1/pixel2)))
  c=.83/(pixel2*abs(1.15*pixel2-flip(.1/pixel2)\
    -conj(.01/pixel2)))-.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .4/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c - k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2589"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,.4)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2590 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=.85/(tan(pixel2)*pixel2/2)/(pixel2-sqr(flip(1/pixel2) \
    -sqr(conj(1/pixel2))))
  z=.83/(pixel2*abs(1.15*pixel2-flip(.1/pixel2) \
    -conj(.01/pixel2)))-.1
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.08/c, c = c1
  ELSEIF (iter==l2)
    z = -.08/c, c = c2
  ELSEIF (iter==l3)
    z = -.08/c, c = c3
  ELSEIF (iter==l4)
    z = -.08/c, c = c4
  ELSEIF (iter==l5)
    z = -.08/c, c = c5
  ELSE
    z = z - .08/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2590"
  periodicity = 0
  maxiter = 500
  magn = .28
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2591 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^4/conj(pixel2^1.5)-.35
  z=pixel2^5/flip(pixel2)-.5
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .1/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.115/c, c = c1
  ELSEIF (iter==l2)
    z = -.115/c, c = c2
  ELSEIF (iter==l3)
    z = -.115/c, c = c3
  ELSEIF (iter==l4)
    z = -.115/c, c = c4
  ELSEIF (iter==l5)
    z = -.115/c, c = c5
  ELSE
    z = z - .115/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2591"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2592 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^4/conj(pixel2^1.5)-.25
  c=.8*pixel2-1/log(pixel2-.1/pixel2+imag(.001/pixel2))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .12/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.07/c, c = c1
  ELSEIF (iter==l2)
    z = -.07/c, c = c2
  ELSEIF (iter==l3)
    z = -.07/c, c = c3
  ELSEIF (iter==l4)
    z = -.07/c, c = c4
  ELSEIF (iter==l5)
    z = -.07/c, c = c5
  ELSE
    z = z - .07/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2592"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2593 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=sinh(sinh(pixel2^4))/conj(pixel2^1.5)-.25
  c=pixel2/2-1/log(pixel2-.1/pixel2+imag(.001/pixel2))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .12/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.07/c, c = c1
  ELSEIF (iter==l2)
    z = -.07/c, c = c2
  ELSEIF (iter==l3)
    z = -.07/c, c = c3
  ELSEIF (iter==l4)
    z = -.07/c, c = c4
  ELSEIF (iter==l5)
    z = -.07/c, c = c5
  ELSE
    z = z - .07/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2593"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2594 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cos(cos(pixel2^4))/cotanh(pixel2^1.5)-.25
  c=pixel2/2-1/log(pixel2-.1/pixel2+imag(.001/pixel2))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0003995
  k2 = .13/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.07/c, c = c1
  ELSEIF (iter==l2)
    z = -.07/c, c = c2
  ELSEIF (iter==l3)
    z = -.07/c, c = c3
  ELSEIF (iter==l4)
    z = -.07/c, c = c4
  ELSEIF (iter==l5)
    z = -.07/c, c = c5
  ELSE
    z = z - .07/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2594"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2595 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(cos(conj(cos(pixel2^4))))/cotanh(pixel2^1.5)-.15
  c=pixel2/2-1/log(pixel2-.1/pixel2+imag(.001/pixel2))
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0005995
  k2 = .13/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.1/c, c = c1
  ELSEIF (iter==l2)
    z = -.1/c, c = c2
  ELSEIF (iter==l3)
    z = -.1/c, c = c3
  ELSEIF (iter==l4)
    z = -.1/c, c = c4
  ELSEIF (iter==l5)
    z = -.1/c, c = c5
  ELSE
    z = z - .1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2595"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2596 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2/2-1/log(pixel2-.1/pixel2+imag(.001/pixel2))
  z=c+.0525-conj(.1/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0005995
  k2 = .13/pixel2
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.1/c, c = c1
  ELSEIF (iter==l2)
    z = -.1/c, c = c2
  ELSEIF (iter==l3)
    z = -.1/c, c = c3
  ELSEIF (iter==l4)
    z = -.1/c, c = c4
  ELSEIF (iter==l5)
    z = -.1/c, c = c5
  ELSE
    z = z - .1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c + k2
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2596"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2597 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^5-flip(flip(pixel2)^4)-.4
  c=conj(pixel2)^2.5-flip(.01/pixel2)-conj(.1/pixel2)-.5
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0025995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.1/c, c = c1
  ELSEIF (iter==l2)
    z = -.1/c, c = c2
  ELSEIF (iter==l3)
    z = -.1/c, c = c3
  ELSEIF (iter==l4)
    z = -.1/c, c = c4
  ELSEIF (iter==l5)
    z = -.1/c, c = c5
  ELSE
    z = z - .1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2597"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2598 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^5-flip(flip(pixel2)^4)-.4
  c=z-.0625-conj(.1/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0025995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  int l5 = 300, float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = -.1/c, c = c1
  ELSEIF (iter==l2)
    z = -.1/c, c = c2
  ELSEIF (iter==l3)
    z = -.1/c, c = c3
  ELSEIF (iter==l4)
    z = -.1/c, c = c4
  ELSEIF (iter==l5)
    z = -.1/c, c = c5
  ELSE
    z = z - .1/c
  ENDIF
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2598"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,.2)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2599 (YAXIS) {; Updated for UF by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=exp(pixel2^20-flip(flip(pixel2)^4)-.4)-.5
  c=z-.0625-conj(.1/pixel2)
  c1=2*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z
  k = pixel2/imag(p2) + .0025995
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5 = 300
  float bailout=16, int iter=0, float zro = 0
loop:
  IF (iter==l1)
    z = z*zro, c = c1
  ELSEIF (iter==l2)
    z = z*zro, c = c2
  ELSEIF (iter==l3)
    z = z*zro, c = c3
  ELSEIF (iter==l4)
    z = z*zro, c = c4
  ELSEIF (iter==l5)
    z = z*zro, c = c5
  ENDIF
  z = z - .1/c
  c = c + k
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2599"
  periodicity = 0
  maxiter = 500
  magn = 1.0
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}