{++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{+	      STANDARD FUNCTIONS ROUTINES		+}
{+							+}
{+ use only those functions required for your program.	+}
{+ save this file and make another specially tailored	+}
{+ for your program.					+}
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++}


	  {+++ STRING HANDLING +++}

Procedure setlength(var x: S$0; y: integer); external;

Function length(x: S$255): integer; external;

Function index(PATTERN,SOURCE: S$255): integer; external;

Function POS(SOURCE,PATTERN: S$255): integer;
{ for compatibility with UCSD Pascal prgms use this }
begin  POS := index(PATTERN,SOURCE);
end;

{$iCOPY.LIB }

{$iDELETE.LIB }

{$iINSERT.LIB }

{$iREPLACE.LIB }

{$iCONCAT.LIB }



	{+++ PROGRAM TERMINATION +++}

procedure HALT(text: MSTRING); external;
{ Fatal error termination. NO files will be closed! }



	{+++ CHARACTER HANDLING +++}

procedure KEYIN(var ch: char); external;
{ direct input of a character from the keyboard }

function isalpha(ch: char): boolean; external;

function isupper(ch: char): boolean; external;

function islower(ch: char): boolean; external;

function isdigit(ch: char): boolean; external;

function isspace(ch: char): boolean; external;

function toupper(ch: char): char; external;

function tolower(ch: char): char; external;


: char): boolean; externa