; ***********************
; Surveying Library SY-03
; ***********************
; INVERSE TRAVERSE
; Traverse Program

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

lbl b'
x2 sqr x%t rtn

lbl a'
sto 1 prt rtn

sto 2 prt rtn

lbl a 
prt ( sto 3 - rcl 1 ) sto 18
prt rtn

lbl b
prt ( sto 4 - rcl 2 ) sto 19
prt rtn

lbl c
adv rcl 18 x%t rcl 19 inv p/r
pgm 2 sbr st* x%t sto 0 x%t   
cp ge jump1 ( ce + 3 6 0 ) 

jump1:
sto 12 b' rcl 00 sto 7 prt rtn

lbl d
5 b' rcl 12 p/r b' b' inv p/r
pgm 02 sbr st* sto 16 inv dms  
prt rtn

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

rcl 12 inv dms prt rtn

lbl gto
( rcl 3 * exc 1 exc 2 - rcl 4
* exc 2 ) sum 10 rcl 18 x2 sqr rtn

lbl e
sbr gto sto 14 rcl 19 x2 sqr sto 15
rcl 12 sto 11 rcl 7 sum 9 rcl 9
prt adv rtn

lbl e'
adv 0 cms inv eng fix 6 rtn
 

#end
