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