 CALL MLR.INC
 CALL MDOS.INC
 CALL MCONNECT.INC
 CALL MHEADER.INC
  OPEN LISTE1
 CALL MFF.INC
  OPEN LISTE2
 CALL MFF.INC
 CALL MDISC.INC
  WAIT 30
  BEEP

