
  TYPE
    pmt$object_library_address = record
      case kind: llt$library_module_kind of
      = llc$load_module =
        load_module: ^llt$object_module,
      = llc$ppu_object_module =
        ppu_object_module: ^llt$object_module,
      = llc$program_description =
        program_description: ^llt$program_description,
      = llc$command_procedure, llc$function_procedure =
        scl_procedure: ^clt$scl_procedure,
      = llc$command_description =
        command_description: ^llt$command_description,
      = llc$function_description =
        function_description: ^llt$function_description,
      = llc$message_module =
        message_module: ^ost$message_template_module,
      = llc$panel_module =
        panel_module: ^SEQ ( * ),
      casend,
    recend;

  TYPE
    llt$object_module = SEQ ( * );

*copyc clt$scl_procedure
*copyc llt$command_description
*copyc llt$function_description
*copyc llt$library_module_kind
*copyc llt$program_description
*copyc ost$message_template_module
