  OPEN LISTE1
  IF ERROR GOTO ERREUR
 CALL MR.INC
  WAIT 30
  BEEP
  STOP

ERREUR:
  ECHO "Fichier LISTE1 non trouv"

