C----------------------------------------------------------------------
C-
C-   Created  11-OCT-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-   Updated  30-APR-1991 Changed to add events transferred by spec. trig. to
C-                              global allocated display.
C-   Updated  22-JAN-1994   Philippe Laurens - MSU L1 Trigger  
C-                          add large tile count, compact comparator states,
C-                          add large tile jet list to caltrig display
C-   Updated  24-AUG-1994   Philippe Laurens, Freddie Landry   
C-                          moved L1.5 toggle display to the left to make room
C-                          for the display of the integration time
C-   Updated   5-MAY-1995   Philippe Laurens - MSU L1 Trigger   
C-                      Add Luminosity information 
C-   
C----------------------------------------------------------------------
C
C       Parameters to describe special ways to put messages on the screen
C
      INTEGER PS_LIST, PS_NOMOVE
      PARAMETER (PS_LIST = 0, PS_NOMOVE = -1)
C
C       Parameters to describe locations within the <MORE> line
C
      INTEGER PL_MANY_C, PL_MANY_E, PL_OUTOF_C, PL_OUTOF_E
      PARAMETER (PL_MANY_C = 1, PL_MANY_E = 2, PL_OUTOF_C = 11,
     &  PL_OUTOF_E = 13)
C
C       This file describes the position of the items in each of the screens of
C       the trigger monitor program.
C
      INTEGER GA_SECOND_COL             ! Screen column of second column
      PARAMETER (GA_SECOND_COL = 44)    ! of data
C
C       Position of current time
C
      INTEGER GA_DATE_L, GA_DATE_C
      PARAMETER (GA_DATE_L = 1, GA_DATE_C = 62)
C
C       Position of L1.5 Message
C
      PARAMETER GA_L15_SWITCH_L = 2, GA_L15_SWITCH_C = 20
C
C       Position of Global Event Transfer Rate
C
      PARAMETER GA_GL_TRANS_L = 3, GA_GL_TRANS_C = 29
      PARAMETER GA_GL_TRANS_W = 10
C
C       Position of monitoring status
C
      PARAMETER GA_MONIT_STATUS_L = 3
      PARAMETER GA_MONIT_STATUS_L1_C = 53
      PARAMETER GA_MONIT_STATUS_DB_C = 75
C
C       Position of L1 Trigger Rate
C
      PARAMETER GA_L1_RATE_L = 4
      PARAMETER GA_L1_RATE_C = 30, GA_L1_RATE_W = 9
C
C       Level 0 Rate
C
      PARAMETER GA_L0_RATE_L = 4
      PARAMETER GA_L0_RATE_C = 57, GA_L0_RATE_W = 20
C
C       L15 Input/Reject
C
      PARAMETER GA_L15_INPUT_L = 5
      PARAMETER GA_L15_INPUT_C = 25, GA_L15_INPUT_W = 6
      PARAMETER GA_L15_REJECT_C = 35, GA_L15_REJECT_W = 4
C
C       Dead Beam X %
C
      PARAMETER GA_DEAD_BEAM_L = 5
      PARAMETER GA_DEAD_BEAM_C = 73, GA_DEAD_BEAM_W = 5
C
C       Position of 'Time since last initialize'
C
      INTEGER GA_TIME_INIT_L, GA_TIME_INIT_C, GA_TIME_INIT_W
      PARAMETER ( GA_TIME_INIT_L = 6, GA_TIME_INIT_C = 29,
     &  GA_TIME_INIT_W = 13)
C
C       Position of 'Events Transferred Since'
C
      INTEGER GA_EVEN_TRAN_L, GA_EVEN_TRAN_C, GA_EVEN_TRAN_W
      PARAMETER ( GA_EVEN_TRAN_L = 6, GA_EVEN_TRAN_C = 64,
     &  GA_EVEN_TRAN_W = 16 )
C
C       Beginning of allocated trigger display
C
      INTEGER GA_ALLOC_START_L
      PARAMETER (GA_ALLOC_START_L = 11)
C
C       Trigger number in allocated trigger display
C
      INTEGER GA_SPECTRIG_NUM_C, GA_SPECTRIG_NUM_E
      PARAMETER (GA_SPECTRIG_NUM_C = 1, GA_SPECTRIG_NUM_E = 2)
C
C       Trigger firing rate in allocated trigger display
C
      INTEGER GA_TRGFIRE_C, GA_TRGFIRE_E
      PARAMETER (GA_TRGFIRE_C = 5, GA_TRGFIRE_E = 10)
C
C       Andor rate in allocated trigger display
C
      INTEGER GA_ANDOR_C, GA_ANDOR_E
      PARAMETER (GA_ANDOR_C = 12, GA_ANDOR_E = 17)
C
C       Prescaling ratio in allocated trigger display
C
      INTEGER GA_PRSCL_C, GA_PRSCL_E
      PARAMETER (GA_PRSCL_C = 19, GA_PRSCL_E = 23)
C
C       L 1.5 Reject %
C
      PARAMETER GA_ST_REJ_C = 25, GA_ST_REJ_E = 29
C
C       Number of events this trigger has transferred
C
      INTEGER GA_SPTRG_EVEN_TRANSF_C, GA_SPTRG_EVEN_TRANSF_E
      PARAMETER (GA_SPTRG_EVEN_TRANSF_C = 31, 
     &  GA_SPTRG_EVEN_TRANSF_E = 36)
C
C       The global dead time percent in allocated trigger display
C
      INTEGER GA_GLOB_DEADT_C, GA_GLOB_DEADT_E
      PARAMETER (GA_GLOB_DEADT_C = 38, GA_GLOB_DEADT_E = 42)
C
C       Front end busy in allocated trigger display
C
      INTEGER GA_FEBUSY_C, GA_FEBUSY_E
      PARAMETER (GA_FEBUSY_C = 44, GA_FEBUSY_E = 48)
C
C       Level 2 busy in allocated trigger display
C
      INTEGER GA_LEV2BUSY_C, GA_LEV2BUSY_E
      PARAMETER (GA_LEV2BUSY_C = 50, GA_LEV2BUSY_E = 54)
C
C       Auto disable % in allocated trigger display
C
C       Auto Disable % removed
C      INTEGER GA_AUTODIS_C, GA_AUTODIS_E
C      PARAMETER (GA_AUTODIS_C = 50, GA_AUTODIS_E = 54)
C
C       Total andor terms in allocated trigger display
C
      INTEGER GA_TOTANDOR_C, GA_TOTANDOR_E
      PARAMETER (GA_TOTANDOR_C = 56, GA_TOTANDOR_E = 58)
C
C       Total start digitize in allocated trigger display
C
      INTEGER GA_STDIG_C, GA_STDIG_E
      PARAMETER (GA_STDIG_C = 60, GA_STDIG_E = 63)
C
C       Total watch busy in allocated trigger display
C
      INTEGER GA_WATBUSY_C, GA_WATBUSY_E
      PARAMETER (GA_WATBUSY_C = 65, GA_WATBUSY_E = 69)
C
C       Is Level 1.5
C
      PARAMETER GA_ST_L15_C = 71, GA_ST_L15_E = 74
C
C       Trigger disabled in allocated trigger display
C
      INTEGER GA_TRGDIS_C, GA_TRGDIS_E
      PARAMETER (GA_TRGDIS_C= 76, GA_TRGDIS_E= 80)
C
C----------------------------------------------------------------------
C
C   Constants for the Level 1.5 Framework display
C
      PARAMETER G15_SECOND_COL = 44
C
C       Position of current time
C
      PARAMETER G15_DATE_L = 1, G15_DATE_C = 62
C
C       Position of L1.5 Message
C
      PARAMETER G15_L15_SWITCH_L = 2, G15_L15_SWITCH_C = 20
C
C       Position of Global Event Transfer Rate
C
      PARAMETER G15_GL_TRANS_L = 3, G15_GL_TRANS_C = 29
      PARAMETER G15_GL_TRANS_W = 10
C
C       Position of monitoring status
C
      PARAMETER G15_MONIT_STATUS_L = 3
      PARAMETER G15_MONIT_STATUS_L1_C = 53
      PARAMETER G15_MONIT_STATUS_DB_C = 75
C
C       Position of L1 Trigger Rate
C
      PARAMETER G15_L1_RATE_L = 4
      PARAMETER G15_L1_RATE_C = 30, G15_L1_RATE_W = 9
C
C       Level 0 Rate
C
      PARAMETER G15_L0_RATE_L = 4
      PARAMETER G15_L0_RATE_C = 62, G15_L0_RATE_W = 15
C
C       Pure L1 Rate
C
      PARAMETER G15_PUREL1_RATE_L = 5
      PARAMETER G15_PUREL1_HZ_C  = 20, G15_PUREL1_HZ_W  = 11
      PARAMETER G15_PUREL1_PCT_C = 35, G15_PUREL1_PCT_W = 5
C
C       Potential Rate into L1.5
C
      PARAMETER G15_POTENT_RATE_L = 5
      PARAMETER G15_POTENT_RATE_C = 69, G15_POTENT_RATE_W = 8
C
      PARAMETER G15_L15_INPUT_L = 6
      PARAMETER G15_L15_INPUT_HZ_C = 18, G15_L15_INPUT_HZ_W = 13
      PARAMETER G15_L15_INPUT_PCT_C = 35, G15_L15_INPUT_PCT_W = 5
C
      PARAMETER G15_L15_SKIP_L = 6
      PARAMETER G15_L15_SKIP_HZ_C = 59, G15_L15_SKIP_HZ_W = 9
      PARAMETER G15_L15_SKIP_PCT_C = 72, G15_L15_SKIP_PCT_W = 5
C
      PARAMETER G15_L15_CONF_L = 7
      PARAMETER G15_L15_CONF_HZ_C = 19, G15_L15_CONF_HZ_W = 12
      PARAMETER G15_L15_CONF_PCT_C = 35, G15_L15_CONF_PCT_W = 5
C
      PARAMETER G15_L15_REJ_L = 7
      PARAMETER G15_L15_REJ_HZ_C = 60, G15_L15_REJ_HZ_W = 8
      PARAMETER G15_L15_REJ_PCT_C = 72, G15_L15_REJ_PCT_W = 5
C
      PARAMETER G15_DEAD_BEAMX_L = 8
      PARAMETER G15_DEAD_BEAMX_C = 31, G15_DEAD_BEAMX_W = 9
C
      PARAMETER G15_TIMEOUT_L = 8
      PARAMETER G15_TIMEOUT_C = 72, G15_TIMEOUT_W = 5
C
      PARAMETER G15_LIST_START_L = 13
C
      PARAMETER G15_ST_NUM_C = 1, G15_ST_NUM_E = 2
      PARAMETER G15_ST_L1_HZ_C = 5, G15_ST_L1_HZ_E = 10
      PARAMETER G15_ST_L15_INP_HZ_C = 12, G15_ST_L15_INP_HZ_E = 17
      PARAMETER G15_ST_L15_INP_PCT_C = 20, G15_ST_L15_INP_PCT_E = 23
      PARAMETER G15_ST_L15_SKIP_C = 25, G15_ST_L15_SKIP_E = 29
      PARAMETER G15_ST_L15_CONF_C = 31, G15_ST_L15_CONF_E = 36
      PARAMETER G15_ST_L15_REJ_C = 38, G15_ST_L15_REJ_E = 43
      PARAMETER G15_ST_DEADX_C = 45, G15_ST_DEADX_E = 50
      PARAMETER G15_ST_TIMOUT_PCT_C = 52, G15_ST_TIMOUT_PCT_E = 56
      PARAMETER G15_ST_TIMOUT_CNT_C = 59, G15_ST_TIMOUT_CNT_E = 64
      PARAMETER G15_ST_TERM_C = 66, G15_ST_TERM_E = 69
      PARAMETER G15_ST_ISL15_C = 71, G15_ST_ISL15_E = 74
      PARAMETER G15_ST_ISDSBL_C = 77, G15_ST_ISDSBL_E = 80
C
C----------------------------------------------------------------------
C
C       Constants for the MONITOR SPECIFIC TRIGGER screen
C
C       Specific trigger number
C
      INTEGER ST_NUMBER_L, ST_NUMBER_C, ST_NUMBER_W
      PARAMETER (ST_NUMBER_L = 1, ST_NUMBER_C = 20, ST_NUMBER_W = 2)
C
C       Position of the second column
C
      INTEGER ST_SECOND_COL
      PARAMETER (ST_SECOND_COL = 43)
C
C       Current time
C
      INTEGER ST_CURRENT_TIME_L, ST_CURRENT_TIME_C
      PARAMETER (ST_CURRENT_TIME_L = 1, ST_CURRENT_TIME_C = 60)
C
C       'Toggle Display' line
C
      PARAMETER ST_L15_SWITCH_L = 2, ST_L15_SWITCH_C = 20
C
C       Global Event Transfer Rate
C
      PARAMETER ST_EVENT_TRANS_L = 3
      PARAMETER ST_EVENT_TRANS_C = 28, ST_EVENT_TRANS_W = 10
C
C       Monitoring information status
C
      PARAMETER ST_MONIT_STATUS_L = 3
      PARAMETER ST_MONIT_STATUS_L1_C = 52
      PARAMETER ST_MONIT_STATUS_DB_C = 74
C
C       Trigger fired count
C
      INTEGER ST_FIRED_COUNT_L, ST_FIRED_COUNT_C, ST_FIRED_COUNT_W
      PARAMETER (ST_FIRED_COUNT_L = 4, ST_FIRED_COUNT_C = 25,
     &  ST_FIRED_COUNT_W = 16)
C
C       Trigger fired for this event
C
      INTEGER ST_FIRED_EVENT_L, ST_FIRED_EVENT_C, ST_FIRED_EVENT_W
      PARAMETER (ST_FIRED_EVENT_L = 4, ST_FIRED_EVENT_C = 76,
     &  ST_FIRED_EVENT_W = 3)
C
C       Firing rate
C
      INTEGER ST_FIRED_RATE_L, ST_FIRED_RATE_C, ST_FIRED_RATE_W 
      PARAMETER (ST_FIRED_RATE_L = 5, ST_FIRED_RATE_C = 28,
     &  ST_FIRED_RATE_W = 10)
C
C       Prescaled ratio
C
      INTEGER ST_PRSCL_L, ST_PRSCL_C, ST_PRSCL_W
      PARAMETER (ST_PRSCL_L = 5, ST_PRSCL_C = 60, ST_PRSCL_W = 19)
C
C       AndOr rate
C
      INTEGER ST_TRGAO_RATE_L, ST_TRGAO_RATE_C, ST_TRGAO_RATE_W
      PARAMETER (ST_TRGAO_RATE_L = 6, ST_TRGAO_RATE_C = 27,
     &  ST_TRGAO_RATE_W = 11)
C
C       Readout time
C 
      INTEGER ST_RO_TIME_L, ST_RO_TIME_C, ST_RO_TIME_W
      PARAMETER (ST_RO_TIME_L = 6, ST_RO_TIME_C = 56, ST_RO_TIME_W = 20)
C
C       Specific Trigger L1.5 Input
C
      PARAMETER ST_L15_INPUT_L = 7
      PARAMETER ST_L15_INPUT_C = 24, ST_L15_INPUT_W = 6
C
C       Specific Trigger L1.5 Reject
C
      PARAMETER ST_L15_REJECT_L = 7
      PARAMETER ST_L15_REJECT_C = 34, ST_L15_REJECT_W = 4
C
C       Dead Beam X
C
      PARAMETER ST_L15_DEADX_L = 7
      PARAMETER ST_L15_DEADX_C = 72, ST_L15_DEADX_W = 5
C
C
C       Specific Trigger Exposition Count and Hz
C
      INTEGER ST_EXPOS_L, ST_EXPOS_C, ST_EXPOS_W, ST_EXPOS_HZ_W
      PARAMETER (ST_EXPOS_L = 8, ST_EXPOS_C = 15, ST_EXPOS_W = 16)
      PARAMETER (ST_EXPOS_HZ_W = 6)
C
C       Specific Trigger Exposition and Level 0
C
      INTEGER ST_EXPOS_L0_L, ST_EXPOS_L0_C, ST_EXPOS_L0_W
      PARAMETER (ST_EXPOS_L0_L = 8, ST_EXPOS_L0_C = 53, 
     &  ST_EXPOS_L0_W = 16 )
C
      INTEGER ST_EXPOS_L0_HZ_L, ST_EXPOS_L0_HZ_C, ST_EXPOS_L0_HZ_W
      PARAMETER (ST_EXPOS_L0_HZ_L = 8, ST_EXPOS_L0_HZ_C = 70,
     &  ST_EXPOS_L0_HZ_W = 6)
C
C       Dead Time
C
      INTEGER ST_DEAD_TIME_L, ST_DEAD_TIME_C, ST_DEAD_TIME_W
      PARAMETER (ST_DEAD_TIME_L = 9, ST_DEAD_TIME_C = 73, 
     &  ST_DEAD_TIME_W = 5 )
C
C       First column of programming data
C
      INTEGER ST_PROGRAM_C 
      PARAMETER (ST_PROGRAM_C = 30)
C
C       Offset from ST_PROGRAM_C for each of Programming, State, and Veto
C       Percentage.
C
      INTEGER ST_PROGRAM_O, ST_STATE_O, ST_PERCENT_O
      PARAMETER (ST_PROGRAM_O = 1, ST_STATE_O = 11, ST_PERCENT_O = 19 )
C
C       Ending offest from ST_PROGRAM_C for Veto Percentage and the entire
C       line.
C
      INTEGER ST_PERCENT_E, ST_PROGRAM_E
      PARAMETER (ST_PERCENT_E = 29, ST_PROGRAM_E = 31)
C
C       Prescaling Veto
C
      INTEGER ST_PRSCLV_L 
      PARAMETER (ST_PRSCLV_L = 10)
CC
CC       Level 1.5 veto
CC
C      INTEGER ST_LEV15V_L
C      PARAMETER (ST_LEV15V_L = 11)
C
C       Level 2.0 veto
C
      INTEGER ST_LEV20V_L
      PARAMETER (ST_LEV20V_L = 11)
C
C       Global veto
C
      INTEGER ST_GLOBV_L
      PARAMETER (ST_GLOBV_L = 12)
C
C       Front end busy veto
C
      INTEGER ST_FEBV_L
      PARAMETER (ST_FEBV_L = 13)
C
C       Auxillary veto
C
C   This veto is not available, so give up the display space for something else.
C
C      INTEGER ST_AUXV_L
C      PARAMETER (ST_AUXV_L = 13)
C
C       Autodisable veto
C
      INTEGER ST_AUTODISV_L
      PARAMETER (ST_AUTODISV_L = 14)
C
C       Front end busy programming
C
      INTEGER ST_FEB_PROG_L, ST_FEB_PROG_C
      PARAMETER (ST_FEB_PROG_L = 16, ST_FEB_PROG_C = 16)
C
C       Front end busy state
C
      INTEGER ST_FEB_STAT_L, ST_FEB_STAT_C
      PARAMETER (ST_FEB_STAT_L = 17, ST_FEB_STAT_C = 16)
C
C       Start digitize programming
C
      INTEGER ST_STD_PROG_L, ST_STD_PROG_C
      PARAMETER (ST_STD_PROG_L = 18, ST_STD_PROG_C = 16)
C
C       Start digitize state
C
      INTEGER ST_STD_STAT_L, ST_STD_STAT_C
      PARAMETER (ST_STD_STAT_L = 19, ST_STD_STAT_C = 16)
C
C       Length of an AndOr term string
C
      INTEGER ST_AOTERM_E
      PARAMETER (ST_AOTERM_E = 68)
C
C       Required term number
C
      INTEGER ST_REQTERM_NUM_L, ST_REQTERM_NUM_C
      PARAMETER (ST_REQTERM_NUM_L = 21, ST_REQTERM_NUM_C = 12)
C
C       Required Polarization
C
      INTEGER ST_REQPOLAR_L, ST_REQPOLAR_C
      PARAMETER (ST_REQPOLAR_L = 22, ST_REQPOLAR_C = 12)
C
C       Current State
C
      INTEGER ST_CURSTATE_L, ST_CURSTATE_C
      PARAMETER (ST_CURSTATE_L = 23, ST_CURSTATE_C = 12)
C
C       Message saying more terms than can be displayed
C
      INTEGER ST_MANY_TERMS_L, ST_MANY_TERMS_C
      PARAMETER (ST_MANY_TERMS_L = 20, ST_MANY_TERMS_C = 45)
C
C----------------------------------------------------------------------
C
      PARAMETER S15_NUMBER_L = 1
      PARAMETER S15_NUMBER_C = 20, S15_NUMBER_W = 2
C
      PARAMETER S15_SECOND_COL = 43
C
      PARAMETER S15_CURRENT_TIME_L = 1, S15_CURRENT_TIME_C = 60
C
      PARAMETER S15_L15_SWITCH_L = 2, S15_L15_SWITCH_C = 20
C
      PARAMETER S15_EVENT_TRANS_L = 3
      PARAMETER S15_EVENT_TRANS_C = 28, S15_EVENT_TRANS_W = 10
C
      PARAMETER S15_MONIT_STATUS_L = 3
      PARAMETER S15_MONIT_STATUS_L1_C = 53
      PARAMETER S15_MONIT_STATUS_DB_C = 74
C
      PARAMETER S15_FIRED_COUNT_L = 4
      PARAMETER S15_FIRED_COUNT_C = 25, S15_FIRED_COUNT_W = 16
C
      PARAMETER S15_FIRED_EVENT_L = 4
      PARAMETER S15_FIRED_EVENT_C = 76, S15_FIRED_EVENT_W = 3
C
      PARAMETER S15_FIRED_RATE_L = 5
      PARAMETER S15_FIRED_RATE_C = 28, S15_FIRED_RATE_W = 10
C
      PARAMETER S15_USES_L15_L = 5
      PARAMETER S15_USES_L15_C = 76, S15_USES_L15_W = 3
C
      PARAMETER S15_INPUT_HZ_L = 6
      PARAMETER S15_INPUT_HZ_C = 23, S15_INPUT_HZ_W = 7
C
      PARAMETER S15_INPUT_PCT_L = 6
      PARAMETER S15_INPUT_PCT_C = 34, S15_INPUT_PCT_W = 5
C
      PARAMETER S15_SKIP_HZ_L = 6
      PARAMETER S15_SKIP_HZ_C = 58, S15_SKIP_HZ_W = 9
C
      PARAMETER S15_SKIP_PCT_L = 6
      PARAMETER S15_SKIP_PCT_C = 71, S15_SKIP_PCT_W = 5
C
      PARAMETER S15_CONFIRM_HZ_L = 7
      PARAMETER S15_CONFIRM_HZ_C = 25, S15_CONFIRM_HZ_W = 5
C
      PARAMETER S15_CONFIRM_PCT_L = 7
      PARAMETER S15_CONFIRM_PCT_C = 34, S15_CONFIRM_PCT_W = 5
C
      PARAMETER S15_REJECT_HZ_L = 7
      PARAMETER S15_REJECT_HZ_C = 60, S15_REJECT_HZ_W = 7
C
      PARAMETER S15_REJECT_PCT_L = 7
      PARAMETER S15_REJECT_PCT_C = 71, S15_REJECT_PCT_W = 5
C
      PARAMETER S15_DEADX_L = 8
      PARAMETER S15_DEADX_C = 30, S15_DEADX_W = 9
C
      PARAMETER S15_TIMEOUT_L = 8
      PARAMETER S15_TIMEOUT_C = 70, S15_TIMEOUT_W = 6
C
      PARAMETER S15_INT_FIRED_L = 10
      PARAMETER S15_INT_FIRED_C = 25, S15_INT_FIRED_W = 16
C
      PARAMETER S15_INT_EXPOS_L = 10
      PARAMETER S15_INT_EXPOS_C = 63, S15_INT_EXPOS_W = 16
C
      PARAMETER S15_INT_INPUT_L = 11
      PARAMETER S15_INT_INPUT_C = 25, S15_INT_INPUT_W = 16
C
      PARAMETER S15_INT_SKIP_L = 11
      PARAMETER S15_INT_SKIP_C = 59, S15_INT_SKIP_W = 20
C
      PARAMETER S15_INT_CONFIRM_L = 12
      PARAMETER S15_INT_CONFIRM_C = 25, S15_INT_CONFIRM_W = 16
C
      PARAMETER S15_INT_REJECT_L = 12
      PARAMETER S15_INT_REJECT_C = 61, S15_INT_REJECT_W = 18
C
      PARAMETER S15_INT_DEADTIME_L = 13
      PARAMETER S15_INT_DEADTIME_C = 22, S15_INT_DEADTIME_W = 17
C
      PARAMETER S15_INT_TIMEOUT_L = 13
      PARAMETER S15_INT_TIMEOUT_C = 70, S15_INT_TIMEOUT_W = 9
C
      PARAMETER S15_TERM_C = 16
C
      PARAMETER S15_REQUIRED_L = 16
      PARAMETER S15_DONE_L = 17
      PARAMETER S15_ANSWER_L = 18
C
C----------------------------------------------------------------------
C
C       Constants that describe positions on the Allocated Geographic Sections
C       monitoring screen
C
      INTEGER GS_SECOND_COL             ! Screen column of second column
                                        ! of data
      PARAMETER (GS_SECOND_COL = 44)
C
C       Position of current time
C
      INTEGER GS_DATE_L, GS_DATE_C
      PARAMETER (GS_DATE_L = 1, GS_DATE_C = 62)
C
C       Position of 'Global Level 1 Trigger Rate'
C
      INTEGER GS_LV1_RATE_L, GS_LV1_RATE_C, GS_LV1_RATE_W
      PARAMETER (GS_LV1_RATE_L = 3, GS_LV1_RATE_C = 30, 
     &  GS_LV1_RATE_W = 9 )
C
C       Position of monitoring status
C
      INTEGER GS_MONIT_STATUS_L, GS_MONIT_STATUS_C, GS_MONIT_STATUS_W
      PARAMETER (GS_MONIT_STATUS_L = 3, GS_MONIT_STATUS_C = 70,
     &  GS_MONIT_STATUS_W = 10)
C
C       Position of 'Level 0 Rate'
C
      INTEGER GS_LV0_RATE_L, GS_LV0_RATE_C, GS_LV0_RATE_W
      PARAMETER (GS_LV0_RATE_L = 4, GS_LV0_RATE_C = 15, 
     &  GS_LV0_RATE_W = 24)
C
C       Position of Level 1 trigger status
C
      INTEGER GS_LV1_STATUS_L, GS_LV1_STATUS_C, GS_LV1_STATUS_W
      PARAMETER (GS_LV1_STATUS_L = 4, GS_LV1_STATUS_C = 63,
     &  GS_LV1_STATUS_W = 17)
C
C       Position of 'Time since last initialize'
C
      INTEGER GS_TIME_INIT_L, GS_TIME_INIT_C, GS_TIME_INIT_W
      PARAMETER ( GS_TIME_INIT_L = 5, GS_TIME_INIT_C = 29,
     &  GS_TIME_INIT_W = 13)
C
C       Position of 'Events Transferred Since'
C
      INTEGER GS_EVEN_TRAN_L, GS_EVEN_TRAN_C, GS_EVEN_TRAN_W
      PARAMETER ( GS_EVEN_TRAN_L = 5, GS_EVEN_TRAN_C = 64,
     &  GS_EVEN_TRAN_W = 16 )
C
C       Beginning of allocated geographic section display
C
      INTEGER GS_ALLOC_START_L
      PARAMETER (GS_ALLOC_START_L = 11)
C
C       Position of section number
C
      INTEGER GS_SEC_NUM_C, GS_SEC_NUM_E
      PARAMETER (GS_SEC_NUM_C = 1, GS_SEC_NUM_E = 3)
C
C       Position of start digitize rate
C
      INTEGER GS_STD_RATE_C, GS_STD_RATE_E
      PARAMETER (GS_STD_RATE_C = 6, GS_STD_RATE_E = 14)
C
C       Position of start digitize for this event
C
      INTEGER GS_STD_EVENT_C, GS_STD_EVENT_E
      PARAMETER (GS_STD_EVENT_C = 16, GS_STD_EVENT_E = 25)
C
C       Position of Front End Busy %
C
      INTEGER GS_FEB_PERCENT_C, GS_FEB_PERCENT_E
      PARAMETER (GS_FEB_PERCENT_C = 27, GS_FEB_PERCENT_E = 31)
C
C       Position of front end busy for this event
C
      INTEGER GS_FEB_EVENT_C, GS_FEB_EVENT_E
      PARAMETER (GS_FEB_EVENT_C = 33, GS_FEB_EVENT_E = 42)
C
C       Position of num spec trig disabled by front end busy
C
      INTEGER GS_SPTRG_FEB_C, GS_SPTRG_FEB_E
      PARAMETER (GS_SPTRG_FEB_C = 44, GS_SPTRG_FEB_E = 54)
C
C       Position of num spec trig that give a start digitize signal to this
C       geographic section
C
      INTEGER GS_SPTRG_STD_C, GS_SPTRG_STD_E
      PARAMETER (GS_SPTRG_STD_C = 56, GS_SPTRG_STD_E = 66)
C
C       Position of special state
C
      INTEGER GS_SPECIAL_C, GS_SPECIAL_E
      PARAMETER (GS_SPECIAL_C = 69, GS_SPECIAL_E = 78)
C
C----------------------------------------------------------------------
C
C       Parameters describing screen locations for the global threshold
C       monitoring display
C
      PARAMETER GT_DATE_L = 1
      PARAMETER GT_DATE_C = 60
C
      PARAMETER GT_EM_ET_L = 5
      PARAMETER GT_HD_ET_L = 6
      PARAMETER GT_TOT_ET_L = 7
C
      PARAMETER GT_EM_L2_L = 8
      PARAMETER GT_HD_L2_L = 9
      PARAMETER GT_TOT_L2_L = 10
      PARAMETER GT_MIS_PT_L = 11
C
      PARAMETER GT_EM_R0_L = 15
      PARAMETER GT_EM_R1_L = 16
      PARAMETER GT_EM_R2_L = 17
      PARAMETER GT_EM_R3_L = 18
C
      PARAMETER GT_GEV_C = 8
      PARAMETER GT_GEV_W = 6
      PARAMETER GT_GEV_NUM =12
C
      PARAMETER GT_TOT_R0_L = 19
      PARAMETER GT_TOT_R1_L = 20
      PARAMETER GT_TOT_R2_L = 21
      PARAMETER GT_TOT_R3_L = 22
C
      PARAMETER GT_TC_C = 20
      PARAMETER GT_TC_W = 6
      PARAMETER GT_TC_NUM = 8
C
C-----------------------------------------------------------------------
C
C       Parameters describing locations in the Calorimeter Trigger display
C
      PARAMETER CT_DATE_L = 1, CT_DATE_C = 62
      PARAMETER CT_LV1_RATE_L = 3
      PARAMETER CT_LV1_RATE_C = 30, CT_LV1_RATE_W = 9
      PARAMETER CT_MONIT_STATUS_L = 3
      PARAMETER CT_MONIT_STATUS_C = 70, CT_MONIT_STATUS_W = 10
      PARAMETER CT_LV0_RATE_L = 4
      PARAMETER CT_LV0_RATE_C = 25, CT_LV0_RATE_W = 14
      PARAMETER CT_LV1_STATUS_L = 4
      PARAMETER CT_LV1_STATUS_C = 63, CT_LV1_STATUS_W = 17
C
      PARAMETER CT_LV0_GOOD_L = 5
      PARAMETER CT_LV0_GOOD_C = 16
      PARAMETER CT_LV0_GOOD_W = 3
C
      PARAMETER CT_LV0_BIN_L = 5
      PARAMETER CT_LV0_BIN_C = 26
      PARAMETER CT_LV0_BIN_W = 3
C
      PARAMETER CT_ET_PAGE_L = 5
      PARAMETER CT_ET_PAGE_C = 47
      PARAMETER CT_ET_PAGE_W = 4
C
      PARAMETER CT_L2_PAGE_L = 5
      PARAMETER CT_L2_PAGE_C = 64
      PARAMETER CT_L2_PAGE_W = 4
C
      PARAMETER CT_PT_PAGE_L = 5
      PARAMETER CT_PT_PAGE_C = 76
      PARAMETER CT_PT_PAGE_W = 4
C
      PARAMETER CT_E_SUMS_L1 = 6
      PARAMETER CT_E_SUMS_L2 = 7
      PARAMETER CT_E_SUMS_L3 = 8
      PARAMETER CT_E_SUMS_C1 = 28
      PARAMETER CT_E_SUMS_C2 = 49
      PARAMETER CT_E_SUMS_C3 = 71
      PARAMETER CT_E_SUMS_W  = 5
C
      PARAMETER CT_EM_TWR_CNT_L = 9
      PARAMETER CT_TOT_TWR_CNT_L = 10
      PARAMETER CT_TWR_CNT_C1 = 41
      PARAMETER CT_TWR_CNT_C2 = 53
      PARAMETER CT_TWR_CNT_C3 = 65
      PARAMETER CT_TWR_CNT_C4 = 77
      PARAMETER CT_TWR_CNT_W = 3
C
      PARAMETER CT_LG_TILE_CNT_L = 11
      PARAMETER CT_LT_CNT_C1 = 28
      PARAMETER CT_LT_CNT_CS =  7
C
      PARAMETER CT_GT_EM_ET_L = 13
      PARAMETER CT_GT_HD_ET_L = 14
      PARAMETER CT_GT_TOT_ET_L = 15
C obsolete      PARAMETER CT_GT_EM_L2_L = 15
C obsolete      PARAMETER CT_GT_HD_L2_L = 16
C obsolete      PARAMETER CT_GT_TOT_L2_L = 17
      PARAMETER CT_GT_MIS_PT_L = 16
      PARAMETER CT_RS_EM0_L = 13
      PARAMETER CT_RS_EM1_L = 14
      PARAMETER CT_RS_EM2_L = 15
      PARAMETER CT_RS_EM3_L = 16
      PARAMETER CT_RS_TOT0_L = 13
      PARAMETER CT_RS_TOT1_L = 14
      PARAMETER CT_RS_TOT2_L = 15
      PARAMETER CT_RS_TOT3_L = 16
      PARAMETER CT_GT_C1 = 15
      PARAMETER CT_GT_C2 = 44
      PARAMETER CT_GT_C3 = 73
      PARAMETER CT_GT_W  = 2
      PARAMETER CT_GT_E_E  =  8
      PARAMETER CT_GT_CNT_E = 8
C
      PARAMETER CT_EMJ_L = 17
      PARAMETER CT_TOTJ_L = 19
      PARAMETER CT_LGTL_L = 21
      PARAMETER CT_JET_COUNT_C = 30
      PARAMETER CT_JET_COUNT_W = 2
      PARAMETER CT_JET_COMPLETE_C = 48
C
C----------------------------------------------------------------------
C
C       Parameters describing locations in the PER BUNCH display
C
      PARAMETER PB_P1_L = 10
      PARAMETER PB_2ND_P1_L = 18
C
      PARAMETER PB_L1_TOT_C         = 8,  PB_L1_TOT_E         = 17
      PARAMETER PB_L0_LIVEX_TOT_C   = 8,  PB_L0_LIVEX_TOT_E   = 17
      PARAMETER PB_L1_RATE_C        = 19, PB_L1_RATE_E        = 27
      PARAMETER PB_L0_LIVEX_RATE_C  = 19, PB_L0_LIVEX_RATE_E  = 27
      PARAMETER PB_LIVEX_TOT_C      = 29, PB_LIVEX_TOT_E      = 38
      PARAMETER PB_L0S_LIVEX_TOT_C  = 29, PB_L0S_LIVEX_TOT_E  = 38
      PARAMETER PB_LIVEX_RATE_C     = 40, PB_LIVEX_RATE_E     = 48
      PARAMETER PB_L0S_LIVEX_RATE_C = 40, PB_L0S_LIVEX_RATE_E = 48
      PARAMETER PB_L0_TOT_C         = 50, PB_L0_TOT_E         = 59
      PARAMETER PB_L0S_CENT_TOT_C   = 50, PB_L0S_CENT_TOT_E   = 59
      PARAMETER PB_L0_RATE_C        = 61, PB_L0_RATE_E        = 69
      PARAMETER PB_L0S_CENT_RATE_C  = 61, PB_L0S_CENT_RATE_E  = 69
C
      PARAMETER PB_BUNCH_LUM_FAST_C = 74, PB_BUNCH_LUM_FAST_E = 78
      PARAMETER PB_BUNCH_LUM_SLOW_C = 74, PB_BUNCH_LUM_SLOW_E = 78
C
C-----------------------------------------------------------------------
C
C       Parameters describing locations in the Luminosity display
C
      PARAMETER LM_P1_L  = 11
      PARAMETER LM_TOT_L = 23
C
      PARAMETER LM_LUM_SLOWZ_RAW_C  =  8,  LM_LUM_SLOWZ_RAW_E  = 14
      PARAMETER LM_LUM_SLOWZ_DELV_C = 16,  LM_LUM_SLOWZ_DELV_E = 22
      PARAMETER LM_LUM_SLOWZ_FRAC_C = 24,  LM_LUM_SLOWZ_FRAC_E = 30
      PARAMETER LM_LUM_SLOWZ_OCCP_C = 32,  LM_LUM_SLOWZ_OCCP_E = 38
      PARAMETER LM_LUM_FASTZ_DELV_C = 40,  LM_LUM_FASTZ_DELV_E = 46
      PARAMETER LM_LUM_FASTZ_USED_C = 48,  LM_LUM_FASTZ_USED_E = 54
      PARAMETER LM_LUM_USD_VS_DLV_C = 56,  LM_LUM_USD_VS_DLV_E = 62
      PARAMETER LM_LIVE_CROSS_PCT_C = 64,  LM_LIVE_CROSS_PCT_E = 70
      PARAMETER LM_L1_TRIG_FRACT_C  = 72,  LM_L1_TRIG_FRACT_E  = 78
C
C-----------------------------------------------------------------------
C
C       Parameters describing locations in the Andor Term display
C
      PARAMETER AO_STATUS_L = 2
      PARAMETER AO_STATUS_C = 22, AO_STATUS_W = 36
      PARAMETER AO_STATUS_FW_C = 10
      PARAMETER AO_STATUS_DB_C = 32
      PARAMETER AO_TERM_START_L = 3
C
C-----------------------------------------------------------------------
C
C       Parameters describing locations in the Spy Window display
C
      PARAMETER SW_DATE_L = 1, SW_DATE_C = 62
C
      PARAMETER SW_STATUS_L = 2
      PARAMETER SW_STATUS_C = 22, SW_STATUS_W = 36
C
      PARAMETER SW_FIRST_L = 3
      PARAMETER SW_HEX_PER_LINE = 8
      PARAMETER SW_BIN_PER_LINE = 3
C
C-----------------------------------------------------------------------
C
C       Parameters describing locations in the global headers.
C
      PARAMETER GH_SECOND_COL = 44
      PARAMETER GH_DATE_L = 1, GH_DATE_C = 62
      PARAMETER GH_GL_TRANS_L = 3
      PARAMETER GH_GL_TRANS_C = 29, GH_GL_TRANS_W = 10
      PARAMETER GH_MONIT_STATUS_L = 3
      PARAMETER GH_MONIT_STATUS_DB_C = 75, GH_MONIT_STATUS_L1_C = 53
      PARAMETER GH_L1_RATE_L = 4, GH_L1_RATE_C = 30, GH_L1_RATE_W = 9
      PARAMETER GH_L0_RATE_L = 4, GH_L0_RATE_C = 53, GH_L0_RATE_W = 4
      PARAMETER GH_TOT_LUM_L = 4, GH_TOT_LUM_C = 71, GH_TOT_LUM_W = 5 
      PARAMETER GH_L15_INPUT_L = 5
      PARAMETER GH_L15_INPUT_C = 25, GH_L15_INPUT_W = 6
      PARAMETER GH_L15_REJECT_C = 35, GH_L15_REJECT_W = 4
      PARAMETER GH_DEAD_BEAM_L = 5
      PARAMETER GH_DEAD_BEAM_C = 73, GH_DEAD_BEAM_W = 5
      PARAMETER GH_TIME_INIT_L = 6, GH_TIME_INIT_C = 29
      PARAMETER GH_EVEN_TRAN_L = 6, GH_EVEN_TRAN_C = 64
C
C----------------------------------------------------------------------
C
C       Parameters for Diagnostics screen
C
C       Positions within TWB lines
C
      INTEGER TWB_COM_C, TWB_COM_E
      PARAMETER (TWB_COM_C = 58, TWB_COM_E = 79)
C
      INTEGER TWB_COUNT_C, TWB_COUNT_E
      PARAMETER (TWB_COUNT_C = 59, TWB_COUNT_E = 62)
C
      INTEGER TWB_LIMIT_C, TWB_LIMIT_E
      PARAMETER (TWB_LIMIT_C = 75, TWB_LIMIT_E = 78)
C
C-----------------------------------------------------------------------
C
C       Parameters for positions within the Foreign Scalers display
C
      PARAMETER FS_DATE_L = 1
      PARAMETER FS_TABLE_L = 11
C