home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / XCRT.ZIP / CHARNO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-09-28  |  266 b   |  14 lines
  1. uses Crt;
  2. var c:char;
  3. begin
  4.   repeat
  5.     gotoXY(10,10); repeat until keypressed;
  6.     c := ReadKey;
  7.     clreol;
  8.     if c = #0 then begin
  9.       write('Extended Key Code :  ',ord(c),',');
  10.       c := ReadKey;
  11.     end;
  12.     write(ord(c));
  13.   until c=#27;
  14. end.