comment {
  Carr3200.ufm Version 1.4
  Ultra Fractal conversions of Robert Carr's formulas Carr3200 - Carr3299
  by Erik Reckase, February 28, 2000

  History:  Version 1.4 - Minor optimization tweaks + cleanup

            Version 1.3 - Major optimization overhaul
            
            Version 1.2 - Modified whitesq code to eliminate warnings

            Version 1.1 - fixed exact Fractint functionality in order
                          and variable fixes below

            Version 1.0 - Initial Release
                          Original formulas pulled from 43cCarr.frm
                                                        43dCarr.frm
                                                        43eCarr.frm
                          Carr3200-3299            : pixel fix
                          Carr3265-3269,3296-3297  : |z| fix
                          Carr3281,3285,3292,3293  : statements out of order
                          Carr3282                 : Undefined variable
                          Carr3214,3284            : missing parentheses
}

Carr3200 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=log(1/pixel2-conj(cos(1/pixel2)))
  c=pixel2^3-1/(atan(.1/pixel2)-cabs(acos(.2/pixel2)))
  z=conj(c)-.54, zmod = (-.7456,-.132)+ flip(|d/80*pixel2|)
  cmod = |c/7.5| + zmod
  c1=1.5*z^1.2,c2=2.25*conj(z)
  c3=3.375*flip(z),c4=5.0625*flip(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)
    cmod = |c1/7.5| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2/7.5| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3/7.5| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4/7.5| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3200"
  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
}

Carr3201 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=log(1/pixel2-conj(cos(1/pixel2)))
  c=pixel2-conj(.1/pixel2-flip(.01/pixel2))
  z=conj(abs(pixel2))^5-.5/(conj(atan(0.1/pixel2)) \
     -cabs(acos(.2/pixel2)))+.35
  zmod = (-.7456,-.132) + flip(|d/80*pixel2|)
  cmod = |c/7.5| + zmod
  c1=1.5*z^1.2,c2=2.25*conj(z)
  c3=3.375*flip(z),c4=5.0625*flip(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)
    cmod = |c1/7.5| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2/7.5| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3/7.5| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4/7.5| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3201"
  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
}

Carr3202 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=log(1/pixel2-conj(cos(1/pixel2)))
  c=pixel2^3-conj(.1/pixel2-flip(.01/pixel2))
  z=abs(pixel2^12)-flip(.01/pixel2)-conj(.1/pixel2)+.3
  zmod = (-.7456,-.132) + flip(|d/80*pixel2|)
  cmod = |c/7.5| + zmod
  c1=1.5*z^1.2,c2=2.25*conj(z)
  c3=3.375*flip(z),c4=5.0625*flip(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)
    cmod = |c1/7.5| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2/7.5| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3/7.5| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4/7.5| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3202"
  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
}

Carr3203 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=conj(.1/pixel2-flip(.01/pixel2))
  b4=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*flip(pixel2^6) \
     -conj(.1/pixel2+b3)+.15
  z=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*conj(pixel2^6)-b3+.13
  IF (@p3==1)
    c = (b4^2)
  ELSEIF (@p3==0)
    c = -(b4), z = -z
  ELSE
    IF (whitesq)
      c = (b4^2)
    ELSE
      c = -(b4), z = -z
    ENDIF
  ENDIF
  zmod = flip(abs(d/70*pixel2))
  cmod = 2*c + c^2 - zmod
  c1=1.5*z^1.2,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, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l2)
    c = c2, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l3)
    c = c3, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l4)
    c = c4, cmod = 2*c + c^2 - zmod, z = 0
  ENDIF
  z = z^2*(z^2-3.5)*c + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3203"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3204 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=conj(.1/pixel2-flip(.01/pixel2))
  z=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*conj(pixel2^8) \
    -b3+.1+conj(.01/pixel2)
  b6=z/2.5-conj(.01/pixel2)
  b4=b6-0.2*(conj(flip(pixel2/2)*sin(abs(pixel2/3))) \
     *flip(pixel2^6)-conj(.1/pixel2+b3)+.2)
  IF (@p3==1)
    c = (b4^2)
  ELSEIF (@p3==0)
    c = -conj(b4), z = -z
  ELSE
    IF (whitesq)
      c = (b4^2)
    ELSE
      c = -conj(b4), z = -z
    ENDIF
  ENDIF
  zmod = flip(abs(d/70*pixel2))
  cmod = 2*c + c^2 - zmod
  c1=1.5*z^1.2,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, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l2)
    c = c2, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l3)
    c = c3, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l4)
    c = c4, cmod = 2*c + c^2 - zmod, z = 0
  ENDIF
  z = z^2*(z^2-3.5)*c + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3204"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3205 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=conj(.1/pixel2-flip(.01/pixel2))
  z=conj(abs(pixel2/2)*sin(abs(pixel2/3)))*conj(pixel2^4) \
    -b3+conj(.01/pixel2)-0.125
  b6=pixel2^3-b3
  c=b6-.2*(conj(flip(pixel2/2)*sin(abs(pixel2/3))) \
    *flip(pixel2^6)-conj(.1/pixel2+b3)-.15)
  zmod = (-.7456,-.132) + flip(|d/80*pixel2|)
  cmod = |c/7.5| + zmod
  c1=1.5*z^1.2,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)
    cmod = |c1/7.5| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2/7.5| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3/7.5| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4/7.5| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3205"
  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
}

Carr3206 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=pixel2/2-conj(.01/pixel2-flip(.001/pixel2))
  z=conj(conj(abs(pixel2))^5-.5/(conj(atan(.01/pixel2)) \
     -cabs(acos(.02/pixel2))))-.235
  IF (@p3==0)
    c = -(c^2), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -(c^2), z = -z
    ENDIF
  ENDIF
  zmod = flip(abs(d/70*pixel2))
  cmod = 2*c + c^2 - zmod
  c1=1.5*z^1.2,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, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l2)
    c = c2, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l3)
    c = c3, cmod = 2*c + c^2 - zmod, z = 0
  ELSEIF (iter==l4)
    c = c4, cmod = 2*c + c^2 - zmod, z = 0
  ENDIF
  z = z^2*(z^2-3.5)*c + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3206"
  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
}

Carr3207 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=(.37,-.3101)-flip(.1/pixel2)
  z=cabs(cabs(pixel2/2)*tan(cabs(pixel2/3))) \
    *conj(abs(pixel2^3))-conj(.1/pixel2)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(.1/pixel2) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3207"
  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
}

Carr3208 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b4=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b5=conj(b4^6)-conj(.1/pixel2-flip(.01/pixel2))-.25
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(|.01/pixel2|) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3208"
  periodicity = 0
  maxiter = 700
  magn = 1.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
}

Carr3209 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b4=pixel2^3/tanh(.3/pixel2)+.1/pixel2
  b5=cabs(b4^6)-conj(.1/pixel2-flip(.01/pixel2))^.75-.25
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(|.01/pixel2|) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3209"
  periodicity = 0
  maxiter = 500
  magn = 1.8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3210 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b4=pixel2^4/tanh(.3/pixel2)+flip(.1/pixel2)
  b5=conj(b4^6)-conj(.1/pixel2-flip(.01/pixel2))-.25
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(|.01/pixel2|) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3210"
  periodicity = 0
  maxiter = 700
  magn = 1.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
}

Carr3211 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b4=pixel2^4/tanh(.3/pixel2)+flip(.1/pixel2)
  b5=conj(b4^6)-conj(.1/pixel2-flip(.01/pixel2))+.15
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = (-.7456,-.132) + flip(|d/80*pixel2|)
  cmod = |c/7.5| + zmod
  c1=1.5*z^1.2,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)
    cmod = |c1/7.5| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2/7.5| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3/7.5| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4/7.5| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3211"
  periodicity = 0
  maxiter = 700
  magn = 1.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
}

Carr3212 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b4=cabs(pixel2^4/tanh(.3/pixel2))+flip(.1/pixel2)
  b5=conj(b4^6)-conj(.1/pixel2-flip(.01/pixel2))-.25
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(|.01/pixel2|) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3212"
  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
}

Carr3213 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b5=abs(conj(pixel2^3)*flip(pixel2))-.15
  b4=b5^4-conj(.1/pixel2-flip(.015/pixel2-flip(.1/b5)))
  IF (@p3==1)
    c = cabs(b4), z = sqr(b5)
  ELSEIF (@p3==0)
    c = -sqr(b4), z = -conj(b5)
  ELSE
    IF (whitesq)
      c = cabs(b4), z = sqr(b5)
    ELSE
      c = -sqr(b4), z = -conj(b5)
    ENDIF
  ENDIF
  zmod = |.1/pixel2|
  dterm = -flip(|.01/pixel2|) + flip(|d/80*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z = (z+zmod)^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3213"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3214 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2^5)*abs(pixel2)*pixel2-conj(.1/pixel2) \
    -flip(.0051/pixel2)^4-.3
  c=conj(z-flip(.1/pixel2))
  IF (@p3==0)
    c = -(c), z = -sqr(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -(c), z = -sqr(z)
    ENDIF
  ENDIF
  zterm = 3/(c+2)
  c1=1.5*z^1.2,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)
    zterm = 3/(c1+2), z = 0
  ELSEIF (iter==l2)
    zterm = 3/(c2+2), z = 0
  ELSEIF (iter==l3)
    zterm = 3/(c3+2), z = 0
  ELSEIF (iter==l4)
    zterm = 3/(c4+2), z = 0
  ENDIF
  z = zterm*(z^2-.5)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3214"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.07)
  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
}

Carr3215 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^6+.15
  c=abs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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 = c*(z^2*(z^2-4)+2)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3215"
  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
}

Carr3216 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), z=pixel2^6+0.15
  c=cabs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3216"
  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
}

Carr3217 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=pixel2^6+.15
  c=cabs(z/2.5)-conj(op-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -conj(abs(z-conj(op)))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -conj(abs(z-conj(op)))
    ENDIF
  ENDIF
  zterm = 3.5 + conj(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3217"
  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
}

Carr3218 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=pixel2^6+.15
  c=cabs(z/2.5)-conj(op-flip(0.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -conj(abs(z-conj(op)))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -conj(abs(z-conj(op)))
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/50*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3218"
  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
}

Carr3219 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=abs(pixel2)*|pixel2^2|*pixel2-conj(op-flip(.01/pixel2))
  c=conj(1/sinh(1/flip(z^3)))-conj(op-flip(.01/pixel2))
  IF (@p3==0)
    c = -c, z = -conj(abs(z-conj(op)))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -conj(abs(z-conj(op)))
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/50*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3219"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3220 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), z=pixel2^6+.15
  c=1.2*|pixel2/.75|^5+conj(op+flip(.01/pixel2))
  IF (@p3==0)
    c = -c, z = -conj(abs(z-conj(op)))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -conj(abs(z-conj(op)))
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3220"
  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
}

Carr3221 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=pixel2^6+.15, c=-conj(op)
  IF (@p3==0)
    c = -c, z = -abs(z-conj(op-flip(.01/pixel2)))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -abs(z-conj(op-flip(.01/pixel2)))
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3221"
  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
}

Carr3222 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), oq = flip(op/10)
  z=pixel2^9+.15, c=-conj(op-oq)
  IF (@p3==0)
    c = -c, z = -abs(z-conj(op-oq))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -abs(z-conj(op-oq))
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=c*(z*z*(z*z-zterm)+2)+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3222"
  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
}

Carr3223 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), z=pixel2^6+.15
  c=pixel2^3+.1*(conj(z/2)-z^2 \
    -conj(tan(sin(op-conj(.01/pixel2)))))
  IF (@p3==0)
    c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
    ENDIF
  ENDIF
  zterm = 3.5+flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3223"
  periodicity = 0
  maxiter = 700
  magn = 1.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
}

Carr3224 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=abs(pixel2^2)*conj(flip(pixel2^3))+.15
  c=cabs(z/2.5)-conj(op-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3224"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3225 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .1/pixel2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=abs(pixel2^2)*conj(flip(pixel2^3))+.25
  c=pixel2^5-flip(.01/pixel2)-conj(op)
  IF (@p3==0)
    c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -abs(c-conj(op-flip(.01/pixel2))), z = -z
    ENDIF
  ENDIF
  zterm = 3.5 + flip(op)
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-zterm)+2))+dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3225"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3226 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), z=pixel2^6+.15
  c=cabs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(|d/80*pixel2|)^3
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c*z))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3226"
  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
}

Carr3227 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=pixel2^6+.15-conj(.01/pixel2-flip(.001/pixel2))
  c=abs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(|d/60*pixel2|)^3
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c*z))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3227"
  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
}

Carr3228 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=conj(pixel2)*abs(pixel2)*flip(pixel2^4) \
    -conj(.01/pixel2-flip(.001/pixel2))+.15
  b4=conj(sinh(cabs(z/2.5)))-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    c = conj(b4)
  ELSEIF (@p3==0)
    c = -conj(b4)^3, z = -z
  ELSE
    IF (whitesq)
      c = conj(b4)
    ELSE
      c = -conj(b4)^3, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3228"
  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
}

Carr3229 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=pixel2^12+tanh(.1/pixel2)-sinh(.1/pixel2)-conj(.13/pixel2)
  z = c - .35
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(|d/80*pixel2|)
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c*z+1/c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3229"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3230 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)),
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cabs(pixel2/2)-pixel2*((.3,.6)+pixel2)-conj(.1/pixel2)
  z=pixel2^5-conj(.1/b3-flip(.01/b3)) \
    -conj(.1/pixel2-flip(.01/pixel2))-.25
  c=z+.25
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/35*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3230"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3231 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cabs(pixel2/2)-pixel2*((.3,.6)+pixel2)-conj(.1/pixel2)
  z=pixel2^5-conj(.1/b3-flip(.01/b3)) \
    -conj(.1/pixel2-flip(.01/pixel2))-.25
  c=z+.25
  dterm = (-.7456,-.132) + flip(|d/80*pixel2|)
  cterm = |c/7.5| + dterm
  c1=1.5*z^1.2,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)
    cterm = |c1/7.5| + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = |c2/7.5| + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = |c3/7.5| + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = |c4/7.5| + dterm, z = 0
  ENDIF
  z=z^2+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3231"
  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
}

Carr3232 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=conj(abs(pixel2))^3/cotan(.1-pixel2)^1.3-.3
  c=conj(tanh(pixel2)^3/cotan(.1-pixel2)^1.3)/2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/35*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3232"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3233 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=abs(pixel2^6)-pixel2*((.3,.6)+pixel2)-conj(.1/pixel2)-.15
  c=z/2.5-conj(.1/z-flip(.01/z)) \
     -conj(.075/pixel2-flip(.01/pixel2))+.05
  IF (@p3==0)
    c = -c, z = -(z^2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z^2)
    ENDIF
  ENDIF
  dterm = flip(abs(d/35*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3233"
  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
}

Carr3234 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=cabs(pixel2^6)-pixel2*((.3,.6)+pixel2)-conj(.09/pixel2)-.3
  c=cabs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.075
  IF (@p3==0)
    c = -c, z = -(z^2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z^2)
    ENDIF
  ENDIF
  zmult = 3/(c+2)
  cp = conj(.1/pixel2)
  dterm = flip(|d/70*pixel2|)
  zmod = (cp+1)/(c+2)
  c1=1.5*z^1.2,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)
    zmult=3/(c1+2), zmod=(cp+1)/(c1+2), z=0
  ELSEIF (iter==l2)
    zmult=3/(c2+2), zmod=(cp+1)/(c2+2), z=0
  ELSEIF (iter==l3)
    zmult=3/(c3+2), zmod=(cp+1)/(c3+2), z=0
  ELSEIF (iter==l4)
    zmult=3/(c4+2), zmod=(cp+1)/(c4+2), z=0
  ENDIF
  z = zmult*z^2 - zmod + dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3234"
  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
}

Carr3235 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=((sin(pixel2)-tan(pixel2))/(conj(pixel2)+flip(pixel2))) \
     -.1-conj(.01/pixel2)
  c=pixel2/2.5-conj(.01/pixel2)-flip(.001/pixel2)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/35*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3235"
  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
}

Carr3236 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*flip(pixel2^6) \
    -conj(.1/pixel2)
  z=c+.23
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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=(c*(z*z*(z*z-3.5)+2+c))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3236"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3237 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b1 = conj(conj(pixel2/2)*sin(abs(pixel2/3)))
  c=b1*flip(pixel2^6)-conj(.1/pixel2)
  z=b1*conj(pixel2^6)-flip(.1/pixel2)+.23
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z=z^2+cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3237"
  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
}

Carr3238 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=conj(pixel2^5)*abs(pixel2)*pixel2-conj(.066/pixel2) \
    -flip(.0051/pixel2)^2-.1
  c=conj(pixel2/2)*abs(pixel2/2)*pixel2-conj(.06/pixel2) \
    -flip(.0051/pixel2)^4+.15
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3238"
  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
}

Carr3239 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=abs(flip(pixel2^3))*conj(tanh(pixel2))
  z=b3^2*pixel2-.00066/b3-flip(.003/pixel2)^2-.1
  c=cabs(pixel2/2)*flip(pixel2/2)*pixel2-conj(.06/pixel2) \
    -flip(.0051/pixel2)^4+.15
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3239"
  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
}

Carr3240 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2))), b6=pixel2^6+.15
  c=-b6/(cotanh(1/pixel2^3))-conj(.06/pixel2) \
     -flip(.0051/pixel2)^4-.25
  z=c+.4
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3240"
  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
}

Carr3241 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b1=cosh(cos(pixel2))
  b2=conj(cos(cosh(pixel2)))
  b6=(cabs(pixel2)*conj(flip(pixel2))+.15)/b2
  b8=conj(.01/b1-flip(.01/b2-conj(.01/b6)))
  z=pixel2^6-b8+.25, c=pixel2/2-b8
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3241"
  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
}

Carr3242 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1=cosh(cos(pixel2))
  b2=conj(cos(cosh(pixel2)))
  b6=(cabs(pixel2)*conj(flip(pixel2))+.15)/b2
  z=pixel2^6-conj(.001/b1-flip(.001/b2-conj(.001/b6)))-.35
  c=pixel2/2-conj(.01/b1-flip(.01/b2-conj(.01/b6)))+.1
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  con = (-.7456,-.132)+sqr(.1/pixel2)
  cterm = conj(c/8) + con
  c1=1.5*z^1.2,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, cterm = conj(c1/8) + con
  ELSEIF (iter==l2)
    c = c2, z = 0, cterm = conj(c2/8) + con
  ELSEIF (iter==l3)
    c = c3, z = 0, cterm = conj(c3/8) + con
  ELSEIF (iter==l4)
    c = c4, z = 0, cterm = conj(c4/8) + con
  ENDIF
  z=(c*z*z)/(conj(z+c))+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3242"
  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
}

Carr3243 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b1=cosh(cos(pixel2))
  b2=conj(cos(cosh(pixel2)))
  b6=(cabs(pixel2)*conj(flip(pixel2))+.15)/b2
  z=pixel2^7-conj(.001/b1-flip(.001/b2-conj(.001/b6)))-.35
  c=cabs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))-.05
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3243"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3244 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cabs(pixel2^2)-pixel2-conj(.1/pixel2)
  b8 = -conj(.1/b3-flip(.01/b3))-conj(.1/pixel2-flip(.01/pixel2))
  z=abs(pixel2^5)+b8-.13, c=pixel2^5+b8
  IF (@p3==0)
    c = -sqr(c), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -sqr(c), z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3244"
  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
}

Carr3245 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cabs(pixel2^2)-conj(cos(pixel2))-conj(.1/pixel2)
  z=abs(pixel2^7)-conj(.075/b3-flip(.01/b3)) \
    -conj(.065/pixel2-flip(.01/pixel2))-.23
  b4=cabs(pixel2^7)-conj(.1/b3-flip(.01/b3)) \
     -conj(.1/pixel2-flip(.01/pixel2))-.075
  IF (@p3==1)
    c = (b4)^3
  ELSEIF (@p3==0)
    c = -(b4), z = -z
  ELSE
    IF (whitesq)
      c = (b4)^3
    ELSE
      c = -(b4), z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3245"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3246 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)),
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cabs(pixel2)-conj(cos(pixel2^4))-conj(.1/pixel2^3)
  z=abs(pixel2^10)-conj(.1/b3-flip(.0075/b3)) \
     -conj(.065/pixel2-flip(.01/pixel2))-.3
  b4=cabs(z/2.5)-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    c = (b4)^2
  ELSEIF (@p3==0)
    c = -flip(imag(b4)), z = -(z^2)
  ELSE
    IF (whitesq)
      c = (b4)^2
    ELSE
      c = -flip(imag(b4)), z = -(z^2)
    ENDIF
  ENDIF
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3246"
  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
}

Carr3247 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=cosh(2/pixel2)-cotanh(3/pixel2)-|0.1/pixel2^3|
  z=abs(pixel2^6)-conj(.25/b3-flip(.0075/b3)) \
     -conj(.065/pixel2-flip(.01/pixel2))-.3
  b4=pixel2^4-conj(.01/pixel2-flip(.01/pixel2 \
     -cabs(.001/z-abs(.001/b3))))
  IF (@p3==1)
    c = (b4)^2
  ELSEIF (@p3==0)
    c = -flip(imag(b4)), z = -(z^2)
  ELSE
    IF (whitesq)
      c = (b4)^2
    ELSE
      c = -flip(imag(b4)), z = -(z^2)
    ENDIF
  ENDIF
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z=z^2+cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3247"
  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
}

Carr3248 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*conj(pixel2^6) \
    -flip(.1/pixel2)-.13
  c=pixel2^3+.5*(conj(z/2)-z^2- \
     conj(tan(sin(.1/pixel2-conj(.01/pixel2)))))-.15
  IF (@p3==0)
    c = -c, z = -(z^2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z^2)
    ENDIF
  ENDIF
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z=z^2+cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3248"
  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
}

Carr3249 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  z=conj(conj(pixel2^6)-sin(abs(pixel2/3)))-conj(pixel2/2) \
    -flip(.001/pixel2)-.2
  c=pixel2^6*(conj(z/2)-.001/z \
     -conj(tan(sin(.001/pixel2-conj(.005/pixel2)))))-.15
  IF (@p3==0)
    c = -c, z = -(z^2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z^2)
    ENDIF
  ENDIF
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cmod = dterm + |c/7.5|
  c1=1.5*z^1.2,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)
    cmod = dterm + |c1/7.5|, z = 0
  ELSEIF (iter==l2)
    cmod = dterm + |c2/7.5|, z = 0
  ELSEIF (iter==l3)
    cmod = dterm + |c3/7.5|, z = 0
  ELSEIF (iter==l4)
    cmod = dterm + |c4/7.5|, z = 0
  ENDIF
  z=z^2+cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3249"
  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
}

Carr3250 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|)
  cmod = c + dterm
  c1=1.5*z^1.2,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)
    cmod = c1 + dterm, z = 0
  ELSEIF (iter==l2)
    cmod = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    cmod = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    cmod = c4 + dterm, z = 0
  ENDIF
  z=z^2+cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3250"
  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
}

Carr3251 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3251"
  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
}

Carr3252 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=abs(pixel2^4)*abs(pixel2^3)-flip(.01/pixel2) \
     -conj(.01/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3252"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3253 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))-.045/pixel2
  z=abs(pixel2^3)*flip(pixel2^4)-flip(.0001/c) \
    +conj(.001/pixel2)-.2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/70*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3253"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  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
}

Carr3254 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^3)*conj(flip(pixel2^3))-cabs(.035/pixel2)+.1
  z=abs(pixel2^2)*cabs(pixel2^4)-flip(.0001/c) \
     +conj(.001/pixel2)-.2
  IF (@p3==0)
    c = -conj(c), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3254"
  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
}

Carr3255 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))-cabs(0.04/pixel2)
  z=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2)-.2
  IF (@p3==0)
    c = -conj(c), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -conj(c), z = -z
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  cterm2 = .001/c
  dterm = flip(abs(d/30*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm-cterm2
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3255"
  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
}

Carr3256 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))-cabs(.045/pixel2)+.075
  z=pixel2^3*flip(conj(sinh(pixel2^4)))-flip(.01/pixel2) \
     -conj(.01/pixel2)-.2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  z = z + .01/c
  cterm = 2+imag(c)
  cterm2 = .001/c
  dterm = flip(abs(d/30*pixel2))
  c1=1.5*z^1.2,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, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), cterm2 = .001/c, z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm-cterm2
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3256"
  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
}

Carr3257 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*abs(pixel2^4)-flip(.0075/pixel2) \
     -conj(.0125/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c + flip(|d/70*pixel2|)
  c1=1.5*z^1.2,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 + flip(|d/70*pixel2|), z = 0
  ELSEIF (iter==l2)
    c = c2 + flip(|d/70*pixel2|), z = 0
  ELSEIF (iter==l3)
    c = c3 + flip(|d/70*pixel2|), z = 0
  ELSEIF (iter==l4)
    c = c4 + flip(|d/70*pixel2|), z = 0
  ENDIF
  z=z^2+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3257"
  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
}

Carr3258 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-|.0175/pixel2|-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) + .105
  c  = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3258"
  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
}

Carr3259 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-|0.0175/pixel2|-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2)) - .13
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3259"
  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
}

Carr3260 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-|.0175/pixel2|-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = (-.7456,-.132)+flip(|d/80*pixel2|)
  cterm = |c/12| + dterm
  c1=1.5*z^1.2,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)
    cterm = |c1/12| + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = |c2/12| + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = |c3/12| + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = |c4/12| + dterm, z = 0
  ENDIF
  z=z^2+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3260"
  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
}

Carr3261 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2) \
     -|.0175/pixel2|+imag(.00725/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2)) - .125
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3261"
  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
}

Carr3262 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2) \
     -|.0175/pixel2|+imag(.00725/pixel2)-cabs(.01/pixel2)-.2
 IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2)) - .125
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3262"
  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
}

Carr3263 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=|.0175/pixel2|-imag(.00725/pixel2)+cabs(.01/pixel2)
  c=abs(pixel2^5)*conj(flip(pixel2^3))-flip(b3)
  b5=abs(pixel2^2)*cabs(pixel2^3)-flip(.01/pixel2) \
     -conj(.01/pixel2)-b3-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -abs(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -abs(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2)) - .08
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3263"
  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
}

Carr3264 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)),
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=.0175/pixel2-imag(.00725/pixel2)+cabs(.01/pixel2)
  c=abs(pixel2^5)*conj(flip(pixel2^3))+b3
  b5=abs(pixel2^3)*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-b3-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -abs(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -abs(b5)
    ENDIF
  ENDIF
  cterm = 2+imag(c)
  dterm = flip(abs(d/30*pixel2)) - .08
  c1=1.5*z^1.2,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, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l2)
    c = c2, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l3)
    c = c3, cterm = 2+imag(c), z = 0
  ELSEIF (iter==l4)
    c = c4, cterm = 2+imag(c), z = 0
  ENDIF
  z=(c*(z*z*(z*z-3.5)+cterm))-dterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3264"
  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
}

Carr3265 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.0175/pixel2)-imag(.00725/pixel2)^2+cabs(.01/pixel2)
  c=abs(pixel2^5)*conj(flip(pixel2^3))-b3
  b5=abs(pixel2^3)*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-b3-0.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -abs(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -abs(b5)
    ENDIF
  ENDIF
  conterm = .09/pixel2 + .08
  cterm = c - conterm
  c1=1.5*z^1.2,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)
    cterm = c1 - conterm, z = 0
  ELSEIF (iter==l2)
    cterm = c2 - conterm, z = 0
  ELSEIF (iter==l3)
    cterm = c3 - conterm, z = 0
  ELSEIF (iter==l4)
    cterm = c4 - conterm, z = 0
  ENDIF
  z=(|z|/5)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3265"
  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
}

Carr3266 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.0175/pixel2)-imag(.00725/pixel2)^2+cabs(.01/pixel2)
  b5=pixel2^5-conj(.075/pixel2)-flip(.001/b3)-.2
  c=pixel2-flip(.075/pixel2)-conj(.001/pixel2)
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -abs(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -abs(b5)
    ENDIF
  ENDIF
  conterm = .09/pixel2 + .08
  cterm = c - conterm
  c1=1.5*z^1.2,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)
    cterm = c1 - conterm, z = 0
  ELSEIF (iter==l2)
    cterm = c2 - conterm, z = 0
  ELSEIF (iter==l3)
    cterm = c3 - conterm, z = 0
  ELSEIF (iter==l4)
    cterm = c4 - conterm, z = 0
  ENDIF
  z=(|z|/5)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3266"
  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
}

Carr3267 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=flip(.0175/pixel2-imag(.00725/pixel2)^3+cabs(.01/pixel2)^2)
  c=abs(1.5*pixel2)*conj(flip(pixel2^3))-b3*pixel2^.66-.15
  b5=abs(pixel2^3)*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)-b3-.15
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)^.75
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)^.75
    ENDIF
  ENDIF
  conterm = (.1/pixel2*b3*2)+.096
  cterm = c - conterm
  c1=1.5*z^1.2,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)
    cterm = c1 - conterm, z = 0
  ELSEIF (iter==l2)
    cterm = c2 - conterm, z = 0
  ELSEIF (iter==l3)
    cterm = c3 - conterm, z = 0
  ELSEIF (iter==l4)
    cterm = c4 - conterm, z = 0
  ENDIF
  z=(|z|/4)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3267"
  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
}

Carr3268 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2)-.2
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=(pixel2^3-.0075/b3)*cabs(pixel2^4)-flip(.035/pixel2) \
     -conj(.03/pixel2)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cterm = .95*c + .08
  c1=1.5*z^1.2,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)
    cterm = .95*c1 + .08, z = 0
  ELSEIF (iter==l2)
    cterm = .95*c2 + .08, z = 0
  ELSEIF (iter==l3)
    cterm = .95*c3 + .08, z = 0
  ELSEIF (iter==l4)
    cterm = .95*c4 + .08, z = 0
  ENDIF
  z=(|z|/4)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3268"
  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
}

Carr3269 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2-conj(0.1/pixel2-flip(0.01/pixel2+cabs(0.01/pixel2)))
  b5=pixel2^6-conj(0.1/c-flip(0.01/c+cabs(0.01/c)))
  IF (@p3==1)
    z = b5^0.75
  ELSEIF (@p3==0)
    c = -c, z = 0-conj(b5-0.025/b5*pixel2^4)^2
  ELSE
    IF (whitesq)
      z = b5^0.75
    ELSE
      c = -c, z = 0-conj(b5-0.025/b5*pixel2^4)^2
    ENDIF
  ENDIF
  conterm = .08 + .03/pixel2
  cterm = .95*c + conterm
  c1=1.5*z^1.2,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)
    cterm = .95*c1 + conterm, z = 0
  ELSEIF (iter==l2)
    cterm = .95*c2 + conterm, z = 0
  ELSEIF (iter==l3)
    cterm = .95*c3 + conterm, z = 0
  ELSEIF (iter==l4)
    cterm = .95*c4 + conterm, z = 0
  ENDIF
  z=(|z|/4)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3269"
  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
}

Carr3270 (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(.075/pixel2)+sinh(.001/pixel2)
  z=tan(tan(pixel2^4)-.075/c)-tanh(.1/pixel2) \
    -conj(.001/pixel2)-.24
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  conterm = .09 + .025/pixel2
  cterm = .875*c + conterm
  c1=1.5*z^1.2,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)
    cterm = .875*c1 + conterm, z = 0
  ELSEIF (iter==l2)
    cterm = .875*c2 + conterm, z = 0
  ELSEIF (iter==l3)
    cterm = .875*c3 + conterm, z = 0
  ELSEIF (iter==l4)
    cterm = .875*c4 + conterm, z = 0
  ENDIF
  z = |z/6| + z^2 + cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3270"
  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
}

Carr3271 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=exp(0.0025/pixel2)/conj(cos(0.1-pixel2))-conj(0.01/pixel2)
  z=pixel2^5-0.0075/b3-conj(0.0075/b3)-0.45
  c=cabs(pixel2^2)-pixel2^7+conj(0.075/b3)
  IF (@p3==0)
    c = -c, z = 0-z^2
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = 0-z^2
    ENDIF
  ENDIF
  conterm = .09 + .025/pixel2
  cterm = .875*c + conterm
  c1=1.5*z^1.2,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)
    z = 0, cterm = .875*c1 + conterm
  ELSEIF (iter==l2)
    z = 0, cterm = .875*c2 + conterm
  ELSEIF (iter==l3)
    z = 0, cterm = .875*c3 + conterm
  ELSEIF (iter==l4)
    z = 0, cterm = .875*c4 + conterm
  ENDIF
  z=|z/6|+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3271"
  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
}

Carr3272 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=exp(.0025/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  z=conj(pixel2^6)-abs(.007/b3)-conj(.007/b3)-cabs(.0025/b3)-.45
  c=cabs(pixel2^3+.075/z)-pixel2^7+conj(.075/b3)-.35
  IF (@p3==0)
    c = -c, z = -z^3
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z^3
    ENDIF
  ENDIF
  conterm = .09 + .025/pixel2
  cterm = .875*c + conterm
  c1=1.5*z^1.2,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)
    z = 0, cterm = .875*c1 + conterm
  ELSEIF (iter==l2)
    z = 0, cterm = .875*c2 + conterm
  ELSEIF (iter==l3)
    z = 0, cterm = .875*c3 + conterm
  ELSEIF (iter==l4)
    z = 0, cterm = .875*c4 + conterm
  ENDIF
  z=|z/6|+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3272"
  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
}

Carr3273 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=conj(pixel2^4-sinh(.007/pixel2))
  m4=conj(.005/pixel2)-sqr(flip(.09/pixel2))
  z=conj(1/acos(1-pixel2))*pixel2^4-m4-conj(.008/pixel2)-.1
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  dterm = flip(abs(d/30*pixel2))
  conterm = .09 + .025/pixel2
  cterm = .875*c + conterm - dterm
  c1=1.5*z^1.2,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)
    z = 0, cterm = .875*c1 + conterm - dterm
  ELSEIF (iter==l2)
    z = 0, cterm = .875*c2 + conterm - dterm
  ELSEIF (iter==l3)
    z = 0, cterm = .875*c3 + conterm - dterm
  ELSEIF (iter==l4)
    z = 0, cterm = .875*c4 + conterm - dterm
  ENDIF
  z=(|z/6|)+z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3273"
  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
}

Carr3274 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.01/pixel2)+conj(.0095/b3)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) + .125
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3274"
  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
}

Carr3275 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-conj(.0075/b3) \
    -flip(.0075/b3)
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2) \
     +conj(.0095/b3)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) + .125
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3275"
  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
}

Carr3276 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-conj(.0075/b3) \
    -flip(.0075/b3)
  b5=pixel2^3*cabs(pixel2^4)-flip(.0025/c)-conj(.0025/c) \
     +conj(.0095/b3)-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) + .125
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3276"
  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
}

Carr3277 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2^4))-conj(.01/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-conj(.0075/b3) \
    -flip(.0075/b3)
  b5=pixel2^3*cabs(pixel2^4)-flip(.0007/c)-conj(.001/c) \
     +conj(.0095/b3)-.235
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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 + z^2/(30*c) + .125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3277"
  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
}

Carr3278 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=flip(conj(pixel2^5))*abs(conj(pixel2)) \
     -conj(.0125/pixel2-flip(.005/pixel2))
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5))
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c + .125
  c1=1.5*z^1.2,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 + .125, z = 0
  ELSEIF (iter==l2)
    c = c2 + .125, z = 0
  ELSEIF (iter==l3)
    c = c3 + .125, z = 0
  ELSEIF (iter==l4)
    c = c4 + .125, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3278"
  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
}

Carr3279 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=flip(.1-pixel2)+abs(pixel2^6)-pixel2/pi-conj(.01/pixel2)+.25
  c=b5^2-conj(.1/b5-flip(.01/b5))^2 \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c + .125
  c1=1.5*z^1.2,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 + .125, z = 0
  ELSEIF (iter==l2)
    c = c2 + .125, z = 0
  ELSEIF (iter==l3)
    c = c3 + .125, z = 0
  ELSEIF (iter==l4)
    c = c4 + .125, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3279"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  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
  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
}

Carr3280 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=flip(.1-pixel2)+abs(pixel2^6)-pixel2/pi-conj(.01/pixel2) \
     -flip(.01/pixel2)+.2
  b4=b5^2-conj(.01/b5-flip(.01/b5))^2 \
     -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    c = (b4)^.75, z = (b5)^.75
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)
  ELSE
    IF (whitesq)
      c = (b4)^.75, z = (b5)^.75
    ELSE
      c = -(b4), z = -(b5)
    ENDIF
  ENDIF
  c = c + .125
  c1=1.5*z^1.2,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 + .125, z = 0
  ELSEIF (iter==l2)
    c = c2 + .125, z = 0
  ELSEIF (iter==l3)
    c = c3 + .125, z = 0
  ELSEIF (iter==l4)
    c = c4 + .125, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3280"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  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
  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
}

Carr3281 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b7=flip(.01/pixel2), b8=sin(.001/pixel2-tanh(.001/pixel2))
  b5=flip(.1-pixel2)+abs(pixel2^6)+b8-pixel2/pi \
     -conj(.01/pixel2)-flip(.01/pixel2)+.2
  b4=flip(b5^2)-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    c = (b4)^.75, z = (b5)^.75
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)^3
  ELSE
    IF (whitesq)
      c = (b4)^.75, z = (b5)^.75
    ELSE
      c = -(b4), z = -(b5)^3
    ENDIF
  ENDIF
  c = c + .125 - b7
  c1=1.5*z^1.2,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 + .125 - b7, z = 0
  ELSEIF (iter==l2)
    c = c2 + .125 - b7, z = 0
  ELSEIF (iter==l3)
    c = c3 + .125 - b7, z = 0
  ELSEIF (iter==l4)
    c = c4 + .125 - b7, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3281"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  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
  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
}

Carr3282 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = .01/pixel2
  b7=flip(op), b8=sin(.001/pixel2-flip(.001/pixel2))
  b4=flip(.1-pixel2)+abs(pixel2^6)+b8-pixel2/pi-conj(op)-b7
  b5=flip(b4^2)-conj(.1/pixel2-b7)
  IF (@p3==1)
    c = (b4)^.75, z = (b5)^.75
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)^3
  ELSE
    IF (whitesq)
      c = (b4)^.75, z = (b5)^.75
    ELSE
      c = -(b4), z = -(b5)^3
    ENDIF
  ENDIF
  c = c + .125 - b7
  c1=1.5*z^1.2,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 + .125 - b7, z = 0
  ELSEIF (iter==l2)
    c = c2 + .125 - b7, z = 0
  ELSEIF (iter==l3)
    c = c3 + .125 - b7, z = 0
  ELSEIF (iter==l4)
    c = c4 + .125 - b7, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3282"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  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
}

Carr3283 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3))-conj(.01/pixel2 \
    -flip(.001/pixel2))
  b5=pixel2^3.3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|)
  c = c + .2 + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3283"
  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
}

Carr3284 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos((1/pixel2))))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
    -conj(.01/pixel2-flip(.001/pixel2))
  b9=conj(.007/c-flip(.007/c))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) - |b6| - b7 - flip(b9/5)
  c = c + .2 + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3284"
  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
}

Carr3285 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b5=conj(conj(pixel2/2)*sin(abs(pixel2/3)))*conj(pixel2^6) \
     -b7-b6-.2
  c=b5-.01/b5-b6-b7
  IF (@p3==1)
    z = conj(b5)^.7455
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = conj(b5)^.7455
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) - |b6| - b7
  c = conj(c) + dterm
  c1=1.5*z^1.2,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 = conj(c1) + dterm, z = 0
  ELSEIF (iter==l2)
    c = conj(c2) + dterm, z = 0
  ELSEIF (iter==l3)
    c = conj(c3) + dterm, z = 0
  ELSEIF (iter==l4)
    c = conj(c4) + dterm, z = 0
  ENDIF
  z=z^3+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3285"
  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
}

Carr3286 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b8=sin(.003/pixel2-flip(.003/pixel2))
  m3=cabs(pixel2)*pixel2, m4=(-.7456,-.132), b4=m4/2-.25/m3
  b8=sin(.003/pixel2-flip(.003/pixel2))
  b9=conj(.01/b4*b8^2-flip(.01/b4*b8))
  z=.75*flip(m3)^2-conj(.01/pixel2)-b8+b9+.35
  IF (@p3==1)
    c = (b4)^.75
  ELSEIF (@p3==0)
    c = -(b4), z = 0-(z)^.75
  ELSE
    IF (whitesq)
      c = (b4)^.75
    ELSE
      c = -(b4), z = 0-(z)^.75
    ENDIF
  ENDIF
  conterm = m4 - .0025/pixel2
  cterm = c/8 + conterm
  c1=1.5*z^1.2,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)
    cterm = c1/8 + conterm, z = 0
  ELSEIF (iter==l2)
    cterm = c2/8 + conterm, z = 0
  ELSEIF (iter==l3)
    cterm = c3/8 + conterm, z = 0
  ELSEIF (iter==l4)
    cterm = c4/8 + conterm, z = 0
  ENDIF
  z=z^2+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3286"
  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
}

Carr3287 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.005/pixel2)
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b5=flip(pixel2-b7^2)*conj(pixel2)*flip(c)^2-b6-b7-.15
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) - |b6|
  cterm = conj(c) + dterm
  c1=1.5*z^1.2,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)
    cterm = conj(c1) + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = conj(c2) + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = conj(c3) + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = conj(c4) + dterm, z = 0
  ENDIF
  z = z^2 + cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3287"
  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
}

Carr3288 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.005/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b9=conj(.0033/c*b8^2-flip(.0033/c*b8))
  b5=flip(pixel2-b9^2)^2*conj(pixel2^2)*flip(c)^2-b6-b7-.1497
  IF (@p3==1)
    z = conj(b5)^.55
  ELSEIF (@p3==0)
    c = -c, z = -(b5+b9)
  ELSE
    IF (whitesq)
      z = conj(b5)^.55
    ELSE
      c = -c, z = -(b5+b9)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|)
  cterm = conj(c+.25*b6) + dterm
  c1=1.5*z^1.2,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)
    cterm = conj(c1+.25*b6) + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = conj(c2+.25*b6) + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = conj(c3+.25*b6) + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = conj(c4+.25*b6) + dterm, z = 0
  ENDIF
  z=z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3288"
  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
}

Carr3289 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.005/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b9=conj(.0033/c*b8^2-flip(.0033/c*b8))
  b5=pixel2*(flip(pixel2-b9^2)^2*conj(pixel2^2)*flip(c)^2 \
     -b6-b7-.1597)/(cos(.1-c+b6))
  IF (@p3==1)
    z = conj(b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5+b9)
  ELSE
    IF (whitesq)
      z = conj(b5)^.75
    ELSE
      c = -c, z = -(b5+b9)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|)
  cterm = conj(c+.25*b6) + dterm
  c1=1.5*z^1.2,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)
    cterm = conj(c1+.25*b6) + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = conj(c2+.25*b6) + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = conj(c3+.25*b6) + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = conj(c4+.25*b6) + dterm, z = 0
  ENDIF
  z=z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3289"
  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
}

Carr3290 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.005/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b9=conj(.0033/c*b8^2-flip(.0033/c*b8)), b10=cos(c+b9)
  b5=(c+pixel2)*(flip(pixel2-b9^2)^2*conj(pixel2^2) \
     *flip(c)^2-b6-b7-.1597)/b10
  IF (@p3==1)
    z = conj(b5)^.75
  ELSEIF (@p3==0)
    z = -(b5+2/c), c = -c
  ELSE
    IF (whitesq)
      z = conj(b5)^.75
    ELSE
      z = -(b5+2/c), c = -c
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|)
  cterm = conj(c+.25*b6) - c/8 + dterm
  c1=1.5*z^1.2,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)
    cterm = conj(c1+.25*b6) - c1/8 + dterm, z = 0
  ELSEIF (iter==l2)
    cterm = conj(c2+.25*b6) - c2/8 + dterm, z = 0
  ELSEIF (iter==l3)
    cterm = conj(c3+.25*b6) - c3/8 + dterm, z = 0
  ELSEIF (iter==l4)
    cterm = conj(c4+.25*b6) - c4/8 + dterm, z = 0
  ENDIF
  z=z*z+cterm
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3290"
  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
}

Carr3291 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b8=sin(.003/pixel2-flip(.003/pixel2))
  c=pixel2^4/sinh(.3/pixel2)+flip(.1/pixel2)
  b9=conj(.007/c-flip(.007/c))
  b5=pixel2^3*abs(flip(pixel2+.125))^4-b7-b6+1.75*b8-.2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*pixel2|) - |b6| - b7 - flip(b9/5)
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3291"
  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
}

Carr3292 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b10=conj(pixel2)+abs(.1-pixel2)*cabs(.15-pixel2^2)
  c=|pixel2^8|-flip(.1/pixel2)
  b5=b10+abs(pixel2^6)+flip(.01/pixel2)-conj(.001/pixel2)
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/70*cos(pixel2)|) - |b6| - b7
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3292"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  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
  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
}

Carr3293 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  b10=conj(pixel2)+abs(.1-pixel2)*cabs(.15-pixel2^2)
  c=|pixel2^8|-flip(.1/pixel2)
  b5=b10^4-c
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/40*cotanh(pixel2)|) - |b6| - b7
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3293"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  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
  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
}

Carr3294 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.01/pixel2), b7=flip(.01/pixel2)
  c=abs(pixel2^6)-flip(.085/pixel2)
  b9=conj(.007/c-flip(.007/c))
  b10=conj(pixel2)+abs(.1-pixel2)*cabs(.15-pixel2^2)
  b5=b10^4*abs(pixel2^2)-c-b6+.1
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  dterm = flip(|d/40*cotanh(pixel2)|) - |b6| - b7 - conj(b9/5)
  c = c + dterm
  c1=1.5*z^1.2,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 + dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 + dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 + dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 + dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3294"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  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
}

Carr3295 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b10=|pixel2^3|*pixel2/tanh(.3/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-.01/pixel2
  b5=b10-flip(.0125/pixel2)-conj(.0125/pixel2)-.19
  IF (@p3==1)
    z = (b5)^.73
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.73
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3295"
  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
}

Carr3296 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b10=|pixel2^3|*pixel2/tanh(.3/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-.01/pixel2
  b5=b10-flip(.0125/pixel2)-conj(.0125/pixel2)-.19
  IF (@p3==1)
    z = (b5)^.73
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.73
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c - .09/pixel2
  c1=1.5*z^1.2,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 - .09/pixel2, z = 0
  ELSEIF (iter==l2)
    c = c2 - .09/pixel2, z = 0
  ELSEIF (iter==l3)
    c = c3 - .09/pixel2, z = 0
  ELSEIF (iter==l4)
    c = c4 - .09/pixel2, z = 0
  ENDIF
  z=.2*|z|+z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3296"
  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
}

Carr3297 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=real(pixel)-flip(abs(imag(pixel)))
  b10=|pixel2^3|*pixel2/tanh(.3/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-.01/pixel2
  b5=conj(b10)^3-conj(.0125/pixel2)-flip(.0125/pixel2)^2-.2
  IF (@p3==1)
    z = (b5)^.73
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.73
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c - .09/pixel2
  c1=1.5*z^1.2,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 - .09/pixel2, z = 0
  ELSEIF (iter==l2)
    c = c2 - .09/pixel2, z = 0
  ELSEIF (iter==l3)
    c = c3 - .09/pixel2, z = 0
  ELSEIF (iter==l4)
    c = c4 - .09/pixel2, z = 0
  ENDIF
  z=(|z|/5)+z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3297"
  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
}

Carr3298 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b10=flip(pixel2^3)*pixel2^4/sinh(.3/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))-.01/pixel2
  b5=pixel2^2*flip(c/pi)*conj(b10)^3-conj(.0155/pixel2) \
     -flip(.025/pixel2)+.005/pixel2-.17
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)/2
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)/2
    ENDIF
  ENDIF
  c = (c-.24)*13/12
  c1=1.5*z^1.2,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*13/12, z = 0
  ELSEIF (iter==l2)
    c = c2*13/12, z = 0
  ELSEIF (iter==l3)
    c = c3*13/12, z = 0
  ELSEIF (iter==l4)
    c = c4*13/12, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3298"
  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
}

Carr3299 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=sin(.002/pixel2-flip(.002/pixel2))
  b10=pixel2^10-conj(.01/pixel2-flip(.15/pixel2))
  c=abs(pixel2^2)*b10-.01/pixel2
  b5=pixel2^2*abs(b10)^2*conj(cos(.1-c))-b8-b6-b7-.002/pixel2-.19
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5)/2
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5)/2
    ENDIF
  ENDIF
  dterm = .015 + (b7*b6)^3/1.5
  c = c - .24 - dterm
  c1=1.5*z^1.2,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 - dterm, z = 0
  ELSEIF (iter==l2)
    c = c2 - dterm, z = 0
  ELSEIF (iter==l3)
    c = c3 - dterm, z = 0
  ELSEIF (iter==l4)
    c = c4 - dterm, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3299"
  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
}