/*  GCW  06/06/94             */
/* String input/output        */

#ifndef _string_io
#define _string_io 1
#endif

/* Read a ctrl-char terminated string from file */
gets(file)
{
 local s, c;
 s = "";
 while ((c = getc(file)) != -1 && c > 31)
   s += c;
 return s;
}

/* Write a string to a file */
puts(s,file)
{
 local i;
 for (i=0;i<sizeof(s);i++)
    putc(s[i],file);
}
