DEBUT:
 CALL MCONNECT.INC
  SEND "KM^M"
 CALL MWAITP.INC
  IF ERROR GOTO ERREUR
 CALL MDISC.INC
  WAIT 30
  BEEP
  STOP

ERREUR:
 CALL MDISC1.INC
  WAIT 30
  GOTO DEBUT
