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

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

            Version 1.2 - Minor changes, eliminate divide by zero

            Version 1.1 - Major optimization overhaul, hints, cleanup 

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Fixed errors in Carr 2018, 2032, 2042
}

Carr2000 (XAXIS) { ; Updated for UF2 by Erik Reckase, March 2000
                   ; Modified Sylvie Gallet frm. 
init:
  z=c=pixel-1/log(cos(1/pixel))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/l4
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z = z*z + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2000"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (-.233,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
}

Carr2001 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel+1/log(pixel), z1=imag(p1)*z-p2
  int iter=0, int limit=round(real(p1)), float bailout=16
loop:
  IF (iter==limit)
    z = z1, c = p3
  ENDIF
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= bailout  
default:
  title = "Carr 2001"
  periodicity = 0
  maxiter = 500
  magn = 0.9
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Lim/Julia Scale"
    default = (50,1)
    hint = "The real part of this parameter acts as an \
            iteration limit, where the formula's calculation \
            changes.  The imaginary part of this parameter \
            scales the Julia structure."
  endparam
  param p2
    caption = "Julia Center"
    default = (-0.3,0)
  endparam
  param p3
    caption = "Julia Params"
    default = (-0.65,-0.4)
  endparam
}

Carr2002 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel, z1=imag(p1-pixel)*z-p2
  int iter=0, int limit=round(real(p1)), float bailout=16
loop:
  IF (iter==limit)
    z = z1, c = p3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 2002"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Lim/Julia Scale"
    default = (50,1)
    hint = "The real part of this parameter acts as an \
            iteration limit, where the formula's calculation \
            changes.  The imaginary part of this parameter \
            scales the Julia structure."
  endparam
  param p2
    caption = "Julia Center"
    default = (-0.3,0)
  endparam
  param p3
    caption = "Julia Params"
    default = (-0.65,-0.4)
  endparam
}

Carr2003 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel, z1=imag(p1-cos(pixel))*z-p2
  int iter=0, int limit=round(real(p1)), float bailout=16
loop:
  IF (iter==limit)
    z = z1, c = p3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 2003"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Lim/Julia Scale"
    default = (50,1)
    hint = "The real part of this parameter acts as an \
            iteration limit, where the formula's calculation \
            changes.  The imaginary part of this parameter \
            scales the Julia structure."
  endparam
  param p2
    caption = "Julia Center"
    default = (-0.3,0)
  endparam
  param p3
    caption = "Julia Params"
    default = (-0.65,-0.4)
  endparam
}

Carr2004 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel, z1=imag(p1-cos(2*(pixel)))*z-p2
  int iter=0, int limit=round(real(p1)), float bailout=16
loop:
  IF (iter==limit)
    z = z1, c = p3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 2004"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Lim/Julia Scale"
    default = (50,1)
    hint = "The real part of this parameter acts as an \
            iteration limit, where the formula's calculation \
            changes.  The imaginary part of this parameter \
            scales the Julia structure."
  endparam
  param p2
    caption = "Julia Center"
    default = (-0.3,0)
  endparam
  param p3
    caption = "Julia Params"
    default = (-0.65,-0.4)
  endparam
}

Carr2006 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=c=pixel-1/log(sinh(1/pixel))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z = z*z + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2006"
  periodicity = 0
  maxiter = 500
  magn = 0.9
  center = (-.233,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
}

Carr2007 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  c=pixel, z=pixel+1/log(pixel)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z = z*z + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2007"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.233,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
}

Carr2008 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel, c=pixel-1/log((-.7456,.2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z = z*z + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2008"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (-.233,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
}

Carr2009 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  c=pixel+1/log(pixel)
  z=pixel-1/log(pixel-1/log(tan(1/pixel))-1/log(2/pixel))
  c1=1.5*z, c3=3.375*z
  l1=round(real(p1)), l3=round(real(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ENDIF
  c = c + pp2
  z = z*z + c
  iter = iter + 1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2009"
  periodicity = 0
  maxiter = 500
  magn = 1.25
  center = (-.233,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
}

Carr2010 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pp1=1/pixel, z=1/(pixel-real(pp1)+flip(imag(pp1)*2.924))
  c=1/(pixel-conj(pp1)-flip(pp1))
  c1=1.5*z, c3=3.375*z
  l1=round(real(p1)), l3=round(real(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ENDIF
  c = c + pp2
  z=z*z + c + (-.3,.6)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2010"
  periodicity = 0
  maxiter = 500
  magn = 0.3
  center = (-.233,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
}

Carr2011 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pp1=1/pixel, c=1/(pixel-conj(pp1)-flip(pp1))
  z=1/(pixel-3/c+c/4-conj(pp1))
  c1=1.5*z, c3=3.375*z
  l1=round(real(p1)), l3=round(real(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ENDIF
  c = c + pp2
  z=z*z + c + (.35776,-.08294)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2011"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (-4.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
}

Carr2012 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=pixel+1/log(pixel), c=pixel
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2012"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (-.25,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
}

Carr2013 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=c=.724*real(pixel)+flip(imag(pixel))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2013"
  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
}

Carr2014 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=c=.724*real(pixel)+flip(imag(pixel))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=flip(conj(z*z))+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2014"
  periodicity = 0
  maxiter = 500
  magn = .95
  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
}

Carr2015 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=c=.724*real(pixel)+flip(imag(pixel)), p0=.09/pixel
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=flip(conj(z*z))+c-p0
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2015"
  periodicity = 0
  maxiter = 500
  magn = .95
  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
}

Carr2016 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=pixel, c=(-.3,.6)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z^3/5+z^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2016"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2017 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=c=pixel-1/log(conj(.5/pixel-1))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2017"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  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
}

Carr2018 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel+1/log(.1*pixel)*(sinh(.1/pixel))
  c=sqrt(pixel-conj(.135/pixel))+pixel 
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, k = cos(.1345/pixel)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=z*z+c-k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2018"
  periodicity = 0
  maxiter = 500
  magn = 2.5
  center = (.15,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
}

Carr2019 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel-1/log(10*pixel)*(sinh(.1/pixel)), c=(-.7456,-.13)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=(real(z)/5 + 1)*z^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2019"
  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
}

Carr2020 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel+sqrt(10*pixel)*tan(.1/pixel), c=(-.7456,-.13)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=z*z+c-0.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2020"
  periodicity = 0
  maxiter = 500
  magn = 1.35
  center = (-.16,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
}

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

Carr2022 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel+tan(.1/pixel-.025)/log(cos(.1/pixel-.025))
  c=(-.7456,-.13)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c=z+c/2.125
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2022"
  periodicity = 0
  maxiter = 500
  magn = 20
  center = (0.015,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
}

Carr2023 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel+tan(.1/pixel-.025)/log(cos(.1/pixel-.025))
  c=(-.87456,-.13)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z2=z*z
  z=(real(z)/5 + 1)*z2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2023"
  periodicity = 0
  maxiter = 500
  magn = 22
  center = (0.005,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
}

Carr2024 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=1.442*real(pixel-1/log(.019/pixel))+flip(imag(pixel))
  c=(-.7456,-.13)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2024"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (-0.22,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
}

Carr2025 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  c=(-.7456,-.13), z=pixel-conj(.1/pixel)-flip(.1/pixel)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2025"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

Carr2026 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  c=(-.7456,-.13), z=pixel-conj(.1/pixel)-flip(.1/pixel)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=(real(z)/5+1)*z^2+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2026"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-0.25,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
}

Carr2027 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  c=(-.7456,-.171), p10=.1/pixel
  z=pixel-conj(p10)-flip(p10)-cabs(p10)-tan(p10)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2027"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0.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
}

Carr2028 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  p10=10*pixel, z=pixel-1/log(sqrt(p10)*tan(1/p10))
  c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2028"
  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
}

Carr2029 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel+1/log(sqrt(.1/pixel)*log(.1/pixel)), c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2029"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0.05,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
}

Carr2030 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=sin(pixel)-log(sqrt(.1/pixel)*cos(log(.1/pixel)))
  c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2030"
  periodicity = 0
  maxiter = 500
  magn = 12.5
  center = (0.14,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
}

Carr2031 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=sin(pixel)-log(sqrt(.1/pixel)*cos(log(.1/pixel)))
  c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c=z+(c+pp2)/2.125
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2031"
  periodicity = 0
  maxiter = 500
  magn = 10
  center = (0.07,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
}

Carr2032 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel-conj(sqrt(.1/pixel))/cos(sqrt(0.1/pixel)) \
    /conj(cos(pixel))
  c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2032"
  periodicity = 0
  maxiter = 500
  magn = 1.23
  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
}

Carr2033 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  op = sqrt(.1/pixel)
  d=conj(op)/cos(op), d1=d^pixel, z=pixel-d/d1, c=(-.7456,-.171)
  c1=(1.5*z), c2=(2.25*z), c3=(3.375*z), c4=(5.0625*z)
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/l4
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2033"
  periodicity = 0
  maxiter = 500
  magn = 1
  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
}

Carr2034 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  p01=.1/pixel, sq=sqrt(p01), d2=tan(p01)/sq, d=conj(sq)/cos(sq)
  d1=d^(pixel-1), z=pixel-conj(.1*d1)+d2, c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2034"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

Carr2035 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel-log(cos(.01/pixel))/pixel-conj(.105/pixel)
  c=(-.7456,-.171)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2035"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

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

Carr2037 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=pixel-log(cos(.01/pixel))/pixel-1/log(flip(imag(.305/pixel)))
  c=(-.38652609,.575229)+.01/pixel
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + pp2
  z=z*z+c+.057
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2037"
  periodicity = 0
  maxiter = 500
  magn = 1
  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
}

Carr2038 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=z=pixel-log(cos(.01/pixel))/pixel \
    -1/log(flip(imag(.305/pixel)))
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c=(-.745680900000982,.1931)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2038"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (-.5,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
}

Carr2039 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel+1/log(10*pixel), c=(-.7456,-.13)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2039"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (-.25,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2040 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel, c=pixel-conj(0.10/pixel)-flip(0.10/pixel)
  float iter=1, rad=6, center=(1,.1), th1=1-tanh(1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2040"
  periodicity = 0
  maxiter = 500
  magn = 0.8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2041 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(-.7456,-.13), z=pixel-conj(.1/pixel)-flip(.1/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2041"
  periodicity = 0
  maxiter = 500
  magn = 0.9
  center = (-.2,-.15)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2042 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel-1/log(.00000001)/pixel-conj(.01/pixel)  
  c=pixel-(.00000001-z)/conj(cos(1/log(.00000001-z)))
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = real(z^2)*z^4+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2042"
  periodicity = 0
  maxiter = 500
  magn = 0.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2043 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(.3,.6), z=pixel
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c/(z^6-1)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2043"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2044 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:  
  z=pixel-conj(.01/pixel)-flip(.01/pixel), c=(.3,.6)-(.0165/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c/(z^6-1)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2044"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (.2,.4)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2045 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel-((.3,.6)+pixel)/1.099, c=(-.7456,-.13)-.09/cos(pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2045"
  periodicity = 0
  maxiter = 500
  magn = .11
  center = (3.15,5.04)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2046 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=tanh(pixel)+((.3,.6)+pixel)*pixel/.2
  c=(-.7456,-.13)-.05/cos(pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2046"
  periodicity = 0
  maxiter = 500
  magn = 2.3
  center = (-.25,-.33)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2047 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init: 
  z=pixel^3-conj(.01/pixel)-flip(.01/pixel)
  c=(-.7456,-.13)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2047"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2048 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init: 
  z=(.3,-.6)*|pixel|*pixel-conj(.01/pixel)-flip(.01/pixel)
  c=(-.7456,-.13)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2048"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2049 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=c=(.3,-.6)*|pixel|*pixel-conj(.01/pixel)-flip(.01/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2049"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,-.1)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2050 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init: 
  z=c=sinh((-.7456,.2)*pixel)*pixel^2-conj(.01/pixel) \
      -flip(.01/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2050"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,-.1)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2051 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init: 
  c=pixel^3+conj(.0001/pixel)+flip(.0001/pixel)+tanh(.0001/pixel)
  z=pixel-conj(.01/pixel)-flip(.01/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix=(10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
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,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE      
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2051"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,-.1)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2052 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=tanh(pixel)+((0.3,0.6)+pixel)*pixel/.2
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c 
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2052"
  periodicity = 0
  maxiter = 500
  magn = 2.25
  center = (-.25,-.25)
  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
}

Carr2053 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=sinh((-.7456,.2)*pixel)*pixel^2-conj(.1/pixel) \
      -flip(.1/pixel)
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2053"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,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
}

Carr2054 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  op = .01/pixel, z=pixel^3+conj(op)+flip(op)+tanh(op)
  c=(-.7456,-.13)-conj(.001/pixel)
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2054"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,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
}

Carr2055 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=conj(pixel)^4-conj(.02/pixel)-flip(.02/pixel)
  c=(-.7456,.13)+.009/pixel
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2055"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,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
}

Carr2056 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=conj(pixel)^4-tan(.0002/pixel)-sin(.0002/pixel)
  c=(-.7456,-.03)+.009/pixel
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2056"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,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
}

Carr2057 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=real(pixel^2)+flip(imag(pixel))
  c=conj(pixel)^4-sqr(.02/pixel)-exp(.02/pixel)
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2057"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  center = (0,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
}

Carr2058 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel+tan(.1/pixel)/sqrt(.1/pixel), c=(-.7456,-.13)-.01/pixel
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z= z*z + c -.0087
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2058"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.16,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
}

Carr2059 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:   
  z=pixel+tan(.001/pixel)/sqrt(.001/pixel)
  c=pixel-1/log(.01/pixel)/tan(.1/pixel)
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2059"
  periodicity = 0
  maxiter = 500
  magn = 4.5
  center = (-.1,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
}

Carr2060 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel, z=pixel^3-conj(.01/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2060"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2061 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=pixel, z=pixel^3-conj(.01/pixel)-flip(.1/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2061"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2062 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=pixel, z=pixel^3-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2062"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2063 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel, z=pixel^3-conj(.1/pixel)-sqr(flip(.01/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2063"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2064 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel, z=pixel^3-sqr(conj(.1/pixel))-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2064"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2065 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=flip(imag(pixel))
  z=pixel^3-sqr(conj(.1/pixel))-sqr(flip(.01/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2065"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2066 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=flip(imag(pixel^2))
  z=pixel^3-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2066"
  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
}

Carr2067 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=1.33*pixel, z=|pixel|*pixel-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2067"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (-0.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
}

Carr2068 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0001/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2068"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-0.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
}

Carr2069 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=sinh(conj(pixel^2))
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0001/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2069"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2070 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=conj(.75*pixel^2)^2
  z=|pixel|*pixel-sqr(conj(.1/pixel))-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*conj(z)
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2070"
  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
}

Carr2071 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*conj(z)
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2071"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2072 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=conj(flip(pixel))*pixel
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-sqr(flip(.01/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*conj(z)
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2072"
  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
}

Carr2073 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  z=c=pixel^3-conj(.1/pixel)-sqr(flip(.01/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*conj(z)
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2073"
  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
}

Carr2074 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=pixel^3-conj(.1/pixel)-flip(.01/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 2074"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,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
}

Carr2075 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=pixel-conj(.1/pixel)-flip(.01/pixel)
  z=pixel^3-conj(.1/pixel)^2-flip(.01/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 2075"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-0.1,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
}

Carr2076 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  c=pixel^3-conj(.1/pixel)^2-flip(.01/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 2076"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,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
}

Carr2077 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
  z=c=|pixel|*pixel-conj(.1/pixel)-flip(.01/pixel)^2
  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 2077"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-0.1,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
}

Carr2078 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=|pixel|*pixel-conj(.01/pixel)^2-flip(.1/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 2078"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-0.1,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
}

Carr2079 {; Updated for UF2 by Erik Reckase, March 2000
          ;Modified Sylvie Gallet frm. 
init: 
  z=c=|pixel|*pixel-conj(.01/pixel)^2-flip(.1/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2079"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-.15,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
}

Carr2080 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel
  z=-flip(imag(pixel))*conj(pixel)^2-conj(.1/pixel) \
    -flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2080"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2081 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=pixel
  z=-flip(imag(pixel))*|pixel|-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2081"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2082 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel^2/conj(pixel)
  z=-flip(imag(pixel))*|pixel|-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2082"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2083 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=sinh(pixel)^4/conj(pixel)
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2083"
  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
}

Carr2084 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=sinh(pixel)^4/conj(pixel)
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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 + conj(.001/c)
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2084"
  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
}

Carr2085 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=sinh(pixel)^5/conj(pixel)^1.5
  z=pixel^3-conj(.1/pixel)^2-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
  d4 = 4*tanh(.01/z), d1 = conj(.00001/c)
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 + d1  
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2085"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2086 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=conj(pixel-.33)
  z=c*pixel^2-conj(.1/pixel)+flip(.01/pixel)^2
  z1 = 2.25*z, z2 = 3.25*z, z3 = 5.375*z, z4 = 10.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0, d=.0125/conj(z)
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
  z = (z-d)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2086"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2087 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=pixel
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  z1 = 2.25*z, z2 = 3.25*z, z3 = 5.375*z, z4 = 10.0625*z
  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
  z=z*z+c-.1/c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2087"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  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
}

Carr2088 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=(-.8006,-.149)
  z=flip(conj(1-pixel))*pixel^2-conj(.0005/pixel) \
    -flip(.03/pixel)^2
  z1 = 2.25*z, z2 = 3.25*z, z3 = 5.375*z, z4 = 10.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2088"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}

Carr2089 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=(-.8006,-.149)
  z=flip(conj(1-pixel))*pixel^2-conj(.0005/pixel) \
    -flip(.09/pixel)^2
  z1 = 2.25*z, z2 = 3.25*z, z3 = 5.375*z, z4 = 10.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2089"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (.35,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
}

Carr2090 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=conj((-.8006,-.149))
  z=flip(1/acos(1-pixel))*pixel^2-conj(.0005/pixel) \
    -flip(.09/pixel)^2
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2090"
  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
}

Carr2091 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=conj((-.8006,-.149))
  z=flip(1/atan(1-pixel))*pixel^2-conj(.005/pixel) \
    -flip(.09/pixel)^2
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2091"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (-.03,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
}

Carr2092 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=(-.8006,-.149)
  z=|pixel|*conj(pixel)-conj(.1/pixel)-.045/pixel
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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.09, c = c*.999
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2092"
  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
}

Carr2093 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  z=c=(1-pixel)^2*pixel^2-conj(.01/pixel)^2-flip(.1/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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-(.00491,.001)
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2093"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  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
}

Carr2094 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=(-.63,-.4)
  z=acos(1-pixel)^2-conj(.1/pixel)-flip(.01/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2094"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  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
}


Carr2095 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=(-.63,-.4)
  z=acos(1-pixel)^2-conj(.1/pixel)-asin(.1/pixel)^2
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2095"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  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
}

Carr2096 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=(-.7456,-.13), z=pixel-conj(.1/pixel-flip(.01/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2096"
  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
}

Carr2097 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=(-.7456,-.13)
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0001/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 6.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2097"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2098 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.  
init:
  c=(-1.099,.235)
  z=flip(pixel)*conj(pixel+.433)-conj(.01/pixel) \
    -flip(.001/pixel)^2
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2098"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  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
}

Carr2099 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init: 
  c=conj(tan(pixel))-conj(.1/pixel)-flip(.01/pixel)
  z=flip(pixel)*conj(sqr(pixel+.433)) \
    -conj(.1/pixel)-flip(.01/pixel)^2
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  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
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2099"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  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
}