SUBROUTINE PAINT_GEO_SECT()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the background of the Geographic Section
C-     monitoring display.
C-
C-   Inputs  : common block variables
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  31-JAN-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      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 All Allocated Geographic Sections' )
C
      CALL PAINT_GLOBAL_HEADER
C
      CALL PUT_STRING( GS_ALLOC_START_L-4, 1,
     &  '                                          |'
     &  // 'Total SpTrg|Total SpTrg|')
C
      CALL PUT_STRING( GS_ALLOC_START_L-3, 1, 
     &  'Geo |Start Dig|Start Dgtz|F-End|F-End Busy|Disabled by'
     &  // '|Digitz this| Special' )
C
      CALL PUT_STRING( GS_ALLOC_START_L-2, 1,
     &  'Sect|     Rate|this Event|Busy%|this Event|Fr-End Busy'
     &  // '|Geo Section| State' )
C
      CALL PUT_STRING( GS_ALLOC_START_L-1, 1,
     &  '----|-------Hz|----------|-----|----------|-----------'
     &  // '|-----------|-----------' )
C
C      BUFFER ='           |         |          |          |' // 
C     &  '           |           |'
C      CALL PUT_STRING(0,0, CHAR(13) // CHAR(10))
C      DO COUNT = GS_ALLOC_START_L, LINES -1
C        CALL PUT_STRING(0,0, BUFFER(1:79) // CHAR(13) // CHAR(10))
C      END DO
C
C----------------------------------------------------------------------
  999 RETURN
      END