home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / visible.arj / INKEY < prev    next >
Text File  |  1985-08-08  |  640b  |  23 lines
  1. PROGRAM INKEY;  {program shows direct key input, with explicit echo}
  2. {note that function keys return their extended code in hibyte}
  3. VAR
  4.   CH:CHAR;
  5.   KEY:INTEGER;
  6.  
  7. BEGIN
  8.   REPEAT
  9.     WRITELN('key?');
  10.     KEY := ORD(INKEY);
  11.     IF KEY MOD 256 = 0 THEN             {if CH = 0, its a function key}
  12.       BEGIN     {extended code}
  13.         CH := CHR(0);
  14.         WRITE("that's a function key; ");
  15.         WRITELN('second code = ',KEY / 256);
  16.       END ELSE 
  17.       BEGIN
  18.         CH := CHR(KEY);
  19.         WRITELN('the key was:',CH);
  20.       END;
  21.   UNTIL CH = '.';
  22. END.
  23.