FUNCTION mbox_ok(t, m, i)
    DEFINE t,m,i STRING
    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
      COMMAND "Ok"  EXIT MENU
    END MENU
END FUNCTION

FUNCTION mbox_yn(t, m, i)
    DEFINE t,m,i STRING
    DEFINE r INTEGER
    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
      COMMAND "Yes"  LET r = TRUE EXIT MENU
      COMMAND "No"   LET r = FALSE EXIT MENU
    END MENU
    RETURN r
END FUNCTION

FUNCTION mbox_ync(t, m, i)
    DEFINE t,m,i STRING
    DEFINE r INTEGER
    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
      COMMAND "Yes"      LET r = 1 EXIT MENU
      COMMAND "No"       LET r = 2 EXIT MENU
      COMMAND "Cancel"   LET r = 3 EXIT MENU
    END MENU
    RETURN r
END FUNCTION