{--------------------------------------------------}
{ Simple telephone connection phase - TMDL Example }
{ March 3, 1995                                    }
{--------------------------------------------------}

Map Map1 is

{--------------------------------------------------}

INTERACTIONS
   ConnectionPhase on Nothing;

{--------------------------------------------------}

DESCRIPTIONS

Timethread ConnectionPhase is
   { This is the main timethread. }
   
   Internal
	RegInit,       { Register the initiator in the database }
	CheckDB        { Check a abstract (and virtual!) database }
   
   Trigger (OffHook)
   Action (RegInit)
   Action (Tone)
   Wait (Dial)
   Action (CheckDB)
   Action (Ring)
   Wait (Answer)
   Result (Connected)       { Connection done. }
EndTT { ConnectionPhase }

EndMap { Map1 }