FUNCTION Hash_Truncation (K: String) RETURN Natural IS
------------------------------------------------------------------------
--| Truncation Hash Function
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: February 1996                                     
------------------------------------------------------------------------

  Last3: String(1..3);

BEGIN -- Hash_Truncation

  Last3 := K (K'Last - 2 .. K'Last);
  RETURN Integer'Value (Last3);

END Hash_Truncation;