//    Instruction Example :      menulist.refresh.set (objectid,long)


        #define X 50
        #define Y 50
        #define WIDTH  100
        #define HEIGHT 40
        #define X2 50+WIDTH+6
        #define Y2 50

        screen.resolution.set (512,384)

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

        menulist.color.select (COLOR_SILVER)
        menulist.backcolor.select (128,128,128)

        event.keyboard.create (Event.Manager,All)

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

        @list2= menulist.create (WIDTH,HEIGHT,menu.manager)
                menulist.item.add (@list2,"Files")
                menulist.item.add (@list2,"Pictures")
                menulist.item.add (@list2,"Object")

        menulist.refresh.set (@list1,ON)
        menulist.display (@list1,X,Y)

        text.display ("Select an item with the keyboard arrows or the mouse. Then press RETURN",CENTER,10)
        text.display ("Press ESCAPE to exit.",CENTER,350)

        event.wait ()

        script.stop ()

        procedure  Event.Manager ()
          if (keyboard.get ()==KEY_ESCAPE)
            script.stop ()
          endif()
        end procedure

        procedure menu.manager (@event,%status,%item)
          switch (@event)

          case (==@list1)
            switch (%status)
            case (==KEY_RETURN,PRESS_LEFT_BUTTON)
                menulist.refresh.set (@list1,OFF)
                menulist.refresh.set (@list2,ON)
                menulist.display (@list2,X2,Y2)
                menulist.hide (@list2,FALSE)
            endswitch ()

          case (==@list2)
            switch (%status)
            case (==KEY_RETURN,PRESS_LEFT_BUTTON)
                menulist.refresh.set (@list2,OFF)
                menulist.refresh.set (@list1,ON)
                menulist.hide (@list2,TRUE)
            endswitch ()

          endswitch ()
        end procedure