-- (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: @(#)loadprogram.d	1.1 12/28/90

loadprogram: using (load, objectio, predefined) definitions

  loadprogram_init_intf: callmessage (
    readobj: readobject_func,
    load: load_func
  ) constant (readobj)
    exit { full };

  loadprogram_init_q: inport of loadprogram_init_intf 
    { init(readobj) };
  loadprogram_init_func: outport of loadprogram_init_q;

-- load and pathload both have the same interface -- see load.d

end definitions
