-- Program from Lecture 22 for Sieve of Eratosthenes
-- Quintin Cutts 8 - 11 - 96

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure l9 is
package Float_IO is new Float_IO( Float ) ;
use Float_IO ;

Amount, Balance : Float := 0.0 ;
Trans_Type : Character ;
Ok_Trans : Boolean ;
begin
while not End_Of_File loop
-- Read in type of transaction and amount involved
Get( Trans_Type ) ;
Get( Amount ) ;

-- Set flag indicating whether we're interested in this transaction
Ok_Trans := true ;

-- Perform appropriate action according to transaction type
if Trans_Type = 'd' then
Balance := Balance + Amount ;
Put( "deposit " ) ;
elsif Trans_Type = 'w' then
Balance := Balance - Amount ;
Put( "withdrawal " ) ;
elsif Trans_Type = 'i' then
Balance := Balance + Amount ;
Put( "interest " ) ;
elsif Trans_Type = 'c' then
Balance := Balance - Amount ;
Put( "charge " ) ;
else
Put( "Bad t_type" ) ;
Ok_Trans := false ;
end if ;

-- Write out account information
if Ok_Trans then
Put( Amount, Fore => 3, Aft => 2, Exp => 0 ) ;

-- Is the balance positive or negative?
if balance >= 0.0 then
Put( Balance, Fore => 3, Aft => 2, Exp => 0 ) ;
else
Put( abs Balance, Fore => 3, Aft => 2, Exp => 0 ) ;
Put( " o/d" ) ;
end if ;
end if ;

-- Tidy up for next transaction
Skip_Line ; New_Line ;
end loop ;
end l9;