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