Pascal/Turbo Pascal - Lo encontraron

Un Amigo a encontrado como sacar algunos READKEY, como CTRL+A, etc.

uses Crt;

var
C: Char;

begin
clrscr;
Writeln('Presione una tecla');
C := Readkey;
Writeln('Usted presiono ',C, ' el cual su valor ascii es ', Ord(C), '.');
readln;
end.

Donde escribe ord(c), es el número que se pone en el case o en el if y se le antepone un #, gracias a Liu-kang.

SAludosp

No marca todas las teclas, por ejemplo que este es un defecto de PAscal(ñ), no reconoce la "ñ", entonces si presionas Ctrl+Ñ te lo toma como 0 ó 255.

Perdón si lo arreglan me avisan.

Prueba con este programa
var
A:char;
begin
repeat
A:=ReadKey;
if A = #0 then
begin
Write('Tecla especial: ');
A:=ReadKey;
WriteLn(Ord(A));
end
else
WriteLn('Tecla normal: ',Ord(A));
until A=#27;
end.