Microsoft Small Basic

Program Listing: SMH753
GraphicsWindow.Width=480
GraphicsWindow.Height=480
GraphicsWindow.BrushColor="Red"
cerc=Shapes.AddEllipse(100,100)
Shapes.Move(cerc,10,190)
For i=1 To 10
Shapes.Animate(cerc,370,190,1000)
Program.Delay(1000)
Shapes.Animate(cerc,10,190,1000)
Program.Delay(1000)
EndFor