Реферат: Создание текстового редактора

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;{ координаты первой строки меню }

Procedure punkt1;

begin

ClrScr;