unit Strings;
interface
(s: string): Integer;
(s: string; index, count: Integer): string;
(sub: string; s: string): Integer;
// More string functions
implementation
(s: string): Integer;
external 'pas_strlen';
(s: string; index, count: Integer): string;
external 'pas_strcopy';
(sub: string; s: string): Integer;
external 'pas_strpos';
end.