мышь ассамблер и конечно 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

[Glykaman]

У меня появилась ещё одна проблема куда менее предвиденная:
Вот архив с программой:  Архив_WinRAR.rar ( 7.51 килобайт ) Кол-во скачиваний: 281
(Neonmoon.pas исполняемый код программы)
которую я разрабатываю вот уже пол месяца.
недавно начал подсоединять мышь вот по этой инструкции: мышь и всё о её подключении
со стандартным видео драйвером всё впорядке - работает правда с 16 цветами,кактолько я подключаю BGI256.BGI меня выкидывает в XP с сообщением "Процессор NTVDM обнаружил недопустимую инструкцию"
и выполнение задачи прекращается. Я пробовал подключать другие драйвера(VESA256,SVGA,...) всё равно ничего не выходит. но когда я закоментирую процедуру SHOWMOUSE в исполняемом коде,(мышь не показывается) зато все остальные процедуры работы с мышью работают без ошибок.скажите что я сделал неправильно?