Procedure: Polygon by Jeremy Smith

Description of the procedure:
This one draws a polygone witha specified number of edges

Source:

procedure main
goto polygon,edges=5,size=50
end

procedure polygon
repeat edges,line,length=size,turn=360/edges
end

procedure line
go length
rt turn
end