home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DISKVR20.ZIP / KEYIN.INC < prev    next >
Encoding:
Text File  |  1986-02-07  |  713 b   |  17 lines
  1. {----------------------------------------------------------------------}
  2. {             Keyin :       Key input from keyboard                    }
  3. {----------------------------------------------------------------------}
  4.   Function Keyin: Byte;   { Single-Key Input Routine (MSDOS/PCDOS) }
  5.     Const
  6.       Esc      = #27;       { Esc key                }
  7.     Var
  8.       Ch      :char;
  9.      Begin
  10.            Read(Kbd,Ch);
  11.            if (Ch = Esc) and keypressed then
  12.               begin                    { If extended key type get }
  13.               Read(kbd,Ch);            { get next key in          }
  14.               end;
  15.            Keyin := Ord(Ch) ;          { Assign input to Output   }
  16.      End;
  17.