check$exception:	PROCEDURE	(sys$call$ptr,status)	EXTERNAL;
	DECLARE	sys$call$ptr	POINTER,
			status			WORD;
END check$exception;

decrypt:	PROCEDURE	(char)	BYTE	EXTERNAL;
	DECLARE	char	BYTE;
END decrypt;

encrypt:	PROCEDURE	(char)	BYTE	EXTERNAL;
	DECLARE	char	BYTE;
END encrypt;