10 SET WINDOW -2,4,-3,3
20 ASK bitmap SIZE w,h
30 FOR k=7 TO 100
40    SET COLOR MIX(k) 1,k/100,k/100
50 NEXT k
60 FOR i=-2 TO 4 STEP 6/w
70    FOR j=-3 TO 3 STEP 6/h
80       LET x=0.5
90       LET y=0
100       WHEN EXCEPTION IN
110          FOR k=1 TO 100
120             LET a=x-x^2+y^2
130             LET b=y-2*x*y
140             LET x=a*i-b*j
150             LET y=a*j+b*i
160          NEXT k
170          SET LINE COLOR 1
180       USE
190          SET LINE COLOR k
200       END WHEN
210       PLOT LINES:i,j
220    NEXT j
230 NEXT i
240 END