home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / QKTABLE.SMM < prev    next >
INI File  |  1993-08-25  |  27KB  |  1,978 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.     Quickly calculate loan payment
  19.     
  20.     
  21.     
  22.     
  23.     746309614
  24.     31
  25.     733534631
  26.     921
  27.     7
  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.         200
  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. [tag]
  560.     Table Text
  561.     12
  562.     [fnt]
  563.         Times New Roman
  564.         240
  565.         0
  566.         49152
  567.     [algn]
  568.         1
  569.         1
  570.         0
  571.         0
  572.         0
  573.     [spc]
  574.         33
  575.         273
  576.         1
  577.         0
  578.         0
  579.         1
  580.         100
  581.     [brk]
  582.         4
  583.     [line]
  584.         8
  585.         0
  586.         1
  587.         0
  588.         1
  589.         1
  590.         1
  591.         10
  592.         10
  593.         1
  594.     [spec]
  595.         0
  596.         0
  597.         
  598.         0
  599.         1
  600.         1
  601.         0
  602.         0
  603.         0
  604.         0
  605.     [nfmt]
  606.         280
  607.         1
  608.         2
  609.         .
  610.         ,
  611.         $
  612.     Table Text
  613.     0
  614.     0
  615. [lay]
  616.     Standard
  617.     513
  618.     [rght]
  619.         15840
  620.         12240
  621.         1
  622.         432
  623.         720
  624.         1
  625.         1080
  626.         432
  627.         0
  628.         1
  629.         0
  630.         1
  631.         0
  632.         2
  633.         1
  634.         432
  635.         11808
  636.         12
  637.         1
  638.         720
  639.         1
  640.         1440
  641.         1
  642.         2160
  643.         1
  644.         2880
  645.         1
  646.         3600
  647.         1
  648.         4320
  649.         1
  650.         5040
  651.         1
  652.         5760
  653.         1
  654.         6480
  655.         1
  656.         7200
  657.         1
  658.         7920
  659.         1
  660.         8640
  661.     [hrght]
  662.     [lyfrm]
  663.         1
  664.         11200
  665.         0
  666.         0
  667.         12240
  668.         1080
  669.         0
  670.         1
  671.         3
  672.         1 0 0 0 0 0 0
  673.         0
  674.         0
  675.         1
  676.     [frmlay]
  677.         1080
  678.         12240
  679.         1
  680.         1440
  681.         0
  682.         1
  683.         288
  684.         1440
  685.         0
  686.         1
  687.         0
  688.         1
  689.         1
  690.         0
  691.         1
  692.         1440
  693.         10800
  694.         2
  695.         2
  696.         4680
  697.         3
  698.         9360
  699.     [txt]
  700. Peyton McManus
  701.  
  702. Lotus WPD
  703.  
  704.  
  705. >
  706.     [frght]
  707.     [lyfrm]
  708.         1
  709.         13248
  710.         0
  711.         15120
  712.         12240
  713.         15840
  714.         0
  715.         1
  716.         3
  717.         1 0 0 0 0 0 0
  718.         0
  719.         0
  720.         2
  721.     [frmlay]
  722.         15840
  723.         12240
  724.         1
  725.         1440
  726.         648
  727.         1
  728.         15192
  729.         1440
  730.         0
  731.         1
  732.         0
  733.         1
  734.         1
  735.         0
  736.         1
  737.         1440
  738.         10800
  739.         2
  740.         2
  741.         4680
  742.         3
  743.         9360
  744.     [txt]
  745. >
  746. [elay]
  747. [l1]
  748.     0
  749. [pg]
  750.     7
  751.     57 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
  752.     113 0 14 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
  753.     169 0 14 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
  754.     194 0 5 512 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
  755.     250 0 0 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
  756.     308 0 37 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
  757.     354 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  758. [edoc]
  759. Declare        CellEngine(Action, Formula)
  760.  
  761. Declare        FontDlg(Action, Hdlg, id)
  762.  
  763. Declare        CreateMyStyles()
  764.  
  765. Declare DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate)
  766.  
  767. Declare MakeTable(MinYears, MaxYears, StepYears, MinAmount, MaxAmount, StepAmount, InterestRate)
  768.  
  769. <:s>
  770.  
  771. Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  772.  
  773. <:s>
  774.  
  775. <:s>
  776.  
  777. Define    ErrorMessage    "The loan payment style sheet _LoanPay.sty was not opened."
  778.  
  779. Define    ErrorMessage2    "Some data necessary for the calculation was not provided."
  780.  
  781. <:s>
  782.  
  783. Define    Desc    "This function builds a Loan Payment table so you can compare how different combinations of principal amounts and lengths of time affect your monthly and/or total payments.  "
  784.  
  785. Define    Desc2    "Fill out these questions, then click OK to build the loan table."
  786.  
  787. <:s>
  788.  
  789. Define    QuestionText    "This will produce a table with over 50 rows.  Would you like to continue"
  790.  
  791. <:s>
  792.  
  793. <:s>
  794.  
  795. Define    cAmount    "What is the maximum and minimum amount of the loan you are considering?"
  796.  
  797. Define    cLoanStep    "What  increments for the loan do you want to evaluate?"
  798.  
  799. Define    cRate    "What is the annual interest rate for this loan?"
  800.  
  801. Define    cTime    "What is the maximum and minimum amount of time you are considering for the loan? (in years)"
  802.  
  803. Define    cIncrement    "Over what increments of time do you want to evaluate this loan? (in years, so .5 = 1/2 year)"
  804.  
  805. <:s>
  806.  
  807. Define    AppName    "Loan Calculator"
  808.  
  809.  
  810. Define    CreateShade()    TableLines(64 63 0 8910 15724527  )
  811.  
  812.  
  813.  
  814. @Subhead@Function Main()
  815.  
  816. DefStr MaxAmt, MinAmt, StepAmt, Irate, MaxYrs, MinYrs, StepYrs;
  817.  
  818. CellEngine(1,0)    ' Start engine
  819.  
  820. FontDlg(1,0,0)    ' Create a small font for some of the controls in the dialog box
  821.  
  822.  
  823. Mac = GetRunningMacroFile$()
  824.  
  825. Descript = Strcat$(Desc, Desc2)
  826.  
  827. Again:
  828.  
  829. FillEdit( 1010, Descript)
  830.  
  831. FillEdit(1000, cAmount)
  832.  
  833. FillEdit(1008, cLoanStep)
  834.  
  835. FillEdit(1009, cRate)
  836.  
  837. FillEdit(1003, cTime)
  838.  
  839. FillEdit(1011, cIncrement)
  840.  
  841. FillEdit(8000, MaxAmt)
  842.  
  843. FillEdit(8001, MinAmt)
  844.  
  845. FillEdit(8002, StepAmt)
  846.  
  847. FillEdit(8003, Irate)
  848.  
  849. FillEdit(8004, MaxYrs)
  850.  
  851. FillEdit(8005, MinYrs)
  852.  
  853. FillEdit(8006, StepYrs)
  854.  
  855. SetDlgCallBack(0,"{Mac}!InitDlg")
  856.  
  857. @Outline3@
  858. @Outline3@DlgKeyInterrupt(112, "{mac}!DisplayHelp")
  859.  
  860. @Outline3@
  861. Box = DialogBox(".","Table")
  862.  
  863. If Box =1
  864.  
  865. <:#240,11376>    MaxAmt = GetDialogField$(8000) *1
  866.  
  867. <:#240,11376>    MinAmt = GetDialogField$(8001) * 1
  868.  
  869. <:#240,11376>    StepAmt = GetDialogField$(8002) * 1
  870.  
  871. <:#240,11376>    IRate = GetDialogField$(8003) * 1
  872.  
  873. <:#240,11376>    MaxYrs = GetDialogField$(8004) * 1
  874.  
  875. <:#240,11376>    MinYrs = GetDialogField$(8005) * 1
  876.  
  877. <:#240,11376>    StepYrs = GetDialogField$(8006) * 1
  878.  
  879. <:#236,11376>    If 0 = DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate)
  880.  
  881. <:#240,11376>        ' Data is ok
  882.  
  883. <:#236,11376>        MakeTable(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate)
  884.  
  885. <:#240,11376>    Else
  886.  
  887. <:#240,11376>        Message(ErrorMessage2,AppName)
  888.  
  889. <:#240,11376>        Goto Again
  890.  
  891. <:#240,11376>    Endif
  892.  
  893. <:#240,11376>Endif
  894.  
  895. <:#240,11376>CellEngine(0,0)    ' shut down the dll and free global var
  896.  
  897. <:#240,11376>FontDlg(4,0,0)    ' Destroy the small font and free the global var
  898.  
  899. <:#240,11376>End Function
  900.  
  901. <:#240,11376>
  902.  
  903. <:#240,11376>
  904.  
  905. @Subhead@<:#279,11376>Function DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate)
  906.  
  907. <:#236,11376>If (MaxYrs << 1) or (MinYrs << 0)
  908.  
  909. <:#236,11376>    Return -1
  910.  
  911. <:#236,11376>Endif
  912.  
  913. <:#236,11376>
  914.  
  915. <:#236,11376>If (MaxAmt << 1) or (MinAmt << 0)
  916.  
  917. <:#236,11376>    Return -1
  918.  
  919. <:#236,11376>Endif
  920.  
  921. <:#236,11376>
  922.  
  923. <:#236,11376>IF (StepYrs <<= 0) or (StepAmt <<=0)
  924.  
  925. <:#236,11376>    Return -1
  926.  
  927. <:#236,11376>Endif
  928.  
  929. <:#236,11376>
  930.  
  931. <:#236,11376>If MinYrs <;> MaxYrs;
  932.  
  933. <:#236,11376>    Return -1
  934.  
  935. <:#236,11376>Endif
  936.  
  937. <:#236,11376>
  938.  
  939. <:#236,11376>If MaxAmt << MinAmt;
  940.  
  941. <:#236,11376>    Return -1
  942.  
  943. <:#236,11376>Endif
  944.  
  945. <:#236,11376>End Function
  946.  
  947. @Subhead@<:#279,11376>
  948.  
  949. <:#236,11376>
  950.  
  951. <:#236,11376>
  952.  
  953. <:#236,11376>
  954.  
  955. @Subhead@<:#284,11376>Function MakeTable(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate)
  956.  
  957. <:#240,11376>
  958.  
  959. <:#240,11376>NumberCols = CellEngine(3,"@Int(({MaxYrs}-{MinYrs})/{StepYrs})+2")
  960.  
  961. <:#240,11376>If NumberCols <;> 50
  962.  
  963. <:#240,11376>    If Not Decide(QuestionText,"Ami Pro")
  964.  
  965. <:#240,11376>        Return -1
  966.  
  967. <:#240,11376>    Endif
  968.  
  969. <:#240,11376>Endif
  970.  
  971. <:#240,11376>If NumberCols <<1
  972.  
  973. <:#240,11376>    NumberCols =2
  974.  
  975. <:#240,11376>Endif
  976.  
  977. NumberRows = 3
  978.  
  979. <:#240,11376>If New("_LoanPay.sty"  1 0  )
  980.  
  981. <:#240,11376>Else
  982.  
  983. <:#240,11376>    Message(ErrorMessage)
  984.  
  985. <:#240,11376>    Return -1
  986.  
  987. <:#240,11376>Endif
  988.  
  989. <:#240,11376>
  990.  
  991. <:#240,11376>MarkBookMark("IRate",FindBookMark)
  992.  
  993. <:#240,11376>    Type("{Irate}%")
  994.  
  995. <:#240,11376> MarkbookMark("MaxAmt",FindBookMark)
  996.  
  997. <:#240,11376>    Type("{MaxAmt}")
  998.  
  999. <:#240,11376>MarkBookMark("MinAmt",FindBookMark)
  1000.  
  1001. <:#240,11376>    Type("{MinAmt}")
  1002.  
  1003. <:#240,11376>MarkBookMark("MaxYrs",FindBookMark)
  1004.  
  1005. <:#240,11376>    Type("{MaxYrs} years")
  1006.  
  1007. <:#240,11376>MarkBookMark("MinYrs",FindBookMark)
  1008.  
  1009. <:#240,11376>    Type("{MinYrs} years")
  1010.  
  1011. <:#240,11376>MarkBookMark("Start",FindBookMark)
  1012.  
  1013. <:#240,11376>Tables(1 1 NumberCols, NumberRows )
  1014.  
  1015. <:#240,11376>Irate = Irate / 100
  1016.  
  1017. <:#240,11376>Type("<[>Tab]")
  1018.  
  1019. <:#240,11376>Answer = 1
  1020.  
  1021. <:#240,11376>For Term = MinYrs to MaxYrs Step StepYrs
  1022.  
  1023. <:#240,11376>    Type("{Term}<[>Tab]")
  1024.  
  1025. <:#240,11376>Next
  1026.  
  1027. <:#240,11376>For Amount = MinAmt to MaxAmt Step StepAmt
  1028.  
  1029. <:#240,11376>    Createshade()
  1030.  
  1031. <:#240,11376>    Type ("{Amount}<[>Tab]")
  1032.  
  1033. <:#240,11376>    For Term = MinYrs to MaxYrs Step StepYrs
  1034.  
  1035. <:#240,11376>        Answer = CellEngine(3,"@Pmt({Amount},{IRate}/12,{Term}*12)")
  1036.  
  1037. <:#240,11376>        CreateShade()
  1038.  
  1039. <:#240,11376>        Type("{Answer}<[>Tab]")
  1040.  
  1041. <:#240,11376>    Next
  1042.  
  1043. <:#240,11376>    Type ("<[>Tab]")
  1044.  
  1045. <:#240,11376>    InsertColumnRow(1 0 0  )
  1046.  
  1047. <:#240,11376>
  1048.  
  1049. <:#240,11376>    For Term = MinYrs to MaxYrs Step StepYrs
  1050.  
  1051. <:#240,11376>        Answer = CellEngine(3,"@Pmt({Amount},{IRate}/12,{Term}*12)")
  1052.  
  1053. <:#240,11376>            Total = Answer *(Term * 12)
  1054.  
  1055. <:#240,11376>        Type("{Total}<[>Tab]")
  1056.  
  1057. <:#240,11376>    Next
  1058.  
  1059. <:#240,11376>    InsertColumnRow(1 0 0  )
  1060.  
  1061. <:#240,11376>Next
  1062.  
  1063. <:#240,11376>Type("<[>CtrlHome]")
  1064.  
  1065. <:#240,11376>End Function
  1066.  
  1067. @Subhead@<:#284,11376>
  1068.  
  1069. <:#240,11376>
  1070.  
  1071. <:#240,11376>
  1072.  
  1073. @Subhead@<:#284,11376>Function InitDlg(hDlg, id, Value)
  1074.  
  1075. <:#240,11376>IgnoreKeyBoard(2)
  1076.  
  1077. <:#240,11376>HourGlass(on)
  1078.  
  1079. <:#240,11376>For id = 1000 to 1012
  1080.  
  1081. <:#240,11376>    FontDlg(3, Hdlg, id)
  1082.  
  1083. <:#240,11376>    FontDlg(3, Hdlg, 7000 + id)
  1084.  
  1085. <:#240,11376>Next
  1086.  
  1087. <:#240,11376>FontDlg(3, Hdlg, 1018)
  1088.  
  1089. HourGlass(off)
  1090.  
  1091. <:#240,11376>End Function
  1092.  
  1093. <:#240,11376>
  1094.  
  1095. <:#240,11376>
  1096.  
  1097. @Subhead@<:#284,11376>Function CreateMyStyles()
  1098.  
  1099. <:#240,11376>ModifySelect("Table Text"   )
  1100.  
  1101. <:#240,11376>ModifyFont("Arial"  200 0 1  )
  1102.  
  1103. <:#240,11376>ModifyReflow( )
  1104.  
  1105. <:#240,11376>End Function
  1106.  
  1107. <:#240,11376>
  1108.  
  1109. <:#240,11376>
  1110.  
  1111. @Subhead@<:#284,11376>function DisplayHelp()
  1112.  
  1113. @Outline2@<:#240,11376>' two defines needed for help.  The help name and panel number are defined above
  1114.  
  1115. @Outline2@<:#240,11376>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  1116.  
  1117. @Outline2@<:#240,11376>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  1118.  
  1119. @Outline2@<:#240,11376>prohWnd = FindWindowa("AmiProWndA", 0)
  1120.  
  1121. @Outline2@<:#240,11376>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  1122.  
  1123. @Outline2@<:#240,11376>PanelNum= 45 
  1124.  
  1125. @Outline2@<:#240,11376>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  1126.  
  1127. @Outline2@<:#240,11376>end function
  1128.  
  1129. @Subhead@<:#284,11376>
  1130.  
  1131. <:#240,11376>
  1132.  
  1133. <:#240,11376>
  1134.  
  1135. <:#240,11376>
  1136.  
  1137. <:#240,11376>
  1138.  
  1139. <:p<* >>
  1140.  
  1141. @Subhead@<:#284,11376>Function FontDlg(Action, Hdlg, id)
  1142.  
  1143. <:#240,11376>' 1    Create a font and allocvar
  1144.  
  1145. <:#240,11376>' 2    Return the handle of the create font 
  1146.  
  1147. <:#240,11376>' 3    Set the id specified to the font
  1148.  
  1149. <:#240,11376>' 4    Freeglobalvar and delete created object
  1150.  
  1151. <:#240,11376>
  1152.  
  1153. <:#480,11376>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1154.  
  1155. <:#240,11376>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1156.  
  1157. <:#240,11376>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1158.  
  1159. <:#240,11376>
  1160.  
  1161. <:#240,11376>Switch Action
  1162.  
  1163. <:#240,11376>    Case 1    ' Create the font and store it
  1164.  
  1165. <:#240,11376>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1166.  
  1167. <:#240,11376>        AllocGlobalVar("FontHandle",1)
  1168.  
  1169. <:#240,11376>        If Font
  1170.  
  1171. <:#240,11376>            SetGlobalVar("FontHandle",Font)
  1172.  
  1173. <:#240,11376>            Return Font
  1174.  
  1175. <:#240,11376>        Else
  1176.  
  1177. <:#240,11376>            Return 0;    ' no font
  1178.  
  1179. <:#240,11376>        Endif
  1180.  
  1181. <:#240,11376>        Break;
  1182.  
  1183. <:#240,11376>    Case 2    ' Return the handle to the font
  1184.  
  1185. <:#240,11376>        Handle = GetGlobalVar$("FontHandle")
  1186.  
  1187. <:#240,11376>        If Handle 
  1188.  
  1189. <:#240,11376>            Return Handle
  1190.  
  1191. <:#240,11376>        Else
  1192.  
  1193. <:#240,11376>            Return 0
  1194.  
  1195. <:#240,11376>        Endif
  1196.  
  1197. <:#240,11376>
  1198.  
  1199. <:#240,11376>    Case 3    ' Set the id to the font
  1200.  
  1201. <:#240,11376>        Handle = GetGlobalVar$("FontHandle")
  1202.  
  1203. <:#240,11376>        If Handle 
  1204.  
  1205. <:#240,11376>            IdControl = GetDlgITem(Hdlg, id)
  1206.  
  1207. <:#240,11376>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1208.  
  1209. <:#240,11376>            Return 1
  1210.  
  1211. <:#240,11376>        Else
  1212.  
  1213. <:#240,11376>            Return 0
  1214.  
  1215. <:#240,11376>        Endif
  1216.  
  1217. <:#240,11376>        Break;        
  1218.  
  1219. <:#240,11376>        
  1220.  
  1221. <:#240,11376>    Case 4    ' Delete the font and clear the var
  1222.  
  1223. <:#240,11376>        Handle = GetGlobalVar$("FontHandle")
  1224.  
  1225. <:#240,11376>        If Handle
  1226.  
  1227. <:#240,11376>            DeleteObjectDLG(Handle)
  1228.  
  1229. <:#240,11376>            Stat = 1    
  1230.  
  1231. <:#240,11376>        Else
  1232.  
  1233. <:#240,11376>            Stat = 0
  1234.  
  1235. <:#240,11376>        Endif
  1236.  
  1237. <:#240,11376>        FreeGlobalVar("FontHandle")
  1238.  
  1239. <:#240,11376>        Return Stat        
  1240.  
  1241. <:#240,11376>    Default
  1242.  
  1243. <:#240,11376>        Message("Fontdlg received an invalid parameter {Action}")
  1244.  
  1245. <:#240,11376>EndSwitch    
  1246.  
  1247. <:#240,11376>
  1248.  
  1249. <:#240,11376>End Function
  1250.  
  1251. @Subhead@
  1252. @Subhead@<:#284,11376>Function CellEngine(Action, Formula)
  1253.  
  1254. <:#240,11376>'Available Actions
  1255.  
  1256. <:#240,11376>'    1         Start the engine and allocate globalvar
  1257.  
  1258. <:#240,11376>'    2        Return the handle to the instance of the sheet
  1259.  
  1260. <:#240,11376>'    3        Pass the formula as the second param
  1261.  
  1262. <:#240,11376>'    0        Shut everything down
  1263.  
  1264. <:#240,11376>'    Default    Expect a formula and return an answer
  1265.  
  1266. <:#240,11376>
  1267.  
  1268. <:#240,11376>' these defines may be useful at the beginning of your macro
  1269.  
  1270. <:#240,11376>Define StartEngine    1
  1271.  
  1272. <:#240,11376>Define GetInstance    2
  1273.  
  1274. <:#240,11376>Define CloseEngine    0
  1275.  
  1276. <:#240,11376>
  1277.  
  1278. <:#240,11376>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  1279.  
  1280. <:#240,11376>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  1281.  
  1282. <:#240,11376>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  1283.  
  1284. <:#240,11376>
  1285.  
  1286. <:#240,11376>DefStr hInstance, Answer, Var;
  1287.  
  1288. <:#240,11376>Mac = GetRunningMacroFile$()
  1289.  
  1290. <:#240,11376>GlobalInstance = StrCat$(Mac,"hIstance")
  1291.  
  1292. <:#240,11376>
  1293.  
  1294. <:#240,11376>Switch Action
  1295.  
  1296. <:#240,11376>    Case 1
  1297.  
  1298. <:#240,11376>        ' start the engine
  1299.  
  1300. <:#240,11376>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  1301.  
  1302. <:#240,11376>        If LibId = 0
  1303.  
  1304. <:#240,11376>            Message("LTSCE01.DLL not found.  Copy the dll to your windows directory")    
  1305.  
  1306. <:#240,11376>            Return -1;
  1307.  
  1308. <:#240,11376>        Endif
  1309.  
  1310. <:#240,11376>        RetVal = CECREATEINSTANCE(&hInstance)
  1311.  
  1312. <:#240,11376>        AllocGlobalVar("{GlobalInstance}",1)
  1313.  
  1314. <:#240,11376>        AllocGlobalVar("{Mac}LibId",1)
  1315.  
  1316. <:#240,11376>        SetGlobalVar("{Mac}Libid",LibId)
  1317.  
  1318. <:#240,11376>        SetGlobalVar("{GlobalInstance}",hInstance)
  1319.  
  1320. <:#240,11376>        Return hInstance;
  1321.  
  1322. <:#240,11376>        Break;
  1323.  
  1324. <:#240,11376>
  1325.  
  1326. <:#240,11376>    Case 2
  1327.  
  1328. <:#240,11376>        ' return the handle to the instance of the sheet
  1329.  
  1330. <:#240,11376>        AllocGlobalVar("{GlobalInstance}",1)
  1331.  
  1332. <:#240,11376>        hInstance = GetGlobalVar$("{GlobalInstance}")
  1333.  
  1334. <:#240,11376>        Return hInstance;
  1335.  
  1336. <:#240,11376>        Break;
  1337.  
  1338. <:#240,11376>
  1339.  
  1340. <:#240,11376>    Case 3
  1341.  
  1342. <:#240,11376>        ' Calculate the formula and return the answer
  1343.  
  1344. <:#240,11376>            AllocGlobalVar("{GlobalInstance}",1)
  1345.  
  1346. <:#240,11376>            hInstance = GetGlobalVar$("{GlobalInstance}")
  1347.  
  1348. <:#240,11376>            CECalcNow(hInstance,"{Formula}",&Answer)
  1349.  
  1350. <:#240,11376>            Return Answer;
  1351.  
  1352. <:#240,11376>        Break;
  1353.  
  1354. <:#240,11376>
  1355.  
  1356. <:#240,11376>    Case 0
  1357.  
  1358. <:#240,11376>        ' destroy the instance of the sheet and free the global var and libid
  1359.  
  1360. <:#240,11376>        AllocGlobalVar("{GlobalInstance}",1)
  1361.  
  1362. <:#240,11376>        AllocGlobalVar("{Mac}LibId",1)
  1363.  
  1364. <:#240,11376>        hInstance = GetGlobalVar$("{GlobalInstance}")
  1365.  
  1366.         LibId = GetGlobalVar$("{Mac}LibId")
  1367.  
  1368.         If hInstance
  1369.  
  1370.             CEDestroyInstance(hInstance)
  1371.  
  1372.             DllFreeLib(Libid)
  1373.  
  1374.         Endif
  1375.  
  1376.         FreeGlobalVar("{GlobalInstance}")
  1377.  
  1378.         FreeGlobalVar("{Mac}LibId")
  1379.  
  1380.         Break;
  1381.  
  1382.     Default
  1383.  
  1384. EndSwitch
  1385.  
  1386. End Function
  1387.  
  1388.  
  1389.  
  1390.  
  1391.  
  1392. DIALOG    Table
  1393.  
  1394. -2134376448    28    25    33    269    138    ""    "AmiDialog"    "Calculate Loan Payment Table"
  1395.  
  1396. FONT    8    "Helv"
  1397.  
  1398. 68    49    32    12    8000    1350631424    "edit"    ""    0 
  1399.  
  1400. 68    63    32    12    8001    1350631424    "edit"    ""    0 
  1401.  
  1402. 68    96    32    12    8002    1350631424    "edit"    ""    0 
  1403.  
  1404. 68    121    25    12    8003    1350631424    "edit"    ""    0 
  1405.  
  1406. 195    66    32    12    8004    1350631424    "edit"    ""    0 
  1407.  
  1408. 195    80    32    12    8005    1350631424    "edit"    ""    0 
  1409.  
  1410. 195    115    32    12    8006    1350631424    "edit"    ""    0 
  1411.  
  1412. 224    2    40    14    1    1342373889    "button"    "OK"    0 
  1413.  
  1414. 224    18    40    14    2    1342373888    "button"    "Cancel"    0 
  1415.  
  1416. 11    30    116    17    1000    1342177280    "static"    "Fillededit max and min"    0 
  1417.  
  1418. 153    83    36    10    1001    1342177280    "static"    "Minimum:"    0 
  1419.  
  1420. 25    52    34    10    1002    1342177280    "static"    "Maximum:"    0 
  1421.  
  1422. 137    48    126    17    1003    1342177280    "static"    "Filledit max min amt"    0 
  1423.  
  1424. 25    66    32    10    1004    1342177280    "static"    "Minimum:"    0 
  1425.  
  1426. 153    69    37    10    1005    1342177280    "static"    "Maximum:"    0 
  1427.  
  1428. 12    124    55    8    1006    1342177280    "static"    "Annual interest rate:"    0 
  1429.  
  1430. 25    99    40    10    1007    1342177280    "static"    "Step value:"    0 
  1431.  
  1432. 11    78    107    16    1008    1342177280    "static"    "Filledit dollar increments"    0 
  1433.  
  1434. 11    110    127    10    1009    1342177280    "static"    "FillEdit annual interest"    0 
  1435.  
  1436. 3    3    217    26    1010    1342177280    "static"    "Filledit lot of text"    0 
  1437.  
  1438. 137    97    130    16    1011    1342177280    "static"    "Filledit increments year"    0 
  1439.  
  1440. 153    118    36    10    1012    1342177280    "static"    "Step value:"    0 
  1441.  
  1442. 2    30    8    9    1013    1342177280    "static"    "1."    0 
  1443.  
  1444. 2    78    8    9    1014    1342177280    "static"    "2."    0 
  1445.  
  1446. 2    110    8    9    1015    1342177280    "static"    "3."    0 
  1447.  
  1448. 129    48    8    9    1016    1342177280    "static"    "4."    0 
  1449.  
  1450. 129    97    8    9    1017    1342177280    "static"    "5."    0 
  1451.  
  1452. 95    124    8    9    1018    1342177280    "static"    "%"    0 
  1453.  
  1454. END DIALOG
  1455.  
  1456. >
  1457.  
  1458. [Embedded]
  1459. 00019976
  1460. >
  1461. [macsum] 9
  1462. Main 0 0 11 29
  1463. DataCheck 1497 7 1 76
  1464. MakeTable 1796 7 7 101
  1465. InitDlg 3215 3 1 160
  1466. CreateMyStyles 3462 0 1 172
  1467. DisplayHelp 3549 0 4 179
  1468. FontDlg 3734 3 5 194
  1469. CellEngine 4580 2 8 250
  1470. Table 5527 0 -1 322
  1471. [macse]
  1472. 14 Main
  1473. 16 CellEngine 1 0
  1474. 16 FontDlg 1 0 0
  1475. 0 802
  1476. 13
  1477. 8 8
  1478. 0 16 "This function builds a Loan Payment table so you can compare how different combinations of principal amounts and lengths of time affect your monthly and/or total payments.  " "Fill out these questions, then click OK to build the loan table."
  1479. 13
  1480. 8 9
  1481. 0 31 1010 "{9}"
  1482. 0 31 1000 "What is the maximum and minimum amount of the loan you are considering?"
  1483. 0 31 1008 "What  increments for the loan do you want to evaluate?"
  1484. 0 31 1009 "What is the annual interest rate for this loan?"
  1485. 0 31 1003 "What is the maximum and minimum amount of time you are considering for the loan? (in years)"
  1486. 0 31 1011 "Over what increments of time do you want to evaluate this loan? (in years, so .5 = 1/2 year)"
  1487. 0 31 8000 "{1}"
  1488. 0 31 8001 "{2}"
  1489. 0 31 8002 "{3}"
  1490. 0 31 8003 "{4}"
  1491. 0 31 8004 "{5}"
  1492. 0 31 8005 "{6}"
  1493. 0 31 8006 "{7}"
  1494. 0 41 0 "{8}!InitDlg"
  1495. 0 47 112 "{8}!DisplayHelp"
  1496. 0 26 "." "Table"
  1497. 13
  1498. 8 10
  1499. 6 10
  1500. 5 1
  1501. 18 0
  1502. 11 00001448
  1503. 0 27 8000
  1504. 13
  1505. 5 1
  1506. 4 0
  1507. 8 1
  1508. 0 27 8001
  1509. 13
  1510. 5 1
  1511. 4 0
  1512. 8 2
  1513. 0 27 8002
  1514. 13
  1515. 5 1
  1516. 4 0
  1517. 8 3
  1518. 0 27 8003
  1519. 13
  1520. 5 1
  1521. 4 0
  1522. 8 4
  1523. 0 27 8004
  1524. 13
  1525. 5 1
  1526. 4 0
  1527. 8 5
  1528. 0 27 8005
  1529. 13
  1530. 5 1
  1531. 4 0
  1532. 8 6
  1533. 0 27 8006
  1534. 13
  1535. 5 1
  1536. 4 0
  1537. 8 7
  1538. 5 0
  1539. 16 DataCheck "{6}" "{5}" "{7}" "{2}" "{1}" "{3}" "{4}"
  1540. 13
  1541. 18 0
  1542. 11 00001352
  1543. 16 MakeTable "{6}" "{5}" "{7}" "{2}" "{1}" "{3}" "{4}"
  1544. 10 00001448
  1545. 0 3 "Some data necessary for the calculation was not provided." "Loan Calculator"
  1546. 10 00000320
  1547. 16 CellEngine 0 0
  1548. 16 FontDlg 4 0 0
  1549. 6 0
  1550. 15
  1551. 9
  1552. 14 DataCheck
  1553. 6 1
  1554. 5 1
  1555. 18 5
  1556. 6 0
  1557. 5 0
  1558. 18 5
  1559. 1 2
  1560. 11 00000077
  1561. 5 -1
  1562. 15
  1563. 9
  1564. 6 4
  1565. 5 1
  1566. 18 5
  1567. 6 3
  1568. 5 0
  1569. 18 5
  1570. 1 2
  1571. 11 00000140
  1572. 5 -1
  1573. 15
  1574. 9
  1575. 6 2
  1576. 5 0
  1577. 18 4
  1578. 6 5
  1579. 5 0
  1580. 18 4
  1581. 1 2
  1582. 11 00000203
  1583. 5 -1
  1584. 15
  1585. 9
  1586. 6 0
  1587. 6 1
  1588. 18 3
  1589. 11 00000245
  1590. 5 -1
  1591. 15
  1592. 9
  1593. 6 4
  1594. 6 3
  1595. 18 5
  1596. 11 00000287
  1597. 5 -1
  1598. 15
  1599. 9
  1600. 6 7
  1601. 15
  1602. 9
  1603. 14 MakeTable
  1604. 16 CellEngine 3 "@Int(({1}-{0})/{2})+2"
  1605. 13
  1606. 8 8
  1607. 6 8
  1608. 5 50
  1609. 18 3
  1610. 11 00000219
  1611. 0 2 "This will produce a table with over 50 rows.  Would you like to continue" "Ami Pro"
  1612. 13
  1613. 1 3
  1614. 11 00000219
  1615. 5 -1
  1616. 15
  1617. 9
  1618. 6 8
  1619. 5 1
  1620. 18 5
  1621. 11 00000258
  1622. 5 2
  1623. 8 8
  1624. 5 3
  1625. 8 9
  1626. 2 101 1 "_LoanPay.sty" 1 0
  1627. 13
  1628. 11 00000326
  1629. 10 00000404
  1630. 0 3 "The loan payment style sheet _LoanPay.sty was not opened."
  1631. 5 -1
  1632. 15
  1633. 9
  1634. 2 466 1 "IRate" 4002
  1635. 0 6 "{6}%"
  1636. 2 466 1 "MaxAmt" 4002
  1637. 0 6 "{4}"
  1638. 2 466 1 "MinAmt" 4002
  1639. 0 6 "{3}"
  1640. 2 466 1 "MaxYrs" 4002
  1641. 0 6 "{1} years"
  1642. 2 466 1 "MinYrs" 4002
  1643. 0 6 "{0} years"
  1644. 2 466 1 "Start" 4002
  1645. 2 457 1 1 1 "{8}" "{9}"
  1646. 6 6
  1647. 5 100
  1648. 4 1
  1649. 8 6
  1650. 0 6 "[9]"
  1651. 5 1
  1652. 8 10
  1653. 6 0
  1654. 8 11
  1655. 6 1
  1656. 6 11
  1657. 18 2
  1658. 12 00000766
  1659. 10 00000794
  1660. 6 2
  1661. 6 11
  1662. 3 0
  1663. 8 11
  1664. 10 00000688
  1665. 0 6 "{11}[9]"
  1666. 10 00000731
  1667. 6 3
  1668. 8 12
  1669. 6 4
  1670. 6 12
  1671. 18 2
  1672. 12 00000883
  1673. 10 00001392
  1674. 6 5
  1675. 6 12
  1676. 3 0
  1677. 8 12
  1678. 10 00000805
  1679. 2 632 1 64 63 0 8910 15724527
  1680. 0 6 "{12}[9]"
  1681. 6 0
  1682. 8 11
  1683. 6 1
  1684. 6 11
  1685. 18 2
  1686. 12 00001018
  1687. 10 00001132
  1688. 6 2
  1689. 6 11
  1690. 3 0
  1691. 8 11
  1692. 10 00000940
  1693. 16 CellEngine 3 "@Pmt({12},{6}/12,{11}*12)"
  1694. 13
  1695. 8 10
  1696. 2 632 1 64 63 0 8910 15724527
  1697. 0 6 "{10}[9]"
  1698. 10 00000983
  1699. 0 6 "[9]"
  1700. 2 627 1 1 0 0
  1701. 6 0
  1702. 8 11
  1703. 6 1
  1704. 6 11
  1705. 18 2
  1706. 12 00001247
  1707. 10 00001364
  1708. 6 2
  1709. 6 11
  1710. 3 0
  1711. 8 11
  1712. 10 00001169
  1713. 16 CellEngine 3 "@Pmt({12},{6}/12,{11}*12)"
  1714. 13
  1715. 8 10
  1716. 6 10
  1717. 6 11
  1718. 5 12
  1719. 4 0
  1720. 4 0
  1721. 8 13
  1722. 0 6 "{13}[9]"
  1723. 10 00001212
  1724. 2 627 1 1 0 0
  1725. 10 00000848
  1726. 0 6 "[16420]"
  1727. 6 7
  1728. 15
  1729. 9
  1730. 14 InitDlg
  1731. 0 32 2
  1732. 0 296 1
  1733. 5 1000
  1734. 8 1
  1735. 5 1012
  1736. 6 1
  1737. 18 2
  1738. 12 00000120
  1739. 10 00000201
  1740. 5 1
  1741. 6 1
  1742. 3 0
  1743. 8 1
  1744. 10 00000042
  1745. 16 FontDlg 3 "{0}" "{1}"
  1746. 5 7000
  1747. 6 1
  1748. 3 0
  1749. 16 FontDlg 3 "{0}" [X]
  1750. 10 00000087
  1751. 16 FontDlg 3 "{0}" 1018
  1752. 0 296 0
  1753. 6 3
  1754. 15
  1755. 9
  1756. 14 CreateMyStyles
  1757. 2 311 1 "Table Text"
  1758. 2 315 1 "Arial" 200 0 1
  1759. 2 319 1
  1760. 6 0
  1761. 15
  1762. 9
  1763. 14 DisplayHelp
  1764. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1765. 13
  1766. 8 1
  1767. 0 798
  1768. 13
  1769. 0 16 [X] "HelpPack.hlp"
  1770. 13
  1771. 8 2
  1772. 5 45
  1773. 8 3
  1774. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1775. 6 0
  1776. 15
  1777. 9
  1778. 14 FontDlg
  1779. 5 1
  1780. 6 0
  1781. 18 0
  1782. 11 00000255
  1783. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1784. 13
  1785. 8 4
  1786. 0 271 "FontHandle" 1
  1787. 6 4
  1788. 11 00000217
  1789. 0 264 "FontHandle" "{4}"
  1790. 6 4
  1791. 15
  1792. 9
  1793. 10 00000229
  1794. 5 0
  1795. 15
  1796. 9
  1797. 10 00000834
  1798. 10 00000834
  1799. 5 2
  1800. 6 0
  1801. 18 0
  1802. 11 00000381
  1803. 0 265 "FontHandle"
  1804. 13
  1805. 8 5
  1806. 6 5
  1807. 11 00000356
  1808. 6 5
  1809. 15
  1810. 9
  1811. 10 00000368
  1812. 5 0
  1813. 15
  1814. 9
  1815. 10 00000834
  1816. 5 3
  1817. 6 0
  1818. 18 0
  1819. 11 00000596
  1820. 0 265 "FontHandle"
  1821. 13
  1822. 8 5
  1823. 6 5
  1824. 11 00000558
  1825. 0 44 "{1}" "{2}"
  1826. 13
  1827. 8 6
  1828. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1829. 5 1
  1830. 15
  1831. 9
  1832. 10 00000570
  1833. 5 0
  1834. 15
  1835. 9
  1836. 10 00000834
  1837. 10 00000834
  1838. 5 4
  1839. 6 0
  1840. 18 0
  1841. 11 00000785
  1842. 0 265 "FontHandle"
  1843. 13
  1844. 8 5
  1845. 6 5
  1846. 11 00000730
  1847. 0 284 "gdi,DeleteObject,HH" "{5}"
  1848. 5 1
  1849. 8 7
  1850. 10 00000740
  1851. 5 0
  1852. 8 7
  1853. 0 266 "FontHandle"
  1854. 6 7
  1855. 15
  1856. 9
  1857. 10 00000834
  1858. 0 3 "Fontdlg received an invalid parameter {0}"
  1859. 6 3
  1860. 15
  1861. 9
  1862. 14 CellEngine
  1863. 0 802
  1864. 13
  1865. 8 6
  1866. 0 16 "{6}" "hIstance"
  1867. 13
  1868. 8 7
  1869. 5 1
  1870. 6 0
  1871. 18 0
  1872. 11 00000427
  1873. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1874. 13
  1875. 8 8
  1876. 6 8
  1877. 5 0
  1878. 18 0
  1879. 11 00000258
  1880. 0 3 "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  1881. 5 -1
  1882. 15
  1883. 9
  1884. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1885. 13
  1886. 8 9
  1887. 0 271 "{7}" 1
  1888. 0 271 "{6}LibId" 1
  1889. 0 264 "{6}Libid" "{8}"
  1890. 0 264 "{7}" "{3}"
  1891. 6 3
  1892. 15
  1893. 9
  1894. 10 00000935
  1895. 10 00000935
  1896. 5 2
  1897. 6 0
  1898. 18 0
  1899. 11 00000531
  1900. 0 271 "{7}" 1
  1901. 0 265 "{7}"
  1902. 13
  1903. 8 3
  1904. 6 3
  1905. 15
  1906. 9
  1907. 10 00000935
  1908. 10 00000935
  1909. 5 3
  1910. 6 0
  1911. 18 0
  1912. 11 00000686
  1913. 0 271 "{7}" 1
  1914. 0 265 "{7}"
  1915. 13
  1916. 8 3
  1917. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
  1918. 6 4
  1919. 15
  1920. 9
  1921. 10 00000935
  1922. 10 00000935
  1923. 5 0
  1924. 6 0
  1925. 18 0
  1926. 11 00000935
  1927. 0 271 "{7}" 1
  1928. 0 271 "{6}LibId" 1
  1929. 0 265 "{7}"
  1930. 13
  1931. 8 3
  1932. 0 265 "{6}LibId"
  1933. 13
  1934. 8 8
  1935. 6 3
  1936. 11 00000878
  1937. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1938. 0 298 "{8}"
  1939. 0 266 "{7}"
  1940. 0 266 "{6}LibId"
  1941. 10 00000935
  1942. 10 00000935
  1943. 6 2
  1944. 15
  1945. 9
  1946. DIALOG Table
  1947. -2134376448 28 25 33 269 138 "" "AmiDialog" "Calculate Loan Payment Table" 
  1948. FONT 8 "Helv" 
  1949. 68 49 32 12 8000 1350631424 "edit" "" 0 
  1950. 68 63 32 12 8001 1350631424 "edit" "" 0 
  1951. 68 96 32 12 8002 1350631424 "edit" "" 0 
  1952. 68 121 25 12 8003 1350631424 "edit" "" 0 
  1953. 195 66 32 12 8004 1350631424 "edit" "" 0 
  1954. 195 80 32 12 8005 1350631424 "edit" "" 0 
  1955. 195 115 32 12 8006 1350631424 "edit" "" 0 
  1956. 224 2 40 14 1 1342373889 "button" "OK" 0 
  1957. 224 18 40 14 2 1342373888 "button" "Cancel" 0 
  1958. 11 30 116 17 1000 1342177280 "static" "Fillededit max and min" 0 
  1959. 153 83 36 10 1001 1342177280 "static" "Minimum:" 0 
  1960. 25 52 34 10 1002 1342177280 "static" "Maximum:" 0 
  1961. 137 48 126 17 1003 1342177280 "static" "Filledit max min amt" 0 
  1962. 25 66 32 10 1004 1342177280 "static" "Minimum:" 0 
  1963. 153 69 37 10 1005 1342177280 "static" "Maximum:" 0 
  1964. 12 124 55 8 1006 1342177280 "static" "Annual interest rate:" 0 
  1965. 25 99 40 10 1007 1342177280 "static" "Step value:" 0 
  1966. 11 78 107 16 1008 1342177280 "static" "Filledit dollar increments" 0 
  1967. 11 110 127 10 1009 1342177280 "static" "FillEdit annual interest" 0 
  1968. 3 3 217 26 1010 1342177280 "static" "Filledit lot of text" 0 
  1969. 137 97 130 16 1011 1342177280 "static" "Filledit increments year" 0 
  1970. 153 118 36 10 1012 1342177280 "static" "Step value:" 0 
  1971. 2 30 8 9 1013 1342177280 "static" "1." 0 
  1972. 2 78 8 9 1014 1342177280 "static" "2." 0 
  1973. 2 110 8 9 1015 1342177280 "static" "3." 0 
  1974. 129 48 8 9 1016 1342177280 "static" "4." 0 
  1975. 129 97 8 9 1017 1342177280 "static" "5." 0 
  1976. 95 124 8 9 1018 1342177280 "static" "%" 0 
  1977. 00020001
  1978.