100 TGR 
  110 PENUP 
  120 PENCOLOUR = White
  130 MOVETO (-250, -50)
  140 TANGLE = 90
  150 PENDOWN 
  160 PROC koch(200, 6)
  170 END 
  180 DEF PROC koch(x, t)
  190 IF t > 0 THEN 
  200   t = t - 1
  210   x = x / 3
  220   PROC koch(x, t)
  230   LEFT (60)
  240   PROC koch(x, t)
  250   RIGHT (120)
  260   PROC koch(x, t)
  270   LEFT (60)
  280   PROC koch(x, t)
  290 ELSE 
  300   MOVE (3 * x)
  310   WAIT (0)
  320 ENDIF 
  330 ENDPROC