Intr($lO,Reg);

case al of 1,4,5,13: begin

x2 :» 319;

y2 := 199 end;

15,16: begin

x2 := 639;

y2 :» 349 end;

17,18: begin

x2 :- 639;

y2 := 479 end;

else

x2 := 639;

y2 := 199 end end;

MouseWindow(0,0,x2,y2) end; {MouseScreen} ^—————————————————————————————+

I Ôîðìà óêàçàòåëÿ I +—————.———————————————————————+;

Procedure ShowMouse;

(Ïîêàçàòü óêàçàòåëü ìûøè/ begin

if isMouse and not MouseVisible then with Reg do begin ax :- $1;

Intr($33,Reg);

MouseVisible :» True and end; {ShowMouse} ^—..————————————.^

Procedure HideMouse;

{Óáðàòü óêàçàòåëü ìûøè/ begin

if IsMouse and MouseVisible then with Reg do begin

ax := $2;

Intr($33,Reg);

MouseVisible :- False end end; (HideMouse) ^———————————————;

Procedure MouseTextCursor(ScrMask,CurMask: Word);

(Óñòàíàâëèâàåò íîâûé âèä òåêñòîâîãî óêàçàòåëÿ} begin

if IsMouse then with Reg do begin

ax := $A;

bx :=• 0;

ex :» ScrMask;

dx := CurMask;

Intr($33,Reg) end

end; {MouseTextCursor} ^———————————_———_