Plain

a = Shapes.AddEllipse(100,100)
GraphicsWindow.BrushColor = "red"
b = Shapes.AddEllipse(100,100)
GraphicsWindow.BrushColor = "Green"
c = Shapes.AddEllipse(100,100)
start:
Shapes.Move(a, 500, 0)
Shapes.Move(b,0,100)
Shapes.Move (c, 250,0)
progdel()
Shapes.Move(a, 400, 0)
Shapes.Move(b,100,100)
Shapes.Move (c, 250,100)
progdel()
Shapes.Move(a, 300, 0)
Shapes.Move(b,200,100)
Shapes.Move (c, 250,200)
progdel()
Shapes.Move(a, 200, 0)
Shapes.Move(b, 300,100)
Shapes.Move (c, 250,300)
progdel()
Shapes.Move(a, 100, 0)
Shapes.Move(b, 400,100)
Shapes.Move (c, 250,400)
progdel()
Shapes.Move(a,0,0)
Shapes.Move(b, 500,100)
Shapes.Move (c, 250,500)
progdel()
Shapes.Move(a,100,0)
Shapes.Move(b, 400,100)
Shapes.Move (c, 250,400)
progdel()
Shapes.Move(a,200,0)
Shapes.Move(b, 300,100)
Shapes.Move (c, 250,300)
progdel()
Shapes.Move(a,300,0)
Shapes.Move(b, 200,100)
Shapes.Move (c, 250,200)
progdel()
Shapes.Move(a,400,0)
Shapes.Move(b, 100,100)
Shapes.Move (c, 250,100)
progdel()
Shapes.Move(a,500,0)
Shapes.Move(b, 0,100)
Shapes.Move (c, 250,0)
progdel()
Goto start
Sub progdel
  Program.Delay(1000)
EndSub