Logo for Windows : Shape 007

From watching MSWLogo Tutorial Kit

edit "

to polygon1 :side

repeat :side [fd 100 rt 360/:side]

end

polygon1 7