//    Instruction Example :      window.contextmenu.item.free ()


        screen.resolution.set (512,384)

        text.display ("Press the right button of the mouse to see the context menu.",CENTER,10)
        text.display ("Press a key to reset the context menu.",CENTER,20)

        window.contextmenu.item.add (play_sound,"Play my sound.",1)

        keyboard.wait ()

        window.contextmenu.item.free ()

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

        keyboard.wait ()

        script.stop ( )

        procedure play_sound ()
          sound.play ("error.wav")
        end procedure