سرگیجه ی لاکپشت در اسمال بیسیک

Turtle.Show()

Turtle.Speed = 8

For i = 100 To 10 Step -5
 
  Turtle.TurnLeft()
  Turtle.Move(i)
 
EndFor

 
Turtle.Move(80)
Turtle.TurnRight()

Turtle.Move(70)
Turtle.TurnRight()

Turtle.Move(70)
Turtle.TurnRight()


Turtle.Move(60)
Turtle.TurnRight()

Turtle.Move(60)
Turtle.TurnRight()

Turtle.Move(50)
Turtle.TurnRight()

Turtle.Move(50)
Turtle.TurnRight()


Turtle.Move(40)
Turtle.TurnRight()

Turtle.Move(40)
Turtle.TurnRight()

Turtle.Move(30)
Turtle.TurnRight()

Turtle.Move(30)
Turtle.TurnRight()



Turtle.Move(20)
Turtle.TurnRight()

Turtle.Move(20)
Turtle.TurnRight()




Turtle.Move(10)
Turtle.TurnRight()

Turtle.Move(10)
Turtle.TurnRight()



Turtle.Move(8)
Turtle.TurnRight()

Turtle.Move(8)
Turtle.TurnRight()


Turtle.Move(6)
Turtle.TurnRight()

Turtle.Move(6)
Turtle.TurnRight()

Turtle.Angle = 60
Turtle.Move(200)

Turtle.TurnLeft()
Turtle.Move(100)

For i = 100 To 10 Step -5
 
  Turtle.TurnLeft()
  Turtle.Move(i)
 
EndFor