100 ! Koch curve
200 PICTURE Koch(s)
210    IF s<1/1000 THEN 
220       PLOT POINTS: 0,0
230    ELSE
240       DRAW Koch(s*r) WITH SCALE(1,-1)*ROTATE(alfa)*SCALE(r) 
250       DRAW Koch(s*r) WITH SHIFT(-3,0)*SCALE(1,-1)*ROTATE(-alfa)*SCALE(r)*SHIFT(3,0)
260    END IF
270 END PICTURE
280 LET r=SQR((3/2)^2+(SQR(3)/2)^2) / 3
290 LET alfa=ANGLE(3/2,SQR(3)/2)
300 SET WINDOW 0,3,0,3
310 SET POINT STYLE 1
320 DRAW Koch(1)
330 END
 