home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / AMWP-2.ZIP / MACROS.ZIP / ENVELOPE.SMM < prev    next >
Encoding:
INI File  |  1990-04-27  |  2.5 KB  |  305 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [prn]
  7.     PostScript Printer
  8. [lang]
  9.     1
  10. [desc]
  11.     Will print an envelope using a shaded address in the current document.
  12.     
  13.     
  14.     
  15.     
  16.     641272806
  17.     8
  18.     638752801
  19. [fopts]
  20.     0
  21.     1
  22.     0
  23.     0
  24. [lnopts]
  25.     2
  26.     Body Text
  27. [docopts]
  28.     5
  29.     2
  30. [tag]
  31.     Body Text
  32.     2
  33.     [fnt]
  34.         Tms Rmn
  35.         240
  36.         0
  37.         49152
  38.     [algn]
  39.         225
  40.         1
  41.         0
  42.         0
  43.         0
  44.     [spc]
  45.         17
  46.         0
  47.         1
  48.         0
  49.         0
  50.         1
  51.         100
  52.     [brk]
  53.         4
  54.     [line]
  55.         8
  56.         0
  57.         1
  58.         0
  59.         1
  60.         1
  61.         1
  62.         10
  63.         10
  64.         1
  65.     [spec]
  66.         0
  67.         0
  68.         
  69.         0
  70.         1
  71.         0
  72.         0
  73.         0
  74.         0
  75.         0
  76.     [nfmt]
  77.         280
  78.         1
  79.         2
  80.         .
  81.         ,
  82.         $
  83. [lay]
  84.     Standard
  85.     513
  86.     [rght]
  87.         15840
  88.         12240
  89.         1
  90.         1440
  91.         1440
  92.         1
  93.         1440
  94.         1440
  95.         0
  96.         1
  97.         0
  98.         1
  99.         1
  100.         1
  101.         1
  102.         1440
  103.         10800
  104.         0
  105.     [hrght]
  106.     [lyfrm]
  107.         1
  108.         11200
  109.         0
  110.         0
  111.         12240
  112.         1440
  113.         1
  114.         1
  115.         3
  116.         1
  117.         0
  118.         0
  119.         0
  120.     [frmlay]
  121.         1440
  122.         12240
  123.         1
  124.         1440
  125.         0
  126.         1
  127.         0
  128.         1440
  129.         0
  130.         1
  131.         0
  132.         1
  133.         1
  134.         1
  135.         1
  136.         1440
  137.         10800
  138.         0
  139.     [txt]
  140. >
  141.     [frght]
  142.     [lyfrm]
  143.         1
  144.         13248
  145.         0
  146.         14400
  147.         12240
  148.         15840
  149.         1
  150.         1
  151.         3
  152.         1
  153.         0
  154.         0
  155.         0
  156.     [frmlay]
  157.         15840
  158.         12240
  159.         1
  160.         1440
  161.         0
  162.         1
  163.         14400
  164.         1440
  165.         0
  166.         1
  167.         0
  168.         1
  169.         1
  170.         1
  171.         1
  172.         1440
  173.         10800
  174.         0
  175.     [txt]
  176. >
  177. [elay]
  178. [l1]
  179.     0
  180. [pg]
  181.     0
  182. [edoc]
  183. FUNCTION ENV1()
  184.  
  185. envsty = "~Env.sty"
  186.  
  187. again:
  188.  
  189. txt = curshade$()
  190.  
  191. if txt = "" then
  192.  
  193.     usercontrol("Shade The Address Then Click On Pause")
  194.  
  195.     goto again
  196.  
  197. endif
  198.  
  199. Copy( )
  200.  
  201. getdocname:
  202.  
  203. name = getdocdesc$(1)
  204.  
  205. if name = "(Untitled)" then
  206.  
  207.     message("We need to save your document")
  208.  
  209.     save
  210.  
  211.     goto getdocname
  212.  
  213. endif
  214.  
  215. go = New(envsty 1  )
  216.  
  217. if go <<>> 1 then
  218.  
  219.     message("Unable To Create Envelope File With ""{envsty}""")
  220.  
  221.     exit function
  222.  
  223. endif
  224.  
  225. Paste( )
  226.  
  227. TYPE( "<[>CTRLHome]<[>Down]<[>SHIFTEnd]" )
  228.  
  229. Bold( )
  230.  
  231. TYPE( "<[>Up]<[>Home]" )
  232.  
  233. LineUp()
  234.  
  235. LineUp()
  236.  
  237. LineUp()
  238.  
  239. LineUp()
  240.  
  241. LineUp()
  242.  
  243. FilePrint(1 1 9999 1  )
  244.  
  245. filechanged(1,0)
  246.  
  247. FileOpen("{name}" 1 0  )
  248.  
  249. END FUNCTION
  250.  
  251. >
  252. [macsum] 1
  253. ENV1 0 0 5 0
  254. [macse]
  255. 14 ENV1
  256. 7 "~Env.sty"
  257. 8 1
  258. 0 24
  259. 13
  260. 8 2
  261. 6 2
  262. 7 ""
  263. 18 0
  264. 11 00000131
  265. 0 7 "Shade The Address Then Click On Pause"
  266. 10 00000028
  267. 2 154 1
  268. 0 279 1
  269. 13
  270. 8 3
  271. 6 3
  272. 7 "(Untitled)"
  273. 18 0
  274. 11 00000256
  275. 0 3 "We need to save your document"
  276. 24 103
  277. 10 00000140
  278. 2 101 1 "{1}" 1
  279. 13
  280. 8 4
  281. 6 4
  282. 5 1
  283. 18 1
  284. 11 00000374
  285. 0 3 "Unable To Create Envelope File With ""{1}"""
  286. 6 0
  287. 15
  288. 9
  289. 2 155 1
  290. 0 6 "[16420][40][4131]"
  291. 2 254 1
  292. 0 6 "[38][36]"
  293. 26 277 1
  294. 26 277 1
  295. 26 277 1
  296. 26 277 1
  297. 26 277 1
  298. 2 111 1 1 1 9999 1
  299. 0 34 1 0
  300. 2 102 1 "{3}" 1 0
  301. 6 0
  302. 15
  303. 9
  304. 00001957
  305.