STARS BAS PR.Z
FILE INFORMATION
FILENAME(S): STARS BAS PR.Z
FILE TYPE(S): PRG
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
a4d3f8321259233f211d3303d3dd8cefa170e15c9fedfc95bcced1873c65fce2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | STARS BAS PR.Z | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 89 20 35 30 00 23 08 14 00 94 |....... 50.#....|
00000010: 22 40 30 3A 53 54 41 52 53 2E 42 41 53 2E 50 52 |"@0:STARS.BAS.PR|
00000020: 22 2C 38 00 3B 08 1E 00 95 22 30 3A 53 54 41 52 |",8.;...."0:STAR|
00000030: 53 2E 42 41 53 2E 50 52 22 2C 38 00 41 08 28 00 |S.BAS.PR",8.A.(.|
00000040: 80 00 4F 08 32 00 99 20 C7 28 31 34 37 29 20 00 |..O.2.. .(147) .|
00000050: 62 08 3C 00 8F 20 43 4C 45 41 52 20 53 43 52 45 |b.<.. CLEAR SCRE|
00000060: 45 4E 00 68 08 46 00 8F 00 79 08 50 00 8F 20 20 |EN.h.F...y.P.. |
00000070: 53 54 41 52 53 2E 42 41 53 00 A0 08 5A 00 8F 20 |STARS.BAS...Z.. |
00000080: 42 59 20 4A 41 4D 45 53 20 41 2E 20 49 4E 47 52 |BY JAMES A. INGR|
00000090: 41 4D 20 20 20 4A 41 4E 2E 37 2C 20 31 39 38 31 |AM JAN.7, 1981|
000000A0: 00 D8 08 64 00 8F 20 41 44 41 50 54 45 44 20 46 |...d.. ADAPTED F|
000000B0: 52 4F 4D 20 43 52 45 41 54 49 56 45 20 43 4F 4D |ROM CREATIVE COM|
000000C0: 50 55 54 49 4E 47 2C 20 4A 55 4E 45 20 31 39 38 |PUTING, JUNE 198|
000000D0: 33 20 49 53 53 55 45 2E 00 DE 08 6E 00 8F 00 F2 |3 ISSUE....n....|
000000E0: 08 78 00 8F 20 20 49 4E 53 54 52 55 43 54 49 4F |.x.. INSTRUCTIO|
000000F0: 4E 53 00 00 09 82 00 99 20 C7 28 31 34 37 29 20 |NS...... .(147) |
00000100: 00 13 09 8C 00 8F 20 43 4C 45 41 52 20 53 43 52 |...... CLEAR SCR|
00000110: 45 45 4E 00 19 09 96 00 99 00 1F 09 A0 00 99 00 |EEN.............|
00000120: 4A 09 AA 00 99 20 22 2A 2A 2A 54 41 42 4C 45 20 |J.... "***TABLE |
00000130: 4F 46 20 56 49 53 49 42 4C 45 20 53 4B 59 20 4F |OF VISIBLE SKY O|
00000140: 42 4A 45 43 54 53 2A 2A 2A 22 00 77 09 B4 00 99 |BJECTS***".w....|
00000150: 20 22 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 | "THIS PROGRAM C|
00000160: 48 45 43 4B 53 20 54 48 52 4F 55 47 48 20 41 20 |HECKS THROUGH A |
00000170: 4D 41 53 54 45 52 22 00 9F 09 BE 00 99 22 54 41 |MASTER"......"TA|
00000180: 42 4C 45 20 43 4F 4E 54 41 49 4E 49 4E 47 20 53 |BLE CONTAINING S|
00000190: 54 41 52 53 20 41 4E 44 20 4F 54 48 45 52 22 00 |TARS AND OTHER".|
000001A0: D0 09 C8 00 99 22 49 4E 54 45 52 45 53 54 49 4E |....."INTERESTIN|
000001B0: 47 20 4F 42 4A 45 43 54 53 20 49 4E 20 54 48 45 |G OBJECTS IN THE|
000001C0: 20 4E 49 47 48 54 20 53 4B 59 2C 20 41 4E 44 22 | NIGHT SKY, AND"|
000001D0: 00 F9 09 D2 00 99 22 44 45 54 45 52 4D 49 4E 45 |......"DETERMINE|
000001E0: 53 20 57 48 49 43 48 20 4F 4E 45 53 20 41 52 45 |S WHICH ONES ARE|
000001F0: 20 56 49 53 49 42 4C 45 22 00 26 0A DC 00 99 22 | VISIBLE".&...."|
00000200: 41 54 20 41 20 53 50 45 43 49 46 49 43 20 54 49 |AT A SPECIFIC TI|
00000210: 4D 45 20 41 4E 44 20 44 41 54 45 2E 20 20 C9 54 |ME AND DATE. .T|
00000220: 20 54 48 45 4E 22 00 4C 0A E6 00 99 22 43 41 4C | THEN".L...."CAL|
00000230: 43 55 4C 41 54 45 53 20 54 48 45 20 43 4F 4D 50 |CULATES THE COMP|
00000240: 41 53 53 20 42 45 41 52 49 4E 47 22 00 7B 0A F0 |ASS BEARING".{..|
00000250: 00 99 22 41 4E 44 20 41 4C 54 49 54 55 44 45 20 |.."AND ALTITUDE |
00000260: 41 42 4F 56 45 20 54 48 45 20 48 4F 52 49 5A 4F |ABOVE THE HORIZO|
00000270: 4E 20 46 4F 52 20 54 48 41 54 22 00 A6 0A FA 00 |N FOR THAT".....|
00000280: 99 22 54 49 4D 45 2E 20 20 54 48 45 20 54 41 42 |."TIME. THE TAB|
00000290: 4C 45 20 49 4E 43 4C 55 44 45 53 20 54 48 45 20 |LE INCLUDES THE |
000002A0: 4E 41 4D 45 2C 22 00 D6 0A 04 01 99 22 4D 41 47 |NAME,"......"MAG|
000002B0: 4E 49 54 55 44 45 2C 20 52 49 47 48 54 20 41 53 |NITUDE, RIGHT AS|
000002C0: 43 45 4E 53 49 4F 4E 2C 20 44 45 43 4C 49 4E 41 |CENSION, DECLINA|
000002D0: 54 49 4F 4E 2C 22 00 04 0B 0E 01 99 22 42 45 41 |TION,"......"BEA|
000002E0: 52 49 4E 47 2C 20 41 4E 44 20 41 4C 54 49 54 55 |RING, AND ALTITU|
000002F0: 44 45 2E 20 20 4E 4F 54 45 20 54 48 41 54 20 54 |DE. NOTE THAT T|
00000300: 49 4D 45 22 00 3A 0B 18 01 99 22 4D 55 53 54 20 |IME".:...."MUST |
00000310: 42 45 20 45 4E 54 45 52 45 44 20 49 4E 20 32 34 |BE ENTERED IN 24|
00000320: 20 48 4F 55 52 20 46 4F 52 4D 41 54 20 28 32 20 | HOUR FORMAT (2 |
00000330: 50 4D 3D 31 34 3A 30 30 29 22 00 6F 0B 22 01 99 |PM=14:00)".o."..|
00000340: 22 41 4E 44 20 54 48 41 54 20 4E 55 4D 42 45 52 |"AND THAT NUMBER|
00000350: 53 20 4C 45 53 53 20 54 48 41 4E 20 31 30 20 4D |S LESS THAN 10 M|
00000360: 55 53 54 20 42 45 20 45 4E 54 45 52 45 44 22 00 |UST BE ENTERED".|
00000370: 9C 0B 2C 01 99 22 41 53 20 32 20 44 49 47 49 54 |..,.."AS 2 DIGIT|
00000380: 53 20 57 49 54 48 20 41 20 4C 45 41 44 49 4E 47 |S WITH A LEADING|
00000390: 20 5A 45 52 4F 20 28 30 35 29 2E 22 00 C4 0B 36 | ZERO (05)."...6|
000003A0: 01 99 22 42 45 41 52 49 4E 47 53 3A 20 30 20 49 |.."BEARINGS: 0 I|
000003B0: 53 20 4E 4F 52 54 48 2C 20 45 41 53 54 20 49 53 |S NORTH, EAST IS|
000003C0: 20 39 30 22 00 EF 0B 40 01 99 22 20 20 20 20 20 | 90"...@.." |
000003D0: 20 20 20 20 20 31 38 30 20 49 53 20 53 4F 55 54 | 180 IS SOUT|
000003E0: 48 2C 20 32 37 30 20 49 53 20 57 45 53 54 22 00 |H, 270 IS WEST".|
000003F0: 3A 0C 4A 01 99 22 43 48 41 4E 47 45 20 4C 49 4E |:.J.."CHANGE LIN|
00000400: 45 53 20 33 36 30 20 54 4F 20 34 36 30 20 46 4F |ES 360 TO 460 FO|
00000410: 52 20 59 4F 55 52 20 4F 57 4E 20 4C 4F 4E 47 49 |R YOUR OWN LONGI|
00000420: 54 55 44 45 2C 20 4C 41 54 49 54 55 44 45 2C 20 |TUDE, LATITUDE, |
00000430: 41 4E 44 20 5A 4F 4E 45 2E 22 00 40 0C 54 01 99 |AND ZONE.".@.T..|
00000440: 00 46 0C 5E 01 8F 00 62 0C 68 01 8F 20 20 49 4E |.F.^...b.h.. IN|
00000450: 49 54 49 41 4C 49 5A 45 20 43 4F 4E 53 54 41 4E |ITIALIZE CONSTAN|
00000460: 54 53 00 75 0C 72 01 4C 4E 47 B2 33 36 30 AB 37 |TS.u.r.LNG.360.7|
00000470: 39 2E 32 35 20 00 98 0C 7C 01 8F 20 53 43 41 52 |9.25 ...|.. SCAR|
00000480: 42 4F 52 4F 55 47 48 2C 20 4F 4E 54 41 52 49 4F |BOROUGH, ONTARIO|
00000490: 2C 20 43 41 4E 41 44 41 00 A8 0C 86 01 4C 41 54 |, CANADA.....LAT|
000004A0: B2 34 33 2E 37 35 20 20 00 C3 0C 90 01 8F 20 53 |.43.75 ...... S|
000004B0: 4F 55 54 48 20 45 4E 44 20 4F 46 20 42 4F 52 4F |OUTH END OF BORO|
000004C0: 55 47 48 00 D3 0C 9A 01 47 58 B2 31 39 20 20 20 |UGH.....GX.19 |
000004D0: 20 20 20 00 EF 0C A4 01 8F 20 45 41 53 54 45 52 | ...... EASTER|
000004E0: 4E 20 53 54 41 4E 44 41 52 44 20 54 49 4D 45 00 |N STANDARD TIME.|
000004F0: F9 0C AE 01 4E B2 39 31 20 00 1F 0D B8 01 8F 20 |....N.91 ...... |
00000500: 4E 55 4D 42 45 52 20 4F 46 20 53 4B 59 20 4F 42 |NUMBER OF SKY OB|
00000510: 4A 45 43 54 53 20 41 56 41 49 4C 41 42 4C 45 00 |JECTS AVAILABLE.|
00000520: 25 0D C2 01 8F 00 57 0D CC 01 8F 20 20 49 4E 50 |%.....W.... INP|
00000530: 55 54 20 4C 4F 43 41 4C 20 56 41 4C 55 45 53 20 |UT LOCAL VALUES |
00000540: 49 4E 20 54 48 45 20 46 49 56 45 20 4C 49 4E 45 |IN THE FIVE LINE|
00000550: 53 20 41 42 4F 56 45 00 71 0D D6 01 85 22 44 41 |S ABOVE.q...."DA|
00000560: 54 45 20 28 41 53 20 4D 4D 2F 44 44 29 22 3B 44 |TE (AS MM/DD)";D|
00000570: 24 00 96 0D E0 01 85 22 54 49 4D 45 20 28 32 34 |$......"TIME (24|
00000580: 20 48 20 43 4C 4F 43 4B 20 41 53 20 48 48 2F 4D | H CLOCK AS HH/M|
00000590: 4D 29 22 3B 54 24 00 C2 0D EA 01 85 22 53 54 41 |M)";T$......"STA|
000005A0: 4E 44 41 52 44 20 54 49 4D 45 20 28 53 29 20 4F |NDARD TIME (S) O|
000005B0: 52 20 44 41 59 4C 49 47 48 54 20 28 44 29 22 3B |R DAYLIGHT (D)";|
000005C0: 46 24 00 FB 0D F4 01 99 22 4D 41 58 49 4D 55 4D |F$......"MAXIMUM|
000005D0: 20 4D 41 47 4E 49 54 55 44 45 20 28 4D 49 4E 2E | MAGNITUDE (MIN.|
000005E0: 20 42 52 49 47 48 54 4E 45 53 53 29 20 46 4F 52 | BRIGHTNESS) FOR|
000005F0: 20 54 41 42 4C 45 22 3A 85 4D 47 00 01 0E FE 01 | TABLE":.MG.....|
00000600: 8F 00 1E 0E 08 02 8F 20 43 41 4C 43 55 4C 41 54 |....... CALCULAT|
00000610: 45 20 42 41 53 49 43 20 56 41 4C 55 45 53 00 32 |E BASIC VALUES.2|
00000620: 0E 12 02 8F 20 44 45 43 49 50 48 45 52 20 54 49 |.... DECIPHER TI|
00000630: 4D 45 00 45 0E 1C 02 54 48 B2 C5 28 C8 28 54 24 |ME.E...TH..(.(T$|
00000640: 2C 32 29 29 20 00 56 0E 26 02 8F 20 5A 4F 4E 45 |,2)) .V.&.. ZONE|
00000650: 20 48 4F 55 52 53 00 69 0E 30 02 54 4D B2 C5 28 | HOURS.i.0.TM..(|
00000660: C9 28 54 24 2C 32 29 29 20 00 7C 0E 3A 02 8F 20 |.(T$,2)) .|.:.. |
00000670: 5A 4F 4E 45 20 4D 49 4E 55 54 45 53 00 8D 0E 44 |ZONE MINUTES...D|
00000680: 02 54 5A B2 54 48 AA 54 4D AD 36 30 20 00 A5 0E |.TZ.TH.TM.60 ...|
00000690: 4E 02 8F 20 44 45 43 49 4D 41 4C 20 5A 4F 4E 45 |N.. DECIMAL ZONE|
000006A0: 20 54 49 4D 45 00 E0 0E 58 02 8B 20 46 24 B2 22 | TIME...X.. F$."|
000006B0: 44 22 20 A7 20 47 58 B2 47 58 AA 31 20 3A 8F 20 |D" . GX.GX.1 :. |
000006C0: 43 4F 52 52 45 43 54 20 46 4F 52 20 44 41 59 4C |CORRECT FOR DAYL|
000006D0: 49 47 48 54 20 53 41 56 49 4E 47 20 54 49 4D 45 |IGHT SAVING TIME|
000006E0: 00 EE 0E 62 02 47 54 B2 54 5A AB 47 58 20 00 0C |...b.GT.TZ.GX ..|
000006F0: 0F 6C 02 8F 20 55 4E 43 4F 52 52 45 43 54 45 44 |.l.. UNCORRECTED|
00000700: 20 44 45 43 49 4D 41 4C 20 47 4D 54 00 22 0F 76 | DECIMAL GMT.".v|
00000710: 02 8B 20 47 54 B3 30 20 A7 20 47 54 B2 47 54 AA |.. GT.0 . GT.GT.|
00000720: 32 34 00 34 0F 80 02 8B 20 47 54 B3 32 34 20 A7 |24.4.... GT.24 .|
00000730: 20 36 37 30 00 41 0F 8A 02 47 54 B2 47 54 AB 32 | 670.A...GT.GT.2|
00000740: 34 00 4B 0F 94 02 89 20 36 34 30 00 63 0F 9E 02 |4.K.... 640.c...|
00000750: 54 4C B2 47 54 AA 28 4C 4E 47 AD 33 36 30 29 AC |TL.GT.(LNG.360).|
00000760: 32 34 20 00 85 0F A8 02 8F 20 55 4E 43 4F 52 52 |24 ...... UNCORR|
00000770: 45 43 54 45 44 20 4C 4F 43 41 4C 20 53 54 41 52 |ECTED LOCAL STAR|
00000780: 20 54 49 4D 45 00 97 0F B2 02 8B 20 54 4C B3 32 | TIME...... TL.2|
00000790: 34 20 A7 20 37 32 30 00 A4 0F BC 02 54 4C B2 54 |4 . 720.....TL.T|
000007A0: 4C AB 32 34 00 AE 0F C6 02 89 20 36 39 30 00 D8 |L.24...... 690..|
000007B0: 0F D0 02 54 4C 24 B2 C4 28 B5 28 54 4C 29 29 AA |...TL$..(.(TL)).|
000007C0: 22 3A 22 AA C4 28 B5 28 28 54 4C AB B5 28 54 4C |":"..(.((TL..(TL|
000007D0: 29 29 AC 36 30 29 29 20 00 EF 0F DA 02 8F 20 53 |)).60)) ...... S|
000007E0: 54 41 52 20 54 49 4D 45 20 53 54 52 49 4E 47 00 |TAR TIME STRING.|
000007F0: 19 10 E4 02 47 54 24 B2 C4 28 B5 28 47 54 29 29 |....GT$..(.(GT))|
00000800: AA 22 3A 22 AA C4 28 B5 28 28 47 54 AB B5 28 47 |.":"..(.((GT..(G|
00000810: 54 29 29 AC 36 30 29 29 20 00 2A 10 EE 02 8F 20 |T)).60)) .*.... |
00000820: 47 4D 54 20 53 54 52 49 4E 47 00 30 10 F8 02 8F |GMT STRING.0....|
00000830: 00 58 10 02 03 8F 20 20 43 41 4C 43 55 4C 41 54 |.X.... CALCULAT|
00000840: 45 20 44 41 59 53 20 46 52 4F 4D 20 53 45 50 54 |E DAYS FROM SEPT|
00000850: 45 4D 42 45 52 20 32 32 00 6A 10 0C 03 4D B2 C5 |EMBER 22.j...M..|
00000860: 28 C8 28 44 24 2C 32 29 29 20 00 76 10 16 03 8F |(.(D$,2)) .v....|
00000870: 20 4D 4F 4E 54 48 00 89 10 20 03 44 59 B2 C5 28 | MONTH... .DY..(|
00000880: C9 28 44 24 2C 32 29 29 20 00 93 10 2A 03 8F 20 |.(D$,2)) ...*.. |
00000890: 44 41 59 00 B4 10 34 03 8B 20 44 59 B2 32 32 20 |DAY...4.. DY.22 |
000008A0: AF 20 4D B2 39 20 A7 20 43 44 B2 30 3A 20 89 20 |. M.9 . CD.0: . |
000008B0: 31 30 32 30 00 D9 10 3E 03 8B 20 44 59 B1 32 32 |1020...>.. DY.22|
000008C0: 20 AF 20 4D B2 39 20 A7 20 43 44 B2 44 59 AB 32 | . M.9 . CD.DY.2|
000008D0: 32 20 3A 89 20 31 30 32 30 00 F6 10 48 03 8B 20 |2 :. 1020...H.. |
000008E0: 4D B2 31 30 20 A7 20 43 44 B2 38 AA 44 59 20 3A |M.10 . CD.8.DY :|
000008F0: 89 20 31 30 32 30 00 20 11 52 03 8B 20 4D B3 39 |. 1020. .R.. M.9|
00000900: 20 B0 20 28 4D B2 39 20 AF 20 44 59 B3 32 32 29 | . (M.9 . DY.22)|
00000910: 20 A7 20 4D B2 4D AA 31 32 20 3A 89 20 38 39 30 | . M.M.12 :. 890|
00000920: 00 31 11 5C 03 8B 20 4D B1 31 30 20 A7 20 38 39 |.1.\.. M.10 . 89|
00000930: 30 00 52 11 66 03 99 22 49 4D 50 52 4F 50 45 52 |0.R.f.."IMPROPER|
00000940: 20 44 41 54 45 20 2D 20 52 45 2D 45 4E 54 45 52 | DATE - RE-ENTER|
00000950: 22 20 00 5C 11 70 03 89 20 34 37 30 00 67 11 7A |" .\.p.. 470.g.z|
00000960: 03 52 B2 4D AB 31 30 00 70 11 84 03 43 44 B2 38 |.R.M.10.p...CD.8|
00000970: 00 7D 11 8E 03 86 20 44 33 28 31 32 29 00 8D 11 |.}.... D3(12)...|
00000980: 98 03 81 20 50 53 B2 31 20 A4 20 31 32 00 9A 11 |... PS.1 . 12...|
00000990: A2 03 87 20 44 33 28 50 53 29 00 A3 11 AC 03 82 |... D3(PS)......|
000009A0: 20 50 53 00 B2 11 B6 03 81 20 58 B2 31 20 A4 20 | PS...... X.1 . |
000009B0: 52 20 00 C6 11 C0 03 8F 20 41 44 44 20 55 50 20 |R ...... ADD UP |
000009C0: 4D 4F 4E 54 48 53 00 D6 11 CA 03 43 44 B2 43 44 |MONTHS.....CD.CD|
000009D0: AA 44 33 28 58 29 00 DE 11 D4 03 82 20 58 00 08 |.D3(X)...... X..|
000009E0: 12 DE 03 83 20 33 31 2C 33 30 2C 33 31 2C 33 31 |.... 31,30,31,31|
000009F0: 2C 32 38 2C 33 31 2C 33 30 2C 33 31 2C 33 30 2C |,28,31,30,31,30,|
00000A00: 33 31 2C 33 31 2C 33 30 00 16 12 E8 03 43 44 B2 |31,31,30.....CD.|
00000A10: 43 44 AA 44 59 20 00 39 12 F2 03 8F 20 41 44 44 |CD.DY .9.... ADD|
00000A20: 20 49 4E 20 44 41 59 53 20 49 4E 20 43 55 52 52 | IN DAYS IN CURR|
00000A30: 45 4E 54 20 4D 4F 4E 54 48 00 4E 12 FC 03 5A 4C |ENT MONTH.N...ZL|
00000A40: 48 B2 43 44 AC 32 34 AD 33 36 35 AA 54 4C 00 68 |H.CD.24.365.TL.h|
00000A50: 12 06 04 8B 20 5A 4C 48 B1 32 34 20 A7 20 5A 4C |.... ZLH.24 . ZL|
00000A60: 48 B2 5A 4C 48 AB 32 34 00 95 12 10 04 5A 4C 48 |H.ZLH.24.....ZLH|
00000A70: 24 B2 C4 28 B5 28 5A 4C 48 29 29 AA 22 3A 22 AA |$..(.(ZLH)).":".|
00000A80: C4 28 B5 28 28 5A 4C 48 AB B5 28 5A 4C 48 29 29 |.(.((ZLH..(ZLH))|
00000A90: AC 36 30 29 29 00 9B 12 1A 04 8F 00 B6 12 24 04 |.60)).........$.|
00000AA0: 8F 20 20 50 52 49 4E 54 20 54 41 42 4C 45 20 48 |. PRINT TABLE H|
00000AB0: 45 41 44 49 4E 47 00 DE 12 2E 04 85 22 50 52 49 |EADING......"PRI|
00000AC0: 4E 54 45 52 20 28 59 2F 4E 29 22 3B 49 4E 24 20 |NTER (Y/N)";IN$ |
00000AD0: 20 3A 8F 20 50 52 49 4E 54 45 52 20 4F 4E 00 FA | :. PRINTER ON..|
00000AE0: 12 38 04 50 4E B2 33 20 3A 8B 20 49 4E 24 B2 22 |.8.PN.3 :. IN$."|
00000AF0: 59 22 20 20 A7 20 50 4E B2 34 00 05 13 42 04 9F |Y" . PN.4...B..|
00000B00: 50 4E 2C 50 4E 00 35 13 4C 04 98 50 4E 2C 22 20 |PN,PN.5.L..PN," |
00000B10: 20 43 45 4C 45 53 54 49 41 4C 20 4F 42 4A 45 43 | CELESTIAL OBJEC|
00000B20: 54 20 41 56 41 49 4C 41 42 49 4C 49 54 59 20 54 |T AVAILABILITY T|
00000B30: 41 42 4C 45 22 00 3D 13 56 04 98 50 4E 00 45 13 |ABLE".=.V..PN.E.|
00000B40: 60 04 98 50 4E 00 77 13 6A 04 98 50 4E 2C 22 44 |`..PN.w.j..PN,"D|
00000B50: 41 54 45 20 22 3B 44 24 3B A6 33 30 29 3B 22 44 |ATE ";D$;.30);"D|
00000B60: 41 59 53 20 46 52 4F 4D 20 53 45 50 54 2E 20 32 |AYS FROM SEPT. 2|
00000B70: 32 20 3D 22 3B 43 44 00 A9 13 74 04 98 50 4E 2C |2 =";CD...t..PN,|
00000B80: 22 4C 4F 43 41 4C 20 5A 4F 4E 45 20 54 49 4D 45 |"LOCAL ZONE TIME|
00000B90: 20 22 3B 54 24 3B 22 20 28 47 4D 54 20 3D 20 22 | ";T$;" (GMT = "|
00000BA0: 3B 47 54 24 3B 22 29 22 3B 00 CD 13 7E 04 98 50 |;GT$;")";...~..P|
00000BB0: 4E 2C 20 A6 35 29 3B 22 4C 4F 43 41 4C 20 53 54 |N, .5);"LOCAL ST|
00000BC0: 41 52 20 54 49 4D 45 20 22 3B 54 4C 24 00 F6 13 |AR TIME ";TL$...|
00000BD0: 88 04 98 50 4E 2C 22 4C 41 54 49 54 55 44 45 20 |...PN,"LATITUDE |
00000BE0: 22 3B 4C 41 54 3B 22 44 45 47 52 45 45 53 20 4E |";LAT;"DEGREES N|
00000BF0: 4F 52 54 48 22 3B 00 24 14 92 04 98 50 4E 2C 20 |ORTH";.$....PN, |
00000C00: A6 31 32 29 3B 22 4C 4F 4E 47 49 54 55 44 45 20 |.12);"LONGITUDE |
00000C10: 22 3B 4C 4E 47 3B 22 44 45 47 52 45 45 53 20 45 |";LNG;"DEGREES E|
00000C20: 41 53 54 22 00 52 14 9C 04 98 50 4E 2C 22 4F 42 |AST".R....PN,"OB|
00000C30: 4A 45 43 54 53 20 42 52 49 47 48 54 45 52 20 54 |JECTS BRIGHTER T|
00000C40: 48 41 4E 20 4D 41 47 4E 49 54 55 44 45 22 3B 4D |HAN MAGNITUDE";M|
00000C50: 47 3B 00 7D 14 A6 04 98 50 4E 2C 20 A6 35 29 3B |G;.}....PN, .5);|
00000C60: 22 5A 45 4E 49 54 48 20 41 54 20 22 3B 5A 4C 48 |"ZENITH AT ";ZLH|
00000C70: 24 3B 22 20 48 4F 55 52 53 20 52 41 22 00 85 14 |$;" HOURS RA"...|
00000C80: B0 04 98 50 4E 00 8D 14 BA 04 98 50 4E 00 BF 14 |...PN......PN...|
00000C90: C4 04 98 50 4E 2C 22 4F 42 4A 45 43 54 20 20 20 |...PN,"OBJECT |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D | M|
00000CB0: 41 47 22 3B A6 33 29 3B 22 52 2E 41 2E 22 3B 00 |AG";.3);"R.A.";.|
00000CC0: EF 14 CE 04 98 50 4E 2C A6 35 29 3B 22 44 45 43 |.....PN,.5);"DEC|
00000CD0: 2E 22 3B A6 33 29 3B 22 42 45 41 52 49 4E 47 22 |.";.3);"BEARING"|
00000CE0: 3B A6 33 29 3B 22 41 4C 54 49 54 55 44 45 22 00 |;.3);"ALTITUDE".|
00000CF0: 22 15 D8 04 98 50 4E 2C 22 2D 2D 2D 2D 2D 2D 2D |"....PN,"-------|
00000D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D20: 22 3B 00 4C 15 E2 04 98 50 4E 2C 22 2D 2D 2D 2D |";.L....PN,"----|
00000D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 52 15 EC |-----------".R..|
00000D50: 04 8F 00 6F 15 F6 04 8F 20 20 4D 41 49 4E 20 43 |...o.... MAIN C|
00000D60: 41 4C 43 55 4C 41 54 49 4F 4E 20 4C 4F 4F 50 00 |ALCULATION LOOP.|
00000D70: 87 15 00 05 4C 41 54 B2 4C 41 54 AC 36 2E 32 38 |....LAT.LAT.6.28|
00000D80: 33 31 38 AD 33 36 30 00 9D 15 0A 05 4C 41 54 B2 |318.360.....LAT.|
00000D90: 33 2E 31 34 31 35 39 AD 32 AB 4C 41 54 00 AC 15 |3.14159.2.LAT...|
00000DA0: 14 05 81 20 4A B2 31 20 A4 20 4E 20 00 C2 15 1E |... J.1 . N ....|
00000DB0: 05 8F 20 52 45 41 44 20 44 41 54 41 20 54 41 42 |.. READ DATA TAB|
00000DC0: 4C 45 00 D4 15 28 05 87 20 4E 24 2C 42 52 2C 52 |LE...(.. N$,BR,R|
00000DD0: 41 24 2C 44 00 02 16 32 05 8B 20 42 52 B1 4D 47 |A$,D...2.. BR.MG|
00000DE0: 20 A7 20 31 37 34 20 30 3A 8F 20 42 45 4C 4F 57 | . 174 0:. BELOW|
00000DF0: 20 42 52 49 47 48 54 4E 45 53 53 20 4C 49 4D 49 | BRIGHTNESS LIMI|
00000E00: 54 3F 00 33 16 3C 05 4E 24 B2 C8 28 4E 24 AA 22 |T?.3.<.N$..(N$."|
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
00000E30: 32 30 29 00 55 16 46 05 52 41 B2 C5 28 C8 28 52 |20).U.F.RA..(.(R|
00000E40: 41 24 2C 32 29 29 AA C5 28 C9 28 52 41 24 2C 32 |A$,2))..(.(RA$,2|
00000E50: 29 29 AD 36 30 00 6A 16 50 05 5A 52 41 B2 28 52 |)).60.j.P.ZRA.(R|
00000E60: 41 AB 5A 4C 48 29 AC 31 35 20 00 95 16 5A 05 8F |A.ZLH).15 ...Z..|
00000E70: 20 50 4F 53 49 54 49 4F 4E 20 46 52 4F 4D 20 5A | POSITION FROM Z|
00000E80: 45 4E 49 54 48 20 4C 49 4E 45 20 49 4E 20 44 45 |ENITH LINE IN DE|
00000E90: 47 52 45 45 53 00 B1 16 64 05 8B 20 5A 52 41 B1 |GREES...d.. ZRA.|
00000EA0: 33 36 30 20 A7 20 5A 52 41 B2 5A 52 41 AB 33 36 |360 . ZRA.ZRA.36|
00000EB0: 30 00 CB 16 6E 05 8B 20 5A 52 41 B3 30 20 A7 20 |0...n.. ZRA.0 . |
00000EC0: 5A 52 41 B2 5A 52 41 AA 33 36 30 00 D8 16 78 05 |ZRA.ZRA.360...x.|
00000ED0: 41 4C 54 B2 39 30 AB 44 00 F0 16 82 05 5A 50 49 |ALT.90.D.....ZPI|
00000EE0: B2 5A 52 41 AC 36 2E 32 38 33 31 38 AD 33 36 30 |.ZRA.6.28318.360|
00000EF0: 00 08 17 8C 05 41 50 49 B2 41 4C 54 AC 36 2E 32 |.....API.ALT.6.2|
00000F00: 38 33 31 38 AD 33 36 30 00 1D 17 96 05 58 B2 BF |8318.360.....X..|
00000F10: 28 41 50 49 29 AC BE 28 5A 50 49 29 20 00 3E 17 |(API)..(ZPI) .>.|
00000F20: A0 05 8F 20 43 4F 4E 56 45 52 54 20 54 4F 20 58 |... CONVERT TO X|
00000F30: 59 5A 20 43 4F 4F 52 44 49 4E 41 54 45 53 00 52 |YZ COORDINATES.R|
00000F40: 17 AA 05 59 B2 BF 28 41 50 49 29 AC BF 28 5A 50 |...Y..(API)..(ZP|
00000F50: 49 29 00 5F 17 B4 05 5A B2 BE 28 41 50 49 29 00 |I)._...Z..(API).|
00000F60: 79 17 BE 05 58 31 B2 58 AC BE 28 4C 41 54 29 AB |y...X1.X..(LAT).|
00000F70: 5A AC BF 28 4C 41 54 29 20 00 90 17 C8 05 8F 20 |Z..(LAT) ...... |
00000F80: 52 4F 54 41 54 45 20 54 4F 20 5A 45 4E 49 54 48 |ROTATE TO ZENITH|
00000F90: 00 A9 17 D2 05 5A 31 B2 58 AC BF 28 4C 41 54 29 |.....Z1.X..(LAT)|
00000FA0: AA 5A AC BE 28 4C 41 54 29 00 B2 17 DC 05 58 B2 |.Z..(LAT).....X.|
00000FB0: 58 31 00 BB 17 E6 05 5A B2 5A 31 00 00 18 F0 05 |X1.....Z.Z1.....|
00000FC0: 8F 20 4E 4F 54 45 3A 20 41 54 4E 28 29 20 46 55 |. NOTE: ATN() FU|
00000FD0: 4E 43 54 49 4F 4E 53 20 42 45 4C 4F 57 20 41 52 |NCTIONS BELOW AR|
00000FE0: 45 20 56 41 4C 49 44 20 46 52 4F 4D 20 2D 50 49 |E VALID FROM -PI|
00000FF0: 2F 32 20 54 4F 20 50 49 2F 32 20 4F 4E 4C 59 2E |/2 TO PI/2 ONLY.|
00001000: 00 4A 18 FA 05 8F 20 20 20 20 20 20 20 41 4C 54 |.J.... ALT|
00001010: 49 54 55 44 45 20 49 53 20 57 49 54 48 49 4E 20 |ITUDE IS WITHIN |
00001020: 54 48 49 53 20 52 41 4E 47 45 2C 20 42 55 54 20 |THIS RANGE, BUT |
00001030: 42 45 41 52 49 4E 47 20 4D 55 53 54 20 42 45 20 |BEARING MUST BE |
00001040: 54 52 41 4E 53 4C 41 54 45 44 00 90 18 04 06 8F |TRANSLATED......|
00001050: 20 20 20 20 20 20 20 54 4F 20 43 4F 4D 50 41 53 | TO COMPAS|
00001060: 53 20 48 45 41 44 49 4E 47 20 57 49 54 48 49 4E |S HEADING WITHIN|
00001070: 20 45 41 43 48 20 51 55 41 44 52 41 4E 54 20 4F | EACH QUADRANT O|
00001080: 46 20 54 48 45 20 58 2D 59 20 50 4C 41 4E 45 2E |F THE X-Y PLANE.|
00001090: 00 B4 18 0E 06 41 B2 C1 28 5A AD 28 BA 28 58 AC |.....A..(Z.(.(X.|
000010A0: 58 AA 59 AC 59 29 29 29 AC 28 33 36 30 AD 36 2E |X.Y.Y))).(360.6.|
000010B0: 32 38 33 29 00 D1 18 18 06 8F 20 41 4C 54 49 54 |283)...... ALTIT|
000010C0: 55 44 45 20 41 42 4F 56 45 20 48 4F 52 49 5A 4F |UDE ABOVE HORIZO|
000010D0: 4E 00 F4 18 22 06 8B 20 41 B3 30 20 A7 20 31 37 |N...".. A.0 . 17|
000010E0: 33 20 30 3A 8F 20 42 45 4C 4F 57 20 48 4F 52 49 |3 0:. BELOW HORI|
000010F0: 5A 4F 4E 3F 00 0D 19 2C 06 42 B2 C1 28 59 AD 58 |ZON?...,.B..(Y.X|
00001100: 29 AC 28 33 36 30 AD 36 2E 32 38 33 29 00 23 19 |).(360.6.283).#.|
00001110: 36 06 8F 20 43 4F 4D 50 41 53 53 20 42 45 41 52 |6.. COMPASS BEAR|
00001120: 49 4E 47 00 55 19 40 06 8B 20 58 B1 30 20 AF 20 |ING.U.@.. X.0 . |
00001130: 59 B1 30 20 A7 20 42 B2 31 38 30 AB 42 20 3A 89 |Y.0 . B.180.B :.|
00001140: 20 31 36 34 20 20 30 3A 8F 20 53 45 20 51 55 41 | 164 0:. SE QUA|
00001150: 44 52 41 4E 54 00 87 19 4A 06 8B 20 58 B1 30 20 |DRANT...J.. X.0 |
00001160: AF 20 59 B3 30 20 A7 20 42 B2 31 38 30 AB 42 20 |. Y.0 . B.180.B |
00001170: 3A 89 20 31 36 34 20 30 3A 20 8F 20 53 57 20 51 |:. 164 0: . SW Q|
00001180: 55 41 44 52 41 4E 54 00 B7 19 54 06 8B 20 58 B3 |UADRANT...T.. X.|
00001190: 30 20 AF 20 59 B1 30 20 A7 20 42 B2 AB 42 20 3A |0 . Y.0 . B..B :|
000011A0: 20 89 20 31 36 34 20 30 3A 20 8F 20 4E 45 20 51 | . 164 0: . NE Q|
000011B0: 55 41 44 52 41 4E 54 00 E8 19 5E 06 8B 20 58 B3 |UADRANT...^.. X.|
000011C0: 30 20 AF 20 59 B3 30 20 A7 20 42 B2 33 36 30 AB |0 . Y.0 . B.360.|
000011D0: 42 20 3A 89 20 31 36 34 20 30 3A 8F 20 4E 57 20 |B :. 164 0:. NW |
000011E0: 51 55 41 44 52 41 4E 54 00 FA 19 68 06 8F 20 20 |QUADRANT...h.. |
000011F0: 50 52 49 4E 54 20 44 41 54 41 00 1D 1A 72 06 42 |PRINT DATA...r.B|
00001200: 52 24 B2 C4 28 42 52 29 20 3A 42 52 24 B2 C8 28 |R$..(BR) :BR$..(|
00001210: 42 52 24 AA 22 20 20 20 20 22 2C 34 29 00 3D 1A |BR$." ",4).=.|
00001220: 7C 06 44 24 B2 C4 28 44 29 20 3A 44 24 B2 C8 28 ||.D$..(D) :D$..(|
00001230: 44 24 AA 22 20 20 20 20 20 22 2C 35 29 00 61 1A |D$." ",5).a.|
00001240: 9A 06 98 50 4E 2C 20 4E 24 3B A6 33 29 3B 42 52 |...PN, N$;.3);BR|
00001250: 24 3B A6 33 29 3B 52 41 24 3B A6 33 29 3B 44 24 |$;.3);RA$;.3);D$|
00001260: 3B 00 70 1A 9C 06 56 31 B2 33 20 3A 56 32 B2 32 |;.p...V1.3 :V2.2|
00001270: 00 81 1A 9F 06 56 B2 42 20 3A 8D 20 35 30 30 30 |.....V.B :. 5000|
00001280: 30 00 92 1A A4 06 98 50 4E 2C 20 A6 33 29 3B 56 |0......PN, .3);V|
00001290: 24 3B 00 A3 1A A9 06 56 B2 41 20 3A 8D 20 35 30 |$;.....V.A :. 50|
000012A0: 30 30 30 00 B3 1A AE 06 98 50 4E 2C 20 A6 36 29 |000......PN, .6)|
000012B0: 3B 56 24 00 CF 1A B8 06 8F 20 20 45 4E 44 20 4F |;V$...... END O|
000012C0: 46 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 00 |F PRINT ROUTINE.|
000012D0: FA 1A C2 06 8F 20 45 4E 44 20 4F 46 20 42 45 41 |..... END OF BEA|
000012E0: 52 49 4E 47 20 43 41 4C 43 55 4C 41 54 49 4F 4E |RING CALCULATION|
000012F0: 20 41 4E 44 20 50 52 49 4E 54 00 23 1B CC 06 8F | AND PRINT.#....|
00001300: 20 20 45 4E 44 20 4F 46 20 56 49 53 49 42 4C 45 | END OF VISIBLE|
00001310: 20 53 54 41 52 53 20 4F 4E 4C 59 20 52 4F 55 54 | STARS ONLY ROUT|
00001320: 49 4E 45 00 2C 1B D6 06 82 20 4A 20 00 40 1B E0 |INE.,.... J .@..|
00001330: 06 8F 20 47 45 54 20 4E 45 58 54 20 53 54 41 52 |.. GET NEXT STAR|
00001340: 00 4B 1B EA 06 A0 20 50 4E 20 20 00 5D 1B F4 06 |.K.... PN .]...|
00001350: 8F 20 50 52 49 4E 54 45 52 20 4F 46 46 00 63 1B |. PRINTER OFF.c.|
00001360: FE 06 80 00 69 1B 08 07 8F 00 6F 1B 12 07 8F 00 |....i.....o.....|
00001370: 8D 1B 1C 07 8F 20 20 46 4F 52 20 51 3D 31 20 54 |..... FOR Q=1 T|
00001380: 4F 20 35 30 30 20 3A 4E 45 58 54 20 51 00 93 1B |O 500 :NEXT Q...|
00001390: 26 07 8E 00 B1 1B 30 07 8F 20 20 46 4F 52 20 51 |&.....0.. FOR Q|
000013A0: 3D 31 20 54 4F 20 31 30 30 20 3A 4E 45 58 54 20 |=1 TO 100 :NEXT |
000013B0: 51 00 B7 1B 3A 07 8E 00 BD 1B 44 07 8F 00 D0 1B |Q...:.....D.....|
000013C0: 4E 07 8F 20 20 44 41 54 41 20 54 41 42 4C 45 53 |N.. DATA TABLES|
000013D0: 00 00 1C 58 07 83 20 53 49 52 49 55 53 20 28 41 |...X.. SIRIUS (A|
000013E0: 2D 43 41 4E 49 53 20 4D 41 4A 29 20 2C 20 2D 31 |-CANIS MAJ) , -1|
000013F0: 2E 36 2C 20 30 36 2E 34 33 2C 20 2D 31 36 2E 37 |.6, 06.43, -16.7|
00001400: 00 2A 1C 62 07 83 20 43 41 4E 4F 50 55 53 20 28 |.*.b.. CANOPUS (|
00001410: 41 2D 43 41 52 49 4E 41 29 2C 20 2D 2E 37 2C 30 |A-CARINA), -.7,0|
00001420: 36 2E 32 33 2C 2D 35 32 2E 37 00 54 1C 6C 07 83 |6.23,-52.7.T.l..|
00001430: 20 41 52 43 54 55 52 55 53 20 28 41 2D 42 4F 4F | ARCTURUS (A-BOO|
00001440: 54 45 53 29 2C 20 2D 2E 31 2C 31 34 2E 31 34 2C |TES), -.1,14.14,|
00001450: 31 39 2E 34 00 77 1C 76 07 83 20 56 45 47 41 20 |19.4.w.v.. VEGA |
00001460: 28 41 2D 4C 59 52 41 29 20 2C 20 30 2C 31 38 2E |(A-LYRA) , 0,18.|
00001470: 33 36 2C 33 38 2E 38 00 9E 1C 80 07 83 20 43 41 |36,38.8...... CA|
00001480: 50 45 4C 4C 41 20 28 41 2D 41 55 52 49 47 41 29 |PELLA (A-AURIGA)|
00001490: 2C 2E 31 2C 30 35 2E 31 34 2C 34 36 2E 31 00 C2 |,.1,05.14,46.1..|
000014A0: 1C 8A 07 83 20 52 49 47 45 4C 20 28 42 2D 4F 52 |.... RIGEL (B-OR|
000014B0: 49 4F 4E 29 2C 2E 32 2C 30 35 2E 31 33 2C 2D 38 |ION),.2,05.13,-8|
000014C0: 2E 33 00 EB 1C 94 07 83 20 50 52 4F 43 59 4F 4E |.3...... PROCYON|
000014D0: 20 28 41 2D 43 41 4E 49 53 20 4D 49 4E 29 2C 2E | (A-CANIS MIN),.|
000014E0: 34 2C 30 37 2E 33 37 2C 35 2E 34 00 13 1D 9E 07 |4,07.37,5.4.....|
000014F0: 83 20 42 45 54 45 4C 47 45 55 53 45 20 28 41 2D |. BETELGEUSE (A-|
00001500: 4F 52 49 4F 4E 29 2C 2E 34 2C 30 35 2E 35 34 2C |ORION),.4,05.54,|
00001510: 37 2E 34 00 38 1D A8 07 83 20 41 4C 54 41 49 52 |7.4.8.... ALTAIR|
00001520: 20 28 41 2D 41 51 55 49 4C 41 29 2C 2E 38 2C 31 | (A-AQUILA),.8,1|
00001530: 39 2E 34 39 2C 38 2E 38 00 61 1D B2 07 83 20 41 |9.49,8.8.a.... A|
00001540: 4C 44 45 42 41 52 41 4E 20 28 41 2D 54 41 55 52 |LDEBARAN (A-TAUR|
00001550: 55 53 29 2C 2E 39 2C 30 34 2E 33 34 2C 31 36 2E |US),.9,04.34,16.|
00001560: 35 00 89 1D BC 07 83 20 41 4E 54 41 52 45 53 20 |5...... ANTARES |
00001570: 28 41 2D 53 43 4F 52 50 49 4F 29 2C 31 2C 31 36 |(A-SCORPIO),1,16|
00001580: 2E 32 38 2C 2D 32 36 2E 33 00 AC 1D C6 07 83 20 |.28,-26.3...... |
00001590: 53 50 49 43 41 20 28 41 2D 56 49 52 47 4F 29 2C |SPICA (A-VIRGO),|
000015A0: 20 31 2C 31 33 2E 32 34 2C 2D 31 31 00 DC 1D D0 | 1,13.24,-11....|
000015B0: 07 83 20 46 4F 4D 41 4C 48 41 55 54 20 28 41 2D |.. FOMALHAUT (A-|
000015C0: 50 49 53 43 49 53 20 41 55 53 54 29 2C 31 2E 32 |PISCIS AUST),1.2|
000015D0: 2C 32 32 2E 35 36 2C 2D 32 39 2E 37 00 03 1E DA |,22.56,-29.7....|
000015E0: 07 83 20 50 4F 4C 4C 55 58 20 28 42 2D 47 45 4D |.. POLLUX (B-GEM|
000015F0: 49 4E 49 29 2C 31 2E 32 2C 30 37 2E 34 33 2C 32 |INI),1.2,07.43,2|
00001600: 38 2E 31 00 29 1E E4 07 83 20 44 45 4E 45 42 20 |8.1.).... DENEB |
00001610: 28 41 2D 43 59 47 4E 55 53 29 2C 31 2E 33 2C 32 |(A-CYGNUS),1.3,2|
00001620: 30 2E 34 30 2C 34 35 2E 32 00 4E 1E EE 07 83 20 |0.40,45.2.N.... |
00001630: 52 45 47 55 4C 55 53 20 28 41 2D 4C 45 4F 29 2C |REGULUS (A-LEO),|
00001640: 31 2E 34 2C 31 30 2E 37 30 2C 31 32 2E 31 00 73 |1.4,10.70,12.1.s|
00001650: 1E F8 07 83 20 43 41 53 54 4F 52 20 28 41 2D 47 |.... CASTOR (A-G|
00001660: 45 4D 49 4E 49 29 2C 31 2E 36 2C 30 37 2E 33 33 |EMINI),1.6,07.33|
00001670: 2C 33 32 00 9E 1E 02 08 83 20 41 44 48 41 52 41 |,32...... ADHARA|
00001680: 20 28 45 2D 43 41 4E 49 53 20 4D 41 4A 29 2C 31 | (E-CANIS MAJ),1|
00001690: 2E 36 2C 30 36 2E 35 37 2C 2D 32 38 2E 39 00 C6 |.6,06.57,-28.9..|
000016A0: 1E 0C 08 83 20 42 45 4C 4C 41 54 52 49 58 20 28 |.... BELLATRIX (|
000016B0: 47 2D 4F 52 49 4F 4E 29 2C 31 2E 36 2C 30 35 2E |G-ORION),1.6,05.|
000016C0: 32 34 2C 36 2E 31 00 EF 1E 16 08 83 20 53 48 41 |24,6.1...... SHA|
000016D0: 55 4C 41 20 28 4C 2D 53 43 4F 52 50 49 4F 29 2C |ULA (L-SCORPIO),|
000016E0: 31 2E 36 2C 31 37 2E 33 32 2C 2D 33 37 2E 31 00 |1.6,17.32,-37.1.|
000016F0: 16 1F 20 08 83 20 45 4C 4E 41 54 48 20 28 42 2D |.. .. ELNATH (B-|
00001700: 54 41 55 52 55 53 29 2C 31 2E 37 2C 30 35 2E 32 |TAURUS),1.7,05.2|
00001710: 34 2C 32 38 2E 36 00 3D 1F 2A 08 83 20 41 4C 4E |4,28.6.=.*.. ALN|
00001720: 49 4C 41 4D 20 28 45 2D 4F 52 49 4F 4E 29 2C 31 |ILAM (E-ORION),1|
00001730: 2E 37 2C 30 35 2E 33 35 2C 2D 31 2E 32 00 65 1F |.7,05.35,-1.2.e.|
00001740: 34 08 83 20 4D 49 52 46 41 4B 20 28 41 2D 50 45 |4.. MIRFAK (A-PE|
00001750: 52 53 45 55 53 29 2C 31 2E 38 2C 30 33 2E 32 32 |RSEUS),1.8,03.22|
00001760: 2C 34 39 2E 38 00 8D 1F 3E 08 83 20 44 55 42 48 |,49.8...>.. DUBH|
00001770: 45 20 28 41 2D 55 52 53 41 20 4D 41 4A 29 2C 31 |E (A-URSA MAJ),1|
00001780: 2E 38 2C 31 31 2E 32 30 2C 36 31 2E 39 00 B6 1F |.8,11.20,61.9...|
00001790: 48 08 83 20 41 4C 49 4F 54 48 20 28 45 2D 55 52 |H.. ALIOTH (E-UR|
000017A0: 53 41 20 4D 41 4A 29 2C 31 2E 38 2C 31 32 2E 35 |SA MAJ),1.8,12.5|
000017B0: 33 2C 35 36 2E 31 00 DA 1F 52 08 83 20 47 41 4D |3,56.1...R.. GAM|
000017C0: 4D 41 20 56 45 4C 4F 52 55 53 2C 31 2E 38 2C 30 |MA VELORUS,1.8,0|
000017D0: 38 2E 39 30 2C 2D 34 37 2E 33 00 0A 20 5C 08 83 |8.90,-47.3.. \..|
000017E0: 20 4B 41 55 53 20 41 55 53 54 52 41 4C 49 53 20 | KAUS AUSTRALIS |
000017F0: 28 45 2D 53 41 47 54 52 53 29 2C 31 2E 38 2C 31 |(E-SAGTRS),1.8,1|
00001800: 38 2E 32 32 2C 2D 33 34 2E 34 00 2F 20 66 08 83 |8.22,-34.4./ f..|
00001810: 20 41 4C 4E 49 54 41 4B 20 28 5A 2D 4F 52 49 4F | ALNITAK (Z-ORIO|
00001820: 4E 29 2C 31 2E 38 2C 30 35 2E 33 39 2C 2D 32 00 |N),1.8,05.39,-2.|
00001830: 56 20 70 08 83 20 41 4C 20 4E 41 49 52 20 28 41 |V p.. AL NAIR (A|
00001840: 2D 43 52 55 53 29 2C 31 2E 38 2C 32 32 2E 36 30 |-CRUS),1.8,22.60|
00001850: 2C 2D 34 37 2E 31 00 7F 20 7A 08 83 20 41 4C 4B |,-47.1.. z.. ALK|
00001860: 41 49 44 20 28 4E 2D 55 52 53 41 20 4D 41 4A 29 |AID (N-URSA MAJ)|
00001870: 2C 31 2E 39 2C 31 33 2E 34 36 2C 34 39 2E 35 00 |,1.9,13.46,49.5.|
00001880: A6 20 84 08 83 20 41 4C 48 45 4E 41 20 28 47 2D |. ... ALHENA (G-|
00001890: 47 45 4D 49 4E 49 29 2C 31 2E 39 2C 30 36 2E 33 |GEMINI),1.9,06.3|
000018A0: 36 2C 31 36 2E 34 00 D0 20 8E 08 83 20 57 45 5A |6,16.4.. ... WEZ|
000018B0: 45 4E 20 28 44 2D 43 41 4E 49 53 20 4D 41 4A 29 |EN (D-CANIS MAJ)|
000018C0: 2C 31 2E 39 2C 30 37 2E 37 30 2C 2D 32 36 2E 34 |,1.9,07.70,-26.4|
000018D0: 00 F2 20 98 08 83 20 54 48 45 54 41 20 53 43 4F |.. ... THETA SCO|
000018E0: 52 50 49 49 2C 31 2E 39 2C 31 37 2E 33 35 2C 2D |RPII,1.9,17.35,-|
000018F0: 34 33 00 1B 21 A2 08 83 20 4D 45 4E 4B 41 4C 49 |43..!... MENKALI|
00001900: 4E 41 4E 20 28 42 2D 41 55 52 49 47 41 29 2C 31 |NAN (B-AURIGA),1|
00001910: 2E 39 2C 30 35 2E 35 37 2C 34 35 00 44 21 AC 08 |.9,05.57,45.D!..|
00001920: 83 20 4D 49 52 5A 41 4D 20 28 42 2D 43 41 4E 49 |. MIRZAM (B-CANI|
00001930: 53 20 4D 41 4A 29 2C 32 2C 30 36 2E 32 31 2C 2D |S MAJ),2,06.21,-|
00001940: 31 37 2E 39 00 66 21 B6 08 83 20 44 45 4C 54 41 |17.9.f!... DELTA|
00001950: 20 56 45 4C 4F 52 55 4D 2C 32 2C 30 38 2E 34 34 | VELORUM,2,08.44|
00001960: 2C 2D 35 31 2E 36 00 8E 21 C0 08 83 20 50 4F 4C |,-51.6..!... POL|
00001970: 41 52 49 53 20 28 41 2D 55 52 53 41 20 4D 49 4E |ARIS (A-URSA MIN|
00001980: 29 2C 32 2C 30 32 2E 33 30 2C 38 39 2E 31 00 B3 |),2,02.30,89.1..|
00001990: 21 CA 08 83 20 41 4C 50 48 41 52 44 20 28 41 2D |!... ALPHARD (A-|
000019A0: 48 59 44 52 41 29 2C 32 2C 30 39 2E 32 36 2C 2D |HYDRA),2,09.26,-|
000019B0: 38 2E 35 00 D6 21 D4 08 83 20 48 41 4D 41 4C 20 |8.5..!... HAMAL |
000019C0: 28 41 2D 41 52 49 45 53 29 2C 32 2C 30 32 2E 35 |(A-ARIES),2,02.5|
000019D0: 30 2C 32 33 2E 33 00 FB 21 DE 08 83 20 44 49 50 |0,23.3..!... DIP|
000019E0: 48 44 41 20 28 42 2D 43 45 54 55 53 29 2C 32 2C |HDA (B-CETUS),2,|
000019F0: 30 30 2E 34 32 2C 2D 31 38 2E 32 00 25 22 E8 08 |00.42,-18.2.%"..|
00001A00: 83 20 4D 45 4E 4B 45 4E 54 20 28 54 48 2D 43 45 |. MENKENT (TH-CE|
00001A10: 4E 54 41 55 52 49 29 2C 32 2C 31 34 2E 35 30 2C |NTAURI),2,14.50,|
00001A20: 2D 33 36 2E 32 00 4D 22 F2 08 83 20 4D 49 52 41 |-36.2.M"... MIRA|
00001A30: 43 48 20 28 42 2D 41 4E 44 52 4F 4D 45 44 41 29 |CH (B-ANDROMEDA)|
00001A40: 2C 32 2C 30 31 2E 38 38 2C 33 35 2E 35 00 75 22 |,2,01.88,35.5.u"|
00001A50: FC 08 83 20 4E 55 4E 4B 49 20 28 53 2D 53 41 47 |... NUNKI (S-SAG|
00001A60: 47 54 52 53 29 2C 32 2E 31 2C 31 38 2E 35 33 2C |GTRS),2.1,18.53,|
00001A70: 2D 32 36 2E 33 00 A0 22 06 09 83 20 52 41 53 41 |-26.3.."... RASA|
00001A80: 4C 48 41 51 55 45 20 28 41 2D 4F 50 48 49 55 43 |LHAQUE (A-OPHIUC|
00001A90: 29 2C 32 2E 31 2C 31 37 2E 33 34 2C 31 32 2E 36 |),2.1,17.34,12.6|
00001AA0: 00 CA 22 10 09 83 20 41 4C 50 48 45 52 41 54 5A |.."... ALPHERATZ|
00001AB0: 20 28 41 2D 41 4E 44 52 4F 4D 29 2C 32 2E 31 2C | (A-ANDROM),2.1,|
00001AC0: 30 30 2E 37 30 2C 32 38 2E 39 00 F1 22 1A 09 83 |00.70,28.9.."...|
00001AD0: 20 41 4C 47 4F 4C 20 28 42 2D 50 45 52 53 45 55 | ALGOL (B-PERSEU|
00001AE0: 53 29 2C 32 2E 31 2C 30 33 2E 36 30 2C 34 30 2E |S),2.1,03.60,40.|
00001AF0: 38 00 1A 23 24 09 83 20 4B 4F 43 48 41 42 20 28 |8..#$.. KOCHAB (|
00001B00: 42 2D 55 52 53 41 20 4D 49 4E 29 2C 32 2E 31 2C |B-URSA MIN),2.1,|
00001B10: 31 34 2E 35 31 2C 37 34 2E 33 00 41 23 2E 09 83 |14.51,74.3.A#...|
00001B20: 20 41 4C 4D 41 43 48 20 28 47 2D 41 4E 44 52 4F | ALMACH (G-ANDRO|
00001B30: 4D 29 2C 32 2E 31 2C 30 32 2E 32 30 2C 34 32 2E |M),2.1,02.20,42.|
00001B40: 32 00 65 23 38 09 83 20 53 41 49 50 48 20 28 4B |2.e#8.. SAIPH (K|
00001B50: 2D 4F 52 49 4F 4E 29 2C 32 2E 31 2C 30 35 2E 35 |-ORION),2.1,05.5|
00001B60: 34 2C 37 2E 31 00 92 23 42 09 83 20 53 43 48 45 |4,7.1..#B.. SCHE|
00001B70: 44 41 52 20 28 41 2D 43 41 53 53 49 49 4F 50 45 |DAR (A-CASSIIOPE|
00001B80: 49 41 29 2C 32 2E 31 2C 30 30 2E 33 39 2C 35 36 |IA),2.1,00.39,56|
00001B90: 2E 34 00 BB 23 4C 09 83 20 50 53 49 2D 50 49 53 |.4..#L.. PSI-PIS|
00001BA0: 43 45 53 20 28 44 42 4C 20 33 30 30 2C 35 2E 35 |CES (DBL 300,5.5|
00001BB0: 2C 30 31 2E 34 30 2C 32 31 2E 32 00 E3 23 56 09 |,01.40,21.2..#V.|
00001BC0: 83 20 47 2D 41 4E 44 52 4F 4D 2E 20 28 4F 52 2D |. G-ANDROM. (OR-|
00001BD0: 42 4C 20 31 30 29 2C 32 2C 30 32 2E 32 30 2C 34 |BL 10),2,02.20,4|
00001BE0: 32 2E 32 00 08 24 60 09 83 20 42 2D 4F 52 49 4F |2.2..$`.. B-ORIO|
00001BF0: 4E 20 28 52 49 47 45 4C 20 39 29 2C 30 2C 30 35 |N (RIGEL 9),0,05|
00001C00: 2E 31 33 2C 2D 38 2E 32 00 2F 24 6A 09 83 20 54 |.13,-8.2./$j.. T|
00001C10: 48 2D 4F 52 49 4F 4E 20 28 54 52 41 50 45 5A 29 |H-ORION (TRAPEZ)|
00001C20: 2C 35 2E 35 2C 30 35 2E 33 34 2C 2D 35 2E 35 00 |,5.5,05.34,-5.5.|
00001C30: 57 24 74 09 83 20 53 2D 4F 52 49 4F 4E 20 28 54 |W$t.. S-ORION (T|
00001C40: 52 49 2E 20 31 31 2D 34 31 29 2C 34 2C 30 35 2E |RI. 11-41),4,05.|
00001C50: 33 37 2C 2D 32 2E 36 00 86 24 7E 09 83 20 41 2D |37,-2.6..$~.. A-|
00001C60: 43 41 4E 49 53 20 4D 41 4A 20 28 53 49 52 49 55 |CANIS MAJ (SIRIU|
00001C70: 53 20 31 30 29 2C 2D 31 2E 35 2C 30 36 2E 34 34 |S 10),-1.5,06.44|
00001C80: 2C 2D 31 36 2E 37 00 AC 24 88 09 83 20 41 2D 47 |,-16.7..$... A-G|
00001C90: 45 4D 49 4E 49 20 28 43 41 53 54 4F 52 20 37 35 |EMINI (CASTOR 75|
00001CA0: 29 2C 32 2C 30 37 2E 33 32 2C 33 32 00 D1 24 92 |),2,07.32,32..$.|
00001CB0: 09 83 20 54 2D 43 41 4E 43 45 52 20 28 4F 52 2D |.. T-CANCER (OR-|
00001CC0: 42 4C 20 33 31 29 2C 34 2C 30 38 2E 34 35 2C 32 |BL 31),4,08.45,2|
00001CD0: 39 00 F6 24 9C 09 83 20 47 2D 4C 45 4F 20 28 44 |9..$... G-LEO (D|
00001CE0: 42 4C 20 34 2E 35 29 2C 32 2E 35 2C 31 30 2E 31 |BL 4.5),2.5,10.1|
00001CF0: 38 2C 32 30 2E 32 00 21 25 A6 09 83 20 5A 2D 55 |8,20.2.!%... Z-U|
00001D00: 52 53 41 20 4D 41 4A 20 28 4D 49 5A 41 52 20 31 |RSA MAJ (MIZAR 1|
00001D10: 34 29 2C 32 2E 35 2C 31 33 2E 32 33 2C 35 35 2E |4),2.5,13.23,55.|
00001D20: 32 00 49 25 B0 09 83 20 45 2D 42 4F 4F 54 45 53 |2.I%... E-BOOTES|
00001D30: 20 28 47 44 2D 42 4C 20 33 29 2C 32 2E 35 2C 31 | (GD-BL 3),2.5,1|
00001D40: 34 2E 34 31 2C 32 37 2E 33 00 6D 25 BA 09 83 20 |4.41,27.3.m%... |
00001D50: 5A 2D 43 4F 52 4F 4E 41 20 28 44 42 4C 20 36 29 |Z-CORONA (DBL 6)|
00001D60: 2C 35 2C 31 35 2E 33 39 2C 33 36 2E 38 00 92 25 |,5,15.39,36.8..%|
00001D70: C4 09 83 20 4E 55 2D 44 52 41 43 4F 20 28 44 42 |... NU-DRACO (DB|
00001D80: 4C 20 36 32 29 2C 35 2C 31 37 2E 33 32 2C 35 35 |L 62),5,17.32,55|
00001D90: 2E 32 00 BA 25 CE 09 83 20 45 2D 4C 59 52 41 20 |.2..%... E-LYRA |
00001DA0: 28 44 42 4C 2D 44 42 4C 20 32 2E 37 29 2C 35 2C |(DBL-DBL 2.7),5,|
00001DB0: 31 38 2E 34 34 2C 33 39 2E 37 00 E2 25 D8 09 83 |18.44,39.7..%...|
00001DC0: 20 42 2D 43 59 47 4E 49 20 28 41 4C 42 49 52 45 | B-CYGNI (ALBIRE|
00001DD0: 4F 20 33 34 29 2C 33 2C 31 39 2E 33 30 2C 32 37 |O 34),3,19.30,27|
00001DE0: 2E 38 00 0A 26 E2 09 83 20 47 2D 44 45 4C 50 48 |.8..&... G-DELPH|
00001DF0: 49 4E 20 28 59 4C 2D 47 52 20 31 30 29 2C 34 2E |IN (YL-GR 10),4.|
00001E00: 35 2C 32 30 2E 34 35 2C 31 36 00 33 26 EC 09 83 |5,20.45,16.3&...|
00001E10: 20 4E 47 43 38 36 39 20 28 50 45 52 53 45 55 53 | NGC869 (PERSEUS|
00001E20: 20 47 4C 20 57 29 2C 34 2E 35 2C 30 32 2E 31 37 | GL W),4.5,02.17|
00001E30: 2C 35 37 00 5C 26 F6 09 83 20 4E 47 43 38 38 34 |,57.\&... NGC884|
00001E40: 20 28 50 45 52 53 45 55 53 20 43 4C 20 45 29 2C | (PERSEUS CL E),|
00001E50: 34 2E 35 2C 30 32 2E 32 31 2C 35 37 00 85 26 00 |4.5,02.21,57..&.|
00001E60: 0A 83 20 4E 47 43 31 35 32 38 20 28 36 30 20 53 |.. NGC1528 (60 S|
00001E70: 54 20 32 35 27 29 2C 36 2E 35 2C 30 34 2E 31 34 |T 25'),6.5,04.14|
00001E80: 2C 35 31 2E 32 00 AF 26 0A 0A 83 20 4E 47 43 20 |,51.2..&... NGC |
00001E90: 32 36 33 32 20 28 4D 31 31 20 42 45 45 48 49 56 |2632 (M11 BEEHIV|
00001EA0: 45 29 2C 34 2C 30 38 2E 33 39 2C 32 30 2E 31 00 |E),4,08.39,20.1.|
00001EB0: D7 26 14 0A 83 20 4E 47 43 36 35 32 33 20 28 4D |.&... NGC6523 (M|
00001EC0: 38 20 4C 41 43 4F 4F 4E 29 2C 35 2C 31 38 2E 32 |8 LACOON),5,18.2|
00001ED0: 30 2C 2D 32 34 2E 34 00 FF 26 1E 0A 83 20 4E 47 |0,-24.4..&... NG|
00001EE0: 43 36 36 31 38 20 28 4D 31 37 20 4F 4D 45 47 41 |C6618 (M17 OMEGA|
00001EF0: 29 2C 37 2C 31 38 2E 31 39 2C 2D 31 36 2E 32 00 |),7,18.19,-16.2.|
00001F00: 23 27 28 0A 83 20 4E 47 43 36 37 32 30 20 28 4D |#'(.. NGC6720 (M|
00001F10: 35 37 20 52 49 4E 47 29 2C 39 2C 31 38 2E 35 33 |57 RING),9,18.53|
00001F20: 2C 33 33 00 4C 27 32 0A 83 20 4E 47 43 36 38 35 |,33.L'2.. NGC685|
00001F30: 33 20 28 4D 32 37 20 44 55 4D 42 4C 29 2C 37 2E |3 (M27 DUMBL),7.|
00001F40: 35 2C 31 39 2E 35 39 2C 32 32 2E 36 00 75 27 3C |5,19.59,22.6.u'<|
00001F50: 0A 83 20 4E 47 43 35 31 33 39 20 28 4F 4D 45 47 |.. NGC5139 (OMEG|
00001F60: 41 20 47 4C 4F 42 29 2C 34 2C 31 33 2E 32 35 2C |A GLOB),4,13.25,|
00001F70: 2D 34 37 2E 34 00 9D 27 46 0A 83 20 4E 47 43 36 |-47.4..'F.. NGC6|
00001F80: 32 30 35 20 28 4D 31 33 20 48 45 52 43 29 2C 35 |205 (M13 HERC),5|
00001F90: 2E 35 2C 31 36 2E 34 31 2C 33 36 2E 35 00 C5 27 |.5,16.41,36.5..'|
00001FA0: 50 0A 83 20 4E 47 43 36 36 35 36 20 28 4D 32 32 |P.. NGC6656 (M22|
00001FB0: 20 53 41 47 54 52 29 2C 36 2C 31 38 2E 33 35 2C | SAGTR),6,18.35,|
00001FC0: 2D 32 33 2E 39 00 EA 27 5A 0A 83 20 4E 47 43 31 |-23.9..'Z.. NGC1|
00001FD0: 39 35 32 20 28 4D 31 20 43 52 41 42 29 2C 38 2E |952 (M1 CRAB),8.|
00001FE0: 35 2C 30 35 2E 33 33 2C 32 32 00 0B 28 64 0A 83 |5,05.33,22..(d..|
00001FF0: 20 4F 52 49 4F 4E 20 4E 45 42 20 28 4D 31 32 29 | ORION NEB (M12)|
00002000: 2C 34 2C 30 35 2E 33 33 2C 2D 35 00 32 28 6E 0A |,4,05.33,-5.2(n.|
00002010: 83 20 41 4E 44 52 4F 4D 20 47 41 4C 41 58 59 20 |. ANDROM GALAXY |
00002020: 28 4D 33 31 29 2C 34 2E 38 2C 30 30 2E 34 30 2C |(M31),4.8,00.40,|
00002030: 34 31 00 58 28 78 0A 83 20 43 41 4E 45 53 20 43 |41.X(x.. CANES C|
00002040: 4C 55 53 54 45 52 20 28 4D 33 29 2C 36 2E 33 2C |LUSTER (M3),6.3,|
00002050: 31 33 2E 34 30 2C 32 39 00 82 28 82 0A 83 20 57 |13.40,29..(... W|
00002060: 48 49 52 4C 50 4F 4F 4C 20 47 41 4C 41 58 59 20 |HIRLPOOL GALAXY |
00002070: 28 4D 35 31 29 2C 38 2E 31 2C 31 33 2E 32 38 2C |(M51),8.1,13.28,|
00002080: 34 37 00 A8 28 8C 0A 83 20 43 59 47 4E 55 53 20 |47..(... CYGNUS |
00002090: 43 4C 55 53 54 20 28 4D 33 39 29 2C 35 2E 32 2C |CLUST (M39),5.2,|
000020A0: 32 31 2E 33 30 2C 34 38 00 CE 28 96 0A 83 20 4F |21.30,48..(... O|
000020B0: 50 48 49 55 43 20 43 4C 55 53 54 20 28 4D 31 30 |PHIUC CLUST (M10|
000020C0: 29 2C 36 2E 37 2C 31 36 2E 35 35 2C 2D 34 00 F7 |),6.7,16.55,-4..|
000020D0: 28 A0 0A 83 20 4F 48 50 49 55 43 20 43 4C 55 53 |(... OHPIUC CLUS|
000020E0: 54 45 52 20 28 4D 31 32 29 2C 20 36 2E 36 2C 31 |TER (M12), 6.6,1|
000020F0: 36 2E 34 35 2C 2D 32 00 1F 29 AA 0A 83 20 4F 50 |6.45,-2..)... OP|
00002100: 48 49 55 43 20 43 4C 55 53 54 45 52 20 28 4D 31 |HIUC CLUSTER (M1|
00002110: 34 29 2C 35 2E 37 2C 31 37 2E 33 35 2C 2D 33 00 |4),5.7,17.35,-3.|
00002120: 4B 29 B4 0A 83 20 50 45 52 53 45 55 53 20 53 4E |K)... PERSEUS SN|
00002130: 47 4C 20 43 4C 53 54 52 20 28 4D 33 34 29 2C 35 |GL CLSTR (M34),5|
00002140: 2E 35 2C 30 32 2E 33 39 2C 34 33 00 72 29 BE 0A |.5,02.39,43.r)..|
00002150: 83 20 41 51 55 41 52 49 55 53 20 43 4C 53 54 52 |. AQUARIUS CLSTR|
00002160: 20 28 4D 32 29 2C 36 2E 33 2C 32 31 2E 33 31 2C | (M2),6.3,21.31,|
00002170: 2D 31 00 9A 29 C8 0A 83 20 47 45 4D 49 4E 49 20 |-1..)... GEMINI |
00002180: 43 4C 55 53 54 45 52 20 28 4D 33 35 29 2C 35 2E |CLUSTER (M35),5.|
00002190: 33 2C 30 36 2E 36 30 2C 32 34 00 C1 29 D2 0A 83 |3,06.60,24..)...|
000021A0: 20 43 41 4E 49 53 20 4D 41 4A 20 4F 43 20 28 4D | CANIS MAJ OC (M|
000021B0: 34 31 29 2C 34 2E 36 2C 30 36 2E 34 35 2C 2D 32 |41),4.6,06.45,-2|
000021C0: 31 00 E7 29 DC 0A 83 20 4D 4F 4E 4F 43 45 52 4F |1..)... MONOCERO|
000021D0: 53 20 4F 43 20 28 4D 35 30 29 2C 36 2E 33 2C 30 |S OC (M50),6.3,0|
000021E0: 37 2E 31 30 2C 2D 38 00 27 2A 50 C3 8F 20 27 50 |7.10,-8.'*P.. 'P|
000021F0: 52 49 4E 54 20 55 53 49 4E 47 27 2C 20 54 48 41 |RINT USING', THA|
00002200: 54 20 49 53 2C 20 41 52 52 41 4E 47 45 20 49 4E |T IS, ARRANGE IN|
00002210: 20 43 4F 4C 55 4D 4E 53 2E 20 20 46 4F 52 20 50 | COLUMNS. FOR P|
00002220: 45 54 2F 43 42 4D 2E 00 5F 2A 51 C3 8F 20 20 56 |ET/CBM.._*Q.. V|
00002230: 31 20 49 53 20 4E 55 4D 42 45 52 20 4F 46 20 44 |1 IS NUMBER OF D|
00002240: 49 47 49 54 53 20 42 45 46 4F 52 45 20 54 48 45 |IGITS BEFORE THE|
00002250: 20 44 45 43 49 4D 41 4C 20 50 4C 41 43 45 2C 00 | DECIMAL PLACE,.|
00002260: 8E 2A 52 C3 8F 20 20 56 32 20 49 53 20 54 48 45 |.*R.. V2 IS THE|
00002270: 20 4E 55 4D 42 45 52 20 4F 46 20 44 45 43 49 4D | NUMBER OF DECIM|
00002280: 41 4C 20 50 4C 41 43 45 53 2C 20 41 4E 44 00 D7 |AL PLACES, AND..|
00002290: 2A 53 C3 8F 20 20 56 20 49 53 20 54 48 45 20 4E |*S.. V IS THE N|
000022A0: 55 4D 42 45 52 20 54 48 41 54 20 49 53 20 52 45 |UMBER THAT IS RE|
000022B0: 41 52 52 41 4E 47 45 44 20 49 4E 54 4F 20 56 24 |ARRANGED INTO V$|
000022C0: 20 49 4E 20 54 48 45 20 46 4F 52 4D 41 54 20 27 | IN THE FORMAT '|
000022D0: 56 31 2E 56 32 27 2E 00 1D 2B 54 C3 8F 20 20 54 |V1.V2'...+T.. T|
000022E0: 48 45 20 43 41 4C 4C 49 4E 47 20 52 4F 55 54 49 |HE CALLING ROUTI|
000022F0: 4E 45 20 53 48 4F 55 4C 44 20 53 45 54 20 56 31 |NE SHOULD SET V1|
00002300: 2C 56 32 2C 20 41 4E 44 20 56 2C 20 54 48 45 4E |,V2, AND V, THEN|
00002310: 20 47 4F 53 55 42 20 35 30 30 30 30 2E 00 42 2B | GOSUB 50000..B+|
00002320: 55 C3 8F 20 20 4F 4E 20 52 45 54 55 52 4E 2C 20 |U.. ON RETURN, |
00002330: 56 24 20 43 41 4E 20 42 45 20 50 52 49 4E 54 45 |V$ CAN BE PRINTE|
00002340: 44 2E 00 84 2B 56 C3 8F 20 20 56 24 27 53 20 4C |D...+V.. V$'S L|
00002350: 45 4E 47 54 48 20 57 49 4C 4C 20 42 45 20 56 31 |ENGTH WILL BE V1|
00002360: 2B 56 32 2B 32 2C 20 54 48 45 20 45 58 54 52 41 |+V2+2, THE EXTRA|
00002370: 20 54 57 4F 20 42 59 54 45 53 20 42 45 49 4E 47 | TWO BYTES BEING|
00002380: 20 46 4F 52 00 C9 2B 57 C3 8F 20 20 54 48 45 20 | FOR..+W.. THE |
00002390: 53 49 47 4E 20 41 4E 44 20 54 48 45 20 44 45 43 |SIGN AND THE DEC|
000023A0: 49 4D 41 4C 20 50 4C 41 43 45 2E 20 20 49 46 20 |IMAL PLACE. IF |
000023B0: 56 32 3D 30 2C 20 54 48 45 20 4C 45 4E 47 54 48 |V2=0, THE LENGTH|
000023C0: 20 49 53 20 56 31 2B 31 2E 00 DE 2B 64 C3 56 34 | IS V1+1...+d.V4|
000023D0: B2 B5 28 56 AC 31 30 AE 56 32 AA 2E 35 29 00 06 |..(V.10.V2..5)..|
000023E0: 2C 6E C3 56 24 B2 C9 28 22 20 20 20 20 20 20 20 |,n.V$..(" |
000023F0: 22 AA C4 28 56 34 29 2C 56 31 AA 56 32 AA 31 29 |"..(V4),V1.V2.1)|
00002400: 3A 51 24 B2 56 24 00 18 2C 78 C3 8B 20 56 32 B3 |:Q$.V$..,x.. V2.|
00002410: 31 20 89 35 30 30 38 30 00 42 2C 82 C3 81 56 35 |1 .50080.B,...V5|
00002420: B2 56 31 AA 32 A4 56 31 AA 56 32 AA 31 3A 8B 20 |.V1.2.V1.V2.1:. |
00002430: C6 28 CA 28 56 24 2C 56 35 29 29 B3 34 38 A7 82 |.(.(V$,V5)).48..|
00002440: 56 35 00 51 2C 8C C3 56 36 B2 56 35 AB 56 31 AB |V5.Q,..V6.V5.V1.|
00002450: 31 00 7E 2C 96 C3 56 24 B2 CA 28 56 24 2C 56 36 |1.~,..V$..(V$,V6|
00002460: 2C 56 31 AA 31 29 AA C8 28 22 2E 30 30 30 30 30 |,V1.1)..(".00000|
00002470: 22 2C 56 36 29 AA CA 28 56 24 2C 56 35 29 00 B1 |",V6)..(V$,V5)..|
00002480: 2C A0 C3 8B 20 C6 28 56 24 29 B1 34 37 20 A7 20 |,... .(V$).47 . |
00002490: 56 24 B2 C8 28 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |V$..("**********|
000024A0: 22 2C 56 31 AA 56 32 AA 32 AA 28 56 32 B2 30 29 |",V1.V2.2.(V2.0)|
000024B0: 29 00 B7 2C AA C3 8E 00 00 00 |)..,...... |
....... 50.#...."@0:STARS.BAS.PR",8.;...
."0:STARS.BAS.PR",8.A.(...O.2.. G(147) .
B.<.. CLEAR SCREEN.H.F...Y.P.. STARS.BA
S. .Z.. BY JAMES A. INGRAM JAN.7, 1981
.X.D.. ADAPTED FROM CREATIVE COMPUTING,
JUNE 1983 ISSUE....N.....X.. INSTRUCTIO
NS...... G(147) ...... CLEAR SCREEN.....
.... ...J.... "***TABLE OF VISIBLE SKY O
BJECTS***".W.... "THIS PROGRAM CHECKS TH
ROUGH A MASTER"......"TABLE CONTAINING S
TARS AND OTHER".P.H.."INTERESTING OBJECT
S IN THE NIGHT SKY, AND"...R.."DETERMINE
S WHICH ONES ARE VISIBLE".&...."AT A SPE
CIFIC TIME AND DATE. IT THEN".L...."CAL
CULATES THE COMPASS BEARING".{...."AND A
LTITUDE ABOVE THE HORIZON FOR THAT".....
."TIME. THE TABLE INCLUDES THE NAME,".V
...."MAGNITUDE, RIGHT ASCENSION, DECLINA
TION,"......"BEARING, AND ALTITUDE. NOT
E THAT TIME".:...."MUST BE ENTERED IN 24
HOUR FORMAT (2 PM=14:00)".O.".."AND THA
T NUMBERS LESS THAN 10 MUST BE ENTERED".
..,.."AS 2 DIGITS WITH A LEADING ZERO (0
5).".D.6.."BEARINGS: 0 IS NORTH, EAST IS
90"...@.." 180 IS SOUTH, 270 I
S WEST".:.J.."CHANGE LINES 360 TO 460 FO
R YOUR OWN LONGITUDE, LATITUDE, AND ZONE
.".@.T...F.^...B.H.. INITIALIZE CONSTAN
TS.U.R.LNG.360.79.25 ...|.. SCARBOROUGH,
ONTARIO, CANADA.....LAT.43.75 .C.... S
OUTH END OF BOROUGH.S...GX.19 .....
. EASTERN STANDARD TIME.....N.91 ......
NUMBER OF SKY OBJECTS AVAILABLE.%.B...W.
L.. INPUT LOCAL VALUES IN THE FIVE LINE
S ABOVE.Q.V.."DATE (AS MM/DD)";D$......"
TIME (24 H CLOCK AS HH/MM)";T$.B...."STA
NDARD TIME (S) OR DAYLIGHT (D)";F$......
"MAXIMUM MAGNITUDE (MIN. BRIGHTNESS) FOR
TABLE":.MG............ CALCULATE BASIC
VALUES.2.... DECIPHER TIME.E...TH.E(H(T$
,2)) .V.&.. ZONE HOURS.I.0.TM.E(I(T$,2))
.|.:.. ZONE MINUTES...D.TZ.TH.TM.60 ...
N.. DECIMAL ZONE TIME...X.. F$."D" . GX.
GX.1 :. CORRECT FOR DAYLIGHT SAVING TIME
...B.GT.TZ.GX ...L.. UNCORRECTED DECIMAL
GMT.".V.. GT.0 . GT.GT.24.4.... GT.24 .
670.A...GT.GT.24.K.... 640.C...TL.GT.(L
NG.360).24 ...... UNCORRECTED LOCAL STAR
TIME...... TL.24 . 720.....TL.TL.24...F
.. 690.X.P.TL$.D(.(TL)).":".D(.((TL..(TL
)).60)) ...Z.. STAR TIME STRING.....GT$.
D(.(GT)).":".D(.((GT..(GT)).60)) .*....
GMT STRING.0.....X.... CALCULATE DAYS F
ROM SEPTEMBER 22.J...M.E(H(D$,2)) .V....
MONTH... .DY.E(I(D$,2)) ...*.. DAY...4.
. DY.22 . M.9 . CD.0: . 1020.Y.>.. DY.22
. M.9 . CD.DY.22 :. 1020...H.. M.10 . C
D.8.DY :. 1020. .R.. M.9 . (M.9 . DY.22)
. M.M.12 :. 890.1.\.. M.10 . 890.R.F.."
IMPROPER DATE - RE-ENTER" .\.P.. 470.G.Z
.R.M.10.P...CD.8.}.... D3(12)...... PS.1
. 12...... D3(PS)...... PS...... X.1 .
R .F.... ADD UP MONTHS.V.J.CD.CD.D3(X)..
.T.. X...... 31,30,31,31,28,31,30,31,30,
31,31,30.....CD.CD.DY .9.... ADD IN DAYS
IN CURRENT MONTH.N...ZLH.CD.24.365.TL.H
.... ZLH.24 . ZLH.ZLH.24.....ZLH$.D(.(ZL
H)).":".D(.((ZLH..(ZLH)).60)).........$.
. PRINT TABLE HEADING......"PRINTER (Y/
N)";IN$ :. PRINTER ON...8.PN.3 :. IN$."
Y" . PN.4...B..PN,PN.5.L..PN," CELESTI
AL OBJECT AVAILABILITY TABLE".=.V..PN.E.
`..PN.W.J..PN,"DATE ";D$;.30);"DAYS FROM
SEPT. 22 =";CD...T..PN,"LOCAL ZONE TIME
";T$;" (GMT = ";GT$;")";.M.~..PN, .5);"
LOCAL STAR TIME ";TL$......PN,"LATITUDE
";LAT;"DEGREES NORTH";.$....PN, .12);"LO
NGITUDE ";LNG;"DEGREES EAST".R....PN,"OB
JECTS BRIGHTER THAN MAGNITUDE";MG;.}....
PN, .5);"ZENITH AT ";ZLH$;" HOURS RA"...
...PN......PN...D..PN,"OBJECT
MAG";.3);"R.A.";...N..PN,.5);"DEC
.";.3);"BEARING";.3);"ALTITUDE".".X..PN,
"---------------------------------------
";.L....PN,"----------------------------
---".R.....O.... MAIN CALCULATION LOOP.
....LAT.LAT.6.28318.360.....LAT.3.14159.
2.LAT...... J.1 . N .B.... READ DATA TAB
LE.T.(.. N$,BR,RA$,D...2.. BR.MG . 174 0
:. BELOW BRIGHTNESS LIMIT?.3.<.N$.H(N$."
",20).U.F.
RA.E(H(RA$,2)).E(I(RA$,2)).60.J.P.ZRA.(R
A.ZLH).15 ...Z.. POSITION FROM ZENITH LI
NE IN DEGREES...D.. ZRA.360 . ZRA.ZRA.36
0.K.N.. ZRA.0 . ZRA.ZRA.360.X.X.ALT.90.D
.....ZPI.ZRA.6.28318.360.....API.ALT.6.2
8318.360.....X..(API)..(ZPI) .>. .. CONV
ERT TO XYZ COORDINATES.R...Y..(API)..(ZP
I)._...Z..(API).Y...X1.X..(LAT).Z..(LAT)
...H.. ROTATE TO ZENITH...R.Z1.X..(LAT)
.Z..(LAT).....X.X1.....Z.Z1...... NOTE:
ATN() FUNCTIONS BELOW ARE VALID FROM -PI
/2 TO PI/2 ONLY..J.... ALTITUDE IS
WITHIN THIS RANGE, BUT BEARING MUST BE
TRANSLATED...... TO COMPASS HEADIN
G WITHIN EACH QUADRANT OF THE X-Y PLANE.
.....A.A(Z.(.(X.X.Y.Y))).(360.6.283).Q..
.. ALTITUDE ABOVE HORIZON...".. A.0 . 17
3 0:. BELOW HORIZON?...,.B.A(Y.X).(360.6
.283).#.6.. COMPASS BEARING.U.@.. X.0 .
Y.0 . B.180.B :. 164 0:. SE QUADRANT...
J.. X.0 . Y.0 . B.180.B :. 164 0: . SW Q
UADRANT...T.. X.0 . Y.0 . B..B : . 164 0
: . NE QUADRANT...^.. X.0 . Y.0 . B.360.
B :. 164 0:. NW QUADRANT...H.. PRINT DA
TA...R.BR$.D(BR) :BR$.H(BR$." ",4).=.
|.D$.D(D) :D$.H(D$." ",5).A....PN, N
$;.3);BR$;.3);RA$;.3);D$;.P...V1.3 :V2.2
.....V.B :. 50000......PN, .3);V$;.....V
.A :. 50000......PN, .6);V$.O.... END O
F PRINT ROUTINE...B.. END OF BEARING CAL
CULATION AND PRINT.#.L.. END OF VISIBLE
STARS ONLY ROUTINE.,.V.. J .@.... GET N
EXT STAR.K... PN .].... PRINTER OFF.C.
....I.....O.......... FOR Q=1 TO 500 :N
EXT Q...&.....0.. FOR Q=1 TO 100 :NEXT
Q...:.....D...P.N.. DATA TABLES...X.. S
IRIUS (A-CANIS MAJ) , -1.6, 06.43, -16.7
.*.B.. CANOPUS (A-CARINA), -.7,06.23,-52
.7.T.L.. ARCTURUS (A-BOOTES), -.1,14.14,
19.4.W.V.. VEGA (A-LYRA) , 0,18.36,38.8.
..... CAPELLA (A-AURIGA),.1,05.14,46.1.B
.... RIGEL (B-ORION),.2,05.13,-8.3......
PROCYON (A-CANIS MIN),.4,07.37,5.4.....
. BETELGEUSE (A-ORION),.4,05.54,7.4.8...
. ALTAIR (A-AQUILA),.8,19.49,8.8.A.... A
LDEBARAN (A-TAURUS),.9,04.34,16.5......
ANTARES (A-SCORPIO),1,16.28,-26.3...F..
SPICA (A-VIRGO), 1,13.24,-11...P.. FOMAL
HAUT (A-PISCIS AUST),1.2,22.56,-29.7...Z
.. POLLUX (B-GEMINI),1.2,07.43,28.1.)...
. DENEB (A-CYGNUS),1.3,20.40,45.2.N....
REGULUS (A-LEO),1.4,10.70,12.1.S.... CAS
TOR (A-GEMINI),1.6,07.33,32...... ADHARA
(E-CANIS MAJ),1.6,06.57,-28.9.F.... BEL
LATRIX (G-ORION),1.6,05.24,6.1...... SHA
ULA (L-SCORPIO),1.6,17.32,-37.1... .. EL
NATH (B-TAURUS),1.7,05.24,28.6.=.*.. ALN
ILAM (E-ORION),1.7,05.35,-1.2.E.4.. MIRF
AK (A-PERSEUS),1.8,03.22,49.8...>.. DUBH
E (A-URSA MAJ),1.8,11.20,61.9...H.. ALIO
TH (E-URSA MAJ),1.8,12.53,56.1.Z.R.. GAM
MA VELORUS,1.8,08.90,-47.3.. \.. KAUS AU
STRALIS (E-SAGTRS),1.8,18.22,-34.4./ F..
ALNITAK (Z-ORION),1.8,05.39,-2.V P.. AL
NAIR (A-CRUS),1.8,22.60,-47.1. Z.. ALK
AID (N-URSA MAJ),1.9,13.46,49.5.. ... AL
HENA (G-GEMINI),1.9,06.36,16.4.P ... WEZ
EN (D-CANIS MAJ),1.9,07.70,-26.4.. ... T
HETA SCORPII,1.9,17.35,-43..!... MENKALI
NAN (B-AURIGA),1.9,05.57,45.D!... MIRZAM
(B-CANIS MAJ),2,06.21,-17.9.F!... DELTA
VELORUM,2,08.44,-51.6..!... POLARIS (A-
URSA MIN),2,02.30,89.1..!J.. ALPHARD (A-
HYDRA),2,09.26,-8.5.V!T.. HAMAL (A-ARIES
),2,02.50,23.3..!... DIPHDA (B-CETUS),2,
00.42,-18.2.%"... MENKENT (TH-CENTAURI),
2,14.50,-36.2.M"... MIRACH (B-ANDROMEDA)
,2,01.88,35.5.U"... NUNKI (S-SAGGTRS),2.
1,18.53,-26.3. "... RASALHAQUE (A-OPHIUC
),2.1,17.34,12.6.J"... ALPHERATZ (A-ANDR
OM),2.1,00.70,28.9.."... ALGOL (B-PERSEU
S),2.1,03.60,40.8..#$.. KOCHAB (B-URSA M
IN),2.1,14.51,74.3.A#... ALMACH (G-ANDRO
M),2.1,02.20,42.2.E#8.. SAIPH (K-ORION),
2.1,05.54,7.1..#B.. SCHEDAR (A-CASSIIOPE
IA),2.1,00.39,56.4..#L.. PSI-PISCES (DBL
300,5.5,01.40,21.2..#V.. G-ANDROM. (OR-
BL 10),2,02.20,42.2..$`.. B-ORION (RIGEL
9),0,05.13,-8.2./$J.. TH-ORION (TRAPEZ)
,5.5,05.34,-5.5.W$T.. S-ORION (TRI. 11-4
1),4,05.37,-2.6..$~.. A-CANIS MAJ (SIRIU
S 10),-1.5,06.44,-16.7..$... A-GEMINI (C
ASTOR 75),2,07.32,32.Q$... T-CANCER (OR-
BL 31),4,08.45,29..$... G-LEO (DBL 4.5),
2.5,10.18,20.2.!%... Z-URSA MAJ (MIZAR 1
4),2.5,13.23,55.2.I%... E-BOOTES (GD-BL
3),2.5,14.41,27.3.M%... Z-CORONA (DBL 6)
,5,15.39,36.8..%D.. NU-DRACO (DBL 62),5,
17.32,55.2..%N.. E-LYRA (DBL-DBL 2.7),5,
18.44,39.7..%X.. B-CYGNI (ALBIREO 34),3,
19.30,27.8..&... G-DELPHIN (YL-GR 10),4.
5,20.45,16.3&... NGC869 (PERSEUS GL W),4
.5,02.17,57.\&... NGC884 (PERSEUS CL E),
4.5,02.21,57..&... NGC1528 (60 ST 25'),6
.5,04.14,51.2..&... NGC 2632 (M11 BEEHIV
E),4,08.39,20.1.W&... NGC6523 (M8 LACOON
),5,18.20,-24.4..&... NGC6618 (M17 OMEGA
),7,18.19,-16.2.#'(.. NGC6720 (M57 RING)
,9,18.53,33.L'2.. NGC6853 (M27 DUMBL),7.
5,19.59,22.6.U'<.. NGC5139 (OMEGA GLOB),
4,13.25,-47.4..'F.. NGC6205 (M13 HERC),5
.5,16.41,36.5.E'P.. NGC6656 (M22 SAGTR),
6,18.35,-23.9..'Z.. NGC1952 (M1 CRAB),8.
5,05.33,22..(D.. ORION NEB (M12),4,05.33
,-5.2(N.. ANDROM GALAXY (M31),4.8,00.40,
41.X(X.. CANES CLUSTER (M3),6.3,13.40,29
..(... WHIRLPOOL GALAXY (M51),8.1,13.28,
47..(... CYGNUS CLUST (M39),5.2,21.30,48
.N(... OPHIUC CLUST (M10),6.7,16.55,-4..
( .. OHPIUC CLUSTER (M12), 6.6,16.45,-2.
.)... OPHIUC CLUSTER (M14),5.7,17.35,-3.
K)... PERSEUS SNGL CLSTR (M34),5.5,02.39
,43.R)... AQUARIUS CLSTR (M2),6.3,21.31,
-1..)H.. GEMINI CLUSTER (M35),5.3,06.60,
24.A)R.. CANIS MAJ OC (M41),4.6,06.45,-2
1..)... MONOCEROS OC (M50),6.3,07.10,-8.
'*PC. 'PRINT USING', THAT IS, ARRANGE IN
COLUMNS. FOR PET/CBM.._*QC. V1 IS NUM
BER OF DIGITS BEFORE THE DECIMAL PLACE,.
.*RC. V2 IS THE NUMBER OF DECIMAL PLACE
S, AND.W*SC. V IS THE NUMBER THAT IS RE
ARRANGED INTO V$ IN THE FORMAT 'V1.V2'..
.+TC. THE CALLING ROUTINE SHOULD SET V1
,V2, AND V, THEN GOSUB 50000..B+UC. ON
RETURN, V$ CAN BE PRINTED...+VC. V$'S L
ENGTH WILL BE V1+V2+2, THE EXTRA TWO BYT
ES BEING FOR.I+WC. THE SIGN AND THE DEC
IMAL PLACE. IF V2=0, THE LENGTH IS V1+1
...+DCV4..(V.10.V2..5)..,NCV$.I("
".D(V4),V1.V2.1):Q$.V$..,XC. V2.1 .50080
.B,.C.V5.V1.2.V1.V2.1:. F(J(V$,V5)).48..
V5.Q,.CV6.V5.V1.1.~,.CV$.J(V$,V6,V1.1).H
(".00000",V6).J(V$,V5).., C. F(V$).47 .
V$.H("**********",V1.V2.2.(V2.0))..,.C..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL