100 PROGRAM "Koch.bas"
  110 GRAPHICS 
  120 OPTION ANGLEDEGREES
  130 SET INKWHITE
  140 PLOT 1000,20;:PLOT ANGLE180;
  150 FOR I=1TO3
  160   LET S=810:LET N=3
  170   CALL KOCH(S,N)
  180   PLOT RIGHT120;
  190 NEXT 
  200 END 
  210 DEF KOCH(S,N)
  220   IF N=0THENPLOT FORWARDS;:EXIT DEF
  230   CALL KOCH(S/3,N-1)
  240   PLOT RIGHT60;:CALL KOCH(S/3,N-1)
  250   PLOT LEFT120;:CALL KOCH(S/3,N-1)
  260   PLOT RIGHT60;:CALL KOCH(S/3,N-1)
  270 END DEF