$ TADA ARRAY2

Opening array2.text

         1: -- SAMPLE TO DEMONSTRATE SIMPLE ARRAYS   2 of 4
         2: --   inputting into the array
         3:  
         4: with TEXT_IO ; use TEXT_IO, INTEGER_IO, FLOAT_IO ;
         5:  
         6: procedure MAIN is
         7:  
         8:    BALANCES      : array ( 1..20 ) of FLOAT  ;
         9:    OPEN_ACCOUNTS : INTEGER := 0 ;
        10:    AMOUNT        : FLOAT ;
        11:  
        12: begin
        13:    loop
        14:       GET(AMOUNT);
        15:       OPEN_ACCOUNTS := OPEN_ACCOUNTS + 1 ;
        16:       BALANCES(OPEN_ACCOUNTS) := AMOUNT ;
        17:    end loop ;
        18: 
        19:    PUT_LINE(" NEVER CAN GET HERE");
        20: 
        21: exception
        22:    when END_ERROR =>
        23:    PUT(OPEN_ACCOUNTS) ; PUT_LINE(" accounts are open ") ;
        24:    PUT_LINE(" END OF DATA") ;
        25: end MAIN ;

Compilation complete
 Syntax errors: 0  Semantic errors: 0  Lines compiled: 25

$ TYPE ARRAY2.COM

    $ TRUN ARRAY2
    3.5
    4.2
    $ EXIT

$ @ARRAY2
     2 accounts are open 
 END OF DATA