home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASDEMO2.ZIP / TESTKBD1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-16  |  228 b   |  12 lines
  1. program TestKbd;
  2. uses Crt, Turbo3;
  3. var
  4.    c: char;
  5. begin
  6.    read( Kbd, c );
  7.    if ( c = #27 ) and KeyPressed then begin
  8.       read( Kbd, c );
  9.       writeln( 'Extended key: ', c );
  10.    end else
  11.       writeln( c );
  12. end.