276___ ____________ __________ ____________Приложение

PutImage(Xg,YUp,Cur",NormalPut);

for k :- 1 to 10 do

if not KeyPressed then Delay(D) ;

PutImage(Xg,YUp,Back^,NormalPut);

for k :- 1 to 10 do

if not KeyPressed then

Delay(D) end end; {Cursor} {—————} Procedure Home;

{Курсор - в начало строки ввода} begin

GotoXY(XOt,WhereY) ;

end; {Home} {—————} Procedure Left;

{Курсор - на символ влево} begin

if WhereX>XOt then

GotoXY(WhereX-1,WhereY) end; {Left} {—————} Procedure Right;

{Курсор - на символ вправо} begin

if WhereX-XOt<Length(s) then

GotoXY(WhereX+1,WhereY) end; {Right} {—————} Procedure EndKey;

{Курсор ~ в конец строки} begin

GotoXY(XOt+Lengthfs),WhereY) end; {EndKey} {—————] Procedure Ins;

{Переключение режима ввода} begin

InsFlag := not InsFlag;

SetCursor end; {Ins} {—————} Procedure WriteString;

{Восстанавливает ввод после редактирования} var

k: Byte;

begin

for k :- 1 to Length(S) do

WriteChar(Xlt+XOt+k-3,Yg,ord(S[k])) ;

WriteChar(Xlt+XOt+Length(S)-2,Yg,32) end;

(—————} Procedure Del;

{Забить символ с курсором} var

n: Byte;

begin