procedure SClear(var s: packed array [low..high: integer] of char
  	);
   EXTERNAL;
{*USER*
  	-- String Package Module --
Clear string "s". For a Type "0" string, this means setting s[0] = 0.
For Type "1", the string is filled with nulls.
}