ується процедурою window зі стандартного модуля Crt. Після в створене вікно виводиться масив пунктів меню й підсвічується перша позиція. Далі в циклі відбувається зчитування коду натиснутої клавіші і відповідно з кодом відбувається присвоєння змінної punkt певного значення, а потім підсвічування вибраного пункту. br/>
begin
{ Ініціалізація змінних}
{ визначення максимальної довжини рядка}
{ Доповнення всіх рядків до максимальної}
{ Розрахунок координат X1 і Y1}
{ Промальовування меню }
window (x, y, x1, y1);
For I: = 1 to k do
begin
GotoXY (x, i);
Write (Mas [i]);
end;
{ end for}
punkt: = 1;
GotoXY (x, 1);
{ Підсвічування першого поля меню}
Write (Mas [1]);
Repeat
Otv: = Readkey;
If Otv = # 0 then Otv: = Readkey;
{ end If}
{ Реакція на натиснення клавіш}
Case Otv of
В
# 27: {Натискання клавіші esc}
{ Вихід}
# 13: { Натискання клавіші enter }
{ Промальовування нормального вікна та вихід з процедури}
# 80: { Натискання клавіші вниз}
{ Якщо був обраний останній пункт меню, то відбувається перехід на перший пункт, інакше переміщується вниз}
# 72: { Натискання клавіші ввверх}
{ Якщо був вибраний не перший пункт, то піднімаємося вгору, інакше переміщаємося на останній пункт}
end;
{Промальовування поля меню в результат-ний колір}
{Підсвічування наступного обраного поля меню} False
{ end Repeat}
end;.
1.3 Модуль RabotaND.tpu
<...
