comment {
  Carr3000.ufm Version 1.7
  Ultra Fractal conversions of Robert Carr's formulas Carr3000 - Carr3099
  by Erik Reckase, February 29, 2000

  History:  Version 1.7 - minor optimization tweaks, cleanup

            Version 1.6 - z=z*t workaround in Carr3015-3017,3028-3030

            Version 1.5 - major optimization overhaul
                          fixed bugs in two formulae
 
            Version 1.4 - fixed typos in 3039,3083,3084,3085

            Version 1.3 - Modified whitesq code to eliminate warnings

            Version 1.2 - Fixed bug in Carr3095

            Version 1.1 - Fixed errors in last 3 formulas
                          Respaced whitesq lines

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc3.frm
                          Carr3005,3009,3010,3012,
                              3014,3036,3054-3086,
                              3088-3099            : pixel fix
                          Carr3037,3065,3067,3084  : cosxx fix
}

Carr3000 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel-conj(.01/pixel-flip(.001/pixel))
  z=conj(pixel)-flip(.01/pixel)-conj(.001/pixel)-conj(.001/c)-.1
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (.3,.525)
  ct = flip(conj(c/10)) - k
  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)
    ct = flip(conj(c1/10)) - k, z = 0
  ELSEIF (iter==l2)
    ct = flip(conj(c2/10)) - k, z = 0
  ELSEIF (iter==l3)
    ct = flip(conj(c3/10)) - k, z = 0
  ELSEIF (iter==l4)
    ct = flip(conj(c4/10)) - k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3000"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3001 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)-conj(.1/pixel-flip(.001/pixel))-.45
  b4=flip(2*pixel)-flip(.01/pixel)-conj(.001/pixel)-conj(.001/b5)
  IF (@p3==1)
    c = flip(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -flip(b5)
  ELSE
    IF (whitesq)
      c = flip(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -flip(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7496,-.132)
  ct = flip(|c/12|) + k
  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)
    ct = flip(|c1/10|) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(|c2/10|) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(|c3/10|) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(|c4/10|) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3001"
  periodicity = 0
  maxiter = 700
  magn = 0.9
  center = (.4,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3002 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)-conj(.1/pixel-flip(.0019/pixel))
  b4=conj(pixel)-flip(.01/pixel)-conj(.001/pixel)
  IF (@p3==1)
    c = conj(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = conj(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7156,-.132) + .01
  ct = c/6 + k
  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)
    ct = c1/6 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/6 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/6 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/6 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3002"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3003 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)-conj(.1/pixel-flip(.0019/pixel))+.2
  b4=conj(pixel)-flip(.01/pixel)-conj(.001/pixel)
  IF (@p3==1)
    c = conj(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = conj(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = c/10 + k
  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, ct = c/10 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/10 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/10 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/10 + k, z = 0
  ENDIF
  z = c*z^2/(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3003"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3004 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)-conj(.1/pixel-flip(.0019/pixel))+.2
  b4=conj(pixel)-flip(.01/pixel)-conj(.001/pixel)
  IF (@p3==1)
    c = conj(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = conj(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = c/10 + k
  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, ct = c/10 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/10 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/10 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/10 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3004"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3005 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=conj(pixel2^3)-conj(.1/pixel2-flip(.01/pixel2))+.4
  z=flip(conj(1.25*pixel2))-flip(.01/pixel2) \
    -conj(.001/pixel2)+.4
  IF (@p3==1)
    c = conj(b4)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(z)
  ELSE
    IF (whitesq)
      c = conj(b4)
    ELSE
      c = -sqr(b4), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = c/10 + k
  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, ct = c/10 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/10 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/10 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/10 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel2)<=bailout
default:
  title = "Carr 3005"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3006 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-conj(.1/pixel)
  c=pixel-flip(.1/pixel)-conj(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = c/10 + k
  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, ct = c/10 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/10 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/10 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/10 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3006"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3007 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.7456,-.132)
  z=abs(2*pixel^12)-flip(.1/pixel)-conj(.1/pixel)+.35
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = c/8 + k
  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, ct = c/8 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/8 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/8 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/8 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3007"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3008 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel-conj(.01/pixel-flip(.001/pixel))
  z=1-abs(imag(c)-real(c))+flip(1-abs(1-real(c)-imag(c)))
  IF (@p3==0)
    c = -c, z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.132,-.6956)
  ct = c/8 + k
  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, ct = c/8 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/8 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/8 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/8 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3008"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (.3,.3)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3009 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-conj(.01/pixel2-flip(.001/pixel2))
  z=1-abs(imag(c)-real(c))+flip(1-abs(1-real(c)-imag(c)))
  IF (@p3==0)
    c = -c, z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.132,-.6956)
  ct = c/8 + k
  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, ct = c/8 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/8 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/8 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/8 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel2)<=bailout
default:
  title = "Carr 3009"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,.25)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3010 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=pixel2-conj(.01/pixel2-flip(.001/pixel2))
  z=1-abs(imag(b4)-real(b4/2)) \
     +flip(1-abs(1-real(b4)-flip(imag(b4))))
  IF (@p3==1)
    c = conj(b4)
  ELSEIF (@p3==0)
    c = -(b4), z = -sqr(z)
  ELSE
    IF (whitesq)
      c = conj(b4)
    ELSE
      c = -(b4), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.132,-.6956)
  ct = c/8 + k
  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, ct = c/8 + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = c/8 + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = c/8 + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = c/8 + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel2)<=bailout
default:
  title = "Carr 3010"
  periodicity = 0
  maxiter = 700
  magn = 1
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3011 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + sqr(1/pixel)
  ct = conj(c/8) + k
  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, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3011"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3012 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2, z=c-conj(.001/pixel2-flip(.01/pixel2))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + sqr(1/pixel2)
  ct = conj(c/8) + k
  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, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel2)<=bailout
default:
  title = "Carr 3012"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3013 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^2.5-tanh(tanh(pixel)^1.4)-.4
  c=conj(pixel)^2.5-flip(.01/pixel)-conj(.1/pixel)-.5
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + sqr(flip(1/pixel))
  ct = conj(c/8) + k
  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, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3013"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (.15,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3014 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=b4=(pixel2-.15/(log(conj(-pixel2))^12+pixel2)\
	  +sqrt(.045/pixel2))/.8
  IF (@p3==1)
    c = sqr(b4)
  ELSEIF (@p3==0)
    c = -(b4), z = -z
  ELSE
    IF (whitesq)
      c = sqr(b4)
    ELSE
      c = -(b4), z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + sqr(1/pixel2)
  ct = conj(c/8) + k
  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, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = 0
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  imag(flip(z-pixel2))<=bailout
default:
  title = "Carr 3014"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3015 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned
init:
  b4=1/log(exp(pixel^450-cosh(pixel^35.5)-.4)-.5), z=pixel
  IF (@p3==1)
    c = sqr(b4)
  ELSEIF (@p3==0)
    c = -(b4), z = -z
  ELSE
    IF (whitesq)
      c = sqr(b4)
    ELSE
      c = -(b4), z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) - pixel
  ct = conj(c/8) + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro = 0
loop:
  IF (iter==l1)
    c = c1, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = z*zro
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3015"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (.001,.001)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3016 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned
init:
  b4=.15/log(exp(pixel^450-cosh(pixel^50.5)))
  z=pixel-tan(tan(.001/pixel))-.5
  IF (@p3==1)
    c = sqr(b4)
  ELSEIF (@p3==0)
    c = -(b4), z = -z
  ELSE
    IF (whitesq)
      c = sqr(b4)
    ELSE
      c = -(b4), z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) - pixel
  ct = conj(c/8) + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro = 0
loop:
  IF (iter==l1)
    c = c1, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/8) + k, z = z*zro
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/8) + k, z = z*zro
  ENDIF
  z = c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3016"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (.001,.001)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3017 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned

init:
  b4=.15/log(exp(pixel^450-cosh(pixel^50.5)))
  z=pixel-tan(tan(.001/pixel))-.5
  IF (@p3==1)
    c = conj(b4)
  ELSEIF (@p3==0)
    c = -(b4), z = -conj(z)
  ELSE
    IF (whitesq)
      c = conj(b4)
    ELSE
      c = -(b4), z = -conj(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/4) + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro = 0
loop:
  IF (iter==l1)
    c = c1, ct = conj(c/4) + k, z = z*zro
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/4) + k, z = z*zro
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/4) + k, z = z*zro
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/4) + k, z = z*zro
  ENDIF
  z = 1.25*c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3017"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3018 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel/3.67-conj(flip(pixel/3)), c=(-.7456,-.132)+pixel
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/4) + k
  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, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/4) + k, z = 0
  ENDIF
  z = 1.25*c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3018"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,.4)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3019 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel-flip(.001/pixel), z=pixel-conj(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/4) + k
  zm = 25/56
  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, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/4) + k, z = 0
  ENDIF
  z = zm*c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3019"
  periodicity = 0
  maxiter = 700
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3020 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-.2-.01/pixel-cos(.01/pixel)+conj(.1/pixel)
  c=conj(pixel)-flip(asin(.01/pixel))+conj(asin(.1/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/4) + k
  zm = 25/56
  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, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/4) + k, z = 0
  ENDIF
  z = zm*c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3020"
  periodicity = 0
  maxiter = 700
  magn = .4
  center = (.8,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3021 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel^5)-conj(pixel^7) \
    -conj(.01/pixel-flip(.001/pixel))+1.75
  c=z-|.1/z|+.5
  IF (@p3==0)
    c = -c, z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + pixel
  ct = conj(c/4) + k
  zm = 25/56
  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, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = conj(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = conj(c/4) + k, z = 0
  ENDIF
  z = zm*c*z^2/conj(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3021"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3022 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(pixel^2)-pixel^7-conj(.01/pixel-flip(.001/pixel))+1.75
  c=z-|.1/z|+.5
  IF (@p3==0)
    c = -c, z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + cabs(pixel)
  ct = flip(c/4) + k
  zm = 25/56
  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, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = flip(c/4) + k, z = 0
  ENDIF
  z = zm*c*z^2/flip(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3022"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3023 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel^2)-cabs(pixel^7) \
    -conj(.01/pixel-flip(.001/pixel))+1.75
  c=z-|0.1/z|+0.5
  IF (@p3==0)
    c = -c, z = -flip(z)^3
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -flip(z)^3
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132) + cabs(pixel)
  ct = flip(c/4) + k
  zm = 25/56
  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, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l2)
    c = c2, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l3)
    c = c3, ct = flip(c/4) + k, z = 0
  ELSEIF (iter==l4)
    c = c4, ct = flip(c/4) + k, z = 0
  ENDIF
  z = zm*c*z^2/flip(z+c) + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3023"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3024 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel^2)-cabs(pixel^7) \
    -conj(.01/pixel-flip(.001/pixel))-0.3
  c=z-|0.1/z|
  IF (@p3==0)
    c = -c, z = -flip(z)^3
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -flip(z)^3
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7496,-.132)
  ct = flip(conj(c/10)) + k
  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)
    ct = flip(conj(c1/10)) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(conj(c2/10)) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(conj(c3/10)) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(conj(c4/10)) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3024"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3025 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel^4)-cabs(pixel^10) \
    -conj(.01/pixel-flip(.001/pixel))-.3
  c=z-flip(|0.1/z|)
  IF (@p3==0)
    c = -c, z = -flip(z)^3
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -flip(z)^3
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7496,-.132)
  ct = flip(conj(c/10)) + k
  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)
    ct = flip(conj(c1/10)) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(conj(c2/10)) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(conj(c3/10)) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(conj(c4/10)) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3025"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3026 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=cabs(pixel^1.5)-conj(pixel^5.5) \
    -conj(.01/pixel-flip(.001/pixel))
  z=c^3-|.01/c|-.75
  IF (@p3==0)
    c = -c, z = -flip(z)^3
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -flip(z)^3
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = flip(conj(c/10)) + k
  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)
    ct = flip(conj(c1/10)) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(conj(c2/10)) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(conj(c3/10)) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(conj(c4/10)) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3026"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3027 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=cabs(pixel^1.5)-conj(pixel^5.5) \
    -conj(.01/pixel-flip(.001/pixel))
  z=cabs(c^5.5)-conj(c^1.5)-conj(.01/c-flip(.001/c))-.65
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7656,-.132)
  ct = conj(c/10) + k
  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)
    ct = conj(c1/10) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/10) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/10) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/10) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z-pixel)<=bailout
default:
  title = "Carr 3027"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3028 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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))
  int iter=0, float zro=0
loop:
  IF (iter==l1)
    c = c1, z = z*zro
  ELSEIF (iter==l2)
    c = c2, z = z*zro
  ELSEIF (iter==l3)
    c = c3, z = z*zro
  ELSEIF (iter==l4)
    c = c4, z = z*zro
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  (imag(z)-2*abs(real(z)))^3<=(16-sqr(real(z)+sin(imag(z))))
default:
  title = "Carr 3028"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,.001)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3029 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Black lines not present in Fractint version
init:
  z=abs(conj(pixel)*flip(pixel))+.4
  c=z-conj(.01/pixel-flip(.0015/pixel-flip(.01/z)))
  IF (@p3==0)
    c = -c, z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(z)
    ENDIF
  ENDIF
  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))
  int iter=0, float zro=0
loop:
  IF (iter==l1)
    c = c1, z = z*zro
  ELSEIF (iter==l2)
    c = c2, z = z*zro
  ELSEIF (iter==l3)
    c = c3, z = z*zro
  ELSEIF (iter==l4)
    c = c4, z = z*zro
  ENDIF
  z = z^3 + (c-1)*(z-c)
  iter=iter+1
bailout:
  (imag(z)-2*abs(real(z)))^3<=32-sqr(real(z)+sin(imag(z)))
default:
  title = "Carr 3029"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3030 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=abs(conj(pixel^2))*flip(abs(pixel))
  b4=b5-conj(.01/pixel-flip(.0015/pixel-flip(.01/b5)))
  IF (@p3==1)
    c = conj(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = conj(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  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))
  int iter=0, float zro=0
loop:
  IF (iter==l1)
    c = c1, z = z*zro
  ELSEIF (iter==l2)
    c = c2, z = z*zro
  ELSEIF (iter==l3)
    c = c3, z = z*zro
  ELSEIF (iter==l4)
    c = c4, z = z*zro
  ENDIF
  z = z^3 + (c-1)*(z-c/8)
  iter=iter+1
bailout:
  (imag(z)-2*abs(real(z)))^3<=32-sqr(real(z)+sin(imag(z)))
default:
  title = "Carr 3030"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3031 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sin(pixel)/tanh(.3/pixel)
  b4=pixel-asin(.33-pixel^3)
  IF (@p3==1)
    c = |b4|
  ELSEIF (@p3==0)
    c = -b4, z = -|z|
  ELSE
    IF (whitesq)
      c = |b4|
    ELSE
      c = -b4, z = -|z|
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3031"
  periodicity = 0
  maxiter = 700
  magn = 2.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3032 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel)/tanh(.3/pixel)-conj(.1/pixel-flip(.01/pixel))
  c=pixel-asin(.33-pixel^5)
  IF (@p3==0)
    c = -c, z = -sqr(|z|)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -sqr(|z|)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3032"
  periodicity = 0
  maxiter = 700
  magn = 2.3
  center = (0,.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3033 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel/2-conj(asin(pixel))
  c=flip(pixel)/flip(.3/pixel)-conj(.1/pixel-flip(.01/pixel))
  IF (@p3==0)
    c = -sqr(c), z = -sqr(|z|)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -sqr(c), z = -sqr(|z|)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7956,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3033"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3034 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(.33-cos(pixel))/(.33-tan(3*pixel))-.4
  c=conj(pixel)*(pixel-flip(.001/pixel))*(pixel-conj(.01/pixel))
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = - conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = (-.6856,-.132) + .01
  ct = c/6 + k
  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)
    ct = c1/6 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/6 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/6 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/6 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter = iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3034"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3035 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(.33-cos(pixel))/(.33-tan(3*pixel))-.4
  c=conj(pixel)*(pixel-flip(.001/pixel)) \
    *(pixel-conj(.01/pixel))*(pixel-conj(.1/z))+.5
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.6856,-.132) + .01
  ct = c/6 + k
  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)
    ct = c1/6 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/6 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/6 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/6 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3035"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (-.05,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3036 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(.33-cos(pixel2))/(.33-tan(3*pixel2))-.4
  c=conj(pixel2)*(pixel2-flip(.001/pixel2)) \
    *(pixel2-conj(.01/pixel2))*(pixel2-conj(.1/z))+.5
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.6856,-.132) + .01
  ct = c/6 + k
  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)
    ct = c1/6 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/6 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/6 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/6 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3036"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3037 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(.33-conj(cos(pixel)))/(.33-tan(3*pixel))-.4
  c=conj(pixel)*(pixel-flip(.001/pixel)) \
    *(pixel-cabs(.01/pixel))*(pixel-cabs(.1/z))+.5
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7056,-.112)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3037"
  periodicity = 0
  maxiter = 700
  magn = 1
  center = (.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3038 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(.33-conj(pixel))/(.5-cos(5*pixel))-.4
  c=conj(pixel)*(pixel-flip(.001/pixel)) \
    *(pixel-cabs(.01/pixel))*(pixel-cabs(.1/z))
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7056,-.112)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3038"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3039 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=sinh(tanh(.63-cos(pixel)))/conj(2*pixel+.6)
  z=conj(.33-cos(pixel))/(.33-tan(2*pixel))-.3
  IF (@p3==0)
    c = -conj(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -sqr(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7056,-.112)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3039"
  periodicity = 0
  maxiter = 700
  magn = .7
  center = (.15,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3040 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=pixel*sqr(pixel)-conj(.01/pixel)-flip(.015/pixel)+.5
  c=(-.6256,-.09)/1.5
  IF (@p3==1)
    z = conj(b5)
  ELSEIF (@p3==0)
    c = -conj(c), z = -sqr(b5)
  ELSE
    IF (whitesq)
      z = conj(b5)
    ELSE
      c = -conj(c), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = c*82/119 + k
  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)
    ct = c1*82/119 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2*82/119 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3*82/119 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4*82/119 + k, z = 0
  ENDIF
  z = 0.2*z^3 + z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3040"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3041 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)*sqr(.25-pixel)-conj(.01/pixel) \
    -flip(.0015/pixel)+.5
  c=(-.6256,-.09)/1.5
  IF (@p3==1)
    z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(c), z = -sqr(b5)
  ELSE
    IF (whitesq)
      z = conj(b5)
    ELSE
      c = -sqr(c), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3041"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3042 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel)*sqr(.25-pixel^3)-conj(.01/pixel)\
     -flip(.0015/pixel)+.5
  c=(-0.6256,-0.090)/1.5
  IF (@p3==1)
    z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(c), z = -sqr(b5)
  ELSE
    IF (whitesq)
      z = conj(b5)
    ELSE
      c = -sqr(c), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3042"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3043 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=pixel^2.8-conj(pixel/5)
  b4=b5-conj(.1/b5-flip(.01/b5))
  IF (@p3==1)
    c = sqr(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = conj(b5)
    ELSE
      c = -(b4), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3043"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3044 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  m1=1/pixel, m=conj(m1), m2=.125*pixel+cabs(pixel^4.9)
  b5=m2-tanh(pixel/3)^4-conj(sinh(pixel^2.3))+sqr(m/1.5/m1)
  b4=pixel-.5
  IF (@p3==1)
    c = sqr(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)^3
  ELSE
    IF (whitesq)
      c = sqr(b4), z = conj(b5)
    ELSE
      c = -(b4), z = -(b5)^3
    ENDIF
  ENDIF
  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^2 + c
  c = z + c/2.125 - .0325
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3044"
  periodicity = 0
  maxiter = 700
  magn = 1.8
  center = (.5,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3045 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=conj(pixel^5)-conj(.1/pixel-flip(.01/pixel))-.45
  m1=1/pixel, m=conj(m1)
  m2=sqr(sqr(.125*pixel+cabs(pixel^4.9)))
  b4=m2-tanh(pixel)^2-conj(tan(pixel^4.3))\
     +sqr(cos(m/6)/sin(m1/4))-conj(.1/b5-flip(.01/b5))
  IF (@p3==1)
    c = sqr(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = conj(b5)
    ELSE
      c = -conj(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3045"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3046 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=17*pixel/24
  z=2*pixel^4-r-sin(.8*pixel-flip(.01/pixel)) \
    +conj(.1275/pixel)+.15
  b4=z-.15
  IF (@p3==1)
    c = sqr(b4)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -(z)
  ELSE
    IF (whitesq)
      c = sqr(b4)
    ELSE
      c = -conj(b4), z = -(z)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3046"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3047 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=flip(abs(sin(pixel)))-pixel+conj(.035/pixel) \
     -flip(.001/pixel)
  b5=abs(4.25*pixel-conj(.01/pixel-flip(.001/pixel)))-.1
  IF (@p3==1)
    c = sqr(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = flip(b5)
    ELSE
      c = -conj(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3047"
  periodicity = 0
  maxiter = 700
  magn = 4.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3048 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=flip(abs(sin(pixel)))-pixel+conj(.035/pixel) \
     -flip(.001/pixel)
  b5=abs(4.25*pixel-conj(.01/pixel-flip(.001/pixel)))-.35
  IF (@p3==1)
    c = sqr(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = flip(b5)
    ELSE
      c = -conj(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3048"
  periodicity = 0
  maxiter = 700
  magn = 4.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3049 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=flip(abs(sin(pixel)))-pixel+conj(.035/pixel) \
     -flip(.001/pixel)
  b5=abs(6.25*pixel-conj(.01/pixel-flip(.001/pixel)))-.1
  IF (@p3==1)
    c = sqr(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = flip(b5)
    ELSE
      c = -sqr(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3049"
  periodicity = 0
  maxiter = 700
  magn = 6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3050 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=flip(abs(sin(pixel)))-pixel+conj(.035/pixel) \
     -flip(.001/pixel)
  b5=pixel/tanh(.3/pixel)+.3
  IF (@p3==1)
    c = sqr(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = flip(b5)
    ELSE
      c = -sqr(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3050"
  periodicity = 0
  maxiter = 700
  magn = 2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3051 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=-flip(imag(pixel))*pixel^3-conj(.1/pixel-flip(.01/pixel))-.4
  b4=pixel/tanh(.3/pixel)+.3
  IF (@p3==1)
    c = sqr(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -sqr(b5)
  ELSE
    IF (whitesq)
      c = sqr(b4), z = flip(b5)
    ELSE
      c = -sqr(b4), z = -sqr(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7256,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3051"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3052 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=-flip(imag(pixel))*pixel^2-conj(.01/pixel-flip(.001/pixel))
  b5=pixel/tanh(.3/pixel)+.3
  IF (@p3==1)
    c = abs(b4), z = flip(b5)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -(|b5|)
  ELSE
    IF (whitesq)
      c = abs(b4), z = flip(b5)
    ELSE
      c = -conj(b4), z = -(|b5|)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7056,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3052"
  periodicity = 0
  maxiter = 700
  magn = 2.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3053 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b5=pixel-flip(.01/pixel)-conj(.1/pixel)+.285
  b4=conj(flip(sqr(sqr(pixel-conj(.15/pixel)))))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3053"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (-.2,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3054 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2-flip(.01/pixel2)-conj(.1/pixel2)+.285
  b4=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2)))))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3054"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3055 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=pixel2-flip(.01/pixel2)-conj(.1/pixel2)
  b5=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2)))))-flip(.1/b4)
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3055"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3056 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=pixel2-flip(.01/pixel2)-conj(.1/pixel2)
  b5=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2)))))-flip(.1/b4)
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct =c*2/3 + k
  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)
    ct = c1*2/3 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2*2/3 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3*2/3 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4*2/3 + k, z = 0
  ENDIF
  z = .2*z^3 + z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3056"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3057 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2-flip(.01/pixel2)-conj(.1/pixel2)
  b4=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2)))))-flip(.1/b5)^3
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(|b5|)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(|b5|)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3057"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3058 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel)) + flip(imag(pixel))
  b5=pixel2-flip(.01/pixel2)-conj(.1/pixel2)
  b4=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2))))) \
     -flip(|.1/b5|)^5
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(|b5|)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(|b5|)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3058"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3059 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=cabs(pixel2)-flip(.01/pixel2)-conj(.1/pixel2)-.4
  b4=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2))))) \
     -flip(|.1/b5|)^5
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(|b5|)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(|b5|)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3059"
  periodicity = 0
  maxiter = 700
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3060 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=cabs(pixel2)-flip(.01/pixel2)-|.1/pixel2|^3
  b4=conj(flip(sqr(sqr(pixel2-conj(.15/pixel2)))))-flip(.1/b5)
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/8) + k
  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)
    ct = conj(c1/8) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/8) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/8) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/8) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3060"
  periodicity = 0
  maxiter = 700
  magn = 1.0
  center = (0,-.15)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3061 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=flip(conj(abs(pixel2^2))) 
  b5=pixel2-conj(asin(2*pixel2+.32))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = conj(c/10) + k
  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)
    ct = conj(c1/10) + k, z = 0
  ELSEIF (iter==l2)
    ct = conj(c2/10) + k, z = 0
  ELSEIF (iter==l3)
    ct = conj(c3/10) + k, z = 0
  ELSEIF (iter==l4)
    ct = conj(c4/10) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3061"
  periodicity = 0
  maxiter = 700
  magn = 2.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3062 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=flip(conj(abs(pixel2^.5))) 
  b5=flip(imag(pixel2))-conj(asin(pixel2*3+.32))\
     -flip(.01/b4-conj(.1/b4))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3062"
  periodicity = 0
  maxiter = 700
  magn = 4.3
  center = (0,.035)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3063 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=flip(conj(abs(pixel2^.5)))
  b5=conj(pixel2^2)/flip(1-pixel2)
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3063"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3064 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=flip(conj(abs(pixel2^.5))) 
  b5=flip(pixel2^2)/conj(1-pixel2)
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3064"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3065 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b4=(1+1.5/pixel2)/conj(cos(2/pixel2-.25))
  b5=flip(pixel2^2)/conj(1-pixel2)+.4
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3065"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,.4)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3066 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2-flip(sin(.1/pixel2))-conj(sin(.01/pixel2))
  b4=(.33-cos(pixel2))/(.33-tan(pixel2))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)^2
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)^2
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3066"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3067 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2^2-flip(sin(.1/pixel2))-conj(sin(.01/pixel2))
  b4=(.5-cos(pixel2))/(.33-conj(cos(pixel2)))
  IF (@p3==1)
    c = conj(b4), z = conj(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -(b5)
  ELSE
    IF (whitesq)
      c = conj(b4), z = conj(b5)
    ELSE
      c = -sqr(b4), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3067"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3068 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2-conj(.1/pixel2)+.1
  c=pixel2-flip(.1/pixel2)-conj(.001/pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3068"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3069 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(conj(abs(pixel2^2)))+.45
  c=pixel2-conj(.01/pixel2)-flip(.1/pixel2-conj(.1/z))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3069"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3070 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=abs(conj(pixel2)*flip(pixel2))+.15
  c=z^3-conj(.1/pixel2-flip(.015/pixel2-flip(.1/z)))+.4
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3070"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3071 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^5+.4-cos(.01/pixel2)
  c=.55*(2*pixel2-flip(.01/pixel2)-conj(.1/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3071"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3072 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^5+.475-cos(.01/pixel2)
  c=z-conj(.1/z-flip(.01/z))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3072"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3073 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z= tanh(pixel2)-5*pixel2*((.3,.6)+pixel2)
  c=z^2-conj(.1/z-flip(.01/z))-conj(.1/pixel2-flip(.01/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3073"
  periodicity = 0
  maxiter = 700
  magn = 2.3
  center = (0,-.3)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3074 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2/2)-pixel2*((.3,.6)+pixel2)-conj(.1/pixel2)
  c=z^2-conj(.1/z-flip(.01/z))-conj(.1/pixel2-flip(.01/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3074"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,-.2)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3075 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=cabs(pixel2/2)-pixel2*((.3,.6)+pixel2)-conj(.1/pixel2)
  z=c^2-conj(.1/c-flip(.01/c))-conj(.1/pixel2-flip(.01/pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3075"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,-.2)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3076 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-conj(asin(2*pixel2+.39))
  z=pixel2/cabs(.3/pixel2)+.15
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3076"
  periodicity = 0
  maxiter = 700
  magn = 2.8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3077 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-conj(asin(2*pixel2+.39))
  z=pixel2/cabs(.3/pixel2)+.15+cabs(.1/c)*conj(.1/c)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3077"
  periodicity = 0
  maxiter = 700
  magn = 2.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3078 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.33-cos(pixel2))/(.33-tan(2*pixel2))+.75
  z=pixel2/cabs(.3/pixel2)+.15+cabs(.1/c)*conj(.1/c)+.13
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3078"
  periodicity = 0
  maxiter = 700
  magn = 2.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3079 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^4-conj(asin(2*pixel2+.39))
  z=pixel2^5/abs(.1/pixel2)+.15+cabs(.1/c)*conj(.1/c)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3079"
  periodicity = 0
  maxiter = 700
  magn = 2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3080 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(pixel2/2)
  c=3.5*pixel2^5-r-sin(.08-flip(.01/pixel2))+conj(.0535/pixel2)
  z=c-.197
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/12| + k
  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)
    ct = |c1/12| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/12| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/12| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/12| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3080"
  periodicity = 0
  maxiter = 700
  magn = 1.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3081 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(pixel2/2)
  c=3.5*pixel2^5-r-sin(.08-flip(.01/pixel2))+conj(.0535/pixel2)
  z=pixel2^5+r-sin(.08-flip(.01/pixel2))+conj(.1535/pixel2)+.197
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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^2 + (-.7456,-.132) + |c/12|
  c = z + c/2.125 - .0325
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3081"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3082 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=sinh(pixel2)-1/log(2*pixel2+.045/pixel2+conj(.01/pixel2)\
    -flip(.05/pixel2)+.575/pixel2)
  z=pixel2^2.3-conj(.1/pixel2)-.15
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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^2 + (-.7456,-.132) + |c/12|
  c = z + c/2.125 - .0325
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3082"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3083 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2
  z=flip(abs(.33-pixel2))*sqr(pixel2)-conj(.1/pixel2) \
    -flip(.01/pixel2)
  IF (@p3==0)
    c = -c, z = -abs(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -abs(z)
    ENDIF
  ENDIF  
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/10| + k
  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)
    ct = |c1/10| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/10| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/10| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/10| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3083"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,-.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3084 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^3+.4, c=conj(cos(.33-pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.745,-.13)
  ct = flip(|c/12|) + k
  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)
    ct = flip(|c1/12|) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(|c2/12|) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(|c3/12|) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(|c4/12|) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3084"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3085 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^3-.4, c=cosh(.33-conj(pixel2))
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.745,-.13)
  ct = flip(|c/12|) + k
  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)
    ct = flip(|c1/12|) + k, z = 0
  ELSEIF (iter==l2)
    ct = flip(|c2/12|) + k, z = 0
  ELSEIF (iter==l3)
    ct = flip(|c3/12|) + k, z = 0
  ELSEIF (iter==l4)
    ct = flip(|c4/12|) + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3085"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3086 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(.66-pixel2)^3+.2, c=abs(.33-pixel2)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.745,-.13)
  ct = |c/12| + k
  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)
    ct = |c1/12| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/12| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/12| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/12| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3086"
  periodicity = 0
  maxiter = 700
  magn = 2.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3087 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  z=pixel^3-conj(.1/pixel)-flip(.01/pixel)^2+.1/pixel
  c=z^3/exp(pixel)-conj(.1/pixel-flip(.01/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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^2 + c
  iter=iter+1
bailout:
  real(2-z)<=bailout
default:
  title = "Carr 3087"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,.001)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3088 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^3-conj(.1/pixel2)-flip(.01/pixel2)^2+.1/pixel2+.4
  z=c^3/exp(pixel2)-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3088"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3089 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=flip(.5+pixel2)
  z=c^5/exp(pixel2)-conj(.1/pixel2-flip(.01/pixel2))-.45
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/12| + k
  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)
    ct = |c1/12| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/12| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/12| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/12| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3089"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3090 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(.5+pixel2)^9-conj(.1/pixel2-flip(.01/pixel2))+.435
  c=flip(z)*z^2/exp(pixel2)-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==0)
    c = -|c|, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -|c|, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7356,-.132)
  ct = c/6 + k
  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)
    ct = c1/6 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/6 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/6 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/6 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3090"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3091 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=.5-pixel2*cabs(1.65*pixel2-flip(.01/pixel2)-conj(.1/pixel2))
  z=pixel2^3-1/log(pixel2-.25/cos(conj(sinh(.1/pixel2))))^5
  IF (@p3==0)
    c = -|c|, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -|c|, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/12| + k
  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)
    ct = |c1/12| + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/12| + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/12| + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/12| + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3091"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3092 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^7-.2*exp(.2-pixel2^-.025)
  z=cabs(c)^5-conj(.1/pixel2-flip(.01/c))-.45
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = .75 + conj(.05/pixel2)
  ct1 = c - k
  ct2 = c^3
  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)
    ct1 = c1 - k, ct2 = c1^3, z = 0
  ELSEIF (iter==l2)
    ct1 = c2 - k, ct2 = c2^3, z = 0
  ELSEIF (iter==l3)
    ct1 = c3 - k, ct2 = c3^3, z = 0
  ELSEIF (iter==l4)
    ct1 = c4 - k, ct2 = c4^3, z = 0
  ENDIF
  z = z^3 + ct1*z - ct2
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3092"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3093 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^7-.2*exp(.2-pixel2^-.025)
  z=cabs(c)^2-conj(.1/pixel2-flip(.01/c))-.45
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct = |c/12|^2 + k
  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)
    ct = |c1/12|^2 + k, z = 0
  ELSEIF (iter==l2)
    ct = |c2/12|^2 + k, z = 0
  ELSEIF (iter==l3)
    ct = |c3/12|^2 + k, z = 0
  ELSEIF (iter==l4)
    ct = |c4/12|^2 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3093"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3094 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^exp(.2)+.2*exp(.2-pixel2^-.025)
  c=cabs(z)^3-conj(.1/pixel2-flip(.01/z))^3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3094"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3095 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.13/pixel2)+flip(.1/pixel2), c=(-.7456,.2)
  z=flip(cabs(pixel2))*cabs(pixel2^2)+tanh(.1/pixel2) \
     -sinh(.1/pixel2)-b3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  k = (-.7456,-.132)
  ct1 = |c/12|^2 + k
  ct2 = c*2/3 + k
  ct = ct1 - .0025*ct2
  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)
    ct1=|c1/12|^2+k,ct2=c1*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l2)
    ct1=|c2/12|^2+k,ct2=c2*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l3)
    ct1=|c3/12|^2+k,ct2=c3*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l4)
    ct1=|c4/12|^2+k,ct2=c4*2/3+k,ct=ct1-.0025*ct2,z=0
  ENDIF
  z = .9975*z^2 - .0005*z^3 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3095"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3096 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.13/pixel2)+flip(.1/pixel2), c=(-.7456,.2)
  b5=flip(cabs(pixel2))*cabs(pixel2^2)+tanh(.1/pixel2)\
      -sinh(.1/pixel2)-flip(b3)-.05
  IF (@p3==1)
    z = conj(b5)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5)
  ELSE
    IF (whitesq)
      z = conj(b5)
    ELSE
      c = -c, z = -conj(b5)
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct1 = |c/12|^2 + k
  ct2 = c*2/3 + k
  ct = ct1 - .0025*ct2
  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)
    ct1=|c1/12|^2+k,ct2=c1*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l2)
    ct1=|c2/12|^2+k,ct2=c2*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l3)
    ct1=|c3/12|^2+k,ct2=c3*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l4)
    ct1=|c4/12|^2+k,ct2=c4*2/3+k,ct=ct1-.0025*ct2,z=0
  ENDIF
  z = .9975*z^2 - .0005*z^3 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3096"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,-.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3097 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=abs(.13/pixel2)+flip(pixel2/3)
  c=(.3,.6)+flip(.01/pixel2)+1/b3
  z=flip(cabs(pixel2^3))*pixel2^2-tanh(.1/pixel2) \
    +sinh(.1/pixel2)-flip(b3)-.185
  IF (@p3==0)
    c = -(c + conj(.1/pixel2)), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -(c + conj(.1/pixel2)), z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct1 = |c/12|^2 + k
  ct2 = c*2/3 + k
  ct = ct1 - .0025*ct2
  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)
    ct1=|c1/12|^2+k,ct2=c1*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l2)
    ct1=|c2/12|^2+k,ct2=c2*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l3)
    ct1=|c3/12|^2+k,ct2=c3*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l4)
    ct1=|c4/12|^2+k,ct2=c4*2/3+k,ct=ct1-.0025*ct2,z=0
  ENDIF
  z = .9975*z^2 - .0005*z^3 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3097"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,-.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3098 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.13/pixel2)+flip(.1/pixel2)
  c=(.3,.6)^3-.3
  z=flip(abs(pixel2))*cabs(pixel2^3)-conj(.1/pixel2) \
    -flip(.01/pixel2)+b3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct1 = |c/12|^2 + k
  ct2 = c*2/3 + k
  ct = ct1 - .0025*ct2
  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)
    ct1=|c1/12|^2+k,ct2=c1*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l2)
    ct1=|c2/12|^2+k,ct2=c2*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l3)
    ct1=|c3/12|^2+k,ct2=c3*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l4)
    ct1=|c4/12|^2+k,ct2=c4*2/3+k,ct=ct1-.0025*ct2,z=0
  ENDIF
  z = .9975*z^2 - .0005*z^3 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3098"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr3099 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.13/pixel2)+flip(.1/pixel2)
  c=(-.7456,.2)
  z=cabs(pixel2)*cabs(pixel2^2)+tanh(.1/pixel2) \
    -sinh(.1/pixel2)-b3
  IF (@p3==0)
    c = -sqr(c), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -sqr(c), z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7456,-.132)
  ct1 = |c/12|^2 + k
  ct2 = c*2/3 + k
  ct = ct1 - .0025*ct2
  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)
    ct1=|c1/12|^2+k,ct2=c1*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l2)
    ct1=|c2/12|^2+k,ct2=c2*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l3)
    ct1=|c3/12|^2+k,ct2=c3*2/3+k,ct=ct1-.0025*ct2,z=0
  ELSEIF (iter==l4)
    ct1=|c4/12|^2+k,ct2=c4*2/3+k,ct=ct1-.0025*ct2,z=0
  ENDIF
  z = .9975*z^2 - .0005*z^3 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3099"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,-.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}