home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / surfmodl / surfm203.arc / SURFSRC.ARC / CHECKEY.INC < prev    next >
Encoding:
Text File  |  1987-12-23  |  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.