-- (C) Copyright International Business Machines Corporation 14 December
-- 1990.  All Rights Reserved. 
--  
-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 
-- SCCS Info: @(#)storeprogram.d	1.1 12/28/90

storeprogram: using (predefined, objectio, load) definitions

  storeprogram_init_intf: callmessage (
    writeobj: writeobject_func,
    store: storefunc
  ) constant (writeobj)
    exit { full };

  storeprogram_init_q: inport of storeprogram_init_intf 
    { init(writeobj) };
  storeprogram_init_func: outport of storeprogram_init_q;

-- store and libstore both have the same interface -- see load.d

end definitions
