home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / SAVESET / SAVESET.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  2.3 KB  |  89 lines
  1. ****************************************************************
  2. * Filename : SAVESET.PRG
  3. * 
  4. * Date     : July 7, 1992
  5. * Purpose  : Saves FoxPro environment
  6. ****************************************************************
  7. *
  8. PRIVATE Save_Set, Set_Value, Set_OnOff
  9. DECLARE Save_Set[52+26+36], Set_Value[26], Set_OnOff[52]
  10. IF FILE("SETNAMES.MEM")
  11.     && Restore SET keywords from memvar file, SETNAMES.MEM
  12.      RESTORE FROM SETNAMES ADDITIVE
  13. ELSE
  14.     DO SETNAMES                  && Initialize array of SET keywords
  15. ENDIF
  16. *
  17. ********************************************************
  18. * Fetch all set parameters with YES/NO values
  19. *    Store .T. for ON and .F. for OFF
  20. Set_J= 37
  21. FOR Set_I = 1 TO 52
  22.     Save_Set[Set_J] = (SET( Set_OnOff[Set_I] ) = "ON")
  23.     Set_J = Set_J + 1
  24. ENDFOR
  25. *
  26. **********************************************************
  27. * Retrive other for SET parameters
  28. *
  29. FOR Set_I = 1 TO 18
  30.     Save_Set[Set_J] = SET( Set_Value[Set_I] ) 
  31.     ? Set_value[Set_I],SET( Set_Value[Set_I] )
  32.     Set_J = Set_J + 1    
  33. ENDFOR
  34. ?
  35. ? "two argument set function"
  36. FOR Set_I = 19 TO 24
  37.     Save_Set[Set_J] = SET( Set_Value[Set_I],1 ) 
  38.     ? Set_value[Set_I],SET( Set_Value[Set_I],1 )
  39.     Set_J = Set_J + 1    
  40. ENDFOR
  41. Save_Set[Set_J]   = SET( Set_Value[25] ) 
  42. Save_Set[Set_J+1] = SET( Set_Value[26] ) 
  43. *
  44. **************************************************************
  45. * Save system memvars
  46. *
  47. Save_Set[1] = _ALIGNMENT
  48. Save_Set[2] = _BOX
  49. Save_Set[3] = _CALCMEM
  50. Save_Set[4] = _CALCVALUE
  51. Save_Set[5] = _CUROBJ
  52. Save_Set[6] = _DBLCLICK
  53. Save_Set[7] = _DIARYDATE
  54. Save_Set[8] = _INDENT
  55. Save_Set[9] = _LMARGIN
  56. Save_Set[10] = _PADVANCE
  57. Save_Set[11] = _PAGENO
  58. Save_Set[12] = _PBPAGE
  59. Save_Set[13] = _PCOLNO
  60. Save_Set[14] = _PCOPIES
  61. Save_Set[15] = _PDRIVER
  62. Save_Set[16] = _PECODE
  63. Save_Set[17] = _PEJECT
  64. Save_Set[18] = _PEPAGE
  65. Save_Set[19] = _PFORM
  66. Save_Set[20] = _PLENGTH
  67. Save_Set[21] = _PLINENO
  68. Save_Set[22] = _PLOFFSET
  69. Save_Set[23] = _PPITCH
  70. Save_Set[24] = _PQUALITY
  71. Save_Set[25] = _PRETEXT
  72. Save_Set[26] = _PSCODE
  73. Save_Set[27] = _PSPACING
  74. Save_Set[28] = _PWAIT
  75. Save_Set[29] = _RMARGIN
  76. Save_Set[30] = _TABS
  77. Save_Set[31] = _TEXT
  78. Save_Set[32] = _TALLY
  79. Save_Set[33] = _WRAP
  80. Save_Set[34]  = insmode()
  81. Save_Set[35]  = capslock()
  82. Save_Set[36]  = numlock()
  83.  
  84. *
  85. SAVE TO SAVESETS ALL LIKE Save_Set
  86. RELEASE Save_Set, Set_Value, Set_OnOff
  87. RETURN
  88.  
  89.