home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / SURFSRC3.ZIP / CHECKEY.INC < prev    next >
Encoding:
Text File  |  1989-08-10  |  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.