//    Instruction Example :     long menulist.position.x.get (objectid)


        #define X 50
        #define Y 50
        #define WIDTH  100
        #define HEIGHT 40

        screen.resolution.set (512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
          box.color.select (64,64,64)
          box.display (X-3,Y-3,WIDTH+6,HEIGHT+6)
          box.color.select (COLOR_WHITE)
          box.display (X-3,Y-3,WIDTH+5,HEIGHT+5)
          box.color.select (COLOR_GRAY)
          box.fill.select ()
          box.display (X-2,Y-2,WIDTH+4,HEIGHT+4)
        screen.end ()

        @list=menulist.create (WIDTH,HEIGHT,menu.manager)
              menulist.item.add (@list,"Open")
              menulist.item.add (@list,"Load")
              menulist.item.add (@list,"Save")
              menulist.item.add (@list,"Save as...")
              menulist.item.add (@list,"Print")
              menulist.item.add (@list,"Quit")

        menulist.display (@list,X,Y)

        %data=menulist.position.x.get (@list)
        text.display ("The X position of the menulist is : " +STR (%data),CENTER,10)
        text.display ("Press RETURN or click to exit.",CENTER,350)

        event.wait ()

        procedure menu.manager (@event,%status,%index)
          script.stop ()
        end procedure