00 { 1439-Byte Prgm }
01▸LBL "ASTRA"
02 DEG
03 CF 02
04 CF 03
05 CF 05
06 CF 29
07 "      • ASTRA •"
08 ├"[LF]         zon"
09 AVIEW
10 STOP
11▸LBL 00
12 "COP1"
13 KEY 1 XEQ A
14 "COP2"
15 KEY 2 XEQ B
16 "TRAN"
17 KEY 4 XEQ C
18 "EXIT"
19 KEY 6 GTO J
20 CLA
21 AVIEW
22 MENU
23 STOP
24 GTO 00
25▸LBL A
26 XEQ 01
27 FC? 01
28 RTN
29 STO 20
30 RCL 00
31 STO 21
32 RCL 01
33 STO 22
34 XEQ D
35 RTN
36▸LBL B
37 XEQ 10
38 FIX 01
39 INPUT "Dog"
40 INPUT "Cog"
41 COS
42 RCL× "Dog"
43 60
44 ÷
45 STO 23
46 RCL "Cog"
47 SIN
48 RCL× "Dog"
49 RCL 19
50 RCL 23
51 2
52 ÷
53 +
54 COS
55 ÷
56 60
57 ÷
58 STO 24
59 XEQ 12
60 FC? 01
61 RTN
62 STO 02
63 XEQ 02
64 FC? 01
65 RTN
66 RCL 11
67 XEQ 09
68 STO "laf"
69 RCL 10
70 ABS
71 180
72 X<Y?
73 GTO 11
74 LASTX
75▸LBL b
76 XEQ 09
77 STO "lof"
78 SF 02
79 XEQ D
80 PRA
81 PROMPT
82 RTN
83▸LBL C
84 XEQ 10
85 FIX 03
86 INPUT "lon*"
87 XEQ 08
88 15
89 ÷
90 12
91 X<>Y
92 -
93 →HMS
94 "Transit  "
95 PRA
96 ├" ~ "
97 AIP
98 ├":"
99 FP
100 100
101 ×
102 AIP
103 ├" U.T"
104 PROMPT
105 XEQ 12
106 FC? 01
107 RTN
108▸LBL c
109 RCL 01
110 90
111 RCL- 08
112 "SOUTH"
113 KEY 1 GTO 16
114 "NORTH"
115 KEY 4 GTO 15
116 CLA
117 MENU
118 PROMPT
119 GTO c
120▸LBL 15
121 +/-
122▸LBL 16
123 +
124 XEQ 09
125 STO "laf"
126 SF 02
127 SF 03
128 XEQ D
129 CF 03
130 PRA
131 PROMPT
132 RTN
133▸LBL 01
134 XEQ 10
135 FIX 03
136 INPUT "lat*"
137 XEQ 08
138 STO 19
139▸LBL 12
140 FIX 02
141 INPUT "Ie"
142 INPUT "HoE"
143 XEQ I
144 INPUT "Da.Mo"
145 IP
146 STO 00
147 LASTX
148 FP
149 100
150 ×
151 STO 15
152 RCL IND ST X
153 STO+ 00
154 FIX 00
155 INPUT "Year"
156 4
157 ÷
158 FP
159 STO 02
160 X=0?
161 XEQ 13
162 FIX 04
163 INPUT "U.T"
164 →HR
165 24
166 ÷
167 STO+ 00
168 FIX 03
169 INPUT "ALTs"
170 RCL "Year"
171 2ᴇ3
172 -
173 365.25
174 ×
175 0.5
176 +
177 RCL- 02
178 365250
179 ÷
180 STO 14
181 RCL 00
182 LASTX
183 ÷
184 +
185 STO 01
186 RAD
187 6283.01961
188 ×
189 0.043179665
190 -
191 STO 02
192 XEQ 20
193 0.033417
194 RCL 02
195 SIN
196 ×
197 RCL+ 02
198 RCL 02
199 2
200 ×
201 SIN
202 3489ᴇ-7
203 ×
204 +
205 RCL 01
206 0.300052641
207 ×
208 4.938242632
209 +
210 +
211 STO 03
212 SIN
213 0.397777
214 ×
215 ASIN
216 →DEG
217 STO 01
218 XEQ 09
219 STO "DEC"
220 RCL 03
221 TAN
222 0.917482
223 ×
224 ATAN
225 STO 02
226 RCL 03
227 COS
228 X<0?
229 XEQ 14
230 RCL 00
231 360.98564735
232 ×
233 RCL 14
234 360007.7
235 ×
236 100.465
237 +
238 360
239 MOD
240 +
241 360
242 ÷
243 FP
244 PI
245 ×
246 2
247 ×
248 RCL- 02
249 →DEG
250 X<0?
251 XEQ 24
252 STO 00
253 XEQ 09
254 STO "GHA"
255 DEG
256 FIX 00
257 INPUT "Corr"
258 INPUT "Limb"
259 RCL "ALTs"
260 XEQ 08
261 RCL "Ie"
262 60
263 ÷
264 -
265 RCL "Corr"
266 3600
267 ÷
268 +
269 RCL "HoE"
270 X=0?
271 GTO 18
272 SQRT
273 0.0293
274 ×
275 -
276▸LBL 17
277 STO 03
278 4.4
279 +
280 7.31
281 X<>Y
282 ÷
283 RCL+ 03
284 TAN
285 1/X
286 60
287 ÷
288 RCL 03
289 X<>Y
290 -
291 RCL "Limb"
292 RCL "S.D"
293 ×
294 -
295 STO 08
296 SIN
297 RTN
298▸LBL 13
299 1
300 STO 02
301 RCL 15
302 2
303 X≥Y?
304 RTN
305 1
306 STO+ 00
307 RTN
308▸LBL 14
309 PI
310 STO+ 02
311 RTN
312▸LBL 18
313 R↓
314 2
315 ÷
316 GTO 17
317▸LBL 02
318 CF 04
319 "Npos"
320 KEY 1 GTO 22
321 "Spos"
322 KEY 4 GTO 21
323 CLA
324 MENU
325 PROMPT
326 GTO 02
327▸LBL 21
328 SF 04
329▸LBL 22
330 CF 05
331 RCL 00
332 RCL- 21
333 ABS
334 180
335 X>Y?
336 GTO 19
337 RCL 00
338 RCL 21
339 X<Y?
340 SF 05
341▸LBL 23
342 "       * FIX *"
343 AVIEW
344 RCL 01
345 STO 05
346 SIN
347 STO 06
348 LASTX
349 COS
350 STO 07
351 RCL 21
352 RCL- 24
353 STO 04
354 RCL 22
355 SIN
356 STO 08
357 LASTX
358 COS
359 STO 09
360 RCL 02
361 RCL 20
362 X<Y?
363 GTO 04
364▸LBL 03
365 RCL 02
366 RCL 06
367 RCL 05
368 SIN
369 ×
370 -
371 RCL÷ 07
372 RCL 05
373 COS
374 ÷
375 ACOS
376 FS? 05
377 +/-
378 RCL- 00
379 CPX?
380 GTO 04
381 STO 10
382 RCL+ 04
383 COS
384 RCL× 09
385 STO 12
386 X↑2
387 RCL 20
388 X↑2
389 -
390 RCL 08
391 X↑2
392 +
393 X<0?
394 GTO 04
395 SQRT
396 FS? 04
397 +/-
398 RCL+ 08
399 RCL 20
400 RCL+ 12
401 ÷
402 ATAN
403 2
404 ×
405 RCL+ 23
406 STO 11
407 RCL- 05
408 ABS
409 1ᴇ-3
410 X≥Y?
411 RTN
412 RCL 11
413 STO 05
414 GTO 03
415▸LBL 04
416 RCL 20
417 RCL 08
418 RCL 05
419 RCL- 23
420 STO 12
421 SIN
422 ×
423 -
424 RCL 12
425 COS
426 ÷
427 RCL÷ 09
428 ACOS
429 +/-
430 FS? 05
431 +/-
432 RCL- 04
433 CPX?
434 GTO 03
435 STO 10
436 RCL+ 00
437 COS
438 RCL× 07
439 STO 12
440 X↑2
441 RCL 02
442 X↑2
443 -
444 RCL 06
445 X↑2
446 +
447 X<0?
448 GTO 03
449 SQRT
450 FS? 04
451 +/-
452 RCL+ 06
453 RCL 02
454 RCL+ 12
455 ÷
456 ATAN
457 2
458 ×
459 STO 11
460 RCL- 05
461 ABS
462 1ᴇ-3
463 X≥Y?
464 RTN
465 RCL 11
466 STO 05
467 GTO 04
468▸LBL D
469 CLMENU
470 CLA
471 RCL "Da.Mo"
472 AIP
473 ├"/"
474 FP
475 100
476 ×
477 AIP
478 ├"/"
479 FIX 00
480 ARCL "Year"
481 ├" • "
482 RCL "U.T"
483 AIP
484 ├":"
485 FP
486 100
487 ×
488 AIP
489 ├":"
490 FP
491 100
492 ×
493 AIP
494 FS? 02
495 GTO d
496 ├"[LF]ALTs: "
497 FIX 03
498 ARCL "ALTs"
499 PRA
500 PROMPT
501 RTN
502▸LBL d
503 CF 02
504 ├"[LF]"
505 RCL "laf"
506 ENTER
507 XEQ 07
508 R↓
509 X<0?
510 GTO 05
511 ├"'N  "
512▸LBL e
513 FS? 03
514 RTN
515 RCL "lof"
516 ENTER
517 XEQ 07
518 R↓
519 X<0?
520 GTO 06
521 ├"'E"
522 RTN
523▸LBL 05
524 ├"'S  "
525 GTO e
526▸LBL 06
527 ├"'W"
528 RTN
529▸LBL 07
530 ABS
531 AIP
532 ├"°"
533 FP
534 100
535 ×
536 FIX 01
537 RND
538 ARCL ST X
539 RTN
540▸LBL 08
541 IP
542 LASTX
543 FP
544 5
545 ×
546 3
547 ÷
548 +
549 RTN
550▸LBL 09
551 IP
552 LASTX
553 FP
554 3
555 ×
556 5
557 ÷
558 +
559 RTN
560▸LBL 10
561 CLMENU
562 SF 01
563 "RTN"
564 KEY 6 GTO H
565 MENU
566 RTN
567▸LBL 11
568 LASTX
569 ENTER
570 SIGN
571 360
572 ×
573 -
574 GTO b
575▸LBL H
576 CF 01
577 RTN
578▸LBL I
579 -1
580 STO 01
581 30
582 STO 02
583 58
584 STO 03
585 89
586 STO 04
587 119
588 STO 05
589 150
590 STO 06
591 180
592 STO 07
593 211
594 STO 08
595 242
596 STO 09
597 272
598 STO 10
599 303
600 STO 11
601 333
602 STO 12
603 RTN
604▸LBL 19
605 RCL 00
606 RCL 21
607 X>Y?
608 SF 05
609 GTO 23
610▸LBL 20
611 COS
612 0.017
613 ×
614 1
615 X<>Y
616 -
617 0.267
618 X<>Y
619 ÷
620 STO "S.D"
621 RTN
622▸LBL 24
623 360
624 +
625 RTN
626▸LBL J
627 CLMENU
628 EXITALL
629 CLST
630 DEG
631 FIX 04
632 END