  OPEN LISTE1
  IF ERROR GOTO ERREUR
 CALL MCONNECT.INC
 CALL MHEADER.INC
 CALL MFF.INC
 CALL MDISC.INC
  WAIT 30
  BEEP
  STOP

ERREUR:
  ECHO "Fichier LISTE1 non trouv"
  
