
  TYPE
    clt$f_control_statement = ^procedure (    label: ost$name;
                                            parameters: string ( * );
                                        VAR status: ost$status);

*copyc ost$name
*copyc ost$status
