10 MODE2:VDU23;8202;0;0;0;
   20 *FX9
   30 AR=-2:AI=-1.25:S=2.5:D=S/1280:TIME=0
   40 E%=512
   50 REPEAT
   60   C%=E%*4:D%=E%*8
   70   FORY%=0TO1024STEPC%
   80     FORX%=0TO1280STEPD%
   90       CR=X%*D+AR:CI=Y%*D+AI:ZR=CR:ZI=CI:I%=0
  100       REPEAT
  110         A=ZR2:B=ZI2:L=SQR(A+B):ZI=2*ZR*ZI+CI:ZR=A-B+CR:I%=I%+1
  120       UNTIL L>2 OR I%>15
  130       GCOL0,I%
  140       IFC%=4THENPLOT69,X%,Y%ELSEMOVEX%,Y%:MOVEX%+D%,Y%:PLOT85,X%,Y%+C%:MOVEX%+D%,Y%:MOVEX%+D%,Y%+C%:PLOT85,X%,Y%+C%
  150     NEXT
  160   NEXT
  170   E%=E%DIV2
  180 UNTIL C%=4
  190 T%=TIME
  200 *SAVE"IMG"FFFF3000+5000
  210 END
  
   10 MODE2:VDU23;8202;0;0;0;
   20 *FX9
   30 AR=-2:AI=-1.25:S=2.5:D=S/1280:TIME=0
   40 E%=512
   50 REPEAT
   60   C%=E%*4:D%=E%*8
   70   FORY%=0TO1024STEPC%
   80     FORX%=0TO1280STEPD%
   90       CR=X%*D+AR:CI=Y%*D+AI:ZR=CR:ZI=CI:I%=0
  100       REPEAT
* 110         A=ZR*ZR:B=ZI*ZI:L=A+B:ZI=2*ZR*ZI+CI:ZR=A-B+CR:I%=I%+1
* 120       UNTIL L>4 OR I%>15
  130       GCOL0,I%
  140       IFC%=4THENPLOT69,X%,Y%ELSEMOVEX%,Y%:MOVEX%+D%,Y%:PLOT85,X%,Y%+C%:MOVEX%+D%,Y%:MOVEX%+D%,Y%+C%:PLOT85,X%,Y%+C%
  150     NEXT
  160   NEXT
  170   E%=E%DIV2
  180 UNTIL C%=4
  190 T%=TIME
  200 *SAVE"IMG"FFFF3000+5000
  210 END

   10 MODE2:VDU23;8202;0;0;0;
   20 *FX9
   30 *FX151,69,255
   40 *FX151,70,255
   45 *FX16,0
   50 C%=0:AR=-2.1:AI=-1.2:S=3:D=S/1280:G%=0:TIME=0
   60 REPEAT
   70   FORY%=C%TO1024STEP16
   80     U%=0:G%=0
   90     FORX%=0TO1280STEP8
  100       CR=X%*D+AR:CI=Y%*D+AI:ZR=CR:ZI=CI:I%=0
  110       REPEAT:A=ZR*ZR:B=ZI*ZI:ZI=2*ZR*ZI+CI:ZR=A-B+CR:I%=I%+1:UNTILA+B>4 OR I%>15
  140       IFG%<>I%THENGCOL0,G%:G%=I%:MOVEU%,Y%:DRAWX%,Y%:U%=X%
  150     NEXT
  160     GCOL0,I%:DRAW 1280,Y%
  170   NEXT
  180   C%=C%+4
  190 UNTIL C%=16
  200 T%=TIME
  210 *FX151,69,14
  220 *FX151,70,12
  230 P=GET
  240 PRINT;T%DIV6000;"m ";T%DIV100MOD60;"s ";T%MOD100;"0 ms"