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