TURBO PASCAL помогите !!!

Помогите изменить готовую прогу что б она просто мышку выводила на чёрный экран без координат и символов и работала только левая кнопка мыши!! ! Помогите пожалуйста

Uses DOS,CRT;
function query_mouse:integer;
var regs:registers;
begin
regs.AX:=0;
Intr($33, regs);
if Regs.ax = 0 then query_mouse:=-1
else query_mouse:=regs.Bx;
end;

Procedure show_mouse;
var Regs: registers;
begin
regs.Ax:=1;
Intr($33, regs);
end;

Procedure hide_mouse;
var Regs: registers;
begin
regs.AX:=2;
Intr($33, regs);
end;

Procedure get_status_mouse
(var left_button,right_button:boolean; var x,y: integer);
var regs: Registers;
begin
regs.ax:=3;
Intr ($33, regs);
left_button:=(regs.bx and 1)<>0;
right_button:=(regs.bx and 2)<>0;
x:=regs.CX div 8 + 1;
y:=regs.DX div 8 + 1;
end;

Procedure box(lx, uy: integer; s: string);
var x,y,rx,dy,l : integer;
begin
l:=length(s);
if (80-lx)<(1+2) then lx:= 80-1-2;
rx:=80;
dy:=uy+2;
for x:= x+1 to rx-1 do begin
gotoxy(x,uy); write('==');
gotoxy(x,uy+1); write(' ');
gotoxy(x,dy); write('==');
end;
gotoxy(lx,uy); write('=/');
gotoxy(lx,dy); write('=\');
gotoxy(rx,uy); write('\=');
gotoxy(rx,dy); write('/=');
gotoxy(lx,uy+1); write('+');
gotoxy(rx,uy+1); write('+');
gotoxy(lx+1,uy+1); write(s);
end;

function my_str( x : integer ) : string;
var m_s: string;
begin
str(x,m_s);
my_str:=m_s;
end;

var l_b,r_b : boolean;
m_x,m_y : integer;
key : char;
s1,s2 :string;
begin
textcolor(green);
textbackground(white);
clrscr;
writeLn('Helloy');
if query_mouse=-1
then begin
gotoxy(5,5);
writeln('Sorry :(');
readkey;
halt(1);
end;

begin
show_mouse;
repeat;
get_status_mouse (l_b,r_b,m_x,m_y);
if l_b then s1:='nashata'
else s1:='not nashata';
if l_b then s2:='nashata'
else s2:='not nashata';
hide_mouse;
box (20,2,'x='+my_str(m_x)+' y='+my_str(m_y)+' left button'+s1+' right button' +s2);
show_mouse;
delay(1000);
if keypressed then key:=readkey;
until key=chr(27);
end;
end.