comment {
  Carr2200.ufm Version 1.3
  Ultra Fractal conversions of Robert Carr's formulas Carr2200 - Carr2299
  by Erik Reckase / Lale Erguner, 12 December 2002

  History:  Version 1.4 - Fixes for UF3 compatibility by
                          Lale Erguner

            Version 1.3 - minor fixes, eliminated divide by zeros

            Version 1.2 - Global optimization effort (including 2223-2230!)
                          hints, cleanup

            Version 1.1 - Fixed bug in Carr2289

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Carr2217 : adjusted cabs
                          Carr2223-2230 : extreme difficulty in conversion
                                          resulted in somewhat inefficient
                                          implementation
                          Carr2243,2247,2249 : pixel fix
                          Carr2255-2299
}

Carr2200 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel-tanh(pixel) \
      /sqrt(log(tan(pixel)+sin(pixel-1)-2.75/pixel))
  d1=conj(.0002550/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2200"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (-.5,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
}

Carr2201 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel-tanh(pixel) \
    /sqrt(log(tan(pixel)+sin(pixel-1)-2.75/pixel))
  d1=conj(.0002550/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2201"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr2202 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel*cabs(pixel) \
    /sqrt(log(tan(1-pixel)+sin(pixel-1)-2.75/pixel))
  z=-conj(.1/pixel)-tanh(.002525/pixel)
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - 1.15 - c/5
  iter = iter + 1
bailout:
  (|real(z)|) <= bailout
default:
  title = "Carr 2202"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (.4,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
}

Carr2203 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel^2.3/sqrt(log(tan(1-pixel)+sin(pixel-1)-2.75/pixel))
  z=-conj(.1/pixel)-tanh(.002525/pixel)
  d1=(conj(0.0002550/pixel)), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - 1.15 - c/5
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2203"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (.1,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
}

Carr2204 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=tan(pixel+.72)*conj(pixel)-1/log(pixel-1/sin(.001/pixel))
  c=pixel-conj(.01/pixel)-flip(.01/pixel)
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2204"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (-.5,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
}

Carr2205 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sinh(pixel^2)-1/log(pixel-.1/pixel-flip(.001/pixel))
  c=sin((-.7896,.1309)), d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2205"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (-.6,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
}

Carr2206 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  p5=.001/pixel, c=(-.3159,-.63555)
  z=sinh(pixel^2)-1/log(pixel-100*p5-flip(p5))
  d1=conj(.0002550/pixel), d4=4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c + p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2206"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr2207 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel*(pixel-.2)-1/log(.1/pixel)-cos(.01/pixel) \
    +conj(.1/pixel)+.45
  c=(-.8606,-.0959)
  d1=conj(.0002550/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2207"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.1,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
}

Carr2208 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=conj(pixel)*(pixel+1.25)-flip(asin(.01/pixel))\
    +conj(asin(.1/pixel))+.25
  c=(-.8606,-.1279)
  d1=conj(.0002550/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2208"
  periodicity = 0
  maxiter = 500
  magn = 1.5 
  center = (-.65,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
}

Carr2209 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(pixel-(conj(.1/pixel)+flip(conj(.01/pixel)))^4)
  c=(-.7456,-.3815)
  d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2209"
  periodicity = 0
  maxiter = 500
  magn = .14
  center = (5,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
}

Carr2210 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(pixel-conj(.1/pixel-flip(.01/pixel))), c=(-1.189,-.25)
  d1=conj(.0002550/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2210"
  periodicity = 0
  maxiter = 500
  magn = 14
  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
}

Carr2211 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(pixel-conj(.1/pixel-flip(.01/pixel)))
  c=(-.3309,-.70555)
  d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2211"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (2.5,-5.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
}

Carr2212 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sinh(1/(pixel-conj(.1/pixel-flip(.01/pixel)))), c=(.3,.625)
  d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.75*z+d1, z3 = 3.975*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - (.01,.001)
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2212"
  periodicity = 0
  maxiter = 500
  magn = .14
  center = (5,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
}

Carr2213 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=tan(1/(conj(pixel)-conj(.1/pixel-flip(.01/pixel))))
  c=(.3,.651), d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.75*z+d1, z3 = 3.975*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - (.091,.031)
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2213"
  periodicity = 0
  maxiter = 500
  magn = .17
  center = (3,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
}

Carr2214 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sinh((-.7456,.2)*pixel)*sqr(pixel)-conj(.1/pixel) \
    -flip(.1/pixel)
  c=(.3,.5825), d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.975*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2214"
  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
}

Carr2215 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  c=(.3,.5825), d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - (.001,.031)
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2215"
  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
}

Carr2216 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(pixel)*sqr(pixel)-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  c=(.3,.5825), d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - (.001,.031)
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2216"
  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
}

Carr2217 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  cm = cabs(.5-pixel)
  z=cm*sqr(conj(pixel))-conj(.1/pixel)-sqr(flip(.0051/pixel))+.15
  c=(-1.099,-.2249), d1=conj(.000255/pixel), d4=4*d1, d2=4.25*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, c4=1.25*z4
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=z4, c=c4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d2
  z = (z+d4)^2 + c - (.001,.031)
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2217"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.2,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
}

Carr2218 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=1/(pixel-1/log(.001/pixel)-cos(.01/pixel+1.25) \
      -conj(.1/pixel))
  d1=conj(.000255/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.975*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=z2, c=0
  ELSEIF (iter==l3)
    z=z3, c=0
  ELSEIF (iter==l4)
    z=z4, c=0
  ELSE
    z = z - c/10
  ENDIF
  c = c + d1
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2218"
  periodicity = 0
  maxiter = 500
  magn = .27
  center = (.2,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
}

Carr2219 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(pixel-1/log(.001/pixel)-cos(.01/pixel)-conj(.1/pixel))
  c=(.3,.5825), d1=conj(.000255/pixel), d2 = 2*d1, d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.975*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=z3, c=0
  ELSEIF (iter==l4)
    z=z4, c=0
  ELSE
    z = z - c/10
  ENDIF
  c = c + d2
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2219"
  periodicity = 0
  maxiter = 500
  magn = .28
  center = (2,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
}

Carr2220 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=-flip(imag(sin(pixel)))*sqr(pixel)-conj(.1/pixel) \
    -flip(.01/pixel)
  c=pixel-conj(.09/pixel-flip(.01/pixel))
  d1=conj(.0000455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 11.0625*z+d1
  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/log(z1+d4), c = z1+d4
  ELSEIF (iter==l2)
    z = 1/log(z2+d4), c = z2+d4
  ELSEIF (iter==l3)
    z = 1/log(z3+d4), c = z3+d4
  ELSEIF (iter==l4)
    z = 1/log(z4+d4), c = z4+d4
  ELSE
    z = z*sin(1) + 1/log(d4)
    c = c + d4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2220"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.6,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
}

Carr2221 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(imag(0.33-pixel))*sqr(pixel)-conj(0.10/pixel)-flip(0.010/pixel)
  c=pixel-conj(0.10/pixel-flip(0.010/pixel))
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2221"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.6,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "This iteration limit is scaled by the cosine of \
            the current pixel divided by 5.  The real part of \
            this scaled iteration limit signals a change in the \
            value of c."
  endparam
}

Carr2222 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=-flip(imag(pixel))*sqr(pixel)-conj(.1/pixel)-flip(.01/pixel)
  c=pixel-conj(.1/pixel-flip(.01/pixel))
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-0.3009,-0.63555)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2222"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.6,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "This iteration limit is scaled by the cosine of \
            the current pixel divided by 5.  The real part of \
            this scaled iteration limit signals a change in the \
            value of c."
  endparam
}

Carr2223 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel-conj(.1/pixel)-flip(conj(.01/pixel))
  c=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=0.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.0112
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.0112
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+2.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2223"
  periodicity = 0
  maxiter = 500
  magn = 0.9
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2224 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  z=pixel, c=.875*c+(-.7456,-.132)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=0.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.0111
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.0111
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+2.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2224"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.3,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2225 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel, c=.875*(pixel^2+.25)-(.3,.65)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=0.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.01105
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.01105
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2225"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2226 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  c=.875*(pixel^2+.19)+(-.8656,.2)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=0.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.01105
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.01105
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2226"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2227 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  c=.875*(pixel^6+.196)+(-.8656,.2)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=0.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.010255
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.010255
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2227"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2228 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  c =.875*(pixel^8+.196)+(-.8656,.2)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test0 && test3
      z = 0
    ELSE
      z=z*1.010555
    ENDIF
    zfinal = |z|
    bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (1.53*z^7-1)/(imag(p1)*1.53*z^6)
    ENDIF
    z = z - z1
    z=z*1.010555
    zfinal = b2
    bfinal = |z1|
  ENDIF
  iter=iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2228"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2229 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=(|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0051/pixel)))^1.2
  c=.875*(pixel^12+.196)+(-.8856,.2)
  float iter=1, float rad=6, center=(-7.6,-3.0)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test0 && test3
      z = 0
    ELSE
      z=z*1.011555
    ENDIF
    zfinal = |z|
    bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (1.53*z^7-1)/(imag(p1)*1.53*z^6)
    ENDIF
    z = z - z1
    z=z*1.011555
    zfinal = b2
    bfinal = |z1|
  ENDIF
  iter=iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2229"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2230 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(pixel), c=.875*(pixel^10+.196)+(-.8856,.2)
  float iter=1, float rad=6, center=(.6,.3)
  pix=(10*pixel^2+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  float b1=16, float b2=.0001
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ELSE
      z = z*1.011555
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^7-1)/(imag(p1)*z^6)
    ENDIF
    z = z - z1
    z = z*1.011555
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2230"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit/Scalar"
    default = (100,5)
  endparam
}

Carr2231 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^3-conj(.1/pixel)-flip(.01/pixel)
  c=pixel/5+pixel/3+(pixel/2)^4
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2231"
  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
}

Carr2232 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel^3-conj(.1/pixel)-flip(.01/pixel)
  z=flip(pixel/5)+conj(pixel/3)+(pixel/2)^4
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2232"
  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
}

Carr2233 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.1/pixel)-flip(.01/pixel)
  z=flip((pixel-b)/5)+((pixel-b)/3)+(pixel/2)^4
  c=(-.7056,-.122), p5=.05*pixel
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2233"
  periodicity = 0
  maxiter = 500
  magn = .65
  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
}

Carr2234 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.1/pixel)-flip(.01/pixel)
  z=1/log((pixel-b)/5)+(pixel-b)/3+(pixel/2)^4
  c=(-.7056,-.122), p5=.05*pixel
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2234"
  periodicity = 0
  maxiter = 500
  magn = .65
  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
}

Carr2235 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.01/pixel)-flip(.1/pixel)
  z=1/log((pixel-b)/5)+(pixel-b)/3+(pixel/2)^8
  c=(-.7056,-.122), p5=.05*pixel
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2235"
  periodicity = 0
  maxiter = 500
  magn = .65
  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
}

Carr2236 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.01/pixel)-flip(.1/pixel)
  z=(pixel-b)/5+1/log((pixel-b)/3)+(pixel/2)^8
  c=(-.7056,-.122), p5=.05*pixel
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2236"
  periodicity = 0
  maxiter = 500
  magn = .65
  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
}

Carr2237 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=exp(.001/pixel)-1/log(.1/pixel)
  z=1/log((pixel-b)/5)+(pixel-b)/3+((pixel-b)/2)^4
  c=(-.7056,-.102), p5=.05*pixel
  d1=conj(.0001455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2237"
  periodicity = 0
  maxiter = 500
  magn = .65
  center = (1,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
}

Carr2238 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel-log(pixel-1/tan(.001/pixel))^-2.5
  c=sin((-.655,.3959)), p5=pixel/15
  d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2238"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2239 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=3*pixel-log(pixel-1/tan(.001/pixel))^-2.5+.28
  c=sin((-.655,.3789)), p5=pixel/15
  d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2239"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}


Carr2240 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.001/pixel)-.01/pixel
  z=3*pixel-log(pixel-1/tan(.001/pixel))^-2.5+.28
  c=sin((-.655,.3789)), p5=pixel/15
  d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2240"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2241 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=.0005/pixel-conj(.005/pixel), p5=.05*pixel
  z=(3*pixel)-log(pixel-1/tan(.001/pixel))^-2.5+.28
  c=sin((-.7456,-.23)), d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2241"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2242 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  p5=.05*pixel, z=3*pixel+conj(pixel-flip(.01/pixel))
  c=sin((-.7456,-.23)), d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2242"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2243 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b=.0005/pixel2-conj(.005/pixel2), p5=.05*pixel2
  z=3*pixel2+conj(pixel2-flip(.01/pixel2))+.3
  c=sin((-.655,.3589))
  d1=conj(.0002455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2243"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2244 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  p5=.05*pixel, b=flip(conj(.001/pixel))
  z=3*pixel-conj(.001/pixel-flip(.01/pixel))+1/pixel
  c=sin((-.655,.3819))
  d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2244"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  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
}

Carr2245 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.001/pixel), p5=.025*pixel
  z=3*pixel-conj(.001/pixel-flip(.01/pixel))+1/pixel+.275
  c=pixel-.05
  d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2245"
  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
}

Carr2246 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.001/pixel), p5=.05*pixel
  z=6*pixel-sin(.001/pixel-tan(.01/pixel))+1/pixel+.275
  c=sin((-.655,.3359)), d1=conj(.0002455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 1.02*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2246"
  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
}

Carr2247 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b=conj(.001/pixel2), p5=.05*pixel2
  z=3.5*pixel2-sin(.001/pixel2-tan(.01/pixel2)) \
    +conj(.001/pixel2)+.275
  c=sin((-.515,.0959))
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2247"
  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
}

Carr2248 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b=conj(.001/pixel), p5=.05*pixel
  z=3.5*pixel^5-sin(.001/pixel-tan(.01/pixel)) \
    +conj(.001/pixel)+.135
  c=sin((-.515,.4399))
  d1=conj(.0004455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + b
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 1.025*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2248"
  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) <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
}

Carr2249 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  k=sin(2*pixel2)^2.75+tan(2*pixel2)^2.25
  z=k-sin(.001/pixel2-tan(.01/pixel2))+conj(.001/pixel2)+.115
  c=sin((-.615,.3019)), p5=pixel2/30
  d1=conj(.0004455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 1.025*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2249"
  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
}

Carr2250 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=2*pixel, r3 = r/30
  z=c=r-conj(.01/pixel)+flip(.1/pixel)+.09
  d1=conj(.0004455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2= 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .9*c - r3
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2250"
  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
}

Carr2251 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=flip(2*pixel2), p5=(r+pixel2)/30
  z=c=r-conj(.01/pixel2)+flip(.1/pixel2)-.15
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2251"
  periodicity = 0
  maxiter = 500
  magn = 2
  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
}

Carr2252 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=2*pixel2, p5=(r+pixel2)/30
  z=c=r-conj(.01/pixel2)+flip(.1/pixel2)-.15
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2252"
  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
}

Carr2253 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=2*pixel, p5=.05*(r+pixel)
  z=c=r-conj(.03/pixel)+flip(.003/pixel)-.055/pixel-.15
  d1=conj(.0004455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .95*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2253"
  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
}

Carr2254 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=flip(conj(2*pixel)), p5=(r+pixel)/30
  z=c=r-conj(.0095/pixel)+flip(.019/pixel)-tanh(.029/pixel)-.29
  d1=conj(.0004455/pixel), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2254"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  center = (0,.22)
  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
}

Carr2255 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=2*pixel2, p5=r/35+.025*pixel2
  z=c=r-conj(.0095/pixel2)+sinh(.019/pixel2)-tanh(.029/pixel2)-.29
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 34*c/35 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2255"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2256 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(2*pixel2), p5=r/35+.025*pixel2
  z=c=r-conj(.0095/pixel2)+sinh(.019/pixel2)-tanh(.029/pixel2)-.29
  d1 = conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 34*c/35 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2256"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2257 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(pixel2/2), p5=.1*r+pixel2/30
  z=c=3.5*pixel2^5-r-sin(.08-flip(.01/pixel2)) \
    +conj(.0535/pixel2)+.097
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2257"
  periodicity = 0
  maxiter = 500
  magn = 1.8
  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
}

Carr2258 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=flip(pixel2/4+pixel2/3), p5=.1*r-pixel2/30
  z=c=2*pixel2^4-r-sin(.8*pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)+.117
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2258"
  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
}

Carr2259 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(tanh(pixel2/5+pixel2/7)), p5=.1*r-pixel2/30
  z=c=2*pixel2^7-r-sin(.0001/pixel2-flip(.009/pixel2)) \
      +conj(.1873/pixel2)+.117
  d1 = conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2259"
  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
}

Carr2260 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=tanh(pixel2/5+pixel2/7), p5=.025*(r-pixel2)
  z=c=(3*pixel2)^10+r-flip(pixel2^2 \
      -conj(.01/pixel2)-flip(.01/-pixel2))-.25
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2260"
  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
}

Carr2261 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, p5=.175*pixel2
  z=c=sinh(pixel2)-1/log(4*pixel2-conj(.01/pixel2/1.5)\
      -flip(.001/pixel2)+.6/r)
  d1=conj(.0019955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2261"
  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
}

Carr2262 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, p5=r/13.5-.1*pixel2
  z=c=sinh(pixel2)-1/log(4*flip(pixel2)-conj(.01/pixel2) \
      -flip(.001/pixel2)+4.6/r)
  d1=conj(.0019955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .9*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2262"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  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
}

Carr2263 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=8*pixel2, j=pixel2, p5=.7*pixel2
  z=c=sinh(j)-1/log(2*j+0.0450/j-conj(-.01/j)-flip(.05/j)+4.6/r)
  d1=conj(.0012955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 6.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .9*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2263"
  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
}

Carr2264 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=2*pixel2, p5=.45*pixel2
  z=c=sinh(pixel2)-1/sqrt(j+.355/j-conj(.01/pixel2)\
      -flip(.025/pixel2)+2/r)
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1=(1.5*z+d1), z2=(2.25*z+d1), z3=(3.375*z+d1), z4=(5.0625*z+d1)
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .95*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2264"
  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
}

Carr2265 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=pixel2, p5=.45*pixel2
  z=c=tanh(pixel2+pixel2/.9)-1/sqrt(j+.355/j-conj(.01/pixel2) \
      -flip(.025/pixel2)+2/r)
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .95*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2265"
  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
}

Carr2266 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=2*pixel2, p5=.45*pixel2
  z=tanh(4.33*pixel2)-1/sqrt(j+.355/j-conj(.03/pixel2) \
    -flip(.055/pixel2)+2/r)
  c=2*pixel2+(-.099,-.2249)
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .95*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2266"
  periodicity = 0
  maxiter = 500
  magn = 6
  center = (0,-.01)
  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
}

Carr2267 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=flip(3.5*pixel2-.5)+conj(pixel2-.6), p5=.45*pixel2
  z=tanh(pixel2)-1/sqrt(j+.555/j-conj(.03/pixel2) \
    -flip(.055/pixel2)+2/r)
  c=2*pixel2+(-.099,-.2249)
  d1=conj(.0004455/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .95*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2267"
  periodicity = 0
  maxiter = 500
  magn = 2
  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
}

Carr2268 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=flip(3.5*pixel2-.9)+conj(pixel2-.9), p5=.18*pixel2
  z=tanh(2*pixel2)-1/sqrt(j+.555/j-conj(.03/pixel2) \
    -flip(.055/pixel2)+2/r)
  c=2*pixel2+(-.099,-.2249)
  d1=conj(.0003955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .98*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2268"
  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
}

Carr2269 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, j=flip(3.5*pixel2-.9)+conj(pixel2-.9) 
  p5=.18*pixel2
  z=conj(flip(2*pixel2))-1/sqrt(j+.555/j-conj(.03/pixel2) \ 
    -flip(.055/pixel2)+2/r)
  c=2*pixel2+(-.099,-.2249)
  d1=conj(.0003955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .98*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2269"
  periodicity = 0
  maxiter = 500
  magn = 3
  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
}

Carr2270 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*4, j=flip(3.5*pixel2-.9)+conj(pixel2-.9), p5=pixel2/6
  c=conj(flip(2*pixel2))-1/sqrt(j+.555/j-conj(.03/pixel2) \
    -flip(.055/pixel2)+2/r)
  z=2*conj(pixel2+.15)
  d1=conj(.0011055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2270"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  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
}

Carr2271 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=sin(sinh(sin(pixel2)))+tan(tanh(tan(pixel2)))
  z=2*conj(pixel2), p5=.225*pixel2
  c=z-j+conj(.01/pixel2)+flip(.001/pixel2)
  d1=conj(.0011055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2271"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2272 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=conj(sinh(sin(pixel2)))+flip(tanh(tan(pixel2)))
  c=conj(2*pixel2)-j+conj(.01/pixel2)+flip(.001/pixel2)
  z=1/log(2*conj(pixel2+.2)), p5=.3*pixel2
  d1=conj(.0008055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2272"
  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
}

Carr2273 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=conj(sinh(sin(pixel2)))+flip(tanh(tan(pixel2)))
  z=conj(2*pixel2)-j+conj(.01/pixel2)+flip(.001/pixel2)
  c=1/(2*pixel2-(conj(.1/pixel2)+flip(conj(.01/pixel2)))^4)
  d1=conj(.0002955/pixel2), d4=4*d1, p5=.3*pixel2
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .1*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2273"
  periodicity = 0
  maxiter = 500
  magn = 12
  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
}

Carr2274 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=1.8*pixel2, p5=.225*pixel2
  z=conj(2*pixel2)-j+conj(.01/pixel2)+flip(.001/pixel2)
  c=1/(2*pixel2-(conj(.1/pixel2)+flip(conj(.01/pixel2)))^4.1)
  d1=conj(.0002955/pixel2), d4=4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2274"
  periodicity = 0
  maxiter = 500
  magn = 12
  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
}

Carr2275 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=flip(3.8*pixel2), p5=.3*pixel2
  z=1.8*pixel2-j/6+conj(.01/pixel2)+flip(.001/pixel2)
  c=(.4,.2)+pixel2+conj(pixel2)+flip(pixel2)
  d1=conj(.0005955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/6
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 29*c/30 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2275"
  periodicity = 0
  maxiter = 500
  magn = 2
  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
}

Carr2276 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  p5=.225*pixel2
  c=2*pixel2-log(pixel2-1/tan(.001/pixel2))^-3.8
  z=pixel2+conj(flip(pixel2))+flip(tanh(pixel2))
  d1=conj(.0006035/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/6
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2276"
  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
}

Carr2277 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), p5=.225*pixel2
  c=2*pixel2-log(pixel2-1/tan(.001/pixel2))^-3.8
  z=pixel2+conj(flip(pixel2))+flip(tanh(conj(sinh(pixel2))))
  d1=conj(.0006035/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/6
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2277"
  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
}

Carr2278 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), p0=.2*pixel2
  r=pixel2*8, m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  c=6*pixel2+flip(.0055/pixel2) \
    -log(pixel2-1/tan(.001/pixel2))^-4.8
  z=2*m+3*pixel2-flip(.0035/pixel2), p5=r/30+.025*pixel2
  d1=.0003415/pixel2, d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6=z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - p0
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2278"
  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
}

Carr2279 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), p0=.2*pixel2
  m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  c=sin((-.515,.0959)), p5=.225*pixel2
  z=2*m+3*pixel2-flip(.0035/pixel2)
  d1=imag(.0014515/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6 = z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - p0
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2279"
  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
}

Carr2280 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), p0=.2*pixel2
  m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  c=6*pixel2+flip(.0055/pixel2) \
    -log(pixel2-1/tan(.001/pixel2))^-4.8
  z=2*m+3*pixel2-flip(.0035/pixel2), p5=.225*pixel2
  d1=imag(.0002515/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6 = z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - p0
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .975*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2280"
  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
}

Carr2281 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  z=3.5*pixel2^5-sin(.001/pixel2-tan(.01/pixel2))\
    +conj(.001/pixel2)+.135
  c=2*m+3*pixel2-flip(.0035/pixel2), p5=.36*pixel2
  d1=imag(.0005615/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6 = z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - .125*c
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2281"
  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
}

Carr2282 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  z=2.5*pixel2^3.5-sin(.001/pixel2-tan(.01/pixel2)) \
    +conj(.001/pixel2)+.135
  c=m+3*conj(pixel2-flip(.0035/pixel2)), p5=.36*pixel2
  d1=imag(.0006235/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6 = z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - .125*c
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2282"
  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
}

Carr2283 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=sinh(pixel2+flip(.0035/pixel2))
  z=2.5*tanh(pixel2^3.5)-sin(.001/pixel2-tan(.01/pixel2)) \
    +conj(.001/pixel2)+.135
  c=m+3*tan(pixel2-flip(.0035/pixel2)), p5=.36*pixel2
  d1=tan(abs(sinh(imag(.0006235/pixel2)))), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1
  z4 = 5.0625*z+d1, z6 = z4^6
  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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    z=0, c=0
  ELSE
    z = z - .125*c
  ENDIF
  IF (iter==l4)
    z = z + z4+d4, c = c + z6+d4
  ELSE
    z = z + d4, c = c + d4
  ENDIF
  z = z*z + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2283"
  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
}

Carr2284 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=flip(pixel2/4+pixel2/3), p5=.36*pixel2
  z=2*pixel2^4-m-sin(.8*pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)-.3
  c=4*pixel2^4-m-sin(pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)-.3
  d1=tan(abs(sinh(imag(.0015235/pixel2)))), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .96*c - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2284"
  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) <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
}

Carr2285 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, m=flip(pixel2/4+pixel2/5), p5=(r+pixel2)/35
  z=conj(2*pixel2^4)-m-sin(.8*pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)-.3
  c=flip(4*pixel2^4)-m-sin(pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)-.3
  d1=tan(abs(sinh(imag(.0019235/pixel2)))), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 34*c/35 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2285"
  periodicity = 0
  maxiter = 500
  magn = 1.8
  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
}

Carr2286 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=pixel2*8, m=flip(pixel2/4+pixel2/5), p5=(r+pixel2)/35
  z=2*pixel2^4-m-sin(.8*pixel2-flip(.01/pixel2)) \
    +conj(.1275/pixel2)-.3
  c=conj(flip(4*pixel2^4))-m-sin(pixel2-flip(.02/pixel2)) \
    +conj(.01275/pixel2)-.5
  d1=conj(.0019235/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - .125*c
  ENDIF
  c = c + d4
  z = (z+d4)^2 + 34*c/35 - p5
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2286"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  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
}

Carr2287 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=pixel2/tanh(.3/pixel2), c=pixel2
  d1=.0009235/pixel2, d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2287"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2288 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=pixel2-asin(pixel2)
  d1=conj(.0038935/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2288"
  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
}

Carr2289 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  c=2*pixel2-flip(.001/pixel2)-conj(.01/pixel2)
  z=pixel-conj(asin(2*pixel+.32))
  d1 = flip(-.0005935/pixel2), d4 = 4 * d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2289"
  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
}

Carr2290 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  c=2*pixel2-flip(.001/pixel2)-conj(.01/pixel2)
  z=pixel2-conj(asin(2*pixel2+.39))
  d1=conj(.0003775/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2290"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  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
}

Carr2291 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=(.33-cos(pixel2))/(.33-tan(2*pixel2))+.5
  d1=cabs(.0005955/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2291"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  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
}

Carr2292 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=conj(.33-cos(pixel2))/(.33-tan(2*pixel2))+.5
  d1=cabs(.0010055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2292"
  periodicity = 0
  maxiter = 500
  magn = .9
  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
}

Carr2293 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=sinh(tanh(.63-cos(pixel2)))/conj(2*pixel2+.6)
  d1=abs(.0010055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2293"
  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
}

Carr2294 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=flip(conj(abs(pixel2^2)))
  d1=real(.0016055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + .96*c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2294"
  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
}

Carr2295 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel2=-abs(real(pixel))+flip(imag(pixel)), c=(-.3,.3)
  d1=flip(.0014355/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2295"
  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
}

Carr2296 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=pixel2-conj(.01/pixel2)-flip(.1/pixel2)
  d1=.0015355/pixel2, d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2296"
  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
}

Carr2297 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  j=(1-pixel2)^1.8/flip(asinh(pixel2))
  z=c=pixel2/j-conj(.01/pixel2)-flip(.1/pixel2)
  d1=flip(.1095355/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2297"
  periodicity = 0
  maxiter = 500
  magn = .003
  center = (0,-200)
  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
}

Carr2298 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=conj(flip(pixel2)-sinh(2*pixel2))-.3
  c=conj(pixel2)-tan(flip(1.4*pixel2+.2))
  d1=flip(.0007355/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2298"
  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
}

Carr2299 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=c=tanh(pixel2)-((.3,.6)+pixel2)*pixel2/.2
  d1=real(.0009055/pixel2), d4 = 4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  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=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2299"
  periodicity = 0
  maxiter = 500
  magn = 3
  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
}