'JULIA VERDE SU FONDO NERO *********ottimo**********                                                            

Xmin = -.6312656
Xmax = -.538734
Ymin = .2065
Ymax = .29325
sr = .318
si = .04
DIM COL1(15), COL2(15), COL3(15)
SCREEN 12
INPUT "tm="; tm
CLS
   stx = ABS(Xmax - Xmin) / 640
    sty = ABS(Ymax - Ymin) / 480
   FOR a = 2 TO 14
    COL3(a) = 0
     COL2(a) = a * 4
      COL1(a) = 50
  PALETTE a, COL1(a) + COL2(a) * 256 + COL3(a) * 256 ^ 2
   NEXT a
   PALETTE 15, 256 * 10
  LINE (Xmin, Ymin)-(Xmax, Ymax), 15, BF
   WINDOW SCREEN (Xmin * .866 - Ymax * .866, Xmin * .866 + Ymin * .866)-(Xmax * .866 - Ymin * .866, Xmax * .866 + Ymax * .866)
    'FOR j = Ymin TO Ymax STEP sty * tm
     FOR k = Xmin TO Xmax - .001 STEP stx * tm
      FOR j = .0001 - Ymin TO Ymax STEP sty * tm
      nmax = 400
       a = k: B = j: n = 0: D = 0: D1 = 1
    WHILE n < nmax AND ABS(D - D1) > .000001 AND D < 4
     n = n + 1
     D = D1
 '================================
 zr = a ^ 2 - B ^ 2 + sr
  zi = 2 * a * B + si
  
    a = zr: B = zi
     D = a * a + B * B
 '========================================
 WEND
  IF D <= nmax AND (n < 15 * 4 * 1) THEN kkk = n / 40
   IF kkk MOD 2 = 0 THEN kk = n MOD 15 ELSE kk = (59 - n) MOD 15
    IF kk < 0 THEN kk = 0
     IF n >= 15 * 4 * 1 THEN kk = 16
        X = .866 * (k - j)
         y = .82 * (k + j)
      FOR i% = 0 TO kk * 5 STEP 5
      kkk = i% / 60
      IF kkk MOD 2 = 0 THEN kkkk = (i% / 5) MOD 15 ELSE kkkk = (59 - i% / 5) MOD 15
      IF kkkk = 0 THEN kkkk = 1
       LINE (X, y - i% * sty)-(X, y - (i% + 5) * sty), i% / 5
       
                NEXT i%
   aer$ = INKEY$
    IF aer$ = CHR$(27) THEN END
          NEXT j
           NEXT k