Solo Programadores 22/SOLO_22.iso/docs/lovelace/items.adb

Text File | 1995-10-20 | 192 b | 11 lines

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;