Turbo Pascal 7.0 (программа-обработчик прерываний).

На вузовской заочке вот такой пример программы дан (в конце описание кода программы). Всё компилируется, но при запуске exe`шника в MS-DOS (эмулятор DOSBox) программа просто издаёт постоянный писк, на нажатие клавиш никак не реагирует.

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

Буду рад уже просто литературе какой-нибудь (не могу найти), где про прерывания и резидентные программы с потоками всё расписано для чайников.

 {$M $1000, 0, 0} 
Program Scan_code; 
Uses Crt, Dos; 
Var 
   OldKey: Procedure; 
   c, c1 : Byte; 
   vk1   : Boolean; 
 
{$F+} 
Procedure Key; Interrupt; { Обработчик прерывания. } 
Begin 
     c1 := c; 
     c  := Port[$60]; 
     if c = 1 then        { Нажали ESC. } 
        vk1 := true;      { Включен режим отображения кодов нажимаемых клавиш. } 
     if vk1 then 
        Begin 
             write(' kod=', c, ' '); 
             if c = c1 + 128 then writeln; { Отпустили клавишу. } 
        End; 
     Sound(1000); 
     Delay(100); 
     Nosound; 
     Inline($9C); 
     OldKey; 
End; 
{$F-}
 
Begin               { Основная программа. } 
     vk1 := false;  { Сначала режим отображения кодов выключен. } 
     GetIntVec($9, @OldKey); 
     SetIntVec($9, Addr(Key)); 
     Keep(0); 
End. 

Программа должна обрабатывать прерывание клавиатуры и каждое нажатие на клавишу сопровождать звуком. После нажатия на клавишу ESC программа начинает дополнительно выводить коды нажатых клавиш, причём код нажатия и код отжатия различаются на 128 и выводятся в одной строке. Коды следующей нажатой клавиши – на следующей строке и т.д. Для того чтобы проверить, является ли очередное прерывание клавиатуры сигналом отпускания клавиши, используется дополнительная переменная c1, в которую сохраняется предыдущее значение, считанное с порта клавиатуры. Если они различаются на 128 – клавиша отпущена.

Перед процедурой – обработчиком прерывания включается режим “дальней модели”, после него он выключается. В конце нового обработчика вызывается стандартный обработчик, который предварительно был сохранён под именем OldKey.