-- File: person.ads
--
-- Prepared by Prof. Spiegel
-- Copyright © 1988-1998 Coronado Enterprises - Last update, February 1, 1998
-- Gordon Dodrill - dodrill@swcp.com
--
-- Declaration of person package and abstract type employee


package person is

   type EMPLOYEE is abstract tagged private;

   procedure Display(Person_In : EMPLOYEE) is abstract;

private

   type EMPLOYEE is abstract tagged
      record
         Name        : STRING(1..25);
         Name_Length : INTEGER;
         Salary      : INTEGER;
      end record;

end person;