; ***********************************
; Surveying Library SY-12
; ***********************************
; EDM Slope Reduction - (Slope Angle)
; Slope Reduction Program

#EMULATOR c:\ti-59\sy\SY-12\SY-12.t59
#LISTING c:\ti-59\sy\SY-12\SY-12.lst
#AZEMULATOR c:\ti-59\sy\12\SY-12.TI

lbl a'
fix 6 ( sto 12 - rcl 6 ) b' rcl 13 rtn

lbl b'
fix 6 sto 13 sto 14 ( sto 15 + rcl 8 )
sto 17 rtn

lbl a
fix 6 exc 15 exc 14 rcl 15 rtn

lbl b
( ( rcl 15 - rcl 14 ) x2 sqr * rcl 4
/ rcl 2 ) sto 16 inv dms rtn

lbl c
( ( rcl 16 / 2 ) sin * rcl 5 * 2 ) rtn

lbl d
( ( rcl 15 - rcl 13 ) / rcl 2 * rcl 4
/ 2 ) inv dms rtn

lbl d'
rcl 13 rtn

lbl e
rcl 17 rtn

lbl c'
rcl 13 adv prt cp ( rcl 15 / rcl 2 )
int ( ( ( ce * rcl 2 ) + rcl 2 ) sto 18
- rcl 17 ) ge 158 rcl 18 gto 162

stf 1 rcl 17 a adv prt b adv prt c prt d prt
iff 1 179 gto 123

inv stf 1 rtn




#end
