; ************************************* 
; Master Library 22
; *************************************
; Checking, Savings Account Management


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

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

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

lbl e'                               ;000
iff 0 yx 5 gto sum

lbl yx                               ;008
6 

lbl sum                              ;011
sto 10 rc* 10 rtn

lbl c                                ;018
+/-

lbl b                                ;021
( ce + e' ) st* 10 rtn

lbl a e' rtn                         ;031

lbl a'                               ;035
inv                           

lbl b'                               ;038
stf 0 fix 2 rtn

lbl c'                               ;045
sto 7 rtn

lbl d'                               ;050
( 1/x * rcl 7 ) cp pgm 18 b rtn

lbl d                                ;063
cp pgm 18 a rcl 6 sto 3 cp pgm 18
sbr ce sto 6 rtn

lbl e                                ;081
iff 0 sqr sto 5 rtn

lbl sqr                              ;089
sto 6 rtn




#end 
