Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.