home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2004 April / DPPCPRO0404.ISO / April / CAS / disk2 / data.2 / MACROS / AMIPRO / jjplett.smm < prev   
Encoding:
INI File  |  1995-04-05  |  42.4 KB  |  2,179 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.     Generic / Text Only
  13. [port]
  14.     FILE:
  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 displays the resulting letter.
  28.     
  29.     
  30.     
  31.     
  32.     797122910
  33.     65
  34.     706653616
  35.     500
  36.     8
  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.     8
  586.     53 0 38 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  587.     106 0 90 0 0 0 0 65535 4 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  588.     160 0 82 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  589.     215 0 40 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  590.     269 0 81 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.     324 0 80 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  592.     382 0 40 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
  593.     422 0 40 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
  594. [edoc]
  595. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function JJPLett()<-!>
  596.  
  597. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'Copyright 1992-95 Jensen-Jones Inc.
  598.  
  599. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'Commence letter template expansion macro
  600.  
  601. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'Single letter version, creates a letter and prints it
  602.  
  603. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  604.  
  605. @Normal@<:#235,9360><-!><:f200,QCourier,0,0,0>'Changes for Commence 1.00a<-!>
  606.  
  607. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Type large text strings in block of 400 to circumvent Type limitation
  608.  
  609. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Output all connected items if multiple items are connected
  610.  
  611. @Normal@<:#470,9360><:f200,QCourier,0,0,0>' Get and use the actual name of the Name field rather than assuming it is "Name"
  612.  
  613. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Get rid of Tr subrountine so ~'s in field codes are OK
  614.  
  615. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'<:f>
  616.  
  617. @Normal@<:#235,9360><-!><:f200,QCourier,0,0,0>'1.00a+ version fixes<-!>
  618.  
  619. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' 1 - change getactiveview to getletterview
  620.  
  621. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' 2 - test for Icount = "" (this happens with an invalid bad field code)
  622.  
  623. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  624.  
  625. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' 1.1 changes 
  626.  
  627. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' 2/12/93:
  628.  
  629. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Add support for clarify fields
  630.  
  631. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Add dq function to handle quotes in names
  632.  
  633. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>' Note: this version requires the DDE patch version of AmiPro 3.0,<-!>
  634.  
  635. @Normal@<:#235,9360><+!><:f200,QCourier,0,0,0>' earlier <-!><:f><+!><:f200,QCourier,0,0,0>versions of AmiPro may UAE trying to send the longer DDE<-!>
  636.  
  637. @Normal@<:#235,9360><+!><:f200,QCourier,0,0,0>'  commands used <-!><:f><+!><:f200,QCourier,0,0,0>in this macro<-!>
  638.  
  639. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  640.  
  641. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' 2.0c changes 7/26/93
  642.  
  643. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' fix for blank clarify fields
  644.  
  645. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' fix to handle left brackets
  646.  
  647. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  648.  
  649. <:#284,9360>' 3.0 changes 4/3/95
  650.  
  651. <:#284,9360>' support 50 character item names
  652.  
  653. <:#284,9360>' Commence 1.0a or later is required
  654.  
  655. <:#284,9360>
  656.  
  657. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'SingleStep(1)<:f>
  658.  
  659. @Normal@<:#284,9360>
  660.  
  661. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DEFSTR b, cr, Name, Category, Work, Req, Treq, TemplateFile
  662.  
  663. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DEFSTR Val, Value, Icount, s, nEnd, nStart, Iloop, p, Cname
  664.  
  665. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DEFSTR Namefld,Cnamefld,WK,FC,Tmp,t1,dqName,<:f><:f200,QCourier,0,0,0>dqPlainName<:f>
  666.  
  667. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DEFSTR <:f><:f200,QCourier,0,0,0>dqCName,<:f><:f200,QCourier,0,0,0> dqPlainCName<:f>
  668.  
  669. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DEFSTR AppName, NoDDE NoLaunch
  670.  
  671. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  672.  
  673. @Normal@<:#235,9360><:f200,QCourier,0,0,0>' Init some strings, don't forget to translate dialog box caption below!
  674.  
  675. @Normal@<:#235,9360><:f200,QCourier,0,0,0>AppName = "Commence"
  676.  
  677. @Normal@<:#235,9360><:f200,QCourier,0,0,0>NoDDE = <:f><:f200,QCourier,0,0,0>"Could NOT Establish DDE with {AppName}; Exiting ..."<:f>
  678.  
  679. @Normal@<:#235,9360><:f200,QCourier,0,0,0>NoLaunch<:f><:f200,QCourier,0,0,0> = "Could NOT launch 
  680. <:f><:f200,QCourier,0,0,0>{AppName}; Exiting ..."<:f>
  681.  
  682. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  683.  
  684. @Normal@<:#235,9360><:f200,QCourier,0,0,0>cr = Chr$(13)    <+">'a carriage return<-">
  685.  
  686. @Normal@<:#235,9360><:f200,QCourier,0,0,0>b = Chr$(91)    <+">'a left bracket<-">
  687.  
  688. @Normal@<:#235,9360><:f200,QCourier,0,0,0>p = Chr$(124)    <+">'the pipe character<-">
  689.  
  690. @Normal@<:#235,9360><:f200,QCourier,0,0,0>q = Chr$(34)<:f><+"><:f200,QCourier,0,0,0>    'the double quote character
  691.  
  692. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>
  693.  
  694. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Start up a DDE link to Commence<-">
  695.  
  696. @Normal@<:#235,9360><:f200,QCourier,0,0,0>c = DDEInitiate("{AppName}", "GetData")
  697.  
  698. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'ONERROR ErrorLabel<-">
  699.  
  700. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0><++>if<-+> c <<=0 THEN
  701.  
  702. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>    <+">' DO Error Check<-">
  703.  
  704. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>    id = c
  705.  
  706. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>    OK = Exec("{AppName}.EXE", "", 1)  ' <+">Open it<-">
  707.  
  708. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>    IF OK <;> 32 THEN
  709.  
  710. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        c = DDEInitiate("{AppName}", "GetData")  ' 
  711. <+">Call Application<-"><+"> again<-">
  712.  
  713. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        IF c<<=0  THEN ' <+">Still not open, End macro<-">
  714.  
  715. @CMD Line@<:R1,5,1,720,1,1440,1,2160,1,2970,1,3690,><:#235,9360><:f200,QCourier,0,0,0>            BEEP()
  716.  
  717. @CMD Line@<:R><:#235,9360><:f200,QCourier,0,0,0>            HourGlass(0)
  718.  
  719. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            IgnoreKeyboard(0)
  720.  
  721. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            BEEP()
  722.  
  723. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            Message("{NoDDE}")
  724.  
  725. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            StatusBarMsg("")
  726.  
  727. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            HourGlass(0)
  728.  
  729. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>            EXIT FUNCTION
  730.  
  731. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        ENDIF
  732.  
  733. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>    ELSE    <+">'Could not lauch Commence<-">
  734.  
  735. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        HourGlass(0)
  736.  
  737. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        IgnoreKeyboard(0)
  738.  
  739. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        BEEP()
  740.  
  741. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        Message("{NoLaunch}")
  742.  
  743. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        StatusBarMsg("")
  744.  
  745. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        HourGlass(0)
  746.  
  747. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>        EXIT FUNCTION
  748.  
  749. @CMD Line@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  750.  
  751. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0><++>Endif <-+> <+">' End of Error Check<-">
  752.  
  753. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0><+">'Find out what version of Commence is running<-">
  754.  
  755. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>c2 = DDEInitiate("{AppName}", "System<:f><:f200,QCourier,0,0,0>")<:f>
  756.  
  757. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>version = DDEReceive$(c2, "Version")<:f>
  758.  
  759. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>DDETerminate(c2)
  760.  
  761. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>
  762.  
  763. <-+>If Left$(version,9) = "Version 1" OR Left$(version, 9) = "Version 2" Then
  764.  
  765. <:#284,9360>    NameSize = 35
  766.  
  767. <:#284,9360>Else
  768.  
  769. <:#284,9360>    NameSize = 50
  770.  
  771. <:#284,9360>Endif
  772.  
  773. <:#284,9360>
  774.  
  775. <:#284,9360>' Use clarified item names to avoid problems with duplicate names
  776.  
  777. <:#284,9360>Tmp = "{b}ClarifyItemNames(True)]"
  778.  
  779. <:#284,9360>s = DDEReceive$(c,Tmp)
  780.  
  781. <:#284,9360>
  782.  
  783. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>' Ask Commence what is currently highlighted<-">
  784.  
  785. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nState = 1
  786.  
  787. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Tmp = "{b}GetLetterViewInfo(|)]"
  788.  
  789. @Normal@<:#235,9360><:f200,QCourier,0,0,0>s = DDEReceive$(c, Tmp)
  790.  
  791. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  792.  
  793. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>' Parse the return string, which is of the form:<-">
  794.  
  795. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'     <<View Name<;><-">
  796.  
  797. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'     <<View Type<;><-">
  798.  
  799. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'     <<Category Name<;><-">
  800.  
  801. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'     <<Item Name<;><-">
  802.  
  803. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'     <<Field Name<;><-">
  804.  
  805. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  806.  
  807. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>' Skip over the view name and view type, we don't care what it is<-">
  808.  
  809. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nStart = 1
  810.  
  811. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nEnd = InStr(nStart, s, p)
  812.  
  813. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nStart = nEnd + 1
  814.  
  815. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nEnd = InStr(nStart, s, p)
  816.  
  817. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'Get the active category<-">
  818.  
  819. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nStart = nEnd + 1
  820.  
  821. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nEnd = InStr(nStart, s, p)
  822.  
  823. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Category = Mid$(s, nStart, nEnd - nStart)
  824.  
  825. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'Get the highlighted item<-">
  826.  
  827. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nStart = nEnd + 1
  828.  
  829. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nEnd = InStr(nStart, s, p)
  830.  
  831. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Name =  <:f><:f200,QCourier,0,0,0>Mid$(s, nStart, nEnd - nStart)<:f>
  832.  
  833. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'Get the plain and clarified versions of the name<-">
  834.  
  835. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  836.  
  837. @Normal@<:#235,9360><-+><:f200,QCourier,0,0,0><++>If<-+> Len(Name) <;> NameSize <++>Then<-+>
  838.  
  839. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Tmp<:f><:f200,QCourier,0,0,0> = Call Trim(Mid$(Name,1,NameSize))
  840.  
  841. @Normal@<:#235,9360><:f200,QCourier,0,0,0><++>Else<-+>
  842.  
  843. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Tmp = Call Trim(Name)<:f>
  844.  
  845. @Normal@<:#235,9360><:f200,QCourier,0,0,0><++>EndIf<-+>
  846.  
  847. @Normal@<:#235,9360><:f200,QCourier,0,0,0>dqPlainName = Call dq(Tmp)<:f>
  848.  
  849. @Normal@<:#235,9360><-+><:f200,QCourier,0,0,0>dqName = Call dq(Name)<:f>
  850.  
  851. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  852.  
  853. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Get the name field for this category<-">
  854.  
  855. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Tmp = "{b}GetFieldNames({q}{Category}{q},|)]"
  856.  
  857. @Normal@<:#235,9360><:f200,QCourier,0,0,0>s = DDEReceive$(c, Tmp)
  858.  
  859. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nStart = 1
  860.  
  861. @Normal@<:#235,9360><:f200,QCourier,0,0,0>nEnd = InStr(nStart, s, p)
  862.  
  863. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Namefld = Mid$(s, nStart, nEnd - nStart)
  864.  
  865. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  866.  
  867. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Start looking for Field Codes to retrieve<-">
  868.  
  869. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'SingleStep(1)
  870.  
  871. @Normal@<:#235,9360><:f200,QCourier,0,0,0>first = 0
  872.  
  873. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  874.  
  875. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Search:<-!>
  876.  
  877. @Normal@<:#235,9360><:f200,QCourier,0,0,0>IF first = 0 THEN        <+">'First time, start at beginning of file<-">
  878.  
  879. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IR = Replace (0,0,8193,"(%","")
  880.  
  881. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    first = 1
  882.  
  883. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ELSE                <+">'Otherwise, search from the current position<-">
  884.  
  885. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IR = Replace (0,0,1,"(%","")
  886.  
  887. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF
  888.  
  889. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  890.  
  891. @Normal@<:#235,9360><:f200,QCourier,0,0,0>IF IR <<<;> 1 THEN 
  892.  
  893. @Normal@<:#470,9360><:f200,QCourier,0,0,0>    Goto Normalx    <+">    'No match, no remaining codes, finished substituting<-">
  894.  
  895. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF 
  896.  
  897. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  898.  
  899. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'Now start to look for the end of the Field Code<-">
  900.  
  901. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Look:<-!>
  902.  
  903. @Normal@<:#235,9360><:f200,QCourier,0,0,0>t1 = CurChar$()
  904.  
  905. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  906.  
  907. @Normal@<:#235,9360><:f200,QCourier,0,0,0>IF t1 = "%" THEN
  908.  
  909. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    TYPE("<[>SHIFTRIGHT]")
  910.  
  911. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF AtEOF() THEN
  912.  
  913. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        TYPE("<[>RIGHT]")
  914.  
  915. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        GoTo Normalx        <+">'reached the end, no match, no more codes<-">
  916.  
  917. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  918.  
  919. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF CurChar$() = ")" THEN        <+">'We have found the end<-">
  920.  
  921. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        TYPE("<[>SHIFTRIGHT]")
  922.  
  923. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        GoTo Found
  924.  
  925. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  926.  
  927. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ELSEIF t1 = "" THEN    <+">'We have hit the end of a line, reset 
  928. <-"><+">search<-">
  929.  
  930. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    TYPE("<[>RIGHT]")
  931.  
  932. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF AtEOF() THEN
  933.  
  934. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        TYPE("<[>RIGHT]")
  935.  
  936. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        GoTo Normalx    <+">'reached the end,<-"><+">no more<-"> 
  937. <+">codes<-">
  938.  
  939. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  940.  
  941. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Goto Search
  942.  
  943. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ELSE
  944.  
  945. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    TYPE("<[>SHIFTRIGHT]")
  946.  
  947. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF AtEOF() THEN
  948.  
  949. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        TYPE("<[>RIGHT]")
  950.  
  951. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        GoTo Normalx    <+">'reached the end, <-"><+">no more codes<-">
  952.  
  953. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  954.  
  955. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF
  956.  
  957. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Goto Look
  958.  
  959. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  960.  
  961. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Found:<-!>
  962.  
  963. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'SingleStep(1)
  964.  
  965. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Now we have a Field Code, so save it in a variable<-">
  966.  
  967. @Normal@<:#235,9360><:f200,QCourier,0,0,0>FC = CurShade$()        
  968.  
  969. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'Strip off the (% %) parts<-">
  970.  
  971. @Normal@<:#235,9360><:f200,QCourier,0,0,0>K = Len(FC)
  972.  
  973. @Normal@<:#235,9360><:f200,QCourier,0,0,0>WK = MID$(FC, 3, K - 4)
  974.  
  975. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Check to see if this is an indirect field: it is if it has 
  976. <-"><+">a %%<-">
  977.  
  978. @Normal@<:#235,9360><:f200,QCourier,0,0,0>I = Instr(0, WK, "%%")
  979.  
  980. @Normal@<:#235,9360><:f200,QCourier,0,0,0>IF I = 0 THEN        <+">'We have a direct field <-">
  981.  
  982. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>    'First check to see if this is the name field<-">
  983.  
  984. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF WK = Namefld  THEN    
  985.  
  986. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>    'Call Commence to get the reversed version<-">
  987.  
  988. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Req =<:f><:f200,QCourier,0,0,0>"{b}GetReverseName({q}<:f><:f200,QCourier,0,0,0>{dqPlainName}{q})]"<:f>
  989.  
  990. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <:f><:f200,QCourier,0,0,0>Value = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  991.  
  992. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ELSE    
  993.  
  994. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>        'This is not the name field, get the data from Commence<-">
  995.  
  996. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Req =<:f><:f200,QCourier,0,0,0>"{b}GetField({q}<:f><:f200,QCourier,0,0,0>{<:f><:f200,QCourier,0,0,0>Category}{q}<:f><:f200,QCourier,0,0,0>,<:f><:f200,QCourier,0,0,0>"
  997.  
  998. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Req = strcat$(Req,"{q}{dqName}{q}<:f><:f200,QCourier,0,0,0>,{q}<:f><:f200,QCourier,0,0,0>{WK}{q})]")
  999.  
  1000. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <:f><:f200,QCourier,0,0,0>Val = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  1001.  
  1002. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <:f><:f200,QCourier,0,0,0>Value = Call Tr1(Val)<:f><:f200,QCourier,0,0,0>    <+">'Get rid of newlines<-">
  1003.  
  1004. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF<:f>
  1005.  
  1006. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF Value <<<;> "" THEN         
  1007.  
  1008. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>    'Put in the value if we found one<-">
  1009.  
  1010. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <:f><:f200,QCourier,0,0,0>Call Btype(Value)    <+">'Add in the value<-">
  1011.  
  1012. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ELSE                 <+">'Clear out the  code<-">
  1013.  
  1014. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        TYPE("<[>Del]")
  1015.  
  1016. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <+">'Check to see if we made a blank line<-">
  1017.  
  1018. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <++>If<-+> CurChar$() = "" <++>Then<-+>
  1019.  
  1020. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            Type("<[>Left]")
  1021.  
  1022. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>If<-+> CurChar$() = "" <++>Then<-+>
  1023.  
  1024. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                Type("<[>DEL]")
  1025.  
  1026. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            ELSE
  1027.  
  1028. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                Type("<[>Right]")
  1029.  
  1030. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            ENDIF
  1031.  
  1032. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        ENDIF    
  1033.  
  1034. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  1035.  
  1036. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ELSE    
  1037.  
  1038. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'This is an indirect field, parse it to get the values we neeed<-">
  1039.  
  1040. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Conn = Left$(WK, I - 1)
  1041.  
  1042. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Rest = Mid$(WK, I + 2, Len(WK) - I - 1)
  1043.  
  1044. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    I = Instr(0,Rest, "%%")
  1045.  
  1046. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Cat = Left$(Rest, I - 1)
  1047.  
  1048. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Field = Mid$(Rest, I + 2, Len(Rest) - I - 1)
  1049.  
  1050. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <+">'Build the DDE command<-">
  1051.  
  1052. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Req =<:f><:f200,QCourier,0,0,0>"{b}GetConnectedItemCount({q}{<:f><:f200,QCourier,0,0,0>Category}{q},"
  1053.  
  1054. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Req = strcat$(Req,"{q}{<:f><:f200,QCourier,0,0,0>dqName}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>Conn}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>Cat}{q},<:f><:f200,QCourier,0,0,0>|)]")
  1055.  
  1056. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <:f><-!><-"><:f200,QCourier,0,0,0>Icount = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  1057.  
  1058. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    
  1059.  
  1060. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF Icount = 0 or Icount = "" THEN
  1061.  
  1062. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Value = ""
  1063.  
  1064. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Goto Insert2
  1065.  
  1066. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Endif
  1067.  
  1068. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1069.  
  1070. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>    'Get the name field for this category<-">
  1071.  
  1072. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Tmp = "{b}GetFieldNames({q}{Cat}{q},|)]"
  1073.  
  1074. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    s = DDEReceive$(c, Tmp)
  1075.  
  1076. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    nStart = 1
  1077.  
  1078. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    nEnd = InStr(nStart, s, p)
  1079.  
  1080. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Cnamefld = Mid$(s, nStart, nEnd - nStart)
  1081.  
  1082. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <:f>
  1083.  
  1084. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <+">'Now get the list of names<-">
  1085.  
  1086. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Req = <:f><:f200,QCourier,0,0,0>"{b}GetConnectedItemNames({q}{<:f><:f200,QCourier,0,0,0>Category}{q},"<:f>
  1087.  
  1088. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Req = strcat$(Req,"{q}{<:f><:f200,QCourier,0,0,0>dqName}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>Conn}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>Cat}{q}<:f><:f200,QCourier,0,0,0>,|)]")
  1089.  
  1090. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <:f><-!><-"><:f200,QCourier,0,0,0>s = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  1091.  
  1092. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    nStart = 1
  1093.  
  1094. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    
  1095.  
  1096. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    For Iloop = 1 to Icount
  1097.  
  1098. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1099.  
  1100. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    nEnd = InStr(nStart, s, p)
  1101.  
  1102. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    
  1103.  
  1104. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <++>If<-+> nEnd = 0 <++>Then<-+>
  1105.  
  1106. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        nLen = Len(s)
  1107.  
  1108. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Cname = Mid$(s, nStart, nLen - nStart + 1)
  1109.  
  1110. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <++>Else    <-+>    
  1111.  
  1112. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Cname = Mid$(s, nStart, nEnd - nStart)
  1113.  
  1114. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        nStart = nEnd + 1
  1115.  
  1116. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <++>EndIf<-+>
  1117.  
  1118. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'SingleStep(1)<-">
  1119.  
  1120. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <++>If<-+> Len(CName) <;> NameSize <++>Then<-+>
  1121.  
  1122. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Tmp<:f><:f200,QCourier,0,0,0> = Call Trim(Mid$(CName,1,NameSize))<:f>
  1123.  
  1124. @Normal@<:#235,9360>    <:f200,QCourier,0,0,0><++>Else<-+><:f>
  1125.  
  1126. @Normal@<:#284,9360>        <:f200,QCourier,0,0,0>Tmp = Cname<:f>
  1127.  
  1128. @Normal@<:#235,9360>    <:f200,QCourier,0,0,0><++>EndIf<-+>
  1129.  
  1130. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <:f><:f200,QCourier,0,0,0>dqPlainCName = Call dq(Tmp<:f><:f200,QCourier,0,0,0>)<:f>
  1131.  
  1132. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    dqCName = Call dq(CName)<:f>
  1133.  
  1134. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1135.  
  1136. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <+">'Now we have a Cname to use to get the desired field<-"><:f>
  1137.  
  1138. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <+">'Check to see if we are looking for the name<-">
  1139.  
  1140. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        IF Field = Cnamefld THEN    
  1141.  
  1142. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <+">'Get the reversed version from Commence<-">
  1143.  
  1144. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            Req = <:f><:f200,QCourier,0,0,0>"{b}GetReverseName({q}{<:f><:f200,QCourier,0,0,0>dqPlainCname}{q})]"<:f>
  1145.  
  1146. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <:f><:f200,QCourier,0,0,0>Val = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  1147.  
  1148. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>If <-+>Iloop = 1 <++>Then<-+>
  1149.  
  1150. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                    Value = Val
  1151.  
  1152. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                <++>Else<-+>    <+">'Add on the other connections<-">
  1153.  
  1154. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                    Value = strcat$(Value, cr, Val)
  1155.  
  1156. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                <++>EndIf<-+>
  1157.  
  1158. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        ELSE
  1159.  
  1160. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Req=<:f><:f200,QCourier,0,0,0>"{b}GetField({q}{<:f><:f200,QCourier,0,0,0>Cat}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>dqCname}{q}<:f><:f200,QCourier,0,0,0>,{q}{<:f><:f200,QCourier,0,0,0>Field}{q}<:f><:f200,QCourier,0,0,0>
  1161. )]"<:f>
  1162.  
  1163. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1164.  
  1165. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <:f><:f200,QCourier,0,0,0>Val = DDEReceive$(c, R<:f><:f200,QCourier,0,0,0>eq)
  1166.  
  1167. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        <:f><:f200,QCourier,0,0,0>    Vala = Call Tr1(Val)<:f><:f200,QCourier,0,0,0>    <+">'Get rid of newlines<-">
  1168.  
  1169. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            'SingleStep(1)
  1170.  
  1171. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>If<-+> Iloop = 1 <++>Then<-+>
  1172.  
  1173. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                Value = Vala
  1174.  
  1175. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>Else<-+>        <+">'Add on the other connections<-">
  1176.  
  1177. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                Value = strcat$(Value, cr, Vala)
  1178.  
  1179. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>EndIf<-+>
  1180.  
  1181. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1182.  
  1183. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        ENDIF
  1184.  
  1185. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    NEXT
  1186.  
  1187. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Insert2:<-!>
  1188.  
  1189. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF Value <<<;> "" THEN     <+">'Put in the value if we found<-"><+"> one<-">
  1190.  
  1191. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            Call Btype(Value)    <+">'Add in the value<-">
  1192.  
  1193. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ELSE                 
  1194.  
  1195. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    <+">'Move the insertion point and leave the field code<-">
  1196.  
  1197. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            TYPE("<[>Del]")
  1198.  
  1199. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <+">'Check to see if we made a blank line<-">
  1200.  
  1201. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            <++>If<-+> CurChar$() = "" <++>Then<-+>
  1202.  
  1203. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                Type("<[>Left]")
  1204.  
  1205. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                If CurChar$() = "" <++>Then<-+>
  1206.  
  1207. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                    Type("<[>DEL]")
  1208.  
  1209. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                ELSE
  1210.  
  1211. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                    Type("<[>Right]")
  1212.  
  1213. @Normal@<:#235,9360><:f200,QCourier,0,0,0>                ENDIF
  1214.  
  1215. @Normal@<:#235,9360><:f200,QCourier,0,0,0>            ENDIF
  1216.  
  1217. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  1218.  
  1219. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF
  1220.  
  1221. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Go back and look for more Field Codes<-">
  1222.  
  1223. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Goto Search
  1224.  
  1225. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1226.  
  1227. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Normalx:<-!>
  1228.  
  1229. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'***************************
  1230.  
  1231. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'These the only different lines from jjclett, jjplett, and jjfax<-"><:f>
  1232.  
  1233. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>'Save the file with the data from Commence 
  1234. <-">
  1235.  
  1236. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Save()    
  1237.  
  1238. @Normal@<:#235,9360><:f200,QCourier,0,0,0>FilePrint(1,1,1,1537)
  1239.  
  1240. @Modified Line@<:#235,9360><:f200,QCourier,0,0,0>ActivateApp("{AppName}<:f><:f200,QCourier,0,0,0>")
  1241.  
  1242. @Normal@<:#235,9360><-"><:f200,QCourier,0,0,0>rmac = GetRunningMacroFile$() <:f>
  1243.  
  1244. @Normal@<:#235,9360><:f200,QCourier,0,0,0>RunLater("{rmac}!Closeit()", 0.2)  
  1245.  
  1246. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1247.  
  1248. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'The end of the different lines ***********************<-">
  1249.  
  1250. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1251.  
  1252. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DDETerminate(c)<:f>
  1253.  
  1254. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!>
  1255.  
  1256. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1257.  
  1258. @Normal@<:#235,9360><-!><:f200,QCourier,0,0,0><+!>Function Tr1(OS)<-!>
  1259.  
  1260. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">' Translates NL<:f><:f200,QCourier,0,0,0> to ""<:f><:f200,QCourier,0,0,0> in a string since Ami treats CR/NL as two lines<-">
  1261.  
  1262. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+">'New<:f><:f200,QCourier,0,0,0> algorithm to speed this up 2/12/92<-">
  1263.  
  1264. @Normal@<:#202,9360><:f200,QCourier,0,0,0>n <:f><:f200,QCourier,0,0,0>= Chr$(10<:f><:f200,QCourier,0,0,0>)
  1265.  
  1266. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Newstring = ""
  1267.  
  1268. @Normal@<:#202,9360><:f200,QCourier,0,0,0>J = 1
  1269.  
  1270. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>NextLook:<-!>
  1271.  
  1272. @Normal@<:#202,9360><:f200,QCourier,0,0,0>K = InStr(J,OS,n)<:f>
  1273.  
  1274. @Normal@<:#202,9360><:f200,QCourier,0,0,0><++>If<-+> K <<<;> 0 <++>Then<-+><:f>
  1275.  
  1276. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring,Mid$(OS,J,K - J<:f><:f200,QCourier,0,0,0>))
  1277.  
  1278. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    J = K + 1
  1279.  
  1280. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Goto NextLook
  1281.  
  1282. @Normal@<:#235,9360><:f200,QCourier,0,0,0><++>Else<-+><:f>
  1283.  
  1284. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF J = 1 THEN
  1285.  
  1286. @Normal@<:#288,9360><:f200,QCourier,0,0,0>    <:f><:f200,QCourier,0,0,0>    Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS)<:f><:f200,QCourier,0,0,0>)<:f>)
  1287.  
  1288. @Normal@<:#240,9360>    <:f240,QCourier,0,0,0>ELSE<:f>
  1289.  
  1290. @Normal@<:#288,9360>        <:f200,QCourier,0,0,0>Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS) - J + 1<:f><:f200,QCourier,0,0,0>)<:f>)
  1291.  
  1292. @Normal@<:#235,9360>    <:f200,QCourier,0,0,0>ENDIF<:f>
  1293.  
  1294. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF
  1295.  
  1296. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Tr1 = Newstring
  1297.  
  1298. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1299.  
  1300. @Normal@<:#288,9360>
  1301.  
  1302. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>Function dq(OS)<-!>
  1303.  
  1304. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+">' Translates "<:f><:f200,QCourier,0,0,0> to "" for transmission back to Commence<:f><:f200,QCourier,0,0,0> 
  1305. <-"><:f>
  1306.  
  1307. @Normal@<:#202,9360><:f200,QCourier,0,0,0>q <:f><:f200,QCourier,0,0,0>= Chr$(34<:f><:f200,QCourier,0,0,0>)
  1308.  
  1309. @Normal@<:#202,9360><:f200,QCourier,0,0,0>q2 ="{<:f><:f200,QCourier,0,0,0>q}{q}"<:f>
  1310.  
  1311. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Newstring = ""
  1312.  
  1313. @Normal@<:#235,9360><:f200,QCourier,0,0,0>J = Len(OS)
  1314.  
  1315. @Normal@<:#202,9360><:f200,QCourier,0,0,0>FOR I = 1 TO J
  1316.  
  1317. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Schar = Mid$(OS, I, 1)
  1318.  
  1319. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        IF Schar = q<:f><:f200,QCourier,0,0,0> THEN 
  1320.  
  1321. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Schar = q2<:f>
  1322.  
  1323. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    ENDIF
  1324.  
  1325. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring, Schar)
  1326.  
  1327. @Normal@<:#235,9360><:f200,QCourier,0,0,0>NEXT
  1328.  
  1329. @Normal@<:#235,9360><:f200,QCourier,0,0,0>dq = Newstring
  1330.  
  1331. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1332.  
  1333. @Normal@<:#284,9360>
  1334.  
  1335. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function db(OS)<-!>
  1336.  
  1337. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">' Translates <[><:f><:f200,QCourier,0,0,0> to <[><[> for insertion in document<-"><:f>
  1338.  
  1339. @Normal@<:#240,9360><:f240,QCourier,0,0,0><+">' added for 2.0c<-"><:f>
  1340.  
  1341. @Normal@<:#202,9360><:f200,QCourier,0,0,0>b <:f><:f200,QCourier,0,0,0>= Chr$(<:f><:f200,QCourier,0,0,0>91)
  1342.  
  1343. @Normal@<:#202,9360><:f200,QCourier,0,0,0>b2 ="{<:f><:f200,QCourier,0,0,0>b}{b}"<:f>
  1344.  
  1345. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Newstring = ""
  1346.  
  1347. @Normal@<:#202,9360><:f200,QCourier,0,0,0>J = Len(OS)
  1348.  
  1349. @Normal@<:#202,9360><:f200,QCourier,0,0,0>FOR I = 1 TO J
  1350.  
  1351. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Schar = Mid$(OS, I, 1)
  1352.  
  1353. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        IF Schar = b<:f><:f200,QCourier,0,0,0> THEN 
  1354.  
  1355. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Schar = b2<:f>
  1356.  
  1357. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    ENDIF
  1358.  
  1359. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring, Schar)
  1360.  
  1361. @Normal@<:#235,9360><:f200,QCourier,0,0,0>NEXT
  1362.  
  1363. @Normal@<:#235,9360><:f200,QCourier,0,0,0>db = Newstring
  1364.  
  1365. @Normal@<:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1366.  
  1367. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1368.  
  1369. @Normal@<:#202,9360><:f200,QCourier,0,0,0>
  1370.  
  1371. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>Function Trim(s)<-!>
  1372.  
  1373. @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Removes trailing blanks
  1374.  
  1375. @Normal@<:#202,9360><:f200,QCourier,0,0,0>i = Len(s)
  1376.  
  1377. @Normal@<:#235,9360><:f200,QCourier,0,0,0>WHILE (i <;> 0)
  1378.  
  1379. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF(Mid$(s, i, 1) <<<;> " ") THEN 
  1380.  
  1381. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Goto loopend
  1382.  
  1383. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    ENDIF
  1384.  
  1385. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    i = i - 1
  1386.  
  1387. @Normal@<:#202,9360><:f200,QCourier,0,0,0>WEND
  1388.  
  1389. @Normal@<:#202,9360><:f200,QCourier,0,0,0>loopend:
  1390.  
  1391. @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF i = 0 THEN
  1392.  
  1393. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    Trim = ""
  1394.  
  1395. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ELSE
  1396.  
  1397. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    Trim = Mid$(s, 1, i)
  1398.  
  1399. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF
  1400.  
  1401. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!>
  1402.  
  1403. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1404.  
  1405. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function Btype(Out)<-!>
  1406.  
  1407. @Normal@<:#202,9360><+"><:f200,QCourier,0,0,0>'Outputs a string in chunks if nescessary<-">
  1408.  
  1409. @Normal@<:#202,9360><+"><:f200,QCourier,0,0,0>'SingleStep(1)<-">
  1410.  
  1411. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Out = db(Out)<:f>
  1412.  
  1413. @Normal@<:#202,9360><:f200,QCourier,0,0,0>IL = Len(Out)
  1414.  
  1415. @Normal@<:#235,9360><:f200,QCourier,0,0,0>If IL << 400 <++>then<-+>
  1416.  
  1417. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    TYPE(Out)
  1418.  
  1419. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ELSE
  1420.  
  1421. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    FOR IC = 1 to IL
  1422.  
  1423. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        STEP 400
  1424.  
  1425. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Tmp = MID$(Out, IC, 400)
  1426.  
  1427. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        TYPE(Tmp)
  1428.  
  1429. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    NEXT    
  1430.  
  1431. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF
  1432.  
  1433. @Function Head@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1434.  
  1435. @Function Head@<:#284,9360>
  1436.  
  1437. @Function Head@<:#240,9360><:f240,QCourier,0,0,0><+!>Function Closeit()<-!>
  1438.  
  1439. @Function Head@<:#240,9360><:f240,QCourier,0,0,0>
  1440.  
  1441. @Function Head@<:#240,9360><:f240,QCourier,0,0,0>FileClose()
  1442.  
  1443. @Function Head@<:#240,9360><:f240,QCourier,0,0,0>
  1444.  
  1445. @Function Head@<:#240,9360><:f240,QCourier,0,0,0><+!>End Function<-!><:f>
  1446.  
  1447. >
  1448.  
  1449. [Embedded]
  1450. 00036854
  1451. >
  1452. [macsum] 7
  1453. JJPLett 0 0 50 0
  1454. Tr1 4833 1 5 328
  1455. dq 5273 1 7 350
  1456. db 5562 1 7 366
  1457. Trim 5851 1 2 384
  1458. Btype 6100 1 4 401
  1459. Closeit 6362 0 1 417
  1460. [macse]
  1461. 14 JJPLett
  1462. 7 "Commence"
  1463. 8 28
  1464. 7 "Could NOT Establish DDE with {28}; Exiting ..."
  1465. 8 29
  1466. 7 "Could NOT launch {28}; Exiting ..."
  1467. 8 30
  1468. 0 39 13
  1469. 13
  1470. 8 2
  1471. 0 39 91
  1472. 13
  1473. 8 1
  1474. 0 39 124
  1475. 13
  1476. 8 16
  1477. 0 39 34
  1478. 13
  1479. 8 31
  1480. 0 8 "{28}" "GetData"
  1481. 13
  1482. 8 32
  1483. 6 32
  1484. 5 0
  1485. 18 4
  1486. 11 00000564
  1487. 6 32
  1488. 8 33
  1489. 0 22 "{28}.EXE" "" 1
  1490. 13
  1491. 8 34
  1492. 6 34
  1493. 5 32
  1494. 18 3
  1495. 11 00000497
  1496. 0 8 "{28}" "GetData"
  1497. 13
  1498. 8 32
  1499. 6 32
  1500. 5 0
  1501. 18 4
  1502. 11 00000484
  1503. 0 801
  1504. 0 296 0
  1505. 0 32 0
  1506. 0 801
  1507. 0 3 "{29}"
  1508. 0 789 ""
  1509. 0 296 0
  1510. 6 0
  1511. 15
  1512. 9
  1513. 10 00000564
  1514. 0 296 0
  1515. 0 32 0
  1516. 0 801
  1517. 0 3 "{30}"
  1518. 0 789 ""
  1519. 0 296 0
  1520. 6 0
  1521. 15
  1522. 9
  1523. 0 8 "{28}" "System"
  1524. 13
  1525. 8 35
  1526. 0 10 "{35}" "Version"
  1527. 13
  1528. 8 36
  1529. 0 9 "{35}"
  1530. 0 806 "{36}" 9
  1531. 13
  1532. 7 "Version 1"
  1533. 18 0
  1534. 0 806 "{36}" 9
  1535. 13
  1536. 7 "Version 2"
  1537. 18 0
  1538. 1 2
  1539. 11 00000765
  1540. 5 35
  1541. 8 37
  1542. 10 00000777
  1543. 5 50
  1544. 8 37
  1545. 7 "{1}ClarifyItemNames(True)]"
  1546. 8 22
  1547. 0 10 "{32}" "{22}"
  1548. 13
  1549. 8 12
  1550. 5 1
  1551. 8 38
  1552. 7 "{1}GetLetterViewInfo(|)]"
  1553. 8 22
  1554. 0 10 "{32}" "{22}"
  1555. 13
  1556. 8 12
  1557. 5 1
  1558. 8 14
  1559. 0 808 "{14}" "{12}" "{16}"
  1560. 13
  1561. 8 13
  1562. 6 13
  1563. 5 1
  1564. 3 0
  1565. 8 14
  1566. 0 808 "{14}" "{12}" "{16}"
  1567. 13
  1568. 8 13
  1569. 6 13
  1570. 5 1
  1571. 3 0
  1572. 8 14
  1573. 0 808 "{14}" "{12}" "{16}"
  1574. 13
  1575. 8 13
  1576. 6 13
  1577. 6 14
  1578. 3 1
  1579. 0 15 "{12}" "{14}" [X]
  1580. 13
  1581. 8 4
  1582. 6 13
  1583. 5 1
  1584. 3 0
  1585. 8 14
  1586. 0 808 "{14}" "{12}" "{16}"
  1587. 13
  1588. 8 13
  1589. 6 13
  1590. 6 14
  1591. 3 1
  1592. 0 15 "{12}" "{14}" [X]
  1593. 13
  1594. 8 3
  1595. 0 14 "{3}"
  1596. 13
  1597. 6 37
  1598. 18 3
  1599. 11 00001353
  1600. 0 15 "{3}" 1 "{37}"
  1601. 13
  1602. 16 Trim [X]
  1603. 13
  1604. 8 22
  1605. 10 00001378
  1606. 16 Trim "{3}"
  1607. 13
  1608. 8 22
  1609. 16 dq "{22}"
  1610. 13
  1611. 8 25
  1612. 16 dq "{3}"
  1613. 13
  1614. 8 24
  1615. 7 "{1}GetFieldNames({31}{4}{31},|)]"
  1616. 8 22
  1617. 0 10 "{32}" "{22}"
  1618. 13
  1619. 8 12
  1620. 5 1
  1621. 8 14
  1622. 0 808 "{14}" "{12}" "{16}"
  1623. 13
  1624. 8 13
  1625. 6 13
  1626. 6 14
  1627. 3 1
  1628. 0 15 "{12}" "{14}" [X]
  1629. 13
  1630. 8 18
  1631. 5 0
  1632. 8 39
  1633. 6 39
  1634. 5 0
  1635. 18 0
  1636. 11 00001699
  1637. 2 488 1 0 0 8193 "(" ""
  1638. 13
  1639. 8 40
  1640. 5 1
  1641. 8 39
  1642. 10 00001731
  1643. 2 488 1 0 0 1 "(" ""
  1644. 13
  1645. 8 40
  1646. 6 40
  1647. 5 1
  1648. 18 1
  1649. 11 00001774
  1650. 10 00004722
  1651. 0 282
  1652. 13
  1653. 8 23
  1654. 6 23
  1655. 7 "%"
  1656. 18 0
  1657. 11 00001963
  1658. 0 6 "[4135]"
  1659. 0 278
  1660. 13
  1661. 11 00001886
  1662. 0 6 "[39]"
  1663. 10 00004722
  1664. 0 282
  1665. 13
  1666. 7 ")"
  1667. 18 0
  1668. 11 00001950
  1669. 0 6 "[4135]"
  1670. 10 00002157
  1671. 10 00002144
  1672. 6 23
  1673. 7 ""
  1674. 18 0
  1675. 11 00002081
  1676. 0 6 "[39]"
  1677. 0 278
  1678. 13
  1679. 11 00002055
  1680. 0 6 "[39]"
  1681. 10 00004722
  1682. 10 00001610
  1683. 10 00002144
  1684. 0 6 "[4135]"
  1685. 0 278
  1686. 13
  1687. 11 00002144
  1688. 0 6 "[39]"
  1689. 10 00004722
  1690. 10 00001774
  1691. 0 24
  1692. 13
  1693. 8 21
  1694. 0 14 "{21}"
  1695. 13
  1696. 8 41
  1697. 6 41
  1698. 5 4
  1699. 3 1
  1700. 0 15 "{21}" 3 [X]
  1701. 13
  1702. 8 20
  1703. 0 808 0 "{20}" "%"
  1704. 13
  1705. 8 42
  1706. 6 42
  1707. 5 0
  1708. 18 0
  1709. 11 00002762
  1710. 6 20
  1711. 6 18
  1712. 18 0
  1713. 11 00002417
  1714. 7 "{1}GetReverseName({31}{25}{31})]"
  1715. 8 6
  1716. 0 10 "{32}" "{6}"
  1717. 13
  1718. 8 10
  1719. 10 00002555
  1720. 7 "{1}GetField({31}{4}{31},"
  1721. 8 6
  1722. 0 16 "{6}" "{31}{24}{31},{31}{20}{31})]"
  1723. 13
  1724. 8 6
  1725. 0 10 "{32}" "{6}"
  1726. 13
  1727. 8 9
  1728. 16 Tr1 "{9}"
  1729. 13
  1730. 8 10
  1731. 6 10
  1732. 7 ""
  1733. 18 1
  1734. 11 00002616
  1735. 16 Btype "{10}"
  1736. 10 00002749
  1737. 0 6 "[46]"
  1738. 0 282
  1739. 13
  1740. 7 ""
  1741. 18 0
  1742. 11 00002749
  1743. 0 6 "[37]"
  1744. 0 282
  1745. 13
  1746. 7 ""
  1747. 18 0
  1748. 11 00002737
  1749. 0 6 "[46]"
  1750. 10 00002749
  1751. 0 6 "[39]"
  1752. 10 00004709
  1753. 6 42
  1754. 5 1
  1755. 3 1
  1756. 0 806 "{20}" [X]
  1757. 13
  1758. 8 43
  1759. 6 42
  1760. 5 2
  1761. 3 0
  1762. 0 14 "{20}"
  1763. 13
  1764. 6 42
  1765. 3 1
  1766. 5 1
  1767. 3 1
  1768. 0 15 "{20}" [X] [X]
  1769. 13
  1770. 8 44
  1771. 0 808 0 "{44}" "%"
  1772. 13
  1773. 8 42
  1774. 6 42
  1775. 5 1
  1776. 3 1
  1777. 0 806 "{44}" [X]
  1778. 13
  1779. 8 45
  1780. 6 42
  1781. 5 2
  1782. 3 0
  1783. 0 14 "{44}"
  1784. 13
  1785. 6 42
  1786. 3 1
  1787. 5 1
  1788. 3 1
  1789. 0 15 "{44}" [X] [X]
  1790. 13
  1791. 8 46
  1792. 7 "{1}GetConnectedItemCount({31}{4}{31},"
  1793. 8 6
  1794. 0 16 "{6}" "{31}{24}{31},{31}{43}{31},{31}{45}{31},|)]"
  1795. 13
  1796. 8 6
  1797. 0 10 "{32}" "{6}"
  1798. 13
  1799. 8 11
  1800. 6 11
  1801. 5 0
  1802. 18 0
  1803. 6 11
  1804. 7 ""
  1805. 18 0
  1806. 1 2
  1807. 11 00003271
  1808. 7 ""
  1809. 8 10
  1810. 10 00004515
  1811. 7 "{1}GetFieldNames({31}{45}{31},|)]"
  1812. 8 22
  1813. 0 10 "{32}" "{22}"
  1814. 13
  1815. 8 12
  1816. 5 1
  1817. 8 14
  1818. 0 808 "{14}" "{12}" "{16}"
  1819. 13
  1820. 8 13
  1821. 6 13
  1822. 6 14
  1823. 3 1
  1824. 0 15 "{12}" "{14}" [X]
  1825. 13
  1826. 8 19
  1827. 7 "{1}GetConnectedItemNames({31}{4}{31},"
  1828. 8 6
  1829. 0 16 "{6}" "{31}{24}{31},{31}{43}{31},{31}{45}{31},|)]"
  1830. 13
  1831. 8 6
  1832. 0 10 "{32}" "{6}"
  1833. 13
  1834. 8 12
  1835. 5 1
  1836. 8 14
  1837. 5 1
  1838. 8 15
  1839. 6 11
  1840. 6 15
  1841. 18 2
  1842. 12 00003690
  1843. 10 00004515
  1844. 5 1
  1845. 6 15
  1846. 3 0
  1847. 8 15
  1848. 10 00003611
  1849. 0 808 "{14}" "{12}" "{16}"
  1850. 13
  1851. 8 13
  1852. 6 13
  1853. 5 0
  1854. 18 0
  1855. 11 00003855
  1856. 0 14 "{12}"
  1857. 13
  1858. 8 47
  1859. 6 47
  1860. 6 14
  1861. 3 1
  1862. 5 1
  1863. 3 0
  1864. 0 15 "{12}" "{14}" [X]
  1865. 13
  1866. 8 17
  1867. 10 00003928
  1868. 6 13
  1869. 6 14
  1870. 3 1
  1871. 0 15 "{12}" "{14}" [X]
  1872. 13
  1873. 8 17
  1874. 6 13
  1875. 5 1
  1876. 3 0
  1877. 8 14
  1878. 0 14 "{17}"
  1879. 13
  1880. 6 37
  1881. 18 3
  1882. 11 00004032
  1883. 0 15 "{17}" 1 "{37}"
  1884. 13
  1885. 16 Trim [X]
  1886. 13
  1887. 8 22
  1888. 10 00004044
  1889. 6 17
  1890. 8 22
  1891. 16 dq "{22}"
  1892. 13
  1893. 8 27
  1894. 16 dq "{17}"
  1895. 13
  1896. 8 26
  1897. 6 46
  1898. 6 19
  1899. 18 0
  1900. 11 00004296
  1901. 7 "{1}GetReverseName({31}{27}{31})]"
  1902. 8 6
  1903. 0 10 "{32}" "{6}"
  1904. 13
  1905. 8 9
  1906. 6 15
  1907. 5 1
  1908. 18 0
  1909. 11 00004248
  1910. 6 9
  1911. 8 10
  1912. 10 00004283
  1913. 0 16 "{10}" "{2}" "{9}"
  1914. 13
  1915. 8 10
  1916. 10 00004502
  1917. 7 "{1}GetField({31}{45}{31},{31}{26}{31},{31}{46}{31})]"
  1918. 8 6
  1919. 0 10 "{32}" "{6}"
  1920. 13
  1921. 8 9
  1922. 16 Tr1 "{9}"
  1923. 13
  1924. 8 48
  1925. 6 15
  1926. 5 1
  1927. 18 0
  1928. 11 00004466
  1929. 6 48
  1930. 8 10
  1931. 10 00004502
  1932. 0 16 "{10}" "{2}" "{48}"
  1933. 13
  1934. 8 10
  1935. 10 00003655
  1936. 6 10
  1937. 7 ""
  1938. 18 1
  1939. 11 00004576
  1940. 16 Btype "{10}"
  1941. 10 00004709
  1942. 0 6 "[46]"
  1943. 0 282
  1944. 13
  1945. 7 ""
  1946. 18 0
  1947. 11 00004709
  1948. 0 6 "[37]"
  1949. 0 282
  1950. 13
  1951. 7 ""
  1952. 18 0
  1953. 11 00004697
  1954. 0 6 "[46]"
  1955. 10 00004709
  1956. 0 6 "[39]"
  1957. 10 00001610
  1958. 2 103 1
  1959. 2 111 1 1 1 1 1537
  1960. 0 38 "{28}"
  1961. 0 802
  1962. 13
  1963. 8 49
  1964. 0 285 "{49}!Closeit()" 0.2
  1965. 0 9 "{32}"
  1966. 6 0
  1967. 15
  1968. 9
  1969. 14 Tr1
  1970. 0 39 10
  1971. 13
  1972. 8 2
  1973. 7 ""
  1974. 8 3
  1975. 5 1
  1976. 8 4
  1977. 0 808 "{4}" "{0}" "{2}"
  1978. 13
  1979. 8 5
  1980. 6 5
  1981. 5 0
  1982. 18 1
  1983. 11 00000222
  1984. 6 5
  1985. 6 4
  1986. 3 1
  1987. 0 15 "{0}" "{4}" [X]
  1988. 13
  1989. 0 16 "{3}" [X]
  1990. 13
  1991. 8 3
  1992. 6 5
  1993. 5 1
  1994. 3 0
  1995. 8 4
  1996. 10 00000047
  1997. 10 00000418
  1998. 6 4
  1999. 5 1
  2000. 18 0
  2001. 11 00000331
  2002. 0 14 "{0}"
  2003. 13
  2004. 0 15 "{0}" "{4}" [X]
  2005. 13
  2006. 0 16 "{3}" [X]
  2007. 13
  2008. 8 3
  2009. 10 00000418
  2010. 0 14 "{0}"
  2011. 13
  2012. 6 4
  2013. 3 1
  2014. 5 1
  2015. 3 0
  2016. 0 15 "{0}" "{4}" [X]
  2017. 13
  2018. 0 16 "{3}" [X]
  2019. 13
  2020. 8 3
  2021. 6 3
  2022. 8 1
  2023. 6 1
  2024. 15
  2025. 9
  2026. 14 dq
  2027. 0 39 34
  2028. 13
  2029. 8 2
  2030. 7 "{2}{2}"
  2031. 8 3
  2032. 7 ""
  2033. 8 4
  2034. 0 14 "{0}"
  2035. 13
  2036. 8 5
  2037. 5 1
  2038. 8 6
  2039. 6 5
  2040. 6 6
  2041. 18 2
  2042. 12 00000159
  2043. 10 00000267
  2044. 5 1
  2045. 6 6
  2046. 3 0
  2047. 8 6
  2048. 10 00000084
  2049. 0 15 "{0}" "{6}" 1
  2050. 13
  2051. 8 7
  2052. 6 7
  2053. 6 2
  2054. 18 0
  2055. 11 00000227
  2056. 6 3
  2057. 8 7
  2058. 0 16 "{4}" "{7}"
  2059. 13
  2060. 8 4
  2061. 10 00000126
  2062. 6 4
  2063. 8 1
  2064. 6 1
  2065. 15
  2066. 9
  2067. 14 db
  2068. 0 39 91
  2069. 13
  2070. 8 2
  2071. 7 "{2}{2}"
  2072. 8 3
  2073. 7 ""
  2074. 8 4
  2075. 0 14 "{0}"
  2076. 13
  2077. 8 5
  2078. 5 1
  2079. 8 6
  2080. 6 5
  2081. 6 6
  2082. 18 2
  2083. 12 00000159
  2084. 10 00000267
  2085. 5 1
  2086. 6 6
  2087. 3 0
  2088. 8 6
  2089. 10 00000084
  2090. 0 15 "{0}" "{6}" 1
  2091. 13
  2092. 8 7
  2093. 6 7
  2094. 6 2
  2095. 18 0
  2096. 11 00000227
  2097. 6 3
  2098. 8 7
  2099. 0 16 "{4}" "{7}"
  2100. 13
  2101. 8 4
  2102. 10 00000126
  2103. 6 4
  2104. 8 1
  2105. 6 1
  2106. 15
  2107. 9
  2108. 14 Trim
  2109. 0 14 "{0}"
  2110. 13
  2111. 8 2
  2112. 6 2
  2113. 5 0
  2114. 18 3
  2115. 11 00000155
  2116. 0 15 "{0}" "{2}" 1
  2117. 13
  2118. 7 " "
  2119. 18 1
  2120. 11 00000122
  2121. 10 00000155
  2122. 6 2
  2123. 5 1
  2124. 3 1
  2125. 8 2
  2126. 10 00000030
  2127. 6 2
  2128. 5 0
  2129. 18 0
  2130. 11 00000208
  2131. 7 ""
  2132. 8 1
  2133. 10 00000237
  2134. 0 15 "{0}" 1 "{2}"
  2135. 13
  2136. 8 1
  2137. 6 1
  2138. 15
  2139. 9
  2140. 14 Btype
  2141. 16 db "{0}"
  2142. 13
  2143. 8 0
  2144. 0 14 "{0}"
  2145. 13
  2146. 8 2
  2147. 6 2
  2148. 5 400
  2149. 18 5
  2150. 11 00000108
  2151. 0 6 "{0}"
  2152. 10 00000250
  2153. 5 1
  2154. 8 3
  2155. 6 2
  2156. 6 3
  2157. 18 2
  2158. 12 00000195
  2159. 10 00000250
  2160. 5 400
  2161. 6 3
  2162. 3 0
  2163. 8 3
  2164. 10 00000118
  2165. 0 15 "{0}" "{3}" 400
  2166. 13
  2167. 8 4
  2168. 0 6 "{4}"
  2169. 10 00000160
  2170. 6 1
  2171. 15
  2172. 9
  2173. 14 Closeit
  2174. 2 147 1
  2175. 6 0
  2176. 15
  2177. 9
  2178. 00036879
  2179.