Microsoft Small Basic

Program Listing:
Embed this in your website
For i = 1 To 100
  balls[i] = Shapes.AddEllipse(10, 10)
EndFor

While "True"
  For i = 1 To 100
    ball = balls[i]

    x = Math.GetRandomNumber(640)
    y = Math.GetRandomNumber(480)
    Shapes.Animate(ball, x, y, 2000)
  EndFor
  Program.Delay(1900)
EndWhile
Copyright (c) Microsoft Corporation. All rights reserved.