Turbo Pascal. Mit csinálnak pontosan ezek az utasítások?

Kezdő programozó vagyok Turbo Pascal-ban.

Letöltöttem egy grafikai menü példát, de az utasítások egyik felét nem értem! Valaki legyen szíves magyarázza el!

Amit nem értem azt megjelöltem kérdőjelekkel, szóval ami a ?-ek alatt van az nekem nem tiszta.

itt az egész program:

program menukezelo;

uses crt;

var m:byte;

procedure writexy(x,y:byte;s:string);

begin

gotoxy(x,y);

write(s);

end;

Procedure StartGame;

begin

clrscr;

writeln('Itt lenne a jatek, de mivel ez egy menu tutor');

writeln('Ez most elmarad...');

writeln('Press any key to continue...');

readkey;

end;

Procedure Help;

begin

clrscr;

writeln('Menukeszitest bemutato tutorial');

writeln('by PowR... [link]

writeln('Press any key to continue...');

readkey;

end;

function menu:byte;

var mp:byte;

c :char;

begin

clrscr;

mp:=1;

textcolor(10);

writexy(30,5,'MAIN MENU');

textcolor(14);

repeat

if mp=1 then textbackground(2) else textbackground(0);

writexy(30,10,' Start Game ');

if mp=2 then textbackground(2) else textbackground(0);

writexy(30,12,' Help ');

if mp=3 then textbackground(2) else textbackground(0);

writexy(30,14,' EXIT ');

c:=readkey;

?????????????????????ITT NEM ÉRTEM!????????????????????

case ord(c) of

72 : begin

if mp>1 then mp:=mp-1;

end;

80 : begin

if mp<3 then mp:=mp+1;

end;

end;{case}

until (c=#13);

menu:=mp;

end;

BEGIN

repeat

m:=menu;

case m of

1:begin

StartGame;

end;

2:begin

Help;

end;

end;{case}

until m=3;

END.

Legyen szíves valaki magyarázza el nekem ezt az alsó részt!

Egyébként egyedül, magamtól tanulom a nyelvet.

Előre is köszönöm!