home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / scope.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  599 b   |  41 lines
  1.                                        -- Chapter 9 - Program 1
  2. procedure Scope is
  3.  
  4.    Count : INTEGER;
  5.  
  6.    procedure Level1 is
  7.       Index : INTEGER;
  8.  
  9.       procedure Level2 is
  10.          Count : INTEGER;
  11.       begin
  12.          null;
  13.       end Level2;
  14.  
  15.       procedure Level2_Prime is
  16.          Data : INTEGER;
  17.       begin
  18.          null;
  19.       end Level2_Prime;
  20.  
  21.    begin
  22.       null;
  23.    end Level1;
  24.  
  25.    procedure Other_Level1 is
  26.    begin
  27.       null;
  28.    end Other_Level1;
  29.  
  30. begin
  31.    null;
  32. end Scope;
  33.  
  34.  
  35.  
  36.  
  37. -- Result of execution
  38.  
  39. --   (No output from this program.)
  40.  
  41.