SUBROUTINE DRAW_JET_LIST(LUN)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the foreground of the Jet List Display.
C-
C-   Inputs  : LUN      The unit number of the scratch file to use.
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created  10-APR-1992   Philippe Laurens, Steven Klocek
C-   Updated   2-JUL-1992   Philippe Laurens, Steven Klocek  
C-      Display Framework/Datablock status 
C-   Updated  22-JAN-1994   Philippe Laurens - MSU L1 Trigger   
C-                          add large tile jet list
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_RAW.INC'
      INCLUDE 'LV1_MPOOL_FORMATTED.INC'
C
      INTEGER LUN
C
      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,*) 'WARNING: The Jet Lists below were '
     &  // 'simulated by TRGMON. (Cf. TRGMON_DOC)'
      WRITE (LUN,*)
C
      WRITE (LUN,*) 'EM Et Jet List'
      WRITE (LUN,*)
      CALL PRTRGR_JET_LIST_PRINT(LUN, DATABLOCK(1), 
C
     &  CALTRIG_DATA.EM_JET_LIST_DBLENGTH)
      WRITE (LUN,*)
      WRITE (LUN,*) 'TOT Et Jet List'
      WRITE (LUN,*)
      CALL PRTRGR_JET_LIST_PRINT(LUN, DATABLOCK(1),
     &  CALTRIG_DATA.TOT_JET_LIST_DBLENGTH)
C
      WRITE (LUN,*)
      WRITE (LUN,*) 'Large Tile List'
      WRITE (LUN,*)
      CALL PRTRGR_JET_LIST_PRINT(LUN, DATABLOCK(1),
     &  CALTRIG_DATA.LG_TILE_LIST_DBLENGTH)
C
      CALL EOF_MON_TEMP_FILE
C
      CALL DRAW_FILE_CONTENTS('Simulated Jet List Display', LUN)
C
C----------------------------------------------------------------------
  999 RETURN
      END