; ******************* 
; Leisure Library 15
; *******************
; Jive Turkey

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

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

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

lbl a
sto 4 prt rtn

lbl b
sto 9 prt ( sbr dms * 1 0 0 ) int sto 1 0 rtn

lbl clr
fix 9 0 sto 5 rtn

lbl e inv stf 1 sto 2 prt op 25 sbr dms ( ce *
1 0 0 ) int sto 3 x%t rcl 4 inv ge sto stf 1 

lbl sto
rcl 2 x%t rcl 1 eq cos inv ge tan iff 1 sqr

lbl x2
1 prt adv rtn

lbl tan iff 1 x2 

lbl sqr
1 +/- prt adv rtn

lbl cos
rcl 2 +/- sqr x2 prt adv rtn

lbl c
sbr dms prt rtn

lbl d
rcl 5 prt rtn

lbl dms
fix 9 ( ( 2 4 2 9 8 * rcl 9 + 9 9 9 9 1 ) / 1 9 9 0 1 7 sto 10 ) 
( ( inv int * rcl 10 ) sto 9 / rcl 10 ) rtn


#end