SUBROUTINE PAINT_LUMINOSITY
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the background of the Luminosity
C-                          monitoring screen.
C-
C-   Inputs  : none
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created   5-MAY-1995   Philippe Laurens - MSU L1 Trigger
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CHARACTER*200 BUFFER
      INTEGER COUNT
C
C       Reset margins and clear screen
C
      CALL CLEAR_SCREEN()
C
      CALL PUT_STRING( GH_DATE_L, 1,
     &  'Luminosity Monitoring' )
C
      CALL PAINT_GLOBAL_HEADER
C
      CALL PUT_STRING( LM_P1_L-3, 1,
     &      '      |        Lum(L0 Slow Z)         |'
     & //  '   Lum(Fast L0 Good)   |'
     & //  ' Live  |L1 Trig|' )
C
      CALL PUT_STRING( LM_P1_L-2, 1,
     &      'Bunch |Lum Raw|Corrctd| Fract |Occupcy|'
     & //  'L Deliv|L Used |Usd/Dlv|'
     & //  'Crssing| Fract |' )
C
      CALL PUT_STRING( LM_P1_L-1, 1,
     &      '------|----E30|----E30|------%|------%|'
     & //  '----E30|----E30|------%|'
     & //  '------%|------%|' )
C
      BUFFER = 'Px*Ay |       |       |       |       |'                   
     &      //'       |       |       |       |       |'
      DO COUNT = PER_BUNCH_MIN, PER_BUNCH_MAX
        BUFFER (1:5) = 'Px*Ay' 
        CALL INTTOSTR( COUNT,            BUFFER(2:2), 1)
        CALL INTTOSTR( MOD(COUNT+1,6)+1, BUFFER(5:5), 1)
        CALL PUT_STRING( LM_P1_L +2*(COUNT-1),    1, BUFFER(1:80))
        BUFFER (1:5) = '     ' 
        CALL PUT_STRING( LM_P1_L +2*(COUNT-1) +1, 1, BUFFER(1:80))
      END DO
C
      CALL PUT_STRING( LM_TOT_L-1, 1,
     &      '----- | ------| ------| ------| ------|'
     & //  ' ------| ------| ------|'
     & //  ' ------| ------|' )
      BUFFER (1:5) = 'Total' 
      CALL PUT_STRING( LM_TOT_L, 1, BUFFER(1:80))
C
C----------------------------------------------------------------------
      CALL FLUSH_SCREEN()
  999 RETURN
      END