Microsoft Small Basic

Program Listing: TLQ846

Turtle.Speed = 10
tutrix = Turtle.X
tutriy = Turtle.Y
For x = 0 To 9
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.X = tutrix+(x*100)-300
Turtle.Y = tutriy - 100
Turtle.Angle=0
GraphicsWindow.FontSize = 20
GraphicsWindow.DrawText(Turtle.x,Turtle.y,x)
For i = 1 To 300 Step (x+1)
Turtle.Move(10)
Turtle.Turn((x+1)*i)
EndFor
EndFor


code = "1=3;2=5;3=6;4=8;5=2;6=2;7=5;8=0"
For x = 1 To Array.GetItemCount(code)
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.X = tutrix+(x*100)-300
Turtle.Y = tutriy + 100
Turtle.Angle=0
GraphicsWindow.FontSize = 20
'GraphicsWindow.DrawText(Turtle.x,Turtle.y,code[x])
For i = 1 To 300 Step (code[x]+1)
Turtle.Move(10)
Turtle.Turn((code[x]+1)*i)
EndFor
EndFor