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