PROCEDURE LeftStr ( source : STR255; n : INTEGER; VAR dest : STR255 );
   EXTERNAL;
PROCEDURE RightStr ( source : STR255; n : INTEGER; VAR dest : STR255 );
   EXTERNAL;
PROCEDURE MidStr ( source : STR255; start,n : INTEGER; VAR dest : STR255 );
   EXTERNAL;
PROCEDURE StringStr ( replicant : STR255; n : INTEGER; VAR dest : STR255 );
   EXTERNAL;
PROCEDURE Pascal_To_C ( p_s : STR255; VAR c_s : C_STRING );
   EXTERNAL;
PROCEDURE C_To_Pascal ( c_s : C_STRING; VAR p_s : STRING );
   EXTERNAL;