SUBROUTINE PAINT_FOREIGN_SCALERS
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the background of the Foreign Scaler display.
C-
C-   Inputs  : none
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  27-OCT-1992   Philippe Laurens, Steven Klocek
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CHARACTER*200 BUFFER
      INTEGER LENGTH
      INTEGER COUNT
C
C       Reset margins and clear screen
C
      CALL CLEAR_SCREEN
C
      CALL PUT_STRING( FS_DATE_L, 1, 
     &  'Monitoring of Selected Foreign Scalers')
C
      CALL PAINT_GLOBAL_HEADER
C
      CALL PUT_STRING( FS_TABLE_L - 3, 1,
     &  'Scaler        |         |' )
      CALL PUT_STRING( FS_TABLE_L - 2, 1,
     &  'Number  Value |   Rate  |   Name' )
      CALL PUT_STRING( FS_TABLE_L - 1, 1,
     &     '---|-------hex|-------Hz|---------------' 
     &  // '------------------------------------')
C
      CALL FLUSH_SCREEN
C----------------------------------------------------------------------
  999 RETURN
      END