home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / FAX.SMM < prev    next >
Encoding:
INI File  |  1993-10-28  |  17.8 KB  |  1,053 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~cdefaul.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [master]
  12.     
  13.     
  14.     0
  15.     0
  16.     0
  17. [prn]
  18.     PostScript Printer
  19. [lang]
  20.     1
  21. [desc]
  22.     Generates FAX cover sheets quickly and optionally appends the current file.  A new menu is added to the File Menu.
  23.     Lotus WPD Technical Support
  24.     Intermediate
  25.     CallBacks, Global Variables
  26.     AutoRun
  27.     731700652
  28.     35
  29.     679859180
  30.     696
  31.     6
  32.     2010
  33.     13131
  34.     38
  35.     40
  36.     
  37.     
  38.     
  39.     
  40.     
  41.     
  42.     0
  43. [fopts]
  44.     0
  45.     1
  46.     0
  47.     0
  48. [lnopts]
  49.     2
  50.     Body Text
  51.     1
  52. [docopts]
  53.     5
  54.     2
  55. [lay]
  56.     Standard
  57.     513
  58.     [rght]
  59.         15840
  60.         12240
  61.         1
  62.         720
  63.         1080
  64.         1
  65.         1440
  66.         720
  67.         2
  68.         1
  69.         0
  70.         1
  71.         1
  72.         2
  73.         1
  74.         720
  75.         11520
  76.         14
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2160
  83.         1
  84.         2880
  85.         1
  86.         3600
  87.         1
  88.         4320
  89.         1
  90.         5040
  91.         1
  92.         5760
  93.         1
  94.         6480
  95.         1
  96.         7200
  97.         1
  98.         7920
  99.         1
  100.         8640
  101.         1
  102.         9360
  103.         1
  104.         10080
  105.     [hrght]
  106.     [lyfrm]
  107.         1
  108.         11200
  109.         0
  110.         0
  111.         12240
  112.         1440
  113.         0
  114.         1
  115.         3
  116.         1 0 0 0 0 0 0
  117.         0
  118.         0
  119.         1
  120.     [frmlay]
  121.         1440
  122.         12240
  123.         1
  124.         1440
  125.         0
  126.         1
  127.         360
  128.         1440
  129.         0
  130.         1
  131.         0
  132.         1
  133.         1
  134.         0
  135.         1
  136.         1440
  137.         10800
  138.         0
  139.     [txt]
  140. @Header@<:X3,0;GetDocInfo$(1)>FAX.SMM<:X~3,0;GetDocInfo$(1)>
  141.  
  142. @Header@<:X3,0;Description>Generates FAX cover sheets quickly and optionally appends files to them.  A new menu is added to the File Menu.<:X~3,0;Description>
  143.  
  144. @Header@By:  Todd E. Fuder
  145.  
  146. @Header@<:X3,0;EditDate %Dd>Wednesday, August 7, 1991<:X~3,0;EditDate %Dd> at 
  147. <:X3,0;EditDate %T6>11:41 am<:X~3,0;EditDate %T6>
  148.  
  149. @Header@
  150. >
  151.     [frght]
  152.     [lyfrm]
  153.         1
  154.         13248
  155.         0
  156.         14760
  157.         12240
  158.         15840
  159.         0
  160.         1
  161.         3
  162.         1 0 0 0 0 0 0
  163.         0
  164.         0
  165.         2
  166.     [frmlay]
  167.         15840
  168.         12240
  169.         1
  170.         1440
  171.         360
  172.         1
  173.         14940
  174.         1440
  175.         0
  176.         1
  177.         0
  178.         1
  179.         1
  180.         0
  181.         1
  182.         1440
  183.         10800
  184.         0
  185.     [txt]
  186. @Header@Revision Number <:X3,0;NumEdits>20<:X~3,0;NumEdits>
  187.  
  188. @Header@<:P10,0,Page > of <:X3,16384;NumPages>8<:X~3,16384;NumPages>
  189.  
  190. >
  191. [elay]
  192. [l1]
  193.     0
  194. [pg]
  195.     6
  196.     41 0 16 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  197.     85 0 13 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  198.     127 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  199.     171 0 11 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  200.     215 0 61 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  201.     220 0 0 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
  202. [edoc]
  203. @Function@<:#302,10800>FUNCTION Fax()
  204.  
  205. <:#302,10800>ONERROR toast
  206.  
  207. <:#302,10800>ONCANCEL toast
  208.  
  209. <:#302,10800>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  210.  
  211. <:#302,10800>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  212.  
  213. <:#302,10800>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  214.  
  215. <:#302,10800>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  216.  
  217. <:#302,10800>TitleBarMsg("Adding ""Compose FAX"" to the File menu.")
  218.  
  219. <:#302,10800>DECLARE Options(x,y,z)
  220.  
  221. <:#302,10800>DEFSTR App;
  222.  
  223. <:#302,10800>MacFile = GetRunningMacroFile$()
  224.  
  225. <:#302,10800>DeleteMenuItem(1, "╬─╝■(&F)","Co&mpose FAX")
  226.  
  227. <:#302,10800>InsertCascadeMenu(1, "╬─╝■(&F)", 14, "Co&mpose FAX")
  228.  
  229. <:#604,10800>AddCascadeMenuItem(1, "╬─╝■(&F)<+#><-#><+#><-#>", "Co&mpose FAX", "&Use Current Doc...", "{MacFile}!Facsimile(2)", "Attach a cover sheet to the current document.")
  230.  
  231. <:#604,10800>AddCascadeMenuItem(1, "╬─╝■(&F)", "Co&mpose FAX", "&Cover Sheet Only...", "{MacFile}!Facsimile(3)", "Generate a FAX cover sheet only.")
  232.  
  233. <:#302,10800>AddCascadeMenuItem(1, "╬─╝■(&F)", "Co&mpose FAX", "-", "", "")
  234.  
  235. <:#604,10800>AddCascadeMenuItem(1, "╬─╝■(&F)", "Co&mpose FAX", "E&xit FAX", "{MacFile}!ExitMacro()", "Remove Fax menu from the menu bar.")
  236.  
  237. <:#302,10800>HourGlass(1)
  238.  
  239. <:#302,10800>AllocGlobalVar("AddCover", 1)
  240.  
  241. <:#302,10800>SetGlobalVar("AddCover", GetProfileString$("FAX", "AddCover", "AMIPRO.INI"))
  242.  
  243. <:#302,10800>AllocGlobalVar("CoverSheet", 1)
  244.  
  245. <:#302,10800>SetGlobalVar("CoverSheet", GetProfileString$("FAX", "CoverSheet", "AMIPRO.INI"))
  246.  
  247. <:#302,10800>FirstTime = GetProfileString$("FAX", "FirstTime", "AMIPRO.INI")
  248.  
  249. <:#302,10800>IF FirstTime = ""
  250.  
  251. <:#302,10800>    CALL Options(0, 0, "FirstTime")
  252.  
  253. <:#302,10800>ENDIF
  254.  
  255. <:#302,10800>toast:
  256.  
  257. <:#302,10800>HourGlass(0)
  258.  
  259. <:#302,10800>StatusBarMsg("")
  260.  
  261. <:#302,10800>TitleBarMsg("")
  262.  
  263. <:#302,10800>TitleBarMsg("Ami Pro")
  264.  
  265. @Function@<:#302,10800>END FUNCTION
  266.  
  267. <:#302,10800>
  268.  
  269. <:#302,10800>
  270.  
  271. @Function@<:#302,10800>FUNCTION ExitMacro()
  272.  
  273. <:#302,10800>DeleteMenuItem(1, "╬─╝■(&F)","Co&mpose FAX")
  274.  
  275. <:#302,10800>FreeGlobalVar("Files")
  276.  
  277. <:#302,10800>FreeGlobalVar("CoverSheet")
  278.  
  279. <:#302,10800>FreeGlobalVar("AddCover")
  280.  
  281. <:#302,10800>HourGlass(0)
  282.  
  283. <:#302,10800>StatusBarMsg("")
  284.  
  285. @Function@<:#302,10800>END FUNCTION
  286.  
  287. <:#302,10800>
  288.  
  289. <:#302,10800>
  290.  
  291. @Function@<:#302,10800><:><:><:><:>FUNCTION Facsimile(Type)
  292.  
  293. <:#302,10800>ONCANCEL toast
  294.  
  295. <:#302,10800>ONERROR toast
  296.  
  297. <:#302,10800>DEFSTR Char;
  298.  
  299. <:#302,10800>AllocGlobalVar("Type", 1)
  300.  
  301. <:#302,10800>SetGlobalVar("Type", Type)
  302.  
  303. <:#302,10800>HourGlass(1)
  304.  
  305. <:#302,10800>DEFSTR Company, Person, Carbon, FaxNumber, VoiceNumber, Special;
  306.  
  307. <:#302,10800>MacPath = GetMacPath$()
  308.  
  309. <:#302,10800>DocPath = GetDocPath$()
  310.  
  311. <:#302,10800>MacFile = GetRunningMacroFile$()
  312.  
  313. <:#302,10800>SetDlgCallBack(55, "{MacFile}!Options")
  314.  
  315. <:#302,10800>HourGlass(0)
  316.  
  317. <:#302,10800>InfoBox = DialogBox(".", "FaxInfo")
  318.  
  319. <:#302,10800>IF InfoBox = -1
  320.  
  321. <:#302,10800>    Message("Cannot find dialog box; Exiting macro.")
  322.  
  323. <:#302,10800>    ExitMacro()
  324.  
  325. <:#302,10800>ELSEIF InfoBox = 0
  326.  
  327. <:#302,10800>    GoTo toast
  328.  
  329. <:#302,10800>ENDIF
  330.  
  331. <:#302,10800>Company = GetDialogField$(8002)
  332.  
  333. <:#302,10800>Person = GetDialogField$(8003)
  334.  
  335. <:#302,10800>Carbon = GetDialogField$(8004)
  336.  
  337. <:#302,10800>FaxNumber = GetDialogField$(8005)
  338.  
  339. <:#302,10800>VoiceNumber = GetDialogField$(8006)
  340.  
  341. <:#302,10800>Special = GetDialogField$(8007)
  342.  
  343. <:#302,10800>FreeGlobalVar("Type")
  344.  
  345. <:#302,10800>IF Type = 2
  346.  
  347. <:#302,10800>    ThisFile = GetOpenFileName$()
  348.  
  349. <:#302,10800>    IF ThisFile = ""
  350.  
  351. <:#302,10800>        SaveAs
  352.  
  353. <:#302,10800>    ELSE
  354.  
  355. <:#302,10800>        Save()
  356.  
  357. <:#302,10800>    ENDIF
  358.  
  359. <:#302,10800>    ThisFile = GetOpenFileName$()
  360.  
  361. <:#302,10800>    Mode = GetMode()
  362.  
  363. <:#302,10800>    MarkBookmark("ThisHerePlace", AddBookmark)
  364.  
  365. <:#302,10800>    TYPE("<[>CtrlEND]")
  366.  
  367. <:#302,10800>    LayoutMode()
  368.  
  369. <:#302,10800>    PageNo = 1 + GetPageNo()
  370.  
  371. <:#302,10800>    IF Mode = 16
  372.  
  373. <:#302,10800>        DraftMode()
  374.  
  375. <:#302,10800>    ELSEIF Mode = 48
  376.  
  377. <:#302,10800>        OutlineMode()
  378.  
  379. <:#302,10800>    ENDIF
  380.  
  381. <:#302,10800>    MarkBookmark("ThisHerePlace", FindBookmark)
  382.  
  383. <:#302,10800>    MarkBookmark("ThisHerePlace", DeleteBookmark)
  384.  
  385. <:#302,10800>    FileChanged(1, 0)
  386.  
  387. <:#302,10800>    FileClose()
  388.  
  389. <:#302,10800>ENDIF
  390.  
  391. <:#302,10800>IF (TRUE = GetGlobalVar$("AddCover"))
  392.  
  393. <:#302,10800>    CoverSheet = GetGlobalVar$("CoverSheet")
  394.  
  395. <:#302,10800>    New("{CoverSheet}", 1, 0)
  396.  
  397. <:#302,10800>    Date = FormatDate$(Now(), "b")
  398.  
  399. <:#302,10800>    Time = FormatTime$(Now(), 6)
  400.  
  401. <:#302,10800>    IF (-2 != MarkBookmark("Time", FindBookmark))
  402.  
  403. <:#302,10800>        TYPE(" {Time}")
  404.  
  405. <:#302,10800>    ENDIF
  406.  
  407. <:#302,10800>    IF (-2 != MarkBookmark("Company", FindBookmark)) AND Company != ""
  408.  
  409. <:#302,10800>        TYPE(Company)
  410.  
  411. <:#302,10800>    ENDIF
  412.  
  413. <:#302,10800>    IF (-2 != MarkBookmark("Person", FindBookmark)) AND Person != ""
  414.  
  415. <:#302,10800>        TYPE(Person)
  416.  
  417. <:#302,10800>    ENDIF
  418.  
  419. <:#302,10800>    IF (-2 != MarkBookmark("Carbon", FindBookmark)) AND Carbon != ""
  420.  
  421. <:#302,10800>        TYPE(Carbon)
  422.  
  423. <:#302,10800>    ENDIF
  424.  
  425. <:#302,10800>    IF (-2 != MarkBookmark("FaxNumber", FindBookmark)) AND FaxNumber != ""
  426.  
  427. <:#302,10800>        TYPE(FaxNumber)
  428.  
  429. <:#302,10800>    ENDIF
  430.  
  431. <:#302,10800>    IF (-2 != MarkBookmark("VoiceNumber", FindBookmark)) AND VoiceNumber != ""
  432.  
  433. <:#302,10800>        TYPE(VoiceNumber)
  434.  
  435. <:#302,10800>    ENDIF
  436.  
  437. <:#302,10800>    IF (-2 != MarkBookmark("Special", FindBookmark)) AND Special != ""
  438.  
  439. <:#302,10800>        TYPE(Special)
  440.  
  441. <:#302,10800>    ENDIF
  442.  
  443. <:#302,10800>    I = 1
  444.  
  445. <:#302,10800>    WHILE "" != Assign(&Char, strfield$(ThisFile, I, "\"))
  446.  
  447. <:#302,10800>        I = I + 1
  448.  
  449. <:#302,10800>    WEND
  450.  
  451. <:#604,10800>    Filename = strcat$(Left$(strfield$(strfield$(ThisFile, (I - 1), "\"), 1, "."), 6), ".SAM")
  452.  
  453. <:#604,10800>    SaveAs("FX{Filename}", 0, "FAX Cover Sheet for {Filename}.  Created on {Date} at {Time}.", "")
  454.  
  455. <:#302,10800>ENDIF
  456.  
  457. <:#302,10800>IF Type = 2
  458.  
  459. <:#302,10800>    CoverSheetFile = GetOpenFileName$()
  460.  
  461. <:#302,10800>    size = 3 + len(ThisFile) + len(CoverSheetFile)
  462.  
  463. <:#302,10800>    SetMasterFiles(size, 2, CoverSheetFile, ThisFile)
  464.  
  465. <:#302,10800>    IF (-2 != MarkBookmark("NumberOfPages", FindBookmark))
  466.  
  467. <:#302,10800>        TYPE("{PageNo}")
  468.  
  469. <:#302,10800>    ENDIF
  470.  
  471. <:#302,10800>ENDIF
  472.  
  473. <:#302,10800>toast:
  474.  
  475. <:#302,10800>HourGlass(0)
  476.  
  477. <:#302,10800>StatusBarMsg("")
  478.  
  479. @Function@<:#302,10800>END FUNCTION
  480.  
  481. <:#302,10800>
  482.  
  483. <:#302,10800>
  484.  
  485. @Function@<:#302,10800>FUNCTION Options(hdlg, id, text)
  486.  
  487. <:#302,10800>ONERROR toast
  488.  
  489. <:#302,10800>ONCANCEL toast
  490.  
  491. <:#302,10800>HourGlass(1)
  492.  
  493. <:#302,10800>StatusBarMsg("Reading existing style sheets...")
  494.  
  495. <:#302,10800>CoverSheet = GetGlobalVar$("CoverSheet")
  496.  
  497. <:#302,10800>IF CoverSheet = ""
  498.  
  499. <:#302,10800>    CoverSheet = "~FAX1.STY"
  500.  
  501. <:#302,10800>ENDIF
  502.  
  503. <:#302,10800>IF text != "FirstTime"
  504.  
  505. <:#302,10800>    AddCover = GetGlobalVar$("AddCover")
  506.  
  507. <:#302,10800>ELSE
  508.  
  509. <:#302,10800>    AddCover = TRUE
  510.  
  511. <:#302,10800>    WriteProfileString("FAX", "FirstTime", "No", "AMIPRO.INI")
  512.  
  513. <:#302,10800>ENDIF
  514.  
  515. <:#302,10800>FillEdit(50, AddCover)
  516.  
  517. <:#302,10800>FillEdit(9500, CoverSheet)
  518.  
  519. <:#302,10800>StyleDir = GetStylePath$()
  520.  
  521. <:#302,10800>Filename = FindFirst$("{StyleDir}*.STY", 0)
  522.  
  523. <:#302,10800>WHILE Filename != ""
  524.  
  525. <:#302,10800>    FillEdit(9500, Filename)
  526.  
  527. <:#302,10800>    Filename = FindNext$()
  528.  
  529. <:#302,10800>WEND
  530.  
  531. <:#302,10800>HourGlass(0)
  532.  
  533. <:#302,10800>StatusBarMsg("")
  534.  
  535. <:#302,10800>OptionsBox = DialogBox(".", "OptionsBox")
  536.  
  537. <:#302,10800>HourGlass(1)
  538.  
  539. <:#302,10800>IF OptionsBox = -1
  540.  
  541. <:#302,10800>    Message("Cannot find dialog box; exiting function.")
  542.  
  543. <:#302,10800>    GoTo toast
  544.  
  545. <:#302,10800>ELSEIF OptionsBox = 0
  546.  
  547. <:#302,10800>    GoTo toast
  548.  
  549. <:#302,10800>ENDIF
  550.  
  551. <:#302,10800>CoverSheet = GetDialogField$(9500)
  552.  
  553. <:#302,10800>AddCover = GetDialogField$(50)
  554.  
  555. <:#302,10800>IF AddCover != GetGlobalVar$("AddCover")
  556.  
  557. <:#302,10800>    SetGlobalVar("AddCover", AddCover)
  558.  
  559. <:#302,10800>    WriteProfileString("FAX", "AddCover", AddCover, "AMIPRO.INI")
  560.  
  561. <:#302,10800>ENDIF
  562.  
  563. <:#302,10800>IF CoverSheet != GetGlobalVar$("CoverSheet")
  564.  
  565. <:#302,10800>    WriteProfileString("FAX", "CoverSheet", CoverSheet, "AMIPRO.INI")
  566.  
  567. <:#302,10800>    SetGlobalVar("CoverSheet", CoverSheet)
  568.  
  569. <:#302,10800>ENDIF
  570.  
  571. <:#302,10800>toast:
  572.  
  573. <:#302,10800>HourGlass(0)
  574.  
  575. <:#302,10800>StatusBarMsg("")
  576.  
  577. @Function@<:#302,10800>END FUNCTION
  578.  
  579. <:#302,10800>
  580.  
  581. <:#302,10800>
  582.  
  583. @Function@<:#302,10800>DIALOG FaxInfo
  584.  
  585. <:#302,10800>-2134376448 15 82 32 206 120 "" "" "FAX Cover Sheet Information"
  586.  
  587. <:#302,10800>FONT 6 "Helv"
  588.  
  589. <:#302,10800>4 6 58 8 1000 1342308352 "static" "&Company:" 0 
  590.  
  591. <:#302,10800>64 4 94 12 8002 1350631552 "edit" "" 0 
  592.  
  593. <:#302,10800>4 20 58 8 1001 1342308352 "static" "&Recipient:" 0 
  594.  
  595. <:#302,10800>64 18 94 12 8003 1350631552 "edit" "" 0 
  596.  
  597. <:#302,10800>4 34 58 8 1002 1342308352 "static" "C&arbon copy:" 0 
  598.  
  599. <:#302,10800>64 32 94 12 8004 1350631552 "edit" "" 0 
  600.  
  601. <:#302,10800>4 48 56 8 1003 1342308352 "static" "FA&X number:" 0 
  602.  
  603. <:#302,10800>64 46 94 12 8005 1350631552 "edit" "" 0 
  604.  
  605. <:#302,10800>4 62 54 8 1004 1342308352 "static" "&Voice number:" 0 
  606.  
  607. <:#302,10800>64 60 94 12 8006 1350631552 "edit" "" 0 
  608.  
  609. <:#302,10800>4 76 70 8 1005 1342308352 "static" "Special &instructions:" 0 
  610.  
  611. <:#302,10800>4 86 198 32 8007 1350631428 "edit" "" 0 
  612.  
  613. <:#302,10800>162 4 40 14 1 1342373889 "button" "OK" 0 
  614.  
  615. <:#302,10800>162 20 40 14 2 1342373888 "button" "Cancel" 0 
  616.  
  617. <:#302,10800>162 36 40 14 55 1342373888 "button" "&Options..." 0 
  618.  
  619. @Function@<:#302,10800>END DIALOG
  620.  
  621. <:#302,10800>
  622.  
  623. <:#302,10800>
  624.  
  625. @Function@<:#302,10800>DIALOG OptionsBox
  626.  
  627. <:#302,10800>-2134376448 4 96 54 160 36 "" "" "FAX Cover Sheet Options"
  628.  
  629. <:#302,10800>FONT 6 "Helv"
  630.  
  631. <:#302,10800>4 4 88 12 50 1342308355 "button" "&Use a FAX cover sheet:" 0 
  632.  
  633. <:#302,10800>4 18 90 40 9500 1344339971 "combobox" "" 0 
  634.  
  635. <:#302,10800>116 2 40 14 1 1342373889 "button" "OK" 0 
  636.  
  637. <:#302,10800>116 18 40 14 2 1342373888 "button" "Cancel" 0 
  638.  
  639. @Function@<:#302,10800>END DIALOG
  640.  
  641. @Function@<:#302,10800>
  642.  
  643. >
  644.  
  645. [Embedded]
  646. 00012587
  647. >
  648. [macsum] 6
  649. Fax 0 0 4 0
  650. ExitMacro 1095 0 1 34
  651. Facsimile 1228 1 22 44
  652. Options 3383 3 6 141
  653. FaxInfo 4344 0 -1 190
  654. OptionsBox 5171 0 -1 211
  655. [macse]
  656. 14 Fax
  657. 20 00000907
  658. 19 00000907
  659. 0 284 "user,GetActiveWindow,H"
  660. 13
  661. 0 284 "user,SetWindowText,IHC" [X] "Adding ""Compose FAX"" to the File menu."
  662. 0 802
  663. 13
  664. 8 2
  665. 0 520 1 "╬─╝■(&F)" "Co&mpose FAX"
  666. 0 528 1 "╬─╝■(&F)" 14 "Co&mpose FAX"
  667. 0 525 1 "╬─╝■(&F)" "Co&mpose FAX" "&Use Current Doc..." "{2}!Facsimile(2)" "Attach a cover sheet to the current document."
  668. 0 525 1 "╬─╝■(&F)" "Co&mpose FAX" "&Cover Sheet Only..." "{2}!Facsimile(3)" "Generate a FAX cover sheet only."
  669. 0 525 1 "╬─╝■(&F)" "Co&mpose FAX" "-" "" ""
  670. 0 525 1 "╬─╝■(&F)" "Co&mpose FAX" "E&xit FAX" "{2}!ExitMacro()" "Remove Fax menu from the menu bar."
  671. 0 296 1
  672. 0 271 "AddCover" 1
  673. 0 286 "FAX" "AddCover" "AMIPRO.INI"
  674. 13
  675. 0 264 "AddCover" [X]
  676. 0 271 "CoverSheet" 1
  677. 0 286 "FAX" "CoverSheet" "AMIPRO.INI"
  678. 13
  679. 0 264 "CoverSheet" [X]
  680. 0 286 "FAX" "FirstTime" "AMIPRO.INI"
  681. 13
  682. 8 3
  683. 6 3
  684. 7 ""
  685. 18 0
  686. 11 00000907
  687. 16 Options 0 0 "FirstTime"
  688. 0 296 0
  689. 0 789 ""
  690. 0 284 "user,GetActiveWindow,H"
  691. 13
  692. 0 284 "user,SetWindowText,IHC" [X] ""
  693. 0 284 "user,GetActiveWindow,H"
  694. 13
  695. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  696. 6 0
  697. 15
  698. 9
  699. 14 ExitMacro
  700. 0 520 1 "╬─╝■(&F)" "Co&mpose FAX"
  701. 0 266 "Files"
  702. 0 266 "CoverSheet"
  703. 0 266 "AddCover"
  704. 0 296 0
  705. 0 789 ""
  706. 6 0
  707. 15
  708. 9
  709. 14 Facsimile
  710. 19 00002124
  711. 20 00002124
  712. 0 271 "Type" 1
  713. 0 264 "Type" "{0}"
  714. 0 296 1
  715. 0 295
  716. 13
  717. 8 9
  718. 0 268
  719. 13
  720. 8 10
  721. 0 802
  722. 13
  723. 8 11
  724. 0 41 55 "{11}!Options"
  725. 0 296 0
  726. 0 26 "." "FaxInfo"
  727. 13
  728. 8 12
  729. 6 12
  730. 5 -1
  731. 18 0
  732. 11 00000302
  733. 0 3 "Cannot find dialog box; Exiting macro."
  734. 16 ExitMacro
  735. 10 00000345
  736. 6 12
  737. 5 0
  738. 18 0
  739. 11 00000345
  740. 10 00002124
  741. 0 27 8002
  742. 13
  743. 8 3
  744. 0 27 8003
  745. 13
  746. 8 4
  747. 0 27 8004
  748. 13
  749. 8 5
  750. 0 27 8005
  751. 13
  752. 8 6
  753. 0 27 8006
  754. 13
  755. 8 7
  756. 0 27 8007
  757. 13
  758. 8 8
  759. 0 266 "Type"
  760. 6 0
  761. 5 2
  762. 18 0
  763. 11 00000872
  764. 0 267
  765. 13
  766. 8 13
  767. 6 13
  768. 7 ""
  769. 18 0
  770. 11 00000577
  771. 24 104
  772. 10 00000586
  773. 2 103 1
  774. 0 267
  775. 13
  776. 8 13
  777. 0 29
  778. 13
  779. 8 14
  780. 2 466 1 "ThisHerePlace" 4003
  781. 0 6 "[16419]"
  782. 2 210 1
  783. 5 1
  784. 0 294
  785. 13
  786. 3 0
  787. 8 15
  788. 6 14
  789. 5 16
  790. 18 0
  791. 11 00000753
  792. 2 211 1
  793. 10 00000793
  794. 6 14
  795. 5 48
  796. 18 0
  797. 11 00000793
  798. 2 218 1
  799. 2 466 1 "ThisHerePlace" 4002
  800. 2 466 1 "ThisHerePlace" 4004
  801. 0 34 1 0
  802. 2 147 1
  803. 5 1
  804. 0 265 "AddCover"
  805. 13
  806. 18 0
  807. 11 00001920
  808. 0 265 "CoverSheet"
  809. 13
  810. 8 16
  811. 2 101 1 "{16}" 1 0
  812. 0 772
  813. 13
  814. 0 770 [X] "b"
  815. 13
  816. 8 17
  817. 0 772
  818. 13
  819. 0 773 [X] 6
  820. 13
  821. 8 18
  822. 5 -2
  823. 2 466 1 "Time" 4002
  824. 13
  825. 18 1
  826. 11 00001101
  827. 0 6 " {18}"
  828. 5 -2
  829. 2 466 1 "Company" 4002
  830. 13
  831. 18 1
  832. 6 3
  833. 7 ""
  834. 18 1
  835. 1 1
  836. 11 00001187
  837. 0 6 "{3}"
  838. 5 -2
  839. 2 466 1 "Person" 4002
  840. 13
  841. 18 1
  842. 6 4
  843. 7 ""
  844. 18 1
  845. 1 1
  846. 11 00001272
  847. 0 6 "{4}"
  848. 5 -2
  849. 2 466 1 "Carbon" 4002
  850. 13
  851. 18 1
  852. 6 5
  853. 7 ""
  854. 18 1
  855. 1 1
  856. 11 00001357
  857. 0 6 "{5}"
  858. 5 -2
  859. 2 466 1 "FaxNumber" 4002
  860. 13
  861. 18 1
  862. 6 6
  863. 7 ""
  864. 18 1
  865. 1 1
  866. 11 00001445
  867. 0 6 "{6}"
  868. 5 -2
  869. 2 466 1 "VoiceNumber" 4002
  870. 13
  871. 18 1
  872. 6 7
  873. 7 ""
  874. 18 1
  875. 1 1
  876. 11 00001535
  877. 0 6 "{7}"
  878. 5 -2
  879. 2 466 1 "Special" 4002
  880. 13
  881. 18 1
  882. 6 8
  883. 7 ""
  884. 18 1
  885. 1 1
  886. 11 00001621
  887. 0 6 "{8}"
  888. 5 1
  889. 8 19
  890. 7 ""
  891. 0 20 "{13}" "{19}" "\"
  892. 13
  893. 0 805 &2 [X]
  894. 13
  895. 18 1
  896. 11 00001738
  897. 6 19
  898. 5 1
  899. 3 0
  900. 8 19
  901. 10 00001632
  902. 6 19
  903. 5 1
  904. 3 1
  905. 0 20 "{13}" [X] "\"
  906. 13
  907. 0 20 [X] 1 "."
  908. 13
  909. 0 806 [X] 6
  910. 13
  911. 0 16 [X] ".SAM"
  912. 13
  913. 8 20
  914. 2 104 1 "FX{20}" 0 "FAX Cover Sheet for {20}.  Created on {17} at {18}." ""
  915. 6 0
  916. 5 2
  917. 18 0
  918. 11 00002124
  919. 0 267
  920. 13
  921. 8 21
  922. 5 3
  923. 0 14 "{13}"
  924. 13
  925. 3 0
  926. 0 14 "{21}"
  927. 13
  928. 3 0
  929. 8 22
  930. 2 284 1 "{22}" 2 "{21}" "{13}"
  931. 5 -2
  932. 2 466 1 "NumberOfPages" 4002
  933. 13
  934. 18 1
  935. 11 00002124
  936. 0 6 "{15}"
  937. 0 296 0
  938. 0 789 ""
  939. 6 1
  940. 15
  941. 9
  942. 14 Options
  943. 20 00000930
  944. 19 00000930
  945. 0 296 1
  946. 0 789 "Reading existing style sheets..."
  947. 0 265 "CoverSheet"
  948. 13
  949. 8 4
  950. 6 4
  951. 7 ""
  952. 18 0
  953. 11 00000168
  954. 7 "~FAX1.STY"
  955. 8 4
  956. 6 2
  957. 7 "FirstTime"
  958. 18 1
  959. 11 00000247
  960. 0 265 "AddCover"
  961. 13
  962. 8 5
  963. 10 00000300
  964. 5 1
  965. 8 5
  966. 0 287 "FAX" "FirstTime" "No" "AMIPRO.INI"
  967. 0 31 50 "{5}"
  968. 0 31 9500 "{4}"
  969. 0 269
  970. 13
  971. 8 6
  972. 0 280 "{6}*.STY" 0
  973. 13
  974. 8 7
  975. 6 7
  976. 7 ""
  977. 18 1
  978. 11 00000453
  979. 0 31 9500 "{7}"
  980. 0 281
  981. 13
  982. 8 7
  983. 10 00000377
  984. 0 296 0
  985. 0 789 ""
  986. 0 26 "." "OptionsBox"
  987. 13
  988. 8 8
  989. 0 296 1
  990. 6 8
  991. 5 -1
  992. 18 0
  993. 11 00000618
  994. 0 3 "Cannot find dialog box; exiting function."
  995. 10 00000930
  996. 10 00000660
  997. 6 8
  998. 5 0
  999. 18 0
  1000. 11 00000660
  1001. 10 00000930
  1002. 0 27 9500
  1003. 13
  1004. 8 4
  1005. 0 27 50
  1006. 13
  1007. 8 5
  1008. 6 5
  1009. 0 265 "AddCover"
  1010. 13
  1011. 18 1
  1012. 11 00000811
  1013. 0 264 "AddCover" "{5}"
  1014. 0 287 "FAX" "AddCover" "{5}" "AMIPRO.INI"
  1015. 6 4
  1016. 0 265 "CoverSheet"
  1017. 13
  1018. 18 1
  1019. 11 00000930
  1020. 0 287 "FAX" "CoverSheet" "{4}" "AMIPRO.INI"
  1021. 0 264 "CoverSheet" "{4}"
  1022. 0 296 0
  1023. 0 789 ""
  1024. 6 3
  1025. 15
  1026. 9
  1027. DIALOG FaxInfo
  1028. -2134376448 15 82 32 206 120 "" "" "FAX Cover Sheet Information" 
  1029. FONT 6 "Helv" 
  1030. 4 6 58 8 1000 1342308352 "static" "&Company:" 0 
  1031. 64 4 94 12 8002 1350631552 "edit" "" 0 
  1032. 4 20 58 8 1001 1342308352 "static" "&Recipient:" 0 
  1033. 64 18 94 12 8003 1350631552 "edit" "" 0 
  1034. 4 34 58 8 1002 1342308352 "static" "C&arbon copy:" 0 
  1035. 64 32 94 12 8004 1350631552 "edit" "" 0 
  1036. 4 48 56 8 1003 1342308352 "static" "FA&X number:" 0 
  1037. 64 46 94 12 8005 1350631552 "edit" "" 0 
  1038. 4 62 54 8 1004 1342308352 "static" "&Voice number:" 0 
  1039. 64 60 94 12 8006 1350631552 "edit" "" 0 
  1040. 4 76 70 8 1005 1342308352 "static" "Special &instructions:" 0 
  1041. 4 86 198 32 8007 1350631428 "edit" "" 0 
  1042. 162 4 40 14 1 1342373889 "button" "OK" 0 
  1043. 162 20 40 14 2 1342373888 "button" "Cancel" 0 
  1044. 162 36 40 14 55 1342373888 "button" "&Options..." 0 
  1045. DIALOG OptionsBox
  1046. -2134376448 4 96 54 160 36 "" "" "FAX Cover Sheet Options" 
  1047. FONT 6 "Helv" 
  1048. 4 4 88 12 50 1342308355 "button" "&Use a FAX cover sheet:" 0 
  1049. 4 18 90 40 9500 1344339971 "combobox" "" 0 
  1050. 116 2 40 14 1 1342373889 "button" "OK" 0 
  1051. 116 18 40 14 2 1342373888 "button" "Cancel" 0 
  1052. 00012612
  1053.