begin
for i: = 1 to 6 do
begin
sound (m [i]);
delay (t [i]);
nosound;
end;
end;
for u: = 1 to 3 do
begin
for i: = 1 to 7 do
begin
sound (e [i]);
delay (r [i]);
nosound;
end;
end;
for z: = 1 to 3 do
begin
for i: = 1 to 5 do
begin
sound (w [i]);
delay (q [i]);
nosound;
end;
end;
for i: = 1 to 9 do
begin
sound (o [i]);
delay (b [i]);
nosound;
end;
end;
Procedure table; {малює таблицю}
var
w, h: integer;
c1, c2, c3, c4, c7, c5, c6, c8, c9, c10: char;
begin
textbackground (blue);
clrscr;
textcolor (yellow);
w: = 1;
h: = 1;
c1: = chr (218);
c2: = chr (196);
c3: = chr (191);
c4: = chr (179);
c5: = chr (192);
c6: = chr (217);
c7: = chr (195);
c8: = chr (180);
c9: = chr (193);
c10: = chr (194);
for h: = 2 to 25 do
begin
gotoxy (w, h);
write (c4);
end;
gotoxy (w, h);
write (c5);
for w: = 2 to 79 do
begin
gotoxy (w, h);
write (c2);
end;
gotoxy (w, h);
write (c6);
for h: = 24 downto 1 do
begin
gotoxy (w, h);
write (c4);
end;
gotoxy (w, h);
write (c3);
for w: = 78 downto 1 do
begin
gotoxy (w, h);
write (c2);
end;
gotoxy (w, h);
write (c1);
gotoxy (1,20);
write (c7);
for w: = 2 to 59 do
begin
gotoxy (w, 20);
write (c2);
end;
gotoxy (w, 1);
write (c10);
for h: = 2 to 24 do
begin
gotoxy (w, h);
write (chr (179));
end;
gotoxy (w, 20);
write (c8);
gotoxy (59,25);
write (c9);
gotoxy (62,4);
writeln ('F1-Помошь');
gotoxy (62,5);
writeln ('F2-Новий');
gotoxy (62,6);
writeln ('F3-Копіювати');
gotoxy (62,7);
writeln ('F4-Перейменувати');
gotoxy (62,8);
writeln ('F5-Видалити');
gotoxy (62,9);
writeln ('F6-Дивитись');
gotoxy (62,10);
writeln ('F10-Вихід');
end;
Procedure menu;
Const
NORM = $ 17; {колір невиділення пункту}
SEL = $ 70; {колір виділеного пункту}
N = 3;
var
menu: array [1 .. N] of string [12]; { назви пунктів меню}
punkt: integer; {номер виділеного пункту}
ch: char; {введений символ}
x, y, i: integer; ...
