
  PROCEDURE [INLINE] osp$press_return_to_continue
    (VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      byte_address: amt$file_byte_address,
      file_position: amt$file_position,
      input_fid: amt$file_identifier,
      line: string (1),
      transfer_count: amt$transfer_count;

    clp$put_job_output (' Press RETURN/NEXT to continue.', status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    fsp$open_file (clc$job_input, amc$record, NIL, NIL, NIL, NIL, NIL,
          input_fid, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    amp$get_next (input_fid, ^line, #SIZE (line), transfer_count, byte_address,
          file_position, {ignore} status);
    status.normal := TRUE;
    fsp$close_file (input_fid, status);

  PROCEND osp$press_return_to_continue;

*copyc amp$get_next
*copyc clc$standard_file_names
*copyc clp$put_job_output
*copyc fsp$close_file
*copyc fsp$open_file
?? POP ??

