INCL/EXCL - No range check

MODULE TestSet3;

PROCEDURE Do*;
VAR set: SET16;
BEGIN
	INCL(set, 20); (*! out of range *)
END Do;

END TestSet3.