; ***********************
; Surveying Library SY-02
; ***********************
; Azimuth/Bearing Traverse
; Traverse Program

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

lbl d'
x2 sqr x%t rtn

lbl st*
x%t sto 20 1 8 0 x%t inv ge adv
( ce - 3 6 0 ) 

lbl adv
x%t rcl 20 x%t rtn

lbl e'
adv 0 cms inv eng fix 6 rtn

lbl a'
sto 1 prt rtn

sto 2 prt rtn

lbl a
dms sbr 130 rtn 

5 d' rcl 12 p/r d' d' inv p/r 
sbr st* sbr 132 rtn      

lbl log
( rcl 12 / 9 0 + . 5 ) fix 0
ee inv ee fix 6 prt rtn

lbl b
dms sto 16 gto 132

lbl b'
sto 18 prt rtn

( cp * 9 0 - cos eq 124 

rcl 16  
gto 129


rcl 16 cos inv sin 


) sto 12

fix 6 inv dms prt rtn

lbl c
sto 7 prt rtn

prt dms cos inv sin inv dms

lbl c'
pgm 4 c' rtn

lbl d
adv rcl 12 p/r sto 19 prt rtn

d' sto 18 prt rtn

( ce + rcl 1 ) sto 3 prt rtn

pgm 4 sbr op rtn

lbl e
pgm 5 
sbr grad          
rcl 7 sum 9 
rcl 9 prt adv rtn
 

#end
