home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
GFXFX2.ZIP
/
UNITINT.ZIP
/
U_KB.INT
< prev
next >
Wrap
Text File
|
1995-02-14
|
586b
|
32 lines
(*
** Keyboard unit
** By Bas van Gaalen
*)
unit u_kb;
interface
type
scrsavetype=procedure;
getkeytype=record
clockon:boolean;
scrsavetime:word;
colattr,xpos,ypos:byte;
end;
var
scrsaveproc:scrsavetype;
keybehave:getkeytype;
function keypressed:boolean;
function readkey:char;
procedure clearkeybuf;
function getinskey:boolean;
procedure setinskey;
procedure clearinskey;
procedure waitkey(stoptime:word); { wait for a key or atleast stoptime seconds }
function getekey:word; { get extended key, see misc-unit for keycodes }