DEFINITION Strings;

PROCEDURE Length(str: ARRAY OF CHAR): LONGINT;
PROCEDURE Append(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
PROCEDURE Occurs(VAR s: ARRAY OF CHAR; search: ARRAY OF CHAR): LONGINT;
PROCEDURE OccursPos(VAR s: ARRAY OF CHAR; search: ARRAY OF CHAR; start: LONGINT): LONGINT;
PROCEDURE Cut(VAR s: ARRAY OF CHAR; from, cnt: LONGINT; VAR to: ARRAY OF CHAR);
PROCEDURE Upper(VAR s: ARRAY OF CHAR);
PROCEDURE CapIntl(c: CHAR): CHAR;
PROCEDURE UpperIntl(VAR s: ARRAY OF CHAR);
PROCEDURE Insert(VAR s: ARRAY OF CHAR; at: LONGINT; str: ARRAY OF CHAR);
PROCEDURE Delete(VAR s: ARRAY OF CHAR; at, cnt: LONGINT);
PROCEDURE AppendChar(VAR s: ARRAY OF CHAR; c: CHAR);
PROCEDURE InsertChar(VAR s: ARRAY OF CHAR; at: LONGINT; c: CHAR);
PROCEDURE OverWrite(VAR string: ARRAY OF CHAR; overlay: ARRAY OF CHAR; pos: LONGINT);

END Strings.