%N tvtext %F $MIR/src/subs/tv.for
%D Write a character string to the image display device.
%P jm
%: tv, display
%B
      subroutine tvtext(x, y, channel, string, n, color, dir)

      implicit none
      integer x, y, channel, n
      integer color, dir
      character string*(*)

  Write a line of text to the TV screen.

  Integer:
     x, y      Device coordinates of starting location.
     channel   Channel to load text.
     string    Text to write.
     n         Number of characters in ``string''.
     color     Color of text (Either 0 or 1 for graphics plane).
               0 means off; 63 means full on.
     dir       Direction (0: L->R; 1: T->D; 2: R->L; 3: B->T).
