//    Instruction Example :     objectid event.create (label,long,long)


        screen.resolution.set (512,384)

        screen.set (BACK)
          picture.display ("avo\fruit.jpg",CENTER,CENTER)
          event.create (Event.Manager,PRESS_LEFT_BUTTON,%custom)
        screen.end ()

        text.display ("Click on the picture to exit.",CENTER,350)

        event.wait ()

        procedure Event.Manager (@event,%status,%custom)
          script.stop ()
        end procedure