00 { 108-Byte Prgm }
01▸LBL "GC"
02 MVAR "LAT1"
03 MVAR "LON1"
04 MVAR "LAT2"
05 MVAR "LON2"
06 MVAR "DIST"
07 DEG
08 RCL "LON1"
09 RCL- "LON2"
10 2
11 ÷
12 SIN
13 X↑2
14 RCL "LAT1"
15 COS
16 ×
17 RCL "LAT2"
18 COS
19 ×
20 RCL "LAT1"
21 RCL- "LAT2"
22 2
23 ÷
24 SIN
25 X↑2
26 +
27 SQRT
28 ASIN
29 180
30 ÷
31 40076
32 ×
33 RCL- "DIST"
34 END