dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
loglan.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Added upstream from http://ftp.icm.edu.pl/pub/loglan/
[loglan.git]
/
sources
/
new-s5r4
/
inkeyos2.c
1
#define INCL_BASE
2
#include <os2.h>
3
4
int pascal inkey(dummy)
5
int *dummy;
6
{
7
KBDKEYINFO kdata;
8
int i;
9
unsigned u;
10
11
KbdPeek(&kdata, 0);
12
if (kdata.fbStatus)
13
{
14
KbdCharIn(&kdata, 0, 0);
15
if (kdata.chChar != '\0')
16
{
17
u = kdata.chChar;
18
return(u);
19
}
20
else
21
{
22
i = kdata.chScan;
23
if (i < 0x80) return(-i); else return(i);
24
}
25
}
26
else
27
return(0);
28
}