//    Instruction Example :      window.ontop.set (long)


        screen.resolution.set (512,384)

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

        text.display ("The active window is on top of all other applications.",CENTER,10)
        text.display ("Press a key to set the ontop properties FALSE.",CENTER,20)

        window.ontop.set (TRUE)

        detect_my_mode ()

        keyboard.wait ()

        window.ontop.set (FALSE)

        screen.clear ()

        text.display ("The current window is not on top anymore.",CENTER,10)
        text.display ("Press a key to exit.",CENTER,350)

        detect_my_mode ()

        keyboard.wait ()

        script.stop ()

        procedure detect_my_mode ()
          %data=window.ontop.get ()
          text.display ("The current mode is : "+STR (%data),CENTER,30)
        end procedure