GraphicsWindow.Width=800
GraphicsWindow.Height=200
GraphicsWindow.CanResize="false"
GraphicsWindow.Hide()
For i=0 To 10
  l = ImageList.LoadImage(Program.Directory + "\"+i+".png")
  lo[i] = Shapes.AddImage(l)
  Shapes.HideShape(lo[i])
EndFor
GraphicsWindow.Show()
x=0
v=5
While ("true")
  x=x+1
  r=Math.Remainder(x+1,11)
  t=Math.Remainder(x,11)
  Shapes.Move(lo[r],x*v-120,100)
  Shapes.ShowShape(lo[r])
  Shapes.HideShape(lo[t])
  Program.Delay(60)
  If x*v-120>800 Then 
    x=0
  EndIf
EndWhile