home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / SAVSHADE.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  1.4 KB  |  120 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     º╓│t▒N┐∩⌐wñσªr└xªs¼░╖s└╔«╫íC
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     UserControl, New, CurShade$
  22.     
  23.     773107567
  24.     14
  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. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     17 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
  58. [edoc]
  59. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  60.  
  61. <:#284,9025>
  62.  
  63. <:#284,9025>function shadesav()
  64.  
  65. <:#284,9025>again:
  66.  
  67. <:#284,9025>if curshade$() = ""
  68.  
  69. <:#284,9025>    usercontrol("Select text to save, then resume")
  70.  
  71. <:#284,9025>    goto again
  72.  
  73. <:#284,9025>endif
  74.  
  75. <:#284,9025>copy()
  76.  
  77. <:#284,9025>new("_default.sty", 0, 0)
  78.  
  79. <:#284,9025>paste()
  80.  
  81. <:#284,9025>Type("<[>CtrlHome]<[>CtrlshiftEnd]")
  82.  
  83. <:#284,9025>'FontFaceChange("CFShouSung")
  84.  
  85. <:#284,9025>FontFaceChange("<:f,,>▓╙<:f,,>⌐·<:f,,>┼Θ<:f>")
  86.  
  87. <:#284,9025>saveas
  88.  
  89. <:#284,9025>fileclose()
  90.  
  91. <:#284,9025>end function
  92.  
  93. >
  94.  
  95. [Embedded]
  96. 00001135
  97. >
  98. [macsum] 1
  99. shadesav 0 0 1 2
  100. [macse]
  101. 14 shadesav
  102. 0 24
  103. 13
  104. 7 ""
  105. 18 0
  106. 11 00000101
  107. 0 7 "Select text to save, then resume"
  108. 10 00000013
  109. 2 154 1
  110. 2 101 1 "_default.sty" 0 0
  111. 2 155 1
  112. 0 6 "[16420][20515]"
  113. 2 278 1 "▓╙⌐·┼Θ"
  114. 24 104
  115. 2 147 1
  116. 6 0
  117. 15
  118. 9
  119. 00001160
  120.