1 REM Mandelbrot set program by "cpmisalive"
  2 REM https://www.youtube.com/watch?v=PWCBOSep-2o
 10 MODE2:VDU23;8202;0;0;0;
 20 *FX9
 30 *FX151,69,255
 40 *FX151,70,255
 50 C%=0:AR=-2.1:AI=-1.2:S=3:D=S/1280:C%=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:UNTIL A+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"