!@ŠwK–Ϊ“IFƒtƒ@ƒCƒ‹‚Μopen, close
! ex701.f
      character str*4
      open(10,file='ex701.txt')
      write(10,*) '—ϋK'
      do i=1,5
        write(10,*) i
      end do
      close(10)

      open(20,file='ex701.txt')
      read(20,*) str !‘SŠp‚P•ΆŽš‚Ν”ΌŠp2•ΆŽš•ͺ
      write(*,*) str
      do i=1,5
        read(20,*) j
        write(*,*) j
      end do
      close(20)

      stop
      end