SUBROUTINE DRAW_ADC
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Write the ADC Counts to a file, and then view them
C-   with EVE.
C-
C-   Inputs  : common block input
C-   Outputs : file and screen output
C-   Controls: none
C-
C-   Created  14-APR-1992   Philippe Laurens, Steven Klocek
C-   Updated  19-MAY-1992   Philippe Laurens, Steven Klocek  
C-                      Add warning message. 
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      PARAMETER FNAME = 'ADC_DUMP_FILE.DAT'
      PARAMETER LUN = 57
      CHARACTER*79 BUFFER
C
      OPEN  (          UNIT =  LUN,
     &                 FILE = FNAME,
     &               STATUS = 'NEW' )
C
      BUFFER = ' '
      CALL DATE(BUFFER(62:70))
      CALL TIME(BUFFER(72:79))
C
      WRITE (LUN, *) BUFFER
C
      WRITE (LUN, *)
      WRITE (LUN, *) 'WARNING: The counts below have not been '
     &  // 'processed by the VME Transfer'
      WRITE (LUN, *) 'program, and thus may not agree with what '
     &  // 'is seen by the Data Acquisition.'
      WRITE (LUN,*)  '(Cf. TRGMON_DOC)'
      WRITE (LUN,*)
C
      CALL PRTRGR_L1_FW_AND_CT_ADC(LUN, 1)
      CLOSE (UNIT=LUN, STATUS = 'KEEP')
C
      CALL EVEFIL ( FNAME )
C       EVEFIL turns broadcast trapping on.
      CALL BROADC(.FALSE.)
C----------------------------------------------------------------------
  999 RETURN
      END