home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / SETENV.PRG < prev    next >
Encoding:
Text File  |  1990-04-07  |  3.8 KB  |  135 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: SETENV.PRG Set environmental settings.                  │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. * COMPLETE LIST OF SET COMMANDS
  8.  
  9. SET ALTERNATE        OFF  && Default
  10. SET ALTERNATE TO          && Default
  11. SET AUTOSAVE         OFF
  12. SET BELL             ON   && Default
  13. SET BLOCKSIZE TO     33   && Default
  14. SET BLINK            OFF  && Allows use of bright backgrounds
  15. SET BORDER TO        SINGLE
  16. SET CENTURY          OFF  && Default
  17. SET CLEAR            ON
  18. SET CLOCK            ON   && Default
  19. SET CLOCK TO         00,69
  20. SET COMPATIBLE       OFF  && Default
  21. SET CONFIRM          ON
  22. SET CONSOLE          ON   && Default
  23. SET CURRENCY         LEFT && Default
  24. SET DATE             AMERICAN  && Default
  25. IF .NOT. worker
  26.   SET DEBUG          OFF  && Default
  27. ELSE
  28.   * THE WORKER VARIABLE CONTROLS HOW VARIOUS SETTINGS ARE HANDLED THAT ARE
  29.   * HELPFUL DURING PROGRAM DEVELOPMENT. EXAMPLES: ESCAPE, DEVELOPMENT, ETC.
  30.   * Here's some examples of how you can use the WORKER environmental and
  31.   * FoxPro variables for your convenience.
  32.   * SET DISPLAY TO     EGA43
  33.   * SET DEBUG          ON
  34.   * SET STEP ON
  35. ENDIF
  36. SET DECIMALS TO      2   && Default
  37. SET DEFAULT TO           && LEAVE SET TO CURRENT DEFAULT DRIVE
  38. SET DELETED          ON
  39. IF worker
  40.   SET DEVELOPMENT    ON
  41. ELSE
  42.   SET DEVELOPMENT    OFF && Default
  43. ENDIF
  44. SET DEVICE TO        SCREEN && Default
  45. *SET DISPLAY         && ACCEPT DEFAULT, WHICH MEANS 25 LINE MODE COLOR OR MONO
  46. SET DOHISTORY        OFF  && Default
  47. SET ECHO             OFF  && Default
  48. IF worker            && TURN OFF FOR LIVE USE, ON FOR PROGRAMMING & TESTING
  49.   SET ESCAPE         ON
  50. ELSE
  51.   SET ESCAPE         OFF  && Default
  52. ENDIF
  53. SET EXACT            OFF
  54. SET EXCLUSIVE        ON
  55. SET FIELDS           OFF
  56. SET FIXED            ON
  57. SET FORMAT           TO
  58. SET FULLPATH         ON
  59. SET HEADING          ON
  60. SET HELP             ON
  61. SET HOURS TO         12
  62. SET INTENSITY        ON
  63. IF worker
  64.   SET logerror       ON
  65. ELSE
  66.   SET logerror       OFF
  67. ENDIF
  68. SET MARGIN TO        0
  69. SET MARK TO          "-"  && THIS IS THE DATE FIELD SEPARATOR
  70. *  THE DEFAULT IS "/"
  71. *  WE'RE USING SOMETHING DIFFERENT HERE
  72. SET MEMOWIDTH TO     80
  73. SET MENU             ON
  74. SET MESSAGE TO       23
  75. SET notify           ON
  76. SET NEAR             OFF
  77. SET ODOMETER TO      1  && SET UP TO 10 OR 100 IN LARGER APPLICATIONS
  78. SET PATH TO          && ACCEPT DEFAULT PATHS
  79. SET POINT TO         "."
  80. SET PRECISION TO     3
  81. SET PRINT            OFF
  82. SET PRINTER TO       lpt1
  83. SET SAFETY           OFF
  84. SET SCOREBOARD       OFF
  85. SET SEPARATOR TO     ","
  86. SET SPACE            OFF
  87. SET STATUS           OFF
  88. IF .NOT. worker
  89.   SET STEP           OFF
  90. ENDIF
  91. SET sticky           ON
  92. SET TALK             OFF
  93. SET TOPIC TO
  94. SET TYPEAHEAD TO     0    && CLEAR AWAY ANY OVERANXIOUS INPUT!
  95. SET TYPEAHEAD TO     25
  96. SET UNIQUE           OFF
  97.  
  98.  
  99. * SET THE INSERT / CAPS / NUMLOCK KEYS
  100. * NOTE: LOOKUP POPUPS WORK BETTER WITH INSMODE OFF, AS BELOW
  101.  
  102. = INSMODE(.f.)
  103. = CAPSLOCK(.f.)
  104. = NUMLOCK(.f.)
  105.  
  106. * SYSTEM VARIABLE SETTINGS
  107. _alignment =  "LEFT"
  108. _box =        .t.
  109. _indent =     0
  110. _lmargin =    0
  111. _padvance =   "FORMFEED"
  112. _pageno =     1
  113. _pbpage =     1
  114. _pcopies =    1
  115. _pecode =     ""
  116. _peject =     "AFTER"
  117. _pepage =     32767
  118. _pform =      ""
  119. _plength =    66
  120. _ploffset =   0
  121. _ppitch =     "PICA"
  122. _pquality =   .t.
  123. _pscode =     ""
  124. _pspacing =   1
  125. _pwait =      .f.
  126. _rmargin =    80
  127. _tabs =       "10, 20, 30, 40, 50, 60, 70"
  128. _wrap =       .t.
  129.  
  130. * KEYBOARD
  131.  
  132. ON KEY LABEL RIGHTMOUSE KEYBOARD CHR(13)
  133.  
  134. RETURN
  135.