HP 95LX - Lotus Macros Used in the Built-In Templates

Lotus Macros Used in the Built-In Templates
~CFLOW
I:
NT:
CT:
\C:
\N:
\F:
\S:
\E:
IA:
IB:
CR:
CL:
\D:
\I:
\G:
\B:
\P:
148
1Bra0e:
IBraa2:
IBrea3:
{BREAK > {WINDOWSOFF
{GOTOB44~/rncT~{BS>
{IF ECELLC("type" ,B44>{>"b">.{UI{END3{D}
7064. ~
IBrB86:
I1Br888:
IBrole:
roll:
IBr813:
rol4:
IBrale:
IBre1s:
{I27uwtc{GOTOXA41~{D 32}{RI}/wtb warm rncT~Al~
{I}rwtc/wara{NT>{HOME}{GOTOXB18~ wtb
{Ix rncTT~~{\C3-ref44 .A8192~-df {BS}. {IFECELL
"type" ,B44)<>"b" 2{UX{END {D>
Ly. {L3~B~1~8192~{GOTOITT~/rndTT~
{I>{GETNUMBER "Size of List? ",A44{IF
@ISERRCA44)=13{\F2 {QUIT
sdfR44 .A8192~B~1~A44~
{I>{GETLABEL "Erase all? (Yes or (No: ",
IARX{IF IA="Y"H#OR#IA="YES"2I{\Cl/reBd4. B8192~
Y
IBreze: 1
IBYB22:
IBY024:
7825:
rO26:
IBrez28:
IB/B36:
IB7@32:
IBr834:
IB7@36:
7a37:
7838:
IBr840:
{I>{IFEGCELLPOINTER(" row" ><{44#0R#EGCELLPOINTER
C"COL"»<>22{QUIT>
{IF RISERRCIB>=12{LET IB,12
{IF EABS(IB>>8192-ECELLPOINTER "row" >>
{BEEP} {PANELON} Exceeds limit {WAIT
EGNOW+ETIME (8.,0,2>3{BREARK>{QUIT>
{IF EABSCIB><13{QUIT>
{CR>{GETNUMBER "Enter # flows to delete: ",
IBY {CL3>m{ESC2{D IB2X{LET IRA,
+ECELLPOINTERC "ADDRESS" >&" .B192" 3 CIA
{CR>{GETNUMBER "Enter # flows to insert: ",
IBX{CL>/m{LET IA,+@CELLPOINTER{"ADDRESS">
&".B8192"3{IAX~{D IB3}~B~rc~.{UX{D IBZ
{CR>{GETNUMBER "Enter cash flow amount: ",
EGCELLPOINTERS "ADDRESS" >» >~{GETNUMBER
"Number times it occurs: ",IB}{CL}-c~.{U2>
0 IB>~{D IB}
{\C37grgotfCash Flow Diagram~txPeriod Number
~tyCash Flow~ssd4~qtbg.{L}{CTIcvq{:C2>
{I>{GETNUMBER "Enter init. interest rate: ",
IARX{IF RISERRCIA>=13{LET IA,02>
{GETNUMBER "Enter the increment *: ",IBX{IF
@ISERRCIB>=12{LET IB.,2X
/dfAl15.A46~IA~IB~+IA+25%I1B~{GOTOXB14~+B3~
{~N3>-dt 1A14 .B46~B168~-grgt 1xA15.A48~aB15.
B48~ot fNPY as Function ofI%~tyNPVY~ss2~quq
{I >{PANELOFF >-dfRA44 .A184~8~1~60~- rnd 8~
9. REFERENCE