%N tvvect %F $MIR/src/subs/tv.for
%D Writes a line segment to the TV.
%P jm
%: tv, display
%B
      subroutine tvvect(chan, onoff, x1, y1, x2, y2)

      implicit none
      integer chan, onoff, x1, x2, y1, y2

   Inputs:
     chan    Graphics Tv Channel to draw on (typically 1 to 4).
     onoff   1 draws the line; 0 erases it.
     x1      start X position
     y1      start Y position
     x2      end X position
     y2      end Y position

   Output:
     (none)
