10 REM Mandelbrot set fractal.

   20 REM Based on a program by Ken Silverman.

   30 MODE3

   40 mnX=-1.8:mxX=.7

   50 mnY=-1:mxY=1

   60 dX=mxX-mnX:dY=mxY-mnY

   70 FOR res%=0TO5

   80   R%=128DIV2^res%:S%=0:T%=0

   90   FORY%=0TO255STEPR%:FORX%=0TO383STEPR%

  100     IFres%AND((T%ORS%)AND1)=0 S%=S%+1:NEXT

  110     x=X%/384*dX+mnX:y=Y%/256*dY+mnY:ox=x:oy=y

  120     FORC%=0TO14:xx=x*x:yy=y*y:IFxx+yy>3 EXIT FOR

  130       y=x*y*2+oy:x=xx-yy+ox:NEXT

  140       GCOLC%:RECTANGLE FILL X%,Y%,R%-1

  150   S%=S%+1:NEXT:T%=T%+1:NEXT

  160 NEXT res%

  170 REPEAT:UNTILINKEY0<>-1