home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
surfmodl
/
surfm203.arc
/
SURFSRC.ARC
/
CHECKEY.INC
< prev
next >
Wrap
Text File
|
1987-12-22
|
364b
|
16 lines
function CHECKEY: boolean;
{ Return TRUE if the 'A' key has been pressed, or FALSE otherwise }
var c: char;
begin
c := ' ';
if (keypressed) then begin
c := readkey; (*read (kbd, c);*) (**)
if (upcase (c) = 'A') then
Checkey := TRUE
else
Checkey := FALSE;
end else
Checkey := FALSE;
end; { function CHECKEY }