
      program rderos
c
      character*80 chrec
      data lu/20/
c
        read(lu,"(a80)") chrec
        write(6,"(a80)") chrec

      stop
      end
