package body Items is

 function May_I_Get(Direct_Object : access Item;
                    Agent : access Occupant'Class) return Boolean is
 begin
  return True;
 end May_I_Get;

end Items;

You may also see the corresponding specification. You may return to the Program Small Home Page

This hypertext format was generated by David A. Wheeler's ada2html