home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / shareuti / expand53 / expand.ch next >
Encoding:
Text File  |  1992-08-23  |  1.2 KB  |  44 lines
  1. * ------------------------------------------------------------------------
  2. * File........:    EXPAND.CH
  3. * Author......:    Pepijn Smits
  4. * Copyright...:    (c)1992, by Softwarebureau Pepijn Smits
  5. * Date........:    August 1992.
  6. * Compiler....:    Clipper 5.01
  7. * Notes.......:    Expand Library standard Header file. 
  8. * ------------------------------------------------------------------------
  9.  
  10. *        Default values for Parameters
  11. #command    DEFAULT <Param> [TO] <Value>    ;
  12.         =>                ;
  13.         <Param> := If( <Param> = NIL , <Value> , <Param> )
  14.  
  15. *        Adapt Statics when parameters have been supplied
  16. #command    ADAPT <Value> [TO] <Param>    ;
  17.         =>                ;
  18.         <Value> := If( <Param> = NIL , <Value> , <Param> )
  19.  
  20. *        Alleviate a big frustration for us Dutch.. 
  21. #command    SET DATE [TO] DUTCH        ;
  22.         =>                ;
  23.         SET DATE FORMAT TO "DD-MM-YYYY"
  24.  
  25. *        Date Format to the setting from DOS
  26. #command    SET DATE [TO] DOS [COUNTRY]    ;
  27.         =>                ;
  28.         SET DATE FORMAT TO XPdateFormat()
  29.  
  30. #define     K_SPACE        32    // Missing in inkey.ch
  31.  
  32. #define        CPS30         0    // Chars/Second for XPkeySpeed()
  33. #define        CPS24         2
  34. #define        CPS20         4
  35. #define        CPS15         8
  36. #define        CPS10        12
  37. #define        CPS8        15
  38. #define        CPS6        18
  39. #define        CPS5        20
  40. #define        CPS4        23
  41. #define        CPS3        26
  42. #define        CPS2        31
  43.  
  44.