'
'THE MANDELBROT SET
'
'Chaos in low resolution
'
'  after you start    pick x from -2 to +2     (left and right)
'     CHAOS15:
'                     pick y from -1 to +1     (up and down)
'                            
'                     pick m from 1 to 1000    (magnification)
'
'            Will beep when picture is done press any key to stop beep
'                press       Ctrl and Break     to abort
'      
'        Try  x=-1.5  y=0  m=3 to start  then make 'm' larger to zoom in.)
'   
'    >>>------------------>   PRESS SHIFT F5 to start  <----------------<<<
'
'      
'
CLS : SCREEN 13: cl = 50: FOR p = 10 TO 1 STEP -1: PALETTE p, 70 - p * 7: PALETTE 16 - p, 70 - p * 7: NEXT p
PRINT "enter x from -2 to 2     =left and right", "enter y from -1 to 1     =up and down", "enter m from 1 to 1000   =magnification"
 INPUT "x"; y: INPUT "y"; x: INPUT "m"; w: w = w - .6: IF w = 0 THEN w = .6
w = 1 / w: x = x - w / 2: x2 = x + w: y = y - w / 2: y2 = y + w
CLS : PRINT , , , , , , , , , , , , , , , , , , , , , , , , "         higher magnifications", "             take longer", , , , , , "          Ctrl Break to abort", , , "       press any key to stop beep"
FOR a = x TO x2 STEP w / 200
r = r + 1: c = 30
FOR b = y TO y2 STEP w / 250
c = c + 1: yr = b: xi = a
FOR z = 53 TO 80 STEP w
cl = cl - 1
zrt = zr: zit = zi
zr = zr * zr + zi * zi * -1 + yr
zi = zit * zrt + zit * zrt + xi: IF zi + zr > 12 OR zi + zr < -12 THEN 100
NEXT z: PSET (c, r), 17: GOTO 200
100 PSET (c, r), cl
200  cl = 50: zi = 0: zr = 0:    NEXT b: NEXT a
300 BEEP:  IF INKEY$ = "" THEN 300
400 GOTO 400
'             IF you want to a save your picture to disk you must
'         load a screen grabber like NEOGRAB before you run this program
          

'                        press SHIFT F5
'                      to run program again
               
'                   <EMAIL COMMENTS TO VILBERT>