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