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


        screen.resolution.set (512,384)

        screen.set (BACK)
          text.display ("Click on the screen to exit.",CENTER,350)
        screen.end ()

        mouse.display ("Default.csr",CENTER,CENTER)

        event.screen.create (event.manager,0,0,512,384,PRESS_LEFT_BUTTON,%custom)

        event.wait ()

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