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} ^———————————_———_