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
/
int
/
inkeyos2.c
1
#define INCL_BASE
\r
2
#include <os2.h>
\r
3
\r
4
int pascal inkey(dummy)
\r
5
int *dummy;
\r
6
{
\r
7
KBDKEYINFO kdata;
\r
8
int i;
\r
9
unsigned u;
\r
10
\r
11
KbdPeek(&kdata, 0);
\r
12
if (kdata.fbStatus)
\r
13
{
\r
14
KbdCharIn(&kdata, 0, 0);
\r
15
if (kdata.chChar != '\0')
\r
16
{
\r
17
u = kdata.chChar;
\r
18
return(u);
\r
19
}
\r
20
else
\r
21
{
\r
22
i = kdata.chScan;
\r
23
if (i < 0x80) return(-i); else return(i);
\r
24
}
\r
25
}
\r
26
else
\r
27
return(0);
\r
28
}
\r