output.txt

00 { 28-Byte Prgm }
01>LBL "LDECEF"
02 ASSIGN "->CART" TO 07
03 ASSIGN "->ELLIP" TO 08
04 RTN
05 END

00 { 136-Byte Prgm }
01>LBL "->CART"
02 STO "LON"
03 Rv
04 STO "LAT"
05 Rv
06 STO "HT"
07 Rv
08 STO "TMP"
09 XEQ "W84-INI"
10 RCL "A"
11 RCL "LAT"
12 SIN
13 X^2
14 RCL× "E2"
15 +/-
16 1
17 +
18 SQRT
19 ÷
20 STO "N"
21 RCL+ "HT"
22 RCL "LAT"
23 COS
24 ×
25 STO "X"
26 STO "Y"
27 RCL "LON"
28 COS
29 STO× "X"
30 RCL "LON"
31 SIN
32 STO× "Y"
33 1
34 RCL- "E2"
35 RCL× "N"
36 RCL+ "HT"
37 RCL "LAT"
38 SIN
39 ×
40 STO "Z"
41 RCL "TMP"
42 RCL "Z"
43 RCL "Y"
44 RCL "X"
45 RTN
46 END

00 { 185-Byte Prgm }
01>LBL "->ELLIP"
02 STO "X"
03 Rv
04 STO "Y"
05 Rv
06 STO "Z"
07 Rv
08 STO "TMP"
09 XEQ "W84-INI"
10 RCL "Y"
11 RCL "X"
12 ->POL
13 STO "P"
14 Rv
15 STO "LON"
16 0
17 STO "LAT"
18>LBL 01
19 RCL "A"
20 RCL "LAT"
21 SIN
22 X^2
23 RCL× "E2"
24 +/-
25 1
26 +
27 SQRT
28 ÷
29 RCL "LAT"
30 COS
31 ×
32 RCL× "E2"
33 RCL÷ "P"
34 +/-
35 1
36 +
37 RCL "Z"
38 X<>Y
39 ÷
40 RCL÷ "P"
41 ATAN
42 RCL "LAT"
43 X<>Y
44 STO "LAT"
45 -
46 ABS
47 1E-12
48 X<Y?
49 GTO 01
50 RCL "A"
51 RCL "LAT"
52 SIN
53 X^2
54 RCL× "E2"
55 +/-
56 1
57 +
58 SQRT
59 ÷
60 +/-
61 RCL "P"
62 RCL "LAT"
63 COS
64 ÷
65 +
66 STO "HT"
67 RCL "TMP"
68 RCL "HT"
69 RCL "LAT"
70 RCL "LON"
71 RTN
72 END

00 { 52-Byte Prgm }
01>LBL "W84-INI"
02 6378137
03 STO "A"
04 298.257223563
05 1/X
06 STO "F"
07 X^2
08 LASTX
09 2
10 ×
11 X<>Y
12 -
13 STO "E2"
14 RTN
15 .END.

00 { 64-Byte Prgm }
01>LBL "RMECEF"
02 ASSIGN "" TO 07
03 ASSIGN "" TO 08
04 CLP "->CART"
05 CLP "->ELLIP"
06 CLP "W84-INI"
07 CLP "ECEF-N"
08 CLP "LDECEF"
09 CLP "RMECEF"
10 END