%N tvscrl %F $MIR/src/subs/tv.for
%D Scroll a display on a TV device.
%P jm
%: tv, display
%B
       subroutine tvscrl(scrolx, scroly)
       implicit none
       integer scrolx, scroly

  Input:
    scrolx  Amount of X scroll (>0 scroll to the right).
    scroly  Amount of Y scroll (>0 scroll upwards).

  Output:
    None
