  OPEN BYR.LST
  IF ERROR GOTO ERREUR1
DEB:
 CALL MCONNECT.INC
  SEND "D^M"
 CALL MWAITD.INC
  IF ERROR GOTO ERREUR2
BOUCLE:
  DELBEGIN
  READLINE
  IF ERROR GOTO FIN
 BOUCLE1:
  ECHO "Rcupration du fichier ^$^M"
  SEND "YGET ^$^M"
  WAIT 60 FOR TX
  IF ERROR GOTO ERREUR3
 BOUCLE2:
  IF NOT CONNECTED GOTO ERREUR3
  WAIT 30 FOR NOT TX
  IF ERROR GOTO BOUCLE2
 CALL MWAITD.INC
  IF ERROR GOTO ERREUR3
  GOTO BOUCLE
FIN:
  CLOSE
 CALL MDISC.INC
  WAIT 1
  BEEP
  STOP


ERREUR1:
  ECHO "Fichier BYR.LST non trouv"
  STOP

ERREUR2:
 CALL MDISC1.INC
  WAIT 30
  GOTO DEB

ERREUR3:
 CALL MDISC1.INC
  WAIT 30
 CALL MCONNECT.INC
  SEND "D^M"
 CALL MWAITD.INC
  IF ERROR GOTO ERREUR3
  GOTO BOUCLE1

