procedure topwin:
    def input  parameter usrhwnd as integer.
    def input  parameter mode    as logical.
    def output parameter rc      as integer.

    def var topmost-on  as integer initial -1.
    def var topmost-off as integer initial -2.
    def var topmost     as integer.
    def var flags       as integer initial 3.
    def var parent      as integer.

    run GetParent (input usrhwnd, output parent).
    
    if mode then
        topmost = topmost-on.
    else
        topmost = topmost-off.
    
    run SetWindowPos (input  parent,
                      input  topmost,
                      input  0,
                      input  0,
                      input  0,
                      input  0,
                      input  flags,
                      output rc).
end procedure.


procedure GetParent external "user.exe":
    def input  parameter hwnd1           as short.
    def return parameter hwnd2           as short.
end.

procedure SetWindowPos external "user.exe":
    def input  parameter hwnd            as short.
    def input  parameter hwndinsertafter as short.
    def input  parameter x               as short.
    def input  parameter y               as short.
    def input  parameter cx              as short.
    def input  parameter cy              as short.
    def input  parameter wflags          as short.
    def return parameter rc              as short.
end.