
  TYPE
    clt$proc_input_procedure = ^procedure
           (VAR line: ost$string;
            VAR index: ost$string_index;
            VAR token: clt$token;
            VAR status: ost$status);

*copyc clt$token
*copyc ost$status
*copyc ost$string
