Esope source files

   1 : C OPCHAU    SOURCE    CHAT      05/01/13    02:04:11     5004           
   2 :       SUBROUTINE OPCHAU(IECHO,IWAIT,IENT)
   3 : C_______________________________________________________________________
   4 : C
   5 : C     Esclave de CHAUSS pour les options echo et attente
   6 : C_______________________________________________________________________
   7 : C     P.PEGON 7/9/93
   8 : C-----------------------------------------------------------------------
   9 : C
  10 :       IMPLICIT INTEGER(I-N)
  11 :       PARAMETER(NCLE=2)
  12 :       CHARACTER MCLE(NCLE)*8
  13 :       DATA MCLE/'ECHO    ','ATTENTE '/
  14 : C
  15 :       IECHO=0
  16 :       IWAIT=30
  17 : C
  17 :  1    CALL LIRMOT(MCLE,NCLE,ICLE,0)
  18 : C
  19 :       IF (ICLE.EQ.0)RETURN
  20 : C
  21 :       GOTO(10,20),ICLE
  22 : C
  23 :  10   IECHO=1
  24 :       GOTO 1
  25 : C
  25 :  20   CALL LIRENT(IWAIT,1,IRET)
  26 :       IF(IRET.NE.0)GOTO 1
  27 :       IENT=0
  28 :       RETURN
  29 : C
  30 :       END
  31 :