Microsoft Small Basic

Program Listing: SND126

List Program

' Show the tortoise --#1
Tortoise.Show()
' Make the tortoise move as fast as possible --#6
Tortoise.SetSpeed(10)
' Do the following 4 times --#5
For i = 1 To 4
' Change the color of the line the tortoise draws to blue --#3
Tortoise.SetPenColor(Colors.Blue)
' Move the tortoise 50 pixels --#2
Tortoise.Move(50)
' Turn the tortoise 90 degrees to the right --#4
Tortoise.Turn(90)
'Repeat --#5
EndFor