{ Turbo Pascal 5.5 unit READKEY.TPU for ATARI Portfolio
  (C)1992 RoTo    Rostislav Tomes 

  TEST.PAS - simple program for testing READKEY.TPU
             shows scan codes of keys or funcion keys
             pressed on keyboard
}

Uses ReadKey;
Var ch:Char;
Begin
  Repeat
    ch:=ReadExtKey;
    Write(Ord(ch):3);
    If ch=#0
       Then Begin
              ch:=ReadExtKey;
              Write(':',Ord(ch):3);
            End;
    WriteLn
  Until ch=#27;
End.