home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / APIEXAM / PHIL / DINERS.ADB < prev    next >
Text File  |  1996-06-05  |  427b  |  18 lines
  1. --diners.adb
  2. with Text_io;
  3. with Society ;
  4. with Room;
  5. procedure Diners is
  6.  
  7.   -- Dining Philosophers - Ada 95 edition
  8.   -- This is the main program, responsible only for telling the
  9.   --   Maitre_D to get busy.
  10.   -- Michael B. Feldman, The George Washington University,  July, 1995.
  11.  
  12. begin
  13.   Society.display.win(1)(8..12) := "Start" ;
  14.   Room.Maitre_D.Start_Serving;
  15. exception
  16.  when others => null ;
  17. end Diners;
  18.