; ******************* 
; Leisure Library 12
; *******************
; Acey-Deucy

#EMULATOR c:\ti-59\le\12\le-12.t59

#LISTING c:\ti-59\le\12\le-12.LST

#AZEMULATOR c:\ti-59\le\12\le-12.TI

lbl b
pgm 15 sbr dms fix 2 sto 2 rtn

lbl c
pgm 15 sbr dms fix 2 sto 3 x%t rcl 2 
inv ge rcl rcl 2 exc 3 sto 2 

lbl rcl
x%t cp rtn

lbl e
( rcl 3 - rcl 2 - . 1 ) cp ge pi 1 0 gto mean

lbl pi
( ( ce + . 1 ) 1/x - 1 )

lbl mean
sto 5 rtn

lbl a'
cp inv ge rtn

sto 6 pgm 15 sbr dms fix 2 ( sto 4 - rcl 2 )
ge prt gto adv

lbl prt
( rcl 3 - rcl 4 ) ge dsz

lbl adv
rcl 6 +/- gto grad

lbl dsz
( rcl 5 * rcl 6 )

lbl grad
sum 7 rtn

lbl b'
rcl 4 rtn

lbl c'
rcl 7 rtn

lbl a
sto 19 1 0 0 sto 7 rtn

lbl clr
fix 2 rtn

lbl rtn
0 1/x rtn

#end