  PROCEDURE [XREF] ocp$output_current_line (current_line: ^oct$output_line);
