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


        screen.resolution.set (512,384)

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

        @button=button.load ("avo\button_03.btn")
        button.display (@button,CENTER,CENTER,Event.Manager,PRESS_LEFT_BUTTON)
        button.speed.set (@button,0)

        text.display ("Click on the button to change the speed.",CENTER,20)

        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()

        procedure Event.Manager (@event,%status)
          %i+=10
          button.speed.set (@button,%i)
          text.display ("Speed = "+str(button.speed.get (@button)),CENTER,10)
        end procedure