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