//    Instruction Example :     objectid button.copy (objectid)


        screen.resolution.set (512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

        button.display ("avo\button_01.btn",CENTER,CENTER,Event.Manager,PRESS_LEFT_BUTTON)

        screen.set (FRONT)
          text.display ("Press a key to exit.",CENTER,350)
          text.display ("Press the button to copy it.",CENTER,10)
        screen.end ()

        keyboard.wait (KEY_ESCAPE)

        script.stop ()

        procedure Event.Manager (@event,%status)
          %x=number.random.get (1,512)
          %y=number.random.get (1,384)
          button.display (button.copy (@event),%x,%y,Event.Manager,PRESS_LEFT_BUTTON)
        end procedure