; ***************** 
; Master Library 18
; *****************
; Compound Interest


#EMULATOR c:\ti-59\ml\18\ML-18.t59

#LISTING c:\ti-59\ml\18\ML-18.LST

#AZEMULATOR c:\ti-59\ml\18\ML-18.TI


lbl a'                                  ;000
( ( rcl 9 yx rcl 1 - sto 12 1 ) / 
rcl 8 ) rtn

lbl b'                                  ;019
( a' * rcl 9 ) rtn

lbl c'                                  ;028
( a' / rcl 12 ) rtn

lbl d'                                  ;037
c' ( ce * rcl 9 ) rtn

lbl e'                                  ;047
cp fix 2 rtn

lbl sbr                                 ;053
( rcl 4 / rcl 3 ) rtn

lbl clr                                 ;063
( sbr sbr lnx / rcl 9 lnx ) sto 1 rtn

lbl a                                   ;077
eq clr sto 1 rtn

lbl inv                                 ;084
( 1 0 0 - ce * sbr sbr inv yx rcl 1
) +/- eq e

lbl b                                   ;103
eq inv

lbl e                                   ;107
sto 2 ( ce / 1 0 0 + sto 8 1 ) sto 9
rcl 2 rtn

lbl lnx                                 ;127
( rcl 4 / rcl 9 yx rcl 1 ) sto 3 rtn

lbl c                                   ;142
eq lnx sto 3 rtn

lbl ce                                  ;149
( rcl 3 * rcl 9 yx rcl 1 ) sto 4 rtn

lbl d                                   ;164
eq ce sto 4 rtn


#end 
