home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / SAVSHADE.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  962 b   |  104 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Quickly save the selected text to a new file with SAVSHADE.
  17.     Lotus WPD Marketing
  18.     Beginner
  19.     UserControl, New, CurShade$
  20.     
  21.     682670667
  22.     10
  23.     671525509
  24.     18
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [edoc]
  52. Macro by <+!>Charlie Pappas<-!>
  53.  
  54.  
  55. function shadesav()
  56.  
  57. again:
  58.  
  59. if curshade$() = ""
  60.  
  61.     usercontrol("Select text to save, then resume")
  62.  
  63.     goto again
  64.  
  65. endif
  66.  
  67. copy()
  68.  
  69. new("~default.sty", 0, 0)
  70.  
  71. paste()
  72.  
  73. saveas
  74.  
  75. fileclose()
  76.  
  77. end function
  78.  
  79. >
  80.  
  81. [Embedded]
  82. 00000712
  83. >
  84. [macsum] 1
  85. shadesav 0 0 1 2
  86. [macse]
  87. 14 shadesav
  88. 0 24
  89. 13
  90. 7 ""
  91. 18 0
  92. 11 00000101
  93. 0 7 "Select text to save, then resume"
  94. 10 00000013
  95. 2 154 1
  96. 2 101 1 "~default.sty" 0 0
  97. 2 155 1
  98. 24 104
  99. 2 147 1
  100. 6 0
  101. 15
  102. 9
  103. 00000737
  104.