home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / BUILD.SMM < prev    next >
INI File  |  1993-06-25  |  48KB  |  2,968 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.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Automated utility useful in constructing calculation applications.
  19.     
  20.     
  21.     
  22.     
  23.     741032025
  24.     21
  25.     734822992
  26.     2156
  27.     13
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         2
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Body Single
  113.     3
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         280
  159.         1
  160.         2
  161.         .
  162.         ,
  163.         $
  164.     Body Single
  165.     0
  166.     0
  167. [tag]
  168.     Bullet
  169.     4
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         1
  178.         0
  179.         288
  180.         288
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         0
  205.         <*0>
  206.         360
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         2
  217.         .
  218.         ,
  219.         $
  220.     Bullet
  221.     0
  222.     0
  223. [tag]
  224.     Bullet 1
  225.     5
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         1
  234.         288
  235.         288
  236.         288
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*5>
  262.         0
  263.         1
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         .
  274.         ,
  275.         $
  276.     Bullet 1
  277.     0
  278.     0
  279. [tag]
  280.     Number List
  281.     6
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         360
  291.         360
  292.         360
  293.     [spc]
  294.         33
  295.         273
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         <*:>.
  318.         360
  319.         1
  320.         1
  321.         0
  322.         16
  323.         0
  324.         0
  325.     [nfmt]
  326.         272
  327.         1
  328.         2
  329.         .
  330.         ,
  331.         $
  332.     Number List
  333.     0
  334.     0
  335. [tag]
  336.     Subhead
  337.     7
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49155
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         33
  351.         273
  352.         1
  353.         72
  354.         72
  355.         1
  356.         100
  357.     [brk]
  358.         68
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         1
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         272
  383.         1
  384.         2
  385.         .
  386.         ,
  387.         $
  388.     Body Text
  389.     0
  390.     0
  391. [tag]
  392.     Title
  393.     8
  394.     [fnt]
  395.         Arial
  396.         360
  397.         0
  398.         16385
  399.     [algn]
  400.         4
  401.         1
  402.         0
  403.         0
  404.         0
  405.     [spc]
  406.         33
  407.         446
  408.         1
  409.         144
  410.         72
  411.         1
  412.         100
  413.     [brk]
  414.         16
  415.     [line]
  416.         8
  417.         0
  418.         1
  419.         0
  420.         1
  421.         1
  422.         1
  423.         10
  424.         10
  425.         1
  426.     [spec]
  427.         0
  428.         0
  429.         
  430.         0
  431.         1
  432.         1
  433.         0
  434.         0
  435.         0
  436.         0
  437.     [nfmt]
  438.         272
  439.         1
  440.         2
  441.         .
  442.         ,
  443.         $
  444.     Title
  445.     0
  446.     0
  447. [tag]
  448.     Header
  449.     9
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49152
  455.     [algn]
  456.         1
  457.         1
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         273
  464.         1
  465.         0
  466.         0
  467.         1
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         1
  475.         0
  476.         1
  477.         1
  478.         1
  479.         10
  480.         10
  481.         1
  482.     [spec]
  483.         0
  484.         0
  485.         
  486.         0
  487.         1
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         280
  495.         1
  496.         2
  497.         .
  498.         ,
  499.         $
  500.     Header
  501.     0
  502.     0
  503. [tag]
  504.     Footer
  505.     11
  506.     [fnt]
  507.         Times New Roman
  508.         240
  509.         0
  510.         49152
  511.     [algn]
  512.         1
  513.         1
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         273
  520.         1
  521.         0
  522.         0
  523.         1
  524.         100
  525.     [brk]
  526.         4
  527.     [line]
  528.         8
  529.         0
  530.         1
  531.         0
  532.         1
  533.         1
  534.         1
  535.         10
  536.         10
  537.         1
  538.     [spec]
  539.         0
  540.         0
  541.         
  542.         0
  543.         1
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         280
  551.         1
  552.         2
  553.         .
  554.         ,
  555.         $
  556.     Footer
  557.     0
  558.     0
  559. [lay]
  560.     Standard
  561.     516
  562.     [rght]
  563.         16833
  564.         11908
  565.         1
  566.         576
  567.         720
  568.         1
  569.         1080
  570.         576
  571.         0
  572.         1
  573.         0
  574.         1
  575.         0
  576.         2
  577.         1
  578.         576
  579.         11329
  580.         12
  581.         1
  582.         720
  583.         1
  584.         1440
  585.         1
  586.         2160
  587.         1
  588.         2880
  589.         1
  590.         3600
  591.         1
  592.         4320
  593.         1
  594.         5040
  595.         1
  596.         5760
  597.         1
  598.         6480
  599.         1
  600.         7200
  601.         1
  602.         7920
  603.         1
  604.         8640
  605.     [hrght]
  606.     [lyfrm]
  607.         1
  608.         11200
  609.         0
  610.         0
  611.         11908
  612.         1080
  613.         0
  614.         1
  615.         3
  616.         1 0 0 0 0 0 0
  617.         0
  618.         0
  619.         1
  620.     [frmlay]
  621.         1080
  622.         11908
  623.         1
  624.         1440
  625.         72
  626.         1
  627.         792
  628.         1440
  629.         0
  630.         1
  631.         0
  632.         1
  633.         1
  634.         0
  635.         1
  636.         1440
  637.         10465
  638.         2
  639.         2
  640.         4680
  641.         3
  642.         9360
  643.     [txt]
  644. >
  645.     [frght]
  646.     [lyfrm]
  647.         1
  648.         13248
  649.         0
  650.         16113
  651.         11908
  652.         16833
  653.         0
  654.         1
  655.         3
  656.         1 0 0 0 0 0 0
  657.         0
  658.         0
  659.         2
  660.     [frmlay]
  661.         16833
  662.         11908
  663.         1
  664.         1440
  665.         648
  666.         1
  667.         16185
  668.         1440
  669.         0
  670.         1
  671.         0
  672.         1
  673.         1
  674.         0
  675.         1
  676.         1440
  677.         10465
  678.         2
  679.         2
  680.         4680
  681.         3
  682.         9360
  683.     [txt]
  684. >
  685. [elay]
  686. [l1]
  687.     0
  688. [pg]
  689.     1
  690.     48 0 34 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
  691. [edoc]
  692. <:#284,10753>' Peyton McManus
  693.  
  694. <:#284,10753>' Lotus WPD
  695.  
  696. <:#284,10753>' this macro requires a file builder.sam to be present in the currenct macro dir
  697.  
  698. <:#284,10753>
  699.  
  700. @Subhead@<:#284,10753>' these are the text strings for the main dialog box
  701.  
  702. <:#284,10753>
  703.  
  704. <:#284,10753><:X3,-32768;Include "Amixlate.sam!build">Define    MainText    "There are three easy steps to creating a custom calculation application."
  705.  
  706. @Outline3@<:#284,10753>
  707.  
  708. @Outline3@<:#284,10753>Define    FirstStep    "You are on step one."
  709.  
  710. @Outline3@<:#284,10753>Define SecondStep    "You are on step two."
  711.  
  712. @Outline3@<:#284,10753>Define ThirdStep    " You are on step three."
  713.  
  714. @Outline3@<:#284,10753>
  715.  
  716. @Outline3@<:#284,10753>Define    DefineText    "(What it is called, how many variables, etc...)"
  717.  
  718. @Outline3@<:#284,10753>Define    DesignText    "(What are the variable names and formula)"
  719.  
  720. @Outline3@<:#284,10753>Define    RunText    "(Run the application)"
  721.  
  722. @Outline3@<:#284,10753>Define    SSheet        "_Default.sty"
  723.  
  724. @Outline3@<:#284,10753>Define    BuildMessage    "Please wait...Now building {Name}"
  725.  
  726. <:#284,10753>
  727.  
  728. @Outline3@<:#568,10753>Define    WelcomeText    "This is the example text that will be placed into the welcome box and will explain how the app works"
  729.  
  730. @Outline3@<:#284,10753>
  731.  
  732. @Outline3@<:#284,10753>' Defines for the desing dialog box
  733.  
  734. @Outline3@<:#568,10753>Define        Number1Text        "1.  Enter text to help your users to figure out how to fill in the dialog box. (80 char.)"
  735.  
  736. @Outline3@<:#284,10753>
  737.  
  738. @Outline3@<:#568,10753>Define        Number2Text        "2.  Enter the formula to calculate the answer.  For example, @AVG({{VALUE1};{{VALUE2};{{VALUE3})"
  739.  
  740. @Outline3@<:#284,10753>
  741.  
  742. @Outline3@<:#284,10753>Define        Number3Text        "3.  Enter real names for the values: (20 char)"
  743.  
  744. @Outline3@<:#284,10753>
  745.  
  746. @Outline3@<:#284,10753>
  747.  
  748. @Outline3@<:#284,10753>' Defines for the Define application Box
  749.  
  750. @Outline3@<:#284,10753>Define        Text1        "1.  Type in the name you want to appear at the top of the dialog box: (30 char.)"
  751.  
  752. @Outline3@<:#284,10753>Define        Text2        "2.  Name of the macro to create: "
  753.  
  754. @Outline3@<:#284,10753>Define        Text3        "3.  Number of variables: (1 - 6)"<:X~3,-32768;Include "Amixlate.sam!build">
  755.  
  756. <:#284,10753>
  757.  
  758. <:#284,10753>
  759.  
  760. <:#284,10753>
  761.  
  762. @Subhead@<:#284,10753>' Api Defines
  763.  
  764. <:#284,10753>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
  765.  
  766. <:#284,10753>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  767.  
  768. <:#284,10753>DEFINE GetWindowRect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  769.  
  770. <:#284,10753>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  771.  
  772. <:#284,10753>Define SetFocus() DllCall("user,SetFocus,HH",%1)
  773.  
  774. <:#284,10753>Define getsystemmetrics() dllcall("user,getsystemmetrics,HH", %1)
  775.  
  776. <:#284,10753>
  777.  
  778. <:#284,10753>
  779.  
  780. <:#284,10753>Define EM_LimitText 1045
  781.  
  782. <:#284,10753>
  783.  
  784. <:#284,10753>
  785.  
  786. <:#284,10753>Declare     FontDlg(Action, Hdlg, id)
  787.  
  788. <:#284,10753>Declare    InsertDefine(Item, Value)
  789.  
  790. <:#284,10753>Declare    DefineApp(AppName, NumberItems, MacroName, MacDesc)
  791.  
  792. <:#284,10753>Declare    Construct(Appname, NumberItems, Formula, HelpText, aValue)
  793.  
  794. <:#284,10753>Declare     Redraw(Hwnd, status)    ' 1 is no redraw 0 is repaint
  795.  
  796. <:#284,10753>Declare    StrPath(FileName)
  797.  
  798. <:#284,10753>Declare    SizeBox(hdlg, Number)
  799.  
  800. <:#284,10753>Declare FindAndReplace(Sting, FindWhat, ReplaceWith)
  801.  
  802. <:#284,10753>Declare CBDefineApp(Hdlg, id, Value)
  803.  
  804. <:#284,10753>Declare ManageList(Hdlg, id, section)
  805.  
  806. <:#284,10753>Declare RadioCall(Hdlg, id, value)
  807.  
  808. <:#284,10753>
  809.  
  810. <:#284,10753>
  811.  
  812. <:#284,10753>Declare ShowFunctions(Hdlg, id)
  813.  
  814. <:#284,10753>
  815.  
  816. <:#284,10753>
  817.  
  818. @Subhead@<:#284,10753>Function Main()
  819.  
  820. <:#284,10753>DefStr AppName, NumberItems, MacroName, MacDesc, Formula, HelpText, hWnd;
  821.  
  822. <:#284,10753>IgnoreKeyBoard(2)
  823.  
  824. <:#284,10753>Continue = True
  825.  
  826. <:#284,10753>Mac = GetRunningMacroFile$()
  827.  
  828. <:#284,10753>StepNumber = 1
  829.  
  830. <:#284,10753>Dim TextLabel(10)
  831.  
  832. <:#284,10753>AllocGlobalVar("StepNumber",1)
  833.  
  834. <:#284,10753>SetGlobalVar("StepNumber",1)
  835.  
  836. <:#284,10753>
  837.  
  838. <:#284,10753>
  839.  
  840. <:#284,10753>FontDlg(1,0,0)        ' Create a small font for the dialog boxes
  841.  
  842. <:#284,10753>
  843.  
  844. <:#284,10753>While Continue
  845.  
  846. <:#284,10753>FillEdit(1004, MainText)
  847.  
  848. <:#284,10753>FillEdit(1005,"Build1.bmt")
  849.  
  850. <:#284,10753>FillEdit(1006,"Build2.bmt")
  851.  
  852. <:#284,10753>FillEdit(1007,"Build3.bmt")
  853.  
  854. <:#284,10753>FillEdit(1000, DefineText)
  855.  
  856. <:#284,10753>FillEdit(1001, DesignText)
  857.  
  858. <:#284,10753>FillEdit(1002, RunText)
  859.  
  860. <:#284,10753>
  861.  
  862. <:#284,10753>
  863.  
  864. <:#284,10753>SetDlgCallBack(0,"{Mac}!InitMainBox")
  865.  
  866. @Outline3@<:#284,10753>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  867.  
  868. @Outline3@<:#284,10753>
  869.  
  870. <:#284,10753>Box = DialogBox(".","MainBox")
  871.  
  872. <:#284,10753>StepNumber = GetGlobalVar$("StepNumber")
  873.  
  874. <:#284,10753>If Box = 1
  875.  
  876. <:#284,10753>    If GetDialogField$(21)        ' Define the app
  877.  
  878. <:#284,10753>        If 0 = DefineApp(&AppName, &NumberItems, &MacroName, &MacDesc)
  879.  
  880. <:#284,10753>        If StepNumber = 1
  881.  
  882. <:#284,10753>            StepNumber = 2
  883.  
  884. <:#284,10753>        Endif
  885.  
  886. <:#284,10753>        Else
  887.  
  888. <:#284,10753>            'Cancelled the box
  889.  
  890. <:#284,10753>        Endif
  891.  
  892. <:#284,10753>
  893.  
  894. <:#284,10753>    Elseif GetDialogField$(22)    ' Design the ui
  895.  
  896. <:#284,10753>        If 0 = Construct(AppName, NumberItems, &Formula, &HelpText, &TextLabel)
  897.  
  898. <:#284,10753>        HourGlass(on)
  899.  
  900. <:#284,10753>        If New(SSheet  1 0  )
  901.  
  902. <:#284,10753>            Redraw(&hWnd, 1)    ' Turn painting off on window
  903.  
  904. <:#284,10753>            MacroPath = StrPath(Mac)
  905.  
  906. <+@><:#284,10753>            Name = "{MacroPath}{MacroName}.SMM"
  907.  
  908. <:#284,10753>            StatusBarMsg(BuildMessage)
  909.  
  910. <:#284,10753>            NumDec = 2
  911.  
  912. <:#284,10753>            DialogTitle = AppName
  913.  
  914. <:#284,10753>            InsertDefine("NumDec",2)
  915.  
  916. <:#284,10753>            InsertDefine("NumberItems",NumberItems)
  917.  
  918. <:#284,10753>            InsertDefine("DialogTitle",DialogTitle)
  919.  
  920. <:#284,10753>            InsertDefine("HelpText",HelpText)
  921.  
  922. <:#284,10753>            InsertDefine("Formula",Formula)
  923.  
  924. <:#284,10753>            For t = 1 to 10
  925.  
  926. <:#284,10753>                InsertDefine("Value{t}Text",TextLabel(t))
  927.  
  928. <:#284,10753>            Next
  929.  
  930. <:#284,10753>            FileOpen("{MacroPath}BUILDER.SAM"  9 ""   )
  931.  
  932. <:#284,10753>            If SaveAs(Name  32 "{HelpText}"  ""   )
  933.  
  934. <:#284,10753>                FileClose()
  935.  
  936. <:#284,10753>                StepNumber = 3
  937.  
  938. <:#284,10753>            Else
  939.  
  940. <:#284,10753>                StepNumber = 2
  941.  
  942. <:#284,10753>            Endif
  943.  
  944. <:#284,10753>            ReDraw(hWnd, 0)
  945.  
  946. <:#284,10753>            StatusBarMsg("")
  947.  
  948. <:#284,10753>            HourGlass(off)
  949.  
  950. <:#284,10753>        Endif
  951.  
  952. <:#284,10753>        Else
  953.  
  954. <:#284,10753>            ' Cancelled the construction part
  955.  
  956. <:#284,10753>        Endif
  957.  
  958. <:#284,10753>    Elseif GetDialogField$(23)    ' Run the app
  959.  
  960. <:#284,10753>        Calli Name()
  961.  
  962. <:#284,10753>        StepNumber = 3
  963.  
  964. <:#284,10753>    Endif
  965.  
  966. <:#284,10753>Else
  967.  
  968. <:#284,10753>    Continue = False
  969.  
  970. <:#284,10753>Endif
  971.  
  972. <:#284,10753>SetGlobalVar("StepNumber",StepNumber)
  973.  
  974. <:#284,10753>Wend
  975.  
  976. <:#284,10753>
  977.  
  978. <:#284,10753>FontDlg(4,0,0)        ' Free the small font and destroy the object
  979.  
  980. <:#284,10753>FreeGlobalVar("StepNumber")
  981.  
  982. <:#284,10753>
  983.  
  984. <:#284,10753>
  985.  
  986. <:#284,10753>End Function
  987.  
  988. <:#284,10753>
  989.  
  990. <:#284,10753>
  991.  
  992. @Subhead@<:#284,10753>Function InitMainBox(Hdlg, id, value)
  993.  
  994. <:#284,10753>IgnoreKeyboard(2)
  995.  
  996. <:#284,10753>HourGlass(on)
  997.  
  998. <:#284,10753>For t = 1000 to 1004
  999.  
  1000. <:#284,10753>    FontDlg(3, Hdlg, t)
  1001.  
  1002. <:#284,10753>Next
  1003.  
  1004. <:#284,10753>StepNumber = GetGlobalVar$("StepNumber")
  1005.  
  1006. <:#284,10753>Switch StepNumber
  1007.  
  1008. <:#284,10753>    Case 1
  1009.  
  1010. <:#284,10753>        StepText = ""
  1011.  
  1012. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 22), 0)
  1013.  
  1014. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 23),0)
  1015.  
  1016. <:#284,10753>
  1017.  
  1018. <:#284,10753>    Case 2
  1019.  
  1020. <:#284,10753>        StepText = SecondStep
  1021.  
  1022. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 22), 1)
  1023.  
  1024. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 23),0)
  1025.  
  1026. <:#284,10753>
  1027.  
  1028. <:#284,10753>
  1029.  
  1030. <:#284,10753>    Case 3
  1031.  
  1032. <:#284,10753>        StepText = ThirdStep
  1033.  
  1034. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 22), 1)
  1035.  
  1036. <:#284,10753>        EnableWindow(GetDlgItem(Hdlg, 23),1)
  1037.  
  1038. <:#284,10753>EndSwitch
  1039.  
  1040. <:#284,10753>SetDlgItemText(Hdlg, 1003, StepText)
  1041.  
  1042. <:#284,10753>SetDlgItemText(Hdlg, 20 + StepNumber, 1)
  1043.  
  1044. <:#284,10753>HourGlass(off)
  1045.  
  1046. <:#284,10753>End Function
  1047.  
  1048. <:#284,10753>
  1049.  
  1050. <:#284,10753>
  1051.  
  1052. <:#284,10753>
  1053.  
  1054. <:#284,10753>
  1055.  
  1056. @Subhead@<:#284,10753>Function DefineApp(AppName, NumberItems, MacroName, MacDesc)
  1057.  
  1058. <:#284,10753>IgnoreKeyBoard(2)
  1059.  
  1060. <:#284,10753>Mac = GetRunningMacroFile$()
  1061.  
  1062. <:#284,10753>
  1063.  
  1064. <:#284,10753>
  1065.  
  1066. <:#284,10753>FillEdit(1005, WelcomeText)
  1067.  
  1068. <:#284,10753>FillEdit(1002, Text1)
  1069.  
  1070. <:#284,10753>FillEdit(1003, Text2)
  1071.  
  1072. <:#284,10753>FillEdit(1004, Text3)
  1073.  
  1074. <:#284,10753>
  1075.  
  1076. <:#284,10753>
  1077.  
  1078. <:#284,10753>FillEdit(8000, AppName)
  1079.  
  1080. <:#284,10753>FillEdit(8001, NumberItems)
  1081.  
  1082. <:#284,10753>FillEdit(8002, MacroName)
  1083.  
  1084. <:#284,10753>FillEdit(8003, MacDesc)
  1085.  
  1086. <:#284,10753>SetDlgCallBack(8002,"{Mac}!CBDefineApp")
  1087.  
  1088. <:#284,10753>SetDlgCallBack(8001,"{Mac}!CBDefineApp")
  1089.  
  1090. <:#284,10753>
  1091.  
  1092. <:#284,10753>SetDlgCallBack(0,"{Mac}!InitDefineApp")
  1093.  
  1094. @Outline3@<:#284,10753>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  1095.  
  1096. @Outline3@<:#284,10753>
  1097.  
  1098. <:#284,10753>Box = DialogBox(".","DefineApp")
  1099.  
  1100. <:#284,10753>If Box <<<;> 1
  1101.  
  1102. <:#284,10753>    Return -1
  1103.  
  1104. <:#284,10753>Endif
  1105.  
  1106. <:#284,10753>*MacroName = StrField$(GetDialogField$(8002),1,".");
  1107.  
  1108. <:#284,10753>FindAndReplace(&MacroName," ","_")    'replace space with underbar
  1109.  
  1110. <:#284,10753>*AppName = GetDialogField$(8000);
  1111.  
  1112. <:#284,10753>*NumberItems = GetDialogField$(8001);
  1113.  
  1114. <:#284,10753>*MacDesc = GetDialogField$(8003);
  1115.  
  1116. <:#284,10753>End Function
  1117.  
  1118. <:#284,10753>
  1119.  
  1120. @Subhead@<:#284,10753>Function CBDefineApp(Hdlg, id, value)
  1121.  
  1122. <:#284,10753>IgnoreKeyBoard(2)
  1123.  
  1124. <:#284,10753>MacName = GetDlgItemText(Hdlg, 8002)
  1125.  
  1126. <:#284,10753>Items = GetDlgItemText(Hdlg, 8001)
  1127.  
  1128. <:#284,10753>If Items <;>6
  1129.  
  1130. <:#284,10753>    SetDlgItemText(Hdlg, 8001, 6)
  1131.  
  1132. <:#284,10753>Endif
  1133.  
  1134. <:#284,10753>If MacName != "" and Items !="" 
  1135.  
  1136. <:#284,10753>    EnableWindow(GetDlgItem(Hdlg, 1),1)
  1137.  
  1138. <:#284,10753>Else
  1139.  
  1140. <:#284,10753>    EnableWindow(GetDlgItem(Hdlg, 1),0)
  1141.  
  1142. <:#284,10753>Endif
  1143.  
  1144. <:#284,10753>
  1145.  
  1146. <:#284,10753>End Function
  1147.  
  1148. <:#284,10753>
  1149.  
  1150. @Subhead@<:#284,10753>Function InitDefineApp(Hdlg, id, value)
  1151.  
  1152. <:#284,10753>IgnoreKeyboard(2)
  1153.  
  1154. <:#284,10753>HourGlass(on)
  1155.  
  1156. <:#284,10753>For t = 1000 to 1004
  1157.  
  1158. <:#284,10753>    FontDlg(3, Hdlg, t)
  1159.  
  1160. <:#284,10753>Next
  1161.  
  1162. <:#284,10753>FontDlg(3, Hdlg, 8000)
  1163.  
  1164. <:#284,10753>FontDlg(3, Hdlg, 8001)
  1165.  
  1166. <:#284,10753>FontDlg(3, Hdlg, 8002)
  1167.  
  1168. <:#284,10753>AppSendMessage(GetDlgItem(Hdlg, 8000),EM_LimitText, 30,"")
  1169.  
  1170. <:#284,10753>AppSendMessage(GetdlgItem(Hdlg, 8002),EM_LimitText, 8,"")
  1171.  
  1172. <:#284,10753>AppSendMessage(GetdlgItem(Hdlg, 8001),EM_LimitText, 1,"")
  1173.  
  1174. <:#284,10753>SetFocus(GetDlgItem(Hdlg, 8000))
  1175.  
  1176. <:#284,10753>CBDefineApp(Hdlg, id, value)
  1177.  
  1178. <:#284,10753>HourGlass(off)
  1179.  
  1180. <:#284,10753>End Function
  1181.  
  1182. <:#284,10753>
  1183.  
  1184. <:#284,10753>
  1185.  
  1186. <:#284,10753>
  1187.  
  1188. <:#284,10753>
  1189.  
  1190. @Subhead@<:#284,10753>Function Construct(AppName, NumberItems, Formula, HelpText, ValueText)
  1191.  
  1192. <:#284,10753>IgnoreKeyBoard(2)
  1193.  
  1194. <:#284,10753>Mac = GetRunningMacroFile$()
  1195.  
  1196. <:#284,10753>AllocglobalVar("NumberItems",1)
  1197.  
  1198. <:#284,10753>SetglobalVar("NumberItems",NumberItems)
  1199.  
  1200. <:#284,10753>
  1201.  
  1202. <:#284,10753>FillEdit(1020, Number1Text)
  1203.  
  1204. <:#284,10753>FillEdit(1021, Number2Text)
  1205.  
  1206. <:#284,10753>FillEdit(1022, Number3Text)
  1207.  
  1208. <:#284,10753>
  1209.  
  1210. <:#284,10753>
  1211.  
  1212. <:#284,10753>FillEdit(8060, Formula)
  1213.  
  1214. <:#284,10753>FillEdit(8050, HelpText)
  1215.  
  1216. <:#284,10753>For number = 1 to NumberItems
  1217.  
  1218. <:#284,10753>    FillEdit(8000 + Number, *ValueText(Number));
  1219.  
  1220. <:#284,10753>Next
  1221.  
  1222. <:#284,10753>
  1223.  
  1224. <:#284,10753>SetDlgCallBack(0,"{Mac}!InitConstruct")
  1225.  
  1226. @Outline3@<:#284,10753>SetDlgCallBack(22,"{Mac}!FunButton")
  1227.  
  1228. @Outline3@<:#284,10753>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  1229.  
  1230. @Outline3@<:#284,10753>
  1231.  
  1232. <:#284,10753>Box = DialogBox(".","Construct")
  1233.  
  1234. <:#284,10753>FreeGlobalVar("NumberItems")
  1235.  
  1236. <:#284,10753>If Box<<<;>1
  1237.  
  1238. <:#284,10753>    Return -1
  1239.  
  1240. <:#284,10753>Endif
  1241.  
  1242. <:#284,10753>*Formula = GetDialogField$(8060);
  1243.  
  1244. <:#284,10753>FindAndReplace(&Formula," ","")        ' remove all spaces
  1245.  
  1246. <:#284,10753>FindAndReplace(&Formula,Chr$(34),"")    ' remove quotes
  1247.  
  1248. <:#284,10753>*HelpText = GetdialogField$(8050);
  1249.  
  1250. <:#284,10753>For t = 1 to NumberItems;
  1251.  
  1252. <:#284,10753>    *ValueText(t) = GetDialogField$(8000 + t)
  1253.  
  1254. <:#284,10753>Next
  1255.  
  1256. <:#284,10753>
  1257.  
  1258. <:#284,10753>End Function
  1259.  
  1260. <:#284,10753>
  1261.  
  1262. <:#284,10753>
  1263.  
  1264. @Subhead@<:#284,10753>Function InitConstruct(Hdlg, id, value)
  1265.  
  1266. <:#284,10753>IgnoreKeyBoard(2)
  1267.  
  1268. <:#284,10753>HourGlass(on)
  1269.  
  1270. <:#284,10753>NumberItems = GetGlobalVar$("NumberItems")
  1271.  
  1272. <:#284,10753>
  1273.  
  1274. <:#284,10753>
  1275.  
  1276. <:#284,10753>For Id = 1 to 9
  1277.  
  1278. <:#284,10753>    FontDlg(3, Hdlg, Id + 1000)
  1279.  
  1280. <:#284,10753>    FontDlg(3, Hdlg, id + 8000)
  1281.  
  1282. <:#284,10753>    AppSendMessage(GetDlgItem(Hdlg, id + 8000),Em_LimitText, 20, "")
  1283.  
  1284. <:#284,10753>    If Id <;> NumberItems
  1285.  
  1286. <:#284,10753>        ShowWindow(GetDlgItem(Hdlg, id + 1000), 0)
  1287.  
  1288. <:#284,10753>        ShowWindow(GetDlgItem(Hdlg, id + 8000), 0)
  1289.  
  1290. <:#284,10753>    Endif
  1291.  
  1292. <:#284,10753>Next
  1293.  
  1294. <:#284,10753>FontDlg(3, Hdlg, 1020)
  1295.  
  1296. <:#284,10753>FontDlg(3, Hdlg, 1021)
  1297.  
  1298. <:#284,10753>FontDlg(3, Hdlg, 1022)
  1299.  
  1300. <:#284,10753>FontDlg(3, Hdlg, 8050)
  1301.  
  1302. <:#284,10753>FontDlg(3, Hdlg, 8060)
  1303.  
  1304. <:#284,10753>SetFocus(GetDlgItem(Hdlg, 8050))
  1305.  
  1306. <:#284,10753>AppSendMessage(GetDlgItem(Hdlg, 8050),Em_LimitText,80,"")
  1307.  
  1308. <:#284,10753>SizeBox(hdlg, NumberItems)
  1309.  
  1310. <:#284,10753>HourGlass(off)
  1311.  
  1312. <:#284,10753>End Function
  1313.  
  1314. <:#284,10753>
  1315.  
  1316. <:#284,10753>
  1317.  
  1318. @Subhead@<:#284,10753>Function SizeBox(Hdlg, NumberEditControls)
  1319.  
  1320. <:#284,10753>Define    Repaint 1
  1321.  
  1322. <:#284,10753>IgnoreKeyBoard(2)
  1323.  
  1324. <:#284,10753>Stat = GetSystemMetrics(4)
  1325.  
  1326. <:#284,10753>Dim Rect(4)
  1327.  
  1328. <:#284,10753>GetWindowRect(Hdlg, &Rect)
  1329.  
  1330. <:#284,10753>DeltaX = Rect(3) - Rect(1);
  1331.  
  1332. <:#284,10753>If Stat = 20
  1333.  
  1334. <:#284,10753>    DeltaY = (22 * NumberEditControls) + 200;
  1335.  
  1336. <:#284,10753>Else
  1337.  
  1338. <:#284,10753>    DeltaY = (26 * NumberEditControls) + 250;
  1339.  
  1340. <:#284,10753>Endif
  1341.  
  1342. <:#284,10753>MoveWindow(Hdlg, Rect(1), Rect(2), DeltaX, DeltaY, Repaint)
  1343.  
  1344. <:#284,10753>End Function
  1345.  
  1346. <:#284,10753>
  1347.  
  1348. <:#284,10753>
  1349.  
  1350. @Subhead@<:#284,10753>function DisplayHelp()
  1351.  
  1352. @Outline2@<:#284,10753>' two defines needed for help.  The help name and panel number are defined above
  1353.  
  1354. @Outline2@<:#284,10753>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1355.  
  1356. @Outline2@<:#284,10753>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1357.  
  1358. @Outline2@<:#284,10753>prohWnd = FindWindowa("AmiProWndA", 0)
  1359.  
  1360. @Outline2@<:#284,10753>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1361.  
  1362. @Outline2@<:#284,10753>PanelNum= 105 
  1363.  
  1364. @Outline2@<:#284,10753>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1365.  
  1366. @Outline2@<:#284,10753>end function
  1367.  
  1368. @Subhead@<:#284,10753>
  1369.  
  1370. <:#284,10753>
  1371.  
  1372. @Subhead@<:#284,10753>Function FunButton(Hdlg, id, value)
  1373.  
  1374. <:#284,10753>ShowFunctions(Hdlg, 8060)
  1375.  
  1376. <:#284,10753>End Function
  1377.  
  1378. <:#284,10753>
  1379.  
  1380. <:#284,10753>
  1381.  
  1382. <:#284,10753>
  1383.  
  1384. <:#284,10753>
  1385.  
  1386. <:#284,10753>
  1387.  
  1388. <:#284,10753>
  1389.  
  1390. @Subhead@<:#284,10753>Function FindAndReplace(String, Findwhat, Replacewith)
  1391.  
  1392. <:#284,10753>DefStr Location;
  1393.  
  1394. <:#284,10753>OffSet = 0
  1395.  
  1396. <:#284,10753>While 0 != Assign(&Location, Instr(OffSet, String, FindWhat))
  1397.  
  1398. <:#284,10753>    BeforeLocation = Left$(String, Location - 1)
  1399.  
  1400. <:#284,10753>    AfterLocation = Right$(String, Len(String) - Location);
  1401.  
  1402. <:#284,10753>    *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)
  1403.  
  1404. <:#284,10753>Wend
  1405.  
  1406. <:#284,10753>End Function
  1407.  
  1408. <:#284,10753>
  1409.  
  1410. <:#284,10753>
  1411.  
  1412. <:#284,10753>
  1413.  
  1414. <:#284,10753>
  1415.  
  1416. @Subhead@<:#284,10753>Function Redraw(Hwnd, Param)
  1417.  
  1418. @Outline2@<:#568,10753>Define SendMessageDM(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  1419.  
  1420. @Outline2@<:#284,10753>Define InvalidateRectDM(hwnd, stuff, H) DllCall("user,InvalidateRect,HHFH", %1, %2, %3)
  1421.  
  1422. <:#284,10753>DEFINE GetClientRectDM()          DLLCALL("User,GetClientRect,HHN",%1,%2)
  1423.  
  1424. @Outline2@<:#284,10753>define WM_SETREDRAWDM    0x000B
  1425.  
  1426. <:#284,10753>Define        GetActiveTextWinDM()        GetInfo(267)
  1427.  
  1428. <:#284,10753>
  1429.  
  1430. <:#284,10753>IgnoreKeyBoard(2)
  1431.  
  1432. @Outline2@<:#284,10753>
  1433.  
  1434. @Outline2@<:#284,10753>Dim A(4)
  1435.  
  1436. @Outline2@<:#284,10753>switch Param
  1437.  
  1438. @Outline2@<:#284,10753>    Case 1;
  1439.  
  1440. @Outline2@<:#284,10753>        *hWnd = GetActiveTextWinDM()
  1441.  
  1442. @Outline2@<:#284,10753>        SendMessageDM(hWnd, WM_SETREDRAWDM, 0, "")
  1443.  
  1444. @Outline2@<:#284,10753>        Return hWnd
  1445.  
  1446. @Outline2@<:#284,10753>    Case 0
  1447.  
  1448. @Outline2@<:#284,10753>        SendMessageDM(hWnd, WM_SETREDRAWDM,1,"")
  1449.  
  1450. @Outline2@<:#284,10753>        GetClientRectDM(hWnd, &A)
  1451.  
  1452. @Outline2@<:#284,10753>        InvalidateRectDM(hWnd, &A,1)
  1453.  
  1454. @Outline2@<:#284,10753>    Default
  1455.  
  1456. @Outline2@<:#284,10753>        ' Didn't understand
  1457.  
  1458. @Outline2@<:#284,10753>EndSwitch
  1459.  
  1460. @Outline2@<:#284,10753>End Function
  1461.  
  1462. <:#284,10753>
  1463.  
  1464. <:#284,10753>
  1465.  
  1466. <:#284,10753>
  1467.  
  1468. <:#284,10753>
  1469.  
  1470. @Subhead@<:#284,10753>function strpath(filename)
  1471.  
  1472. <:#284,10753>defstr char;
  1473.  
  1474. <:#284,10753>Length = len(FileName)
  1475.  
  1476. <:#284,10753>WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))
  1477.  
  1478. <:#284,10753>    Length = Length - 1
  1479.  
  1480. <:#284,10753>WEND
  1481.  
  1482. <:#284,10753>InFileName = Right$(FileName, (len(FileName) - Length))
  1483.  
  1484. <:#284,10753>InDir = Left$(FileName, Length - 1) 
  1485.  
  1486. <:#284,10753>if right$(indir, 1) <<<;> "\"
  1487.  
  1488. <:#284,10753>    indir = strcat$(indir, "\")
  1489.  
  1490. <:#284,10753>endif
  1491.  
  1492. <:#284,10753>return indir
  1493.  
  1494. <:#284,10753>end function
  1495.  
  1496. <:#284,10753>
  1497.  
  1498. <:#284,10753>
  1499.  
  1500. @Subhead@<:#284,10753>Function InsertDefine(Item, Value)
  1501.  
  1502. <:#284,10753>Quote = Chr$(34)
  1503.  
  1504. <:#284,10753>Type ("Define<[>Tab]{Item}<[>Tab]{Quote}{Value}{Quote}<[>Enter]")
  1505.  
  1506. <:#284,10753>End Function
  1507.  
  1508. <:#284,10753>
  1509.  
  1510. <:#284,10753>
  1511.  
  1512. @Subhead@<:#284,10753>Function FontDlg(Action, Hdlg, id)
  1513.  
  1514. <:#284,10753>' 1    Create a font and allocvar
  1515.  
  1516. <:#284,10753>' 2    Return the handle of the create font 
  1517.  
  1518. <:#284,10753>' 3    Set the id specified to the font
  1519.  
  1520. <:#284,10753>' 4    Freeglobalvar and delete created object
  1521.  
  1522. <:#284,10753>
  1523.  
  1524. @Outline2@<:#568,10753>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1525.  
  1526. @Outline2@<:#284,10753>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1527.  
  1528. @Outline2@<:#568,10753>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1529.  
  1530. @Outline2@<:#284,10753>
  1531.  
  1532. @Outline2@<:#284,10753>
  1533.  
  1534. <:#284,10753>Switch Action
  1535.  
  1536. <:#284,10753>    Case 1    ' Create the font and store it
  1537.  
  1538. @Outline2@<:#284,10753>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1539.  
  1540. <:#284,10753>        AllocGlobalVar("FontHandle",1)
  1541.  
  1542. <:#284,10753>        If Font
  1543.  
  1544. <:#284,10753>            SetGlobalVar("FontHandle",Font)
  1545.  
  1546. <:#284,10753>            Return Font
  1547.  
  1548. <:#284,10753>        Else
  1549.  
  1550. <:#284,10753>            Return 0;    ' no font
  1551.  
  1552. <:#284,10753>        Endif
  1553.  
  1554. <:#284,10753>        Break;
  1555.  
  1556. <:#284,10753>    Case 2    ' Return the handle to the font
  1557.  
  1558. <:#284,10753>        Handle = GetGlobalVar$("FontHandle")
  1559.  
  1560. <:#284,10753>        If Handle 
  1561.  
  1562. <:#284,10753>            Return Handle
  1563.  
  1564. <:#284,10753>        Else
  1565.  
  1566. <:#284,10753>            Return 0
  1567.  
  1568. <:#284,10753>        Endif
  1569.  
  1570. <:#284,10753>
  1571.  
  1572. <:#284,10753>    Case 3    ' Set the id to the font
  1573.  
  1574. <:#284,10753>        Handle = GetGlobalVar$("FontHandle")
  1575.  
  1576. <:#284,10753>        If Handle 
  1577.  
  1578. <:#284,10753>            IdControl = GetDlgITem(Hdlg, id)
  1579.  
  1580. <:#284,10753>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1581.  
  1582. <:#284,10753>            Return 1
  1583.  
  1584. <:#284,10753>        Else
  1585.  
  1586. <:#284,10753>            Return 0
  1587.  
  1588. <:#284,10753>        Endif
  1589.  
  1590. <:#284,10753>        Break;        
  1591.  
  1592. <:#284,10753>        
  1593.  
  1594. <:#284,10753>    Case 4    ' Delete the font and clear the var
  1595.  
  1596. <:#284,10753>        Handle = GetGlobalVar$("FontHandle")
  1597.  
  1598. <:#284,10753>        If Handle
  1599.  
  1600. <:#284,10753>            DeleteObjectDLG(Handle)
  1601.  
  1602. <:#284,10753>            Stat = 1    
  1603.  
  1604. <:#284,10753>        Else
  1605.  
  1606. <:#284,10753>            Stat = 0
  1607.  
  1608. <:#284,10753>        Endif
  1609.  
  1610. <:#284,10753>        FreeGlobalVar("FontHandle")
  1611.  
  1612. <:#284,10753>        Return Stat        
  1613.  
  1614. <:#284,10753>    Default
  1615.  
  1616. <:#284,10753>EndSwitch    
  1617.  
  1618. <:#284,10753>End Function
  1619.  
  1620. @Subhead@<:#284,10753>
  1621.  
  1622. <:#284,10753>
  1623.  
  1624. @Subhead@<:#284,10753>Function ShowFunctions(Hdlg, Id)
  1625.  
  1626. <:#284,10753>Define    EnableWindowIns()    DllCall("User,EnableWindow,AHA",%1,%2)
  1627.  
  1628. <:#284,10753>Define SetFocusIns() DllCall("user,SetFocus,HH",%1)
  1629.  
  1630. <:#284,10753>Define        LB_RESETCONTENT        0x405
  1631.  
  1632. <:#284,10753>Define        ExID        8010
  1633.  
  1634. <:#284,10753>Define        DescID        1001
  1635.  
  1636. <:#284,10753>Define        FinancialRadio    20
  1637.  
  1638. <:#284,10753>Define        StatRadio    21
  1639.  
  1640. <:#284,10753>Define        MathRadio    22
  1641.  
  1642. <:#284,10753>Define        LogicRadio    23
  1643.  
  1644. <:#284,10753>Define        FinanSect    "Financial"
  1645.  
  1646. <:#284,10753>Define        StatSect    "Statistical"
  1647.  
  1648. <:#284,10753>Define        MathSect    "Mathematical"
  1649.  
  1650. <:#284,10753>Define        LogicSect    "Logical"
  1651.  
  1652. <:#284,10753>
  1653.  
  1654. <:#284,10753>
  1655.  
  1656. <:#284,10753>Define        IniName        "AmiCalc.ini"
  1657.  
  1658. <:#284,10753>Define        Delimiter    "~"
  1659.  
  1660. <:#284,10753>
  1661.  
  1662. <:#284,10753>
  1663.  
  1664. <:#284,10753>EnableWindowIns(Hdlg,0)
  1665.  
  1666. <:#284,10753>Mac = GetRunningMacroFile$()
  1667.  
  1668. <:#284,10753>SetDlgCallBack(FinancialRadio,"{Mac}!RadioCall")
  1669.  
  1670. <:#284,10753>SetDlgCallBack(StatRadio,"{Mac}!RadioCall")
  1671.  
  1672. <:#284,10753>SetDlgCallBack(MathRadio,"{Mac}!RadioCall")
  1673.  
  1674. <:#284,10753>SetDlgCallBack(LogicRadio,"{Mac}!RadioCall")
  1675.  
  1676. <:#284,10753>SetDlgCallBack(0,"{Mac}!InitCall")
  1677.  
  1678. <:#284,10753>SetDlgCallBack(9000,"{Mac}!RadioCall")
  1679.  
  1680. @Outline3@<:#284,10753>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  1681.  
  1682. <:#284,10753>FillEdit(20,1)
  1683.  
  1684. <:#284,10753>Box = DialogBox(".","More")
  1685.  
  1686. <:#284,10753>If Box = 1
  1687.  
  1688. <:#284,10753>    ' need to paste to the edit box
  1689.  
  1690. <:#284,10753>    Text = GetDlgItemText(Hdlg, Id)
  1691.  
  1692. <:#284,10753>    Example = GetDialogField$(ExID)
  1693.  
  1694. <:#284,10753>    NewText = StrCat$(Text, Example)
  1695.  
  1696. <:#284,10753>    SetDlgItemText(Hdlg, Id, NewText)
  1697.  
  1698. <:#284,10753>Endif
  1699.  
  1700. <:#284,10753>EnableWindowIns(Hdlg,1)
  1701.  
  1702. <:#284,10753>SetFocusIns(GetDlgItem(Hdlg, Id))
  1703.  
  1704. <:#284,10753>End Function
  1705.  
  1706. <:#284,10753>
  1707.  
  1708. <:#284,10753>
  1709.  
  1710. @Subhead@<:#284,10753>Function InitCall(Hdlg, id, value)
  1711.  
  1712. <:#284,10753>IgnoreKeyBoard(2)
  1713.  
  1714. <:#284,10753>
  1715.  
  1716. <:#284,10753>FontDlg(3,Hdlg, DescID)
  1717.  
  1718. <:#284,10753>FontDlg(3, Hdlg, ExID)
  1719.  
  1720. <:#284,10753>
  1721.  
  1722. <:#284,10753>
  1723.  
  1724. <:#284,10753>ManageList(Hdlg, 9000, FinanSect)
  1725.  
  1726. <:#284,10753>Key= GetDlgItemText(Hdlg, 9000)
  1727.  
  1728. <:#284,10753>FullText  = GetProfileString$(FinanSect,Key,IniName)
  1729.  
  1730. <:#284,10753>Example = StrField$(FullText, 2, Delimiter)
  1731.  
  1732. <:#284,10753>Descx = StrField$(FullText, 1, Delimiter)
  1733.  
  1734. <:#284,10753>SetDlgITemText(Hdlg, ExID,Example)
  1735.  
  1736. <:#284,10753>SetDlgItemText(hdlg, DescID, Descx)
  1737.  
  1738. <:#284,10753>End Function
  1739.  
  1740. <:#284,10753>
  1741.  
  1742. <:#284,10753>
  1743.  
  1744. @Subhead@<:#284,10753>Function RadioCall(hdlg, id, value)
  1745.  
  1746. <:#284,10753>IgnoreKeyBoard(2)
  1747.  
  1748. <:#284,10753>If GetDlgItemText(Hdlg, FinancialRadio)
  1749.  
  1750. <:#284,10753>    Section = FinanSect
  1751.  
  1752. <:#284,10753>ElseIf GetDlgItemText(Hdlg, MathRadio)
  1753.  
  1754. <:#284,10753>    Section = MathSect
  1755.  
  1756. <:#284,10753>ElseIf GetDlgITemText(hdlg, StatRadio)
  1757.  
  1758. <:#284,10753>    Section = StatSect
  1759.  
  1760. <:#284,10753>ElseIf GetDlgItemText(hdlg, LogicRadio)
  1761.  
  1762. <:#284,10753>    Section = LogicSect
  1763.  
  1764. <:#284,10753>Endif
  1765.  
  1766. <:#284,10753>
  1767.  
  1768. <:#284,10753>Switch Id
  1769.  
  1770. <:#284,10753>    Case 9000
  1771.  
  1772. <:#284,10753>        
  1773.  
  1774. <:#284,10753>        ' this is for the list box
  1775.  
  1776. <:#284,10753>        Key= GetDlgItemText(Hdlg, 9000)
  1777.  
  1778. <:#284,10753>        FullText  = GetProfileString$(Section,Key,IniName)
  1779.  
  1780. <:#284,10753>        Example = StrField$(FullText, 2, Delimiter)
  1781.  
  1782. <:#284,10753>        Descx = StrField$(FullText, 1, Delimiter)
  1783.  
  1784. <:#284,10753>        SetDlgITemText(Hdlg, ExID,Example)
  1785.  
  1786. <:#284,10753>        SetDlgItemText(hdlg, DescID, Descx)
  1787.  
  1788. <:#284,10753>        Break;
  1789.  
  1790. <:#284,10753>
  1791.  
  1792. <:#284,10753>    Default
  1793.  
  1794. <:#284,10753>        ' this will be for any radio button
  1795.  
  1796. <:#284,10753>        ManageList(Hdlg, 9000, Section)
  1797.  
  1798. <:#284,10753>        Key= GetDlgItemText(Hdlg, 9000)
  1799.  
  1800. <:#284,10753>        FullText  = GetProfileString$(Section,Key,IniName)
  1801.  
  1802. <:#284,10753>        Example = StrField$(FullText, 2, Delimiter)
  1803.  
  1804. <:#284,10753>        Descx = StrField$(FullText, 1, Delimiter)
  1805.  
  1806. <:#284,10753>        SetDlgITemText(Hdlg, ExID,Example)
  1807.  
  1808. <:#284,10753>        SetDlgItemText(hdlg, DescID, Descx)
  1809.  
  1810. <:#284,10753>        Break;
  1811.  
  1812. <:#284,10753>EndSwitch
  1813.  
  1814. <:#284,10753>End Function
  1815.  
  1816. <:#284,10753>
  1817.  
  1818. <:#284,10753>
  1819.  
  1820. @Subhead@<:#284,10753>Function ManageList(Hdlg, id, Section)
  1821.  
  1822. <:#284,10753>DefStr KeyName;
  1823.  
  1824. <:#284,10753>AppSendMessage(GetDlgItem(Hdlg, 9000),LB_RESETCONTENT,0,0)
  1825.  
  1826. <:#284,10753>AllKeys = GetProfileString$(Section,0,IniName)
  1827.  
  1828. <:#284,10753>Field = 1
  1829.  
  1830. <:#284,10753>While -1 != Assign(&KeyName, StrField$(AllKeys, Field, "~"))
  1831.  
  1832. <:#284,10753>    If KeyName <;>""
  1833.  
  1834. <:#284,10753>        SetDlgItemText(Hdlg, 9000, KeyName)
  1835.  
  1836. <:#284,10753>    Endif
  1837.  
  1838. <:#284,10753>    Field = Field + 1
  1839.  
  1840. <:#284,10753>Wend
  1841.  
  1842. <:#284,10753>End function
  1843.  
  1844. <:#284,10753>
  1845.  
  1846. <:#284,10753>
  1847.  
  1848. <:#284,10753>
  1849.  
  1850. <:#284,10753>
  1851.  
  1852. <:#284,10753>DIALOG    More
  1853.  
  1854. <:#284,10753>-2134376448    13    61    28    187    118    ""    "AmiDialog"    "More @Functions"
  1855.  
  1856. <:#284,10753>FONT    8    "Helv"
  1857.  
  1858. <:#284,10753>7    12    50    11    20    1342242825    "button"    "&Financial"    0 
  1859.  
  1860. <:#284,10753>7    24    50    11    21    1342242825    "button"    "&Statistical"    0 
  1861.  
  1862. <:#284,10753>7    35    54    11    22    1342242825    "button"    "&Mathematical"    0 
  1863.  
  1864. <:#284,10753>7    46    50    11    23    1342242825    "button"    "&Logical"    0 
  1865.  
  1866. <:#284,10753>79    15    58    40    9000    1352728579    "listbox"    ""    0 
  1867.  
  1868. <:#284,10753>7    57    176    24    30    1342308359    "button"    "Example"    0 
  1869.  
  1870. <:#284,10753>7    83    176    32    31    1342308359    "button"    "Description"    0 
  1871.  
  1872. <:#284,10753>13    68    148    10    8010    1342177280    "static"    "text"    0 
  1873.  
  1874. <:#284,10753>13    93    158    20    1001    1342177280    "static"    "text"    0 
  1875.  
  1876. <:#284,10753>4    3    44    10    1000    1342177280    "static"    "Categories:"    0 
  1877.  
  1878. <:#284,10753>78    3    40    10    1002    1342177280    "static"    "@Functions:"    0 
  1879.  
  1880. <:#284,10753>143    3    40    14    1    1342373889    "button"    "Insert"    0 
  1881.  
  1882. <:#284,10753>143    19    40    14    2    1342373888    "button"    "Cancel"    0 
  1883.  
  1884. <:#284,10753>END DIALOG
  1885.  
  1886. <:#284,10753>
  1887.  
  1888. <:#284,10753>
  1889.  
  1890. <:#284,10753>
  1891.  
  1892. <:#284,10753>
  1893.  
  1894. <:#284,10753>
  1895.  
  1896. <:#284,10753>
  1897.  
  1898. <:#284,10753>
  1899.  
  1900. <:#284,10753>DIALOG    DefineApp
  1901.  
  1902. <:#284,10753>-2134376448    8    60    47    183    67    ""    "AmiDialog"    "Define Application"
  1903.  
  1904. <:#284,10753>FONT    8    "Helv"
  1905.  
  1906. <:#284,10753>139    3    40    14    1    1342373889    "button"    "OK"    0 
  1907.  
  1908. <:#284,10753>139    19    40    14    2    1342373888    "button"    "Cancel"    0 
  1909.  
  1910. <:#284,10753>11    23    119    12    8000    1350631552    "edit"    ""    0 
  1911.  
  1912. <:#284,10753>93    38    37    12    8002    1350631552    "edit"    ""    0 
  1913.  
  1914. <:#284,10753>93    52    16    12    8001    1350631552    "edit"    ""    0 
  1915.  
  1916. <:#284,10753>4    4    125    16    1002    1342177280    "static"    "AppName"    0 
  1917.  
  1918. <:#284,10753>4    40    88    10    1003    1342177280    "static"    "NumFields"    0 
  1919.  
  1920. <:#284,10753>4    54    88    10    1004    1342177280    "static"    "MacName"    0 
  1921.  
  1922. <:#284,10753>END DIALOG
  1923.  
  1924. <:#284,10753>
  1925.  
  1926. <:#284,10753>
  1927.  
  1928. <:#284,10753>
  1929.  
  1930. <:#284,10753>DIALOG    Construct
  1931.  
  1932. <:#284,10753>-2134376448    20    68    16    168    188    ""    "AmiDialog"    "Design Dialog Box"
  1933.  
  1934. <:#284,10753>FONT    8    "Helv"
  1935.  
  1936. <:#284,10753>124    3    40    14    1    1342373889    "button"    "OK"    0 
  1937.  
  1938. <:#284,10753>124    19    40    14    3    1342373888    "button"    "Cancel"    0 
  1939.  
  1940. <:#284,10753>113    35    51    14    22    1342373888    "button"    "@&Functions..."    0 
  1941.  
  1942. <:#284,10753>6    24    101    22    8050    1350631428    "edit"    ""    0 
  1943.  
  1944. <:#284,10753>5    68    158    24    8060    1350631428    "edit"    ""    0 
  1945.  
  1946. <:#568,10753>6    3    115    20    1020    1342177280    "static"    "Help text for the application:"    0 
  1947.  
  1948. <:#284,10753>5    50    146    16    1021    1342177280    "static"    "Formula for the application"    0 
  1949.  
  1950. <:#284,10753>79    104    66    12    8001    1350631552    "edit"    ""    0 
  1951.  
  1952. <:#284,10753>79    118    66    12    8002    1350631552    "edit"    ""    0 
  1953.  
  1954. <:#284,10753>79    132    66    12    8003    1350631552    "edit"    ""    0 
  1955.  
  1956. <:#284,10753>20    107    45    10    1001    1342177280    "static"    "Label for value1"    0 
  1957.  
  1958. <:#284,10753>20    121    45    10    1002    1342177280    "static"    "Label for value2"    0 
  1959.  
  1960. <:#284,10753>20    135    45    10    1003    1342177280    "static"    "Label for value3"    0 
  1961.  
  1962. <:#284,10753>5    94    127    10    1022    1342177280    "static"    "text"    0 
  1963.  
  1964. <:#284,10753>79    146    66    12    8004    1350631552    "edit"    ""    0 
  1965.  
  1966. <:#284,10753>79    160    66    12    8005    1350631552    "edit"    ""    0 
  1967.  
  1968. <:#284,10753>79    176    66    12    8006    1350631552    "edit"    ""    0 
  1969.  
  1970. <:#284,10753>20    149    45    10    1004    1342177280    "static"    "Label for value4"    0 
  1971.  
  1972. <:#284,10753>20    163    45    10    1005    1342177280    "static"    "Label for value5"    0 
  1973.  
  1974. <:#284,10753>20    177    45    10    1006    1342177280    "static"    "Label for value6"    0 
  1975.  
  1976. <:#284,10753>END DIALOG
  1977.  
  1978. <:#284,10753>
  1979.  
  1980. <:#284,10753>
  1981.  
  1982. <:#284,10753>
  1983.  
  1984. <:#284,10753>
  1985.  
  1986. <:#284,10753>DIALOG    MainBox
  1987.  
  1988. <:#284,10753>-2134376448    13    60    38    197    113    ""    "AmiDialog"    "Calculation Application Builder"
  1989.  
  1990. <:#284,10753>FONT    8    "Helv"
  1991.  
  1992. <:#284,10753>154    2    40    14    1    1342373889    "button"    "OK"    0 
  1993.  
  1994. <:#284,10753>154    18    40    14    2    1342373888    "button"    "Cancel"    0 
  1995.  
  1996. <:#568,10753>36    37    120    10    21    1342242825    "button"    "&Define the calculation application"    0 
  1997.  
  1998. <:#568,10753>36    63    156    10    22    1342242825    "button"    "De&sign the user interface for the application"    0 
  1999.  
  2000. <:#568,10753>36    89    113    10    23    1342242825    "button"    "&Run the calculation application"    0 
  2001.  
  2002. <:#284,10753>48    47    140    10    1000    1342177280    "static"    "text"    0 
  2003.  
  2004. <:#284,10753>48    73    143    10    1001    1342177280    "static"    "text"    0 
  2005.  
  2006. <:#284,10753>48    99    148    10    1002    1342177280    "static"    "text"    0 
  2007.  
  2008. <:#284,10753>38    19    80    10    1003    1342177280    "static"    "text"    0 
  2009.  
  2010. <:#284,10753>8    2    134    16    1004    1342177280    "static"    "text"    0 
  2011.  
  2012. <:#284,10753>4    23    28    23    1005    1342177290    "static"    "text"    0 
  2013.  
  2014. <:#284,10753>4    51    28    23    1006    1342177290    "static"    "text"    0 
  2015.  
  2016. <:#284,10753>4    78    28    23    1007    1342177290    "static"    "text"    0 
  2017.  
  2018. <:#284,10753>END DIALOG
  2019.  
  2020. >
  2021.  
  2022. [Embedded]
  2023. 00033766
  2024. >
  2025. [macsum] 23
  2026. Main 0 0 18 63
  2027. InitMainBox 1694 3 4 150
  2028. DefineApp 2489 4 3 182
  2029. CBDefineApp 3229 3 3 214
  2030. InitDefineApp 3540 3 2 229
  2031. Construct 4016 5 5 249
  2032. InitConstruct 4993 3 2 286
  2033. SizeBox 5741 2 5 313
  2034. DisplayHelp 6098 0 4 329
  2035. FunButton 6284 3 1 340
  2036. FindAndReplace 6339 3 5 349
  2037. Redraw 6591 2 2 362
  2038. strpath 6933 1 5 389
  2039. InsertDefine 7254 2 2 404
  2040. FontDlg 7337 3 5 410
  2041. ShowFunctions 8134 2 6 466
  2042. InitCall 8652 3 5 509
  2043. RadioCall 8947 3 6 526
  2044. ManageList 9670 3 4 564
  2045. More 9942 0 -1 580
  2046. DefineApp 10689 0 -1 604
  2047. Construct 11158 0 -1 619
  2048. MainBox 12306 0 -1 647
  2049. [macse]
  2050. 14 Main
  2051. 0 32 2
  2052. 5 1
  2053. 8 8
  2054. 0 802
  2055. 13
  2056. 8 9
  2057. 5 1
  2058. 8 10
  2059. 5 10
  2060. 21 11 [X]
  2061. 0 271 "StepNumber" 1
  2062. 0 264 "StepNumber" 1
  2063. 16 FontDlg 1 0 0
  2064. 6 8
  2065. 11 00001644
  2066. 0 31 1004 "There are three easy steps to creating a custom calculation application."
  2067. 0 31 1005 "Build1.bmt"
  2068. 0 31 1006 "Build2.bmt"
  2069. 0 31 1007 "Build3.bmt"
  2070. 0 31 1000 "(What it is called, how many variables, etc...)"
  2071. 0 31 1001 "(What are the variable names and formula)"
  2072. 0 31 1002 "(Run the application)"
  2073. 0 41 0 "{9}!InitMainBox"
  2074. 0 47 112 "{9}!DisplayHelp"
  2075. 0 26 "." "MainBox"
  2076. 13
  2077. 8 12
  2078. 0 265 "StepNumber"
  2079. 13
  2080. 8 10
  2081. 6 12
  2082. 5 1
  2083. 18 0
  2084. 11 00001594
  2085. 0 27 21
  2086. 13
  2087. 11 00000751
  2088. 5 0
  2089. 16 DefineApp &1 &2 &3 &4
  2090. 13
  2091. 18 0
  2092. 11 00000738
  2093. 6 10
  2094. 5 1
  2095. 18 0
  2096. 11 00000725
  2097. 5 2
  2098. 8 10
  2099. 10 00000738
  2100. 10 00001581
  2101. 0 27 22
  2102. 13
  2103. 11 00001533
  2104. 5 0
  2105. 16 Construct "{1}" "{2}" &5 &6 &11
  2106. 13
  2107. 18 0
  2108. 11 00001520
  2109. 0 296 1
  2110. 2 101 1 "_Default.sty" 1 0
  2111. 13
  2112. 11 00001507
  2113. 16 Redraw &7 1
  2114. 16 StrPath "{9}"
  2115. 13
  2116. 8 13
  2117. 7 "{13}{3}.SMM"
  2118. 8 14
  2119. 0 789 "Please wait...Now building {14}"
  2120. 5 2
  2121. 8 15
  2122. 6 1
  2123. 8 16
  2124. 16 InsertDefine "NumDec" 2
  2125. 16 InsertDefine "NumberItems" "{2}"
  2126. 16 InsertDefine "DialogTitle" "{16}"
  2127. 16 InsertDefine "HelpText" "{6}"
  2128. 16 InsertDefine "Formula" "{5}"
  2129. 5 1
  2130. 8 17
  2131. 5 10
  2132. 6 17
  2133. 18 2
  2134. 12 00001285
  2135. 10 00001348
  2136. 5 1
  2137. 6 17
  2138. 3 0
  2139. 8 17
  2140. 10 00001206
  2141. 6 17
  2142. 22 11
  2143. 16 InsertDefine "Value{17}Text" [X]
  2144. 10 00001250
  2145. 2 102 1 "{13}BUILDER.SAM" 9 ""
  2146. 2 104 1 "{14}" 32 "{6}" ""
  2147. 13
  2148. 11 00001458
  2149. 2 147 1
  2150. 5 3
  2151. 8 10
  2152. 10 00001469
  2153. 5 2
  2154. 8 10
  2155. 16 ReDraw "{7}" 0
  2156. 0 789 ""
  2157. 0 296 0
  2158. 10 00001520
  2159. 10 00001581
  2160. 0 27 23
  2161. 13
  2162. 11 00001581
  2163. 16 "{14}"
  2164. 5 3
  2165. 8 10
  2166. 10 00001604
  2167. 5 0
  2168. 8 8
  2169. 0 264 "StepNumber" "{10}"
  2170. 10 00000133
  2171. 16 FontDlg 4 0 0
  2172. 0 266 "StepNumber"
  2173. 6 0
  2174. 15
  2175. 9
  2176. 14 InitMainBox
  2177. 0 32 2
  2178. 0 296 1
  2179. 5 1000
  2180. 8 4
  2181. 5 1004
  2182. 6 4
  2183. 18 2
  2184. 12 00000124
  2185. 10 00000163
  2186. 5 1
  2187. 6 4
  2188. 3 0
  2189. 8 4
  2190. 10 00000046
  2191. 16 FontDlg 3 "{0}" "{4}"
  2192. 10 00000091
  2193. 0 265 "StepNumber"
  2194. 13
  2195. 8 5
  2196. 5 1
  2197. 6 5
  2198. 18 0
  2199. 11 00000357
  2200. 7 ""
  2201. 8 6
  2202. 0 44 "{0}" 22
  2203. 13
  2204. 0 284 "user,EnableWindow,HHH" [X] 0
  2205. 0 44 "{0}" 23
  2206. 13
  2207. 0 284 "user,EnableWindow,HHH" [X] 0
  2208. 10 00000717
  2209. 5 2
  2210. 6 5
  2211. 18 0
  2212. 11 00000542
  2213. 7 "You are on step two."
  2214. 8 6
  2215. 0 44 "{0}" 22
  2216. 13
  2217. 0 284 "user,EnableWindow,HHH" [X] 1
  2218. 0 44 "{0}" 23
  2219. 13
  2220. 0 284 "user,EnableWindow,HHH" [X] 0
  2221. 10 00000717
  2222. 5 3
  2223. 6 5
  2224. 18 0
  2225. 11 00000717
  2226. 7 " You are on step three."
  2227. 8 6
  2228. 0 44 "{0}" 22
  2229. 13
  2230. 0 284 "user,EnableWindow,HHH" [X] 1
  2231. 0 44 "{0}" 23
  2232. 13
  2233. 0 284 "user,EnableWindow,HHH" [X] 1
  2234. 0 43 "{0}" 1003 "{6}"
  2235. 5 20
  2236. 6 5
  2237. 3 0
  2238. 0 43 "{0}" [X] 1
  2239. 0 296 0
  2240. 6 3
  2241. 15
  2242. 9
  2243. 14 DefineApp
  2244. 0 32 2
  2245. 0 802
  2246. 13
  2247. 8 5
  2248. 0 31 1005 "This is the example text that will be placed into the welcome box and will explain how the app works"
  2249. 0 31 1002 "1.  Type in the name you want to appear at the top of the dialog box: (30 char.)"
  2250. 0 31 1003 "2.  Name of the macro to create: "
  2251. 0 31 1004 "3.  Number of variables: (1 - 6)"
  2252. 0 31 8000 "{0}"
  2253. 0 31 8001 "{1}"
  2254. 0 31 8002 "{2}"
  2255. 0 31 8003 "{3}"
  2256. 0 41 8002 "{5}!CBDefineApp"
  2257. 0 41 8001 "{5}!CBDefineApp"
  2258. 0 41 0 "{5}!InitDefineApp"
  2259. 0 47 112 "{5}!DisplayHelp"
  2260. 0 26 "." "DefineApp"
  2261. 13
  2262. 8 6
  2263. 6 6
  2264. 5 1
  2265. 18 1
  2266. 11 00000594
  2267. 5 -1
  2268. 15
  2269. 9
  2270. 0 27 8002
  2271. 13
  2272. 0 20 [X] 1 "."
  2273. 13
  2274. 28 2
  2275. 16 FindAndReplace &2 " " "_"
  2276. 0 27 8000
  2277. 13
  2278. 28 0
  2279. 0 27 8001
  2280. 13
  2281. 28 1
  2282. 0 27 8003
  2283. 13
  2284. 28 3
  2285. 6 4
  2286. 15
  2287. 9
  2288. 14 CBDefineApp
  2289. 0 32 2
  2290. 0 42 "{0}" 8002
  2291. 13
  2292. 8 4
  2293. 0 42 "{0}" 8001
  2294. 13
  2295. 8 5
  2296. 6 5
  2297. 5 6
  2298. 18 3
  2299. 11 00000124
  2300. 0 43 "{0}" 8001 6
  2301. 6 4
  2302. 7 ""
  2303. 18 1
  2304. 6 5
  2305. 7 ""
  2306. 18 1
  2307. 1 1
  2308. 11 00000244
  2309. 0 44 "{0}" 1
  2310. 13
  2311. 0 284 "user,EnableWindow,HHH" [X] 1
  2312. 10 00000299
  2313. 0 44 "{0}" 1
  2314. 13
  2315. 0 284 "user,EnableWindow,HHH" [X] 0
  2316. 6 3
  2317. 15
  2318. 9
  2319. 14 InitDefineApp
  2320. 0 32 2
  2321. 0 296 1
  2322. 5 1000
  2323. 8 4
  2324. 5 1004
  2325. 6 4
  2326. 18 2
  2327. 12 00000126
  2328. 10 00000165
  2329. 5 1
  2330. 6 4
  2331. 3 0
  2332. 8 4
  2333. 10 00000048
  2334. 16 FontDlg 3 "{0}" "{4}"
  2335. 10 00000093
  2336. 16 FontDlg 3 "{0}" 8000
  2337. 16 FontDlg 3 "{0}" 8001
  2338. 16 FontDlg 3 "{0}" 8002
  2339. 0 44 "{0}" 8000
  2340. 13
  2341. 0 1036 [X] 1045 30 ""
  2342. 0 44 "{0}" 8002
  2343. 13
  2344. 0 1036 [X] 1045 8 ""
  2345. 0 44 "{0}" 8001
  2346. 13
  2347. 0 1036 [X] 1045 1 ""
  2348. 0 44 "{0}" 8000
  2349. 13
  2350. 0 284 "user,SetFocus,HH" [X]
  2351. 16 CBDefineApp "{0}" "{1}" "{2}"
  2352. 0 296 0
  2353. 6 3
  2354. 15
  2355. 9
  2356. 14 Construct
  2357. 0 32 2
  2358. 0 802
  2359. 13
  2360. 8 6
  2361. 0 271 "NumberItems" 1
  2362. 0 264 "NumberItems" "{1}"
  2363. 0 31 1020 "1.  Enter text to help your users to figure out how to fill in the dialog box. (80 char.)"
  2364. 0 31 1021 "2.  Enter the formula to calculate the answer.  For example, @AVG({{VALUE1};{{VALUE2};{{VALUE3})"
  2365. 0 31 1022 "3.  Enter real names for the values: (20 char)"
  2366. 0 31 8060 "{2}"
  2367. 0 31 8050 "{3}"
  2368. 5 1
  2369. 8 7
  2370. 6 1
  2371. 6 7
  2372. 18 2
  2373. 12 00000480
  2374. 10 00000536
  2375. 5 1
  2376. 6 7
  2377. 3 0
  2378. 8 7
  2379. 10 00000405
  2380. 5 8000
  2381. 6 7
  2382. 3 0
  2383. 6 7
  2384. 22 4
  2385. 0 31 [X] [X]
  2386. 10 00000447
  2387. 0 41 0 "{6}!InitConstruct"
  2388. 0 41 22 "{6}!FunButton"
  2389. 0 47 112 "{6}!DisplayHelp"
  2390. 0 26 "." "Construct"
  2391. 13
  2392. 8 8
  2393. 0 266 "NumberItems"
  2394. 6 8
  2395. 5 1
  2396. 18 1
  2397. 11 00000711
  2398. 5 -1
  2399. 15
  2400. 9
  2401. 0 27 8060
  2402. 13
  2403. 28 2
  2404. 16 FindAndReplace &2 " " ""
  2405. 0 39 34
  2406. 13
  2407. 16 FindAndReplace &2 [X] ""
  2408. 0 27 8050
  2409. 13
  2410. 28 3
  2411. 5 1
  2412. 8 9
  2413. 6 1
  2414. 6 9
  2415. 18 2
  2416. 12 00000909
  2417. 10 00000965
  2418. 5 1
  2419. 6 9
  2420. 3 0
  2421. 8 9
  2422. 10 00000834
  2423. 6 9
  2424. 5 8000
  2425. 6 9
  2426. 3 0
  2427. 0 27 [X]
  2428. 13
  2429. 23 4
  2430. 10 00000876
  2431. 6 5
  2432. 15
  2433. 9
  2434. 14 InitConstruct
  2435. 0 32 2
  2436. 0 296 1
  2437. 0 265 "NumberItems"
  2438. 13
  2439. 8 4
  2440. 5 1
  2441. 8 1
  2442. 5 9
  2443. 6 1
  2444. 18 2
  2445. 12 00000150
  2446. 10 00000483
  2447. 5 1
  2448. 6 1
  2449. 3 0
  2450. 8 1
  2451. 10 00000075
  2452. 6 1
  2453. 5 1000
  2454. 3 0
  2455. 16 FontDlg 3 "{0}" [X]
  2456. 6 1
  2457. 5 8000
  2458. 3 0
  2459. 16 FontDlg 3 "{0}" [X]
  2460. 6 1
  2461. 5 8000
  2462. 3 0
  2463. 0 44 "{0}" [X]
  2464. 13
  2465. 0 1036 [X] 1045 20 ""
  2466. 6 1
  2467. 6 4
  2468. 18 3
  2469. 11 00000470
  2470. 6 1
  2471. 5 1000
  2472. 3 0
  2473. 0 44 "{0}" [X]
  2474. 13
  2475. 0 284 "user,ShowWindow,HHH" [X] 0
  2476. 6 1
  2477. 5 8000
  2478. 3 0
  2479. 0 44 "{0}" [X]
  2480. 13
  2481. 0 284 "user,ShowWindow,HHH" [X] 0
  2482. 10 00000117
  2483. 16 FontDlg 3 "{0}" 1020
  2484. 16 FontDlg 3 "{0}" 1021
  2485. 16 FontDlg 3 "{0}" 1022
  2486. 16 FontDlg 3 "{0}" 8050
  2487. 16 FontDlg 3 "{0}" 8060
  2488. 0 44 "{0}" 8050
  2489. 13
  2490. 0 284 "user,SetFocus,HH" [X]
  2491. 0 44 "{0}" 8050
  2492. 13
  2493. 0 1036 [X] 1045 80 ""
  2494. 16 SizeBox "{0}" "{4}"
  2495. 0 296 0
  2496. 6 3
  2497. 15
  2498. 9
  2499. 14 SizeBox
  2500. 0 32 2
  2501. 0 284 "user,getsystemmetrics,HH" 4
  2502. 13
  2503. 8 3
  2504. 5 4
  2505. 21 4 [X]
  2506. 0 284 "user,GetWindowRect,HHN" "{0}" &4
  2507. 5 3
  2508. 22 4
  2509. 5 1
  2510. 22 4
  2511. 3 1
  2512. 8 5
  2513. 6 3
  2514. 5 20
  2515. 18 0
  2516. 11 00000229
  2517. 5 22
  2518. 6 1
  2519. 4 0
  2520. 5 200
  2521. 3 0
  2522. 8 6
  2523. 10 00000262
  2524. 5 26
  2525. 6 1
  2526. 4 0
  2527. 5 250
  2528. 3 0
  2529. 8 6
  2530. 5 1
  2531. 22 4
  2532. 5 2
  2533. 22 4
  2534. 0 284 "User,MoveWindow,HHHHHHA" "{0}" [X] [X] "{5}" "{6}" 1
  2535. 6 2
  2536. 15
  2537. 9
  2538. 14 DisplayHelp
  2539. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  2540. 13
  2541. 8 1
  2542. 0 798
  2543. 13
  2544. 0 16 [X] "HelpPack.hlp"
  2545. 13
  2546. 8 2
  2547. 5 105
  2548. 8 3
  2549. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  2550. 6 0
  2551. 15
  2552. 9
  2553. 14 FunButton
  2554. 16 ShowFunctions "{0}" 8060
  2555. 6 3
  2556. 15
  2557. 9
  2558. 14 FindAndReplace
  2559. 5 0
  2560. 8 5
  2561. 5 0
  2562. 0 808 "{5}" "{0}" "{1}"
  2563. 13
  2564. 0 805 &4 [X]
  2565. 13
  2566. 18 1
  2567. 11 00000240
  2568. 6 4
  2569. 5 1
  2570. 3 1
  2571. 0 806 "{0}" [X]
  2572. 13
  2573. 8 6
  2574. 0 14 "{0}"
  2575. 13
  2576. 6 4
  2577. 3 1
  2578. 0 807 "{0}" [X]
  2579. 13
  2580. 8 7
  2581. 0 16 "{6}" "{2}" "{7}"
  2582. 13
  2583. 28 0
  2584. 10 00000029
  2585. 6 3
  2586. 15
  2587. 9
  2588. 14 Redraw
  2589. 0 32 2
  2590. 5 4
  2591. 21 3 [X]
  2592. 5 1
  2593. 6 1
  2594. 18 0
  2595. 11 00000156
  2596. 0 1313 267
  2597. 13
  2598. 28 0
  2599. 0 284 "user,SendMessage,JHHHJ" "{0}" 11 0 ""
  2600. 6 0
  2601. 15
  2602. 9
  2603. 10 00000330
  2604. 5 0
  2605. 6 1
  2606. 18 0
  2607. 11 00000330
  2608. 0 284 "user,SendMessage,JHHHJ" "{0}" 11 1 ""
  2609. 0 284 "User,GetClientRect,HHN" "{0}" &3
  2610. 0 284 "user,InvalidateRect,HHFH" "{0}" &3 1
  2611. 10 00000330
  2612. 6 2
  2613. 15
  2614. 9
  2615. 14 strpath
  2616. 0 14 "{0}"
  2617. 13
  2618. 8 3
  2619. 7 "\"
  2620. 0 15 "{0}" "{3}" 1
  2621. 13
  2622. 0 805 &2 [X]
  2623. 13
  2624. 18 1
  2625. 11 00000134
  2626. 6 3
  2627. 5 1
  2628. 3 1
  2629. 8 3
  2630. 10 00000033
  2631. 0 14 "{0}"
  2632. 13
  2633. 6 3
  2634. 3 1
  2635. 0 807 "{0}" [X]
  2636. 13
  2637. 8 4
  2638. 6 3
  2639. 5 1
  2640. 3 1
  2641. 0 806 "{0}" [X]
  2642. 13
  2643. 8 5
  2644. 0 807 "{5}" 1
  2645. 13
  2646. 7 "\"
  2647. 18 1
  2648. 11 00000297
  2649. 0 16 "{5}" "\"
  2650. 13
  2651. 8 5
  2652. 6 5
  2653. 15
  2654. 9
  2655. 6 1
  2656. 15
  2657. 9
  2658. 14 InsertDefine
  2659. 0 39 34
  2660. 13
  2661. 8 3
  2662. 0 6 "Define[9]{0}[9]{3}{1}{3}[13]"
  2663. 6 2
  2664. 15
  2665. 9
  2666. 14 FontDlg
  2667. 5 1
  2668. 6 0
  2669. 18 0
  2670. 11 00000255
  2671. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2672. 13
  2673. 8 4
  2674. 0 271 "FontHandle" 1
  2675. 6 4
  2676. 11 00000217
  2677. 0 264 "FontHandle" "{4}"
  2678. 6 4
  2679. 15
  2680. 9
  2681. 10 00000229
  2682. 5 0
  2683. 15
  2684. 9
  2685. 10 00000785
  2686. 10 00000785
  2687. 5 2
  2688. 6 0
  2689. 18 0
  2690. 11 00000381
  2691. 0 265 "FontHandle"
  2692. 13
  2693. 8 5
  2694. 6 5
  2695. 11 00000356
  2696. 6 5
  2697. 15
  2698. 9
  2699. 10 00000368
  2700. 5 0
  2701. 15
  2702. 9
  2703. 10 00000785
  2704. 5 3
  2705. 6 0
  2706. 18 0
  2707. 11 00000596
  2708. 0 265 "FontHandle"
  2709. 13
  2710. 8 5
  2711. 6 5
  2712. 11 00000558
  2713. 0 44 "{1}" "{2}"
  2714. 13
  2715. 8 6
  2716. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  2717. 5 1
  2718. 15
  2719. 9
  2720. 10 00000570
  2721. 5 0
  2722. 15
  2723. 9
  2724. 10 00000785
  2725. 10 00000785
  2726. 5 4
  2727. 6 0
  2728. 18 0
  2729. 11 00000785
  2730. 0 265 "FontHandle"
  2731. 13
  2732. 8 5
  2733. 6 5
  2734. 11 00000730
  2735. 0 284 "gdi,DeleteObject,HH" "{5}"
  2736. 5 1
  2737. 8 7
  2738. 10 00000740
  2739. 5 0
  2740. 8 7
  2741. 0 266 "FontHandle"
  2742. 6 7
  2743. 15
  2744. 9
  2745. 10 00000785
  2746. 6 3
  2747. 15
  2748. 9
  2749. 14 ShowFunctions
  2750. 0 284 "User,EnableWindow,AHA" "{0}" 0
  2751. 0 802
  2752. 13
  2753. 8 3
  2754. 0 41 20 "{3}!RadioCall"
  2755. 0 41 21 "{3}!RadioCall"
  2756. 0 41 22 "{3}!RadioCall"
  2757. 0 41 23 "{3}!RadioCall"
  2758. 0 41 0 "{3}!InitCall"
  2759. 0 41 9000 "{3}!RadioCall"
  2760. 0 47 112 "{3}!DisplayHelp"
  2761. 0 31 20 1
  2762. 0 26 "." "More"
  2763. 13
  2764. 8 4
  2765. 6 4
  2766. 5 1
  2767. 18 0
  2768. 11 00000415
  2769. 0 42 "{0}" "{1}"
  2770. 13
  2771. 8 5
  2772. 0 27 8010
  2773. 13
  2774. 8 6
  2775. 0 16 "{5}" "{6}"
  2776. 13
  2777. 8 7
  2778. 0 43 "{0}" "{1}" "{7}"
  2779. 0 284 "User,EnableWindow,AHA" "{0}" 1
  2780. 0 44 "{0}" "{1}"
  2781. 13
  2782. 0 284 "user,SetFocus,HH" [X]
  2783. 6 2
  2784. 15
  2785. 9
  2786. 14 InitCall
  2787. 0 32 2
  2788. 16 FontDlg 3 "{0}" 1001
  2789. 16 FontDlg 3 "{0}" 8010
  2790. 16 ManageList "{0}" 9000 "Financial"
  2791. 0 42 "{0}" 9000
  2792. 13
  2793. 8 4
  2794. 0 286 "Financial" "{4}" "AmiCalc.ini"
  2795. 13
  2796. 8 5
  2797. 0 20 "{5}" 2 "~"
  2798. 13
  2799. 8 6
  2800. 0 20 "{5}" 1 "~"
  2801. 13
  2802. 8 7
  2803. 0 43 "{0}" 8010 "{6}"
  2804. 0 43 "{0}" 1001 "{7}"
  2805. 6 3
  2806. 15
  2807. 9
  2808. 14 RadioCall
  2809. 0 32 2
  2810. 0 42 "{0}" 20
  2811. 13
  2812. 11 00000087
  2813. 7 "Financial"
  2814. 8 4
  2815. 10 00000272
  2816. 0 42 "{0}" 22
  2817. 13
  2818. 11 00000155
  2819. 7 "Mathematical"
  2820. 8 4
  2821. 10 00000272
  2822. 0 42 "{0}" 21
  2823. 13
  2824. 11 00000222
  2825. 7 "Statistical"
  2826. 8 4
  2827. 10 00000272
  2828. 0 42 "{0}" 23
  2829. 13
  2830. 11 00000272
  2831. 7 "Logical"
  2832. 8 4
  2833. 5 9000
  2834. 6 1
  2835. 18 0
  2836. 11 00000498
  2837. 0 42 "{0}" 9000
  2838. 13
  2839. 8 5
  2840. 0 286 "{4}" "{5}" "AmiCalc.ini"
  2841. 13
  2842. 8 6
  2843. 0 20 "{6}" 2 "~"
  2844. 13
  2845. 8 7
  2846. 0 20 "{6}" 1 "~"
  2847. 13
  2848. 8 8
  2849. 0 43 "{0}" 8010 "{7}"
  2850. 0 43 "{0}" 1001 "{8}"
  2851. 10 00000711
  2852. 10 00000711
  2853. 16 ManageList "{0}" 9000 "{4}"
  2854. 0 42 "{0}" 9000
  2855. 13
  2856. 8 5
  2857. 0 286 "{4}" "{5}" "AmiCalc.ini"
  2858. 13
  2859. 8 6
  2860. 0 20 "{6}" 2 "~"
  2861. 13
  2862. 8 7
  2863. 0 20 "{6}" 1 "~"
  2864. 13
  2865. 8 8
  2866. 0 43 "{0}" 8010 "{7}"
  2867. 0 43 "{0}" 1001 "{8}"
  2868. 10 00000711
  2869. 6 3
  2870. 15
  2871. 9
  2872. 14 ManageList
  2873. 0 44 "{0}" 9000
  2874. 13
  2875. 0 1036 [X] 1029 0 0
  2876. 0 286 "{2}" 0 "AmiCalc.ini"
  2877. 13
  2878. 8 5
  2879. 5 1
  2880. 8 6
  2881. 5 -1
  2882. 0 20 "{5}" "{6}" "~"
  2883. 13
  2884. 0 805 &4 [X]
  2885. 13
  2886. 18 1
  2887. 11 00000260
  2888. 6 4
  2889. 7 ""
  2890. 18 3
  2891. 11 00000227
  2892. 0 43 "{0}" 9000 "{4}"
  2893. 6 6
  2894. 5 1
  2895. 3 0
  2896. 8 6
  2897. 10 00000105
  2898. 6 3
  2899. 15
  2900. 9
  2901. DIALOG More
  2902. -2134376448 13 61 28 187 118 "" "AmiDialog" "More @Functions" 
  2903. FONT 8 "Helv" 
  2904. 7 12 50 11 20 1342242825 "button" "&Financial" 0 
  2905. 7 24 50 11 21 1342242825 "button" "&Statistical" 0 
  2906. 7 35 54 11 22 1342242825 "button" "&Mathematical" 0 
  2907. 7 46 50 11 23 1342242825 "button" "&Logical" 0 
  2908. 79 15 58 40 9000 1352728579 "listbox" "" 0 
  2909. 7 57 176 24 30 1342308359 "button" "Example" 0 
  2910. 7 83 176 32 31 1342308359 "button" "Description" 0 
  2911. 13 68 148 10 8010 1342177280 "static" "text" 0 
  2912. 13 93 158 20 1001 1342177280 "static" "text" 0 
  2913. 4 3 44 10 1000 1342177280 "static" "Categories:" 0 
  2914. 78 3 40 10 1002 1342177280 "static" "@Functions:" 0 
  2915. 143 3 40 14 1 1342373889 "button" "Insert" 0 
  2916. 143 19 40 14 2 1342373888 "button" "Cancel" 0 
  2917. DIALOG DefineApp
  2918. -2134376448 8 60 47 183 67 "" "AmiDialog" "Define Application" 
  2919. FONT 8 "Helv" 
  2920. 139 3 40 14 1 1342373889 "button" "OK" 0 
  2921. 139 19 40 14 2 1342373888 "button" "Cancel" 0 
  2922. 11 23 119 12 8000 1350631552 "edit" "" 0 
  2923. 93 38 37 12 8002 1350631552 "edit" "" 0 
  2924. 93 52 16 12 8001 1350631552 "edit" "" 0 
  2925. 4 4 125 16 1002 1342177280 "static" "AppName" 0 
  2926. 4 40 88 10 1003 1342177280 "static" "NumFields" 0 
  2927. 4 54 88 10 1004 1342177280 "static" "MacName" 0 
  2928. DIALOG Construct
  2929. -2134376448 20 68 16 168 188 "" "AmiDialog" "Design Dialog Box" 
  2930. FONT 8 "Helv" 
  2931. 124 3 40 14 1 1342373889 "button" "OK" 0 
  2932. 124 19 40 14 3 1342373888 "button" "Cancel" 0 
  2933. 113 35 51 14 22 1342373888 "button" "@&Functions..." 0 
  2934. 6 24 101 22 8050 1350631428 "edit" "" 0 
  2935. 5 68 158 24 8060 1350631428 "edit" "" 0 
  2936. 6 3 115 20 1020 1342177280 "static" "Help text for the application:" 0 
  2937. 5 50 146 16 1021 1342177280 "static" "Formula for the application" 0 
  2938. 79 104 66 12 8001 1350631552 "edit" "" 0 
  2939. 79 118 66 12 8002 1350631552 "edit" "" 0 
  2940. 79 132 66 12 8003 1350631552 "edit" "" 0 
  2941. 20 107 45 10 1001 1342177280 "static" "Label for value1" 0 
  2942. 20 121 45 10 1002 1342177280 "static" "Label for value2" 0 
  2943. 20 135 45 10 1003 1342177280 "static" "Label for value3" 0 
  2944. 5 94 127 10 1022 1342177280 "static" "text" 0 
  2945. 79 146 66 12 8004 1350631552 "edit" "" 0 
  2946. 79 160 66 12 8005 1350631552 "edit" "" 0 
  2947. 79 176 66 12 8006 1350631552 "edit" "" 0 
  2948. 20 149 45 10 1004 1342177280 "static" "Label for value4" 0 
  2949. 20 163 45 10 1005 1342177280 "static" "Label for value5" 0 
  2950. 20 177 45 10 1006 1342177280 "static" "Label for value6" 0 
  2951. DIALOG MainBox
  2952. -2134376448 13 60 38 197 113 "" "AmiDialog" "Calculation Application Builder" 
  2953. FONT 8 "Helv" 
  2954. 154 2 40 14 1 1342373889 "button" "OK" 0 
  2955. 154 18 40 14 2 1342373888 "button" "Cancel" 0 
  2956. 36 37 120 10 21 1342242825 "button" "&Define the calculation application" 0 
  2957. 36 63 156 10 22 1342242825 "button" "De&sign the user interface for the application" 0 
  2958. 36 89 113 10 23 1342242825 "button" "&Run the calculation application" 0 
  2959. 48 47 140 10 1000 1342177280 "static" "text" 0 
  2960. 48 73 143 10 1001 1342177280 "static" "text" 0 
  2961. 48 99 148 10 1002 1342177280 "static" "text" 0 
  2962. 38 19 80 10 1003 1342177280 "static" "text" 0 
  2963. 8 2 134 16 1004 1342177280 "static" "text" 0 
  2964. 4 23 28 23 1005 1342177290 "static" "text" 0 
  2965. 4 51 28 23 1006 1342177290 "static" "text" 0 
  2966. 4 78 28 23 1007 1342177290 "static" "text" 0 
  2967. 00033791
  2968.