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 >
Text File  |  1991-06-20  |  4KB  |  158 lines
  1. #output Force Tools 1.2 - System functions
  2.  
  3. *--- check if msdos SHARE is installed
  4. function logical is_share prototype
  5.  
  6. *--- install ctrl-alt-del handler
  7. procedure ctrl_alt_del prototype
  8.    params untyped proc_to_call
  9.  
  10. *--- destall handler before leaving the program !
  11. procedure destall_ctrl_alt_del prototype
  12.  
  13. *
  14. * determine cpu - type
  15. *
  16. function int cpu prototype
  17.  
  18. *--- return values for cpu
  19. #define  _80386    7
  20. #define  _80286    6
  21. #define  _80186    5
  22. #define  _80188    4
  23. #define  _v30      3
  24. #define  _v20      2
  25. #define  _8086     1
  26. #define  _8088     0 
  27.  
  28. *
  29. * set the lastkey value
  30. *
  31. procedure set_lastkey prototype
  32.    params value uint key_value
  33.  
  34. *
  35. * save the on key do setting
  36. *
  37. procedure save_on_key_do prototype
  38.  
  39. *
  40. * restore the on key do vector
  41. *
  42. procedure rest_on_key_do prototype
  43.  
  44. *
  45. * set the keyboard typeamatic repeate rate and delay
  46. *
  47. procedure typeamatic_rate prototype
  48.    params value int delay_rate, value int repeat_rate
  49.  
  50. #define  del_250     0                    && delay 1/4 sec. before repeat
  51. #define  del_500     1                    && delay 1/2 sec. before repeat
  52. #define  del_750     2                    && delay 3/4 sec. before repeat   
  53. #define  del_1000    3                    && delay 1 sec. before repeat
  54.  
  55. #define  rep_30      0                    && repeat 30 chr's per second
  56. #define  rep_26      1                    && repeat 26.7 chr's per second
  57. #define  rep_24      2                    && repeat 24 chr's per second
  58. #define  rep_20      4                    && repeat 20 chr's per second
  59. #define  rep_15      8                    && repeat 15 chr's per second
  60. #define  rep_10      10                   && repeat 10 chr's per second
  61. #define  rep_9       14                   && repeat 9.2 chr's per second
  62. #define  rep_7       16                   && repeat 7.5 chr's per second
  63. #define  rep_5       20                   && repeat 5 chr's per second
  64. #define  rep_2       31                   && repeat 2 chr's per second
  65.  
  66. *
  67. * interrogate / set INSERT mode 
  68. *
  69. function logical ins_key prototype
  70.    params value int set_request
  71.  
  72. *
  73. * interrogate / set NUM LOCK and turn led on/off
  74. *
  75. function logical numlock_key prototype
  76.    params value int set_request
  77.  
  78. *
  79. * interrogate / set CAPS LOCK and turn led on/off
  80. *
  81. function logical capslock_key prototype
  82.    params value int set_request
  83.  
  84. *
  85. * interrogate / set SCROLL LOCK and turn led on/off
  86. *
  87. function logical scrllock_key prototype
  88.    params value int set_request
  89.  
  90. *--- value's for set_request
  91. #define  get_mode  0                      && get status for ?_key function
  92. #define  set_on    1                      && set on for ?_key function
  93. #define  set_off   2                      && set off for ?_key function
  94.  
  95. *******************
  96. * ExeName()
  97. *
  98. * Name and path of 
  99. * the active EXE program
  100. *
  101. FUNCTION CHAR ExeName PROTOTYPE
  102.  
  103. ********************
  104. * SetHandles(<UINT>)
  105. *
  106. * Set the number of file
  107. * handles required by the program (See low level I/O)
  108. *
  109. * Para 1 : Number of handles (Max 255)
  110. * Ret    : errorcode (0 = Succes)
  111. *
  112. FUNCTION UINT SetHandles PROTOTYPE
  113.    PARAMS VALUE UINT
  114.  
  115. ********************
  116. * DosError()
  117. *
  118. * Return the last error from
  119. * a DOS operation
  120. *
  121. FUNCTION UINT DosError PROTOTYPE
  122.  
  123. ************
  124. * DosParam()
  125. *
  126. * Return the argument from a dos command line
  127. *
  128. FUNCTION CHAR DosParam PROTOTYPE
  129.  
  130. ************
  131. * BootCold()
  132. *
  133. * Reset the machine asif power
  134. * was turned on and off
  135. *
  136. PROCEDURE BootCold PROTOTYPE
  137.  
  138. ************
  139. * BootWarm()
  140. * 
  141. * Reset the machine
  142. *
  143. PROCEDURE BootWarm PROTOTYPE
  144.  
  145. ****************
  146. * IsAt()
  147. *
  148. * Find out of machine is a AT
  149. *
  150. FUNCTION LOGICAL IsAt PROTOTYPE
  151.  
  152. *
  153. * set the safety flag (force does support set safety)
  154. *
  155. procedure set_safety prototype
  156.    params value logical
  157.    
  158. * eof - fc_sys.hdr