{—————————}

begin {Основная программа} CursorOff; {Удаляем курсор} SetTextScreen; {Формируем текстовый экран} {Инициируем мышь. Эту процедуру всегда следует осуществлять

после установки или смены режима работы дисплея} if not InitMouse then . Halt;

ShowMouse;

{Указываем элементы выбора) SetMouseItem(NItem,Items);

{Основной цикл работы продолжается до выбора элемента "Завершить работу" или нажатия Esc} {Запоминаем начальное состояние мыши} GetMouseState(b, x,у) ;

While (True) do {"Бесконечный" цикл} begin

{Проверяем выбор элементов} if KeyOrMousePressed then case ReadKeyOrMouse of {Есть выбор}

#27: Halt; {Esc}

#0: case ReadKeyOrMouse of

#59: ChangeCursor; {Fl-Изменить курсор}

#60: begin {F2-Сменить режим}

HideMouse; {Убираем мышь перед сменой режима} if Text then

SetGraphScreen {Был текстовый режим} else

SetTextScreen; {Был графический режим} if InitMouse then {Инициируем мышь

после смены режима!} ShowMouse;

SetMouseItem(NItem,Items) {Заново указываем элементы выбора, т.к. они сбрасываются при инициации мыши} end;

end {case} end; {case}

{Получаем текущее состояние мыши} GetMouseState(bb,xx,yy);

if (bbob) or (xxox) or (yyoy) then

begin {Состояние изменилось - сообщить} b := bb;

x : = xx ;

у := yy;

GotoXY(n+ll,2) ;

Write(MouseTextCooX(x):2);

GotoXY(n+16,2);