C #   '  >0@-_        _    ,Arial-8 0Cy,Times New Roman8 0Cy!@!@!@!@ !@!@!@ !@!@! @! @! @!@#P$- #P #P$- #P$- #P` #P>- #P` #P - #P - # P - # P- # P - # P ` # P - #P` #P - #P #P - #P - #P - #P- #P - #P- #P- #P - #P - #P>` #P - ##P - #$P  #%P - #&P - #'P>- #(P #*P  #,P  #-P>e- #/P  #0P  `P `P*2Q?{Gzd?{Gz?  -$$$$$$$$ $ $CC DF03>PMTC(   8;( v  Loan Payments Table(`   z@<<@123>>PMTC(   8;%%T%S' HzG?' Q?%T%% % %a' Rrc@' =^l׆@' >ȕL@' ^}‡@' [[8d:@' ia@' Bܾ,@'  Ҩ@'  `wB#@%f' It Y@' L@' zxv@' ?@' Ԃp@' {(@' Syn@'  @'  or@%lk' AUw㗠@'  + @' W( @' 5 4#@' 1q@' O+@' ݯX8@'  .X8@'  P/@%Np' 86m*@' `,D@' zHEˊ@' OPYS@' \ ܋@' ͟ ug@' gu@'  @'  {?@%0u' /%݊@' 2q&h@' @' i $~@' @' A@' ձ5@'  x0Ɏ@'  (]@%z' '{O@' ͵2H@' MW:@' 5pݣ@' zrFH@' yߎ@' {Sw@'  )@'  I3V@%~'  @' ̃>@' ~I@' `#@' ]u@' ؂ @' Ũ]@'  aֈ@'  ˀ}@%փ' )t9@' :?K֎@'  0t@' E5 @' 8?Z@' @' H4@'  KQ@'  6ZƤ@%'  !X@' eWe@' ū5O@' h[* @' Zٍ@' J@' fR@'  ]O@'  *{L@%' L;@' YS1b@' zVR@' pP{:@' 2ܻ@' #-C.@' p@@'  Ym@'  Y6Z@%|' ~.ʐ@' !@' .Vpy@' v/ґ@' D*+@' -IA@' !2%@'  =@'  Y+򣚓@%^' B`Y@'  )>@' A@' Aj@' Z-zxƒ@' 7eT$@' +\M@'  &@'  qA@%@' un(@' dKE@' Vu@' dT@' a@' A!h“@' 4h#@'  Pj @'  Ŷh7@%"' qx@' mJ ؒ@' M^8@' (g@' (@' K*C{`@' >BĔ@'  B*@'  |#@%' l/@' Oj@' ͓ܶ@' y2@' Zc@' U3@' H+f@'  BsΕ@'  E2B7@%' `t@' ?vV@' Vc@' B4Nʔ@' "P3@' _<á@' Qp'@'  H4ӣr@'  t臚ߖ@% ȯ' dM&@' fܮ@' kDg @' [b@' &Ε@' iE:@' [_E@' wd@' U^@%!' !AG@' !,b @' ! w=@' ![@' ![M6i@' !sN Dؖ@' !ecI@' ! @' ! T-@%"' "[rDD@' " @' "V["@' "27Ē@' "E@' "}W)v@' "n? @' " ?dž5_@' "  YԘ@%#n' #")ԕ@' #;o=E@' #ox@' #uH*@' #&T@' #`E@' #x'}@' # Af@' # 1;|@%$P' $Rrc@' $=^lז@' $>ȕL@' $^}—@' $[[8d:@' $ia@' $Bܾ,@' $ Ҩ@' $ `wB#@'Variables(4 v ,%Version1_Count%': version counter(D v ( %Width(@|'; Monitor width in pixels(L v )%Custom_Size(#Y@ @U.'; Custom size based on lookup into table(\ v *%CurrentSize(#Y@ @U'; current size "Width"CustomSize ': Screen size lookup table(l v +%Scrn_Size_Table%%@% % % % @!%  % &% @% *( v 3%Is_Canada( v 4%Pop_Lookup '? 1 'A:D8 '? 2 'A:B16 '? 3 'A:D7( v -%Lookup_Cell(# @U A:D7( v &%Current_Pop '? 34'Bold items are referenced to duplicate strings'Table Sheet Strings'RangeNames 'Strings 'T_1'Loan Payments 'T_2'Input Data 'T_3'Loan Principal Amount 'T_4'Annual Interest Rate 'T_5'Loan Period in Years 'T_6 'Low 'T_7 'High 'T_8 'Increment 'T_9 'Loan Payments Table'Button Strings'RangeNames 'Strings '%B_1&'Update Loan Payments Table Below"'Sheet names must be in order'Sheet Strings'RangeNames 'Strings '%S_1'LoanTable '%S_2'WorkArea '%S_3 'Strings '%S_4 'Scripts'Function Strings'RangeNames 'Strings '%F_1'screen-width '%F_2 'US Dollar !'%F_3 !'PerCent$'Range Strings%'RangeNames %'Strings &'%R_1&'%Current_Pop ''%R_2''Input Data for Loan Table ('%R_3 ('%Width )'%R_4)'%Custom_Size *'%R_5*'%CurrentSize +'%R_6+'%Scrn_Size_Table ,'%R_7,'%Version1_Count -'%R_8-'%Lookup_Cell .'%R_9.'%Data_01 /'%R_10/'%Table_range 0'%R_11 0'Blank 1'%R_12(1 v '1Input Data for Loan Table 2'%R_132'Original 3'%R_143'%Is_Canada 4'%R_154'%Pop_Lookup8'FileInfo Strings9'RangeNames 9'Strings :'%D_1:'SmartMasters ;'%D_2;'Calculate Loan Payments <'%D_3k<'Calculate monthly loan payments for various loan amounts, interest rates, and loan term combinations.?'Pop-up Strings@'RangeNames @'Strings A'%P_1A'Enter low and high values for the amount you want to borrow and the interest rate you expect to pay. Enter increments to use between these values. B'%P_2B'Look for the monthly payment that best suits your needs. Use these values in the Loan Amortization SmartMaster for payment breakdown information.  C'%P_3ZC'Click here to select a version of your data. See Help for more details on versions.B@  B@  BC%L_R1  88P5@ ``??~P85~P8@5    6 66666666 666%     u   8  .  P! P&P#P'P-P,P*P P $P/P P PPP$P/P P PP$P/P P $P/P P P$P/P P $P/P$P/P0P%PPPP PPP PP PP P P(PPPP PP%PPPP  PP PPP PPPP  PPP PPP PPP PPP PPP PP P PPP P%PP%P P%PPP PPP PPP PPP PPP P%PPP P P  @@@ AA@AAAAA@ %%AAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAA AAAAAA        p   AZ A A A-- AZ A A- I A A- IY I A  A    A  A  A  A A  A0        3  A   A b   "Brian MurrayLotus Notes %Brian Murray/CAM/LotusOTES Brian MurrayOTES %Harry Preble/CAM/LotusOTES 0}c\@D:\DATA\MYAMORT2.WK4 j ,/E.\@<>/D:\PREBUILT\KIT\SMASTERS\Loantbl1.12m 3%L_R1Input Data for Loan Table Blank%L_R1 /7V{@Blank%L_R1Blank 5 8|@Blank%L_R1Blank/Blank                            ,Input Data for Loan Table%L_R1 F7V{@Input Data for Loan Table%L_R1Original q 8|@Input Data for Loan Table%L_R1Input Data for Loan Table/Input Data for Loan Table     P@  (\?       P@   ףp= ף?       @ @   ףp= ף?  @b2v _Wv BBi1'dDefaultBBb8h88=/1'dBBL B>8#Z$ 8# '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Init Declare Sub SM1 Declare Sub SM3 Declare Sub SM2 Declare Sub Select_H Declare Sub DeSelect_H Declare Sub SM5 Declare Sub formatter '++LotusScript Development Environment:2:5:(Declarations):0:10 '++LotusScript Development Environment:2:2:Init:1:8 Sub Init [].Maximize End Sub '++LotusScript Development Environment:2:2:SM1:1:8 Sub SM1 [E7].Select .ShowAutomaticPageBreaks=False Set .CurrentPrintSettings.PrintRange = [%Table_range] .CurrentPrintSettings.PrintWhat = $CurrentSelection .CurrentPrintSettings.FooterCenter = "" .CurrentPrintSettings.Orientation = $Portrait .CurrentPrintSettings.FitToPage = $FitRowsAndColumns .CurrentPrintSettings.LeftMargin = 1080 .CurrentPrintSettings.TopMargin = 1080 .CurrentPrintSettings.RightMargin = 1080 .CurrentPrintSettings.BottomMargin = 1080 [].ShowDrawLayer = False [].ShowVersionBorders = False CurrentAp plication.Print [].ShowDrawLayer = True [].ShowVersionBorders = True End Sub '++LotusScript Development Environment:2:2:SM3:1:8 Sub SM3 [E7].Select Dim HRV As Integer HRV = Shell("WINHLP32.EXE -I H_WORKING_WITH_SMARTMASTER_TEMPLATES_OVER SS1N70EN.HLP", 1) End Sub '++LotusScript Development Environment:2:2:SM2:1:8 Sub SM2 [E7].Select [].ShowDrawLayer = False [].ShowVersionBorders = False [%Table_range].CopyToClipboard $BitMapFormat [].SendMail , , "Loan Payments", , , , $Clipboard [].ShowDrawLayer = True [].ShowVersionBorders = True End Sub '++LotusScript Development Environment:2:2:Select_H:1:8 Sub Select_H Dim X As String Dim A As EditText Dim CS As Range X = Right$( Cstr( .Name), 1) [%Current_Pop].Contents = "? " + X [%Lookup_Cell].RecalcRange $Columns Set CS = Bind( [%Lookup_Cell].CellValue) CS.Select Set A = Bind ("TextControl " + X) A.IsLocked = False If A.Visible = True Then A.Visible = False Else A.Visible = True End If A.IsLocked = True End Sub '++LotusScript Development Environment:2:2:DeSelect_H:1:8 Sub DeSelect_H Dim X As String Dim A As EditText Dim CS As Range X = Right$( Cstr( .Name), 1) Set A = Bind (.Name) [%Current_Pop].Contents = "? " + X [%Lookup_Cell].RecalcRange $Columns Set CS = Bind( [%Lookup_Cell].CellValue) CS.Select A.IsLocked = False A.Visible = False A.IsLocked = True End Sub '++LotusScript Development Environment:2:2:SM5:1:8 Sub SM5 CurrentApplication.UpdateSheetDisplay = False Dim TableRange As Range Dim LL As String Dim UR As String If [D9].CellValue + [F9].CellValue >[E9].CellValue Then Exit Sub End If [B16].Select .MoveCellPointer $EndDown, 1 LL = .Name [B16].Select .MoveCellPointer $EndRight, 1 UR = .Name Set TableRange = Bind( LL + ".." + UR) TableRange.Cut [B12].QuickCopy [B16] [B17..B8192].Select .RangeFill [D9].CellValue, [F9].CellValue, [E9].CellValue, $Number [B17].Select .MoveCellPointer $EndDown, 1 LL = .Name Set TableRange = Bind( "B17" + ".." + LL) TableRange.FormatName = "US Dollar" Tab leRange.FormatDecimals = 0 TableRange.RightBorder.Style = $SolidBorder TableRange.GridBorder.Color.ColorName = "50% gray" TableRange.Font.Bold = True [C16..IV16].Select .RangeFill [D10].CellValue, [F10].CellValue, [E10].CellValue, $Number [C16].Select .MoveCellPointer $EndRight, 1 UR = .Name Set TableRange = Bind( "C16" + ".." + UR) TableRange.FormatName = "PerCent" TableRange.FormatDecimals = 2 TableRange.BottomBorder.Style = $SolidBorder TableRange.TextHorizontalAlign = $AlignRight TableRange.GridBorder.Color.ColorName = "50% gray" TableRange.Font.Bold = True Set TableRange = Bind( LL + ".." + UR) [].WhatIfTable2 TableRange, [B14], [C14] TableRange.TextSize = 10 [C17].Select .MoveCellPointer $EndHome, 1 Set TableRange = Bind ( "C17.." & .Name) TableRange.FormatName = "US Dollar" TableRange.FormatDecimals = 2 TableRange.TextHorizontalAlign = $AlignRight .MoveCellPointer $EndHome, 1 Set TableRange = Bind ( "B2.." & .Name) .CreateRangeName "%Table_range", TableRange .MoveCellPointer 8 $Home, 1 CurrentApplication.UpdateSheetDisplay = True End Sub '++LotusScript Development Environment:2:2:formatter:1:8 Sub formatter If .CountryCode <> 1 Then If [].Revs = 0 Then If .CountryCode = 2 Then [%Is_Canada].Contents = "1" [].MacrorunText "/{r 7}~{r}~{r}~~~~" End If .macroruntext "/{r}~~{r 2}~2~a:d9..a:f9~" .macroruntext "/{r}~~{r 2}~2~a:b17..a:k37~" End If End If End Sub$ h  LSOBEN^ d X( L$T44<<<<d( ||d( ( T T P P Lotus ProductV0.0 d   8*33B06E4lNEWDELETE\ INITIALIZE TERMINATEHOBJECTINITMAXIMIZESM1E7@SELECT8SHOWAUTOMATICPAGEBREAKSCURRENTPRINTSETTINGS PRINTRANGE| %Table_rangeX PRINTWHAT FOOTERCENTERT ORIENTATION FITTOPAGEx LEFTMARGIN TOPMARGIN8 RIGHTMARGIN BOTTOMMARGIN$ SHOWDRAWLAYER@SHOWVERSIONBORDERSCURRENTAPPLICATION APPLICATION LSCRIPT.dll\SEDefaultClassControlPRINT|SM3`HRVtGWINHLP32.EXE -I H_WORKING_WITH_SMARTMASTER_TEMPLATES_OVER SS1N70EN.HLPSM2COPYTOCLIPBOARD<SENDMAIL Loan PaymentsSELECT_HHXAEDITTEXTCSRANGENAME, %Current_PopCONTENTS ? ( %Lookup_Cell RECALCRANGE` CELLVALUEL TextControl ISLOCKEDVISIBLE DESELECT_HSM5XUPDATESHEETDISPLAY TABLERANGE4LL8URdD9F9E9B16MOVECELLPOINTERx..CUT B12 QUICKCOPY B17..B8192 RANGEFILLB17 FORMATNAME US Dollar\FORMATDECIMALSL RIGHTBORDERSTYLE GRIDBORDERCOLOR COLORNAME450% gray FONTBO LD( C16..IV16D10@F10( E10 C16`PerCent BOTTOMBORDERTEXTHORIZONTALALIGN WHATIFTABLE2 B14 C14TEXTSIZEd C17L C17.. B2.. CREATERANGENAME FORMATTER COUNTRYCODE REVS %Is_Canada1 MACRORUNTEXT/{r 7}~{r}~{r}~~~~8 /{r}~~{r 2}~2~a:d9..a:f9~t /{r}~~{r 2}~2~a:b17..a:k37~ DRAWOBJECT RANGEBORDERB17..C16.. h ka    dX fp p q).i]).i]gX ("L X4` ll   o lx|).i]).i]Xd ("   l0     0 ll 0 ).i]).i]X (5" |  x  ||||  | ,P  :H #*D[d$z `i ` <#<\ҒT|R hp p < @dX( d \(6T $ +=`0:L} O|XD( |T x ( L L L ( ( ).i]).i]X| ("L  * ,t,h 0  |X)& |fpn *0 < * ` O,T P  , , , [).i]).i]X (6", |,  *T  >*P (  X).i]).i]XT ( "A*  $*(  Y).i]).i]XP (""* d #*T 0  ,l  v  x , lh 8 { P ,? W I  + +,D ?\tt ?t??4  ȄTD'!TP'"Q\#OhQt`$OhQ~ %OhQ}&OhQ~ 'OhQ~ (OhQ8)OhQ8*OhQ8+OhQ8,ȄQ-ȄQ.{<,#/ȄQ0ȄQ14TP'6b}d17:TP';ȄQ<ȄQ=`T$~ '>ȄT0}@~ '?ȄQ@ȄQAG^P<PIQH}JJTT~'K^ U`|LK ,l#N^l}dJOKl.( !PKl-L #8QKl.L !S:TKl.L !UVKl.( !W]^P<P^^U<`QH}JaTT~'b^U`|cK,l#eK.( !fK.L !gK.( !hk{<.p !o8P`DP`PP`8pqr\TP'sT ~4't^P<u\TP'vT ~L'w^P<x^|J}J|yK|, #zȤT \'{TP'|T 8U`DU`PU`~d'}TP'~T ~|'^P<^|} J|K|. }$!K|. !K|-0 #. ~!K|- #-, #. }!K|- #. !TP'T U`,U`8U`~'DTP'T ~'^P<^|} J|K|. }P!K|. !K|- #. ~!K|. ~!K|- #-, #. }!K|- #. !^|J}J|ȄT$ ^|'K|.0 ! TP'T ~ '^|} P<|K|. }$!K|. !K|. ~$!T ~<'^|} P<|TT }`^|'T ~T'{<.p !P` 8WȄPl 8FP` 8Ȕ QH} ȄTx } 'Tx } 'Tx }< ' L OpenedL L'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Opened(Source As Document) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As DOCUMENT Set Source = Bind(Objectname_) On Event Opened From Source Call Opened End Sub '++LotusScript Development Environment:2:2:Opened:1:12 Sub Opened(Source As Document) init formatter End Sub$:  LSOBEN 6$8llltttLotus ProductV0.06  T*48C0154lNEWDELETEh INITIALIZE TERMINATEOBJECT (GLOBALS) (Globals)SOURCE BINDEVENTS OBJECTNAME_DOCUMENT8 LSCRIPT.dll|SEDefaultClassControlOPENEDINIT FORMATTER  r(.l\\\\ ).i]).i]h<d" l$ !@t!@l$| : :Ҥ [\I G\˄|l )#)t#      >zz N @ d    LoanTable_, B@  B@  """"""""""""""""""""""""""""""""" PCm??-" L SelectedL L'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) Select_H End Sub"xo@? 1??&@, ,{@&x r  rC (ʦ" L SelectedL L'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) Select_H End Sub"xo@? 3??`@H H&b   C (ʦ" HClickH H'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) SM5 End Sub"{ Button 1?? ( @ P! !Update Loan Payments Table Below" V SelectedV V'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Edittext) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As EDITTEXT Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Edittext) DeSelect_H End Sub"~ߐ@TextControl 2??  >( @ZZP Look for the monthly payment that best suits your needs. Use these values in the Loan Amortization SmartMaster for payment breakdown information. " V SelectedV V'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Edittext) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As EDITTEXT Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Edittext) DeSelect_H End Sub"~ߐ@TextControl 3??D-|  @ZZPU UClick here to select a version of your data. See Help for more details on versions." B SelectedB B'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) SM1 End Sub"~o@ Picture 1??G @ "& H.  '(.C '('((('ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___www𼼼񐑑󊊊쑐쐐캑쐐  󺺼 mmmmmmmm𼼼" B SelectedB B'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) SM2 End Sub"~o@ Picture 2??C@| "&m 4  &(C &(&(((&ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___www𼼼             |     " BW  SelectedB B'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) SM3 End Sub$3  LSOBEN /$8llLotus ProductV0.0/  T*33C2FB8lNEWDELETE INITIALIZE TERMINATEdOBJECT (GLOBALS) (Globals)SOURCE BINDEVENTS OBJECTNAME_PICTURE4 LSCRIPT.dllSEDefaultClassControl|SELECTEDSM3   X0hll\\\\).i]).i]p8(+" h$ !@h$N 3 3Ҥ [\I G\ˀNl )# "~o@ Picture 3???@| "& 4  &(C &(&(((&ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___www𼼼gfm텅QQQ𵅅QXQX^^Q𧅡^񵡡񡡡ϡ7777󡡡󵡡7^7ϡ^^^7^^^7^^^y^^^y^^^y^^^ |^^^y^^^7^^^7Р^^^^^7^^^à^^^^^" V SelectedV V'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Edittext) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As EDITTEXT Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Edittext) DeSelect_H End Sub"~ߐ@TextControl 1??@ZZP Enter low and high values for the amount you want to borrow and the interest rate you expect to pay. Enter increments to use between these values." L SelectedL L'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Selected(Source As Picture) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As PICTURE Set Source = Bind(Objectname_) On Event Selected From Source Call Selected End Sub '++LotusScript Development Environment:2:2:Selected:1:12 Sub Selected(Source As Picture) Select_H End Sub"xo@? 2?? @, ,{& r  rC (ʦ"    WorkArea_,  B@  !B@   "#  Strings_$#", %B@  $$&B@  $$ W" eCalculate monthly loan payments for various loan amounts, interest rates, and loan term combinations.Calculate Loan Payments SmartMasters123123 PropertyDoc Info CommentsDoc Info KeywordsDoc Info ObjectDoc Info RevisionsDoc Info Revisions CountDoc Info SubjectDoc Info Title  `103 0 0,0&11,01200 60 0  :0i P1  0?10CMHdr`1