100 ! Sierpinski Gasket
200 PICTURE gasket(n)
210    IF n=12 THEN 
220       PLOT POINTS: 0,0
230    ELSE
240       DRAW gasket(n+1) WITH SCALE(1/2) 
250       DRAW gasket(n+1) WITH SHIFT(-2,0)*SCALE(1/2)*SHIFT(2,0)
260       DRAW gasket(n+1) WITH SHIFT(-1,-SQR(3))*SCALE(1/2)*SHIFT(1,SQR(3))
270    END IF
280 END PICTURE
290 SET WINDOW 0,2,0,2
300 SET POINT STYLE 1
310 DRAW gasket(0)
320 END
