
  TYPE
    clt$function = ^procedure (    function_name: clt$name;
                                   argument_list: string ( * );
                               VAR value: clt$value;
                               VAR status: ost$status);

*copyc clt$value
*copyc clt$name
*copyc ost$status
