Solo Programadores 22/SOLO_22.iso/docs/lovelace/monsters.ads

Text File | 1995-10-27 | 217 b | 11 lines

with Creatures;
use  Creatures;

package Monsters is
 type Monster is new Creature with private;
 type Monster_Access    is access Monster'Class;
private
 type Monster is new Creature with null record;
end Monsters;