%N hisread %F $MIR/src/subs/headio.c
%D Read a line of text from the history file.
%P pjt
%: header-i/o
%B
FORTRAN call sequence:
        subroutine hisread(tno,line,eof)
        integer tno
        character line*(*)
        logical eof

  This reads a line of text from the history file.

  Input:
    tno         The handle of the input data set.
  Output:
    line        The string to receive the read string.
    eof         This logical variable turns true when the end of the
                history file is reached.                                
