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