; ***********************
; Surveying Library SY-04
; ***********************
; Field Angle Traverse
; Traverse Program

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

lbl e'
x2 sqr x%t rtn

lbl a
prt ( dms - 1 8 0 ) d' 

lbl b
prt ( dms pgm 5 sbr nop ( sto 12 / 9 0
sto 0 x%t rcl 0 + . 5 ) fix 0 ee inv ee
sto 13 rcl 12 d' prt rtn

rcl 12 p/r e' e' inv p/r pgm 2 sbr st*
d' prt rtn

rcl 13 prt rtn

lbl c
sto 7 prt rtn

prt dms cos inv sin inv dms 

lbl c'
prt dms sin prd 7 rcl 7 x%t rcl 7 prt rtn

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

e' sto 18 prt rtn

( ce + rcl 01 ) sto 3 prt rtn

lbl op
( rcl 19 + rcl 2 ) sto 4 prt rtn

lbl e
pgm 2 e rtn

lbl a'
inv eng fix 6 cms sto 1 prt rtn

sto 2 prt rtn

dms sto 11 d' prt rtn

lbl d' 
fix 6 inv dms rtn

#end
