Procedure ESC;

{Выход по клавише ESCf begin

with F do begin

BufEnd :=° 1;

BufPtr^tO] := • ';

ESCFlag := True end end; {ESC} {—————} begin (GraphRead}

with F do if (Mode-fminput) and (BufEnd»0) than begin

XOt := WhereX;

InsFlag := True;

ESCFlag := False;

SetCursor;

repeat

Cursor;

с := ReadKey;

case с of

#0: case ord(ReadKey) of 71: Home;

75: Left;

77: Right;

79: EndKey;

82: Ins;

83: Del;

else

с := #0 end;

#8: Backspace;

#13: Enter;

#27: ESC;

else

AnyChar end;

until (c-#13) or (c=#27) ;

FreeMem(Back,CSize) ;

FreeMem(Cur,CSize) ;

CSize :- 0 end;

GraphRead := 0 end; {GraphRead} ^____—————————————;

Function GraphWrite(var F: TextRec;: Integer; Far;

{Осуществляет вывод текста} var

Drv,Mode: Integer;

k: Integer;

Reg: Registers;

begin

if Font=NIL then exit;

DetectGraph(Drv,Mode) ;

if AppHandle and (Drv in [3..5,9]) then Adapter :- 1 {EGA, VGA}

else