00 { 263-Byte Prgm }
01▸LBL "SPEED"
02 DEG
03 CF 21
04 15
05 NEWLIST
06▸LBL 02
07 0
08 APPEND
09 DSE ST Y
10 GTO 02
11 LSTO "LAT"
12 LSTO "LON"
13 LSTO "TIME"
14▸LBL 00
15 LOCAT
16 LSTO "LAT1"
17 RCL "LAT"
18 X<>Y
19 APPEND
20 STO "LAT"
21 RCL "LON"
22 RCL ST Z
23 LSTO "LON1"
24 APPEND
25 STO "LON"
26 HEAD "LAT"
27 LSTO "LAT2"
28 HEAD "LON"
29 LSTO "LON2"
30 0
31 LSTO "DIST"
32 XEQ "GC"
33 TIME
34 RCL "TIME"
35 RCL ST Y
36 APPEND
37 STO "TIME"
38 CLX
39 HEAD "TIME"
40 HMS-
41 →HR
42 X≠0?
43 ÷
44 1.852
45 ÷
46 CLA
47 10
48 ×
49 0.5
50 +
51 IP
52 10
53 ÷
54 AIP
55 FP
56 10
57 ×
58 ├"."
59 AIP
60 ├" kts "
61 RCL "LON1"
62 RCL- "LON2"
63 RCL "LAT1"
64 TAN
65 ASINH
66 RCL "LAT2"
67 TAN
68 ASINH
69 -
70 →DEG
71 →POL
72 CLX
73 0.5
74 +
75 IP
76 360
77 X<>Y
78 X<0?
79 +
80 AIP
81 ├"°"
82 HEIGHT
83 8
84 ÷
85 1
86 -
87▸LBL 03
88 ├"[LF]"
89 DSE ST X
90 GTO 03
91 AVIEW
92 PSE
93 GTO 00
94 END