Microsoft Small Basic

Program Listing: BHV320

List Program

TextWindow.WriteLine("Câte laturi să aibă?")
laturi=TextWindow.ReadNumber()
TextWindow.WriteLine("Ce lungime pentru latură?")
lungime=TextWindow.ReadNumber()
unghi=360/laturi
GraphicsWindow.Width=500
GraphicsWindow.Height=500
Turtle.Speed=10
Turtle.X=10
Turtle.Y=250
For i=1 To laturi
Turtle.Move(lungime)
Turtle.Turn(unghi)
EndFor