$ ADA ARRAY3
NYU Ada/ED 17.2(7/29/82)                  MON  12 SEP 83  13:42:45   PAGE     1

ADAfile:	ARRAY3.ADA

    1   -- SAMPLE TO DEMONSTRATE SIMPLE ARRAYS   3 of 4
    2   --   add an internal procedure to print the array
    3
    4   with TEXT_IO ; use TEXT_IO ;
    5
    6   procedure MAIN is
    7      package FLT_IO is new FLOAT_IO(FLOAT) ; use FLT_IO ;
    8
    9      BALANCES      : array ( 1..20 ) of FLOAT  ;
   10      OPEN_ACCOUNTS : INTEGER := 0 ;
   11      AMOUNT        : FLOAT ;
   12
   13      procedure PRINT_BALANCES is
   14      begin
   15         for I in 1..OPEN_ACCOUNTS loop
   16            PUT(BALANCES(I)) ; PUT_LINE("") ;
   17         end loop ;
   18      end ;
   19
   20   begin
   21      loop
   22         begin
   23            GET(AMOUNT);
   24            OPEN_ACCOUNTS := OPEN_ACCOUNTS + 1 ;
   25            BALANCES(OPEN_ACCOUNTS) := AMOUNT ;
   26         exception
   27            when END_ERROR =>
   28               PUT_LINE(" END OF DATA") ;
   29               exit ;
   30         end ;
   31      end loop ;
   32      PRINT_BALANCES ;
   33      PUT_LINE(" DONE");
   34   end MAIN ;

  no parse errors detected
  Parsing time: 10 seconds

  no semantic errors detected
  Translation time: 20 seconds

  Binding time: 0.4 seconds

  Begin Ada execution
>3,5
>4.2
>6.7
>^Z
  END OF DATA 
 3.500000E+00 
 4.200000E+00 
 6.700000E+00 
  DONE 

  Execution complete
  Execution time: 21 seconds
  I-code statements executed: 104