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


        screen.resolution.set (512,384)

        text.display ("Press any key to quit.",CENTER,350)

        event.keyboard.create (Event.Manager,All)

        event.wait ()

        procedure Event.Manager ()
          script.stop ()
        end procedure