
  TYPE
    clt$utility_dialog_info = record
      commands: ^clt$command_table,
      functions: ^clt$function_processor_table,
      scratch_segment: ^ SEQ ( * ),
    recend;

*copyc clt$command_table
*copyc clt$function_processor_table
