Procedure Strunc (var s: packed array [lo..hi: integer] of char   );
   EXTERNAL;
{*USER*
  Truncate the specified string "s".  The string may be of a type0
  or type1.  Trailing blanks are replaced by null characters in
  a type1 string, the length parameter is adjusted to the last
  non-blank character character in a type0 string.
}