home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2004 April / DPPCPRO0404.ISO / April / CAS / disk2 / data.2 / MACROS / AMIPRO / jjclett.smm next >
Encoding:
INI File  |  1995-04-05  |  41.7 KB  |  2,156 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.     
  13. [port]
  14.     COM1:
  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.     797122917
  33.     77
  34.     706653616
  35.     853
  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.     48 0 87 0 2 1 0 65535 40 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  587.     101 0 39 0 0 1 0 65535 4 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  588.     153 0 30 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
  589.     208 0 36 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.     263 0 33 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.     317 0 23 0 2 0 0 65535 4 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  592.     371 0 52 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
  593.     415 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 JJCLett()<-!>
  596.  
  597. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>'Copyright 1992-95 Jensen-Jones Inc.
  598.  
  599. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>'Commence letter template expansion macro
  600.  
  601. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>'Single letter version, creates a letter and waits for user to modify it
  602.  
  603. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>
  604.  
  605. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>'Changes for Commence 1.00a
  606.  
  607. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Type large text strings in block of 400 to circumvent Type limitation
  608.  
  609. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Output all connected items if multiple items are connected
  610.  
  611. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Get and use the actual name of the Name field rather than assuming it is "Name"
  612.  
  613. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Get rid of Tr subrountine so ~'s in field codes are OK
  614.  
  615. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>'
  616.  
  617. @Normal@<:#284,9360><-!><:f240,2Times New Roman,0,0,0>'1.00a+ version fixes<-!>
  618.  
  619. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' 1 - change getactiveview to getletterview
  620.  
  621. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' 2 - test for Icount = "" (this happens with an invalid bad field code)
  622.  
  623. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>
  624.  
  625. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' 1.1 changes 
  626.  
  627. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' 2/12/93:
  628.  
  629. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Add support for clarify fields
  630.  
  631. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' Add dq function to handle quotes in names
  632.  
  633. @Normal@<:#284,9360><+!><:f240,2Times New Roman,0,0,0>' Note: this version requires the DDE patch version of AmiPro 3.0,<-!>
  634.  
  635. @Normal@<:#284,9360><+!><:f240,2Times New Roman,0,0,0>' earlier <-!><+!>versions of AmiPro may UAE trying to send the longer DDE<-!>
  636.  
  637. @Normal@<:#284,9360><+!><:f240,2Times New Roman,0,0,0>'  commands used <-!><+!>in this macro<-!>
  638.  
  639. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>
  640.  
  641. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' 2.0c changes 7/26/93
  642.  
  643. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' fix for blank clarify fields
  644.  
  645. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>' fix to handle left brackets
  646.  
  647. @Normal@<:#284,9360><:f240,2Times New Roman,0,0,0>
  648.  
  649. <:#284,9360><:f240,2Times New Roman,0,0,0>' 3.0 changes 4/3/95
  650.  
  651. <:#284,9360><:f240,2Times New Roman,0,0,0>' support 50 character item names
  652.  
  653. <:#284,9360>' Commence 1.0a or later is required
  654.  
  655. <:#284,9360><:f240,2Times New Roman,0,0,0>
  656.  
  657. @Normal@<:#284,9360><:f240,2Times New Roman,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,2250,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}<:f><:f200,QCourier,0,0,0>", "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. <:#284,9360><-+>dqName = Call dq(Name)
  838.  
  839. <:#284,9360>If Len(Name) <;> NameSize Then
  840.  
  841. <:#284,9360>    Tmp = Call Trim(Mid$(Name,1,NameSize))
  842.  
  843. <:#284,9360>Else
  844.  
  845. <:#284,9360>    Tmp = Call Trim(Name)
  846.  
  847. <:#284,9360>EndIf
  848.  
  849. <:#284,9360>dqPlainName = Call dq(Tmp)
  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 = 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>
  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<-">
  1232.  
  1233. @Normal@<:#235,9360><+"><:f200,QCourier,0,0,0>
  1234.  
  1235. @Normal@<:#235,9360><-"><+"><:f200,QCourier,0,0,0>'Save the file with the data from Commence 
  1236. <-">
  1237.  
  1238. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Save()    
  1239.  
  1240. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Maximize()
  1241.  
  1242. @Normal@<:#235,9360><:f200,QCourier,0,0,0>CascadeWindow()
  1243.  
  1244. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Type("<[>CTRLHome]")
  1245.  
  1246. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'The end of the different lines ***********************<-">
  1247.  
  1248. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1249.  
  1250. @Normal@<:#235,9360><:f200,QCourier,0,0,0>DDETerminate(c)
  1251.  
  1252. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!>
  1253.  
  1254. @Normal@<:#235,9360><:f200,QCourier,0,0,0>
  1255.  
  1256. @Normal@<:#235,9360><-!><:f200,QCourier,0,0,0><+!>Function Tr1(OS)<-!>
  1257.  
  1258. @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<-">
  1259.  
  1260. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+">'New<:f><:f200,QCourier,0,0,0> algorithm to speed this up 2/12/92<-">
  1261.  
  1262. @Normal@<:#235,9360><:f200,QCourier,0,0,0>n <:f><:f200,QCourier,0,0,0>= Chr$(10<:f><:f200,QCourier,0,0,0>)
  1263.  
  1264. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Newstring = ""
  1265.  
  1266. @Normal@<:#235,9360><:f200,QCourier,0,0,0>J = 1
  1267.  
  1268. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>NextLook:<-!>
  1269.  
  1270. @Normal@<:#235,9360><:f200,QCourier,0,0,0>K = InStr(J,OS,n)<:f>
  1271.  
  1272. @Normal@<:#235,9360><:f200,QCourier,0,0,0><++>If<-+> K <<<;> 0 <++>Then<-+><:f>
  1273.  
  1274. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring,Mid$(OS,J,K - J<:f><:f200,QCourier,0,0,0>))
  1275.  
  1276. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    J = K + 1
  1277.  
  1278. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    Goto NextLook
  1279.  
  1280. @Normal@<:#235,9360><:f200,QCourier,0,0,0><++>Else<-+><:f>
  1281.  
  1282. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF J = 1 THEN
  1283.  
  1284. @Normal@<:#284,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>)
  1285.  
  1286. @Normal@<:#240,9360>    <:f240,QCourier,0,0,0>ELSE<:f>
  1287.  
  1288. @Normal@<:#284,9360>        <:f200,QCourier,0,0,0>Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS) - J + 1<:f><:f200,QCourier,0,0,0>)<:f>)
  1289.  
  1290. @Normal@<:#235,9360>    <:f200,QCourier,0,0,0>ENDIF<:f>
  1291.  
  1292. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF
  1293.  
  1294. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Tr1 = Newstring
  1295.  
  1296. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1297.  
  1298. @Normal@<:#284,9360>
  1299.  
  1300. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function dq(OS)<-!>
  1301.  
  1302. @Normal@<:#235,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> 
  1303. <-"><:f>
  1304.  
  1305. @Normal@<:#235,9360><:f200,QCourier,0,0,0>q <:f><:f200,QCourier,0,0,0>= Chr$(34<:f><:f200,QCourier,0,0,0>)
  1306.  
  1307. @Normal@<:#235,9360><:f200,QCourier,0,0,0>q2 ="{<:f><:f200,QCourier,0,0,0>q}{q}"<:f>
  1308.  
  1309. @Normal@<:#235,9360><:f200,QCourier,0,0,0>Newstring = ""
  1310.  
  1311. @Normal@<:#235,9360><:f200,QCourier,0,0,0>J = Len(OS)
  1312.  
  1313. @Normal@<:#235,9360><:f200,QCourier,0,0,0>FOR I = 1 TO J
  1314.  
  1315. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Schar = Mid$(OS, I, 1)
  1316.  
  1317. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        IF Schar = q<:f><:f200,QCourier,0,0,0> THEN 
  1318.  
  1319. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Schar = q2<:f>
  1320.  
  1321. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  1322.  
  1323. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring, Schar)
  1324.  
  1325. @Normal@<:#235,9360><:f200,QCourier,0,0,0>NEXT
  1326.  
  1327. @Normal@<:#235,9360><:f200,QCourier,0,0,0>dq = Newstring
  1328.  
  1329. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1330.  
  1331. @Normal@<:#284,9360>
  1332.  
  1333. @Normal@<:#235,9360><-!><:f200,QCourier,0,0,0>
  1334.  
  1335. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function Trim(s)<-!>
  1336.  
  1337. @Normal@<:#235,9360><:f200,QCourier,0,0,0>'Removes trailing blanks
  1338.  
  1339. @Normal@<:#235,9360><:f200,QCourier,0,0,0>i = Len(s)
  1340.  
  1341. @Normal@<:#235,9360><:f200,QCourier,0,0,0>WHILE (i <;> 0)
  1342.  
  1343. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    IF(Mid$(s, i, 1) <<<;> " ") THEN 
  1344.  
  1345. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Goto loopend
  1346.  
  1347. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    ENDIF
  1348.  
  1349. @Normal@<:#235,9360><:f200,QCourier,0,0,0>    i = i - 1
  1350.  
  1351. @Normal@<:#235,9360><:f200,QCourier,0,0,0>WEND
  1352.  
  1353. @Normal@<:#235,9360><:f200,QCourier,0,0,0>loopend:
  1354.  
  1355. @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF i = 0 THEN
  1356.  
  1357. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    Trim = ""
  1358.  
  1359. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ELSE
  1360.  
  1361. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    Trim = Mid$(s, 1, i)
  1362.  
  1363. @Normal@<:#235,9360><:f200,QCourier,0,0,0>ENDIF
  1364.  
  1365. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!>
  1366.  
  1367. @Normal@<:#202,9360><:f200,QCourier,0,0,0>
  1368.  
  1369. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function db(OS)<-!>
  1370.  
  1371. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+">' Translates <[><:f><:f200,QCourier,0,0,0> to <[><[> for insertion in document<-"><:f>
  1372.  
  1373. @Normal@<:#240,9360><:f240,QCourier,0,0,0><+">' added for 2.0c<-"><:f>
  1374.  
  1375. @Normal@<:#202,9360><:f200,QCourier,0,0,0>b <:f><:f200,QCourier,0,0,0>= Chr$(<:f><:f200,QCourier,0,0,0>91)
  1376.  
  1377. @Normal@<:#202,9360><:f200,QCourier,0,0,0>b2 ="{<:f><:f200,QCourier,0,0,0>b}{b}"<:f>
  1378.  
  1379. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Newstring = ""
  1380.  
  1381. @Normal@<:#202,9360><:f200,QCourier,0,0,0>J = Len(OS)
  1382.  
  1383. @Normal@<:#202,9360><:f200,QCourier,0,0,0>FOR I = 1 TO J
  1384.  
  1385. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Schar = Mid$(OS, I, 1)
  1386.  
  1387. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        IF Schar = b<:f><:f200,QCourier,0,0,0> THEN 
  1388.  
  1389. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        Schar = b2<:f>
  1390.  
  1391. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    ENDIF
  1392.  
  1393. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Newstring = strcat$(Newstring, Schar)
  1394.  
  1395. @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT
  1396.  
  1397. @Normal@<:#202,9360><:f200,QCourier,0,0,0>db = Newstring
  1398.  
  1399. @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1400.  
  1401. @Normal@<:#284,9360>
  1402.  
  1403. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>Function Btype(Out)<-!>
  1404.  
  1405. @Normal@<:#202,9360><+"><:f200,QCourier,0,0,0>'Outputs a string in chunks if nescessary<-">
  1406.  
  1407. @Normal@<:#202,9360><+"><:f200,QCourier,0,0,0>'SingleStep(1)<-">
  1408.  
  1409. @Normal@<:#202,9360><:f200,QCourier,0,0,0>Out = db(Out)
  1410.  
  1411. @Normal@<:#202,9360><:f200,QCourier,0,0,0>IL = Len(Out)
  1412.  
  1413. @Normal@<:#202,9360><:f200,QCourier,0,0,0>If IL << 400 <++>then<-+>
  1414.  
  1415. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    TYPE(Out)
  1416.  
  1417. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ELSE
  1418.  
  1419. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    FOR IC = 1 to IL
  1420.  
  1421. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        STEP 400
  1422.  
  1423. @Normal@<:#235,9360><:f200,QCourier,0,0,0>        Tmp = MID$(Out, IC, 400)
  1424.  
  1425. @Normal@<:#202,9360><:f200,QCourier,0,0,0>        TYPE(Tmp)
  1426.  
  1427. @Normal@<:#202,9360><:f200,QCourier,0,0,0>    NEXT    
  1428.  
  1429. @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF
  1430.  
  1431. @Normal@<:#235,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f>
  1432.  
  1433. >
  1434.  
  1435. [Embedded]
  1436. 00036252
  1437. >
  1438. [macsum] 6
  1439. JJCLett 0 0 49 0
  1440. Tr1 4793 1 5 327
  1441. dq 5233 1 7 349
  1442. Trim 5522 1 2 366
  1443. db 5771 1 7 383
  1444. Btype 6060 1 4 400
  1445. [macse]
  1446. 14 JJCLett
  1447. 7 "Commence"
  1448. 8 28
  1449. 7 "Could NOT Establish DDE with {28}; Exiting ..."
  1450. 8 29
  1451. 7 "Could NOT launch {28}; Exiting ..."
  1452. 8 30
  1453. 0 39 13
  1454. 13
  1455. 8 2
  1456. 0 39 91
  1457. 13
  1458. 8 1
  1459. 0 39 124
  1460. 13
  1461. 8 16
  1462. 0 39 34
  1463. 13
  1464. 8 31
  1465. 0 8 "{28}" "GetData"
  1466. 13
  1467. 8 32
  1468. 6 32
  1469. 5 0
  1470. 18 4
  1471. 11 00000564
  1472. 6 32
  1473. 8 33
  1474. 0 22 "{28}.EXE" "" 1
  1475. 13
  1476. 8 34
  1477. 6 34
  1478. 5 32
  1479. 18 3
  1480. 11 00000497
  1481. 0 8 "{28}" "GetData"
  1482. 13
  1483. 8 32
  1484. 6 32
  1485. 5 0
  1486. 18 4
  1487. 11 00000484
  1488. 0 801
  1489. 0 296 0
  1490. 0 32 0
  1491. 0 801
  1492. 0 3 "{29}"
  1493. 0 789 ""
  1494. 0 296 0
  1495. 6 0
  1496. 15
  1497. 9
  1498. 10 00000564
  1499. 0 296 0
  1500. 0 32 0
  1501. 0 801
  1502. 0 3 "{30}"
  1503. 0 789 ""
  1504. 0 296 0
  1505. 6 0
  1506. 15
  1507. 9
  1508. 0 8 "{28}" "System"
  1509. 13
  1510. 8 35
  1511. 0 10 "{35}" "Version"
  1512. 13
  1513. 8 36
  1514. 0 9 "{35}"
  1515. 0 806 "{36}" 9
  1516. 13
  1517. 7 "Version 1"
  1518. 18 0
  1519. 0 806 "{36}" 9
  1520. 13
  1521. 7 "Version 2"
  1522. 18 0
  1523. 1 2
  1524. 11 00000765
  1525. 5 35
  1526. 8 37
  1527. 10 00000777
  1528. 5 50
  1529. 8 37
  1530. 7 "{1}ClarifyItemNames(True)]"
  1531. 8 22
  1532. 0 10 "{32}" "{22}"
  1533. 13
  1534. 8 12
  1535. 5 1
  1536. 8 38
  1537. 7 "{1}GetLetterViewInfo(|)]"
  1538. 8 22
  1539. 0 10 "{32}" "{22}"
  1540. 13
  1541. 8 12
  1542. 5 1
  1543. 8 14
  1544. 0 808 "{14}" "{12}" "{16}"
  1545. 13
  1546. 8 13
  1547. 6 13
  1548. 5 1
  1549. 3 0
  1550. 8 14
  1551. 0 808 "{14}" "{12}" "{16}"
  1552. 13
  1553. 8 13
  1554. 6 13
  1555. 5 1
  1556. 3 0
  1557. 8 14
  1558. 0 808 "{14}" "{12}" "{16}"
  1559. 13
  1560. 8 13
  1561. 6 13
  1562. 6 14
  1563. 3 1
  1564. 0 15 "{12}" "{14}" [X]
  1565. 13
  1566. 8 4
  1567. 6 13
  1568. 5 1
  1569. 3 0
  1570. 8 14
  1571. 0 808 "{14}" "{12}" "{16}"
  1572. 13
  1573. 8 13
  1574. 6 13
  1575. 6 14
  1576. 3 1
  1577. 0 15 "{12}" "{14}" [X]
  1578. 13
  1579. 8 3
  1580. 16 dq "{3}"
  1581. 13
  1582. 8 24
  1583. 0 14 "{3}"
  1584. 13
  1585. 6 37
  1586. 18 3
  1587. 11 00001376
  1588. 0 15 "{3}" 1 "{37}"
  1589. 13
  1590. 16 Trim [X]
  1591. 13
  1592. 8 22
  1593. 10 00001401
  1594. 16 Trim "{3}"
  1595. 13
  1596. 8 22
  1597. 16 dq "{22}"
  1598. 13
  1599. 8 25
  1600. 7 "{1}GetFieldNames({31}{4}{31},|)]"
  1601. 8 22
  1602. 0 10 "{32}" "{22}"
  1603. 13
  1604. 8 12
  1605. 5 1
  1606. 8 14
  1607. 0 808 "{14}" "{12}" "{16}"
  1608. 13
  1609. 8 13
  1610. 6 13
  1611. 6 14
  1612. 3 1
  1613. 0 15 "{12}" "{14}" [X]
  1614. 13
  1615. 8 18
  1616. 5 0
  1617. 8 39
  1618. 6 39
  1619. 5 0
  1620. 18 0
  1621. 11 00001699
  1622. 2 488 1 0 0 8193 "(" ""
  1623. 13
  1624. 8 40
  1625. 5 1
  1626. 8 39
  1627. 10 00001731
  1628. 2 488 1 0 0 1 "(" ""
  1629. 13
  1630. 8 40
  1631. 6 40
  1632. 5 1
  1633. 18 1
  1634. 11 00001774
  1635. 10 00004722
  1636. 0 282
  1637. 13
  1638. 8 23
  1639. 6 23
  1640. 7 "%"
  1641. 18 0
  1642. 11 00001963
  1643. 0 6 "[4135]"
  1644. 0 278
  1645. 13
  1646. 11 00001886
  1647. 0 6 "[39]"
  1648. 10 00004722
  1649. 0 282
  1650. 13
  1651. 7 ")"
  1652. 18 0
  1653. 11 00001950
  1654. 0 6 "[4135]"
  1655. 10 00002157
  1656. 10 00002144
  1657. 6 23
  1658. 7 ""
  1659. 18 0
  1660. 11 00002081
  1661. 0 6 "[39]"
  1662. 0 278
  1663. 13
  1664. 11 00002055
  1665. 0 6 "[39]"
  1666. 10 00004722
  1667. 10 00001610
  1668. 10 00002144
  1669. 0 6 "[4135]"
  1670. 0 278
  1671. 13
  1672. 11 00002144
  1673. 0 6 "[39]"
  1674. 10 00004722
  1675. 10 00001774
  1676. 0 24
  1677. 13
  1678. 8 21
  1679. 0 14 "{21}"
  1680. 13
  1681. 8 41
  1682. 6 41
  1683. 5 4
  1684. 3 1
  1685. 0 15 "{21}" 3 [X]
  1686. 13
  1687. 8 20
  1688. 0 808 0 "{20}" "%"
  1689. 13
  1690. 8 42
  1691. 6 42
  1692. 5 0
  1693. 18 0
  1694. 11 00002762
  1695. 6 20
  1696. 6 18
  1697. 18 0
  1698. 11 00002417
  1699. 7 "{1}GetReverseName({31}{25}{31})]"
  1700. 8 6
  1701. 0 10 "{32}" "{6}"
  1702. 13
  1703. 8 10
  1704. 10 00002555
  1705. 7 "{1}GetField({31}{4}{31},"
  1706. 8 6
  1707. 0 16 "{6}" "{31}{24}{31},{31}{20}{31})]"
  1708. 13
  1709. 8 6
  1710. 0 10 "{32}" "{6}"
  1711. 13
  1712. 8 9
  1713. 16 Tr1 "{9}"
  1714. 13
  1715. 8 10
  1716. 6 10
  1717. 7 ""
  1718. 18 1
  1719. 11 00002616
  1720. 16 Btype "{10}"
  1721. 10 00002749
  1722. 0 6 "[46]"
  1723. 0 282
  1724. 13
  1725. 7 ""
  1726. 18 0
  1727. 11 00002749
  1728. 0 6 "[37]"
  1729. 0 282
  1730. 13
  1731. 7 ""
  1732. 18 0
  1733. 11 00002737
  1734. 0 6 "[46]"
  1735. 10 00002749
  1736. 0 6 "[39]"
  1737. 10 00004709
  1738. 6 42
  1739. 5 1
  1740. 3 1
  1741. 0 806 "{20}" [X]
  1742. 13
  1743. 8 43
  1744. 6 42
  1745. 5 2
  1746. 3 0
  1747. 0 14 "{20}"
  1748. 13
  1749. 6 42
  1750. 3 1
  1751. 5 1
  1752. 3 1
  1753. 0 15 "{20}" [X] [X]
  1754. 13
  1755. 8 44
  1756. 0 808 0 "{44}" "%"
  1757. 13
  1758. 8 42
  1759. 6 42
  1760. 5 1
  1761. 3 1
  1762. 0 806 "{44}" [X]
  1763. 13
  1764. 8 45
  1765. 6 42
  1766. 5 2
  1767. 3 0
  1768. 0 14 "{44}"
  1769. 13
  1770. 6 42
  1771. 3 1
  1772. 5 1
  1773. 3 1
  1774. 0 15 "{44}" [X] [X]
  1775. 13
  1776. 8 46
  1777. 7 "{1}GetConnectedItemCount({31}{4}{31},"
  1778. 8 6
  1779. 0 16 "{6}" "{31}{24}{31},{31}{43}{31},{31}{45}{31},|)]"
  1780. 13
  1781. 8 6
  1782. 0 10 "{32}" "{6}"
  1783. 13
  1784. 8 11
  1785. 6 11
  1786. 5 0
  1787. 18 0
  1788. 6 11
  1789. 7 ""
  1790. 18 0
  1791. 1 2
  1792. 11 00003271
  1793. 7 ""
  1794. 8 10
  1795. 10 00004515
  1796. 7 "{1}GetFieldNames({31}{45}{31},|)]"
  1797. 8 22
  1798. 0 10 "{32}" "{22}"
  1799. 13
  1800. 8 12
  1801. 5 1
  1802. 8 14
  1803. 0 808 "{14}" "{12}" "{16}"
  1804. 13
  1805. 8 13
  1806. 6 13
  1807. 6 14
  1808. 3 1
  1809. 0 15 "{12}" "{14}" [X]
  1810. 13
  1811. 8 19
  1812. 7 "{1}GetConnectedItemNames({31}{4}{31},"
  1813. 8 6
  1814. 0 16 "{6}" "{31}{24}{31},{31}{43}{31},{31}{45}{31},|)]"
  1815. 13
  1816. 8 6
  1817. 0 10 "{32}" "{6}"
  1818. 13
  1819. 8 12
  1820. 5 1
  1821. 8 14
  1822. 5 1
  1823. 8 15
  1824. 6 11
  1825. 6 15
  1826. 18 2
  1827. 12 00003690
  1828. 10 00004515
  1829. 5 1
  1830. 6 15
  1831. 3 0
  1832. 8 15
  1833. 10 00003611
  1834. 0 808 "{14}" "{12}" "{16}"
  1835. 13
  1836. 8 13
  1837. 6 13
  1838. 5 0
  1839. 18 0
  1840. 11 00003855
  1841. 0 14 "{12}"
  1842. 13
  1843. 8 47
  1844. 6 47
  1845. 6 14
  1846. 3 1
  1847. 5 1
  1848. 3 0
  1849. 0 15 "{12}" "{14}" [X]
  1850. 13
  1851. 8 17
  1852. 10 00003928
  1853. 6 13
  1854. 6 14
  1855. 3 1
  1856. 0 15 "{12}" "{14}" [X]
  1857. 13
  1858. 8 17
  1859. 6 13
  1860. 5 1
  1861. 3 0
  1862. 8 14
  1863. 0 14 "{17}"
  1864. 13
  1865. 6 37
  1866. 18 3
  1867. 11 00004032
  1868. 0 15 "{17}" 1 "{37}"
  1869. 13
  1870. 16 Trim [X]
  1871. 13
  1872. 8 22
  1873. 10 00004044
  1874. 6 17
  1875. 8 22
  1876. 16 dq "{22}"
  1877. 13
  1878. 8 27
  1879. 16 dq "{17}"
  1880. 13
  1881. 8 26
  1882. 6 46
  1883. 6 19
  1884. 18 0
  1885. 11 00004296
  1886. 7 "{1}GetReverseName({31}{27}{31})]"
  1887. 8 6
  1888. 0 10 "{32}" "{6}"
  1889. 13
  1890. 8 9
  1891. 6 15
  1892. 5 1
  1893. 18 0
  1894. 11 00004248
  1895. 6 9
  1896. 8 10
  1897. 10 00004283
  1898. 0 16 "{10}" "{2}" "{9}"
  1899. 13
  1900. 8 10
  1901. 10 00004502
  1902. 7 "{1}GetField({31}{45}{31},{31}{26}{31},{31}{46}{31})]"
  1903. 8 6
  1904. 0 10 "{32}" "{6}"
  1905. 13
  1906. 8 9
  1907. 16 Tr1 "{9}"
  1908. 13
  1909. 8 48
  1910. 6 15
  1911. 5 1
  1912. 18 0
  1913. 11 00004466
  1914. 6 48
  1915. 8 10
  1916. 10 00004502
  1917. 0 16 "{10}" "{2}" "{48}"
  1918. 13
  1919. 8 10
  1920. 10 00003655
  1921. 6 10
  1922. 7 ""
  1923. 18 1
  1924. 11 00004576
  1925. 16 Btype "{10}"
  1926. 10 00004709
  1927. 0 6 "[46]"
  1928. 0 282
  1929. 13
  1930. 7 ""
  1931. 18 0
  1932. 11 00004709
  1933. 0 6 "[37]"
  1934. 0 282
  1935. 13
  1936. 7 ""
  1937. 18 0
  1938. 11 00004697
  1939. 0 6 "[46]"
  1940. 10 00004709
  1941. 0 6 "[39]"
  1942. 10 00001610
  1943. 2 103 1
  1944. 26 274 -4048
  1945. 2 527 1
  1946. 0 6 "[16420]"
  1947. 0 9 "{32}"
  1948. 6 0
  1949. 15
  1950. 9
  1951. 14 Tr1
  1952. 0 39 10
  1953. 13
  1954. 8 2
  1955. 7 ""
  1956. 8 3
  1957. 5 1
  1958. 8 4
  1959. 0 808 "{4}" "{0}" "{2}"
  1960. 13
  1961. 8 5
  1962. 6 5
  1963. 5 0
  1964. 18 1
  1965. 11 00000222
  1966. 6 5
  1967. 6 4
  1968. 3 1
  1969. 0 15 "{0}" "{4}" [X]
  1970. 13
  1971. 0 16 "{3}" [X]
  1972. 13
  1973. 8 3
  1974. 6 5
  1975. 5 1
  1976. 3 0
  1977. 8 4
  1978. 10 00000047
  1979. 10 00000418
  1980. 6 4
  1981. 5 1
  1982. 18 0
  1983. 11 00000331
  1984. 0 14 "{0}"
  1985. 13
  1986. 0 15 "{0}" "{4}" [X]
  1987. 13
  1988. 0 16 "{3}" [X]
  1989. 13
  1990. 8 3
  1991. 10 00000418
  1992. 0 14 "{0}"
  1993. 13
  1994. 6 4
  1995. 3 1
  1996. 5 1
  1997. 3 0
  1998. 0 15 "{0}" "{4}" [X]
  1999. 13
  2000. 0 16 "{3}" [X]
  2001. 13
  2002. 8 3
  2003. 6 3
  2004. 8 1
  2005. 6 1
  2006. 15
  2007. 9
  2008. 14 dq
  2009. 0 39 34
  2010. 13
  2011. 8 2
  2012. 7 "{2}{2}"
  2013. 8 3
  2014. 7 ""
  2015. 8 4
  2016. 0 14 "{0}"
  2017. 13
  2018. 8 5
  2019. 5 1
  2020. 8 6
  2021. 6 5
  2022. 6 6
  2023. 18 2
  2024. 12 00000159
  2025. 10 00000267
  2026. 5 1
  2027. 6 6
  2028. 3 0
  2029. 8 6
  2030. 10 00000084
  2031. 0 15 "{0}" "{6}" 1
  2032. 13
  2033. 8 7
  2034. 6 7
  2035. 6 2
  2036. 18 0
  2037. 11 00000227
  2038. 6 3
  2039. 8 7
  2040. 0 16 "{4}" "{7}"
  2041. 13
  2042. 8 4
  2043. 10 00000126
  2044. 6 4
  2045. 8 1
  2046. 6 1
  2047. 15
  2048. 9
  2049. 14 Trim
  2050. 0 14 "{0}"
  2051. 13
  2052. 8 2
  2053. 6 2
  2054. 5 0
  2055. 18 3
  2056. 11 00000155
  2057. 0 15 "{0}" "{2}" 1
  2058. 13
  2059. 7 " "
  2060. 18 1
  2061. 11 00000122
  2062. 10 00000155
  2063. 6 2
  2064. 5 1
  2065. 3 1
  2066. 8 2
  2067. 10 00000030
  2068. 6 2
  2069. 5 0
  2070. 18 0
  2071. 11 00000208
  2072. 7 ""
  2073. 8 1
  2074. 10 00000237
  2075. 0 15 "{0}" 1 "{2}"
  2076. 13
  2077. 8 1
  2078. 6 1
  2079. 15
  2080. 9
  2081. 14 db
  2082. 0 39 91
  2083. 13
  2084. 8 2
  2085. 7 "{2}{2}"
  2086. 8 3
  2087. 7 ""
  2088. 8 4
  2089. 0 14 "{0}"
  2090. 13
  2091. 8 5
  2092. 5 1
  2093. 8 6
  2094. 6 5
  2095. 6 6
  2096. 18 2
  2097. 12 00000159
  2098. 10 00000267
  2099. 5 1
  2100. 6 6
  2101. 3 0
  2102. 8 6
  2103. 10 00000084
  2104. 0 15 "{0}" "{6}" 1
  2105. 13
  2106. 8 7
  2107. 6 7
  2108. 6 2
  2109. 18 0
  2110. 11 00000227
  2111. 6 3
  2112. 8 7
  2113. 0 16 "{4}" "{7}"
  2114. 13
  2115. 8 4
  2116. 10 00000126
  2117. 6 4
  2118. 8 1
  2119. 6 1
  2120. 15
  2121. 9
  2122. 14 Btype
  2123. 16 db "{0}"
  2124. 13
  2125. 8 0
  2126. 0 14 "{0}"
  2127. 13
  2128. 8 2
  2129. 6 2
  2130. 5 400
  2131. 18 5
  2132. 11 00000108
  2133. 0 6 "{0}"
  2134. 10 00000250
  2135. 5 1
  2136. 8 3
  2137. 6 2
  2138. 6 3
  2139. 18 2
  2140. 12 00000195
  2141. 10 00000250
  2142. 5 400
  2143. 6 3
  2144. 3 0
  2145. 8 3
  2146. 10 00000118
  2147. 0 15 "{0}" "{3}" 400
  2148. 13
  2149. 8 4
  2150. 0 6 "{4}"
  2151. 10 00000160
  2152. 6 1
  2153. 15
  2154. 9
  2155. 00036277
  2156.