Microsoft Small Basic

Program Listing: VRV496

List Program

rows = 8
columns = 8
size = 40

For r = 1 To rows
For c = 1 To columns
GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
boxes[r][c] = Shapes.AddEllipse(size, size)
Shapes.Move(boxes[r][c], c * size, r * size)
EndFor
EndFor

For r = 1 To rows
For c = 1 To columns
Shapes.Animate(boxes[r][c], 0, 0, 400)
Program.Delay(80)
EndFor
EndFor

Program.Delay(500)

For r = 1 To rows
For c = 1 To columns
Shapes.Animate(boxes[r][c],Math.GetRandomNumber(600), Math.GetRandomNumber(400), 500)
Program.Delay(50)
EndFor
EndFor

Program.Delay(500)

For r = 1 To rows
For c = 1 To columns
Shapes.Animate(boxes[r][c],c * size, r * size, 600)
Program.Delay(90)
EndFor
EndFor