home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / SAVSHADE.SMM < prev    next >
INI File  |  1993-03-14  |  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.     FILE:
  15. [lang]
  16.     1
  17. [desc]
  18.     Zapisanie zaznaczonego tekstu w nowym pliku.
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     UserControl, New, CurShade$
  22.     noautorun
  23.     731032587
  24.     18
  25.     671525509
  26.     20
  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. <:#245,9025>Macro by <+!>Charlie Pappas<-!>
  62.  
  63. <:#240,9025>
  64.  
  65. @Function@<:#278,9025>function shadesav()
  66.  
  67. <:#240,9025>IF IsNewWave()
  68.  
  69.     Message("Makroprogram nie dzia</s>a z HP NewWave.")
  70.  
  71. <:#240,9025>    Exit Function
  72.  
  73. <:#240,9025>ENDIF
  74.  
  75. <:#240,9025>ignorekeyboard(2)
  76.  
  77. <:#240,9025>again:
  78.  
  79. <:#240,9025>if curshade$() = "" and getmode() = 129
  80.  
  81.     usercontrol("Zaznacz tylko 1 kom<\s>rk<\j> i naci</\>nij Kontynuuj")
  82.  
  83. <:#240,9025>    goto again
  84.  
  85. <:#240,9025>endif
  86.  
  87. <:#240,9025>if curshade$() = ""
  88.  
  89.     usercontrol("Zaznacz tekst i naci</\>nij Kontynuuj")
  90.  
  91. <:#240,9025>    goto again
  92.  
  93. <:#240,9025>endif
  94.  
  95. <:#240,9025>copy()
  96.  
  97. <:#240,9025>sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  98.  
  99. <:#240,9025>if sty = ""
  100.  
  101. <:#240,9025>    sty = "_default.sty"
  102.  
  103. <:#240,9025>endif
  104.  
  105. <:#240,9025>new(sty, 0, 0)
  106.  
  107. <:#240,9025>paste()
  108.  
  109. <:#240,9025>saveas
  110.  
  111. <:#240,9025>fileclose()
  112.  
  113. <:#240,9025>end function
  114.  
  115. >
  116.  
  117. [Embedded]
  118. 00001523
  119. >
  120. [macsum] 1
  121. shadesav 0 0 2 2
  122. [macse]
  123. 14 shadesav
  124. 0 1317
  125. 13
  126. 11 00000098
  127. 0 3 "Makroprogram nie dzia</s>a z 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 00000243
  142. 0 7 "Zaznacz tylko 1 kom<\s>rk<\j> i naci</\>nij Kontynuuj"
  143. 10 00000106
  144. 0 24
  145. 13
  146. 7 ""
  147. 18 0
  148. 11 00000336
  149. 0 7 "Zaznacz tekst i naci</\>nij Kontynuuj"
  150. 10 00000106
  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 00000447
  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. 00001548
  169.