home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / SURFMODL / SURFM203.ARC / SURFSRC.ARC / CHECKEY.INC < prev    next >
Encoding:
Text File  |  1987-12-22  |  364 b   |  16 lines
  1. function CHECKEY: boolean;
  2. { Return TRUE if the 'A' key has been pressed, or FALSE otherwise }
  3. var c: char;
  4.  
  5. begin
  6.   c := ' ';
  7.   if (keypressed) then begin
  8.     c := readkey;      (*read (kbd, c);*) (**)
  9.     if (upcase (c) = 'A') then
  10.       Checkey := TRUE
  11.     else
  12.       Checkey := FALSE;
  13.   end else
  14.     Checkey := FALSE;
  15. end; { function CHECKEY }
  16.