
  TYPE
    clt$utility_interactive_include = ^procedure
           (    interaction_style: ost$interaction_style;
            VAR status: ost$status);

*copyc ost$interaction_style
*copyc ost$status
