PROGRAM ch1701
!
! Simple character i/o
!
CHARACTER (80) :: Line
  READ *, Line
  PRINT *, Line
END PROGRAM ch1701