with core, menu; use menu; package body menu is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ procedure configure is begin null; end configure; procedure draw (value : in codex; x, y : in integer) is begin null; end draw; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end menu;