Курсовая работа: Разработка алгоритмов чтения данных с экрана

if (SlInByte=28)

then begin

sl0key:=true;

end

end;

if (SlInByte in [63,72,80]) and (SCR0^[410,1]='Й')

then

begin

if Sl0key

then

begin

SlX:=11{SlX0}; SlY:=7{SlY0};

gotoxy(slx,sly);

sl0key:=false;

end

else

begin

SlX:=WhereX;

SlY:=WhereY;

end;

l:=80*(sly-1)+SlX;

r:=l;

if (sly>0) and (sly<20)

then

begin

while (l > 80*(sly-1) ) and not(SCR0^[l,1] in ['°'..'Я']) do dec(l);

while (r < 80*sly) and not(SCR0^[r,1] in ['°'..'Я']) do inc(r);

dec(r);

while (r<l) and (SCR0^[r,1]=' ') do dec(r);