home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / ADA / LOVELACE / critters.ads < prev    next >
Text File  |  1996-10-01  |  305b  |  13 lines
  1.  package Critters is
  2.    type Monster is tagged
  3.       record
  4.         Size_In_Meters : Integer;
  5.       end record;
  6.    type Dragon is new Monster with null record;
  7.    type Red_Dragon is new Dragon with null record;
  8.    type Person is tagged
  9.       record
  10.         Age : Integer;
  11.       end record;
  12.  end Critters;
  13.