
  TYPE
    clt$input_procedure = ^procedure (VAR line: ^clt$command_line;
                                      VAR status: ost$status);

*copyc clt$command_line
*copyc ost$status
