Microsoft Small Basic

Program Listing: VZF378-1
GraphicsWindow.BackgroundColor= "LightYellow"
GraphicsWindow.PenColor = "Black"
angulo = 360 / 8
Turtle.Speed =10
For w=1 To 2
For z=1 To 9-w

Turtle.Turn(-90)
Turtle.Move(15)
Turtle.Turn(-45)
If w*z<>1 then
For i = 1 To 8
Turtle.Move(15)
Turtle.Turn(45)
EndFor
endif
Turtle.Turn(135)
Turtle.Move(15)
Turtle.Turn(-45)
For i = 1 To 8
Turtle.Move(15)
Turtle.Turn(45)
endfor


Turtle.Move(15)
Turtle.Turn(45)
Turtle.Move(15)
Turtle.Turn(45)
' Turtle.Move(15)
' Turtle.Turn(45)
endfor
Program.Delay (3333)
Turtle.Turn(-135)


endfor


Turtle.Turn(135)
Turtle.Move(15)
Turtle.Turn(45)
Turtle.Move(15)
Turtle.Turn(-45)
Turtle.Move(15)
Turtle.Turn(-45)
Turtle.Move(15)
Turtle.Turn(-90)
Turtle.Move(15)
Turtle.Hide()