В переменной Butt процедура возвращает информацию о текущем состоянии кнопок мыши. Для каждой кнопки в этом слове выделен один бит (О—и бит для левой, 1 — и бит для правой и 2 — и бит для средней; О—и бит соответствует младшему разряду). Если бит имеет единичное значение, кнопка нажата, в противном случае отпущена.

Функция MousePressed. Возвращает True, если нажата любая кнопка мыши. Заголовок:

Function MousePressed: Boolean.

Процедура MouseButtPressed. Возвращает информацию о нажатии кнопки мыши. Заголовок:

Procedure MouseButtPressed (Butt: Integer;

var Stat, Count, X, Y: Integer).

Здесь Butt — флаг выбора нужной кнопки; Stat — состояние кнопок;

Count — количество нажатий указанной кнопки с момента последнего вызова функции; X,Y — координаты, соответствующие последнему нажатию.

Процедура MouseButtReleased. Возвращает информацию об отпускании кнопки мыши. Заголовок:

Procedure MouseButtReleased (Butt: Integer;

var Stat, Count, X, Y: Integer).

Здесь Butt — флаг выбора нужной кнопки; Stat — состояние кнопок;

Count — количество отпусканий указанной кнопки с момента последнего вызова функции; Х,У — координаты, соответствующие последнему от— пусканию.

4.2.5. Окна

Процедура MouseWindo.w. Определяет область перемещения указателя. Заголовок:

Procedure MouseWindow(X1,Y1,X2,Y2: Integer).

Здесь XI. ..Y2 — виртуальные координаты левого верхнего (X1,Y1) и правого нижнего (X2,Y2) углов.

После вызова процедуры указатель скачком перемещается в указанную область, если перед этим он не находился в ней.

Процедура MouseScreen. Делает доступным для перемещений указателя весь экран. Заголовок:

Procedure MouseScreen.

В процедуре используется обращение к функции $F прерывания $10 для того, чтобы определить текущий видеорежим.