home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / docs / lovelace / critters.ads < prev    next >
Encoding:
Text File  |  1995-12-08  |  305 b   |  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.