
  PROCEDURE [XREF] clp$pop_input
    (    read_only: boolean;
         input_block_handle: clt$block_handle;
         file_id: amt$file_identifier;
         opened_executable_file: boolean;
         termination_status: ^ost$status;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc clt$block_handle
*copyc clt$prompt_string
*copyc ost$status
?? POP ??
