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