home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / GOODIES / SETSET.PRG < prev   
Encoding:
Text File  |  1989-10-08  |  2.5 KB  |  88 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: SETSET.PRG
  4. *:
  5. *:         System: FoxPro SET Option Save/Restore Example
  6. *:         Author: Fox Software, Inc.
  7. *:      Copyright (c) 1989, Fox Software, Inc.
  8. *:  Last modified: 10/07/89     10:41
  9. *:
  10. *:            Notes:    This program is the other half of
  11. *:                    SETSAVE.PRG.  In actual practice,
  12. *:                    you'll only want to save/restore the
  13. *:                    specific SET options you are going to
  14. *:                    change in your routine.  This is because
  15. *:                    this routine works largely by means of
  16. *:                    macro substitution and this is comparatively
  17. *:                    inefficient.
  18. *:
  19. *:      Documented 10/07/89 at 10:45               FoxDoc  version 2.0
  20. *:*********************************************************************
  21. SET AUTOSAVE &_oldsets(1)
  22. SET BELL &_oldsets(2)
  23. SET blink &_oldsets(3)
  24. SET BLOCKSIZE TO &_oldsets(4)
  25. SET CARRY &_oldsets(5)
  26. SET CENTURY &_oldsets(6)
  27. SET CLEAR &_oldsets(7)
  28. SET CLOCK &_oldsets(8)
  29. SET COLOR TO &_oldsets(9)
  30. SET compatible &_oldsets(10)
  31. SET CONFIRM &_oldsets(11)
  32. SET CONSOLE &_oldsets(12)
  33. SET CURRENCY &_oldsets(13)
  34. SET DATE &_oldsets(14)
  35. SET DEBUG &_oldsets(15)
  36. SET DECIMALS TO &_oldsets(16)
  37. SET DEFAULT TO &_oldsets(17)
  38. SET DELETED &_oldsets(18)
  39. SET DELIMITERS &_oldsets(19)
  40. SET DEVELOPMENT &_oldsets(20)
  41. SET DEVICE TO &_oldsets(21)
  42. SET DOHISTORY &_oldsets(22)
  43. SET ECHO &_oldsets(23)
  44. SET ESCAPE &_oldsets(24)
  45. SET EXACT &_oldsets(25)
  46. SET EXCLUSIVE &_oldsets(26)
  47. SET FIELDS &_oldsets(27)
  48. *    SET FILTER TO &_oldsets(28)
  49. SET FIXED &_oldsets(29)
  50. SET FULLPATH &_oldsets(30)
  51. SET HEADING &_oldsets(31)
  52. SET HELP &_oldsets(32)
  53. SET HISTORY &_oldsets(33)
  54. SET HOURS TO &_oldsets(34)
  55. SET INTENSITY &_oldsets(35)
  56. SET MARGIN TO &_oldsets(36)
  57. SET MARK TO &_oldsets(37)
  58. SET MEMOWIDTH TO &_oldsets(38)
  59. SET MENU &_oldsets(39)
  60. SET MESSAGE TO &_oldsets(40)
  61. SET mouse TO &_oldsets(41)
  62. SET NEAR &_oldsets(42)
  63. SET ODOMETER TO &_oldsets(43)
  64. SET PATH TO &_oldsets(44)
  65. SET POINT TO &_oldsets(45)
  66. SET PRINT &_oldsets(46)
  67. SET RESOURCE &_oldsets(47)
  68. SET SAFETY &_oldsets(48)
  69. SET SCOREBOARD &_oldsets(49)
  70. SET SEPARATOR TO &_oldsets(50)
  71. SET SHADOW &_oldsets(51)
  72. SET SPACE &_oldsets(52)
  73. SET STATUS &_oldsets(53)
  74. SET STEP &_oldsets(54)
  75. SET sticky &_oldsets(55)
  76. SET sysmenus &_oldsets(56)
  77. SET TALK &_oldsets(57)
  78. SET TITLE &_oldsets(58)
  79. SET TYPEAHEAD TO &_oldsets(59)
  80. SET UNIQUE &_oldsets(60)
  81. = INSMODE(_oldsets(61))            && Note usefulness of
  82. = CAPSLOCK(_oldsets(62))        && '=' evaluate command.
  83. = NUMLOCK(_oldsets(63))
  84.  
  85. RELEASE _oldsets
  86. RETURN
  87. *: EOF: SETSET.PRG
  88.