# getlin - get next line from  f  into  line
include ratdef
   integer function getlin(line, f)
   character line(MAXLINE), c, getch
   integer f
   
   for (getlin = 0; getch(c, f) ^= EOF; ) {
      if (c == 0)
         break
      if (getlin < MAXLINE - 1) {
         getlin = getlin + 1
         line(getlin) = c
         }
      if (c == NEWLINE | c == FF)
         break
      }
   line(getlin+1) = EOS
   if (getlin == 0 & c == EOF)
      getlin = EOF
   return
   end