20 lines
648 B
Ada
20 lines
648 B
Ada
|
with core;
|
||
|
|
|
||
|
|
package menu is
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type codex is (
|
||
|
|
none
|
||
|
|
);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
procedure configure;
|
||
|
|
|
||
|
|
procedure draw (value : in codex; x, y : in integer);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
end menu;
|