include "window.inc"
Window "MANDEL AFRICAN",620,500,4
sys_mode=4

single a,x,y,dy,cx,cy,i,b,yy,y0,x0,x1,f
f=.04

ClsColor 105,168,100
'For dy=0 To 2
   For x=0 To 620 
      a = (x*.06)-12
      cx = -2 * a * f
      For y=0 To 250  
         yy = y + dy
         b = yy * .121 + 21
         cy = 2-b * f
         x0 = 0
         y0 = 0
         For i=1 To 128
            x1 = x0 * x0 - y0 * y0 + cx
            y0 = 2 * x0 * y0 + cy
            x0 = x1
            iF x0 * x0 + y0 * y0 >4 
              Pixel x, yy,ColorRGB(i*.4,y,i*.6)
              Pixel x, 500-yy, ColorRGB(i*.4,y,i*.6)
              Exit For
            End iF
         Next               
      Next
   Next
'Next
Pause
WinEnd