Microsoft Small Basic

Program Listing: VTF656

List Program

GraphicsWindow.Height = 400
GraphicsWindow.Width = 400
GraphicsWindow.Title = "Turtle Graphics"

Turtle.Show()
Turtle.Speed = 10
Turtle.X = 100
Turtle.Y = 200
For i = 0 To 200 Step 5
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(i)
Turtle.Turn(150)
EndFor

Turtle.PenUp()
Turtle.Move(300)
Turtle.Turn(105)
Turtle.Move(150)
Turtle.PenDown()

For i = 0 To 200 Step 5
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(i)
Turtle.Turn(150)
EndFor