; ******************* 
; Leisure Library 20
; *******************
; Sea Battle

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

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

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

lbl sin
dsz 0 d

lbl dms
+ ) 

lbl d
( ( 9 c * 5 ) fix 2 ee 2 + 0 c / 1 0 0 ) inv ee rtn

lbl c
sto 10 rc* 10 rtn

lbl a'
exc 6 rtn

lbl e'
rad pi cos cp ge dms 3 0 sto 9 ( exc 7 + 1 6 sto 0
x%t 1 6 ) x2 p/r inv p/r sto 8 . 2 sto 4 1 sto 5
gto sin

lbl a
sto 1 rtn

lbl b
sto 2 rtn

lbl e
( 2 * 5 c ) inv sum 7 0 a' cp eq pi ( ce * 5 c sum 7
/ 7 c ) sum 8

lbl pi
7 c log cp inv ge dms 1 c eq d ( ( ce / 5 0 0 ) * (
ce + 1/x * 7 c x2 - 2 * 7 c * ( 8 c - 2 c * pi /
1 8 0 ) sto 6 cos ) ) sqr ( ( sto 9 log +/- - 1 ) cp
ge dms + 1 ) ge grad ( ce + 1 ) ge mean 0 sto 9

lbl mean
0 a' gto sin

lbl grad
( 5 c - 4 c ) cp eq tan sto 5

lbl tan
1 a' cp ge sin 1 +/- a' gto sin 

lbl clr
rtn



#end