; ********************************************* 
; Surveying Library          SY-16
; *********************************************
; Intersection - (Bearing/Bearing)
; Intersections Program



#EMULATOR c:\ti-59\sy\16\SY-16.t59

#LISTING c:\ti-59\sy\16\SY-16.LST

#AZEMULATOR c:\ti-59\sy\16\SY-16.TI

lbl b'
* 1 8 0 ) cos +/- ) tan rtn

lbl e'
0 cms adv fix 6 rtn

lbl a
pgm 6 a rtn

lbl b
exc 4 exc 3 rcl 4 prt rtn

lbl c
exc 6 dms exc 5 rcl 6 prt rtn

lbl d
exc 8 dms exc 7 rcl 8 prt rtn

lbl e
adv ( rcl 5 * ( rcl 6 b' sto 12 ( rcl 7 *
( rcl 8 b' sto 13 op 19 iff 7 142 ( ( ce *
rcl 3 - rcl 4 + rcl 2 - rcl 1 * rcl 12 )
/ ( rcl 13 - rcl 12 ) ) ( ( sto 10 - rcl 1
) * rcl 12 + rcl 2 ) sto 11 rcl 10 prt rtn

lbl a'
rcl 11 prt rtn

inv stf 7 ( rcl 12 op 19 iff 7 170 * ( rcl 3
sto 10 - rcl 1 ) + rcl 2 gto 129

inv stf 7 rcl 13 * ( rcl 1 sto 10 - rcl 3 )
+ rcl 4 gto 129



#end