Microsoft Small Basic

Program Listing: BQC849

List Program

Turtle.Speed=10
Turtle.PenUp()
latime=610
inaltime=430
Turtle.X=0
Turtle.Y=0
'Turtle.Show()
While (inaltime>0) And (latime>0)
Turtle.PenUp()
Turtle.X=Turtle.X+5
Turtle.Y=Turtle.Y+5
Turtle.PenDown()
Turtle.TurnRight()
Turtle.Move(latime)
Turtle.TurnRight()
Turtle.Move(inaltime)
Turtle.TurnRight()
Turtle.Move(latime)
Turtle.TurnRight()
Turtle.Move(inaltime)
latime=latime-10
inaltime=inaltime-10
EndWhile