; ******************* 
; Leisure Library 01
; *******************
; Diagnostic

#EMULATOR c:\ti-59\le\01\le-01.t59

#LISTING c:\ti-59\le\01\le-01.LST

#AZEMULATOR c:\ti-59\le\01\le-01.TI

lbl ce
0 sto 9 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 dms ) ee inv ee x%t 3 7 7 .
2 5 8 0 9 0 7 eq write 0 1/x

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

lbl dms
fix 9 ( ( 2 4 2 9 8 * rcl 9 + 9 9 9 9 1 ) / 
1 9 9 0 1 7 sto 10 ) ( ( inv int * rcl 10 ) 
sto 9 / rcl 10 ) rtn


#end