procedure menu;
begin
butt:=1;
repeat
drawimage(logo,0,0);
SetFont(FONT_FACE_SYSTEM,
FONT_STYLE_BOLD,
FONT_SIZE_LARGE);
drawtext('Play',10,130);
drawtext('Exit',85,130);
if key=KE_KEY4 then butt:=1;
if key=KE_KEY6 then butt:=2;
if butt=1 then drawimage(menus,23,160);
if butt=2 then drawimage(menus,100,160);
key:=getkeyclicked;
if (butt=2) and (key=KE_KEY5) then halt;
delay(10);
repaint;
until (butt=1) and (getkeypressed=KE_KEY5);
end;