--
--  This program should search through the phone list file in this
--  directory and print out any line that contains the search string.
--
--  If a person where to call Phone with
--
--              Phone ("MTD");
--
--  One would get the following output:
--
--  Mike      Devlin          MTD         4803
--
--  With:
--
--              Phone ("Jim");
--
--  Jim       Archer          JIM         4811                     856-3114
--  Jim       Barth           JAB         4752               (408) 354-3956
--  Jim       Every           JSE         4817               (714) 997-1820
--  Jim       Hake            JDH         4761                     494-2654
--  Jim       Kramer          JLK                            (703) 471-0793
--  Jim       Wilson          JAW         4783               (408) 773-9110
--
--
procedure Phone (Search_String : in String);