01 LBL "SUN"
 02 LBL B
 03 FIX 04
 04 FC?C 22
 05 GTO 06
 06 HR
 07 STO 44
 08 RDN
 09 HR
 10 STO 43
 11 LBL 06
 12 ADV
 13 ADV
 14 RCL 43
 15 "LAT "
 16 XEQ 08
 17 RCL 44
 18 "LONG"
 19 GTO 08
 20 LBL 09
 21 "TOO DK"
 22 X>0?
 23 "TOO LT"
 24 ASTO IND 18
 25 ASTO X
 26 FS? 16
 27 RTN
 28 GTO 06
 29 LBL 04
 30 DSE 18
 31 SIN
 32 RCL 19
 33 +
 34 RCL 20
 35 /
 36 ENTER
 37 FRC
 38 X#Y?
 39 GTO 09
 40 CHS
 41 ACOS
 42 15
 43 /
 44 STO IND 18
 45 FS? 16
 46 RTN
 47 LBL 05
 48 SIGN
 49 X=0?
 50 SF 15
 51 LASTX
 52 FS?C 15
 53 GTO 06
 54 FS? 17
 55 CHS
 56 RCL 21
 57 +
 58 LBL 06
 59 STO IND 02
 60 ISG 02
 61 FS? 18
 62 RTN
 63 LBL 14
 64 RCL IND 02
 65 SIGN
 66 X#0?
 67 GTO 14
 68 RCL 04
 69 FS? 17
 70 CHS
 71 RCL 12
 72 +
 73 ABS
 74 LBL 14
 75 LASTX
 76 RCL 07
 77 -
 78 876600
 79 /
 80 STO 18
 81 GTO 14
 82 LBL 07
 83 INT
 84 STO 18
 85 LASTX
 86 FRC
 87 1 E2
 88 STO 19
 89 STO 22
 90 *
 91 FRC
 92 ST* 19
 93 RCL 04
 94 LASTX
 95 INT
 96 3
 97 -
 98 X<0?
 99 DSE 18
100 X<0?
101 +
102 4
103 +
104 30.6
105 *
106 INT
107 RCL 19
108 +
109 RCL 18
110 RCL 22
111 /
112 INT
113 LASTX
114 4
115 /
116 INT
117 -
118 -
119 0
120 X<> 18
121 RCL 42
122 ST* 22
123 *
124 INT
125 +
126 RCL 41
127 -
128 RCL 44
129 360
130 /
131 +
132 RCL 22
133 /
134 STO 03
135 LBL 14
136 RCL 07
137 STO 21
138 RAD
139 40
140 X<> 18
141 RCL 03
142 +
143 STO 22
144 XEQ 00
145 STO 24
146 XEQ 00
147 XEQ 01
148 STO 25
149 XEQ 00
150 STO 20
151 XEQ 00
152 XEQ 01
153 STO 19
154 -
155 360
156 D-R
157 MOD
158 STO 23
159 FIX 06
160 RND
161 LBL 02
162 LASTX
163 SIN
164 RCL 24
165 *
166 RCL 23
167 +
168 RND
169 X#Y?
170 GTO 02
171 RCL 24
172 ASIN
173 COS
174 P-R
175 LASTX
176 /
177 RCL 24
178 -
179 R-P
180 1/X
181 RCL 26
182 *
183 ST- 20
184 -
185 ST+ 19
186 RCL 20
187 RCL 25
188 RCL 19
189 1
190 P-R
191 RDN
192 P-R
193 R^
194 R-P
195 RDN
196 X<>Y
197 STO 19
198 ASIN
199 COS
200 STO 20
201 RDN
202 -
203 SIN
204 DEG
205 ASIN
206 15
207 /
208 RCL 44
209 LASTX
210 /
211 ENTER
212 FIX 00
213 RND
214 -
215 -
216 ST- 21
217 RCL 43
218 1
219 P-R
220 ST* 20
221 RDN
222 ST* 19
223 RTN
224 LBL 00
225 RCL IND 18
226 DSE 18
227 XEQ 01
228 LBL 01
229 RCL 22
230 *
231 RCL IND 18
232 +
233 DSE 18
234 RTN
235 LBL A
236 SF 17
237 LBL C
238 CF 29
239 ADV
240 FC?C 22
241 GTO 06
242 STO 17
243 FIX 01
244 "DST"
245 FS? 17
246 "STND"
247 1
248 FS?C 17
249 CLX
250 XEQ 00
251 STO 07
252 12
253 STO 04
254 ST+ 07
255 8.017
256 STO 01
257 STO 02
258 CLD
259 RCL 17
260 XEQ 07
261 .5
262 HR
263 STO 06
264 SF 16
265 XEQ 04
266 6
267 XEQ 04
268 RCL 04
269 XEQ 04
270 18
271 STO 05
272 XEQ 04
273 CF 16
274 SF 17
275 SF 18
276 RCL 22
277 XEQ 05
278 RCL 23
279 XEQ 05
280 RCL 24
281 XEQ 05
282 RCL 25
283 XEQ 05
284 CF 17
285 CLX
286 XEQ 05
287 RCL 25
288 XEQ 05
289 RCL 24
290 XEQ 05
291 RCL 23
292 XEQ 05
293 RCL 22
294 XEQ 05
295 FC? 01
296 GTO 03
297 LBL 10
298 RCL 01
299 STO 02
300 SF 01
301 SF 17
302 CF 18
303 XEQ 14
304 RCL 05
305 XEQ 04
306 RCL 04
307 XEQ 04
308 6
309 XEQ 04
310 RCL 06
311 XEQ 04
312 CF 17
313 CLX
314 XEQ 05
315 RCL 06
316 XEQ 04
317 6
318 XEQ 04
319 RCL 04
320 XEQ 04
321 RCL 05
322 SF 18
323 XEQ 04
324 FS?C 19
325 GTO 10
326 LBL 03
327 BEEP
328 LBL 06
329 CF 17
330 FIX 04
331 RCL 01
332 STO 02
333 VIEW 17
334 FC? 21
335 PSE
336 XEQ 06
337 FC? 21
338 PSE
339 XEQ 03
340 XEQ 12
341 XEQ 13
342 "RISE "
343 XEQ 11
344 "NOON "
345 XEQ 11
346 "SET  "
347 XEQ 11
348 XEQ 13
349 XEQ 12
350 LBL 03
351 "ASTRO"
352 LBL 11
353 RCL IND 02
354 ISG 02
355 SIGN
356 X=0?
357 SF 15
358 LASTX
359 FS?C 15
360 GTO 00
361 6
362 *
363 FIX 01
364 RND
365 FIX 02
366 6
367 /
368 >" "
369 LBL 08
370 HMS
371 10
372 X<>Y
373 X<Y?
374 >" "
375 LBL 00
376 >" "
377 ARCL X
378 AVIEW
379 FC? 21
380 PSE
381 RTN
382 LBL 12
383 "NAUT "
384 GTO 11
385 LBL 13
386 "CIVIL"
387 GTO 11
388 LBL D
389 CF 01
390 SF 19
391 LBL E
392 ADV
393 FC?C 01
394 SF 01
395 LBL 06
396 "APPROX"
397 FS? 01
398 "EXACT"
399 AVIEW
400 RTN
401 END