PROGRAM tulostesti
  IMPLICIT NONE
  CHARACTER(LEN=7) :: mj1, mj2, mj3
  READ (*, '(A8,T3,A5,TR2,A)') mj1, mj2, mj3
  WRITE(*, '(3X,A8,3X,A5,3X,A)') mj1, mj2, mj3
  WRITE(*, '(3(3X,A))') mj1, mj2, mj3
END PROGRAM tulostesti