; ********************************** 
; Surveying Library SY-01
; **********************************
; Surveying Library Diagnostic


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

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

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

lbl ce
1 sto 11 deg fix 9 

lbl clr
cp 6 sto 1 0 st* 1 dsz 1 15 rtn

lbl =
sbr ce inv eng 5 x%t 3 0 p/r S+ inv p/r
s+ op 12 dms s+ op 11 inv dms inv s+ op 14 (
ce - sbr lnx ) ) ee inv ee x%t
2 4 7 9 5 3 6 . 6 6 9 +/- eq write 0 1/x

lbl write
fix 9 op 0 3 6 4 1 3 5 4 2 op 3 1 7 4 5
2 4 3 1 2 2 op 4 op 5 4 prt rtn

lbl lnx
( ce * rcl 11 cos / ( 1 - rcl 11 cos
) rtn

#end