function SEqual(s1: packed array [s1low..s1high: integer] of char;
                  s2: packed array [s2low..s2high: integer] of char): boolean;
   EXTERNAL;
{*USER*
        -- String Package Module --
 
 Compare "s1" and "s2" for equality. Returns TRUE only if s1 and s2
have same length, and each character matches. Note that s1 and s2
may be of differing Types, and still return TRUE, so long as the
'in use' length and content match. In use length of a Type "1" string
is the length to the last non-null character.
}