{--------------------------------------------------} { Simple telephone connection phase - TMDL Example } { March 3, 1995 } {--------------------------------------------------} Map Map2 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) Result (BusyTone) EndTT { ConnectionPhase } EndMap { Map2 }