 CALL MDOS.INC
  DEL LISTE
 CALL MCONNECT.INC
 CALL MHEADER.INC
  OPEN LISTE1
  TEXTSAVE MESSAGE1
 CALL MFF.INC
  CLOSE
  ENDTEXTSAVE
  OPEN LISTE2
  TEXTSAVE MESSAGE2
 CALL MFF.INC
  CLOSE
  ENDTEXTSAVE
 CALL MDISC.INC
  BEEP
