home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / SAVSHADE.SMM < prev    next >
INI File  |  1992-06-01  |  2KB  |  169 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. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Save selected text to a new file
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     UserControl, New, CurShade$
  22.     noautorun
  23.     707443519
  24.     17
  25.     671525509
  26.     18
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     1
  59.     27 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  60. [edoc]
  61. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  62.  
  63. <:#284,9360>
  64.  
  65. @Function@<:#293,9360>function shadesav()
  66.  
  67. <:#284,9360>IF IsNewWave()
  68.  
  69. <:#284,9360>    Message("Macro not available while running under HP NewWave.")
  70.  
  71. <:#284,9360>    Exit Function
  72.  
  73. <:#284,9360>ENDIF
  74.  
  75. ignorekeyboard(2)
  76.  
  77. again:
  78.  
  79. if curshade$() = "" and getmode() = 129
  80.  
  81.     usercontrol("Select only 1 cell to save, then resume")
  82.  
  83.     goto again
  84.  
  85. endif
  86.  
  87. if curshade$() = ""
  88.  
  89.     usercontrol("Select text to save, then resume")
  90.  
  91.     goto again
  92.  
  93. endif
  94.  
  95. copy()
  96.  
  97. sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  98.  
  99. <:#284,9360>if sty = ""
  100.  
  101. <:#284,9360>    sty = "_default.sty"
  102.  
  103. <:#284,9360>endif
  104.  
  105. <:#284,9360>new(sty, 0, 0)
  106.  
  107. <:#284,9360>paste()
  108.  
  109. <:#284,9360>saveas
  110.  
  111. <:#284,9360>fileclose()
  112.  
  113. <:#284,9360>end function
  114.  
  115. >
  116.  
  117. [Embedded]
  118. 00001395
  119. >
  120. [macsum] 1
  121. shadesav 0 0 2 2
  122. [macse]
  123. 14 shadesav
  124. 0 1317
  125. 13
  126. 11 00000109
  127. 0 3 "Macro not available while running under HP NewWave."
  128. 6 0
  129. 15
  130. 9
  131. 0 32 2
  132. 0 24
  133. 13
  134. 7 ""
  135. 18 0
  136. 0 29
  137. 13
  138. 5 129
  139. 18 0
  140. 1 1
  141. 11 00000240
  142. 0 7 "Select only 1 cell to save, then resume"
  143. 10 00000117
  144. 0 24
  145. 13
  146. 7 ""
  147. 18 0
  148. 11 00000328
  149. 0 7 "Select text to save, then resume"
  150. 10 00000117
  151. 2 154 1
  152. 0 286 "AmiPro" "defstyle" "amipro.ini"
  153. 13
  154. 8 1
  155. 6 1
  156. 7 ""
  157. 18 0
  158. 11 00000439
  159. 7 "_default.sty"
  160. 8 1
  161. 2 101 1 "{1}" 0 0
  162. 2 155 1
  163. 24 104
  164. 2 147 1
  165. 6 0
  166. 15
  167. 9
  168. 00001420
  169.