program lab3
        INTEGER, PARAMETER :: END_OF_RECORD = -2, END_OF_FILE = -1
        INTEGER, PARAMETER :: F=1 , Q = 1
        INTEGER :: rc
        character(1) :: ch
        character(10) :: fileName = 'output.txt'
        character(4) :: temp = 'temp'
        character(3) :: e = 'end'
        character(5) :: b = 'begin'

        print *, 'Before:'
        open( unit=F, file=fileName)
        open( unit=Q, file=temp )
        read ( F, '(a1, $)', iostat=RC ) ch
        do while( RC .eq. 0 )
          write(*,'(a1, $)', advance='no') ch
          write ( Q, '(a1, $)', advance='no') ch
          read ( F, '(a1, $)', iostat=RC ) ch
        end do
        close(unit=F)
        close(unit=Q)

        print *, ''
        print *, 'After:'
        open( unit=F, file=fileName)
        open( unit=Q, file=temp )
        read ( Q, '(a1, $)', iostat=RC ) ch
        do while( RC .eq. 0 )
          write ( F, '(a1, $)', advance='no') ch
          write(*, '(a1, $)',advance='no') ch
          read ( Q, '(a1, $)', iostat=RC ) ch
        end do

        close(unit=F)
        close(unit=Q)
       end