Télécharger opchau.eso

Retour à la liste

Numérotation des lignes :

opchau
  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
  18. 1 CALL LIRMOT(MCLE,NCLE,ICLE,0)
  19. C
  20. IF (ICLE.EQ.0)RETURN
  21. C
  22. GOTO(10,20),ICLE
  23. C
  24. 10 IECHO=1
  25. GOTO 1
  26. C
  27. 20 CALL LIRENT(IWAIT,1,IRET)
  28. IF(IRET.NE.0)GOTO 1
  29. IENT=0
  30. RETURN
  31. C
  32. END
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales