
  PROCEDURE [INLINE] clp$find_external_input_block
    (VAR block: ^clt$block);

?? PUSH (LISTEXT := ON) ??

    clp$find_input_block (FALSE, block);
    WHILE block <> NIL DO
      CASE block^.kind OF
*IF NOT $true(osv$unix)
      = clc$command_proc_block, clc$function_proc_block, clc$input_block,
            clc$when_block =
*ELSE
      = clc$input_block =
*IFEND
        IF NOT block^.input.internal THEN
          RETURN;
        IFEND;
        IF block^.inherited_input.found THEN
          block := block^.inherited_input.block;
        ELSE
          block := block^.previous_block;
        IFEND;
      = clc$task_block =
        IF NOT block^.synchronous_with_parent THEN
          block := NIL;
          RETURN;
        IFEND;
        block := block^.previous_block;
      ELSE
        block := block^.previous_block;
      CASEND;
    WHILEND;

  PROCEND clp$find_external_input_block;

*copyc clt$block
?? POP ??
*copyc clp$find_input_block
