; ***************** 
; Master Library 19
; *****************
; Annuities


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

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

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

lbl a                                   ;000
gto 378

lbl b                                   ;005
gto 292

lbl c                                   ;010
gto 443

lbl d                                   ;015
gto 501

lbl e                                   ;020
gto 539

1 sto 9 7 +/- inv log x%t ( rcl 4       ;025
/ rcl 3 ) sto 10 iff 3 136 iff 4 136
( ce / rcl 1 x2 - rcl 10 1/x ) sto 8
sum 9 pgm 18 a' sto 14 iff 1 80 ( ce
* rcl 9 ) ( ce - rcl 10 ) sto 13 ( 
rcl 14 / rcl 8 - rcl 1 * rcl 12 / 
rcl 9 / rcl 8 ) iff 1 120 ( ce * rcl 9
- rcl 14 ) inv prd 13 rcl 13 sum 8 
sum 9 abs ge 65 gto 280 

( rcl 5 / rcl 3 + sto 14 rcl 1 prd 14    ;136
- rcl 10 ) sto 8 ( rcl 1 + x2 / 2 + 
rcl 14 / rcl 1 ) iff 3 184 ( rcl 11 +
x2 / 2 + rcl 14 ) inv prd 8 rcl 8 sum 9
pgm 18 c' sto 6 iff 3 206 ( ce * rcl 9
) ( ce + rcl 14 / rcl 1 / rcl 12 - 
rcl 10 ) sto 13 ( rcl 6 / rcl 8 - rcl 1
/ rcl 12 / rcl 9 / rcl 8 ) iff 3 255 (
ce * rcl 9 + rcl 6 ) ( ce + rcl 14 / 
rcl 12 / rcl 9 ) inv prd 13 rcl 13 sum 8
sum 9 abs ge 191 ( rcl 8 * 1 0 0 ) cp
eq 295 eq 25 fix 4 pgm 18 e rtn

nop rcl 3 sto 11 sto 10 rcl 9 iff 2 319   ;301
iff 4 319 1 prd 11 prd 10 ( rcl 4 *
rcl 8 ) iff 1 354 iff 2 354 +/- sum 10
( rcl 5 * rcl 8 ) +/- sum 11 gto 356

sum 11 rcl 11 lnx sto 11 rcl 10 lnx +/-   ;354
sum 11 rcl 9 lnx 1/x prd 11 rcl 11 eq
381 eq 301 sto 1 +/- sto 11 +/- fix 9 
nop rtn

nop iff 1 422 iff 2 416 iff 3 410         ;391
pgm 18 d' gto 425

pgm 18 c' gto 425                         ;410

pgm 18 b' gto 425                         ;416

pgm 18 a' ( ce / ( rcl 4 - rcl 5 /        ;422
rcl 12 ) ) 1/x eq 446 eq 391 sto 3
fix 2 nop rtn

nop iff 1 483 iff 2 477 iff 3 471 pgm     ;452
18 d' gto 486

pgm 18 c' gto 486                         ;471

pgm 18 b' gto 486                         ;477

pgm 18 a' ( ce * rcl 3 + rcl 5 / rcl 12   ;483
) eq 504 eq 452 sto 4 fix 2 nop rtn

nop pgm 18 d' iff 4 521 pgm 18 c' ( (     ;510
ce * rcl 3 - rcl 4 ) +/- * rcl 12 )
eq 542 eq 510 sto 5 fix 2 nop rtn

lbl a'                                    ;548
stf 1 rtn

lbl b'                                    ;553
stf 2 rtn

lbl c'                                    ;558
stf 3 rtn

lbl d'                                    ;563
stf 4 rtn 

lbl e'                                    ;568
inv stf 1 inv stf 2 inv stf 3 inv stf 
4 0 sto 5 fix 9 cp rtn

#end 
