
  TYPE
    clt$parameter_dialog_manager = ^procedure
          (    support: clt$parameter_dialog_support;
               command_or_function_name: clt$command_name;
               online_manual_name: ost$online_manual_name;
               parameter_description_table: clt$unbundled_pdt;
           VAR cancel: boolean;
           VAR status {input, output} : ost$status);

*copyc clt$command_name
*copyc clt$parameter_dialog_support
*copyc clt$unbundled_pdt
*copyc ost$online_manual_name
*copyc ost$status
