NEW
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=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 PRINTT%:REM *SAVE IMG FFFF3000+5000
210 END
RUN