'julia2
    '       09/08/1993

    
     CONST lx = 639'500
     CONST ly = 479'199'250
     CONST xl = 1'2.5
     CONST xm = 1'1.5
     CONST yl = -1
     CONST ym = 1
     CONST im = 44'12'50' 200

     CLS
        RANDOMIZE TIMER
        SCREEN 12
        a = .777 '!'5 ' .0.5'2'1
        b = .136 '''.65 '.83' '6'4
        DO
           x0 = (xm - xi) * RND(1) + xi
           y0 = (ym - yi) * RND(1) + yi
           x = x0
           y = y0
           f = 0
           FOR i = 1 TO im
              xx = (x * x - y * y) - a
              y = 2! * x * y - b
              x = xx
              IF (x * x + y * y > 4) THEN
                  f = -1
                  i = im
               END IF
           NEXT i
           IF (NOT (f)) THEN
               x = x0
               y = y0
               FOR i = 1 TO im / 4
                  xp = lx * (x - xi) / (xm - xi)
                  yp = ly * (y - yi) / (ym - yi)
                  c1 = INT(RND(1) * 14 + 2)
                  CIRCLE (xp, yp), 1, c1''10'2'15
                  CIRCLE (lx - xp, ly - yp), 1, c1'' 14
                  xx = (x * x - y * y) - a
                  y = 2 * x * y - b
                  x = xx
               NEXT i
           END IF
        LOOP