
  TYPE
    clt$utility_dialog_manager = ^procedure
           (    utility: clt$utility_name;
                dialog_info: ^clt$utility_dialog_info;
            VAR status: ost$status);

*copyc clt$utility_dialog_info
*copyc clt$utility_name
*copyc ost$status
