View source for Mandelbrot set

===={{header|VIC-20 with Super Expander cartridge}}====

Runs in about 90 minutes.

<syntaxhighlight lang="basic">100 TH=20:REM ESCAPE THRESHOLD IN ITERATIONS 
110 COLOR 1,3,0,0:GRAPHIC 2:TH=20
120 FOR PY=0 TO 80
130 : SY=INT(PY*6.4)
140 : IM=1.12-PY/160*2.24
150 : FOR PX=0 TO 160
160 :  SX=INT(PX*6.4)
170 :  RE=PX/160*2.47-2
180 :  X=0:Y=0:IT=0
190 :  XT=X*X-Y*Y+RE
200 :  Y = 2*X*Y+IM
210 :  X=XT
220 :  IT=IT+1
230 :  IF(X*X+Y*Y<=4)AND(IT<TH) THEN 190
240 :  IF IT<TH THEN 270
250 :  DRAW 1,SX,SY TO SX,SY
260 :  DRAW 1,SX,1024-SY TO SX,1024-SY
270 : NEXT PX
280 NEXT PY
290 GET K$:IF K$="" THEN 290
300 GRAPHIC 4</syntaxhighlight>