PC World Komputer 1998 July & August/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS009.DSK/QKSAVE.SMM

INI File | 1993-06-25 | 24KB | 1,789 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    QMS-PS 810
[port]
    LPT1:
[lang]
    1
[desc]
    Calculate how your savings will grow if you save a certain amount each month.




    741042405
    30
    732570070
    1733
    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]
        Arial
        200
        0
        16384
    [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 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]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    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
        1

        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
[lay]
    Standard
    516
    [rght]
        16833
        11908
        1
        576
        1440
        1
        1440
        504
        0
        1
        0
        1
        0
        2
        1
        576
        11401
        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
        11908
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        11908
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        2
        2
        4680
        3
        9360
    [txt]
Peyton McMansu

Lotus WPD

>
    [frght]
    [lyfrm]
        1
        13248
        0
        15393
        11908
        16833
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        16833
        11908
        1
        1440
        792
        1
        15465
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        2
        2
        4680
        3
        9360
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    57 0 17 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
[edoc]
@Outline2@<:#231,10825>

<:#231,10825>

<:#231,10825>Define    GetPrefix()    GetGlobalVar$("Prefix")

<:#231,10825>Define    GetSuffix()    GetGlobalVar$("Suffix")

<:#231,10825>

<:#231,10825>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

<:#231,10825>

<:#231,10825>

<:#231,10825>Declare FontDlg(Action, Hdlg, id)

<:#231,10825>Declare CellEngine(action)

<:#231,10825>Declare GetMarkValue(Bookmarkname)

<:#231,10825>Declare    StrPath(Filename)

<:#231,10825>Declare    GetFormats(Action)

<:#231,10825>

<:#231,10825><:X3,-32768;Include "Amixlate.sam!common">Define    NotFound    "LTSCE01.DLL not found.  Copy the dll to your windows directory"

@Outline3@<:#231,10825>Define    ErrorMessage    "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."<:X~3,-32768;Include "Amixlate.sam!common">

<:#231,10825>

<:#462,10825><:X3,-32768;Include "Amixlate.sam!qksave">Define    Descript    "Enter the information below to calculate how your savings will grow if you save a certain amount each month."

@Outline3@<:#231,10825>Define  NumDec    2

@Outline3@<:#231,10825>Define    Formula    "@FV({Savings};{Interest}/12/100;{Months})"<:X~3,-32768;Include "Amixlate.sam!qksave">

<:#231,10825>

@Subhead@<:#284,10825>Function Main(Principal, Interest, Term)

<:#231,10825>DefStr hInstance;

<:#231,10825>Mac = GetRunningMacroFile$()

<:#231,10825>MacPath = StrPath(Mac)

<:#231,10825>FontDlg(1,0,0)

<:#231,10825>CellEngine(1)

<:#231,10825>GetFormats(1)    ' International function

<:#231,10825>

<:#231,10825>SetDlgCallBack(0,"{Mac}!InitDlg")

<:#231,10825>FillEdit(1001, Descript)

<:#231,10825>Bitmap = "{Macpath}qkSave.bmt"

<:#231,10825>FillEdit(1003,Bitmap)

<:#231,10825>

<+@><:#231,10825>

<:#231,10825>SetDlgCallBack(8000,"{Mac}!DataChange")

<:#231,10825>SetDlgCallBack(8001,"{Mac}!DataChange")

<:#231,10825>SetDlgCallBack(8002,"{Mac}!DataChange")

<:#231,10825>SetDlgCallBack(21,"{Mac}!DataChange")

@Outline3@<:#231,10825>DlgKeyInterrupt(112, "{mac}!DisplayHelp")

@Outline3@<:#231,10825>

<:#231,10825>

<:#231,10825>Box = DialogBox(".","QkSave")

<:#231,10825>If Box = 3

<:#231,10825>    ' this is the copy section

<:#231,10825>    Answer = GetDialogField$(8011)

<:#231,10825>    ClipBoardWrite(Answer, 1)

<:#231,10825>Endif

<:#231,10825>

<:#231,10825>FontDlg(4,0,0)        ' Destroy the font

<:#231,10825>CellEngine(0)        ' Shut down the engine

<:#231,10825>GetFormats(0)        ' Free the international stuff

<:#231,10825>End function

<:#231,10825>

<:#231,10825>

@Subhead@<:#284,10825>Function DataChange(Hdlg, id, value)

<:#231,10825>IgnoreKeyBoard(2)

<:#231,10825>DefStr Allowance;

<:#231,10825>Savings = GetDlgItemText(hDlg, 8000)

<:#231,10825>Months = GetDlgItemText(hDlg, 8001)

<:#231,10825>Interest = GetDlgItemText(Hdlg, 8002)

<:#231,10825>Answer = CellEngine(Formula)

<:#231,10825>Total = FormatNum$(GetPrefix(),GetSuffix(),NumDec,Answer * 1)

<:#231,10825>

<:#231,10825>SetDlgItemText(hDlg, 8011, Total)

<:#231,10825>End Function

@Subhead@<:#284,10825>

@Subhead@<:#284,10825>Function InitDlg(hDlg, id, value)

<:#231,10825>' use the fontdlg function to display the following control with a small font

<:#231,10825>IgnoreKeyBoard(2)

<:#231,10825>HourGlass(on)

<:#231,10825>FontDlg(3,Hdlg, 1000)

<:#231,10825>FontDlg(3, Hdlg, 1001)

<:#231,10825>FontDlg(3, Hdlg, 1004)

<:#231,10825>FontDlg(3, Hdlg, 1005)

<:#231,10825>FontDlg(3, Hdlg, 1006)

<:#231,10825>FontDlg(3, Hdlg, 8000)

<:#231,10825>FontDlg(3, Hdlg, 8001)

<:#231,10825>FontDlg(3, Hdlg, 8002)

<:#231,10825>FontDlg(3, Hdlg, 21)

<:#231,10825>FontDlg(3, Hdlg, 1007)

<:#231,10825>FontDlg(3, Hdlg, 1008)

<:#231,10825>FontDlg(3, Hdlg, 8011)

<:#231,10825>HourGlass(off)

<:#231,10825>End Function

<:#231,10825>

@Subhead@<:#284,10825>function DisplayHelp()

@Outline2@<:#231,10825>' two defines needed for help.  The help name and panel number are defined above

@Outline2@<:#231,10825>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)

@Outline2@<:#231,10825>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

@Outline2@<:#231,10825>prohWnd = FindWindowa("AmiProWndA", 0)

@Outline2@<:#231,10825>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")

@Outline2@<:#231,10825>PanelNum= 35

@Outline2@<:#231,10825>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)

@Outline2@<:#231,10825>end function

@Subhead@<:#284,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>function strpath(filename)

<:#231,10825>defstr char;

<:#231,10825>Length = len(FileName)

<:#231,10825>WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))

<:#231,10825>    Length = Length - 1

<:#231,10825>WEND

<:#231,10825>InFileName = Right$(FileName, (len(FileName) - Length))

<:#231,10825>InDir = Left$(FileName, Length - 1)

<:#231,10825>if right$(indir, 1) <<<;> "\"

<:#231,10825>    indir = strcat$(indir, "\")

<:#231,10825>endif

<:#231,10825>return indir

<:#231,10825>end function

<:#231,10825>

<:#231,10825>

@Subhead@<:#284,10825><:f,BArial,>Function GetFormats<:f><:f,BArial,>(Action)

<:#231,10825><:f,BArial,>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")

<:#231,10825>currency = GetProfileString$("Intl","sCurrency","Win.ini")

<:#231,10825><:f,BArial,>AllocGlobalVar("Prefix",1)

<:#231,10825><:f,BArial,>AllocGlobalVar("Suffix",1)<:f>

<:#231,10825><:f,BArial,>

<:#231,10825><:f,BArial,>Switch Action

<:#231,10825><:f,BArial,>    Case 1     ' turn this on

<:#231,10825><:f,BArial,>        Switch iCurrency

<:#231,10825><:f,BArial,>            Case 0

<:#231,10825><:f,BArial,>                Prefix = Currency<:f>

<:#231,10825><:f,BArial,>                Suffix = ""

<:#231,10825><:f,BArial,>            Case 1

<:#231,10825><:f,BArial,>                Prefix = ""

<:#231,10825><:f,BArial,>                Suffix = Currency<:f>

<:#231,10825><:f,BArial,>            Case 2

<:#231,10825><:f,BArial,>                Prefix = StrCat$(Currency," ")

<:#231,10825><:f,BArial,>                Suffix = ""

<:#231,10825>        <:f,BArial,>    Case 3

<:#231,10825><:f,BArial,>                Prefix = ""

<:#231,10825><:f,BArial,>                Suffix = StrCat$(" ",Currency)

<:#231,10825><:f,BArial,>        endSwitch

<:#231,10825><:f,BArial,>        SetGlobalVar("Suffix",Suffix)

<:#231,10825><:f,BArial,>        SetGlobalVar("Prefix",Prefix)

<:#231,10825><:f,BArial,>

<:#231,10825><:f,BArial,>    Case 0    ' free globals

<:#231,10825><:f,BArial,>        FreeGlobalVar("Suffix")

<:#231,10825><:f,BArial,>        FreeGlobalVar("Prefix")

<:#231,10825><:f,BArial,>

<:#231,10825><:f,BArial,>EndSwitch

<:#231,10825><:f,BArial,>End Function

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:p<* >>

@Subhead@<:#284,10825>Function CellEngine(Action)

<:#231,10825>'Available Actions

<:#231,10825>'    1         Start the engine and allocate globalvar

<:#231,10825>'    2        Return the handle to the instance of the sheet

<:#231,10825>'    0        Shut everything down

<:#231,10825>'    Default    Expect a formula and return an answer

<:#231,10825>

<:#231,10825>' these defines may be useful at the beginning of your macro

<:#231,10825>Define StartEngine    1

<:#231,10825>Define GetInstance    2

<:#231,10825>Define CloseEngine    0

<:#231,10825>

<:#231,10825>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)

<:#231,10825>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)

<:#462,10825>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)

<:#231,10825>

<:#231,10825>DefStr hInstance, Answer, Var;

<:#231,10825>Mac = GetRunningMacroFile$()

<:#231,10825>GlobalInstance = StrCat$(Mac,"hIstance")

<:#231,10825>

<:#231,10825>Switch Action

<:#231,10825>    Case 1

<:#231,10825>        ' start the engine

<:#231,10825>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")

<:#231,10825>        If LibId = 0

<:#231,10825>            Message(ErrorMessage)

<:#231,10825>            Return -1;

<:#231,10825>        Endif

<:#231,10825>        RetVal = CECREATEINSTANCE(&hInstance)

<:#231,10825>        AllocGlobalVar("{GlobalInstance}",1)

<:#231,10825>        AllocGlobalVar("{Mac}LibId",1)

<:#231,10825>        SetGlobalVar("{Mac}Libid",LibId)

<:#231,10825>        SetGlobalVar("{GlobalInstance}",hInstance)

<:#231,10825>        Return hInstance;

<:#231,10825>        Break;

<:#231,10825>

<:#231,10825>    Case 2

<:#231,10825>        ' return the handle to the instance of the sheet

<:#231,10825>        AllocGlobalVar("{GlobalInstance}",1)

<:#231,10825>        hInstance = GetGlobalVar$("{GlobalInstance}")

<:#231,10825>        Return hInstance;

<:#231,10825>        Break;

<:#231,10825>

<:#231,10825>    Case 0

<:#231,10825>        ' destroy the instance of the sheet and free the global var and libid

<:#231,10825>        AllocGlobalVar("{GlobalInstance}",1)

<:#231,10825>        AllocGlobalVar("{Mac}LibId",1)

<:#231,10825>        hInstance = GetGlobalVar$("{GlobalInstance}")

<:#231,10825>        LibId = GetGlobalVar$("{Mac}LibId")

<:#231,10825>        If hInstance

<:#231,10825>            CEDestroyInstance(hInstance)

<:#231,10825>            DllFreeLib(Libid)

<:#231,10825>        Endif

<:#231,10825>        FreeGlobalVar("{GlobalInstance}")

<:#231,10825>        FreeGlobalVar("{Mac}LibId")

<:#231,10825>        Break;

<:#231,10825>

<:#231,10825>    Default

<:#231,10825>        ' Calculate the formula and return the answer

<:#231,10825>            AllocGlobalVar("{GlobalInstance}",1)

<:#231,10825>            hInstance = GetGlobalVar$("{GlobalInstance}")

<:#231,10825>            CECalcNow(hInstance,"{Action}",&Answer)

<:#231,10825>            Return Answer;

<:#231,10825>        Break;

<:#231,10825>EndSwitch

<:#231,10825>End Function

@Subhead@<:#284,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

@Subhead@<:#284,10825>Function FontDlg(Action, Hdlg, id)

<:#231,10825>' 1    Create a font and allocvar

<:#231,10825>' 2    Return the handle of the create font

<:#231,10825>' 3    Set the id specified to the font

<:#231,10825>' 4    Freeglobalvar and delete created object

<:#231,10825>

@Outline2@<:#462,10825>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

@Outline2@<:#231,10825>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)

@Outline2@<:#231,10825>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

@Outline2@<:#231,10825>

@Outline2@<:#231,10825>

<:#231,10825>Switch Action

<:#231,10825>    Case 1    ' Create the font and store it

@Outline2@<:#231,10825>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")

<:#231,10825>        AllocGlobalVar("FontHandle",1)

<:#231,10825>        If Font

<:#231,10825>            SetGlobalVar("FontHandle",Font)

<:#231,10825>            Return Font

<:#231,10825>        Else

<:#231,10825>            Return 0;    ' no font

<:#231,10825>        Endif

<:#231,10825>        Break;

<:#231,10825>    Case 2    ' Return the handle to the font

<:#231,10825>        Handle = GetGlobalVar$("FontHandle")

<:#231,10825>        If Handle

<:#231,10825>            Return Handle

<:#231,10825>        Else

<:#231,10825>            Return 0

<:#231,10825>        Endif

<:#231,10825>

<:#231,10825>    Case 3    ' Set the id to the font

<:#231,10825>        Handle = GetGlobalVar$("FontHandle")

<:#231,10825>        If Handle

<:#231,10825>            IdControl = GetDlgITem(Hdlg, id)

<:#231,10825>            SendMessageDlg(idControl, 0x30, Handle, 0)

<:#231,10825>            Return 1

<:#231,10825>        Else

<:#231,10825>            Return 0

<:#231,10825>        Endif

<:#231,10825>        Break;

<:#231,10825>

<:#231,10825>    Case 4    ' Delete the font and clear the var

<:#231,10825>        Handle = GetGlobalVar$("FontHandle")

<:#231,10825>        If Handle

<:#231,10825>            DeleteObjectDLG(Handle)

<:#231,10825>            Stat = 1

<:#231,10825>        Else

<:#231,10825>            Stat = 0

<:#231,10825>        Endif

<:#231,10825>        FreeGlobalVar("FontHandle")

<:#231,10825>        Return Stat

<:#231,10825>    Default

<:#231,10825>EndSwitch

<:#231,10825>

<:#231,10825>End Function

@Subhead@<:#284,10825>

@Subhead@<:#284,10825>

<:#231,10825>

@Subhead@<:#284,10825>Function GetMarkValue(Name)

<:#231,10825>' This retrieves a value from the bookmark name and returns the value

<:#231,10825>' If the bookmark does not exit, a "" is returned

<:#231,10825>If Name = ""

<:#231,10825>    Return Name

<:#231,10825>Endif

<:#231,10825>Exist = EvalField("If Defined {Name} {Name} Else 0")

<:#231,10825>If Exist

<:#231,10825>    Value= EvalField("{Name}")

<:#231,10825>    If -1 != Strchr(1,Value, "<;>")

<:#231,10825>        If -1 = Assign(&Value, StrField$(Value, 2, "<;>"))

<:#231,10825>        Endif

<:#231,10825>    Endif

<:#231,10825>Else

<:#231,10825>    Value = ""

<:#231,10825>Endif

<:#231,10825>Return Value;

<:#231,10825>End Function

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>

<:#231,10825>DIALOG    QkSave

<:#231,10825>-2134376448    13    62    30    171    112    ""    "AmiDialog"    "Calculate Savings Account"

<:#231,10825>FONT    8    "Helv"

<:#231,10825>97    29    17    12    8002    1350631424    "edit"    ""    0

<:#231,10825>67    44    24    12    8000    1350631424    "edit"    ""    0

<:#231,10825>67    59    24    12    8001    1350631424    "edit"    ""    0

<:#231,10825>127    3    40    14    1    1342373889    "button"    "Done"    0

<:#231,10825>2    46    63    8    1004    1342177280    "static"    "Savings per month:"    0

<:#231,10825>2    60    52    8    1005    1342177280    "static"    "Number of months:"    0

<:#462,10825>2    32    90    8    1006    1342177280    "static"    "Interest rate of savings account:"    0

<:#231,10825>2    3    108    24    1001    1342177280    "static"    ""    0

<:#231,10825>3    73    79    33    20    1342308359    "button"    "Total savings"    0

<:#231,10825>116    30    6    10    1000    1342177280    "static"    "%"    0

<:#231,10825>12    88    60    8    8011    1342177281    "static"    ""    0

<:#231,10825>92    41    55    47    1003    1342177290    "static"    "filename.bmp"    0

<:#231,10825>127    19    40    14    3    1342373888    "button"    "Copy"    0

<:#231,10825>END DIALOG

>

[Embedded]
00018756
>
[macsum] 10
Main 0 3 7 21
DataChange 584 3 7 55
InitDlg 854 3 1 67
DisplayHelp 1202 0 4 86
strpath 1387 1 5 99
GetFormats 1708 1 5 114
CellEngine 2277 1 8 151
FontDlg 3203 3 5 222
GetMarkValue 4000 1 3 280
QkSave 4305 0 -1 311
[macse]
14 Main
0 802
13
8 5
16 StrPath "{5}"
13
8 6
16 FontDlg 1 0 0
16 CellEngine 1
16 GetFormats 1
0 41 0 "{5}!InitDlg"
0 31 1001 "Enter the information below to calculate how your savings will grow if you save a certain amount each month."
7 "{6}qkSave.bmt"
8 7
0 31 1003 "{7}"
0 41 8000 "{5}!DataChange"
0 41 8001 "{5}!DataChange"
0 41 8002 "{5}!DataChange"
0 41 21 "{5}!DataChange"
0 47 112 "{5}!DisplayHelp"
0 26 "." "QkSave"
13
8 8
6 8
5 3
18 0
11 00000520
0 27 8011
13
8 9
0 1038 "{9}" 1
16 FontDlg 4 0 0
16 CellEngine 0
16 GetFormats 0
6 3
15
9
14 DataChange
0 32 2
0 42 "{0}" 8000
13
8 5
0 42 "{0}" 8001
13
8 6
0 42 "{0}" 8002
13
8 7
16 CellEngine "@FV({5};{7}/12/100;{6})"
13
8 8
0 265 "Prefix"
13
0 265 "Suffix"
13
6 8
5 1
4 0
0 19 [X] [X] 2 [X]
13
8 9
0 43 "{0}" 8011 "{9}"
6 3
15
9
14 InitDlg
0 32 2
0 296 1
16 FontDlg 3 "{0}" 1000
16 FontDlg 3 "{0}" 1001
16 FontDlg 3 "{0}" 1004
16 FontDlg 3 "{0}" 1005
16 FontDlg 3 "{0}" 1006
16 FontDlg 3 "{0}" 8000
16 FontDlg 3 "{0}" 8001
16 FontDlg 3 "{0}" 8002
16 FontDlg 3 "{0}" 21
16 FontDlg 3 "{0}" 1007
16 FontDlg 3 "{0}" 1008
16 FontDlg 3 "{0}" 8011
0 296 0
6 3
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 35
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 strpath
0 14 "{0}"
13
8 3
7 "\"
0 15 "{0}" "{3}" 1
13
0 805 &2 [X]
13
18 1
11 00000134
6 3
5 1
3 1
8 3
10 00000033
0 14 "{0}"
13
6 3
3 1
0 807 "{0}" [X]
13
8 4
6 3
5 1
3 1
0 806 "{0}" [X]
13
8 5
0 807 "{5}" 1
13
7 "\"
18 1
11 00000297
0 16 "{5}" "\"
13
8 5
6 5
15
9
6 1
15
9
14 GetFormats
0 286 "Intl" "iCurrency" "Win.ini"
13
8 2
0 286 "Intl" "sCurrency" "Win.ini"
13
8 3
0 271 "Prefix" 1
0 271 "Suffix" 1
5 1
6 0
18 0
11 00000496
5 0
6 2
18 0
11 00000233
6 3
8 4
7 ""
8 5
10 00000439
5 1
6 2
18 0
11 00000296
7 ""
8 4
6 3
8 5
10 00000439
5 2
6 2
18 0
11 00000374
0 16 "{3}" " "
13
8 4
7 ""
8 5
10 00000439
5 3
6 2
18 0
11 00000439
7 ""
8 4
0 16 " " "{3}"
13
8 5
0 264 "Suffix" "{5}"
0 264 "Prefix" "{4}"
10 00000557
5 0
6 0
18 0
11 00000557
0 266 "Suffix"
0 266 "Prefix"
6 1
15
9
14 CellEngine
0 802
13
8 5
0 16 "{5}" "hIstance"
13
8 6
5 1
6 0
18 0
11 00000448
0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
13
8 7
6 7
5 0
18 0
11 00000279
0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
5 -1
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &2
13
8 8
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 264 "{5}Libid" "{7}"
0 264 "{6}" "{2}"
6 2
15
9
10 00000914
10 00000914
5 2
6 0
18 0
11 00000552
0 271 "{6}" 1
0 265 "{6}"
13
8 2
6 2
15
9
10 00000914
10 00000914
5 0
6 0
18 0
11 00000801
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 265 "{6}"
13
8 2
0 265 "{5}LibId"
13
8 7
6 2
11 00000744
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{2}"
0 298 "{7}"
0 266 "{6}"
0 266 "{5}LibId"
10 00000914
10 00000914
0 271 "{6}" 1
0 265 "{6}"
13
8 2
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{2}" "{0}" &3
6 3
15
9
10 00000914
6 1
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 00000785
10 00000785
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 00000785
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 00000785
10 00000785
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 00000785
6 3
15
9
14 GetMarkValue
6 0
7 ""
18 0
11 00000059
6 0
15
9
0 1289 "If Defined {0} {0} Else 0"
13
8 2
6 2
11 00000270
0 1289 "{0}"
13
8 3
5 -1
0 13 1 "{3}" ">"
13
18 1
11 00000257
5 -1
0 20 "{3}" 2 ">"
13
0 805 &3 [X]
13
18 0
11 00000257
10 00000281
7 ""
8 3
6 3
15
9
6 1
15
9
DIALOG QkSave
-2134376448 13 62 30 171 112 "" "AmiDialog" "Calculate Savings Account"
FONT 8 "Helv"
97 29 17 12 8002 1350631424 "edit" "" 0
67 44 24 12 8000 1350631424 "edit" "" 0
67 59 24 12 8001 1350631424 "edit" "" 0
127 3 40 14 1 1342373889 "button" "Done" 0
2 46 63 8 1004 1342177280 "static" "Savings per month:" 0
2 60 52 8 1005 1342177280 "static" "Number of months:" 0
2 32 90 8 1006 1342177280 "static" "Interest rate of savings account:" 0
2 3 108 24 1001 1342177280 "static" "" 0
3 73 79 33 20 1342308359 "button" "Total savings" 0
116 30 6 10 1000 1342177280 "static" "%" 0
12 88 60 8 8011 1342177281 "static" "" 0
92 41 55 47 1003 1342177290 "static" "filename.bmp" 0
127 19 40 14 3 1342373888 "button" "Copy" 0
00018781