; ******************* 
; Leisure Library 14
; *******************
; Mars Lander

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

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

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

lbl c
rcl 0 cp inv eq mean ( rcl 3 x2 - rcl 4 * 2 6
) sqr +/- sto 3 

lbl cos
0 sto 4 1/x

lbl tan
fix 0 rcl 3 prt rtn

lbl mean
fix 4 ( rcl 3 ge pi - gto log 

lbl pi
+

lbl log
rcl 4 * 4 +/- inv log ) prt rtn

lbl a 
fix 9 ( ( prt cp ge + 0

lbl +
- 7 5 ) ge - +

lbl -
7 5 ) ( sto 1 - rcl 0 ) +/- ge deg rcl 0 sto 1 0

lbl deg
sto 0 ( rcl 1 * 1 8 9 0 / ( rcl 0 + 1 2 6 0 )
- 1 3 ) ( sto 6 / 2 + rcl 3 ) fix 0 ee inv ee
sum 4 rcl 4 cp inv ge cos rcl 6 fix 0 dms
sum 3 rcl 4 eq tan gto c

lbl b
fix 2 rcl 0 rtn

lbl e adv 6 3 0 sto 0 4 8 7 +/- sto 3 2 6 0 3 sto 4
gto c

lbl clr rtn


#end