PROCEDURE SConcat(VAR t: PACKED ARRAY [tlow..thigh: integer] OF CHAR;
                      s: packed array [slow..shigh: integer] OF CHAR
  	);
   EXTERNAL;
{*USER*
  	-- String Package Module --
 Concatenate s and t. String S is appended to string T, with the result
in T, truncated if necessary to the max size of T.
}