ОТДЕЛ Клавиши+;
(* НАЗНАЧЕНИЕ: показать нажата клавиша или мыша *)
ИСПОЛЬЗУЕТ 
  ОБХОД,
  КОС   ИЗ "...\Отделы\Обмен\",
  ОС    ИЗ "...\Отделы\Обмен\",
  Ввод  ИЗ "...\Отделы\Обмен\",
  Вывод ИЗ "...\Отделы\Обмен\";

(******************************************************************************)
ЗАДАЧА Показать;
ПЕР
  отКлавиш:Ввод.ОтКлавиш;
  отМышки:Ввод.ОтМышки;
  родп,сдвиг:ЦЕЛ;
УКАЗ
  КОЛЬЦО
    КОС.ЖдатьВвод(-1);
    родп:=КОС.Опрос(отКлавиш,отМышки);
    ЕСЛИ родп = Ввод.клавиши ТО
      ЕСЛИ отКлавиш.код = 1BH ТО
        ВОЗВРАТ
      КОН;
      ЕСЛИ отКлавиш.знак < ' ' ТО
        Вывод.ЧЦел("%.2x %.2x %.2xX %x^",
отКлавиш.код, отКлавиш.мкод, ВЦЕЛ(отКлавиш.знак), ОБХОД.Значение(ЦЕЛ,отКлавиш.упрКнопки)
                  )
      ИНАЧЕ
        Вывод.ЧЦел("%.2x %.2x '%c' %x^",
отКлавиш.код, отКлавиш.мкод, ВЦЕЛ(отКлавиш.знак), ОБХОД.Значение(ЦЕЛ,отКлавиш.упрКнопки)
                  );
        Вывод.ЧЦел("%x^^",ОС.ВинЗнакВКодКлавиши(отКлавиш.знак),0,0,0)
      КОН
    АЕСЛИ родп = Ввод.мышка ТО
      Вывод.ЧЦел("%.2x %.2x ", отМышки.к, отМышки.с, 0,0);
      Вывод.ЧЦел("%.2x %.2x %.2x %d^",ОБХОД.Значение(ЦЕЛ,отМышки.кнопки),
                                    ОБХОД.Значение(ЦЕЛ,отМышки.упрКнопки),
                                    ОБХОД.Значение(ЦЕЛ,отМышки.события),
                                    отМышки.прокрут
                );
    КОН
  КОН
КОН Показать;

УКАЗ
  Показать
КОН Клавиши.

▲ Вопросы, замечания и предложения высылайте на atimopheyev@yahoo.com или Издателю Глагола: