package Types is
------------------------------------------------------------------------
--| Types package for the bank simulation. This contains only public
--| declarations, and therefore needs no package body.
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------

   -- These 2 constants can be altered to change
    --  the behavior of the simulation
    subtype TellerRange is Character range 'A'..'C';
    NumberOfCustomers : constant Integer := 5;

    -- These 2 ranges can be altered to change
    --  the behavior of the simulation
    subtype TransactionTimeRange is Integer range 1 .. 7;
    subtype TimeBetweenVisitsRange is Integer range 1 .. 11;

    -- Global types
    subtype Money is Integer range 0 .. Integer'LAST;
    type Status is (OK, InsufficientFunds, BadCustId);
    subtype CustId is Integer range 0 .. NumberOfCustomers;

end Types;