Program in Logo

; Recursive procedure to line, fractalized
to DrawFractalLine :level :length
  ifelse :level < 1 [
    fd :length] [
    DrawFractalLine (sum -1 :level) (quotient :length 3.00)
    left 60
    DrawFractalLine (sum -1 :level) (quotient :length 3.00)
    right 120 
    DrawFractalLine (sum -1 :level) (quotient :length 3.00)
    left 60
    DrawFractalLine (sum -1 :level) (quotient :length 3.00)
  ]
end

; procedure to clear screen and position turtle
to SetupTurtle
  cs setpos [-160 -10] right 60 clean
end

; setup turtle then draw Koch's snowflake(5)
SetupTurtle
setpensize [2 2] 
repeat 3 [DrawFractalLine 5 330 right 120]