Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/SORT2.ZIP/STDINHDR.INC

Text File | 1993-01-04 | 325 b | 9 lines

{ If input is desired from standard input at random intervals, tell the user
  when it is his turn to go. }

procedure stdinhdr; begin
   if isatty(0) then begin
      assign(fe,'CON'); rewrite(fe); writeln(fe,' ',pname,
': Entered lines to be sorted.  Terminate entry with control-Z.' );
      close(fe); end; end;