to hua ;执行程序
 cs pu setxy -90 30 pd seth 90 setpc 12 
make jl 2000 make jn 5 ;2000可更改
repeat jn [ make jl jl/3 ] kochbz jl jn
 end 

to kochbz il inn 
make jn inn-1 
if jn=0 then fd il stop
 kochbz il jn 
lt 60 kochbz il jn rt 120 kochbz il jn lt 60 kochbz il jn rt 120 kochbz il jn 
lt 60 kochbz il jn rt 120 kochbz il jn lt 60 kochbz il jn rt 120 kochbz il jn 
lt 60 kochbz il jn rt 120 kochbz il jn lt 60 kochbz il jn rt 60 kochbz il jn 
lt 60 kochbz il jn rt 120 kochbz il jn lt 60 kochbz il jn rt 120 kochbz il jn 
lt 60 kochbz il jn rt 120 kochbz il jn lt 60 kochbz il jn lt 60 ;fd 10
end