# pack.rf - Pack a RATFOR terminated string into a NULL terminated string.
include ratdef
integer function pack (rstring, string, max)
   character string(ARB), rstring(max)
   
   for (i = 1; i < max; i = i + 1) {
      BYTE(string,i) = rstring(i)
      if (rstring(i) == EOS) break
      }
   BYTE(string,i) = NULL
   
   return (i-1)
   end