Procedure: Star by Jeremy Smith

Description of the procedure:
I've improved my proc to make it look better. It now draws a star

Source:

procedure main
goto star,edges=11,size=50
end

procedure star
repeat edges,line,length=size,turn=720/edges
end

procedure line
go length
rt turn
end