procedure Sread(var f: text; { an input file }
                var s: packed array [slow..shigh: integer] of char
  	);
   EXTERNAL;
{*USER*
 Read from specified file into string. Read proceeds until EOLN, or
the string is filled. Always a trailing Readln. If string is Type "1",
it is filled with trailing Nulls.
}