Microsoft Small Basic

Program Listing: HNV340

List Program

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