Asc Ii, нужны коды ??? Опции

[Chief]

Подскажите коды ASC II клавиш 'backspase', 'tab', 'capslock', 'shift', 'ctrl', 'alt'.
Или скажите где взять таблицу с этими кодами.

[volvo]

Ну, а чтобы посмотреть, как изменяется байт $0:$417 при нажатии регистровых клавиш, делаем так (для выхода - Esc):

Код

uses crt;

function binary(x: longint; numOfBits: byte): string;
 var
   bit, i: byte;
   s: string[32];
 begin
   s := '';
   for i := 0 to 31 do
     begin
       bit := (x shl i) shr (31);
       s := s + chr(ord('0') + bit)
     end;
   delete(s, 1, 32 - numOfBits);
   binary := s
 end;

var
 m: byte absolute $0000:$0417;
 ch: char;
begin
 clrscr;
 ch := #0;
 repeat
   writeln(m:10, ' ', binary(m, 8));
   if keypressed then ch := readkey;
 until ch = #27;

 while keypressed do readkey
end.