SUBROUTINE PAINT_GLOBAL_THRESHOLDS()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the background for the global thresholds
C-      monitoring screen.
C-
C-   Inputs  : none
C-   Outputs : none
C-   Controls: none
C-
C-   Created   6-FEB-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CALL CLEAR_SCREEN()
      CALL PUT_STRING(1, 1, 
     &  'Programming of Calorimeter Trigger Global Thresholds')
      CALL PUT_STRING(3,1, 
     &  ' ENERGY| #00 | #01 | #02 | #03 | #04 | #05 | #06 | #07 |' // 
     &  ' #08 | #09 | #10 | #11 |' )
      CALL PUT_STRING(4, 1, 
     &  ' (GeV) |-----|-----|-----|-----|-----|-----|-----|-----|' // 
     &  '-----|-----|-----|-----|')
      CALL PUT_STRING(GT_EM_ET_L, 1, ' EM Et')
      CALL PUT_STRING(GT_HD_ET_L, 1, ' HD Et')
      CALL PUT_STRING(GT_TOT_ET_L, 1, ' TOT Et')
      CALL PUT_STRING(GT_EM_L2_L, 1, ' EM L2')
      CALL PUT_STRING(GT_HD_L2_L, 1, ' HD L2')
      CALL PUT_STRING(GT_TOT_L2_L, 1, ' TOT L2')
      CALL PUT_STRING(GT_MIS_PT_L, 1, ' Mis Pt')
C
      CALL PUT_STRING(GT_MIS_PT_L +2, 1, 
     &  ' Tower Count       | #00 | #01 | #02 | #03 | #04 |' // 
     &  ' #05 | #06 | #07 |')
      CALL PUT_STRING(GT_MIS_PT_L +3, 1, 
     &  '                   |-----|-----|-----|-----|-----|' // 
     &  '-----|-----|-----|')
      CALL PUT_STRING(GT_EM_R0_L, 1, ' EM Et  Ref Set #0')
      CALL PUT_STRING(GT_EM_R1_L, 1, ' EM Et  Ref Set #1')
      CALL PUT_STRING(GT_EM_R2_L, 1, ' EM Et  Ref Set #2')
      CALL PUT_STRING(GT_EM_R3_L, 1, ' EM Et  Ref Set #3')
      CALL PUT_STRING(GT_TOT_R0_L, 1, ' TOT Et Ref Set #0')
      CALL PUT_STRING(GT_TOT_R1_L, 1, ' TOT Et Ref Set #1')
      CALL PUT_STRING(GT_TOT_R2_L, 1, ' TOT Et Ref Set #2')
      CALL PUT_STRING(GT_TOT_R3_L, 1, ' TOT Et Ref Set #3')
      CALL FLUSH_SCREEN()

C----------------------------------------------------------------------
  999 RETURN
      END