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