XProfan

XProfan9:

proc _trackmenu

    declare gmp#,dx&,dy&
    dim gmp#,8
    external("user32","ClientToScreen",%hwnd,gmp#)
    dx&=long(gmp#,0)
    dy&=long(gmp#,4)
    external("user32","GetCursorPos",gmp#)
    trackmenu (long(gmp#,0)-dx&),(long(gmp#,4)-dy&)
    dispose gmp#

endproc