# wind --- position to end-of-file

   integer function wind (fd)
   filedes fd

   integer seekf

   return (seekf (:17777777777, fd))
   end