with core;

package menu is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type codex is (
		none
	);

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (value : in codex; x, y : in integer);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end menu;