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

close(f1);

end;

until ioresult=0;

{$I+}

table;

gotoxy(1,2);

while not eof(f1) do

begin

readln(f1,txt);

writeln(chr(179),txt);

end;

close(f1);

gotoxy(2,21);

write('Файл считан, нажмите чего-нибудь ... ');

end;

68:goto b; {F10} {Происходит выход на метку}

end;

until i<0; {считывай функциональные клавиши пока i<0,

а т.к. i=1 и не изменяется, то этот процесс бесконечен}

b:end.

Текст модуля.

Unit Tim;

Interface

Uses Crt,Dos;

Procedure keys(var n:integer);

Procedure table;

Procedure Enter_sandman;

Procedure menu;

Implementation