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);

s:='';

for i:=l+1 to r

do s:=s+SCR0^[i,1];

stext(s);

SlX0:=SlX; SlY0:=SlY;

end;

end;

old09;

end;

begin (*************************)

GetIntVec($9,@Old09);

SetIntVec($9,Addr(New09));

SCR0:=ptr($b800,$0000);

KEEP(0);

end.