
// Press the space-bar on the keyboard if you want to stop
Image IMG1
IMG1.GetFrontImage()
While(IMG1.ImageIsValid() && !SpaceDown())
{
IMG1.SetName(IMG1.GetName()+"X")
IMG1.ShowImage()
IMG1 := FindNextImage(IMG1)
}