Compile Insert STATUS.CONSTANTS
* @STATLIST "record" offsets
*
EQU STATLIST.KEY$      TO 1
EQU STATLIST.UNITDESC$ TO 2
EQU STATLIST.UNITFMT$  TO 3
EQU STATLIST.PRINTSTR$ TO 4
*
* @STATLIST record 1 offsets
EQU STAT_NAME$  TO 1 ;* Field one is an @VM list of status line names.  If it's on the list its in memory.
EQU STAT_POS$   TO 2 ;* Field two contains the pointer to the slot for the names.
*
* STATPOS
*
EQU SX$           TO 1
EQU SY$           TO 2
*
* STATPOS & STATREC       Modified by Module or elsewhere
*
EQU STAT.MODULE$  TO 1  ;* Module
EQU STAT.MODE$    TO 2  ;* Module
EQU STAT.MODAL$   TO 3  ;* Module
EQU STAT.FUNKEYS$ TO 4  ;* Function keys for easier help levels
EQU STAT.ED$      TO 4  ;* Module or Scribe
EQU STAT.FILT$    TO 5  ;* System (Readnext & clearselect process)
EQU STAT.ROW$     TO 6  ;* Module or Scribe
EQU STAT.MAC$     TO 7  ;* Input.char
EQU STAT.ID$      TO 8  ;* System
EQU STAT.BACKG$   TO 9  ;* Background process in progress
EQU STAT.LEV$     TO 10 ;* Module
EQU STAT.POS$     TO 11 ;* used only to determine what module you are in when
*                        * popping back
*
*  @STATATR
*
EQU STAT.COLOR$   TO 1
*EQU STAT.BOT$     TO 2 ;* This is no longer used.
EQU STAT.FKEY$    TO 2
EQU STAT.FRESH$   TO 3
EQU STAT.XY$      TO 4
EQU STAT.LINES$   TO 5
EQU STAT.DEF$     TO 6
*
EQU MULTI.MODAL$  TO 1
EQU SINGLE$       TO 2
EQU MULTI$        TO 3
EQU PUSH$         TO 4
EQU POP$          TO 5
EQU SINGLE.MODAL$ TO 6
EQU METER_MODAL$  TO 7
*
*
EQU HELP.OFF$     TO 0

DECLARE SUBROUTINE STATUP

* Source Date: 10:44:20  17 JUN 1994  Build ID: AREV*3.1.200  Level: 3.13