[Mark Castle]

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;