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)