; *********************************
; Surveying Library SY-18
; *********************************
; Intersection - (Bearing/Distance)
; Intersection Program

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

lbl e'
0 cms adv fix 6 rtn

lbl a
pgm 6 a rtn

lbl b
pgm 16 b rtn

lbl c
dms sto 5 inv dms fix 6 prt rtn

lbl d
sto 6 prt rtn

lbl e
sto 7 prt rtn

lbl a'
adv cp ( ( rcl 6 - 1 ) eq 78 - 2 )
eq 73 ( 9 0 * rcl 6 - gto 78 ( 1 8 0
+ rcl 5 ) sto 8 ( rcl 3 - rcl 1 )
sto 9 ( ( rcl 4 - rcl 2 ) sto 10 x2
+ rcl 9 x2 ) sqr sto 11 prt rtn

lbl b'
rcl 9 x%t rcl 10 inv p/r pgm 2 sbr st*
sto 12 inv dms prt rtn

lbl c'
( rcl 12 - rcl 8 ) sto 13 ( ( sin *
rcl 11 ) x2 +/- + rcl 7 x2 ) ( ( 
sqr + rcl 13 cos * rcl 11 ) sto 14
* rcl 8 cos + rcl 1 ) prt rtn

lbl d'
( rcl 14 * rcl 8 sin + rcl 2 ) prt rtn


#end
