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

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.