-
Notifications
You must be signed in to change notification settings - Fork 96
/
putkey.c
37 lines (28 loc) · 851 Bytes
/
putkey.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
/* This is an original work by Ted Means and is placed in the public domain.
Rev 1.4 16 Oct 1992 00:00:56 GLENN
Just making sure we have Ted's latest revisions.
Rev 1.3 01 Jul 1992 01:07:02 GLENN
putkey.asm now bypasses the BIOS completely and uses Clipper's
internal event handler to stuff the keystroke. Modifications by
Ted Means.
Rev 1.2 15 Aug 1991 23:07:10 GLENN
Forest Belt proofread/edited/cleaned up doc
Rev 1.1 14 Jun 1991 19:54:56 GLENN
Minor edit to file header
Rev 1.0 01 Apr 1991 01:03:48 GLENN
Nanforum Toolkit
*/
#include "hbapi.h"
#include "hbapigt.h"
HB_FUNC( FT_PUTKEY )
{
HB_BOOL lSuccess;
if( HB_ISNUM( 1 ) )
{
hb_inkeyPut( hb_parni( 1 ) );
lSuccess = HB_TRUE;
}
else
lSuccess = HB_FALSE;
hb_retl( lSuccess );
}