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


        screen.resolution.set (512,384)

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

        @grad = gradient.create (RIGHT,4,80,20,0,200,180,20,320,240)
        gradient.transparency.level.set (@grad,50)
        gradient.display (@grad,CENTER,CENTER)

        %data=gradient.transparency.level.get (@grad)

        screen.set (FRONT)
          text.display ("transparency level = " + STR (%data),CENTER,10)
          text.display ("Press a key to exit.",CENTER,350)
        screen.end ()

        keyboard.wait ()

        script.stop ()