Pascal/Turbo Pascal - KeyCode

Uses CRT;

var

  tecla : char;

begin

  tecla:=readkey;

  if tecla=#0 then {Si se ha pulsado alguna tecla especial, estas tiene dos códigos, volvemos a leer}

    tecla:=readkey;

  write(ord(tecla)); {esto nos devuelve el código de la tecla pulsada}

end.

var

  tecla : char;

begin

  Repeat

    tecla:=readkey;

    if tecla=#0 then {Si se ha pulsado alguna tecla especial, estas tiene dos códigos, volvemos a leer}

       tecla:=readkey;

      write(ord(tecla)); {esto nos devuelve el código de la tecla pulsada}

  Until tecla=chr(27); {Rpetimos el proceso hasta que se pulse la tecla escape cuyo keycode es 27}

end.