home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
query87.zip
/
QSETKEY.C
< prev
next >
Wrap
Text File
|
1988-05-31
|
401b
|
30 lines
/*
Routines for retrieving global variables from Clipper - Summer '87
R. Whitt - 5/28/88
*/
#include "nandef.h"
#include "extend.h"
/* Set key values */
struct keystruct
{
int keyval;
unsigned int segaddr;
unsigned int offaddr;
};
extern struct keystruct _keyset[32];
CLIPPER setkey()
{
_retni( _keyset[_parni(1) - 1].keyval );
}