program Trim71

  character(80) :: Line

  do
    read ( *, '(a)', end=9 ) line
    write ( *, '(a)' ) trim(line(1:71))
  end do

9 stop

end program trim71
