1 #include "graf\graf.h"
\r
6 int pascal inkey( dummy )
\r
10 int86( 0x16, &r, &r);
\r
11 if( r.x.ax == 0 ) return 0;
\r
15 int86( 0x16, &r, &r);
\r
16 if( r.h.al != '\0' )
\r
17 return (int)(unsigned char)( r.h.al );
\r
19 if( r.h.ah & '\x80' )
\r
20 return (int)( -r.h.ah );
\r
22 return (int)(unsigned char)( r.h.ah );
\r