Microsoft Small Basic

Program Listing: FVV083

List Program

GraphicsWindow.BackgroundColor = "black"
gw=GraphicsWindow.Width
gh=GraphicsWindow.Height
LDSpeech.Speed = -5
LDSpeech.Speak("made by ailie")
For i = 1 To 10
x = Math.GetRandomNumber(gw)
y = Math.GetRandomNumber(gh)
GraphicsWindow.BrushColor="lightblue"
GraphicsWindow.FillEllipse(x,y,100,100)
Turtle.Show()
Turtle.Speed=10

Turtle.TurnLeft()
GraphicsWindow.PenColor="DeepPink"
GraphicsWindow.PenWidth=5
Turtle.Move(70)

Turtle.TurnRight()
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle.Move(150)
Turtle.Angle=90
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle.Move(55)
Turtle.Angle=180
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle.Move(130)
Turtle.Angle=140
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle.Move(100)
Turtle.MoveTo(300,300)
GraphicsWindow.BrushColor="darkblue"
GraphicsWindow.FillEllipse(x-50,y-50,100,100)
GraphicsWindow.BrushColor="lightblue"
GraphicsWindow.FillEllipse(x-30,y-15,60,30)
GraphicsWindow.BrushColor="deeppink"
GraphicsWindow.FillEllipse(x-10,y-10,20,20)
GraphicsWindow.BrushColor="pink"
GraphicsWindow.FillEllipse(x-3,y-3,6,6)
EndFor