EXTERNAL FUNCTION CLRSCR : INTEGER; (* clear the screen *)

	EXTERNAL FUNCTION CURS(ONOF : STRING; (* turn on/off cursor *)
			       VAR SETT : STRING) : CHAR;

	EXTERNAL FUNCTION CLSDIS : INTEGER;	(* close file *) 

	EXTERNAL FUNCTION DISPD(DIS : INTEGER) : INTEGER; (* show displ *) 

	EXTERNAL FUNCTION ENDF : INTEGER;	(* terminating char entered *)

	EXTERNAL FUNCTION GETF(VAR INP : STRING) : CHAR; (* input char *)

	EXTERNAL FUNCTION INITDM(CODE : STRING) : INTEGER; (* init rtl *)

	EXTERNAL FUNCTION NXTF(MOV : INTEGER) : INTEGER; (* relative mov *)

	EXTERNAL FUNCTION OPNDIS(DFIL : STRING) : INTEGER; (*open file *)

	EXTERNAL FUNCTION POSF(MOV : INTEGER) : INTEGER; (* absolute mov *)

	EXTERNAL FUNCTION PUTF(DAT : STRING) : INTEGER; (* output data *)

	EXTERNAL FUNCTION RESF(INDX : INTEGER;  (* resume input stored *)
			       VAR NIMP : STRING) : CHAR;		   

	EXTERNAL FUNCTION RETDM(VAR ATTR : STRING) : CHAR; (* term features *)

	EXTERNAL FUNCTION RETF(VAR ATTR : STRING) : CHAR; (* field features *)

	EXTERNAL FUNCTION SETF(NEWA : STRING; (* set/reset attributes *)
			       VAR ATTR : STRING) : CHAR; 

	EXTERNAL FUNCTION UPDF(VAR INP : STRING) : CHAR; (* update entry *) 

	EXTERNAL FUNCTION INTVAL(STR : STRING) : INTEGER; (* convert string *)
	
	EXTERNAL FUNCTION FPVAL(STR : STRING) : REAL; (* convert string *)
	
	EXTERNAL FUNCTION BCDVAL(STR : STRING) : REAL; (* convert bcd string *)

	EXTERNAL FUNCTION INTSTR(NUM : INTEGER;VAR STR : STRING) : CHAR; 
	
	EXTERNAL FUNCTION FPSTR(NUM : REAL ; VAR STR : STRING) : CHAR; 
	
	EXTERNAL FUNCTION BCDSTR(NUM : REAL ; VAR STR : STRING) : CHAR; 
	
	EXTERNAL FUNCTION DMALLO(NUM_K : INTEGER) : INTEGER;