
  PROCEDURE [XREF] clp$prepare_delayed_block
    (    interpreter_mode: clt$interpreter_modes;
         begin_name: ost$name_reference;
         end_name: ost$name_reference;
         prompt_string: clt$prompt_string;
         first_line_to_write: clt$command_line;
         substitution_mark: clt$substitution_mark;
     VAR statement_area: ^clt$collect_statement_area;
     VAR can_be_echoed: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$collect_statement_area
*copyc clt$command_line
*copyc clt$interpreter_modes
*copyc clt$prompt_string
*copyc clt$substitution_mark
*copyc ost$name_reference
*copyc ost$status
?? POP ??
