%N tvchan %F $MIR/src/subs/tv.for
%D Display a given image channel.
%P jm
%: tv, display
%B
        subroutine TVchan(channel)

        implicit none
        integer channel

  TvChan causes a particular image channel to appear on the display
  screen. Channels are numbers from 1 to NCHAN (where NCHAN is the
  maximum number of channels that the display possesses.

  Input:
    channel    Channel to turn on.
