/* ACE Laboratory
 * VNS
 * Sergey Yatsenko
 * Lib: Help window & keyb interrupt
 */

byte m_ve[11];

word oldkeboard[2];
byte h_flag;

struct A_BUTONS
{
	byte ypos;
	byte xpos;
	byte len; 			//длина кнопки
	byte hkey;//горячая клавиша
	byte select;//активная ли сейчас кнопка
	int but;				//название кнопки
	int mes;				//сообщение внижней строке
	int proc; 			//вызываемая процедура
};

interrupt keyboard_int()		/* KEYBOARD */
{
 $ PUSH DS
 $ PUSH AX
 DS=CSWORD[#SEGDS];
 $ IN AL,0x60
 IF( AL == s_ctrl ) h_flag=FALSE;
 $ POP AX
 $ POP DS
 $ CS:
 $ JMP FAR oldkeboard
} 													/* KEYBOARD */

void SET_KEYINT()
{
 @GETINTVECT(#oldkeboard,KEYBOARD_INT);
 SETINTVECT( ,KEYBOARD_INT,CS,#keyboard_int);
}

void CLEAR_KEYINT()
{
 SETINTVECT( ,KEYBOARD_INT,oldkeboard[2],oldkeboard[0]);
}

void RSCC()
{
 for(;;){
	hRead(0);
	IF(AL==evKeyboard){
		IF(Event.keyCode==k_esc)||(Event.keyCode==k_return)BREAK;
	 }
	 ELSE IF(AL==evCloseWin)BREAK;
 }
}
byte about_message =
"\n Эта программа создана компанией ACE Laboratory\n"
" для поддержки проекта ACE PCI TOOL KIT 1.2\n"
" К ней прилагается полный исходный текст, который\n"
" Вы можете использовать в своих целях без\n"
" каких-либо ограничений.\n\n"
" Исходный текст написан с использованием,\n"
" свободно доступного компилятора С-- версии 0.214\n"
" Компилятор доступени на WEB странице его \n"
" разработчика по адресу\n"
" http://www.chat.ru/~sheker/\n\n\n"
"(c) ACE Laboratory, Sergey Yatsenko";

void set_resource()
{
	hWindow(modeCenter,modeCenter,16,50,"About programm",idHelp,TRUE);
	wputs(#about_message);
	RSCC();
	rWindow();
}

/* EOF */
