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

Map Map3 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)
   
   { The following choice is made by the simulation's user. }
   { Tags and guards could be used, but they are unnecessary since }
   { we do not really simulate the database. }
   OrFork
       Continue  { Not busy and valid number }
     OR
       Path 
          Result (BusyTone)
       EndPath
   EndOrFork
   
   Action (Ring)
   Wait (Answer)
   Result (Connected)       { Connection done. }
EndTT { ConnectionPhase }

EndMap { Map3 }