home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2004 April / DPPCPRO0404.ISO / April / CAS / disk3 / data.3 / WINFAX / AMIPRO / jjfaxlet.smm < prev    next >
Encoding:
INI File  |  1995-06-14  |  31.3 KB  |  2,461 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP DeskJet 500
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Retrieves field values from Commence for a letter template and faxes the resulting letter with a Fax printer .
  28.     
  29.     
  30.     
  31.     
  32.     803183949
  33.     83
  34.     706653616
  35.     975
  36.     12
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         TimesNewRomanPS
  69.         240
  70.         0
  71.         49152
  72.     [algn]
  73.         1
  74.         1
  75.         0
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         273
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         0
  108.         0
  109.         0
  110.     [nfmt]
  111.         280
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         $
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Body Single
  122.     3
  123.     [fnt]
  124.         TimesNewRomanPS
  125.         240
  126.         0
  127.         49152
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         273
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         280
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         $
  173.     Body Single
  174.     0
  175.     0
  176. [tag]
  177.     Bullet
  178.     4
  179.     [fnt]
  180.         TimesNewRomanPS
  181.         240
  182.         0
  183.         49152
  184.     [algn]
  185.         1
  186.         1
  187.         0
  188.         288
  189.         288
  190.     [spc]
  191.         33
  192.         273
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         4
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         0
  214.         <*0>
  215.         360
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         2
  226.         .
  227.         ,
  228.         $
  229.     Bullet
  230.     0
  231.     0
  232. [tag]
  233.     Bullet 1
  234.     5
  235.     [fnt]
  236.         TimesNewRomanPS
  237.         240
  238.         0
  239.         49152
  240.     [algn]
  241.         1
  242.         1
  243.         288
  244.         288
  245.         288
  246.     [spc]
  247.         33
  248.         273
  249.         1
  250.         0
  251.         0
  252.         1
  253.         100
  254.     [brk]
  255.         4
  256.     [line]
  257.         8
  258.         0
  259.         1
  260.         0
  261.         1
  262.         1
  263.         1
  264.         10
  265.         10
  266.         1
  267.     [spec]
  268.         0
  269.         0
  270.         <*5>
  271.         0
  272.         1
  273.         1
  274.         0
  275.         0
  276.         0
  277.         0
  278.     [nfmt]
  279.         280
  280.         1
  281.         2
  282.         .
  283.         ,
  284.         $
  285.     Bullet 1
  286.     0
  287.     0
  288. [tag]
  289.     Number List
  290.     6
  291.     [fnt]
  292.         TimesNewRomanPS
  293.         240
  294.         0
  295.         49152
  296.     [algn]
  297.         1
  298.         1
  299.         360
  300.         360
  301.         360
  302.     [spc]
  303.         33
  304.         273
  305.         1
  306.         0
  307.         0
  308.         1
  309.         100
  310.     [brk]
  311.         4
  312.     [line]
  313.         8
  314.         0
  315.         1
  316.         0
  317.         1
  318.         1
  319.         1
  320.         10
  321.         10
  322.         1
  323.     [spec]
  324.         0
  325.         0
  326.         <*:>.
  327.         360
  328.         1
  329.         1
  330.         0
  331.         0
  332.         0
  333.         0
  334.     [nfmt]
  335.         272
  336.         1
  337.         2
  338.         .
  339.         ,
  340.         $
  341.     Number List
  342.     0
  343.     0
  344. [tag]
  345.     Subhead
  346.     7
  347.     [fnt]
  348.         TimesNewRomanPS
  349.         240
  350.         0
  351.         49155
  352.     [algn]
  353.         1
  354.         1
  355.         0
  356.         0
  357.         0
  358.     [spc]
  359.         33
  360.         273
  361.         1
  362.         72
  363.         72
  364.         1
  365.         100
  366.     [brk]
  367.         4
  368.     [line]
  369.         8
  370.         0
  371.         1
  372.         0
  373.         1
  374.         1
  375.         1
  376.         10
  377.         10
  378.         1
  379.     [spec]
  380.         0
  381.         2
  382.         
  383.         0
  384.         1
  385.         1
  386.         0
  387.         0
  388.         0
  389.         0
  390.     [nfmt]
  391.         272
  392.         1
  393.         2
  394.         .
  395.         ,
  396.         $
  397.     Subhead
  398.     0
  399.     0
  400. [tag]
  401.     Title
  402.     8
  403.     [fnt]
  404.         Arial MT
  405.         360
  406.         0
  407.         16385
  408.     [algn]
  409.         4
  410.         1
  411.         0
  412.         0
  413.         0
  414.     [spc]
  415.         33
  416.         446
  417.         1
  418.         144
  419.         72
  420.         1
  421.         100
  422.     [brk]
  423.         16
  424.     [line]
  425.         8
  426.         0
  427.         1
  428.         0
  429.         1
  430.         1
  431.         1
  432.         10
  433.         10
  434.         1
  435.     [spec]
  436.         0
  437.         1
  438.         
  439.         0
  440.         1
  441.         1
  442.         0
  443.         0
  444.         0
  445.         0
  446.     [nfmt]
  447.         272
  448.         1
  449.         2
  450.         .
  451.         ,
  452.         $
  453.     Title
  454.     0
  455.     0
  456. [lay]
  457.     Standard
  458.     513
  459.     [rght]
  460.         15840
  461.         12240
  462.         1
  463.         1440
  464.         1440
  465.         1
  466.         1440
  467.         1440
  468.         0
  469.         1
  470.         0
  471.         1
  472.         0
  473.         2
  474.         1
  475.         1440
  476.         10800
  477.         12
  478.         1
  479.         720
  480.         1
  481.         1440
  482.         1
  483.         2160
  484.         1
  485.         2880
  486.         1
  487.         3600
  488.         1
  489.         4320
  490.         1
  491.         5040
  492.         1
  493.         5760
  494.         1
  495.         6480
  496.         1
  497.         7200
  498.         1
  499.         7920
  500.         1
  501.         8640
  502.     [hrght]
  503.     [lyfrm]
  504.         1
  505.         11200
  506.         0
  507.         0
  508.         12240
  509.         1440
  510.         0
  511.         1
  512.         3
  513.         1 0 0 0 0 0 0
  514.         0
  515.         0
  516.         1
  517.     [frmlay]
  518.         1440
  519.         12240
  520.         1
  521.         1440
  522.         72
  523.         1
  524.         792
  525.         1440
  526.         0
  527.         1
  528.         0
  529.         1
  530.         1
  531.         0
  532.         1
  533.         1440
  534.         10800
  535.         1
  536.         3
  537.         9360
  538.     [txt]
  539. >
  540.     [frght]
  541.     [lyfrm]
  542.         1
  543.         13248
  544.         0
  545.         14400
  546.         12240
  547.         15840
  548.         0
  549.         1
  550.         3
  551.         1 0 0 0 0 0 0
  552.         0
  553.         0
  554.         2
  555.     [frmlay]
  556.         15840
  557.         12240
  558.         1
  559.         1440
  560.         792
  561.         1
  562.         14472
  563.         1440
  564.         0
  565.         1
  566.         0
  567.         1
  568.         1
  569.         0
  570.         1
  571.         1440
  572.         10800
  573.         2
  574.         2
  575.         4680
  576.         3
  577.         9360
  578.     [txt]
  579.  
  580. >
  581. [elay]
  582. [l1]
  583.     0
  584. [pg]
  585.     12
  586.     45 0 20 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 0
  587.     90 0 14 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 0
  588.     135 0 0 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 0
  589.     180 0 6 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 0
  590.     225 0 25 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 0
  591.     270 0 44 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 0
  592.     315 0 40 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 0
  593.     360 0 25 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 0
  594.     405 0 0 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 0
  595.     450 0 6 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 0
  596.     495 0 0 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 0
  597.     501 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 0
  598. [edoc]
  599. <:#284,9360><-!>Function JJFaxLet()
  600.  
  601. <:#284,9360>'Copyright 1993-95 Jensen-Jones Inc.
  602.  
  603. <:#284,9360>'Commence letter template expansion macro
  604.  
  605. <:#284,9360>'Single letter version, creates a letter and selects FAX printer
  606.  
  607. <:#284,9360>' and sends the fax number to the printer
  608.  
  609. <:#284,9360>' the letter is faxed and the printer reset
  610.  
  611. <:#284,9360>' The fax printer and prefix parameters are set in JJFAXLIB
  612.  
  613. <:#284,9360>
  614.  
  615. <:#284,9360>'Changes for Commence 1.00a
  616.  
  617. <:#284,9360>' Type large text strings in block of 400 to circumvent Type limitation
  618.  
  619. <:#284,9360>' Output all connected items if multiple items are connected
  620.  
  621. <:#284,9360>' Get and use the actual name of the Name field rather than assuming it is "Name"
  622.  
  623. <:#284,9360>' Get rid of Tr subrountine so ~'s in field codes are OK
  624.  
  625. <:#284,9360>'
  626.  
  627. <:#284,9360>'1.00a+ version fixes
  628.  
  629. <:#284,9360>' 1 - change getactiveview to getletterview
  630.  
  631. <:#284,9360>' 2 - test for Icount = "" (this happens with an invalid bad field code)
  632.  
  633. <:#284,9360>
  634.  
  635. <:#284,9360>' 1.1 changes 
  636.  
  637. <:#284,9360>' 2/12/93:
  638.  
  639. <:#284,9360>' Add support for clarify fields
  640.  
  641. <:#284,9360>' Add dq function to handle quotes in names
  642.  
  643. <:#284,9360>' Note: this version requires the DDE patch version of AmiPro 3.0,
  644.  
  645. <:#284,9360>' earlier versions of AmiPro may UAE trying to send the longer DDE
  646.  
  647. <:#284,9360>'  commands used in this macro
  648.  
  649. <:#284,9360>
  650.  
  651. <:#284,9360>' 2.0c changes 7/27/93
  652.  
  653. <:#284,9360>' fix for blank clarify fields
  654.  
  655. <:#284,9360>' fix to handle left brackets 
  656.  
  657. <:#284,9360>' fix for fax number as last field in list
  658.  
  659. <:#284,9360>
  660.  
  661. <:#284,9360>' 3.0 changes 4/3/95
  662.  
  663. <:#284,9360>' support 50 character item names
  664.  
  665. <:#284,9360>' Commence 1.0a or later is required
  666.  
  667. <:#284,9360>
  668.  
  669. <:#284,9360>'SingleStep(1)
  670.  
  671. <:#284,9360>
  672.  
  673. <:#284,9360>DEFSTR b, cr, Name, Category, Work, Req, Treq, TemplateFile
  674.  
  675. <:#284,9360>DEFSTR Val, Value, Icount, s, nEnd, nStart, Iloop, p, Cname
  676.  
  677. <:#284,9360>DEFSTR Namefld,Cnamefld,WK,FC,Tmp,t1,dqName, dqPlainName
  678.  
  679. <:#284,9360>DEFSTR dqCName, dqPlainCName, I, J, L, FAXnum
  680.  
  681. <:#284,9360>DEFSTR AppName, gMsg1, gMsg2, gMsg3, gMsg4, gCancelJob
  682.  
  683. <:#284,9360>DEFSTR gFax1, gFax2
  684.  
  685. <:#284,9360>
  686.  
  687. <:#284,9360>AppName = "Commence"
  688.  
  689. <:#284,9360>
  690.  
  691. <:#284,9360>' Literal text; START TRANSLATION
  692.  
  693. <:#284,9360>gMsg1 = "Could NOT Establish DDE with {AppName}; Exiting ..."
  694.  
  695. <:#284,9360>gMsg2 = "Could NOT launch {AppName}; Exiting .."
  696.  
  697. <:#284,9360>gMsg3 = "Could not find the Fax number field for this category, cancelling job!"
  698.  
  699. <:#284,9360>gMsg4 = "No FAX phone number value in field "
  700.  
  701. <:#284,9360>gCancelJob = ", cancelling job!"
  702.  
  703. <:#284,9360>
  704.  
  705. <:#284,9360>gFax1 = "Fax"
  706.  
  707. <:#284,9360>gFax2 = "FAX"
  708.  
  709. <:#284,9360>
  710.  
  711. <:#284,9360>' END OF TRANSLATION
  712.  
  713. <:#284,9360>
  714.  
  715. cr = Chr$(13)        'a carriage return
  716.  
  717. <:#284,9360>b = Chr$(91)        'a left bracket
  718.  
  719. p = Chr$(124)        'the pipe character
  720.  
  721. <:#284,9360>q = Chr$(34)        'the double quote character
  722.  
  723. <:#284,9360>
  724.  
  725. <:#284,9360>'Start up a DDE link to Commence
  726.  
  727. <:#284,9360>c = DDEInitiate("Commence", "GetData")
  728.  
  729. <:#284,9360>'ONERROR ErrorLabel
  730.  
  731. <:#284,9360>if c <<=0 THEN
  732.  
  733. <:#284,9360>    ' DO Error Check
  734.  
  735. <:#284,9360>    AppName = "Commence"
  736.  
  737. <:#284,9360>    id = c
  738.  
  739. <:#284,9360>    OK = Exec("{AppName}.EXE", "", 1)  ' Open it
  740.  
  741. <:#284,9360>    IF OK <;> 32 THEN
  742.  
  743. <:#284,9360>        c = DDEInitiate("{AppName}", "GetData")  ' Call Application again
  744.  
  745. <:#284,9360>        IF c<<=0  THEN ' Still not open, End macro
  746.  
  747. <:#284,9360>            BEEP()
  748.  
  749. <:#284,9360>            HourGlass(0)
  750.  
  751. <:#284,9360>            IgnoreKeyboard(0)
  752.  
  753. <:#284,9360>            BEEP()
  754.  
  755. <:#284,9360>            Message(gMsg1)
  756.  
  757. <:#284,9360>            StatusBarMsg("")
  758.  
  759. <:#284,9360>            HourGlass(0)
  760.  
  761. <:#284,9360>            EXIT FUNCTION
  762.  
  763. <:#284,9360>        ENDIF
  764.  
  765. <:#284,9360>    ELSE    'Could not lauch Commence
  766.  
  767. <:#284,9360>        HourGlass(0)
  768.  
  769. <:#284,9360>        IgnoreKeyboard(0)
  770.  
  771. <:#284,9360>        BEEP()
  772.  
  773. <:#284,9360>        Message(gMsg2)
  774.  
  775. <:#284,9360>        StatusBarMsg("")
  776.  
  777. <:#284,9360>        HourGlass(0)
  778.  
  779. <:#284,9360>        EXIT FUNCTION
  780.  
  781. <:#284,9360>    ENDIF
  782.  
  783. <:#284,9360>Endif  ' End of Error Check
  784.  
  785. <:#284,9360>'Find out what version of Commence is running
  786.  
  787. <:#284,9360>c2 = DDEInitiate("Commence", "System")
  788.  
  789. <:#284,9360>version = DDEReceive$(c2, "Version")
  790.  
  791. <:#284,9360>DDETerminate(c2)
  792.  
  793. <:#284,9360>
  794.  
  795. If Left$(version,9) = "Version 1" OR Left$(version, 9) = "Version 2" Then
  796.  
  797. <:#284,9360>    NameSize = 35
  798.  
  799. <:#284,9360>Else
  800.  
  801. <:#284,9360>    NameSize = 50
  802.  
  803. <:#284,9360>Endif
  804.  
  805. <:#284,9360>
  806.  
  807. <:#284,9360>' Use clarified item names to avoid problems with duplicate names
  808.  
  809. <:#284,9360>Tmp = "{b}ClarifyItemNames(True)]"
  810.  
  811. <:#284,9360>s = DDEReceive$(c,Tmp)
  812.  
  813. <:#284,9360>
  814.  
  815. <:#284,9360>' Ask Commence what is currently highlighted
  816.  
  817. <:#284,9360>nState = 1
  818.  
  819. <:#284,9360>Tmp = "{b}GetLetterViewInfo(|)]"
  820.  
  821. <:#284,9360>s = DDEReceive$(c, Tmp)
  822.  
  823. <:#284,9360>
  824.  
  825. <:#284,9360>' Parse the return string, which is of the form:
  826.  
  827. <:#284,9360>'     <<View Name<;>
  828.  
  829. <:#284,9360>'     <<View Type<;>
  830.  
  831. <:#284,9360>'     <<Category Name<;>
  832.  
  833. <:#284,9360>'     <<Item Name<;>
  834.  
  835. <:#284,9360>'     <<Field Name<;>
  836.  
  837. <:#284,9360>
  838.  
  839. <:#284,9360>' Skip over the view name and view type, we don't care what it is
  840.  
  841. <:#284,9360>nStart = 1
  842.  
  843. <:#284,9360>nEnd = InStr(nStart, s, p)
  844.  
  845. <:#284,9360>nStart = nEnd + 1
  846.  
  847. <:#284,9360>nEnd = InStr(nStart, s, p)
  848.  
  849. <:#284,9360>'Get the active category
  850.  
  851. <:#284,9360>nStart = nEnd + 1
  852.  
  853. <:#284,9360>nEnd = InStr(nStart, s, p)
  854.  
  855. <:#284,9360>Category = Mid$(s, nStart, nEnd - nStart)
  856.  
  857. <:#284,9360>'Get the highlighted item
  858.  
  859. <:#284,9360>nStart = nEnd + 1
  860.  
  861. <:#284,9360>nEnd = InStr(nStart, s, p)
  862.  
  863. <:#284,9360>Name =  Mid$(s, nStart, nEnd - nStart)
  864.  
  865. <:#284,9360>'Get the plain and clarified versions of the name
  866.  
  867. <:#284,9360>
  868.  
  869. <:#284,9360>If Len(Name) <;> NameSize Then
  870.  
  871. <:#284,9360>    Tmp = Call Trim(Mid$(Name,1,NameSize))
  872.  
  873. <:#284,9360>Else
  874.  
  875. <:#284,9360>    Tmp = Call Trim(Name)
  876.  
  877. <:#284,9360>EndIf
  878.  
  879. <:#284,9360>dqPlainName = Call dq(Tmp)
  880.  
  881. <:#284,9360>dqName = Call dq(Name)
  882.  
  883. <:#284,9360>
  884.  
  885. <:#284,9360>'Get the name field for this category
  886.  
  887. <:#284,9360>Tmp = "{b}GetFieldNames({Category},|)]"
  888.  
  889. <:#284,9360>s = DDEReceive$(c, Tmp)
  890.  
  891. <:#284,9360>nStart = 1
  892.  
  893. <:#284,9360>nEnd = InStr(nStart, s, p)
  894.  
  895. <:#284,9360>Namefld = Mid$(s, nStart, nEnd - nStart)
  896.  
  897. <:#284,9360>
  898.  
  899. <:#284,9360>'Start looking for Field Codes to retrieve
  900.  
  901. <:#284,9360>'SingleStep(1)
  902.  
  903. <:#284,9360>first = 0
  904.  
  905. <:#284,9360>
  906.  
  907. <:#284,9360>Search:
  908.  
  909. <:#284,9360>IF first = 0 THEN        'First time, start at beginning of file
  910.  
  911. <:#284,9360>    IR = Replace (0,0,8193,"(%","")
  912.  
  913. <:#284,9360>    first = 1
  914.  
  915. <:#284,9360>ELSE                'Otherwise, search from the current position
  916.  
  917. <:#284,9360>    IR = Replace (0,0,1,"(%","")
  918.  
  919. <:#284,9360>ENDIF
  920.  
  921. <:#284,9360>
  922.  
  923. <:#284,9360>IF IR <<<;> 1 THEN 
  924.  
  925. <:#284,9360>    Goto Normalx        'No match, no remaining codes, finished substituting
  926.  
  927. <:#284,9360>ENDIF 
  928.  
  929. <:#284,9360>
  930.  
  931. <:#284,9360>'Now start to look for the end of the Field Code
  932.  
  933. <:#284,9360>Look:
  934.  
  935. <:#284,9360>t1 = CurChar$()
  936.  
  937. <:#284,9360>
  938.  
  939. <:#284,9360>IF t1 = "%" THEN
  940.  
  941. <:#284,9360>    TYPE("<[>SHIFTRIGHT]")
  942.  
  943. <:#284,9360>    IF AtEOF() THEN
  944.  
  945. <:#284,9360>        TYPE("<[>RIGHT]")
  946.  
  947. <:#284,9360>        GoTo Normalx        'reached the end, no match, no more codes
  948.  
  949. <:#284,9360>    ENDIF
  950.  
  951. <:#284,9360>    IF CurChar$() = ")" THEN        'We have found the end
  952.  
  953. <:#284,9360>        TYPE("<[>SHIFTRIGHT]")
  954.  
  955. <:#284,9360>        GoTo Found
  956.  
  957. <:#284,9360>    ENDIF
  958.  
  959. <:#284,9360>ELSEIF t1 = "" THEN    'We have hit the end of a line, reset search
  960.  
  961. <:#284,9360>    TYPE("<[>RIGHT]")
  962.  
  963. <:#284,9360>    IF AtEOF() THEN
  964.  
  965. <:#284,9360>        TYPE("<[>RIGHT]")
  966.  
  967. <:#284,9360>        GoTo Normalx    'reached the end,no more codes
  968.  
  969. <:#284,9360>    ENDIF
  970.  
  971. <:#284,9360>    Goto Search
  972.  
  973. <:#284,9360>ELSE
  974.  
  975. <:#284,9360>    TYPE("<[>SHIFTRIGHT]")
  976.  
  977. <:#284,9360>    IF AtEOF() THEN
  978.  
  979. <:#284,9360>        TYPE("<[>RIGHT]")
  980.  
  981. <:#284,9360>        GoTo Normalx    'reached the end, no more codes
  982.  
  983. <:#284,9360>    ENDIF
  984.  
  985. <:#284,9360>ENDIF
  986.  
  987. <:#284,9360>Goto Look
  988.  
  989. <:#284,9360>
  990.  
  991. <:#284,9360>Found:
  992.  
  993. <:#284,9360>'SingleStep(1)
  994.  
  995. <:#284,9360>'Now we have a Field Code, so save it in a variable
  996.  
  997. <:#284,9360>FC = CurShade$()        
  998.  
  999. <:#284,9360>'Strip off the (% %) parts
  1000.  
  1001. <:#284,9360>K = Len(FC)
  1002.  
  1003. <:#284,9360>WK = MID$(FC, 3, K - 4)
  1004.  
  1005. <:#284,9360>'Check to see if this is an indirect field: it is if it has a %%
  1006.  
  1007. <:#284,9360>I = Instr(0, WK, "%%")
  1008.  
  1009. <:#284,9360>IF I = 0 THEN        'We have a direct field 
  1010.  
  1011. <:#284,9360>    'First check to see if this is the name field
  1012.  
  1013. <:#284,9360>    IF WK = Namefld  THEN    
  1014.  
  1015. <:#284,9360>    'Call Commence to get the reversed version
  1016.  
  1017. <:#284,9360>        Req ="{b}GetReverseName({q}{dqPlainName}{q})]"
  1018.  
  1019. <:#284,9360>        Value = DDEReceive$(c, Req)
  1020.  
  1021. <:#284,9360>    ELSE    
  1022.  
  1023. <:#284,9360>        'This is not the name field, get the data from Commence
  1024.  
  1025. <:#284,9360>        Req ="{b}GetField({q}{Category}{q},"
  1026.  
  1027. <:#284,9360>        Req = strcat$(Req,"{q}{dqName}{q},{q}{WK}{q})]")
  1028.  
  1029. <:#284,9360>        Val = DDEReceive$(c, Req)
  1030.  
  1031. <:#284,9360>        Value = Call Tr1(Val)    'Get rid of newlines
  1032.  
  1033. <:#284,9360>    ENDIF
  1034.  
  1035. <:#284,9360>    IF Value <<<;> "" THEN         
  1036.  
  1037. <:#284,9360>        'Put in the value if we found one
  1038.  
  1039. <:#284,9360>        Call Btype(Value)    'Add in the value
  1040.  
  1041. <:#284,9360>    ELSE                 'Clear out the  code
  1042.  
  1043. <:#284,9360>        TYPE("<[>Del]")
  1044.  
  1045. <:#284,9360>        'Check to see if we made a blank line
  1046.  
  1047. <:#284,9360>        If CurChar$() = "" Then
  1048.  
  1049. <:#284,9360>            Type("<[>Left]")
  1050.  
  1051. <:#284,9360>            If CurChar$() = "" Then
  1052.  
  1053. <:#284,9360>                Type("<[>DEL]")
  1054.  
  1055. <:#284,9360>            ELSE
  1056.  
  1057. <:#284,9360>                Type("<[>Right]")
  1058.  
  1059. <:#284,9360>            ENDIF
  1060.  
  1061. <:#284,9360>        ENDIF    
  1062.  
  1063. <:#284,9360>    ENDIF
  1064.  
  1065. <:#284,9360>ELSE    
  1066.  
  1067. <:#284,9360>'This is an indirect field, parse it to get the values we neeed
  1068.  
  1069. <:#284,9360>    Conn = Left$(WK, I - 1)
  1070.  
  1071. <:#284,9360>    Rest = Mid$(WK, I + 2, Len(WK) - I - 1)
  1072.  
  1073. <:#284,9360>    I = Instr(0,Rest, "%%")
  1074.  
  1075. <:#284,9360>    Cat = Left$(Rest, I - 1)
  1076.  
  1077. <:#284,9360>    Field = Mid$(Rest, I + 2, Len(Rest) - I - 1)
  1078.  
  1079. <:#284,9360>    'Build the DDE command
  1080.  
  1081. <:#284,9360>    Req ="{b}GetConnectedItemCount({q}{Category}{q},"
  1082.  
  1083. <:#284,9360>    Req = strcat$(Req,"{q}{dqName}{q},{q}{Conn}{q},{q}{Cat}{q},|)]")
  1084.  
  1085. <:#284,9360>    Icount = DDEReceive$(c, Req)
  1086.  
  1087. <:#284,9360>    
  1088.  
  1089. <:#284,9360>    IF Icount = 0 or Icount = "" THEN
  1090.  
  1091. <:#284,9360>        Value = ""
  1092.  
  1093. <:#284,9360>        Goto Insert2
  1094.  
  1095. <:#284,9360>    Endif
  1096.  
  1097. <:#284,9360>
  1098.  
  1099. <:#284,9360>    'Get the name field for this category
  1100.  
  1101. <:#284,9360>    Tmp = "{b}GetFieldNames({Cat},|)]"
  1102.  
  1103. <:#284,9360>    s = DDEReceive$(c, Tmp)
  1104.  
  1105. <:#284,9360>    nStart = 1
  1106.  
  1107. <:#284,9360>    nEnd = InStr(nStart, s, p)
  1108.  
  1109. <:#284,9360>    Cnamefld = Mid$(s, nStart, nEnd - nStart)
  1110.  
  1111. <:#284,9360>    
  1112.  
  1113. <:#284,9360>    'Now get the list of names
  1114.  
  1115. <:#284,9360>    Req = "{b}GetConnectedItemNames({q}{Category}{q},"
  1116.  
  1117. <:#284,9360>    Req = strcat$(Req,"{q}{dqName}{q},{q}{Conn}{q},{q}{Cat}{q},|)]")
  1118.  
  1119. <:#284,9360>    s = DDEReceive$(c, Req)
  1120.  
  1121. <:#284,9360>    nStart = 1
  1122.  
  1123. <:#284,9360>    
  1124.  
  1125. <:#284,9360>    For Iloop = 1 to Icount
  1126.  
  1127. <:#284,9360>
  1128.  
  1129. <:#284,9360>    nEnd = InStr(nStart, s, p)
  1130.  
  1131. <:#284,9360>    
  1132.  
  1133. <:#284,9360>    If nEnd = 0 Then
  1134.  
  1135. <:#284,9360>        nLen = Len(s)
  1136.  
  1137. <:#284,9360>        Cname = Mid$(s, nStart, nLen - nStart + 1)
  1138.  
  1139. <:#284,9360>    Else        
  1140.  
  1141. <:#284,9360>        Cname = Mid$(s, nStart, nEnd - nStart)
  1142.  
  1143. <:#284,9360>        nStart = nEnd + 1
  1144.  
  1145. <:#284,9360>    EndIf
  1146.  
  1147. <:#284,9360>'SingleStep(1)
  1148.  
  1149. <:#284,9360>    If Len(CName) <;> NameSize Then
  1150.  
  1151. <:#284,9360>        Tmp = Call Trim(Mid$(CName,1,NameSize))
  1152.  
  1153. <:#284,9360>    Else
  1154.  
  1155. <:#284,9360>        Tmp = Cname
  1156.  
  1157. <:#284,9360>    EndIf
  1158.  
  1159. <:#284,9360>    dqPlainCName = Call dq(Tmp)
  1160.  
  1161. <:#284,9360>    dqCName = Call dq(CName)
  1162.  
  1163. <:#284,9360>
  1164.  
  1165. <:#284,9360>    'Now we have a Cname to use to get the desired field
  1166.  
  1167. <:#284,9360>    'Check to see if we are looking for the name
  1168.  
  1169. <:#284,9360>        IF Field = Cnamefld THEN    
  1170.  
  1171. <:#284,9360>            'Get the reversed version from Commence
  1172.  
  1173. <:#284,9360>            Req = "{b}GetReverseName({q}{dqPlainCname}{q})]"
  1174.  
  1175. <:#284,9360>            Val = DDEReceive$(c, Req)
  1176.  
  1177. <:#284,9360>            If Iloop = 1 Then
  1178.  
  1179. <:#284,9360>                Value = Val
  1180.  
  1181. <:#284,9360>            Else    'Add on the other connections
  1182.  
  1183. <:#284,9360>                Value = strcat$(Value, cr, Val)
  1184.  
  1185. <:#284,9360>            EndIf
  1186.  
  1187. <:#284,9360>        ELSE
  1188.  
  1189. <:#284,9360>    Req="{b}GetField({q}{Cat}{q},{q}{dqCname}{q},{q}{Field}{q})]"
  1190.  
  1191. <:#284,9360>
  1192.  
  1193. <:#284,9360>            Val = DDEReceive$(c, Req)
  1194.  
  1195. <:#284,9360>            Vala = Call Tr1(Val)    'Get rid of newlines
  1196.  
  1197. <:#284,9360>            'SingleStep(1)
  1198.  
  1199. <:#284,9360>            If Iloop = 1 Then
  1200.  
  1201. <:#284,9360>                Value = Vala
  1202.  
  1203. <:#284,9360>            Else        'Add on the other connections
  1204.  
  1205. <:#284,9360>                Value = strcat$(Value, cr, Vala)
  1206.  
  1207. <:#284,9360>            EndIf
  1208.  
  1209. <:#284,9360>
  1210.  
  1211. <:#284,9360>        ENDIF
  1212.  
  1213. <:#284,9360>    NEXT
  1214.  
  1215. <:#284,9360>Insert2:
  1216.  
  1217. <:#284,9360>    IF Value <<<;> "" THEN     'Put in the value if we found one
  1218.  
  1219. <:#284,9360>            Call Btype(Value)    'Add in the value
  1220.  
  1221. <:#284,9360>    ELSE                 
  1222.  
  1223. <:#284,9360>    'Move the insertion point and leave the field code
  1224.  
  1225. <:#284,9360>            TYPE("<[>Del]")
  1226.  
  1227. <:#284,9360>            'Check to see if we made a blank line
  1228.  
  1229. <:#284,9360>            If CurChar$() = "" Then
  1230.  
  1231. <:#284,9360>                Type("<[>Left]")
  1232.  
  1233. <:#284,9360>                If CurChar$() = "" Then
  1234.  
  1235. <:#284,9360>                    Type("<[>DEL]")
  1236.  
  1237. <:#284,9360>                ELSE
  1238.  
  1239. <:#284,9360>                    Type("<[>Right]")
  1240.  
  1241. <:#284,9360>                ENDIF
  1242.  
  1243. <:#284,9360>            ENDIF
  1244.  
  1245. <:#284,9360>    ENDIF
  1246.  
  1247. <:#284,9360>ENDIF
  1248.  
  1249. <:#284,9360>'Go back and look for more Field Codes
  1250.  
  1251. <:#284,9360>Goto Search
  1252.  
  1253. <:#284,9360>
  1254.  
  1255. <:#284,9360>Normalx:
  1256.  
  1257. <:#284,9360>'***************************
  1258.  
  1259. <:#284,9360>'These the only different lines from jjclett, jjplett, and jjfax
  1260.  
  1261. <:#284,9360>'Save the file with the data from Commence 
  1262.  
  1263. <:#284,9360>Save()    
  1264.  
  1265. <:#284,9360>'SingleStep(1)
  1266.  
  1267. <:#284,9360>
  1268.  
  1269. <:#284,9360>'Find the Fax number field
  1270.  
  1271. <:#284,9360>Req ="{b}GetFieldNames({q}{Category}{q})]"
  1272.  
  1273. <:#284,9360>Val = DDEReceive$(c, Req)
  1274.  
  1275. <:#284,9360>'add a cr to the end so we can find the last field
  1276.  
  1277. <:#284,9360>Val = strcat$(Val, cr)
  1278.  
  1279. <:#284,9360>I = Instr(0,Val, gFax1)
  1280.  
  1281. <:#284,9360>IF I <<<;> 0 THEN
  1282.  
  1283. <:#284,9360>    J = Instr(I,Val,cr)
  1284.  
  1285. <:#284,9360>    L = J - I
  1286.  
  1287. <:#284,9360>    FAX = Mid$(Val, I, L)
  1288.  
  1289. <:#284,9360>ELSE
  1290.  
  1291. <:#284,9360>    I = Instr(0,Val, gFax2)
  1292.  
  1293. <:#284,9360>    IF I <<<;> 0 THEN
  1294.  
  1295. <:#284,9360>        J = Instr(I,Val,cr)
  1296.  
  1297. <:#284,9360>        L = J - I
  1298.  
  1299. <:#284,9360>        FAX = Mid$(Val, I, L)
  1300.  
  1301. <:#284,9360>    ELSE
  1302.  
  1303. <:#284,9360>        Message(gMsg3)
  1304.  
  1305. <:#284,9360>        Goto Cleanup
  1306.  
  1307. <:#284,9360>    ENDIF
  1308.  
  1309. <:#284,9360>ENDIF
  1310.  
  1311. <:#284,9360>
  1312.  
  1313. <:#284,9360>Req ="{b}GetField({q}{Category}{q},"
  1314.  
  1315. <:#284,9360>Req = strcat$(Req,"{q}{dqName}{q},{q}{FAX}{q})]")
  1316.  
  1317. <:#284,9360>Val = DDEReceive$(c, Req)
  1318.  
  1319. <:#284,9360>'Get the trimmed fax number
  1320.  
  1321. <:#284,9360>FAXnum = Call TrimFront(Val)
  1322.  
  1323. <:#284,9360>'Check for a non-null fax number
  1324.  
  1325. <:#284,9360>IF FAXnum <<<;> "" THEN
  1326.  
  1327. <:#284,9360>    'Call Commence to get the reversed version
  1328.  
  1329. <:#284,9360>    Req ="{b}GetReverseName({q}{dqPlainName}{q})]"
  1330.  
  1331. <:#284,9360>    FaxName=DDEReceive$(c,Req)
  1332.  
  1333. <:#284,9360>    CALL JJFaxLib.smm!JJFaxSend(FaxName,FAXnum,1)    
  1334.  
  1335. <:#284,9360>ELSE
  1336.  
  1337. <:#284,9360>    ' build messsage including FAX phone field.
  1338.  
  1339. <:#284,9360>    temp = gMsg4
  1340.  
  1341. <:#284,9360>    temp = strcat$(temp, "{FAX}")
  1342.  
  1343. <:#284,9360>    temp = strcat$(temp, gCancelJob)
  1344.  
  1345. <:#284,9360>    Message(temp)
  1346.  
  1347. <:#284,9360>ENDIF
  1348.  
  1349. <:#284,9360>
  1350.  
  1351. <:#284,9360>
  1352.  
  1353. <:#284,9360>Cleanup:
  1354.  
  1355. <:#284,9360>ActivateApp("Commence") 
  1356.  
  1357. <:#284,9360>rmac = GetRunningMacroFile$() 
  1358.  
  1359. <:#284,9360>RunLater("{rmac}!Closeit()", 0.2)  
  1360.  
  1361. <:#284,9360>
  1362.  
  1363. <:#284,9360>'The end of the different lines ***********************
  1364.  
  1365. <:#284,9360>
  1366.  
  1367. <:#284,9360>DDETerminate(c)
  1368.  
  1369. <:#284,9360>End Function
  1370.  
  1371. <:#284,9360>
  1372.  
  1373. <:#284,9360>Function TrimFront(OS)
  1374.  
  1375. <:#284,9360>'Removes leading blanks
  1376.  
  1377. <:#284,9360>k = Len(OS)
  1378.  
  1379. <:#284,9360>i = 1
  1380.  
  1381. <:#284,9360>While(i << k)
  1382.  
  1383. <:#284,9360>    If(Mid$(OS, i, 1) <<<;> " ") Then 
  1384.  
  1385. <:#284,9360>        Goto loopend
  1386.  
  1387. <:#284,9360>    ENDIF
  1388.  
  1389. <:#284,9360>    i = i + 1
  1390.  
  1391. <:#284,9360>Wend
  1392.  
  1393. <:#284,9360>loopend:
  1394.  
  1395. <:#284,9360>If i = k or k = 0 Then
  1396.  
  1397. <:#284,9360>    TrimFront = ""
  1398.  
  1399. <:#284,9360>Else
  1400.  
  1401.     TrimFront = Mid$(OS, i, k)
  1402.  
  1403. <:#284,9360>EndIf
  1404.  
  1405. <:#284,9360>End Function
  1406.  
  1407. <:#284,9360>
  1408.  
  1409. <:#284,9360>Function Tr1(OS)
  1410.  
  1411. <:#284,9360>' Translates NL to "" in a string since Ami treats CR/NL as two lines
  1412.  
  1413. <:#284,9360>'New algorithm to speed this up 2/12/92
  1414.  
  1415. <:#284,9360>n = Chr$(10)
  1416.  
  1417. <:#284,9360>Newstring = ""
  1418.  
  1419. <:#284,9360>J = 1
  1420.  
  1421. <:#284,9360>NextLook:
  1422.  
  1423. <:#284,9360>K = InStr(J,OS,n)
  1424.  
  1425. <:#284,9360>If K <<<;> 0 Then
  1426.  
  1427. <:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J,K - J))
  1428.  
  1429. <:#284,9360>    J = K + 1
  1430.  
  1431. <:#284,9360>    Goto NextLook
  1432.  
  1433. <:#284,9360>Else
  1434.  
  1435. <:#284,9360>    IF J = 1 THEN
  1436.  
  1437. <:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS)))
  1438.  
  1439. <:#284,9360>    ELSE
  1440.  
  1441. <:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS) - J + 1))
  1442.  
  1443. <:#284,9360>    ENDIF
  1444.  
  1445. <:#284,9360>ENDIF
  1446.  
  1447. <:#284,9360>Tr1 = Newstring
  1448.  
  1449. <:#284,9360>End Function
  1450.  
  1451. <:#284,9360>
  1452.  
  1453. <:#284,9360>Function dq(OS)
  1454.  
  1455. <:#284,9360>' Translates " to "" for transmission back to Commence 
  1456.  
  1457. <:#284,9360>q = Chr$(34)
  1458.  
  1459. <:#284,9360>q2 ="{q}{q}"
  1460.  
  1461. <:#284,9360>Newstring = ""
  1462.  
  1463. <:#284,9360>J = Len(OS)
  1464.  
  1465. <:#284,9360>FOR I = 1 TO J
  1466.  
  1467. <:#284,9360>        Schar = Mid$(OS, I, 1)
  1468.  
  1469. <:#284,9360>        IF Schar = q THEN 
  1470.  
  1471. <:#284,9360>        Schar = q2
  1472.  
  1473. <:#284,9360>    ENDIF
  1474.  
  1475. <:#284,9360>        Newstring = strcat$(Newstring, Schar)
  1476.  
  1477. <:#284,9360>NEXT
  1478.  
  1479. <:#284,9360>dq = Newstring
  1480.  
  1481. <:#284,9360>End Function
  1482.  
  1483. <:#284,9360>
  1484.  
  1485. <:#284,9360>Function Trim(s)
  1486.  
  1487. <:#284,9360>'Removes trailing blanks
  1488.  
  1489. <:#284,9360>i = Len(s)
  1490.  
  1491. <:#284,9360>WHILE (i <;> 0)
  1492.  
  1493. <:#284,9360>    IF(Mid$(s, i, 1) <<<;> " ") THEN 
  1494.  
  1495. <:#284,9360>        Goto loopend
  1496.  
  1497. <:#284,9360>    ENDIF
  1498.  
  1499. <:#284,9360>    i = i - 1
  1500.  
  1501. <:#284,9360>WEND
  1502.  
  1503. <:#284,9360>loopend:
  1504.  
  1505. <:#284,9360>IF i = 0 THEN
  1506.  
  1507. <:#284,9360>    Trim = ""
  1508.  
  1509. <:#284,9360>ELSE
  1510.  
  1511. <:#284,9360>    Trim = Mid$(s, 1, i)
  1512.  
  1513. <:#284,9360>ENDIF
  1514.  
  1515. <:#284,9360>End Function
  1516.  
  1517. <:#284,9360>
  1518.  
  1519. <:#284,9360>Function db(OS)
  1520.  
  1521. <:#284,9360>' Translates <[> to <[><[> for insertion in document
  1522.  
  1523. <:#284,9360>' added for 2.0c
  1524.  
  1525. <:#284,9360>b = Chr$(91)
  1526.  
  1527. <:#284,9360>b2 ="{b}{b}"
  1528.  
  1529. <:#284,9360>Newstring = ""
  1530.  
  1531. <:#284,9360>J = Len(OS)
  1532.  
  1533. <:#284,9360>FOR I = 1 TO J
  1534.  
  1535. <:#284,9360>        Schar = Mid$(OS, I, 1)
  1536.  
  1537. <:#284,9360>        IF Schar = b THEN 
  1538.  
  1539. <:#284,9360>        Schar = b2
  1540.  
  1541. <:#284,9360>    ENDIF
  1542.  
  1543. <:#284,9360>        Newstring = strcat$(Newstring, Schar)
  1544.  
  1545. <:#284,9360>NEXT
  1546.  
  1547. <:#284,9360>db = Newstring
  1548.  
  1549. <:#284,9360>End Function
  1550.  
  1551. <:#284,9360>
  1552.  
  1553. <:#284,9360>Function Btype(Out)
  1554.  
  1555. <:#284,9360>'Outputs a string in chunks if nescessary
  1556.  
  1557. <:#284,9360>'SingleStep(1)
  1558.  
  1559. <:#284,9360>Out = db(Out)
  1560.  
  1561. <:#284,9360>IL = Len(Out)
  1562.  
  1563. <:#284,9360>If IL << 400 then
  1564.  
  1565. <:#284,9360>    TYPE(Out)
  1566.  
  1567. <:#284,9360>ELSE
  1568.  
  1569. <:#284,9360>    FOR IC = 1 to IL
  1570.  
  1571. <:#284,9360>        STEP 400
  1572.  
  1573. <:#284,9360>        Tmp = MID$(Out, IC, 400)
  1574.  
  1575. <:#284,9360>        TYPE(Tmp)
  1576.  
  1577. <:#284,9360>    NEXT    
  1578.  
  1579. <:#284,9360>ENDIF
  1580.  
  1581. <:#284,9360>End Function
  1582.  
  1583. <:#284,9360>
  1584.  
  1585. <:#284,9360>Function Closeit()
  1586.  
  1587. <:#284,9360>
  1588.  
  1589. <:#284,9360>AnswerMsgBox(Yes)
  1590.  
  1591. <:#284,9360>
  1592.  
  1593. <:#284,9360>FileClose()
  1594.  
  1595. <:#284,9360>
  1596.  
  1597. <:#284,9360>End Function
  1598.  
  1599. @Function Head@<:#284,9360>
  1600.  
  1601. >
  1602.  
  1603. [Embedded]
  1604. 00024119
  1605. >
  1606. [macsum] 8
  1607. JJFaxLet 0 0 61 0
  1608. TrimFront 5865 1 3 387
  1609. Tr1 6154 1 5 405
  1610. dq 6594 1 7 427
  1611. Trim 6883 1 2 443
  1612. db 7132 1 7 460
  1613. Btype 7421 1 4 477
  1614. Closeit 7683 0 1 493
  1615. [macse]
  1616. 14 JJFaxLet
  1617. 7 "Commence"
  1618. 8 32
  1619. 7 "Could NOT Establish DDE with {32}; Exiting ..."
  1620. 8 33
  1621. 7 "Could NOT launch {32}; Exiting .."
  1622. 8 34
  1623. 7 "Could not find the Fax number field for this category, cancelling job!"
  1624. 8 35
  1625. 7 "No FAX phone number value in field "
  1626. 8 36
  1627. 7 ", cancelling job!"
  1628. 8 37
  1629. 7 "Fax"
  1630. 8 38
  1631. 7 "FAX"
  1632. 8 39
  1633. 0 39 13
  1634. 13
  1635. 8 2
  1636. 0 39 91
  1637. 13
  1638. 8 1
  1639. 0 39 124
  1640. 13
  1641. 8 16
  1642. 0 39 34
  1643. 13
  1644. 8 40
  1645. 0 8 "Commence" "GetData"
  1646. 13
  1647. 8 41
  1648. 6 41
  1649. 5 0
  1650. 18 4
  1651. 11 00000776
  1652. 7 "Commence"
  1653. 8 32
  1654. 6 41
  1655. 8 42
  1656. 0 22 "{32}.EXE" "" 1
  1657. 13
  1658. 8 43
  1659. 6 43
  1660. 5 32
  1661. 18 3
  1662. 11 00000709
  1663. 0 8 "{32}" "GetData"
  1664. 13
  1665. 8 41
  1666. 6 41
  1667. 5 0
  1668. 18 4
  1669. 11 00000696
  1670. 0 801
  1671. 0 296 0
  1672. 0 32 0
  1673. 0 801
  1674. 0 3 "{33}"
  1675. 0 789 ""
  1676. 0 296 0
  1677. 6 0
  1678. 15
  1679. 9
  1680. 10 00000776
  1681. 0 296 0
  1682. 0 32 0
  1683. 0 801
  1684. 0 3 "{34}"
  1685. 0 789 ""
  1686. 0 296 0
  1687. 6 0
  1688. 15
  1689. 9
  1690. 0 8 "Commence" "System"
  1691. 13
  1692. 8 44
  1693. 0 10 "{44}" "Version"
  1694. 13
  1695. 8 45
  1696. 0 9 "{44}"
  1697. 0 806 "{45}" 9
  1698. 13
  1699. 7 "Version 1"
  1700. 18 0
  1701. 0 806 "{45}" 9
  1702. 13
  1703. 7 "Version 2"
  1704. 18 0
  1705. 1 2
  1706. 11 00000981
  1707. 5 35
  1708. 8 46
  1709. 10 00000993
  1710. 5 50
  1711. 8 46
  1712. 7 "{1}ClarifyItemNames(True)]"
  1713. 8 22
  1714. 0 10 "{41}" "{22}"
  1715. 13
  1716. 8 12
  1717. 5 1
  1718. 8 47
  1719. 7 "{1}GetLetterViewInfo(|)]"
  1720. 8 22
  1721. 0 10 "{41}" "{22}"
  1722. 13
  1723. 8 12
  1724. 5 1
  1725. 8 14
  1726. 0 808 "{14}" "{12}" "{16}"
  1727. 13
  1728. 8 13
  1729. 6 13
  1730. 5 1
  1731. 3 0
  1732. 8 14
  1733. 0 808 "{14}" "{12}" "{16}"
  1734. 13
  1735. 8 13
  1736. 6 13
  1737. 5 1
  1738. 3 0
  1739. 8 14
  1740. 0 808 "{14}" "{12}" "{16}"
  1741. 13
  1742. 8 13
  1743. 6 13
  1744. 6 14
  1745. 3 1
  1746. 0 15 "{12}" "{14}" [X]
  1747. 13
  1748. 8 4
  1749. 6 13
  1750. 5 1
  1751. 3 0
  1752. 8 14
  1753. 0 808 "{14}" "{12}" "{16}"
  1754. 13
  1755. 8 13
  1756. 6 13
  1757. 6 14
  1758. 3 1
  1759. 0 15 "{12}" "{14}" [X]
  1760. 13
  1761. 8 3
  1762. 0 14 "{3}"
  1763. 13
  1764. 6 46
  1765. 18 3
  1766. 11 00001569
  1767. 0 15 "{3}" 1 "{46}"
  1768. 13
  1769. 16 Trim [X]
  1770. 13
  1771. 8 22
  1772. 10 00001594
  1773. 16 Trim "{3}"
  1774. 13
  1775. 8 22
  1776. 16 dq "{22}"
  1777. 13
  1778. 8 25
  1779. 16 dq "{3}"
  1780. 13
  1781. 8 24
  1782. 7 "{1}GetFieldNames({4},|)]"
  1783. 8 22
  1784. 0 10 "{41}" "{22}"
  1785. 13
  1786. 8 12
  1787. 5 1
  1788. 8 14
  1789. 0 808 "{14}" "{12}" "{16}"
  1790. 13
  1791. 8 13
  1792. 6 13
  1793. 6 14
  1794. 3 1
  1795. 0 15 "{12}" "{14}" [X]
  1796. 13
  1797. 8 18
  1798. 5 0
  1799. 8 48
  1800. 6 48
  1801. 5 0
  1802. 18 0
  1803. 11 00001907
  1804. 2 488 1 0 0 8193 "(" ""
  1805. 13
  1806. 8 49
  1807. 5 1
  1808. 8 48
  1809. 10 00001939
  1810. 2 488 1 0 0 1 "(" ""
  1811. 13
  1812. 8 49
  1813. 6 49
  1814. 5 1
  1815. 18 1
  1816. 11 00001982
  1817. 10 00004922
  1818. 0 282
  1819. 13
  1820. 8 23
  1821. 6 23
  1822. 7 "%"
  1823. 18 0
  1824. 11 00002171
  1825. 0 6 "[4135]"
  1826. 0 278
  1827. 13
  1828. 11 00002094
  1829. 0 6 "[39]"
  1830. 10 00004922
  1831. 0 282
  1832. 13
  1833. 7 ")"
  1834. 18 0
  1835. 11 00002158
  1836. 0 6 "[4135]"
  1837. 10 00002365
  1838. 10 00002352
  1839. 6 23
  1840. 7 ""
  1841. 18 0
  1842. 11 00002289
  1843. 0 6 "[39]"
  1844. 0 278
  1845. 13
  1846. 11 00002263
  1847. 0 6 "[39]"
  1848. 10 00004922
  1849. 10 00001818
  1850. 10 00002352
  1851. 0 6 "[4135]"
  1852. 0 278
  1853. 13
  1854. 11 00002352
  1855. 0 6 "[39]"
  1856. 10 00004922
  1857. 10 00001982
  1858. 0 24
  1859. 13
  1860. 8 21
  1861. 0 14 "{21}"
  1862. 13
  1863. 8 50
  1864. 6 50
  1865. 5 4
  1866. 3 1
  1867. 0 15 "{21}" 3 [X]
  1868. 13
  1869. 8 20
  1870. 0 808 0 "{20}" "%"
  1871. 13
  1872. 8 28
  1873. 6 28
  1874. 5 0
  1875. 18 0
  1876. 11 00002970
  1877. 6 20
  1878. 6 18
  1879. 18 0
  1880. 11 00002625
  1881. 7 "{1}GetReverseName({40}{25}{40})]"
  1882. 8 6
  1883. 0 10 "{41}" "{6}"
  1884. 13
  1885. 8 10
  1886. 10 00002763
  1887. 7 "{1}GetField({40}{4}{40},"
  1888. 8 6
  1889. 0 16 "{6}" "{40}{24}{40},{40}{20}{40})]"
  1890. 13
  1891. 8 6
  1892. 0 10 "{41}" "{6}"
  1893. 13
  1894. 8 9
  1895. 16 Tr1 "{9}"
  1896. 13
  1897. 8 10
  1898. 6 10
  1899. 7 ""
  1900. 18 1
  1901. 11 00002824
  1902. 16 Btype "{10}"
  1903. 10 00002957
  1904. 0 6 "[46]"
  1905. 0 282
  1906. 13
  1907. 7 ""
  1908. 18 0
  1909. 11 00002957
  1910. 0 6 "[37]"
  1911. 0 282
  1912. 13
  1913. 7 ""
  1914. 18 0
  1915. 11 00002945
  1916. 0 6 "[46]"
  1917. 10 00002957
  1918. 0 6 "[39]"
  1919. 10 00004909
  1920. 6 28
  1921. 5 1
  1922. 3 1
  1923. 0 806 "{20}" [X]
  1924. 13
  1925. 8 51
  1926. 6 28
  1927. 5 2
  1928. 3 0
  1929. 0 14 "{20}"
  1930. 13
  1931. 6 28
  1932. 3 1
  1933. 5 1
  1934. 3 1
  1935. 0 15 "{20}" [X] [X]
  1936. 13
  1937. 8 52
  1938. 0 808 0 "{52}" "%"
  1939. 13
  1940. 8 28
  1941. 6 28
  1942. 5 1
  1943. 3 1
  1944. 0 806 "{52}" [X]
  1945. 13
  1946. 8 53
  1947. 6 28
  1948. 5 2
  1949. 3 0
  1950. 0 14 "{52}"
  1951. 13
  1952. 6 28
  1953. 3 1
  1954. 5 1
  1955. 3 1
  1956. 0 15 "{52}" [X] [X]
  1957. 13
  1958. 8 54
  1959. 7 "{1}GetConnectedItemCount({40}{4}{40},"
  1960. 8 6
  1961. 0 16 "{6}" "{40}{24}{40},{40}{51}{40},{40}{53}{40},|)]"
  1962. 13
  1963. 8 6
  1964. 0 10 "{41}" "{6}"
  1965. 13
  1966. 8 11
  1967. 6 11
  1968. 5 0
  1969. 18 0
  1970. 6 11
  1971. 7 ""
  1972. 18 0
  1973. 1 2
  1974. 11 00003479
  1975. 7 ""
  1976. 8 10
  1977. 10 00004715
  1978. 7 "{1}GetFieldNames({53},|)]"
  1979. 8 22
  1980. 0 10 "{41}" "{22}"
  1981. 13
  1982. 8 12
  1983. 5 1
  1984. 8 14
  1985. 0 808 "{14}" "{12}" "{16}"
  1986. 13
  1987. 8 13
  1988. 6 13
  1989. 6 14
  1990. 3 1
  1991. 0 15 "{12}" "{14}" [X]
  1992. 13
  1993. 8 19
  1994. 7 "{1}GetConnectedItemNames({40}{4}{40},"
  1995. 8 6
  1996. 0 16 "{6}" "{40}{24}{40},{40}{51}{40},{40}{53}{40},|)]"
  1997. 13
  1998. 8 6
  1999. 0 10 "{41}" "{6}"
  2000. 13
  2001. 8 12
  2002. 5 1
  2003. 8 14
  2004. 5 1
  2005. 8 15
  2006. 6 11
  2007. 6 15
  2008. 18 2
  2009. 12 00003890
  2010. 10 00004715
  2011. 5 1
  2012. 6 15
  2013. 3 0
  2014. 8 15
  2015. 10 00003811
  2016. 0 808 "{14}" "{12}" "{16}"
  2017. 13
  2018. 8 13
  2019. 6 13
  2020. 5 0
  2021. 18 0
  2022. 11 00004055
  2023. 0 14 "{12}"
  2024. 13
  2025. 8 55
  2026. 6 55
  2027. 6 14
  2028. 3 1
  2029. 5 1
  2030. 3 0
  2031. 0 15 "{12}" "{14}" [X]
  2032. 13
  2033. 8 17
  2034. 10 00004128
  2035. 6 13
  2036. 6 14
  2037. 3 1
  2038. 0 15 "{12}" "{14}" [X]
  2039. 13
  2040. 8 17
  2041. 6 13
  2042. 5 1
  2043. 3 0
  2044. 8 14
  2045. 0 14 "{17}"
  2046. 13
  2047. 6 46
  2048. 18 3
  2049. 11 00004232
  2050. 0 15 "{17}" 1 "{46}"
  2051. 13
  2052. 16 Trim [X]
  2053. 13
  2054. 8 22
  2055. 10 00004244
  2056. 6 17
  2057. 8 22
  2058. 16 dq "{22}"
  2059. 13
  2060. 8 27
  2061. 16 dq "{17}"
  2062. 13
  2063. 8 26
  2064. 6 54
  2065. 6 19
  2066. 18 0
  2067. 11 00004496
  2068. 7 "{1}GetReverseName({40}{27}{40})]"
  2069. 8 6
  2070. 0 10 "{41}" "{6}"
  2071. 13
  2072. 8 9
  2073. 6 15
  2074. 5 1
  2075. 18 0
  2076. 11 00004448
  2077. 6 9
  2078. 8 10
  2079. 10 00004483
  2080. 0 16 "{10}" "{2}" "{9}"
  2081. 13
  2082. 8 10
  2083. 10 00004702
  2084. 7 "{1}GetField({40}{53}{40},{40}{26}{40},{40}{54}{40})]"
  2085. 8 6
  2086. 0 10 "{41}" "{6}"
  2087. 13
  2088. 8 9
  2089. 16 Tr1 "{9}"
  2090. 13
  2091. 8 56
  2092. 6 15
  2093. 5 1
  2094. 18 0
  2095. 11 00004666
  2096. 6 56
  2097. 8 10
  2098. 10 00004702
  2099. 0 16 "{10}" "{2}" "{56}"
  2100. 13
  2101. 8 10
  2102. 10 00003855
  2103. 6 10
  2104. 7 ""
  2105. 18 1
  2106. 11 00004776
  2107. 16 Btype "{10}"
  2108. 10 00004909
  2109. 0 6 "[46]"
  2110. 0 282
  2111. 13
  2112. 7 ""
  2113. 18 0
  2114. 11 00004909
  2115. 0 6 "[37]"
  2116. 0 282
  2117. 13
  2118. 7 ""
  2119. 18 0
  2120. 11 00004897
  2121. 0 6 "[46]"
  2122. 10 00004909
  2123. 0 6 "[39]"
  2124. 10 00001818
  2125. 2 103 1
  2126. 7 "{1}GetFieldNames({40}{4}{40})]"
  2127. 8 6
  2128. 0 10 "{41}" "{6}"
  2129. 13
  2130. 8 9
  2131. 0 16 "{9}" "{2}"
  2132. 13
  2133. 8 9
  2134. 0 808 0 "{9}" "{38}"
  2135. 13
  2136. 8 28
  2137. 6 28
  2138. 5 0
  2139. 18 1
  2140. 11 00005197
  2141. 0 808 "{28}" "{9}" "{2}"
  2142. 13
  2143. 8 29
  2144. 6 29
  2145. 6 28
  2146. 3 1
  2147. 8 30
  2148. 0 15 "{9}" "{28}" "{30}"
  2149. 13
  2150. 8 57
  2151. 10 00005392
  2152. 0 808 0 "{9}" "{39}"
  2153. 13
  2154. 8 28
  2155. 6 28
  2156. 5 0
  2157. 18 1
  2158. 11 00005367
  2159. 0 808 "{28}" "{9}" "{2}"
  2160. 13
  2161. 8 29
  2162. 6 29
  2163. 6 28
  2164. 3 1
  2165. 8 30
  2166. 0 15 "{9}" "{28}" "{30}"
  2167. 13
  2168. 8 57
  2169. 10 00005392
  2170. 0 3 "{35}"
  2171. 10 00005779
  2172. 7 "{1}GetField({40}{4}{40},"
  2173. 8 6
  2174. 0 16 "{6}" "{40}{24}{40},{40}{57}{40})]"
  2175. 13
  2176. 8 6
  2177. 0 10 "{41}" "{6}"
  2178. 13
  2179. 8 9
  2180. 16 TrimFront "{9}"
  2181. 13
  2182. 8 31
  2183. 6 31
  2184. 7 ""
  2185. 18 1
  2186. 11 00005695
  2187. 7 "{1}GetReverseName({40}{25}{40})]"
  2188. 8 6
  2189. 0 10 "{41}" "{6}"
  2190. 13
  2191. 8 58
  2192. 16 JJFaxLib.smm!JJFaxSend "{58}" "{31}" 1
  2193. 10 00005779
  2194. 6 36
  2195. 8 59
  2196. 0 16 "{59}" "{57}"
  2197. 13
  2198. 8 59
  2199. 0 16 "{59}" "{37}"
  2200. 13
  2201. 8 59
  2202. 0 3 "{59}"
  2203. 0 38 "Commence"
  2204. 0 802
  2205. 13
  2206. 8 60
  2207. 0 285 "{60}!Closeit()" 0.2
  2208. 0 9 "{41}"
  2209. 6 0
  2210. 15
  2211. 9
  2212. 14 TrimFront
  2213. 0 14 "{0}"
  2214. 13
  2215. 8 2
  2216. 5 1
  2217. 8 3
  2218. 6 3
  2219. 6 2
  2220. 18 5
  2221. 11 00000170
  2222. 0 15 "{0}" "{3}" 1
  2223. 13
  2224. 7 " "
  2225. 18 1
  2226. 11 00000137
  2227. 10 00000170
  2228. 6 3
  2229. 5 1
  2230. 3 0
  2231. 8 3
  2232. 10 00000045
  2233. 6 3
  2234. 6 2
  2235. 18 0
  2236. 6 2
  2237. 5 0
  2238. 18 0
  2239. 1 2
  2240. 11 00000244
  2241. 7 ""
  2242. 8 1
  2243. 10 00000277
  2244. 0 15 "{0}" "{3}" "{2}"
  2245. 13
  2246. 8 1
  2247. 6 1
  2248. 15
  2249. 9
  2250. 14 Tr1
  2251. 0 39 10
  2252. 13
  2253. 8 2
  2254. 7 ""
  2255. 8 3
  2256. 5 1
  2257. 8 4
  2258. 0 808 "{4}" "{0}" "{2}"
  2259. 13
  2260. 8 5
  2261. 6 5
  2262. 5 0
  2263. 18 1
  2264. 11 00000222
  2265. 6 5
  2266. 6 4
  2267. 3 1
  2268. 0 15 "{0}" "{4}" [X]
  2269. 13
  2270. 0 16 "{3}" [X]
  2271. 13
  2272. 8 3
  2273. 6 5
  2274. 5 1
  2275. 3 0
  2276. 8 4
  2277. 10 00000047
  2278. 10 00000418
  2279. 6 4
  2280. 5 1
  2281. 18 0
  2282. 11 00000331
  2283. 0 14 "{0}"
  2284. 13
  2285. 0 15 "{0}" "{4}" [X]
  2286. 13
  2287. 0 16 "{3}" [X]
  2288. 13
  2289. 8 3
  2290. 10 00000418
  2291. 0 14 "{0}"
  2292. 13
  2293. 6 4
  2294. 3 1
  2295. 5 1
  2296. 3 0
  2297. 0 15 "{0}" "{4}" [X]
  2298. 13
  2299. 0 16 "{3}" [X]
  2300. 13
  2301. 8 3
  2302. 6 3
  2303. 8 1
  2304. 6 1
  2305. 15
  2306. 9
  2307. 14 dq
  2308. 0 39 34
  2309. 13
  2310. 8 2
  2311. 7 "{2}{2}"
  2312. 8 3
  2313. 7 ""
  2314. 8 4
  2315. 0 14 "{0}"
  2316. 13
  2317. 8 5
  2318. 5 1
  2319. 8 6
  2320. 6 5
  2321. 6 6
  2322. 18 2
  2323. 12 00000159
  2324. 10 00000267
  2325. 5 1
  2326. 6 6
  2327. 3 0
  2328. 8 6
  2329. 10 00000084
  2330. 0 15 "{0}" "{6}" 1
  2331. 13
  2332. 8 7
  2333. 6 7
  2334. 6 2
  2335. 18 0
  2336. 11 00000227
  2337. 6 3
  2338. 8 7
  2339. 0 16 "{4}" "{7}"
  2340. 13
  2341. 8 4
  2342. 10 00000126
  2343. 6 4
  2344. 8 1
  2345. 6 1
  2346. 15
  2347. 9
  2348. 14 Trim
  2349. 0 14 "{0}"
  2350. 13
  2351. 8 2
  2352. 6 2
  2353. 5 0
  2354. 18 3
  2355. 11 00000155
  2356. 0 15 "{0}" "{2}" 1
  2357. 13
  2358. 7 " "
  2359. 18 1
  2360. 11 00000122
  2361. 10 00000155
  2362. 6 2
  2363. 5 1
  2364. 3 1
  2365. 8 2
  2366. 10 00000030
  2367. 6 2
  2368. 5 0
  2369. 18 0
  2370. 11 00000208
  2371. 7 ""
  2372. 8 1
  2373. 10 00000237
  2374. 0 15 "{0}" 1 "{2}"
  2375. 13
  2376. 8 1
  2377. 6 1
  2378. 15
  2379. 9
  2380. 14 db
  2381. 0 39 91
  2382. 13
  2383. 8 2
  2384. 7 "{2}{2}"
  2385. 8 3
  2386. 7 ""
  2387. 8 4
  2388. 0 14 "{0}"
  2389. 13
  2390. 8 5
  2391. 5 1
  2392. 8 6
  2393. 6 5
  2394. 6 6
  2395. 18 2
  2396. 12 00000159
  2397. 10 00000267
  2398. 5 1
  2399. 6 6
  2400. 3 0
  2401. 8 6
  2402. 10 00000084
  2403. 0 15 "{0}" "{6}" 1
  2404. 13
  2405. 8 7
  2406. 6 7
  2407. 6 2
  2408. 18 0
  2409. 11 00000227
  2410. 6 3
  2411. 8 7
  2412. 0 16 "{4}" "{7}"
  2413. 13
  2414. 8 4
  2415. 10 00000126
  2416. 6 4
  2417. 8 1
  2418. 6 1
  2419. 15
  2420. 9
  2421. 14 Btype
  2422. 16 db "{0}"
  2423. 13
  2424. 8 0
  2425. 0 14 "{0}"
  2426. 13
  2427. 8 2
  2428. 6 2
  2429. 5 400
  2430. 18 5
  2431. 11 00000108
  2432. 0 6 "{0}"
  2433. 10 00000250
  2434. 5 1
  2435. 8 3
  2436. 6 2
  2437. 6 3
  2438. 18 2
  2439. 12 00000195
  2440. 10 00000250
  2441. 5 400
  2442. 6 3
  2443. 3 0
  2444. 8 3
  2445. 10 00000118
  2446. 0 15 "{0}" "{3}" 400
  2447. 13
  2448. 8 4
  2449. 0 6 "{4}"
  2450. 10 00000160
  2451. 6 1
  2452. 15
  2453. 9
  2454. 14 Closeit
  2455. 0 291 6
  2456. 2 147 1
  2457. 6 0
  2458. 15
  2459. 9
  2460. 00024144
  2461.