Newer
Older
ubixfs-2 / keytest.pas
@flameshadow flameshadow on 10 Jun 2005 115 bytes UbixFS
uses crt, dos;
var ky:char;
begin
  repeat
    ky := readkey;
    writeln(ord(ky));
  until ky = #27;
end.