Microsoft Small Basic

Program Listing: LZX776

List Program

Controls.ButtonClicked = OnButtonClicked
Turtle.Speed = 9
GraphicsWindow.Height=600
GraphicsWindow.Width =600
Weiter = 0
While Weiter = 0
input()
Draw()
Controls.HideControl(BS)
EndWhile

Sub OnButtonClicked
CButton = Controls.LastClickedButton
If CButton = BC Then
Weiter = 1
EndIf
If CButton = BS Then
Weiter = 0
EndIf
If CButton = BE Then
GraphicsWindow.Clear()
Program.End()
EndIf
EndSub

Sub Input
GraphicsWindow.DrawText(1,1,"Number:")
Number = Controls.AddTextBox(50, 1)
BC = Controls.AddButton(" CONTINUE ", 200,550)
BE = Controls.AddButton(" E N D ", 400,550)
Controls.ShowControl(BC)
Controls.ShowControl(BE)
Weiter = 0
While Weiter = 0
Sides = Controls.GetTextBoxText(Number)
EndWhile
GraphicsWindow.Clear()
Controls.ShowControl(BC)
BS = Controls.AddButton(" S T O P ", 1,1)
EndSub

Sub Draw
Turtle.Angle = 0
Turtle.PenUp()
Turtle.MoveTo(300,300)
Turtle.PenDown()
Turtle.Show()
length = 5 * sides
angle = 360 / sides * Math.Pi
While Weiter = 1
For j = 1 To sides
Turtle.Move(length / sides)
Turtle.PenUp()
Turtle.Turn(angle / Sides / 2)
Turtle.PenDown()
EndFor
Turtle.Turn(angle)
EndWhile
Turtle.Hide()
EndSub