//    Instruction Example :      button.transparency.set (objectid,long)


        screen.resolution.set (512,384)

        pattern.display ("avo\bubble.gif")

        @button = button.load ("avo\button_01.btn")

        button.transparency.set (@button,OFF)

        button.display (@button,CENTER,CENTER,Event.Manager,PRESS_LEFT_BUTTON)

        screen.set (FRONT)
          if (button.transparency.get (@button))
            text.display ("The transparency of the button is : ON ",CENTER,10)
          else ()
            text.display ("The transparency of the button is : OFF",CENTER,10)
          endif ()
          text.display ("Press a key to exit.",CENTER,350)
        screen.end ()

        keyboard.wait ()

        script.stop ()

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