home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
FOXPRO
/
FCT1_12
/
FC_SYS.HDR
< prev
next >
Wrap
Text File
|
1991-06-20
|
4KB
|
158 lines
#output Force Tools 1.2 - System functions
*--- check if msdos SHARE is installed
function logical is_share prototype
*--- install ctrl-alt-del handler
procedure ctrl_alt_del prototype
params untyped proc_to_call
*--- destall handler before leaving the program !
procedure destall_ctrl_alt_del prototype
*
* determine cpu - type
*
function int cpu prototype
*--- return values for cpu
#define _80386 7
#define _80286 6
#define _80186 5
#define _80188 4
#define _v30 3
#define _v20 2
#define _8086 1
#define _8088 0
*
* set the lastkey value
*
procedure set_lastkey prototype
params value uint key_value
*
* save the on key do setting
*
procedure save_on_key_do prototype
*
* restore the on key do vector
*
procedure rest_on_key_do prototype
*
* set the keyboard typeamatic repeate rate and delay
*
procedure typeamatic_rate prototype
params value int delay_rate, value int repeat_rate
#define del_250 0 && delay 1/4 sec. before repeat
#define del_500 1 && delay 1/2 sec. before repeat
#define del_750 2 && delay 3/4 sec. before repeat
#define del_1000 3 && delay 1 sec. before repeat
#define rep_30 0 && repeat 30 chr's per second
#define rep_26 1 && repeat 26.7 chr's per second
#define rep_24 2 && repeat 24 chr's per second
#define rep_20 4 && repeat 20 chr's per second
#define rep_15 8 && repeat 15 chr's per second
#define rep_10 10 && repeat 10 chr's per second
#define rep_9 14 && repeat 9.2 chr's per second
#define rep_7 16 && repeat 7.5 chr's per second
#define rep_5 20 && repeat 5 chr's per second
#define rep_2 31 && repeat 2 chr's per second
*
* interrogate / set INSERT mode
*
function logical ins_key prototype
params value int set_request
*
* interrogate / set NUM LOCK and turn led on/off
*
function logical numlock_key prototype
params value int set_request
*
* interrogate / set CAPS LOCK and turn led on/off
*
function logical capslock_key prototype
params value int set_request
*
* interrogate / set SCROLL LOCK and turn led on/off
*
function logical scrllock_key prototype
params value int set_request
*--- value's for set_request
#define get_mode 0 && get status for ?_key function
#define set_on 1 && set on for ?_key function
#define set_off 2 && set off for ?_key function
*******************
* ExeName()
*
* Name and path of
* the active EXE program
*
FUNCTION CHAR ExeName PROTOTYPE
********************
* SetHandles(<UINT>)
*
* Set the number of file
* handles required by the program (See low level I/O)
*
* Para 1 : Number of handles (Max 255)
* Ret : errorcode (0 = Succes)
*
FUNCTION UINT SetHandles PROTOTYPE
PARAMS VALUE UINT
********************
* DosError()
*
* Return the last error from
* a DOS operation
*
FUNCTION UINT DosError PROTOTYPE
************
* DosParam()
*
* Return the argument from a dos command line
*
FUNCTION CHAR DosParam PROTOTYPE
************
* BootCold()
*
* Reset the machine asif power
* was turned on and off
*
PROCEDURE BootCold PROTOTYPE
************
* BootWarm()
*
* Reset the machine
*
PROCEDURE BootWarm PROTOTYPE
****************
* IsAt()
*
* Find out of machine is a AT
*
FUNCTION LOGICAL IsAt PROTOTYPE
*
* set the safety flag (force does support set safety)
*
procedure set_safety prototype
params value logical
* eof - fc_sys.hdr