SUBROUTINE PAINT_CALTRIG()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Paints the background of the Calorimeter Trigger
C-      monitoring display.
C-
C-   Inputs  : none
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  23-APR-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-   Updated  30-APR-1992   Philippe Laurens, Steven Klocek  
C-              Add new items. 
C-   Updated  22-JAN-1994   Philippe Laurens - MSU L1 Trigger  
C-                          add large tile count, compact comparator states,
C-                          add large tile jet list
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CHARACTER*200 BUFFER
      INTEGER LENGTH
      CHARACTER*1 ESC
      INTEGER COUNT
C
      ESC = CHAR(27)
C
C       Reset margins and clear screen
C
      CALL CLEAR_SCREEN()
C
      CALL PUT_STRING( 1, 1,
     &  'Global Monitoring of Calorimeter Trigger' )
C
      CALL PUT_STRING( 3, 1, 
     &  ' Global Level 1 Trigger Rate:          Hz' // 
     &  '  Monitoring Information is:')
C
      CALL PUT_STRING( 4, 1,
     &  ' Fast Level 0 Good Rate:                 ' // 
     &  '  Level 1 Trigger is:')
C
      CALL PUT_STRING( CT_LV0_GOOD_L, 1, 
     &  ' Fast L0 Good:      Bin:      Et Lookup Page:      ' 
     &  // '2nd Lookup:      Px/Py:')
C
      CALL PUT_STRING( CT_E_SUMS_L1, 1, 
     &  ' Global Energy Sums EM Et:       GeV     HD Et:       ' 
     &  // 'GeV     TOT Et:       GeV')
C
      CALL PUT_STRING( CT_E_SUMS_L2, 1, 
     &  '                    EM L2:       GeV     HD L2:       ' 
     &  // 'GeV     TOT L2:       GeV')
C
      CALL PUT_STRING( CT_E_SUMS_L3, 1, 
     &  '                    Px   :       GeV     Py   :       '
     &  // 'GeV     Mis Pt:       GeV')
C
      CALL PUT_STRING( CT_EM_TWR_CNT_L, 1,
     &  ' Total EM Trig Towers above Ref Set #0:         #1:'
     &  // '         #2:         #3:')
C
      CALL PUT_STRING( CT_TOT_TWR_CNT_L, 1,
     &  ' Total TOT Trg Towers above Ref Set #0:         #1:'
     &  // '         #2:         #3:')
C
      CALL PUT_STRING( CT_LG_TILE_CNT_L, 1,
     &  ' Lrg Tiles above Ref Set #0     #1     #2     #3    '
     &  //                      ' #4     #5     #6     #7   ')
C
      CALL PUT_STRING( CT_GT_EM_ET_L-1, 1, 
     &     ' Glob Thrsh#: 0.1.2.3        ' 
     &  // ' Glob Thrsh#: 0.1.2.3        '
     &  // ' Glob Thrsh#: 0.1.2.3')
C
      CALL PUT_STRING( CT_GT_EM_ET_L, 1,
     &       '      EM  Et:              '
     &  // ' EM  Ref Set#0:              '
     &  // ' TOT Ref Set#0:       ')
C
      CALL PUT_STRING( CT_GT_HD_ET_L, 1,
     &       '      HD  Et:              '
     &  // ' EM  Ref Set#1:              '
     &  // ' TOT Ref Set#1:       ')
C
      CALL PUT_STRING( CT_GT_TOT_ET_L, 1,
     &      '      TOT Et:              '
     & // ' EM  Ref Set#2:              '
     & // ' TOT Ref Set#2:       ')
C
      CALL PUT_STRING( CT_GT_MIS_PT_L, 1,
     &      '      Mis Pt:              '
     & // ' EM  Ref Set#3:              '
     & // ' TOT Ref Set#3:       ')
C
      CALL PUT_STRING( CT_EMJ_L, 1, 
     &  ' Total Entries  EM Jet List:         Complete:')
C
      CALL PUT_STRING( CT_TOTJ_L, 1, 
     &  ' Total Entries TOT Jet List:         Complete:')
C
      CALL PUT_STRING( CT_LGTL_L, 1, 
     &  ' Total Entries Lg Tile List:         Complete:')
C
      CALL FLUSH_SCREEN()
C----------------------------------------------------------------------
  999 RETURN
      END