home *** CD-ROM | disk | FTP | other *** search
INI File | 1994-08-14 | 28.0 KB | 1,989 lines
[ver] 4 [sty] [files] [charset] 82 CHINESEBIG5 (Windows) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [desc] º╓│t½╪Ñ▀╢U┤┌└v┴┘¬φ 773106598 33 733534631 921 7 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Body Text 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Table Text 12 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Table Text 0 0 [lay] Standard 513 [rght] 15840 12240 1 432 720 1 1080 432 0 1 0 1 0 2 1 432 11808 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1080 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1080 12240 1 1440 0 1 288 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] Peyton McManus Lotus WPD > [frght] [lyfrm] 1 13248 0 15120 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 648 1 15192 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 7 56 0 9 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 112 0 5 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 168 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 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 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 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 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 [edoc] <:#240,11376>Declare CellEngine(Action, Formula) <:#240,11376>Declare FontDlg(Action, Hdlg, id) <:#240,11376>Declare CreateMyStyles() <:#240,11376>Declare DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate) <:#240,11376>Declare MakeTable(MinYears, MaxYears, StepYears, MinAmount, MaxAmount, StepAmount, InterestRate) <:s><:#240,11376> <:#240,11376>Define EnableWindow() DllCall("User,EnableWindow,AHA",%1,%2) <:s><:#240,11376> <:s><:#240,11376> <:#240,11376>Define ErrorMessage "The loan payment style sheet _LoanPay.sty was not opened." <:#240,11376>Define ErrorMessage2 "Some data necessary for the calculation was not provided." <:s><:#240,11376> <:#480,11376>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. " <:#240,11376>Define Desc2 "Fill out these questions, then click OK to build the loan table." <:s><:#240,11376> <:#240,11376>Define QuestionText "This will produce a table with over 50 rows. Would you like to continue" <:s><:#240,11376> <:s><:#240,11376> <:#240,11376>Define cAmount "What is the maximum and minimum amount of the loan you are considering?" <:#240,11376>Define cLoanStep "What increments for the loan do you want to evaluate?" <:#240,11376>Define cRate "What is the annual interest rate for this loan?" <:#240,11376>Define cTime "What is the maximum and minimum amount of time you are considering for the loan? (in years)" <:#240,11376>Define cIncrement "Over what increments of time do you want to evaluate this loan? (in years, so .5 = 1/2 year)" <:s><:#240,11376> <:#240,11376>Define AppName "Loan Calculator" <:#240,11376> <:#240,11376>Define CreateShade() TableLines(64 63 0 8910 15724527 ) <:#240,11376> <:#240,11376> @Subhead@<:#284,11376>Function Main() <:#240,11376>DefStr MaxAmt, MinAmt, StepAmt, Irate, MaxYrs, MinYrs, StepYrs; <:#240,11376>CellEngine(1,0) ' Start engine <:#240,11376>FontDlg(1,0,0) ' Create a small font for some of the controls in the dialog box <:#240,11376> <:#240,11376>Mac = GetRunningMacroFile$() <:#240,11376>Descript = Strcat$(Desc, Desc2) <:#240,11376>Again: <:#240,11376>FillEdit( 1010, Descript) <:#240,11376>FillEdit(1000, cAmount) <:#240,11376>FillEdit(1008, cLoanStep) <:#240,11376>FillEdit(1009, cRate) <:#240,11376>FillEdit(1003, cTime) <:#240,11376>FillEdit(1011, cIncrement) <:#240,11376>FillEdit(8000, MaxAmt) <:#240,11376>FillEdit(8001, MinAmt) <:#240,11376>FillEdit(8002, StepAmt) <:#240,11376>FillEdit(8003, Irate) <:#240,11376>FillEdit(8004, MaxYrs) <:#240,11376>FillEdit(8005, MinYrs) <:#240,11376>FillEdit(8006, StepYrs) <:#240,11376>SetDlgCallBack(0,"{Mac}!InitDlg") @Outline3@<:#240,11376> @Outline3@<:#240,11376>DlgKeyInterrupt(112, "{mac}!DisplayHelp") @Outline3@<:#240,11376> <:#240,11376>Box = DialogBox(".","Table") <:#240,11376>If Box =1 <:#240,11376> MaxAmt = GetDialogField$(8000) *1 <:#240,11376> MinAmt = GetDialogField$(8001) * 1 <:#240,11376> StepAmt = GetDialogField$(8002) * 1 <:#240,11376> IRate = GetDialogField$(8003) * 1 <:#240,11376> MaxYrs = GetDialogField$(8004) * 1 <:#240,11376> MinYrs = GetDialogField$(8005) * 1 <:#240,11376> StepYrs = GetDialogField$(8006) * 1 <:#236,11376> If 0 = DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate) <:#240,11376> ' Data is ok <:#236,11376> MakeTable(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate) <:#240,11376> Else <:#240,11376> Message(ErrorMessage2,AppName) <:#240,11376> Goto Again <:#240,11376> Endif <:#240,11376>Endif <:#240,11376>CellEngine(0,0) ' shut down the dll and free global var <:#240,11376>FontDlg(4,0,0) ' Destroy the small font and free the global var <:#240,11376>End Function <:#240,11376> <:#240,11376> @Subhead@<:#279,11376>Function DataCheck(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate) <:#236,11376>If (MaxYrs << 1) or (MinYrs << 0) <:#236,11376> Return -1 <:#236,11376>Endif <:#236,11376> <:#236,11376>If (MaxAmt << 1) or (MinAmt << 0) <:#236,11376> Return -1 <:#236,11376>Endif <:#236,11376> <:#236,11376>IF (StepYrs <<= 0) or (StepAmt <<=0) <:#236,11376> Return -1 <:#236,11376>Endif <:#236,11376> <:#236,11376>If MinYrs <;> MaxYrs; <:#236,11376> Return -1 <:#236,11376>Endif <:#236,11376> <:#236,11376>If MaxAmt << MinAmt; <:#236,11376> Return -1 <:#236,11376>Endif <:#236,11376>End Function @Subhead@<:#279,11376> <:#236,11376> <:#236,11376> <:#236,11376> @Subhead@<:#284,11376>Function MakeTable(MinYrs, MaxYrs, StepYrs, MinAmt, MaxAmt, StepAmt, IRate) <:#240,11376> <:#240,11376>NumberCols = CellEngine(3,"@Int(({MaxYrs}-{MinYrs})/{StepYrs})+2") <:#240,11376>If NumberCols <;> 50 <:#240,11376> If Not Decide(QuestionText,"Ami Pro") <:#240,11376> Return -1 <:#240,11376> Endif <:#240,11376>Endif <:#240,11376>If NumberCols <<1 <:#240,11376> NumberCols =2 <:#240,11376>Endif <:#240,11376>NumberRows = 3 <:#240,11376>If New("_LoanPay.sty" 1 0 ) <:#240,11376>Else <:#240,11376> Message(ErrorMessage) <:#240,11376> Return -1 <:#240,11376>Endif <:#240,11376> <:#240,11376>MarkBookMark("IRate",FindBookMark) <:#240,11376> Type("{Irate}%") <:#240,11376> MarkbookMark("MaxAmt",FindBookMark) <:#240,11376> Type("{MaxAmt}") <:#240,11376>MarkBookMark("MinAmt",FindBookMark) <:#240,11376> Type("{MinAmt}") <:#240,11376>MarkBookMark("MaxYrs",FindBookMark) <:#240,11376> Type("{MaxYrs} years") <:#240,11376>MarkBookMark("MinYrs",FindBookMark) <:#240,11376> Type("{MinYrs} years") <:#240,11376>MarkBookMark("Start",FindBookMark) <:#240,11376>Tables(1 1 NumberCols, NumberRows ) <:#240,11376>Irate = Irate / 100 <:#240,11376>Type("<[>Tab]") <:#240,11376>Answer = 1 <:#240,11376>For Term = MinYrs to MaxYrs Step StepYrs <:#240,11376> Type("{Term}<[>Tab]") <:#240,11376>Next <:#240,11376>For Amount = MinAmt to MaxAmt Step StepAmt <:#240,11376> Createshade() <:#240,11376> Type ("{Amount}<[>Tab]") <:#240,11376> For Term = MinYrs to MaxYrs Step StepYrs <:#240,11376> Answer = CellEngine(3,"@Pmt({Amount},{IRate}/12,{Term}*12)") <:#240,11376> CreateShade() <:#240,11376> Type("{Answer}<[>Tab]") <:#240,11376> Next <:#240,11376> Type ("<[>Tab]") <:#240,11376> InsertColumnRow(1 0 0 ) <:#240,11376> <:#240,11376> For Term = MinYrs to MaxYrs Step StepYrs <:#240,11376> Answer = CellEngine(3,"@Pmt({Amount},{IRate}/12,{Term}*12)") <:#240,11376> Total = Answer *(Term * 12) <:#240,11376> Type("{Total}<[>Tab]") <:#240,11376> Next <:#240,11376> InsertColumnRow(1 0 0 ) <:#240,11376>Next <:#240,11376>Type("<[>CtrlHome]") <:#240,11376>End Function @Subhead@<:#284,11376> <:#240,11376> <:#240,11376> @Subhead@<:#284,11376>Function InitDlg(hDlg, id, Value) <:#240,11376>IgnoreKeyBoard(2) <:#240,11376>HourGlass(on) <:#240,11376>For id = 1000 to 1012 <:#240,11376> FontDlg(3, Hdlg, id) <:#240,11376> FontDlg(3, Hdlg, 7000 + id) <:#240,11376>Next <:#240,11376>FontDlg(3, Hdlg, 1018) <:#240,11376>HourGlass(off) <:#240,11376>End Function <:#240,11376> <:#240,11376> @Subhead@<:#284,11376>Function CreateMyStyles() <:#240,11376>ModifySelect("Table Text" ) <:#240,11376>ModifyFont("Arial" 200 0 1 ) <:#240,11376>ModifyReflow( ) <:#240,11376>End Function <:#240,11376> <:#240,11376> @Subhead@<:#284,11376>function DisplayHelp() @Outline2@<:#240,11376>' two defines needed for help. The help name and panel number are defined above @Outline2@<:#240,11376>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2) @Outline2@<:#240,11376>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4) @Outline2@<:#240,11376>prohWnd = FindWindowa("AmiProWndA", 0) @Outline2@<:#240,11376>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp") @Outline2@<:#240,11376>PanelNum= 45 @Outline2@<:#240,11376>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum) @Outline2@<:#240,11376>end function @Subhead@<:#284,11376> <:#240,11376> <:#240,11376> <:#240,11376> <:#240,11376> <:p<* >> @Subhead@<:#284,11376>Function FontDlg(Action, Hdlg, id) <:#240,11376>' 1 Create a font and allocvar <:#240,11376>' 2 Return the handle of the create font <:#240,11376>' 3 Set the id specified to the font <:#240,11376>' 4 Freeglobalvar and delete created object <:#240,11376> <:#480,11376>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14) <:#240,11376>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1) <:#240,11376>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4) <:#240,11376> <:#240,11376>Switch Action <:#240,11376> Case 1 ' Create the font and store it <:#240,11376> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv") <:#240,11376> AllocGlobalVar("FontHandle",1) <:#240,11376> If Font <:#240,11376> SetGlobalVar("FontHandle",Font) <:#240,11376> Return Font <:#240,11376> Else <:#240,11376> Return 0; ' no font <:#240,11376> Endif <:#240,11376> Break; <:#240,11376> Case 2 ' Return the handle to the font <:#240,11376> Handle = GetGlobalVar$("FontHandle") <:#240,11376> If Handle <:#240,11376> Return Handle <:#240,11376> Else <:#240,11376> Return 0 <:#240,11376> Endif <:#240,11376> <:#240,11376> Case 3 ' Set the id to the font <:#240,11376> Handle = GetGlobalVar$("FontHandle") <:#240,11376> If Handle <:#240,11376> IdControl = GetDlgITem(Hdlg, id) <:#240,11376> SendMessageDlg(idControl, 0x30, Handle, 0) <:#240,11376> Return 1 <:#240,11376> Else <:#240,11376> Return 0 <:#240,11376> Endif <:#240,11376> Break; <:#240,11376> <:#240,11376> Case 4 ' Delete the font and clear the var <:#240,11376> Handle = GetGlobalVar$("FontHandle") <:#240,11376> If Handle <:#240,11376> DeleteObjectDLG(Handle) <:#240,11376> Stat = 1 <:#240,11376> Else <:#240,11376> Stat = 0 <:#240,11376> Endif <:#240,11376> FreeGlobalVar("FontHandle") <:#240,11376> Return Stat <:#240,11376> Default <:#240,11376> Message("Fontdlg received an invalid parameter {Action}") <:#240,11376>EndSwitch <:#240,11376> <:#240,11376>End Function @Subhead@<:#284,11376> @Subhead@<:#284,11376>Function CellEngine(Action, Formula) <:#240,11376>'Available Actions <:#240,11376>' 1 Start the engine and allocate globalvar <:#240,11376>' 2 Return the handle to the instance of the sheet <:#240,11376>' 3 Pass the formula as the second param <:#240,11376>' 0 Shut everything down <:#240,11376>' Default Expect a formula and return an answer <:#240,11376> <:#240,11376>' these defines may be useful at the beginning of your macro <:#240,11376>Define StartEngine 1 <:#240,11376>Define GetInstance 2 <:#240,11376>Define CloseEngine 0 <:#240,11376> <:#240,11376>Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1) <:#240,11376>Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1) <:#240,11376>Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3) <:#240,11376> <:#240,11376>DefStr hInstance, Answer, Var; <:#240,11376>Mac = GetRunningMacroFile$() <:#240,11376>GlobalInstance = StrCat$(Mac,"hIstance") <:#240,11376> <:#240,11376>Switch Action <:#240,11376> Case 1 <:#240,11376> ' start the engine <:#240,11376> LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO") <:#240,11376> If LibId = 0 <:#240,11376> Message("LTSCE01.DLL not found. Copy the dll to your windows directory") <:#240,11376> Return -1; <:#240,11376> Endif <:#240,11376> RetVal = CECREATEINSTANCE(&hInstance) <:#240,11376> AllocGlobalVar("{GlobalInstance}",1) <:#240,11376> AllocGlobalVar("{Mac}LibId",1) <:#240,11376> SetGlobalVar("{Mac}Libid",LibId) <:#240,11376> SetGlobalVar("{GlobalInstance}",hInstance) <:#240,11376> Return hInstance; <:#240,11376> Break; <:#240,11376> <:#240,11376> Case 2 <:#240,11376> ' return the handle to the instance of the sheet <:#240,11376> AllocGlobalVar("{GlobalInstance}",1) <:#240,11376> hInstance = GetGlobalVar$("{GlobalInstance}") <:#240,11376> Return hInstance; <:#240,11376> Break; <:#240,11376> <:#240,11376> Case 3 <:#240,11376> ' Calculate the formula and return the answer <:#240,11376> AllocGlobalVar("{GlobalInstance}",1) <:#240,11376> hInstance = GetGlobalVar$("{GlobalInstance}") <:#240,11376> CECalcNow(hInstance,"{Formula}",&Answer) <:#240,11376> Return Answer; <:#240,11376> Break; <:#240,11376> <:#240,11376> Case 0 <:#240,11376> ' destroy the instance of the sheet and free the global var and libid <:#240,11376> AllocGlobalVar("{GlobalInstance}",1) <:#240,11376> AllocGlobalVar("{Mac}LibId",1) <:#240,11376> hInstance = GetGlobalVar$("{GlobalInstance}") <:#240,11376> LibId = GetGlobalVar$("{Mac}LibId") <:#240,11376> If hInstance <:#240,11376> CEDestroyInstance(hInstance) <:#240,11376> DllFreeLib(Libid) <:#240,11376> Endif <:#240,11376> FreeGlobalVar("{GlobalInstance}") <:#240,11376> FreeGlobalVar("{Mac}LibId") <:#240,11376> Break; <:#240,11376> Default <:#240,11376>EndSwitch <:#240,11376>End Function <:#240,11376> <:#240,11376> <:#240,11376> <:#240,11376> <:#240,11376>DIALOG Table <:#240,11376>-2134376448 28 25 33 269 138 "" "AmiDialog" "Calculate Loan Payment Table" <:#240,11376>FONT 8 "Helv" <:#240,11376>68 49 32 12 8000 1350631424 "edit" "" 0 <:#240,11376>68 63 32 12 8001 1350631424 "edit" "" 0 <:#240,11376>68 96 32 12 8002 1350631424 "edit" "" 0 <:#240,11376>68 121 25 12 8003 1350631424 "edit" "" 0 <:#240,11376>195 66 32 12 8004 1350631424 "edit" "" 0 <:#240,11376>195 80 32 12 8005 1350631424 "edit" "" 0 <:#240,11376>195 115 32 12 8006 1350631424 "edit" "" 0 <:#240,11376>224 2 40 14 1 1342373889 "button" "OK" 0 <:#240,11376>224 18 40 14 2 1342373888 "button" "Cancel" 0 <:#240,11376>11 30 116 17 1000 1342177280 "static" "Fillededit max and min" 0 <:#240,11376>153 83 36 10 1001 1342177280 "static" "Minimum:" 0 <:#240,11376>25 52 34 10 1002 1342177280 "static" "Maximum:" 0 <:#240,11376>137 48 126 17 1003 1342177280 "static" "Filledit max min amt" 0 <:#240,11376>25 66 32 10 1004 1342177280 "static" "Minimum:" 0 <:#240,11376>153 69 37 10 1005 1342177280 "static" "Maximum:" 0 <:#240,11376>12 124 55 8 1006 1342177280 "static" "Annual interest rate:" 0 <:#240,11376>25 99 40 10 1007 1342177280 "static" "Step value:" 0 <:#240,11376>11 78 107 16 1008 1342177280 "static" "Filledit dollar increments" 0 <:#240,11376>11 110 127 10 1009 1342177280 "static" "FillEdit annual interest" 0 <:#240,11376>3 3 217 26 1010 1342177280 "static" "Filledit lot of text" 0 <:#240,11376>137 97 130 16 1011 1342177280 "static" "Filledit increments year" 0 <:#240,11376>153 118 36 10 1012 1342177280 "static" "Step value:" 0 <:#240,11376>2 30 8 9 1013 1342177280 "static" "1." 0 <:#240,11376>2 78 8 9 1014 1342177280 "static" "2." 0 <:#240,11376>2 110 8 9 1015 1342177280 "static" "3." 0 <:#240,11376>129 48 8 9 1016 1342177280 "static" "4." 0 <:#240,11376>129 97 8 9 1017 1342177280 "static" "5." 0 <:#240,11376>95 124 8 9 1018 1342177280 "static" "%" 0 <:#240,11376>END DIALOG > [Embedded] 00021356 > [macsum] 9 Main 0 0 11 29 DataCheck 1497 7 1 76 MakeTable 1796 7 7 101 InitDlg 3215 3 1 160 CreateMyStyles 3462 0 1 172 DisplayHelp 3549 0 4 179 FontDlg 3734 3 5 194 CellEngine 4580 2 8 250 Table 5527 0 -1 322 [macse] 14 Main 16 CellEngine 1 0 16 FontDlg 1 0 0 0 802 13 8 8 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." 13 8 9 0 31 1010 "{9}" 0 31 1000 "What is the maximum and minimum amount of the loan you are considering?" 0 31 1008 "What increments for the loan do you want to evaluate?" 0 31 1009 "What is the annual interest rate for this loan?" 0 31 1003 "What is the maximum and minimum amount of time you are considering for the loan? (in years)" 0 31 1011 "Over what increments of time do you want to evaluate this loan? (in years, so .5 = 1/2 year)" 0 31 8000 "{1}" 0 31 8001 "{2}" 0 31 8002 "{3}" 0 31 8003 "{4}" 0 31 8004 "{5}" 0 31 8005 "{6}" 0 31 8006 "{7}" 0 41 0 "{8}!InitDlg" 0 47 112 "{8}!DisplayHelp" 0 26 "." "Table" 13 8 10 6 10 5 1 18 0 11 00001448 0 27 8000 13 5 1 4 0 8 1 0 27 8001 13 5 1 4 0 8 2 0 27 8002 13 5 1 4 0 8 3 0 27 8003 13 5 1 4 0 8 4 0 27 8004 13 5 1 4 0 8 5 0 27 8005 13 5 1 4 0 8 6 0 27 8006 13 5 1 4 0 8 7 5 0 16 DataCheck "{6}" "{5}" "{7}" "{2}" "{1}" "{3}" "{4}" 13 18 0 11 00001352 16 MakeTable "{6}" "{5}" "{7}" "{2}" "{1}" "{3}" "{4}" 10 00001448 0 3 "Some data necessary for the calculation was not provided." "Loan Calculator" 10 00000320 16 CellEngine 0 0 16 FontDlg 4 0 0 6 0 15 9 14 DataCheck 6 1 5 1 18 5 6 0 5 0 18 5 1 2 11 00000077 5 -1 15 9 6 4 5 1 18 5 6 3 5 0 18 5 1 2 11 00000140 5 -1 15 9 6 2 5 0 18 4 6 5 5 0 18 4 1 2 11 00000203 5 -1 15 9 6 0 6 1 18 3 11 00000245 5 -1 15 9 6 4 6 3 18 5 11 00000287 5 -1 15 9 6 7 15 9 14 MakeTable 16 CellEngine 3 "@Int(({1}-{0})/{2})+2" 13 8 8 6 8 5 50 18 3 11 00000219 0 2 "This will produce a table with over 50 rows. Would you like to continue" "Ami Pro" 13 1 3 11 00000219 5 -1 15 9 6 8 5 1 18 5 11 00000258 5 2 8 8 5 3 8 9 2 101 1 "_LoanPay.sty" 1 0 13 11 00000326 10 00000404 0 3 "The loan payment style sheet _LoanPay.sty was not opened." 5 -1 15 9 2 466 1 "IRate" 4002 0 6 "{6}%" 2 466 1 "MaxAmt" 4002 0 6 "{4}" 2 466 1 "MinAmt" 4002 0 6 "{3}" 2 466 1 "MaxYrs" 4002 0 6 "{1} years" 2 466 1 "MinYrs" 4002 0 6 "{0} years" 2 466 1 "Start" 4002 2 457 1 1 1 "{8}" "{9}" 6 6 5 100 4 1 8 6 0 6 "[9]" 5 1 8 10 6 0 8 11 6 1 6 11 18 2 12 00000766 10 00000794 6 2 6 11 3 0 8 11 10 00000688 0 6 "{11}[9]" 10 00000731 6 3 8 12 6 4 6 12 18 2 12 00000883 10 00001392 6 5 6 12 3 0 8 12 10 00000805 2 632 1 64 63 0 8910 15724527 0 6 "{12}[9]" 6 0 8 11 6 1 6 11 18 2 12 00001018 10 00001132 6 2 6 11 3 0 8 11 10 00000940 16 CellEngine 3 "@Pmt({12},{6}/12,{11}*12)" 13 8 10 2 632 1 64 63 0 8910 15724527 0 6 "{10}[9]" 10 00000983 0 6 "[9]" 2 627 1 1 0 0 6 0 8 11 6 1 6 11 18 2 12 00001247 10 00001364 6 2 6 11 3 0 8 11 10 00001169 16 CellEngine 3 "@Pmt({12},{6}/12,{11}*12)" 13 8 10 6 10 6 11 5 12 4 0 4 0 8 13 0 6 "{13}[9]" 10 00001212 2 627 1 1 0 0 10 00000848 0 6 "[16420]" 6 7 15 9 14 InitDlg 0 32 2 0 296 1 5 1000 8 1 5 1012 6 1 18 2 12 00000120 10 00000201 5 1 6 1 3 0 8 1 10 00000042 16 FontDlg 3 "{0}" "{1}" 5 7000 6 1 3 0 16 FontDlg 3 "{0}" [X] 10 00000087 16 FontDlg 3 "{0}" 1018 0 296 0 6 3 15 9 14 CreateMyStyles 2 311 1 "Table Text" 2 315 1 "Arial" 200 0 1 2 319 1 6 0 15 9 14 DisplayHelp 0 284 "user,FindWindow,HCC" "AmiProWndA" 0 13 8 1 0 798 13 0 16 [X] "HelpPack.hlp" 13 8 2 5 45 8 3 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}" 6 0 15 9 14 FontDlg 5 1 6 0 18 0 11 00000255 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv" 13 8 4 0 271 "FontHandle" 1 6 4 11 00000217 0 264 "FontHandle" "{4}" 6 4 15 9 10 00000229 5 0 15 9 10 00000834 10 00000834 5 2 6 0 18 0 11 00000381 0 265 "FontHandle" 13 8 5 6 5 11 00000356 6 5 15 9 10 00000368 5 0 15 9 10 00000834 5 3 6 0 18 0 11 00000596 0 265 "FontHandle" 13 8 5 6 5 11 00000558 0 44 "{1}" "{2}" 13 8 6 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0 5 1 15 9 10 00000570 5 0 15 9 10 00000834 10 00000834 5 4 6 0 18 0 11 00000785 0 265 "FontHandle" 13 8 5 6 5 11 00000730 0 284 "gdi,DeleteObject,HH" "{5}" 5 1 8 7 10 00000740 5 0 8 7 0 266 "FontHandle" 6 7 15 9 10 00000834 0 3 "Fontdlg received an invalid parameter {0}" 6 3 15 9 14 CellEngine 0 802 13 8 6 0 16 "{6}" "hIstance" 13 8 7 5 1 6 0 18 0 11 00000427 0 297 "LTSCE01.DLL" "CECreateInstance" "HO" 13 8 8 6 8 5 0 18 0 11 00000258 0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory" 5 -1 15 9 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3 13 8 9 0 271 "{7}" 1 0 271 "{6}LibId" 1 0 264 "{6}Libid" "{8}" 0 264 "{7}" "{3}" 6 3 15 9 10 00000935 10 00000935 5 2 6 0 18 0 11 00000531 0 271 "{7}" 1 0 265 "{7}" 13 8 3 6 3 15 9 10 00000935 10 00000935 5 3 6 0 18 0 11 00000686 0 271 "{7}" 1 0 265 "{7}" 13 8 3 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4 6 4 15 9 10 00000935 10 00000935 5 0 6 0 18 0 11 00000935 0 271 "{7}" 1 0 271 "{6}LibId" 1 0 265 "{7}" 13 8 3 0 265 "{6}LibId" 13 8 8 6 3 11 00000878 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}" 0 298 "{8}" 0 266 "{7}" 0 266 "{6}LibId" 10 00000935 10 00000935 6 2 15 9 DIALOG Table -2134376448 28 25 33 269 138 "" "AmiDialog" "Calculate Loan Payment Table" FONT 8 "Helv" 68 49 32 12 8000 1350631424 "edit" "" 0 68 63 32 12 8001 1350631424 "edit" "" 0 68 96 32 12 8002 1350631424 "edit" "" 0 68 121 25 12 8003 1350631424 "edit" "" 0 195 66 32 12 8004 1350631424 "edit" "" 0 195 80 32 12 8005 1350631424 "edit" "" 0 195 115 32 12 8006 1350631424 "edit" "" 0 224 2 40 14 1 1342373889 "button" "OK" 0 224 18 40 14 2 1342373888 "button" "Cancel" 0 11 30 116 17 1000 1342177280 "static" "Fillededit max and min" 0 153 83 36 10 1001 1342177280 "static" "Minimum:" 0 25 52 34 10 1002 1342177280 "static" "Maximum:" 0 137 48 126 17 1003 1342177280 "static" "Filledit max min amt" 0 25 66 32 10 1004 1342177280 "static" "Minimum:" 0 153 69 37 10 1005 1342177280 "static" "Maximum:" 0 12 124 55 8 1006 1342177280 "static" "Annual interest rate:" 0 25 99 40 10 1007 1342177280 "static" "Step value:" 0 11 78 107 16 1008 1342177280 "static" "Filledit dollar increments" 0 11 110 127 10 1009 1342177280 "static" "FillEdit annual interest" 0 3 3 217 26 1010 1342177280 "static" "Filledit lot of text" 0 137 97 130 16 1011 1342177280 "static" "Filledit increments year" 0 153 118 36 10 1012 1342177280 "static" "Step value:" 0 2 30 8 9 1013 1342177280 "static" "1." 0 2 78 8 9 1014 1342177280 "static" "2." 0 2 110 8 9 1015 1342177280 "static" "3." 0 129 48 8 9 1016 1342177280 "static" "4." 0 129 97 8 9 1017 1342177280 "static" "5." 0 95 124 8 9 1018 1342177280 "static" "%" 0 00021381 
