Microsoft Small Basic

Program Listing:
Embed this in your website
Turtle.Speed = 10
For i = 1 To 1
  Turtle.PenUp()
  Turtle.TurnRight()
  Turtle.Move(25)
Turtle.PenDown()
  EndFor
For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(25)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(50)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(75)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(100)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(125)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(150)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(175)
EndFor
 For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(200)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(225)
EndFor
For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(250)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(275)
EndFor
For i = 1 To 1
  Turtle.TurnLeft()
  Turtle.Move(0)
EndFor
   For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(25)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(50)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(75)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(100)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(125)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(150)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(175)
EndFor
 For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(200)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(225)
EndFor
For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(250)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(275)
EndFor
  For i = 1 To 1
  Turtle.TurnRight()
  Turtle.Move(0)
EndFor
     For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(25)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(50)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(75)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(100)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(125)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(150)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(175)
EndFor
 For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(200)
  EndFor
  For i = 1 To 4
    Turtle.TurnRight()
  Turtle.Move(225)
EndFor
For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(250)
  EndFor
  For i = 1 To 4
  Turtle.TurnRight()
  Turtle.Move(275)
  EndFor
  For i = 1 To 1
  Turtle.TurnRight()
  Turtle.Move(0)
EndFor
       For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(25)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(50)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(75)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(100)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(125)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(150)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(175)
EndFor
 For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(200)
  EndFor
  For i = 1 To 4
    Turtle.TurnLeft()
  Turtle.Move(225)
EndFor
For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(250)
  EndFor
  For i = 1 To 4
  Turtle.TurnLeft()
  Turtle.Move(275)
  EndFor
Copyright (c) Microsoft Corporation. All rights reserved.