%N tvline %F $MIR/src/subs/tv.for
%D Write a raster line to the image display device.
%P jm
%: tv, display
%B
        subroutine tvline(x,y,channel,array,n)

        implicit none
        integer x,y,channel,n,array(n)

  Write a line to the TV screen.

  Integer:
   x,y         Coordinates of start location.
   channel     Channel to load.
   array       Array of pixels.
   n           Number of pixels.
