мышь ассамблер и конечно PASCAL, проблемы,проблемы,проблемы Опции

[Glykaman]

прошу прощения что немного не в тему(наверное) я с асамблером сюда оброщаюсьно тем не менее нужна помошь.Сразу к делу:
 MOUSE.PAS ( 1.03 килобайт ) Кол-во скачиваний: 333

это модуль который я никак не могу заставить работать с следующей программой:

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.

по задумке прога должна показывать координаты мыши и нажата ли какая либо клавиша на ней,но ни то ни другое не пашет хотя в самоучителе написано всё так же за исключением имён переменных. Я первый раз вожусь с асамблером мож команды какие не те(в смысле зависимые от конкретной конфигурации компа)?

Сообщение отредактировано: Glykaman - 13.09.2007 22:45