home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
USCX
/
TURBO-06.ZIP
/
INKEY.INC
< prev
next >
Wrap
Text File
|
1985-02-23
|
314b
|
16 lines
type
regpack = record
ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
end;
ctype = char;
Var
R : regpack;
a,ch : char;
function inkey : ctype;
begin
r.ax := $7 shl 8;
msdos(R);
inkey := chr((r.ax) and 255);
end;