unix/boot/spp/rpp/ratlibr/fcopy.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

include	defs

# fcopy - copy file in to file out

   subroutine fcopy (in, out)
   filedes in, out

   character line (MAXLINE)

   integer getlin

   while (getlin (line, in) != EOF)
      call putlin (line, out)

   return
   end