JKLATCH
INPUT: J K
OUTPUT: Q

: TOGGLE Q @ NOT Q = ;
: RESET 0 Q = ;
: SET 1 Q = ;
: JKLATCH J @ K @ AND 
	IF TOGGLE
	ELSE J @ K @ = 
		IF
		ELSE J @ 1 = 
			IF SET
			ELSE RESET
			THEN
		THEN
	THEN ;