---

uses crt,dos,graph;
var
regs:registers;
gd, gm:integer;
ch: char;
xstr,ystrtring;
k,x,y:integer;
0 buton,eski_buton:byte;
begin
clrscr;
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then
begin
write('grafik suruculeriniz yuklenemiyor');
readln;
halt(1);
end;
regs.ax:=0000;
intr($33,regs);
regs.ax:=0001;
intr($33,regs);
while ch<> #27 do
begin
regs.ax:=$0003;
intr($33,regs);
x:=regs.cx;
y:=regs.dx;
buton:=regs.bx;
gotoxy(1,1);
K:=x+y;
eski_buton:=buton;
if keypressed then ch:=readkey;
end;
closegraph;
end.