Нажмите для просмотра прикрепленного файла
это модуль который я никак не могу заставить работать с следующей программой:
PROGRAM CHECK;
USES
CRT,GRAPH,DOPFORGR,MOUSE;
VAR
X,Y:INTEGER;
PRINTTEXT:STRING;
BUTTON:TBS;
BEGIN
SHOWMOUSE;
{ALLREGION;}
REPEAT
GETMOUSE(X,Y,BUTTON);
GOTOXY(10,10);
WRITE('X = ',X,'Y = ',Y,' ');
GOTOXY(10,11);
IF LEFT IN BUTTON
THEN WRITE('LEFT KEY')
ELSE WRITE('NO LEFT KEY');
GOTOXY(10,12);
IF RIGHT IN BUTTON
THEN WRITE('RIGHT KEY')
ELSE WRITE('NO RIGHT KEY');
UNTIL KEYPRESSED;
HIDEMOUSE;
READLN;
END.
по задумке прога должна показывать координаты мыши и нажата ли какая либо клавиша на ней,но ни то ни другое не пашет хотя в самоучителе написано всё так же за исключением имён переменных. Я первый раз вожусь с асамблером мож команды какие не те(в смысле зависимые от конкретной конфигурации компа)?
