set$exception:	PROCEDURE(except$mode) EXTERNAL;

	DECLARE except$mode		BYTE;

END set$exception;

error$check:	PROCEDURE(number,test$status) EXTERNAL;

	DECLARE number			WORD,
			test$status		WORD;

END error$check;