function ssearch(t: packed array [tlow..thigh: integer] of char;
                s: packed array [slow..shigh: integer] of char;
                start: integer): integer;
   EXTERNAL;
{*USER*
 Ssearch returns the position within "t" of string "s". Zero is returned
if no match, else is the position of the first character of the search
string. Characters are compared to the length of "s". Parameter Start
defines the first character position of "t" to be examined.
}