uses gdip
Screen 800,600,1
SetCaption "MANDEL BUG"
SetSmoothMode 2
sys font= LoadFont ("arial",44)

single x,y,zx,zy,cx,cy,tmp, sys MaxIter=570,zoom=150,Iter 

ClsColor 155,0,0,0
Text font,300,300,"WAIT...", ARGB 255,255,255,255
Flip
For y=0 To sHeight
    For x=0 To sWidth
        zx=0
        zy=0
        cx= (x-400)/zoom	
        cy= (y-300)/zoom
        Iter = MaxIter
	while zx * zx + zy * zy < 4 && iter > 0 
          tmp = zx * zx - zy * zy + cX
          zy = 2.0 * zx * zy + cY
          zx = tmp
          iter--
	wend      
     FillOval x,y,6,6, ARGB 105,iter*9,iter*6,iter*4
  Next
Next
WaitKey(27)
Ends