home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASDEMO2.ZIP / TESTKBD2.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-16  |  175 b   |  10 lines
  1. program TestReadyKey;
  2. uses Crt;
  3. var c: char;
  4. begin
  5.    c := ReadKey;
  6.    if ( c = #0 ) then
  7.       writeln( 'Extended key: ', ReadKey )
  8.    else
  9.       writeln( c );
  10. end.