C OPCHAU    SOURCE    CHAT      05/01/13    02:04:11     5004           
      SUBROUTINE OPCHAU(IECHO,IWAIT,IENT)
C_______________________________________________________________________
C
C     Esclave de CHAUSS pour les options echo et attente
C_______________________________________________________________________
C     P.PEGON 7/9/93
C-----------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      PARAMETER(NCLE=2)
      CHARACTER MCLE(NCLE)*8
      DATA MCLE/'ECHO    ','ATTENTE '/
C
      IECHO=0
      IWAIT=30
C
 1    CALL LIRMOT(MCLE,NCLE,ICLE,0)
C
      IF (ICLE.EQ.0)RETURN
C
      GOTO(10,20),ICLE
C
 10   IECHO=1
      GOTO 1
C
 20   CALL LIRENT(IWAIT,1,IRET)
      IF(IRET.NE.0)GOTO 1
      IENT=0
      RETURN
C
      END