Microsoft Small Basic

Program Listing: BHP696

List Program

Turtle.Show()
Graphicswindow.keydown = TurtleControl

Sub TurtleControl
If (GraphicsWindow.LastKey = "Left") Then
Turtle.TurnLeft()
EndIf
If (GraphicsWindow.LastKey = "Right") Then
Turtle.TurnRight()
EndIf
If (GraphicsWindow.LastKey = "Up") Then
Turtle.Move(10)
EndIf
If (GraphicsWindow.LastKey = "Down") Then
Turtle.Move(-10)
EndIf
EndSub