Microsoft Small Basic

Program Listing:

Embed this in your website

<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'>
    <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/>
    <param name='onError' value='onSilverlightError' />
    <param name='background' value='white' />
    <param name='minRuntimeVersion' value='3.0.40624.0' />
    <param name='autoUpgrade' value='true' />
    <param name='initParams' value='programId=SMH753' />
</object>

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