
  TYPE
    clt$utility_line_preprocessor = ^procedure
           (    command_line: ^clt$command_line;
                interactive_source: boolean;
                interpreting_commands: boolean;
            VAR edited_command_line: ^clt$command_line;
            VAR status: ost$status);

*copyc clt$command_line
*copyc ost$status
