%N output %F $MIR/src/subs/txtio.for
%D Output a line of text to the user.
%P rjs
%: terminal-i/o
%B
        subroutine output(line)

        implicit none
        character line*(*)

  Output writes a line of text to the standard output (usually the users
   terminal).

  Input:
    line       The line of text to write. Only the significant part
               of the string 'line(1:len1(line))' is output
