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