Microsoft Small Basic

Program Listing: GXH926

List Program

startingPosX = 50
startingPosY = 150

finishPosX = 400
finishPosY = startingPosY

doErase = "True"

start:

Turtle.X = startingPosX
Turtle.Y = startingPosY

Turtle.PenDown()
Turtle.Speed = 5

Turtle.MoveTo(finishPosX, finishPosY)

While Turtle.X <> finishPosX
Program.Delay(100)
EndWhile

GraphicsWindow.PenColor = GraphicsWindow.BackgroundColor
Turtle.Hide()

If doErase Then
doErase = "False"
Goto start
EndIf

GraphicsWindow.ShowMessage("End Program?", "Finished")
Program.End()