compile insert WINUS.CONSTANTS
*  Winus constants
*
*  Change History
*
*  01/16/87  JAW  Changed to new edit keys definition
*
*
EQU ULINE       TO CHAR(186)
EQU FORWARD     TO 'F' : @FM
EQU ROUND       TO 0.9999
EQU DFLT.NCOLS  TO 7
*-->11/27/90 rkp commented this guy out. isn't used anywhere
*EQU NOHELP.EXIT TO 'No help specified ... press <Esc> to exit'
*-->11/27/90
*
*  MENU.NAME field constants
*
EQU MTITLE      TO 1                ;* Menu title in field 1
EQU MTYPE       TO 2                ;* (No longer used? - 10/23/91 SLJ)
EQU MACCOUNTS   TO 2                ;* Accounts with access to this menu.
EQU MDIM        TO 3                ;* Number of columns in AREV-style menus.
EQU MSEL        TO 4                ;* Menu selection. this value is diplayed to the user.
EQU MDESC       TO 5                ;* Menu description
                                     * Shows at bottom of menu or status line
                                     *   longer descriptions are stored as subvalues and are
                                     *   shown as default detail help
EQU MCOM        TO 6                ;* Menu command. this command is processed when it is selected from menu
EQU MCODE       TO 7                ;* Menu code. this is a code determines how to process MCOM
EQU MSELRESTRICT TO 8               ;* Restricion level of each item
EQU MCONCEPT    TO 9                ;* Concept help (CODE,CMD or id)
EQU MCAPS       TO 10               ;* Menu capital letter selections. bypasses movement keys
EQU MANCHOR     TO 11               ;* Menu anchor. if a menu is anchored, the command selection will
                                     *   be processed without popping out of menu.
EQU MATR        TO 12               ;* Menu video attributes.
EQU MUPSWD      TO 13               ;* Menu password(s).
EQU MULEVEL     TO 14               ;* Menu restriction level.
EQU MSELPSWD    TO 15               ;* Menu passwords for individual selections.
                                     * Multiple passwords stored as subvalues
EQU MTUTOR      TO 16               ;* Default detail help (CODE,CMD or id)
EQU MHELP       TO 17               ;* Help for each item (CODE,CMD or id)
EQU MPUSHSES    TO 18               ;* Flag if true to push.session
EQU MOPTCODE    TO 19               ;* Code and command for [F2]
EQU MOPTCMD     TO 20
equ standalone  to 21               ;* standalone flag
EQU MLEVEL      TO 2
*
*  MENU selection cases
*
EQU SAVESEL TO @FM : @MOVE.KEYS<ENTER$> : @FM : @INT.CONST<SAVE$> : @FM  ;* Save current menu selection
EQU UPSEL   TO @FM : @MOVE.KEYS<LEFT$> : @FM : @MOVE.KEYS<UP$> : @FM : @EDIT.KEYS<BACK$> : @FM  ;* Move left, up, or back one selection
EQU DOWNSEL TO @FM : @MOVE.KEYS<RIGHT$> : @FM :@MOVE.KEYS<DOWN$> : @FM : " " : @FM  ;* Move right, down, or over one selection
*
*  Used for swapping @FM in and out of MENU.DATA
*
EQU SPOTS       TO CHAR(250)
EQU MODULE$     TO 'MENU'
* Source Date: 15:54:19  04 MAY 1994  Build ID: AREV_HR*3.1.23  Level: 3.13