SUBROUTINE DRAW_PRTRGR_DBLOCK(LUN)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the foreground of the PRTRGR (Datablock)
C-     Display.
C-
C-   Inputs  : LUN      The unit number of the scratch file to use.
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  17-APR-1992   Philippe Laurens, Steven Klocek
C-   Updated   2-JUL-1992   Philippe Laurens, Steven Klocek  
C-      Display Framework/Datablock status 
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_FORMATTED.INC'
C
      INTEGER LUN
      CHARACTER*40 BUFFER
C
      IF (FRAMEWORK_RUNNING .EQV. .TRUE.) THEN
        IF (INFO_FRESH .EQV. .TRUE.) THEN
          BUFFER = 'Level 1: Running  Information: Fresh'
        ELSE
          BUFFER = 'Level 1: Running  Information: Stale'
        ENDIF
      ELSE
        IF (INFO_FRESH .EQV. .TRUE.) THEN
          BUFFER = 'Level 1: Paused   Information: Fresh'
        ELSE
          BUFFER = 'Level 1: Paused   Information: Stale'
        ENDIF
      ENDIF
      WRITE (LUN,*) '                    ' // BUFFER
C
      WRITE (LUN,100) 'Warning: The following is based on '
     &  // 'information taken before it has been'
      WRITE (LUN,100) 'processed by the VME Transfer program.'
     &  // '  (Cf. TRGMON_DOC)'
      WRITE (LUN,*)
  100 FORMAT( A )
      CALL PRTRGR_L1_FW_AND_CT_DBLOCK(LUN, 1)
      CALL EOF_MON_TEMP_FILE
      CALL DRAW_FILE_CONTENTS('PRTRGR Datablock Display', LUN)
C----------------------------------------------------------------------
  999 RETURN
      END