procedure Sdelete(var t: packed array [tlow..thigh: integer] of char;
                       start, span: integer
  	);
   EXTERNAL;
{*USER*
  	-- String Package Module --
 Delete the portion of string T. The first character deleted is T[start],
and span characters are deleted. If span is negative, characters to the
left of Start are deleted; if positive, characters to the right of start.
If T is a Type "1" string, it is filled
to its size with trailing nulls. If T is a Type "0" string, garbage remains
beyond the new end of T.
}