subroutine filecop(lout,file)
         implicit none
         integer:: i,lout,lun,lunget
         character*(*) file,line*200
         logical:: err
         lun=lunget()
         call opener(lun,file,err)   !open readonly
         do i=1,1000
          read(lun,1000,end=666) line    ; 1000 format(a)
          write(lout,1000) trim(line)
         enddo
666      close(unit=lun)
         return
         end subroutine