$save nolist

min$word: PROCEDURE(val1,val2)	WORD  EXTERNAL;
	DECLARE
		val1  WORD,
		val2  WORD;
END min$word;

concatenate$to$string: PROCEDURE(destination$p,destination$max,source$p,
								 source$length,status$p)	EXTERNAL;
	DECLARE
		destination$p		POINTER,
		destination$max		WORD,
		source$p			POINTER,
		source$length		WORD,
		status$p			POINTER;
END concatenate$to$string;

concatenate$string: PROCEDURE(destination$p,destination$max,source$p,
							  status$p)	EXTERNAL;
	DECLARE
		destination$p		POINTER,
		destination$max		WORD,
		source$p			POINTER,
		status$p			POINTER;
END concatenate$string;

move$string: PROCEDURE(destination$p,destination$max,source$p,
					   status$p)	EXTERNAL;
	DECLARE
		destination$p		POINTER,
		destination$max		WORD,
		source$p			POINTER,
		status$p			POINTER;
END move$string;

$restore