CONSTANT n=6; -- do zapisania 50 (najwieksza z liczb) potrzebujemy 5 bitow

SUBDESIGN pd5
(
	zegar, reset, stop : INPUT;
	wy[n-1..0] : OUTPUT;
)

VARIABLE
	aut	: MACHINE OF BITS (q[n-1..0])
		WITH STATES (s1 = 2, s2 = 12, s3 = 20, s4 = 7, s5 = 14, s6 = 50, s7 = 23);

BEGIN
	aut.clk = zegar;
	aut.reset = reset;

	IF !stop THEN
		CASE aut IS
			WHEN s1 => aut = s2;
			WHEN s2 => aut = s3;
			WHEN s3 => aut = s4;
			WHEN s4 => aut = s5;
			WHEN s5 => aut = s6;
			WHEN s6 => aut = s7;
			WHEN s7 => aut = s1;
			WHEN OTHERS => aut = s1;
		END CASE;
	END IF;
	wy[] = aut.q[];
END;