4#   '  >0@-_        _      ,Arial-8 \ ,Times New Roman8 \ !@!@!@!@!@!@!@__!@!@ ! @__! @! @!@#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  `P `P*v _Wv2@?@  - 44 RN03  RS03 t %A_R13   %B_13   %CURRENTSIZE  %CURRENT_POP  %CUSTOM_SIZE  %D_1OM_SIZE -- %D_2OM_SIZE .. %D_3OM_SIZE // %F_1OM_SIZE  %LOOKUP_CELL  %POP_LOOKUP  %P_1LOOKUP 33 %P_2LOOKUP 44 %P_3LOOKUP 55 %R_1LOOKUP  %R_10OOKUP $$ %R_11OOKUP %% %R_12OOKUP && %R_13OOKUP '' %R_15OOKUP (( %R_2OOKUP  %R_3OOKUP  %R_4OOKUP  %R_5OOKUP   %R_6OOKUP !! %R_7OOKUP "" %R_8OOKUP ## %SCRN_SIZE_TABL  %S_1_SIZE_TABL %S_2_SIZE_TABL %S_3_SIZE_TABL %S_4_SIZE_TABL %VERSION1_COUNT %WIDTHN1_COUNT A_1THN1_COUNT A_2THN1_COUNT A_3THN1_COUNT A_4THN1_COUNT# 6Shell# 6WorkArea# 6Strings( SmartMaster Shell($  Inputs(   Results'Variables( "%Version1_Count%': version counter(  %Width(@|'; Monitor width in pixels( %Custom_Size(#W@ @U.'; Custom size based on lookup into table(  %CurrentSize%'; current size "Width"CustomSize ': Screen size lookup table( !%Scrn_Size_Table%%@% % % % @%  % #% @% &( (b( (%Pop_Lookup '? 1 'A:E6 '? 2 'A:G6( #%Lookup_Cell(# @U A:E6( %Current_Pop '? 14'Bold items are referenced to duplicate strings 'Amortization Sheet Strings'RangeNames 'Strings 'A_1'SmartMaster Shell 'A_2 'A_3 'Results 'A_4 'Inputs 'Button Strings 'RangeNames 'Strings '%B_1 'New Version"'Sheet names must be in order'Sheet Strings'RangeNames 'Strings '%S_1 'Shell '%S_2'WorkArea '%S_3 'Strings '%S_4 'Scripts'Function Strings'RangeNames 'Strings '%F_1'screen-width'Range Strings'RangeNames 'Strings '%R_1'%Current_Pop '%R_2 'Shell '%R_3 '%Width '%R_4'%Custom_Size '%R_5 '%CurrentSize !'%R_6!'%Scrn_Size_Table "'%R_7"'%Version1_Count #'%R_8#'%Lookup_Cell $'%R_10$'%Amort_range %'%R_11 %'Blank &'%R_12(&$  1 &Shell 1 ''%R_13''Original ('%R_15('%Pop_Lookup+'FileInfo Strings,'RangeNames ,'Strings -'%D_1-'SmartMasters .'%D_2!.'Create your own SmartMaster /'%D_3>/'Use this shell to create your own Smartmaster templates.1'Pop-up Strings2'RangeNames 2'Strings 3'%P_13'To create a help popup, double click in this text block and enter your text. Drag this and the corresponding help icon to wherever you want to provide help. (Continued in next popup.) 4'%P_24'When the popups are ready, open the IDE, select Object ? 1. Remove the + to uncomment the subroutine. Repeat for Object ? 2, Text 1, and Text 2. Lock the textblocks and bubble help icons. Your help topics are now ready.B@  B@  BC%A_R1  88P5 ``??~P8 4~P8@ 4~P8@ 4 o  66 6v &A v  P P+PP,P  P P P*P P-P P P PP PP P P PPPPPPPP PP PP P PPP P PPP PPPPP PPP"P PP"P PP"P PP"P PP"P  PP"P P"P PPP"P PP"P(PP"P PP"P PP"PP PP PP PPP"P P(P PP"P P AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA AA   x X 8   8    p   Z A Z  A-    A-          A1   A  A  A  5    b   "Brian MurrayLotus Notes %Brian Murray/CAM/LotusOTES %Harry Preble/CAM/LotusOTES 0}c\@D:\DATA\MYAMORT2.WK4 P t?Y{@<>/D:\Shell1.12m !%A_R1Shell 1 Blank%A_R1 /@Blank%A_R1Blank 5 ޜ6{@Blank%A_R1Blank/Blank             Shell 1%A_R1 4@Shell 1%A_R1Original ; ޜ6{@Shell 1%A_R1Shell 1/Shell 1            b2 BBi1'dDefaultBBb8888=/1'dBLB B>]  '++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 SM4 Declare Sub SM2 Declare Sub Select_H Declare Sub DeSelect_H '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Init:1:8 Sub Init [].Maximize End Sub '++LotusScript Development Environment:2:2:SM1:1:8 Sub SM1 [E5].Select .ShowAutomaticPageBreaks=False .CurrentPrintSettings.PrintWhat = $CurrentSheet .CurrentPrintSettings.FooterCenter = "" .CurrentPrintSettings.Orientation = $Portrait .CurrentPrintSettings.FitToPage = $FitRowsAndColumns .CurrentPrintSettings.LeftMargin = 1080 .CurrentPrintSettings.TopMargin = 1080 .CurrentPrintSettings.RightMargin = 1080 .CurrentPrintSettings.BottomMargin = 1080 [].ShowDrawLayer = False [].ShowVersionBorders = False CurrentApplication.Print [].ShowDrawLayer = True [].ShowVersionBorders = True End Sub '++ LotusScript Development Environment:2:2:SM3:1:8 Sub SM3 [E5].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:SM4:1:8 Sub SM4 Dim VMR As Version [%A_R1].NewVersion [%R_2].CellValue + " " + Cstr([%Version1_Count].CellValue) [%A_R1].Clear [%Version1_Count].Contents = Cstr([%Version1_Count].CellValue + 1) End Sub '++LotusScript Development Environment:2:2:SM2:1:8 Sub SM2 [E5].Select [].ShowDrawLayer = False [].ShowVersionBorders = False [].SelectAll [].CopyToClipboard $BitMapFormat [].SendMail , , "SmartMaster Shell", , , , $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 ("Text " + 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$`   LSOBEN8 \X $8TTTTll<<<<d4dLotus ProductV0.0 \ ` `*5CE0CFClNEWDELETE@ INITIALIZE TERMINATEOBJECTXINITMAXIMIZExSM1 E5SELECTSHOWAUTOMATICPAGEBREAKSCURRENTPRINTSETTINGS PRINTWHAT FOOTERCENTER ORIENTATIONh FITTOPAGE< LEFTMARGIN TOPMARGIN RIGHTMARGIN BOTTOMMARGIN SHOWDRAWLAYERSHOWVERSIONBORDERS@CURRENTAPPLICATION APPLICATION LSCRIPT.dllSEDefaultClassControlPRINT4SM3$HRV GWINHLP32.EXE -I H_WORKING_WITH_SMARTMASTER_TEMPLATES_OVER SS1N70EN.HLPSM4dVMRVERSION%A_R1 NEWVERSION%R_28 CELLVALUE t%Version1_CountCLEARCONTENTSpSM2 SELECTALLCOPYTOCLIPBOARD<SENDMAIL,SmartMaster Shell`SELECT_HXATEDITTEXTCSRANGENAME %Current_Pop? %Lookup_Cell RECALCRANGEText $ISLOCKED@VISIBLE DESELECT_H DRAWOBJECT  PH   l dX 4q).i]).i]hXd"  ).i]).i]XddF" 4l;TDDD  0@).i]).i]X4d"D8 d\\\\ ).i]).i]hXd>"X (    O 0 8 X : #|*XDdp\|,z`i# Ғ@R @dX( d  P$}Dhx+=`m\6t: OXJ( D < < <   ).i]).i]Xd"<  * ,Q` ,?x W I  + +  ȄT'"T('#Q4$O@QL~h %O@QX}&O@Qd~ 'O@Qp~ (O@Q|8)O@Q8*O@Q8+O@Q8,ȄQ-ȄQ.{<,#/ȄQ0ȄQ14T('6b}(17;TP}<DP'<T'=DQDP>AT('BȄQCȄQDȄT 'EȄT,~ 'FȄT8}~ 'GȄQHȄQIO^PDPQȄQ}JRȰTP~ 'S^DȰUʴTKD,\#V^}JWK. !XK-< #8YK.< !Z:[K.< !]^K. !_e^PDPf^UDhȄQ}JiȰTP~ 'j^ ȰUʴkK ,\#mK. !nK.< !oK. !p 6W Opened6 6'++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 End Sub$3  LSOBEN /|$TlllLotus ProductV0.0/|  8*5CE07FClNEWDELETEh INITIALIZE TERMINATEOBJECT (GLOBALS) (Globals)SOURCE BINDEVENTS OBJECTNAME_DOCUMENT8 LSCRIPT.dll|SEDefaultClassControlOPENEDINIT  @02l\\\\ ).i]).i]hl<d" l$ !@l$| 3 3Ҥ [\I G\˄|l )#      > N @ d   Shell_, B@  B@  """"""""""""""""" PAm??2 Z+" N SelectedN N'++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??v6@, ,{& r  rC (ʦ@@@@@@ڼ[[[&] [c?[#?y [.?WFJ.'?W?'P; ;<y?WPA<?)w ?Y[[[[[[[[5[aA[[n[[[[%[AL]H][@4]&`Ahlp2bmp[R<[[ Z ~0P@SX/rJd/pXXrZfPSp+/nd/p/]XSX)y"&f" N SelectedN N'++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??i@, ,{& r  rC (ʦ@@@@@@ڼ[[[&] [c?[#?y [.?WFJ.'?W?'P; ;<y?WPA<?)w ?Y[[[[[[[[5[aA[[n[[[[%[AL]H][@4]&`Ahlp2bmp[R<[[ Z ~0P@SX/rJd/pXXrZfPSp+/nd/p/]XSX)y"&f" 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??Zs@ "K& 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??0Z@| "& 4  &(C &(&(((&ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___www𼼼             |     " 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) SM3 End Sub"~o@ Picture 3??Z=!@| "J&( 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^^^à^^^^^" 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) SM4 End Sub"{ Button 1??2 O m @)P  New Version" X SelectedX X'++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"w@Text 2??+ @ZZP When the popups are ready, open the IDE, select Object ? 1. Remove the + to uncomment the subroutine. Repeat for Object ? 2, Text 1, and Text 2. Lock the textblocks and bubble help icons. Your help topics are now ready." X  SelectedX X'++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$(,  LSOBEN ($$8TllLotus ProductV0.0($  *55F0040lNEWDELETE INITIALIZE TERMINATEhOBJECT (GLOBALS) (Globals)SOURCE BINDEVENTS OBJECTNAME_EDITTEXT8 LSCRIPT.dllSEDefaultClassControlSELECTED ( (tLhPll\\\\ ).i]).i]<d" l$ l#$N , ,Ҥ [\I G\ˀNl  "w@Text 1??, x* @ZZP To create a help popup, double click in this text block and enter your text. Drag this and the corresponding help icon to wherever you want to provide help. (Continued in next popup.)"    WorkArea_, B@  B@    !  Strings_"! , #B@  ""$B@  "" W  8Use this shell to create your own Smartmaster templates.Create your own SmartMaster SmartMasters123123 PropertyDoc Info CommentsDoc Info KeywordsDoc Info ObjectDoc Info RevisionsDoc Info Revisions CountDoc Info SubjectDoc Info Title   ? ;p^  L  <    +CMHdr