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