home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
query87.zip
/
QUERY87.DOC
< prev
next >
Wrap
Text File
|
1988-06-22
|
3KB
|
100 lines
The following functions allow queries into Clipper '87's SET parameters.
All of the routines are in QUERY87.LIB as well as in seperate .OBJ files.
These routines are contributed to the public domain and no warranty or
fitness for use is claimed.
Rick Whitt, SysOp
dBoard BBS - Winston-Salem, NC
(919) 768-3043
June 20, 1988
* Logical ( returns .T. or .F. )
ISALT() - Returns .T. if ALTERNATE is set ON
ISALT_C() - .T. if ALT-C cancel is ON. See SET_ALTC() below.
ISBELL() - .T. if BELL is set ON
ISCARRY() - .T. if CARRY is set ON
ISCENT() - .T. if CENTURY is set ON
ISCONF() - .T. if CONFIRM is set ON
ISCONSOL() - .T. if CONSOLE is set ON
ISCURSOR() - .T. if CURSOR is ON
ISDELIM() - .T. if DELIMITER is set ON
ISESC() - .T. if ESCAPE is set ON
ISEXACT() - .T. if EXACT is set ON
ISEXCLUS() - .T. if EXCLUSIVE is set ON
ISFIXED() - .T. if FIXED is set ON
ISINTENS() - .T. if INTENSITY is set ON
ISPRNTON() - .T. if CARRY is set ON
ISSCORE() - .T. if SCOREBOARD is set ON
ISSOFT() - .T. if SOFTSEEK is set ON
ISUNIQUE() - .T. if UNIQUE is set ON
ISWRAP() - .T. if WRAP is set ON
* Numeric - returns an integer
GETDECIM() - Returns the currnet DECIMALS setting
GETMARG() - Returns the currnet MARGINS setting
* Character - Returns character or string.
GETDEFA() - Returns the current DEFAULT drive/directory
GETPATH() - Returns the current PATH
LDELIM() - Returns the current left DELIMITER
RDELIM() - Returns the current right DELIMITER
* Miscellaneous garbage
ALTHANDL() - Returns the DOS handle number of an open ALTERNATE
file, for use with the direct file functions.
SETKEY(n) - Returns the inkey value of the n'th SET KEY
DATEFORM() - Returns the current date format, ie 'AMERICAM',
'BRITISH', etc.
GETKEYS(array) - Pass a 32 element array, array will be filled with
inkey values of all SET KEYs, 0 in an element for
which no key is set. Returns a 1 if array is not
32 in length, 0 otherwise.
SET_ALTC(n) - Sets ON/off the ability for Alt-C to interrupt Clipper
programs - SET ESCAPE OFF will not do it in '87.
Pass a 0 to turn it off or a 1 to turn it on. If you
then wish to capture Alt-C in an INKEY() function, you
will have to first trap for INKEY() = 0 ( what Alt-C
returns ), then see if LASTKEY() = 302.