home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / calling.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  822 b   |  47 lines
  1.                                        -- Chapter 8 - Program 4
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Calling is
  6.  
  7.    procedure One is
  8.    begin
  9.       Put("This is procedure One talking.");
  10.       New_Line;
  11.    end One;
  12.  
  13.    procedure Two is
  14.    begin
  15.       Put("This is procedure Two talking.");
  16.       New_Line;
  17.       One;
  18.    end Two;
  19.  
  20.    procedure Three is
  21.    begin
  22.       Put("This is procedure Three talking.");
  23.       New_Line;
  24.       Two;
  25.       One;
  26.    end Three;
  27.  
  28. begin
  29.    One;
  30.    Two;
  31.    Three;
  32. end Calling;
  33.  
  34.  
  35.  
  36.  
  37. -- Result of execution
  38.  
  39. -- This is procedure One talking.
  40. -- This is procedure Two talking.
  41. -- This is procedure One talking.
  42. -- This is procedure Three talking.
  43. -- This is procedure Two talking.
  44. -- This is procedure One talking.
  45. -- This is procedure One talking.
  46.  
  47.