SUBROUTINE DRAW_ANDOR
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the Andor Term state display.
C-
C-   Inputs  : Common Block input
C-   Outputs : Screen output
C-   Controls: none
C-
C-   Created  26-MAR-1992   Philippe Laurens, Steven Klocek
C-   Updated   2-JUL-1992   Philippe Laurens, Steven Klocek  
C-      Display Framework/Datablock status 
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_DERIVED.INC'
      INCLUDE 'LV1_MPOOL_FORMATTED.INC'
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
      INCLUDE 'LV1_GLOB_THRSH_AO.INC'
C
      INTEGER COUNT, ISTAT
      CHARACTER*45 BUFFER
C
      CALL RESET_LIST
C
      CALL PUT_STRING(1,1, 'Andor Term States')
      CALL PUT_STRING(GH_DATE_L, GH_DATE_C, CURRENT_TIME)
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
      CALL PUT_STRING(AO_STATUS_L, AO_STATUS_C, 
     &                BUFFER(1:AO_STATUS_W))
C
  100 FORMAT ( ' ', A32, ' #', I3, ' ', A)
      DO COUNT = ANDOR_NUM_MIN, ANDOR_NUM_MAX
        IF (ANDOR_TERM_NAME(COUNT) .NE. ' ') THEN
          IF (ANDOR_STATE(COUNT) .EQV. .TRUE.) THEN
            WRITE (BUFFER, 100, IOSTAT=ISTAT) 
     &        ANDOR_TERM_NAME(COUNT), COUNT, 'TRUE'
          ELSE
            WRITE (BUFFER, 100, IOSTAT=ISTAT)
     &        ANDOR_TERM_NAME(COUNT), COUNT, 'FALSE'
          ENDIF
          CALL PUT_STRING(PS_LIST, 1, BUFFER)
        ENDIF
C
      END DO
C
      CALL PUT_LIST(AO_TERM_START_L, 1)
      CALL MOVE_CURSOR_SAFE
      CALL FLUSH_SCREEN
C----------------------------------------------------------------------
  999 RETURN
      END