PLOTTER.2
FILE INFORMATION
FILENAME(S): PLOTTER.2
FILE TYPE(S): PRG
FILE SIZE: 10.2K
FIRST SEEN: 2025-12-02 02:07:51
APPEARS ON: 1 disk(s)
FILE HASH
590aa59f9e6e999b90734b4fd65d1d421e5c44345fbf046e6b0d90f061559d92
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JILLES | PLOTTER.2 | PRG | Shocktrooper | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 8B 20 51 51 B2 30 20 A7 20 93 |.. .... QQ.0 . .|
00000010: 20 22 54 48 45 20 48 45 41 56 45 4E 53 22 2C 38 | "THE HEAVENS",8|
00000020: 00 5B 08 1E 00 53 42 B2 33 32 37 36 38 3A 44 42 |.[...SB.32768:DB|
00000030: B2 35 30 36 38 34 3A 56 42 B2 35 33 32 34 38 3A |.50684:VB.53248:|
00000040: 4A 44 B2 32 34 31 35 30 32 31 3A 53 45 B2 32 33 |JD.2415021:SE.23|
00000050: 2E 34 34 31 35 AC FF AD 31 38 30 00 9B 08 28 00 |.4415...180...(.|
00000060: 86 20 4D 4E 24 28 31 31 29 2C 44 4D 25 28 31 31 |. MN$(11),DM%(11|
00000070: 29 2C 53 4B 24 28 33 30 30 29 2C 43 24 28 37 30 |),SK$(300),C$(70|
00000080: 29 2C 43 53 25 28 37 30 2C 31 29 2C 44 52 24 28 |),CS%(70,1),DR$(|
00000090: 31 35 29 2C 41 53 24 28 32 30 29 00 E3 08 32 00 |15),AS$(20)...2.|
000000A0: 50 42 B2 53 42 AA 33 39 32 AC 32 3A 47 25 B2 33 |PB.SB.392.2:G%.3|
000000B0: 36 30 3A 50 32 B2 32 AC FF 3A 50 38 B2 FF AD 31 |60:P2.2..:P8...1|
000000C0: 38 30 3A 50 33 B2 FF AD 32 3A 50 34 B2 FF AD 31 |80:P3...2:P4...1|
000000D0: 32 38 3A 50 35 B2 33 32 AD 34 35 3A 50 36 B2 33 |28:P5.32.45:P6.3|
000000E0: AD 33 32 00 FB 08 3C 00 4D 24 B2 22 4A 41 4E 55 |.32...<.M$."JANU|
000000F0: 41 52 59 20 31 2C 31 39 38 34 22 00 3F 09 BE 00 |ARY 1,1984".?...|
00000100: 81 20 49 B2 30 20 A4 20 20 39 3A 87 20 4B 4D 28 |. I.0 . 9:. KM(|
00000110: 49 29 2C 59 52 28 49 29 2C 49 43 28 49 29 2C 41 |I),YR(I),IC(I),A|
00000120: 4E 28 49 29 2C 45 43 28 49 29 2C 50 45 28 49 29 |N(I),EC(I),PE(I)|
00000130: 2C 50 44 28 49 29 2C 50 4C 24 28 49 29 3A 82 00 |,PD(I),PL$(I):..|
00000140: 5D 09 D2 00 50 45 28 31 30 29 B2 50 45 28 30 29 |]...PE(10).PE(0)|
00000150: 3A 41 4E 28 31 30 29 B2 41 4E 28 30 29 00 7E 09 |:AN(10).AN(0).~.|
00000160: 36 01 81 20 49 B2 30 20 A4 20 31 31 3A 87 20 4D |6.. I.0 . 11:. M|
00000170: 4E 24 28 49 29 2C 44 4D 25 28 49 29 3A 82 00 98 |N$(I),DM%(I):...|
00000180: 09 40 01 81 20 49 B2 30 20 A4 20 31 35 3A 87 20 |.@.. I.0 . 15:. |
00000190: 44 52 24 28 49 29 3A 82 00 B6 09 90 01 9F 20 32 |DR$(I):....... 2|
000001A0: 2C 38 2C 32 2C 22 4F 3A 2E 53 54 41 52 20 54 57 |,8,2,"O:.STAR TW|
000001B0: 4F 2C 53 2C 52 22 00 DB 09 9A 01 81 20 49 B2 30 |O,S,R"...... I.0|
000001C0: 20 A4 20 33 30 30 3A 84 32 2C 53 4B 24 28 49 29 | . 300:.2,SK$(I)|
000001D0: 3A 8B 20 53 54 B2 30 20 A7 20 82 00 FE 09 AE 01 |:. ST.0 . ......|
000001E0: A0 32 3A 9F 33 2C 38 2C 33 2C 22 4F 3A 2E 53 54 |.2:.3,8,3,"O:.ST|
000001F0: 41 52 20 47 52 4F 55 50 53 2C 53 2C 52 22 00 33 |AR GROUPS,S,R".3|
00000200: 0A B8 01 81 20 49 B2 31 20 A4 20 37 30 3A 84 33 |.... I.1 . 70:.3|
00000210: 2C 43 24 28 49 29 2C 43 53 25 28 49 2C 30 29 2C |,C$(I),CS%(I,0),|
00000220: 43 53 25 28 49 2C 31 29 3A 8B 20 53 54 B2 30 20 |CS%(I,1):. ST.0 |
00000230: A7 20 82 00 79 0A C2 01 A0 33 3A 4E 31 24 B2 22 |. ..y....3:N1$."|
00000240: 43 4F 4E 53 54 45 4C 4C 41 54 49 4F 4E 22 3A 4E |CONSTELLATION":N|
00000250: 32 24 B2 22 53 54 41 52 20 43 4C 55 53 54 45 52 |2$."STAR CLUSTER|
00000260: 22 3A 4E 33 24 B2 22 53 54 41 52 22 3A 4E 34 24 |":N3$."STAR":N4$|
00000270: B2 22 4F 42 4A 45 43 54 22 00 A9 0A F4 01 96 20 |."OBJECT"...... |
00000280: A5 41 28 58 29 B2 28 A5 42 28 58 29 AA B5 28 36 |.A(X).(.B(X)..(6|
00000290: 30 AC 28 B6 28 58 29 AB A5 42 28 58 29 29 29 AD |0.(.(X)..B(X))).|
000002A0: 31 30 30 29 AC B4 28 58 29 00 CB 0A F9 01 96 20 |100)..(X)...... |
000002B0: A5 42 28 58 29 B2 B5 28 B6 28 58 29 29 3A 4E 35 |.B(X)..(.(X)):N5|
000002C0: 24 B2 22 50 4C 41 4E 45 54 22 3A 00 F2 0A 58 02 |$."PLANET":...X.|
000002D0: 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 3A |. 198,0:. 198,1:|
000002E0: A1 20 41 24 3A 9E 20 34 39 33 36 32 3A 99 20 22 |. A$:. 49362:. "|
000002F0: 93 22 00 19 0B 62 02 81 20 49 B2 31 20 A4 20 32 |."...b.. I.1 . 2|
00000300: 30 3A 87 20 41 53 24 28 49 29 3A 82 3A 41 53 24 |0:. AS$(I):.:AS$|
00000310: 28 30 29 B2 C7 28 31 33 29 00 35 0B E8 03 4C 30 |(0)..(13).5...L0|
00000320: B2 C2 28 44 42 AA 33 33 29 3A 8D 31 32 30 38 30 |..(DB.33):.12080|
00000330: 3A 41 31 B2 31 00 69 0B F2 03 53 43 B2 33 3A 41 |:A1.1.i...SC.3:A|
00000340: 5A B2 30 3A 4C 54 B2 30 3A 52 32 B2 52 30 3A 41 |Z.0:LT.0:R2.R0:A|
00000350: 4C B2 30 3A 45 4E B2 30 3A 44 46 B2 31 30 3A 53 |L.0:EN.0:DF.10:S|
00000360: 50 B2 30 3A 43 43 B2 31 36 00 92 0B FC 03 99 22 |P.0:CC.16......"|
00000370: 93 11 11 11 53 45 4C 45 43 54 20 53 54 41 52 20 |....SELECT STAR |
00000380: 50 4C 4F 54 54 49 4E 47 20 46 55 4E 43 54 49 4F |PLOTTING FUNCTIO|
00000390: 4E 22 00 D3 0B 06 04 99 2C 22 11 31 2E 50 4C 41 |N"......,".1.PLA|
000003A0: 4E 45 54 41 52 49 55 4D 22 3A 99 2C 22 11 32 2E |NETARIUM":.,".2.|
000003B0: 53 45 4C 45 43 54 20 4C 41 54 49 54 55 44 45 22 |SELECT LATITUDE"|
000003C0: 3A 99 2C 22 11 33 2E 53 54 41 52 20 46 49 4E 44 |:.,".3.STAR FIND|
000003D0: 45 52 22 00 09 0C 10 04 99 2C 22 11 34 2E 53 45 |ER"......,".4.SE|
000003E0: 4C 45 43 54 20 4E 45 57 20 44 41 54 45 22 3A 99 |LECT NEW DATE":.|
000003F0: 2C 22 11 35 2E 52 45 56 49 45 57 20 49 4E 53 54 |,".5.REVIEW INST|
00000400: 52 55 43 54 49 4F 4E 53 22 00 32 0C 24 04 99 2C |RUCTIONS".2.$..,|
00000410: 22 11 36 2E 45 4E 44 20 50 52 4F 47 52 41 4D 22 |".6.END PROGRAM"|
00000420: 3A 99 2C 22 11 37 2E 53 54 41 52 20 49 4E 44 45 |:.,".7.STAR INDE|
00000430: 58 22 00 74 0C 29 04 8B 20 C2 28 35 31 29 B3 31 |X".t.).. .(51).1|
00000440: 34 30 20 A7 20 99 2C 22 11 43 4C 45 41 52 49 4E |40 . .,".CLEARIN|
00000450: 47 20 4D 45 4D 4F 52 59 22 3B 3A 41 B2 B8 28 30 |G MEMORY";:A..(0|
00000460: 29 3A 99 22 14 14 14 14 14 14 14 14 14 14 14 14 |):."............|
00000470: 14 14 14 22 00 8A 0C 2E 04 8B 20 C2 28 31 39 38 |..."...... .(198|
00000480: 29 B2 30 20 A7 20 31 30 37 30 00 AC 0C 38 04 A1 |).0 . 1070...8..|
00000490: 20 41 24 3A 41 B2 C6 28 41 24 29 AB 31 33 32 3A | A$:A..(A$).132:|
000004A0: 8B 20 41 B3 31 20 A7 20 31 30 37 30 00 DF 0C 42 |. A.1 . 1070...B|
000004B0: 04 91 20 41 20 8D 20 32 30 30 31 30 2C 31 33 30 |.. A . 20010,130|
000004C0: 30 30 2C 31 35 30 30 30 2C 31 37 30 30 30 2C 31 |00,15000,17000,1|
000004D0: 32 30 30 30 2C 31 31 35 30 2C 31 36 30 30 30 00 |2000,1150,16000.|
000004E0: E9 0C 4C 04 89 31 30 30 30 00 F5 0C 7E 04 99 22 |..L..1000...~.."|
000004F0: 93 11 11 11 22 00 1C 0D 88 04 4D 24 B2 22 4A 41 |....".....M$."JA|
00000500: 4E 55 41 52 59 22 3A 44 B2 31 3A 59 25 B2 31 39 |NUARY":D.1:Y%.19|
00000510: 38 34 3A 44 4D 25 28 31 29 B2 32 38 00 40 0D B0 |84:DM%(1).28.@..|
00000520: 04 85 20 22 44 41 54 45 3A 4D 4F 4E 54 48 2C 44 |.. "DATE:MONTH,D|
00000530: 41 59 2C 59 45 41 52 22 3B 4D 24 2C 44 2C 59 25 |AY,YEAR";M$,D,Y%|
00000540: 00 72 0D BA 04 41 B2 B5 28 59 52 28 33 29 AC 28 |.r...A..(YR(3).(|
00000550: 59 25 AB 31 39 30 30 29 29 AA 4A 44 3A 42 B2 30 |Y%.1900)).JD:B.0|
00000560: 3A 8B 20 59 25 B1 31 39 30 30 20 A7 20 41 B2 41 |:. Y%.1900 . A.A|
00000570: AB 31 00 88 0D BB 04 8B 20 59 25 B3 31 38 30 31 |.1...... Y%.1801|
00000580: 20 A7 20 41 B2 41 AA 31 00 AF 0D BF 04 8B 20 30 | . A.A.1...... 0|
00000590: B2 59 25 AB B5 28 59 25 AD 34 29 AC 34 20 A7 20 |.Y%..(Y%.4).4 . |
000005A0: 44 4D 25 28 31 29 B2 32 39 3A 41 B2 41 AB 31 00 |DM%(1).29:A.A.1.|
000005B0: D1 0D C4 04 81 20 49 B2 30 20 A4 20 31 31 3A 8B |..... I.0 . 11:.|
000005C0: 20 4D 4E 24 28 49 29 B2 4D 24 20 A7 20 31 33 30 | MN$(I).M$ . 130|
000005D0: 30 00 00 0E D8 04 42 B2 42 AA 44 4D 25 28 49 29 |0.....B.B.DM%(I)|
000005E0: 3A 82 3A 99 20 22 11 4E 4F 54 20 43 4F 52 52 45 |:.:. ".NOT CORRE|
000005F0: 43 54 20 4D 4F 4E 54 48 22 3A 89 20 31 31 36 30 |CT MONTH":. 1160|
00000600: 00 36 0E 14 05 8B 20 44 B3 30 20 B0 20 B5 28 44 |.6.... D.0 . .(D|
00000610: 29 B1 44 4D 25 28 49 29 20 A7 20 99 20 22 11 4E |).DM%(I) . . ".N|
00000620: 4F 54 20 43 4F 52 52 45 43 54 20 44 41 59 22 3A |OT CORRECT DAY":|
00000630: 89 20 31 31 36 30 00 78 0E 1E 05 8B 20 59 25 B1 |. 1160.x.... Y%.|
00000640: 32 30 39 39 20 B0 20 59 25 B3 31 37 30 31 20 A7 |2099 . Y%.1701 .|
00000650: 20 99 20 22 11 44 41 54 45 20 4D 41 59 20 4E 4F | . ".DATE MAY NO|
00000660: 54 20 42 45 20 50 45 52 46 45 43 54 4C 59 20 41 |T BE PERFECTLY A|
00000670: 43 43 55 52 41 54 45 22 00 A9 0E 23 05 4D 24 B2 |CCURATE"...#.M$.|
00000680: 4D 24 AA C4 28 B5 28 44 29 29 AA 22 2C 22 AA C4 |M$..(.(D)).","..|
00000690: 28 59 25 29 3A 99 22 11 43 41 4C 45 4E 44 41 52 |(Y%):.".CALENDAR|
000006A0: 20 44 41 54 45 22 2C 4D 24 00 C6 0E 28 05 41 B2 | DATE",M$...(.A.|
000006B0: 41 AA 42 AA 44 3A 99 22 11 4A 55 4C 49 41 4E 20 |A.B.D:.".JULIAN |
000006C0: 44 41 59 22 2C 41 00 F8 0E D0 07 99 20 22 11 43 |DAY",A...... ".C|
000006D0: 41 4C 43 55 4C 41 54 49 4E 47 20 4F 52 42 49 54 |ALCULATING ORBIT|
000006E0: 53 20 4F 46 20 50 4C 41 4E 45 54 53 11 11 11 22 |S OF PLANETS..."|
000006F0: 3A 42 B2 FF AD 35 30 30 00 34 0F 34 08 44 B2 41 |:B...500.4.4.D.A|
00000700: AB 50 44 28 30 29 3A 43 B2 B6 28 44 29 3A 4E B2 |.PD(0):C..(D):N.|
00000710: 43 AD 32 37 2E 32 31 32 32 32 3A 50 B2 43 AD 32 |C.27.21222:P.C.2|
00000720: 37 2E 35 35 34 35 35 3A 53 B2 43 AD 32 37 2E 33 |7.55455:S.C.27.3|
00000730: 32 31 36 36 00 64 0F 3E 08 45 B2 4E AB 50 3A 46 |2166.d.>.E.N.P:F|
00000740: B2 53 AB 50 3A 45 B2 28 B5 28 45 29 AB 45 29 AC |.S.P:E.(.(E).E).|
00000750: B4 28 44 29 3A 46 B2 28 46 AB B5 28 46 29 29 AC |.(D):F.(F..(F)).|
00000760: B4 28 44 29 00 8C 0F 48 08 41 4E 28 30 29 B2 45 |.(D)...H.AN(0).E|
00000770: AC 47 25 AA 41 4E 28 31 30 29 3A 50 45 28 30 29 |.G%.AN(10):PE(0)|
00000780: B2 46 AC 47 25 AA 50 45 28 31 30 29 00 AB 0F 52 |.F.G%.PE(10)...R|
00000790: 08 8B 20 50 45 28 30 29 B3 30 20 A7 20 50 45 28 |.. PE(0).0 . PE(|
000007A0: 30 29 B2 50 45 28 30 29 AA 47 25 00 CA 0F 5C 08 |0).PE(0).G%...\.|
000007B0: 8B 20 41 4E 28 30 29 B3 30 20 A7 20 41 4E 28 30 |. AN(0).0 . AN(0|
000007C0: 29 B2 41 4E 28 30 29 AA 47 25 00 EA 0F 66 08 8B |).AN(0).G%...f..|
000007D0: 20 50 45 28 30 29 B1 47 25 20 A7 20 50 45 28 30 | PE(0).G% . PE(0|
000007E0: 29 B2 50 45 28 30 29 AB 47 25 00 0A 10 70 08 8B |).PE(0).G%...p..|
000007F0: 20 41 4E 28 30 29 B1 47 25 20 A7 20 41 4E 28 30 | AN(0).G% . AN(0|
00000800: 29 B2 41 4E 28 30 29 AB 47 25 00 2B 10 60 09 81 |).AN(0).G%.+.`..|
00000810: 20 49 B2 30 20 A4 20 39 3A 44 B2 41 AB 50 44 28 | I.0 . 9:D.A.PD(|
00000820: 49 29 3A 99 20 50 4C 24 28 49 29 00 59 10 74 09 |I):. PL$(I).Y.t.|
00000830: 8B 20 B6 28 44 29 B1 59 52 28 49 29 20 A7 20 44 |. .(D).YR(I) . D|
00000840: B2 44 AB A5 42 28 44 AD 59 52 28 49 29 29 AC 59 |.D..B(D.YR(I)).Y|
00000850: 52 28 49 29 AC B4 28 44 29 00 7E 10 79 09 8B 20 |R(I)..(D).~.y.. |
00000860: 44 B3 30 20 AF 20 B6 28 44 29 B1 59 52 28 49 29 |D.0 . .(D).YR(I)|
00000870: AD 32 20 A7 20 44 B2 44 AA 59 52 28 49 29 00 A1 |.2 . D.D.YR(I)..|
00000880: 10 7E 09 43 B2 44 AD 59 52 28 49 29 AC FF AC BA |.~.C.D.YR(I)....|
00000890: 28 31 AB 45 43 28 49 29 AE 32 29 3A 45 B2 43 AC |(1.EC(I).2):E.C.|
000008A0: 32 00 BE 10 92 09 46 B2 28 45 AB 45 43 28 49 29 |2.....F.(E.EC(I)|
000008B0: AC BF 28 45 29 29 AD 32 3A 4E B2 43 AB 46 00 D2 |..(E)).2:N.C.F..|
000008C0: 10 9C 09 8B 20 B6 28 4E 29 B3 42 20 A7 20 32 35 |.... .(N).B . 25|
000008D0: 32 30 00 F8 10 A6 09 53 B2 32 AC 4E AD 28 31 AB |20.....S.2.N.(1.|
000008E0: 45 43 28 49 29 AC BE 28 45 29 29 3A 45 B2 45 AA |EC(I)..(E)):E.E.|
000008F0: 53 3A 89 20 32 34 35 30 00 13 11 D8 09 50 B2 4B |S:. 2450.....P.K|
00000900: 4D 28 49 29 AC 28 31 AB 45 43 28 49 29 AC BE 28 |M(I).(1.EC(I)..(|
00000910: 45 29 29 00 34 11 DD 09 53 B2 50 45 28 49 29 AB |E)).4...S.PE(I).|
00000920: 41 4E 28 49 29 3A 8B 20 53 B3 30 20 A7 20 53 B2 |AN(I):. S.0 . S.|
00000930: 53 AA 47 25 00 41 11 E2 09 43 B2 45 AA 53 AC 50 |S.G%.A...C.E.S.P|
00000940: 38 00 59 11 EC 09 58 B2 50 AC BE 28 43 29 3A 53 |8.Y...X.P..(C):S|
00000950: B2 49 43 28 49 29 AC 50 38 00 6B 11 F6 09 59 B2 |.IC(I).P8.k...Y.|
00000960: 50 AC BF 28 43 29 AC BE 28 53 29 00 7D 11 00 0A |P..(C)..(S).}...|
00000970: 5A B2 50 AC BF 28 43 29 AC BF 28 53 29 00 94 11 |Z.P..(C)..(S)...|
00000980: 0A 0A 8B 20 58 B2 30 20 A7 20 46 B2 45 3A 89 20 |... X.0 . F.E:. |
00000990: 32 35 39 30 00 AF 11 14 0A 46 B2 C1 28 59 AD 58 |2590.....F..(Y.X|
000009A0: 29 3A 8B 20 58 B3 30 20 A7 20 46 B2 46 AA FF 00 |):. X.0 . F.F...|
000009B0: C2 11 1E 0A 8B 20 46 B3 30 20 A7 20 46 B2 46 AA |..... F.0 . F.F.|
000009C0: 50 32 00 EF 11 28 0A 45 B2 BA 28 58 AE 32 AA 59 |P2...(.E..(X.2.Y|
000009D0: AE 32 29 3A 8B 20 45 B2 30 20 A7 20 56 B2 B4 28 |.2):. E.0 . V..(|
000009E0: 5A 29 AC 50 33 AB 50 33 3A 89 20 32 36 31 35 00 |Z).P3.P3:. 2615.|
000009F0: FC 11 32 0A 56 B2 C1 28 5A AD 45 29 00 0D 12 37 |..2.V..(Z.E)...7|
00000A00: 0A 46 B2 46 AA 41 4E 28 49 29 AC 50 38 00 21 12 |.F.F.AN(I).P8.!.|
00000A10: 3C 0A 8B 20 46 B1 50 32 20 A7 20 46 B2 46 AB 50 |<.. F.P2 . F.F.P|
00000A20: 32 00 44 12 18 0B 58 28 49 29 B2 45 AC BE 28 46 |2.D...X(I).E..(F|
00000A30: 29 3A 5A 28 49 29 B2 5A 3A 59 28 49 29 B2 45 AC |):Z(I).Z:Y(I).E.|
00000A40: BF 28 46 29 00 5D 12 22 0B 82 3A 99 22 91 91 91 |.(F).]."..:."...|
00000A50: 91 91 91 91 91 91 91 91 91 91 91 22 3B 00 8D 12 |...........";...|
00000A60: C2 0B 99 20 22 43 4F 4D 50 55 54 49 4E 47 20 56 |... "COMPUTING V|
00000A70: 49 53 55 41 4C 20 50 4F 53 49 54 49 4F 4E 53 20 |ISUAL POSITIONS |
00000A80: 4F 46 20 50 4C 41 4E 45 54 53 11 11 22 00 BB 12 |OF PLANETS.."...|
00000A90: CC 0B 99 22 20 20 20 20 52 49 47 48 54 20 41 53 |..." RIGHT AS|
00000AA0: 43 45 4E 53 49 4F 4E 22 2C 22 20 20 20 20 20 44 |CENSION"," D|
00000AB0: 45 43 4C 49 4E 41 54 49 4F 4E 22 00 C9 12 1C 0C |ECLINATION".....|
00000AC0: 81 20 49 B2 31 20 A4 20 39 00 D7 12 26 0C 8B 20 |. I.1 . 9...&.. |
00000AD0: 49 B2 33 20 A7 20 82 00 FB 12 30 0C 58 28 49 29 |I.3 . ....0.X(I)|
00000AE0: B2 58 28 49 29 AB 58 28 33 29 3A 59 28 49 29 B2 |.X(I).X(3):Y(I).|
00000AF0: 59 28 49 29 AB 59 28 33 29 3A 82 00 15 13 EE 0C |Y(I).Y(3):......|
00000B00: 58 28 33 29 B2 AB 58 28 33 29 3A 59 28 33 29 B2 |X(3)..X(3):Y(3).|
00000B10: AB 59 28 33 29 00 23 13 48 0D 81 20 49 B2 30 20 |.Y(3).#.H.. I.0 |
00000B20: A4 20 39 00 3F 13 52 0D 59 B2 59 28 49 29 AC BE |. 9.?.R.Y.Y(I)..|
00000B30: 28 53 45 29 AB 5A 28 49 29 AC BF 28 53 45 29 00 |(SE).Z(I)..(SE).|
00000B40: 5B 13 5C 0D 5A B2 5A 28 49 29 AC BE 28 53 45 29 |[.\.Z.Z(I)..(SE)|
00000B50: AA 59 28 49 29 AC BF 28 53 45 29 00 7E 13 70 0D |.Y(I)..(SE).~.p.|
00000B60: 8B 20 58 28 49 29 B2 30 20 A7 20 41 28 49 29 B2 |. X(I).0 . A(I).|
00000B70: B4 28 59 29 AC 50 33 3A 89 20 33 34 36 30 00 9F |.(Y).P3:. 3460..|
00000B80: 13 7A 0D 41 B2 C1 28 59 AD 58 28 49 29 29 3A 8B |.z.A..(Y.X(I)):.|
00000B90: 20 58 28 49 29 B3 30 20 A7 20 41 B2 41 AA FF 00 | X(I).0 . A.A...|
00000BA0: B2 13 84 0D 8B 20 41 B3 30 20 A7 20 41 B2 41 AA |..... A.0 . A.A.|
00000BB0: 50 32 00 E2 13 98 0D 45 B2 BA 28 58 28 49 29 AE |P2.....E..(X(I).|
00000BC0: 32 AA 59 AE 32 29 3A 8B 20 45 B2 30 20 A7 20 56 |2.Y.2):. E.0 . V|
00000BD0: B2 B4 28 5A 29 AC 50 33 AB 50 33 3A 89 20 33 35 |..(Z).P3.P3:. 35|
00000BE0: 30 30 00 EF 13 A2 0D 56 B2 C1 28 5A AD 45 29 00 |00.....V..(Z.E).|
00000BF0: FB 13 AC 0D 41 25 B2 41 AD 50 34 00 12 14 B6 0D |....A%.A.P4.....|
00000C00: 56 25 B2 28 36 34 AB 56 AD 50 34 29 20 AF 20 32 |V%.(64.V.P4) . 2|
00000C10: 35 35 00 30 14 C0 0D 97 20 50 42 AA 32 AC 49 2C |55.0.... PB.2.I,|
00000C20: 41 25 3A 97 20 50 42 AA 31 AA 32 AC 49 2C 56 25 |A%:. PB.1.2.I,V%|
00000C30: 00 4D 14 C5 0D 42 B2 A5 41 28 41 AD 31 35 AD 50 |.M...B..A(A.15.P|
00000C40: 38 29 3A 56 B2 A5 41 28 56 AD 50 38 29 00 67 14 |8):V..A(V.P8).g.|
00000C50: CA 0D 99 2C 42 2C 2C 56 3A 8B 20 49 B2 30 20 A7 |...,B,,V:. I.0 .|
00000C60: 20 41 30 25 B2 41 25 00 7A 14 CF 0D 8B 20 49 B2 | A0%.A%.z.... I.|
00000C70: 33 20 A7 20 41 33 25 B2 41 25 00 9D 14 D4 0D 82 |3 . A3%.A%......|
00000C80: 3A 99 20 22 11 50 52 45 53 53 20 41 20 4B 45 59 |:. ".PRESS A KEY|
00000C90: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 BC 14 | TO CONTINUE"...|
00000CA0: D9 0D 59 25 B2 41 33 25 AB 41 30 25 3A 51 25 B2 |..Y%.A3%.A0%:Q%.|
00000CB0: 32 30 39 3A 52 25 B2 B6 28 59 25 29 00 D8 14 DE |209:R%..(Y%)....|
00000CC0: 0D 8B 20 52 25 B1 39 30 20 AF 20 52 25 B3 31 36 |.. R%.90 . R%.16|
00000CD0: 35 20 A7 20 33 35 37 35 00 FE 14 E3 0D 8B 20 28 |5 . 3575...... (|
00000CE0: 52 25 B3 39 30 20 B0 20 52 25 B1 31 36 35 29 AF |R%.90 . R%.165).|
00000CF0: 20 59 25 B1 30 20 A7 20 51 25 B2 32 31 30 00 24 | Y%.0 . Q%.210.$|
00000D00: 15 E8 0D 8B 20 28 52 25 B3 39 30 20 B0 20 52 25 |.... (R%.90 . R%|
00000D10: B1 31 36 35 29 AF 20 59 25 B3 30 20 A7 20 51 25 |.165). Y%.0 . Q%|
00000D20: B2 32 31 31 00 4A 15 ED 0D 8B 20 28 52 25 B3 33 |.211.J.... (R%.3|
00000D30: 30 20 B0 20 52 25 B1 32 30 35 29 AF 20 59 25 B1 |0 . R%.205). Y%.|
00000D40: 30 20 A7 20 51 25 B2 32 31 32 00 70 15 F2 0D 8B |0 . Q%.212.p....|
00000D50: 20 28 52 25 B3 33 30 20 B0 20 52 25 B1 32 30 35 | (R%.30 . R%.205|
00000D60: 29 AF 20 59 25 B3 30 20 A7 20 51 25 B2 32 31 33 |). Y%.0 . Q%.213|
00000D70: 00 7F 15 F7 0D 97 20 44 42 AA 36 38 2C 51 25 00 |...... DB.68,Q%.|
00000D80: 95 15 01 0E 8B 20 C2 28 31 39 38 29 B2 30 20 A7 |..... .(198).0 .|
00000D90: 20 33 35 38 35 00 A0 15 06 0E A1 20 41 24 3A 8E | 3585...... A$:.|
00000DA0: 00 D1 15 68 10 83 20 2E 33 38 34 35 2C 32 37 2E |...h.. .3845,27.|
00000DB0: 35 35 34 35 35 2C 35 2E 35 2C 39 33 2C 2E 30 37 |55455,5.5,93,.07|
00000DC0: 2C 31 32 30 2C 32 34 34 35 33 36 34 2C 4D 4F 4F |,120,2445364,MOO|
00000DD0: 4E 00 08 16 69 10 83 20 35 37 2E 39 2C 38 37 2E |N...i.. 57.9,87.|
00000DE0: 39 36 39 33 2C 37 2E 30 2C 34 37 2E 39 2C 2E 32 |9693,7.0,47.9,.2|
00000DF0: 30 36 2C 37 36 2E 38 32 2C 32 34 34 34 32 38 39 |06,76.82,2444289|
00000E00: 2C 4D 45 52 43 55 52 59 00 40 16 6A 10 83 20 31 |,MERCURY.@.j.. 1|
00000E10: 30 38 2E 31 2C 32 32 34 2E 37 30 30 38 2C 33 2E |08.1,224.7008,3.|
00000E20: 34 2C 37 36 2E 33 2C 2E 30 30 37 2C 31 33 30 2E |4,76.3,.007,130.|
00000E30: 39 34 2C 32 34 34 34 33 32 33 2C 56 45 4E 55 53 |94,2444323,VENUS|
00000E40: 00 70 16 6B 10 83 20 31 34 39 2E 35 2C 33 36 35 |.p.k.. 149.5,365|
00000E50: 2E 32 35 36 34 2C 30 2C 30 2C 2E 30 31 37 2C 31 |.2564,0,0,.017,1|
00000E60: 30 32 2E 33 2C 32 34 34 34 32 34 32 2C 53 55 4E |02.3,2444242,SUN|
00000E70: 00 A7 16 6C 10 83 20 32 32 37 2E 38 2C 36 38 36 |...l.. 227.8,686|
00000E80: 2E 39 37 39 36 2C 31 2E 38 2C 34 39 2E 32 2C 2E |.9796,1.8,49.2,.|
00000E90: 30 39 33 2C 33 33 35 2E 32 34 2C 32 34 34 33 39 |093,335.24,24439|
00000EA0: 35 31 2C 4D 41 52 53 00 DE 16 6D 10 83 20 37 37 |51,MARS...m.. 77|
00000EB0: 38 2C 34 33 33 32 2E 35 38 38 32 2C 31 2E 33 2C |8,4332.5882,1.3,|
00000EC0: 31 30 30 2C 2E 30 34 38 2C 31 33 2E 37 36 2C 32 |100,.048,13.76,2|
00000ED0: 34 34 32 36 33 37 2C 4A 55 50 49 54 45 52 00 17 |442637,JUPITER..|
00000EE0: 17 6E 10 83 20 31 34 32 37 2C 31 30 37 35 39 2E |.n.. 1427,10759.|
00000EF0: 32 33 36 34 2C 32 2E 35 2C 31 31 33 2E 33 2C 2E |2364,2.5,113.3,.|
00000F00: 30 35 36 2C 39 32 2E 33 2C 32 34 34 32 30 35 36 |056,92.3,2442056|
00000F10: 2C 53 41 54 55 52 4E 00 50 17 6F 10 83 20 32 38 |,SATURN.P.o.. 28|
00000F20: 36 39 2C 33 30 36 38 38 2E 33 39 30 34 2C 2E 38 |69,30688.3904,.8|
00000F30: 2C 37 33 2E 38 2C 2E 30 34 37 2C 31 36 39 2E 39 |,73.8,.047,169.9|
00000F40: 37 2C 32 34 33 39 33 36 31 2C 55 52 41 4E 55 53 |7,2439361,URANUS|
00000F50: 00 8B 17 70 10 83 20 34 34 39 37 2C 36 30 31 38 |...p.. 4497,6018|
00000F60: 31 2E 31 31 33 32 2C 31 2E 38 2C 31 33 31 2E 33 |1.1132,1.8,131.3|
00000F70: 2C 2E 30 30 39 2C 34 34 2E 33 33 2C 32 34 36 38 |,.009,44.33,2468|
00000F80: 31 39 31 2C 4E 45 50 54 55 4E 45 00 C0 17 71 10 |191,NEPTUNE...q.|
00000F90: 83 20 35 39 30 30 2C 39 30 34 37 30 2C 31 37 2E |. 5900,90470,17.|
00000FA0: 32 2C 31 30 39 2E 39 2C 2E 32 35 2C 32 32 36 2E |2,109.9,.25,226.|
00000FB0: 33 34 2C 32 34 34 37 38 34 39 2C 50 4C 55 54 4F |34,2447849,PLUTO|
00000FC0: 00 FE 17 E0 10 83 20 4A 41 4E 55 41 52 59 2C 33 |...... JANUARY,3|
00000FD0: 31 2C 46 45 42 52 55 41 52 59 2C 32 38 2C 4D 41 |1,FEBRUARY,28,MA|
00000FE0: 52 43 48 2C 33 31 2C 41 50 52 49 4C 2C 33 30 2C |RCH,31,APRIL,30,|
00000FF0: 4D 41 59 2C 33 31 2C 4A 55 4E 45 2C 33 30 00 46 |MAY,31,JUNE,30.F|
00001000: 18 EA 10 83 20 4A 55 4C 59 2C 33 31 2C 41 55 47 |.... JULY,31,AUG|
00001010: 55 53 54 2C 33 31 2C 53 45 50 54 45 4D 42 45 52 |UST,31,SEPTEMBER|
00001020: 2C 33 30 2C 4F 43 54 4F 42 45 52 2C 33 31 2C 4E |,30,OCTOBER,31,N|
00001030: 4F 56 45 4D 42 45 52 2C 33 30 2C 44 45 43 45 4D |OVEMBER,30,DECEM|
00001040: 42 45 52 2C 33 31 00 83 18 F4 10 83 20 4E 4F 52 |BER,31...... NOR|
00001050: 54 48 2C 4E 4E 57 2C 4E 4F 52 54 48 2D 57 45 53 |TH,NNW,NORTH-WES|
00001060: 54 2C 57 4E 57 2C 57 45 53 54 2C 57 53 57 2C 53 |T,WNW,WEST,WSW,S|
00001070: 4F 55 54 48 2D 57 45 53 54 2C 53 53 57 2C 53 4F |OUTH-WEST,SSW,SO|
00001080: 55 54 48 00 B4 18 FE 10 83 20 53 53 45 2C 53 4F |UTH...... SSE,SO|
00001090: 55 54 48 2D 45 41 53 54 2C 45 53 45 2C 45 41 53 |UTH-EAST,ESE,EAS|
000010A0: 54 2C 45 4E 45 2C 4E 4F 52 54 48 2D 45 41 53 54 |T,ENE,NORTH-EAST|
000010B0: 2C 4E 4E 45 00 E4 18 08 11 83 20 2B 2C 2D 2C 5A |,NNE...... +,-,Z|
000010C0: 2C 58 2C 4E 2C 53 2C 22 3F 22 2C 4C 2C 52 2C 55 |,X,N,S,"?",L,R,U|
000010D0: 2C 48 2C 44 2C 2A 2C 54 2C 50 2C 45 2C 4F 2C 31 |,H,D,*,T,P,E,O,1|
000010E0: 2C 36 2C 39 00 F9 18 E0 2E 99 22 93 11 22 2C 22 |,6,9......"..","|
000010F0: 4C 41 54 49 54 55 44 45 22 00 1F 19 EA 2E 99 22 |LATITUDE"......"|
00001100: 11 50 4C 45 41 53 45 20 54 45 4C 4C 20 4D 45 20 |.PLEASE TELL ME |
00001110: 57 48 45 52 45 20 59 4F 55 20 4C 49 56 45 22 00 |WHERE YOU LIVE".|
00001120: 58 19 F4 2E 99 22 11 54 59 50 45 20 59 4F 55 52 |X....".TYPE YOUR|
00001130: 20 4C 41 54 49 54 55 44 45 20 49 4E 20 44 45 47 | LATITUDE IN DEG|
00001140: 52 45 45 53 2C 22 2C 22 20 49 46 20 59 4F 55 20 |REES,"," IF YOU |
00001150: 4B 4E 4F 57 20 49 54 22 00 7E 19 FE 2E 99 22 20 |KNOW IT".~...." |
00001160: 4F 52 20 45 4C 53 45 20 4F 4E 45 20 4F 46 20 54 |OR ELSE ONE OF T|
00001170: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 B2 |HE FOLLOWING:"..|
00001180: 19 08 2F 99 2C 22 11 54 52 4F 50 49 43 53 3A 22 |../.,".TROPICS:"|
00001190: 2C 30 3A 99 2C 22 11 55 2E 53 2E 41 2E 3A 22 2C |,0:.,".U.S.A.:",|
000011A0: 34 30 3A 99 2C 22 11 43 41 4E 41 44 41 3A 22 2C |40:.,".CANADA:",|
000011B0: 35 30 00 DA 19 1C 2F 99 2C 22 11 41 52 43 54 49 |50..../.,".ARCTI|
000011C0: 43 3A 22 2C 37 30 3A 99 2C 22 11 41 55 53 54 52 |C:",70:.,".AUSTR|
000011D0: 41 4C 49 41 3A 22 3B AB 34 30 00 09 1A 26 2F 85 |ALIA:";.40...&/.|
000011E0: 20 22 11 4C 41 54 49 54 55 44 45 22 3B 4C 30 3A | ".LATITUDE";L0:|
000011F0: 4C 30 B2 4C 30 AC 50 35 20 AF 20 32 35 35 3A 97 |L0.L0.P5 . 255:.|
00001200: 20 44 42 AA 33 33 2C 4C 30 00 3A 1A 30 2F 52 30 | DB.33,L0.:.0/R0|
00001210: B2 AB C2 28 50 42 AA 36 29 AB 31 39 32 20 AF 20 |...(PB.6).192 . |
00001220: 32 35 35 3A 52 32 B2 52 30 3A 41 4C B2 31 38 3A |255:R2.R0:AL.18:|
00001230: 41 31 B2 32 3A 4C 54 B2 4C 30 00 59 1A 35 2F 4C |A1.2:LT.L0.Y.5/L|
00001240: 53 B2 4C 54 3A 8B 20 4C 53 B1 31 32 37 20 A7 20 |S.LT:. LS.127 . |
00001250: 4C 53 B2 4C 53 AB 32 35 36 00 5F 1A 3A 2F 8E 00 |LS.LS.256._.:/..|
00001260: 7B 1A C8 32 99 20 22 93 11 11 11 22 2C 22 53 54 |{..2. "....","ST|
00001270: 41 52 20 46 49 4E 44 45 52 3A 22 00 B3 1A CA 32 |AR FINDER:"....2|
00001280: 99 2C 22 11 54 59 50 45 20 4E 41 4D 45 20 4F 46 |.,".TYPE NAME OF|
00001290: 20 53 54 41 52 2C 50 4C 41 4E 45 54 2C 22 2C 2C | STAR,PLANET,",,|
000012A0: 22 20 4F 52 20 43 4F 4E 53 54 45 4C 4C 41 54 49 |" OR CONSTELLATI|
000012B0: 4F 4E 22 00 D1 1A CD 32 99 2C 22 11 48 49 54 20 |ON"....2.,".HIT |
000012C0: 52 45 54 55 52 4E 20 54 4F 20 43 41 4E 43 45 4C |RETURN TO CANCEL|
000012D0: 22 00 F2 1A D2 32 42 24 B2 22 22 3A 99 22 11 22 |"....2B$."":."."|
000012E0: 2C 3A 85 20 42 24 3A 8B 20 42 24 B2 22 22 20 A7 |,:. B$:. B$."" .|
000012F0: 20 8E 00 31 1B D7 32 81 20 49 B2 30 20 A4 20 39 | ..1..2. I.0 . 9|
00001300: 3A 8B 20 42 24 B2 50 4C 24 28 49 29 20 A7 20 4E |:. B$.PL$(I) . N|
00001310: 24 B2 4E 35 24 3A 49 B2 49 AA 33 39 32 3A 4B B2 |$.N5$:I.I.392:K.|
00001320: 49 3A 8D 20 31 39 30 30 30 3A 89 20 31 33 35 30 |I:. 19000:. 1350|
00001330: 30 00 55 1B D8 32 82 3A 81 20 49 B2 31 20 A4 20 |0.U..2.:. I.1 . |
00001340: 37 30 3A 8B 20 43 24 28 49 29 B2 42 24 20 A7 20 |70:. C$(I).B$ . |
00001350: 31 33 32 30 30 00 90 1B 09 33 82 3A 81 20 49 B2 |13200....3.:. I.|
00001360: 31 20 A4 20 32 38 33 3A 8B 20 53 4B 24 28 49 29 |1 . 283:. SK$(I)|
00001370: B2 42 24 20 A7 20 4E 24 B2 4E 33 24 3A 4B B2 49 |.B$ . N$.N3$:K.I|
00001380: 3A 8D 20 31 39 30 30 30 3A 89 20 31 33 35 30 30 |:. 19000:. 13500|
00001390: 00 CC 1B 0E 33 82 3A 81 20 49 B2 32 38 34 A4 20 |....3.:. I.284. |
000013A0: 32 39 32 3A 8B 20 53 4B 24 28 49 29 B2 42 24 20 |292:. SK$(I).B$ |
000013B0: A7 20 4E 24 B2 4E 32 24 3A 4B B2 49 3A 8D 20 31 |. N$.N2$:K.I:. 1|
000013C0: 39 30 30 30 3A 89 20 31 33 35 30 30 00 02 1C 2C |9000:. 13500...,|
000013D0: 33 82 3A 99 20 22 11 54 48 41 54 20 49 53 20 4E |3.:. ".THAT IS N|
000013E0: 4F 54 20 49 4E 20 4D 59 20 46 49 4C 45 53 3A 54 |OT IN MY FILES:T|
000013F0: 52 59 20 41 47 41 49 4E 3F 22 3A 89 20 31 33 30 |RY AGAIN?":. 130|
00001400: 31 30 00 2F 1C 90 33 4E 24 B2 4E 31 24 3A 44 24 |10./..3N$.N1$:D$|
00001410: B2 4E 33 24 3A 8B 20 42 24 B2 43 24 28 36 37 29 |.N3$:. B$.C$(67)|
00001420: 20 A7 20 4E 24 B2 22 22 3A 44 24 B2 4E 34 24 00 | . N$."":D$.N4$.|
00001430: 61 1C 95 33 4B B2 43 53 25 28 49 2C 31 29 3A 49 |a..3K.CS%(I,1):I|
00001440: B2 43 53 25 28 49 2C 30 29 3A 8D 20 31 39 30 30 |.CS%(I,0):. 1900|
00001450: 30 3A 8B 20 49 B1 32 39 30 20 A7 20 31 33 35 30 |0:. I.290 . 1350|
00001460: 30 00 95 1C A4 33 99 20 22 11 49 4E 43 4C 55 44 |0....3. ".INCLUD|
00001470: 45 53 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |ES THE FOLLOWING|
00001480: 20 42 52 49 47 48 54 20 22 3B 44 24 3B 22 53 11 | BRIGHT ";D$;"S.|
00001490: 22 3A 58 B2 30 00 CA 1C A9 33 81 20 4C B2 49 20 |":X.0....3. L.I |
000014A0: A4 20 4B 3A 99 20 A3 58 29 3B 53 4B 24 28 4C 29 |. K:. .X);SK$(L)|
000014B0: 3B 3A 8B 20 58 B2 32 30 20 A7 20 58 B2 30 3A 99 |;:. X.20 . X.0:.|
000014C0: 3A 82 3A 89 20 31 33 35 30 30 00 D7 1C AE 33 58 |:.:. 13500....3X|
000014D0: B2 32 30 3A 82 3A 99 00 14 1D BC 34 99 2C 22 11 |.20:.:.....4.,".|
000014E0: 46 31 20 3D 20 54 45 4C 45 53 43 4F 50 45 22 3A |F1 = TELESCOPE":|
000014F0: 99 2C 22 46 33 20 3D 20 50 4C 41 4E 45 54 41 52 |.,"F3 = PLANETAR|
00001500: 49 55 4D 22 3A 99 2C 22 46 37 20 3D 20 52 45 54 |IUM":.,"F7 = RET|
00001510: 55 52 4E 22 00 2B 1D C6 34 8B 20 C2 28 31 39 38 |URN".+..4. .(198|
00001520: 29 B2 30 20 A7 20 31 33 35 31 30 00 51 1D D0 34 |).0 . 13510.Q..4|
00001530: A1 20 41 24 3A 8B 20 41 24 B2 22 86 22 20 A7 20 |. A$:. A$."." . |
00001540: 41 31 B2 31 3A 4C 54 B2 30 3A 89 20 32 30 30 31 |A1.1:LT.0:. 2001|
00001550: 30 00 62 1D DA 34 8B 20 41 24 B2 22 88 22 20 A7 |0.b..4. A$."." .|
00001560: 20 8E 00 78 1D E4 34 8B 20 41 24 B3 B1 22 85 22 | ..x..4. A$.."."|
00001570: 20 A7 20 31 33 35 31 30 00 9D 1D EE 34 8D 20 31 | . 13510....4. 1|
00001580: 32 30 38 30 3A 8B 20 B6 28 36 34 AB 44 43 AB 4C |2080:. .(64.DC.L|
00001590: 53 29 B3 36 34 20 A7 20 31 33 35 38 30 00 CB 1D |S).64 . 13580...|
000015A0: F3 34 99 20 22 11 22 3B 42 24 3B 22 20 4D 41 59 |.4. ".";B$;" MAY|
000015B0: 20 4E 4F 54 20 42 45 20 56 49 53 49 42 4C 45 20 | NOT BE VISIBLE |
000015C0: 46 52 4F 4D 20 48 45 52 45 11 22 00 F1 1D F8 34 |FROM HERE."....4|
000015D0: 99 20 22 50 52 45 53 53 20 46 37 20 54 4F 20 54 |. "PRESS F7 TO T|
000015E0: 52 59 20 41 4E 4F 54 48 45 52 20 53 54 41 52 2E |RY ANOTHER STAR.|
000015F0: 22 00 08 1E FD 34 8B 20 C2 28 31 39 38 29 B2 30 |"....4. .(198).0|
00001600: 20 A7 20 31 33 35 36 35 00 1E 1E 02 35 A1 20 41 | . 13565....5. A|
00001610: 24 3A 8B 20 41 24 B2 22 88 22 20 A7 20 8E 00 4A |$:. A$."." . ..J|
00001620: 1E 07 35 52 32 B2 AB 52 41 20 AF 20 32 35 35 3A |..5R2..RA . 255:|
00001630: 41 5A B2 AB 44 43 20 AF 20 32 35 35 3A 41 4C B2 |AZ..DC . 255:AL.|
00001640: 31 38 3A 89 20 32 30 30 31 30 00 56 1E 0C 35 8D |18:. 20010.V..5.|
00001650: 20 31 39 35 38 30 00 6B 1E 3E 35 8B 20 58 28 32 | 19580.k.>5. X(2|
00001660: 29 B1 30 20 A7 20 32 30 30 31 30 00 8A 1E 84 35 |).0 . 20010....5|
00001670: 4C 56 B2 4C 30 AC 50 34 3A 52 56 B2 52 41 AC 50 |LV.L0.P4:RV.RA.P|
00001680: 34 3A 44 56 B2 44 43 AC 50 34 00 C1 1E 8E 35 8B |4:DV.DC.P4....5.|
00001690: 20 44 56 B2 30 20 B0 20 4C 56 B2 30 20 B0 20 B6 | DV.0 . LV.0 . .|
000016A0: 28 44 56 29 B2 50 33 20 B0 20 B6 28 4C 56 29 B2 |(DV).P3 . .(LV).|
000016B0: 50 33 20 A7 20 53 56 B2 30 3A 89 20 31 33 37 34 |P3 . SV.0:. 1374|
000016C0: 30 00 D7 1E 98 35 53 56 B2 AB 31 AD C0 28 4C 56 |0....5SV..1..(LV|
000016D0: 29 AD C0 28 44 56 29 00 04 1F A2 35 8B 20 B6 28 |)..(DV)....5. .(|
000016E0: 53 56 29 B2 31 20 A7 20 53 56 B2 50 33 AC B4 28 |SV).1 . SV.P3..(|
000016F0: 53 56 29 3A 53 57 B2 53 56 AD 50 34 3A 89 20 31 |SV):SW.SV.P4:. 1|
00001700: 33 37 36 30 00 20 1F AC 35 53 57 B2 C1 28 53 56 |3760. ..5SW..(SV|
00001710: AD BA 28 AB 53 56 AC 53 56 AA 31 29 29 AD 50 34 |..(.SV.SV.1)).P4|
00001720: 00 54 1F C0 35 52 32 B2 AB 52 41 AB 53 57 20 AF |.T..5R2..RA.SW .|
00001730: 20 32 35 35 3A 8B 20 58 28 30 29 B3 30 20 A7 20 | 255:. X(0).0 . |
00001740: 52 32 B2 52 32 AA 31 32 38 AA 32 AC 53 57 20 AF |R2.R2.128.2.SW .|
00001750: 20 32 35 35 00 68 1F CA 35 8D 20 31 39 35 38 30 | 255.h..5. 19580|
00001760: 3A 89 20 32 30 30 31 30 00 7C 1F 98 3A 9E 20 35 |:. 20010.|..:. 5|
00001770: 31 32 33 32 3A 97 20 31 39 38 2C 30 00 93 1F A2 |1232:. 198,0....|
00001780: 3A 8B 20 C2 28 31 39 38 29 B2 30 20 A7 20 31 35 |:. .(198).0 . 15|
00001790: 30 31 30 00 9E 1F AC 3A A1 20 41 24 3A 8E 00 B1 |010....:. A$:...|
000017A0: 1F 80 3E 9E 20 34 39 34 33 34 3A 99 22 93 22 3A |..>. 49434:.".":|
000017B0: 80 00 CB 1F 68 42 99 20 22 93 11 11 11 22 2C 22 |....hB. "....","|
000017C0: 53 54 41 52 20 49 4E 44 45 58 22 00 12 20 6D 42 |STAR INDEX".. mB|
000017D0: 99 2C 22 11 46 31 3D 43 4F 4E 53 54 45 4C 4C 41 |.,".F1=CONSTELLA|
000017E0: 54 49 4F 4E 53 22 3A 99 2C 22 11 46 33 3D 53 54 |TIONS":.,".F3=ST|
000017F0: 41 52 53 22 3A 99 2C 22 11 46 35 3D 50 4C 41 4E |ARS":.,".F5=PLAN|
00001800: 45 54 53 22 3A 99 2C 22 11 46 37 3D 51 55 49 54 |ETS":.,".F7=QUIT|
00001810: 11 22 00 26 20 72 42 97 20 31 39 38 2C 30 3A 92 |.".& rB. 198,0:.|
00001820: 20 31 39 38 2C 31 00 40 20 7C 42 A1 20 41 24 3A | 198,1.@ |B. A$:|
00001830: 8B 20 41 24 B2 22 85 22 20 A7 20 31 37 31 30 30 |. A$."." . 17100|
00001840: 00 55 20 86 42 8B 20 41 24 B2 22 86 22 20 A7 20 |.U .B. A$."." . |
00001850: 31 37 32 30 30 00 66 20 90 42 8B 20 41 24 B2 22 |17200.f .B. A$."|
00001860: 88 22 20 A7 20 8E 00 7C 20 9A 42 8B 20 41 24 B3 |." . ..| .B. A$.|
00001870: B1 22 87 22 20 A7 20 31 37 30 31 30 00 9D 20 A4 |."." . 17010.. .|
00001880: 42 81 20 49 B2 30 20 A4 20 39 3A 99 2C 50 4C 24 |B. I.0 . 9:.,PL$|
00001890: 28 49 29 3A 82 3A 89 20 31 37 33 30 30 00 C9 20 |(I):.:. 17300.. |
000018A0: CC 42 4B B2 30 3A 81 20 49 B2 31 20 A4 20 37 30 |.BK.0:. I.1 . 70|
000018B0: 20 A9 20 32 3A 99 20 43 24 28 49 29 3B A3 32 30 | . 2:. C$(I);.20|
000018C0: 29 3B 43 24 28 49 AA 31 29 00 ED 20 E0 42 4B B2 |);C$(I.1).. .BK.|
000018D0: 4B AA 31 3A 8B 20 4B B1 32 30 20 A7 20 8D 20 31 |K.1:. K.20 . . 1|
000018E0: 37 33 30 30 3A 4B B2 30 3A 99 22 93 22 00 04 21 |7300:K.0:."."..!|
000018F0: E5 42 8B 20 43 24 28 49 29 B2 22 22 20 A7 20 31 |.B. C$(I)."" . 1|
00001900: 37 33 30 30 00 14 21 E7 42 8B 20 41 24 B2 22 88 |7300..!.B. A$.".|
00001910: 22 A7 20 8E 00 22 21 EA 42 82 3A 89 20 31 37 33 |". .."!.B.:. 173|
00001920: 30 30 00 51 21 30 43 4B B2 30 3A 81 20 49 B2 31 |00.Q!0CK.0:. I.1|
00001930: 20 A4 20 33 30 30 20 A9 20 32 3A 99 20 53 4B 24 | . 300 . 2:. SK$|
00001940: 28 49 29 3B A3 32 30 29 3B 53 4B 24 28 49 AA 31 |(I);.20);SK$(I.1|
00001950: 29 00 75 21 44 43 4B B2 4B AA 31 3A 8B 20 4B B1 |).u!DCK.K.1:. K.|
00001960: 32 30 20 A7 20 8D 20 31 37 33 30 30 3A 4B B2 30 |20 . . 17300:K.0|
00001970: 3A 99 22 93 22 00 8D 21 49 43 8B 20 53 4B 24 28 |:."."..!IC. SK$(|
00001980: 49 29 B2 22 22 20 A7 20 31 37 33 30 30 00 9D 21 |I)."" . 17300..!|
00001990: 4B 43 8B 20 41 24 B2 22 88 22 A7 20 8E 00 A3 21 |KC. A$.".". ...!|
000019A0: 4E 43 82 00 BE 21 94 43 97 20 31 39 38 2C 30 3A |NC...!.C. 198,0:|
000019B0: 92 20 31 39 38 2C 31 3A A1 20 41 24 3A 8E 00 E0 |. 198,1:. A$:...|
000019C0: 21 38 4A 99 20 22 93 11 11 11 22 3B 4E 24 3B 22 |!8J. "....";N$;"|
000019D0: 20 46 4F 55 4E 44 22 2C 42 24 3A 4A B2 49 AB 31 | FOUND",B$:J.I.1|
000019E0: 00 18 22 9C 4A 52 41 B2 C2 28 53 42 AA 32 AC 49 |..".JRA..(SB.2.I|
000019F0: 29 3A 99 22 11 52 49 47 48 54 20 41 53 43 45 4E |):.".RIGHT ASCEN|
00001A00: 53 49 4F 4E 22 2C A5 41 28 52 41 AC 50 36 29 3B |SION",.A(RA.P6);|
00001A10: 22 20 48 4F 55 52 53 22 00 56 22 B0 4A 44 43 B2 |" HOURS".V".JDC.|
00001A20: C2 28 53 42 AA 32 AC 49 AA 31 29 3A 99 22 11 44 |.(SB.2.I.1):.".D|
00001A30: 45 43 4C 49 4E 41 54 49 4F 4E 22 2C A5 41 28 28 |ECLINATION",.A((|
00001A40: 36 34 AB 44 43 29 AD 50 35 29 3B 22 20 44 45 47 |64.DC).P5);" DEG|
00001A50: 52 45 45 53 11 22 00 76 22 BA 4A 52 32 B2 AB 52 |REES.".v".JR2..R|
00001A60: 41 20 AF 20 32 35 35 3A 41 5A B2 AB 44 43 20 AF |A . 255:AZ..DC .|
00001A70: 20 32 35 35 3A 8E 00 AB 22 7C 4C 51 25 B2 4A 3A | 255:..."|LQ%.J:|
00001A80: 52 25 B2 4A AA 31 3A 8D 20 32 37 30 30 30 3A 97 |R%.J.1:. 27000:.|
00001A90: 20 44 42 AA 31 35 2C 30 3A 97 20 44 42 AA 31 38 | DB.15,0:. DB.18|
00001AA0: 2C 36 34 3A 9E 20 34 39 35 37 36 00 E4 22 90 4C |,64:. 49576..".L|
00001AB0: 81 20 49 B2 30 20 A4 20 32 3A 58 28 49 29 B2 C2 |. I.0 . 2:X(I)..|
00001AC0: 28 44 42 AA 32 35 AA 49 29 3A 8B 20 58 28 49 29 |(DB.25.I):. X(I)|
00001AD0: B1 31 32 37 20 A7 20 58 28 49 29 B2 58 28 49 29 |.127 . X(I).X(I)|
00001AE0: AB 32 35 36 00 07 23 9A 4C 82 3A 8B 20 58 28 31 |.256..#.L.:. X(1|
00001AF0: 29 B2 30 20 A7 20 5A B2 B4 28 58 28 30 29 29 3A |).0 . Z..(X(0)):|
00001B00: 89 20 31 39 36 33 30 00 2B 23 A4 4C 5A B2 C1 28 |. 19630.+#.LZ..(|
00001B10: 58 28 30 29 AD 58 28 31 29 29 3A 8B 20 58 28 31 |X(0).X(1)):. X(1|
00001B20: 29 B3 30 20 A7 20 5A B2 5A AA FF 00 52 23 AE 4C |).0 . Z.Z...R#.L|
00001B30: 41 4C B2 58 28 32 29 AD 31 32 38 3A 8B 20 41 4C |AL.X(2).128:. AL|
00001B40: B2 31 20 A7 20 41 4C B2 50 33 3A 89 20 31 39 36 |.1 . AL.P3:. 196|
00001B50: 34 30 00 6B 23 B3 4C 41 4C B2 C1 28 41 4C AD BA |40.k#.LAL..(AL..|
00001B60: 28 AB 41 4C AC 41 4C AA 31 29 29 00 97 23 B8 4C |(.AL.AL.1))..#.L|
00001B70: 41 5A B2 AB 5A AD 50 34 20 AF 20 32 35 35 3A 41 |AZ..Z.P4 . 255:A|
00001B80: 4C B2 41 4C AD 50 34 3A 8B 20 41 4C B3 31 38 20 |L.AL.P4:. AL.18 |
00001B90: A7 20 41 4C B2 31 38 00 9D 23 C2 4C 8E 00 B6 23 |. AL.18..#.L...#|
00001BA0: 2A 4E 8F 2A 2A 2A 20 50 4C 41 4E 45 54 41 52 49 |*N.*** PLANETARI|
00001BB0: 55 4D 20 2A 2A 2A 00 C5 23 78 50 8F 3A 20 4E 4F |UM ***..#xP.: NO|
00001BC0: 54 48 49 4E 47 00 EC 23 DC 50 97 20 56 42 AA 32 |THING..#.P. VB.2|
00001BD0: 31 2C 30 3A 8D 20 32 37 30 30 30 3A 8B 20 41 31 |1,0:. 27000:. A1|
00001BE0: B2 32 20 A7 20 8D 20 32 33 30 30 30 00 0E 24 22 |.2 . . 23000..$"|
00001BF0: 51 97 20 34 39 39 36 37 2C 43 43 3A 9E 20 34 39 |Q. 49967,CC:. 49|
00001C00: 35 34 38 3A 97 20 44 42 AA 33 32 2C 45 4E 00 32 |548:. DB.32,EN.2|
00001C10: 24 27 51 8B 20 45 4E B2 31 20 A7 20 52 25 B2 32 |$'Q. EN.1 . R%.2|
00001C20: 38 34 3A 8D 20 32 37 32 30 30 3A 9E 20 34 39 35 |84:. 27200:. 495|
00001C30: 36 38 00 4C 24 2A 51 97 20 56 42 AA 32 33 2C 53 |68.L$*Q. VB.23,S|
00001C40: 50 3A 97 20 56 42 AA 32 39 2C 53 50 00 84 24 2C |P:. VB.29,SP..$,|
00001C50: 51 97 44 42 AA 34 32 2C 38 30 3A 97 20 44 42 AA |Q.DB.42,80:. DB.|
00001C60: 34 33 2C 31 32 33 3A 51 25 B2 32 38 33 3A 52 25 |43,123:Q%.283:R%|
00001C70: B2 32 39 31 3A 8D 20 32 37 32 30 30 3A 9E 20 35 |.291:. 27200:. 5|
00001C80: 31 34 35 36 00 B7 24 30 51 97 44 42 AA 34 32 2C |1456..$0Q.DB.42,|
00001C90: 38 38 3A 51 25 B2 32 39 31 3A 52 25 B2 32 39 32 |88:Q%.291:R%.292|
00001CA0: 3A 8D 32 37 32 30 30 3A 9E 20 35 31 34 35 36 3A |:.27200:. 51456:|
00001CB0: 9E 20 35 30 35 39 30 00 CA 24 36 51 8B 20 41 B2 |. 50590..$6Q. A.|
00001CC0: 32 20 A7 20 8D 32 32 30 30 30 00 E1 24 40 51 8B |2 . .22000..$@Q.|
00001CD0: 20 C2 28 31 39 38 29 B2 30 20 A7 20 32 30 38 30 | .(198).0 . 2080|
00001CE0: 30 00 09 25 45 51 A1 20 41 24 3A 81 20 49 B2 30 |0..%EQ. A$:. I.0|
00001CF0: 20 A4 20 32 30 3A 8B 20 41 53 24 28 49 29 B2 41 | . 20:. AS$(I).A|
00001D00: 24 20 A7 20 32 30 38 31 30 00 17 25 46 51 82 3A |$ . 20810..%FQ.:|
00001D10: 89 20 32 30 38 30 30 00 36 25 4A 51 8B 20 41 24 |. 20800.6%JQ. A$|
00001D20: B2 22 2B 22 20 A7 20 52 32 B2 28 52 32 AB 44 46 |."+" . R2.(R2.DF|
00001D30: 29 AF 20 32 35 35 00 55 25 54 51 8B 20 41 24 B2 |). 255.U%TQ. A$.|
00001D40: 22 2D 22 20 A7 20 52 32 B2 28 52 32 AA 44 46 29 |"-" . R2.(R2.DF)|
00001D50: AF 20 32 35 35 00 6C 25 5E 51 8B 20 41 24 B2 22 |. 255.l%^Q. A$."|
00001D60: 5A 22 20 A7 20 53 43 B2 53 43 AA 31 00 83 25 68 |Z" . SC.SC.1..%h|
00001D70: 51 8B 20 41 24 B2 22 58 22 20 A7 20 53 43 B2 53 |Q. A$."X" . SC.S|
00001D80: 43 AB 31 00 95 25 72 51 8B 20 53 43 B3 31 20 A7 |C.1..%rQ. SC.1 .|
00001D90: 20 53 43 B2 31 00 A9 25 7C 51 8B 20 53 43 B1 31 | SC.1..%|Q. SC.1|
00001DA0: 30 20 A7 20 53 43 B2 31 30 00 C1 25 86 51 8B 20 |0 . SC.10..%.Q. |
00001DB0: 41 24 B2 22 4E 22 20 A7 20 4C 54 B2 4C 54 AA 44 |A$."N" . LT.LT.D|
00001DC0: 46 00 D9 25 90 51 8B 20 41 24 B2 22 53 22 20 A7 |F..%.Q. A$."S" .|
00001DD0: 20 4C 54 B2 4C 54 AB 44 46 00 01 26 9A 51 8B 20 | LT.LT.DF..&.Q. |
00001DE0: 4C 54 B3 AB 36 34 20 B0 28 4C 54 B1 31 32 38 20 |LT..64 .(LT.128 |
00001DF0: AF 20 4C 54 B3 31 39 32 29 A7 20 4C 54 B2 AB 36 |. LT.192). LT..6|
00001E00: 34 00 20 26 A4 51 8B 20 4C 54 B1 20 36 34 20 AF |4. &.Q. LT. 64 .|
00001E10: 20 4C 54 B3 31 32 38 20 A7 20 4C 54 B2 20 36 34 | LT.128 . LT. 64|
00001E20: 00 30 26 AE 51 4C 54 B2 4C 54 20 AF 20 32 35 35 |.0&.QLT.LT . 255|
00001E30: 00 46 26 B3 51 8B 20 41 24 B2 22 3F 22 20 A7 20 |.F&.Q. A$."?" . |
00001E40: 8D 32 34 30 30 30 00 64 26 B8 51 8B 20 41 24 B2 |.24000.d&.Q. A$.|
00001E50: 22 4C 22 20 A7 20 41 5A B2 28 41 5A AA 44 46 29 |"L" . AZ.(AZ.DF)|
00001E60: AF 32 35 35 00 82 26 C2 51 8B 20 41 24 B2 22 52 |.255..&.Q. A$."R|
00001E70: 22 20 A7 20 41 5A B2 28 41 5A AB 44 46 29 AF 32 |" . AZ.(AZ.DF).2|
00001E80: 35 35 00 9A 26 CC 51 8B 20 41 24 B2 22 55 22 20 |55..&.Q. A$."U" |
00001E90: A7 20 41 4C B2 41 4C AA 44 46 00 B9 26 D1 51 8B |. AL.AL.DF..&.Q.|
00001EA0: 20 41 24 B2 22 48 22 20 A7 20 9E 20 34 39 33 37 | A$."H" . . 4937|
00001EB0: 39 3A 8D 20 31 35 30 30 30 00 D1 26 D6 51 8B 20 |9:. 15000..&.Q. |
00001EC0: 41 24 B2 22 44 22 20 A7 20 41 4C B2 41 4C AB 44 |A$."D" . AL.AL.D|
00001ED0: 46 00 E7 26 E0 51 8B 20 41 4C B1 20 36 34 20 A7 |F..&.Q. AL. 64 .|
00001EE0: 20 41 4C B2 20 36 34 00 FD 26 E5 51 8B 20 41 24 | AL. 64..&.Q. A$|
00001EF0: B2 22 2A 22 20 A7 20 8D 32 38 30 30 30 00 11 27 |."*" . .28000..'|
00001F00: EA 51 8B 20 41 4C B3 20 30 20 A7 20 41 4C B2 20 |.Q. AL. 0 . AL. |
00001F10: 30 00 25 27 EF 51 8B 20 41 24 B2 22 54 22 20 A7 |0.%'.Q. A$."T" .|
00001F20: 20 41 31 B2 32 00 3F 27 F4 51 8B 20 41 24 B2 22 | A1.2.?'.Q. A$."|
00001F30: 50 22 20 A7 20 41 31 B2 31 3A 43 43 B2 31 36 00 |P" . A1.1:CC.16.|
00001F40: 53 27 F9 51 8B 20 41 24 B2 22 45 22 20 A7 20 45 |S'.Q. A$."E" . E|
00001F50: 4E B2 31 00 67 27 FE 51 8B 20 41 24 B2 22 4F 22 |N.1.g'.Q. A$."O"|
00001F60: 20 A7 20 45 4E B2 30 00 80 27 03 52 53 50 B2 30 | . EN.0..'.RSP.0|
00001F70: 3A 8B 20 53 43 B1 35 20 A7 20 53 50 B2 31 32 37 |:. SC.5 . SP.127|
00001F80: 00 9C 27 08 52 8B 20 41 24 B2 22 31 22 20 A7 20 |..'.R. A$."1" . |
00001F90: 44 46 B2 31 3A 89 20 32 30 38 30 30 00 B9 27 0D |DF.1:. 20800..'.|
00001FA0: 52 8B 20 41 24 B2 22 36 22 20 A7 20 44 46 B2 31 |R. A$."6" . DF.1|
00001FB0: 30 3A 89 20 32 30 38 30 30 00 D6 27 12 52 8B 20 |0:. 20800..'.R. |
00001FC0: 41 24 B2 22 39 22 20 A7 20 44 46 B2 36 34 3A 89 |A$."9" . DF.64:.|
00001FD0: 20 32 30 38 30 30 00 F1 27 1C 52 8B 20 41 24 B2 | 20800..'.R. A$.|
00001FE0: C7 28 31 33 29 20 A7 20 9E 20 34 39 33 37 39 3A |.(13) . . 49379:|
00001FF0: 8E 00 04 28 26 52 8B 20 41 31 B2 31 20 A7 20 32 |...(&R. A1.1 . 2|
00002000: 30 36 30 30 00 1C 28 3A 52 4C 54 B2 4C 30 3A 8B |0600..(:RLT.L0:.|
00002010: 20 53 43 B3 33 20 A7 20 53 43 B2 33 00 36 28 4E | SC.3 . SC.3.6(N|
00002020: 52 8B 20 41 4C B3 35 35 AD 53 43 20 A7 20 41 4C |R. AL.55.SC . AL|
00002030: B2 35 35 AD 53 43 00 42 28 6C 52 89 20 32 30 36 |.55.SC.B(lR. 206|
00002040: 30 30 00 6B 28 F0 55 51 25 B2 4A 3A 52 25 B2 4B |00.k(.UQ%.J:R%.K|
00002050: 3A 8D 20 32 37 32 30 30 3A 97 44 42 AA 33 32 2C |:. 27200:.DB.32,|
00002060: 31 3A 9E 20 34 39 36 30 34 3A 8E 00 A6 28 D8 59 |1:. 49604:...(.Y|
00002070: 43 43 B2 31 36 3A 51 25 B2 33 39 34 3A 52 25 B2 |CC.16:Q%.394:R%.|
00002080: 33 39 35 3A 8D 32 37 32 30 30 3A 97 44 42 AA 31 |395:.27200:.DB.1|
00002090: 38 2C 36 34 3A 97 20 44 42 AA 33 32 2C 31 3A 9E |8,64:. DB.32,1:.|
000020A0: 20 34 39 35 37 36 00 CE 28 E7 59 53 55 B2 C2 28 | 49576..(.YSU..(|
000020B0: 44 42 AA 32 34 29 3A 8B 20 53 55 B3 31 31 30 20 |DB.24):. SU.110 |
000020C0: A7 20 43 43 B2 32 32 3A 89 32 33 30 32 35 00 EC |. CC.22:.23025..|
000020D0: 28 EC 59 8B 20 53 55 B3 31 32 38 20 B0 20 53 55 |(.Y. SU.128 . SU|
000020E0: B1 32 34 30 20 A7 20 43 43 B2 32 37 00 FD 28 F1 |.240 . CC.27..(.|
000020F0: 59 97 20 44 42 AA 31 38 2C 41 4C 3A 8E 00 0D 29 |Y. DB.18,AL:...)|
00002100: C0 5D 58 B2 30 3A 59 B2 30 3A 5A B2 31 00 32 29 |.]X.0:Y.0:Z.1.2)|
00002110: C5 5D 9E 20 34 39 33 37 39 3A 99 22 93 11 22 2C |.]. 49379:."..",|
00002120: 22 50 4C 41 4E 45 54 41 52 49 55 4D 20 44 41 54 |"PLANETARIUM DAT|
00002130: 41 22 00 50 29 CA 5D 4C 53 B2 4C 54 3A 8B 20 4C |A".P).]LS.LT:. L|
00002140: 53 B1 36 34 20 A7 20 4C 53 B2 4C 53 AB 32 35 36 |S.64 . LS.LS.256|
00002150: 00 77 29 D4 5D 99 20 22 11 4C 41 54 49 54 55 44 |.w).]. ".LATITUD|
00002160: 45 22 2C A5 41 28 4C 53 AD 50 35 29 3B 22 20 44 |E",.A(LS.P5);" D|
00002170: 45 47 52 45 45 53 22 00 87 29 D9 5D 99 20 22 44 |EGREES"..).]. "D|
00002180: 41 54 45 22 2C 4D 24 00 AD 29 DE 5D 42 B2 52 30 |ATE",M$..).]B.R0|
00002190: AB 52 32 3A 8B 20 B6 28 42 29 B1 31 32 38 20 A7 |.R2:. .(B).128 .|
000021A0: 20 42 B2 42 AB 32 35 36 AC B4 28 42 29 00 D0 29 | B.B.256..(B)..)|
000021B0: E8 5D 42 B2 28 42 AA 31 32 38 29 AC 50 36 AB 31 |.]B.(B.128).P6.1|
000021C0: 32 3A 8B 20 42 B3 30 20 A7 20 42 B2 42 AA 32 34 |2:. B.0 . B.B.24|
000021D0: 00 EB 29 ED 5D 99 20 22 54 49 4D 45 22 2C A5 41 |..).]. "TIME",.A|
000021E0: 28 42 29 3B 22 48 4F 55 52 53 22 00 25 2A F2 5D |(B);"HOURS".%*.]|
000021F0: 99 22 50 4F 57 45 52 22 2C 53 43 3B 22 20 54 49 |."POWER",SC;" TI|
00002200: 4D 45 53 22 3A 99 22 41 4C 54 49 54 55 44 45 22 |MES":."ALTITUDE"|
00002210: 2C A5 41 28 41 4C AD 50 35 29 3B 22 20 44 45 47 |,.A(AL.P5);" DEG|
00002220: 52 45 45 53 22 00 36 2A F7 5D 43 B2 41 5A AA 37 |REES".6*.]C.AZ.7|
00002230: 20 AF 20 32 35 35 00 6A 2A FC 5D 99 22 41 5A 49 | . 255.j*.]."AZI|
00002240: 4D 55 54 48 22 2C A5 41 28 41 5A AD 50 35 29 3B |MUTH",.A(AZ.P5);|
00002250: 22 20 44 45 47 52 45 45 53 2E 28 22 3B 44 52 24 |" DEGREES.(";DR$|
00002260: 28 43 AD 31 36 29 3B 22 29 22 00 80 2A 01 5E 8B |(C.16);")"..*.^.|
00002270: 20 5A B2 31 20 A7 20 5A B2 31 32 37 AD 31 32 38 | Z.1 . Z.127.128|
00002280: 00 B8 2A 06 5E 44 B2 58 AC 31 32 38 20 AF 20 32 |..*.^D.X.128 . 2|
00002290: 35 35 3A 45 B2 59 AC 31 32 38 20 AF 20 32 35 35 |55:E.Y.128 . 255|
000022A0: 3A 46 B2 5A AC 31 32 38 20 AF 20 32 35 35 3A 97 |:F.Z.128 . 255:.|
000022B0: 20 44 42 AA 33 32 2C 30 00 E2 2A 0B 5E 97 20 44 | DB.32,0..*.^. D|
000022C0: 42 AA 35 34 2C 44 3A 97 20 44 42 AA 35 35 2C 45 |B.54,D:. DB.55,E|
000022D0: 3A 97 20 44 42 AA 35 36 2C 46 3A 9E 20 35 31 30 |:. DB.56,F:. 510|
000022E0: 34 30 00 ED 2A 10 5E 8D 32 35 30 30 30 00 1A 2B |40..*.^.25000..+|
000022F0: 1A 5E 99 22 11 52 49 47 48 54 20 41 53 43 45 4E |.^.".RIGHT ASCEN|
00002300: 53 49 4F 4E 22 2C A5 41 28 52 58 AC 33 AD 33 32 |SION",.A(RX.3.32|
00002310: 29 3B 22 20 48 4F 55 52 53 22 00 46 2B 24 5E 99 |);" HOURS".F+$^.|
00002320: 22 44 45 43 4C 49 4E 41 54 49 4F 4E 22 2C A5 41 |"DECLINATION",.A|
00002330: 28 44 58 AC 34 35 AD 33 32 29 3B 22 20 44 45 47 |(DX.45.32);" DEG|
00002340: 52 45 45 53 11 22 00 7A 2B 2E 5E 49 B2 C2 28 44 |REES.".z+.^I..(D|
00002350: 42 AA 34 37 29 AC 32 35 36 AA C2 28 44 42 AA 34 |B.47).256..(DB.4|
00002360: 36 29 AA 31 3A 8B 20 49 B1 20 30 20 AF 20 49 B3 |6).1:. I. 0 . I.|
00002370: 34 30 32 20 A7 32 34 31 33 30 00 A6 2B 3D 5E 99 |402 .24130..+=^.|
00002380: 20 22 4E 4F 20 4F 42 4A 45 43 54 53 20 43 4C 4F | "NO OBJECTS CLO|
00002390: 53 45 20 54 4F 20 50 4F 53 49 54 49 4F 4E 22 3A |SE TO POSITION":|
000023A0: 89 32 34 32 30 30 00 D2 2B 42 5E 8B 20 49 B1 32 |.24200..+B^. I.2|
000023B0: 39 32 20 AF 20 49 B3 33 39 32 20 A7 20 42 24 B2 |92 . I.392 . B$.|
000023C0: 22 20 22 3A 45 24 B2 4E 33 24 3A 89 20 32 34 31 |" ":E$.N3$:. 241|
000023D0: 38 30 00 03 2C 4C 5E 8B 20 49 B1 33 39 31 A7 20 |80..,L^. I.391. |
000023E0: 42 24 B2 22 20 22 AA 50 4C 24 28 49 AB 33 39 32 |B$." ".PL$(I.392|
000023F0: 29 AA 22 2C 22 3A 45 24 B2 4E 35 24 3A 89 32 34 |).",":E$.N5$:.24|
00002400: 31 38 30 00 31 2C 51 5E 42 24 B2 22 20 22 AA 53 |180.1,Q^B$." ".S|
00002410: 4B 24 28 49 29 AA 22 2C 22 3A 45 24 B2 4E 33 24 |K$(I).",":E$.N3$|
00002420: 3A 8B 20 49 B1 32 38 33 20 A7 20 45 24 B2 4E 32 |:. I.283 . E$.N2|
00002430: 24 00 64 2C 74 5E 99 22 43 4C 4F 53 45 53 54 20 |$.d,t^."CLOSEST |
00002440: 4F 42 4A 45 43 54 20 54 4F 20 50 4F 53 49 54 49 |OBJECT TO POSITI|
00002450: 4F 4E 20 49 53 22 3A 99 20 42 24 3B 22 20 41 20 |ON IS":. B$;" A |
00002460: 22 3B 45 24 00 88 2C 75 5E 8B 28 49 B1 32 38 33 |";E$..,u^.(I.283|
00002470: 20 AF 20 49 B3 32 39 33 29 B0 20 49 B1 33 39 31 | . I.293). I.391|
00002480: 20 A7 20 32 34 31 39 30 00 BC 2C 76 5E 81 20 42 | . 24190..,v^. B|
00002490: B2 31 20 A4 20 37 30 3A 8B 43 53 25 28 42 2C 30 |.1 . 70:.CS%(B,0|
000024A0: 29 B1 49 20 B0 20 43 53 25 28 42 2C 31 29 B3 49 |).I . CS%(B,1).I|
000024B0: 20 A7 20 82 3A 89 20 32 34 31 39 30 00 D7 2C 77 | . .:. 24190..,w|
000024C0: 5E 45 24 B2 4E 31 24 3A 8B 20 49 B1 32 39 30 20 |^E$.N1$:. I.290 |
000024D0: A7 20 45 24 B2 22 22 00 F5 2C 78 5E 99 20 22 20 |. E$.""..,x^. " |
000024E0: 49 4E 20 54 48 45 20 22 3B 45 24 3B 22 20 22 3B |IN THE ";E$;" ";|
000024F0: 43 24 28 42 29 00 18 2D 7E 5E 52 58 B2 C2 28 53 |C$(B)..-~^RX..(S|
00002500: 42 AA 49 AC 32 29 3A 44 58 B2 36 34 AB C2 28 53 |B.I.2):DX.64..(S|
00002510: 42 AA 49 AC 32 AA 31 29 00 43 2D 83 5E 99 22 11 |B.I.2.1).C-.^.".|
00002520: 52 49 47 48 54 20 41 53 43 45 4E 53 49 4F 4E 22 |RIGHT ASCENSION"|
00002530: 2C A5 41 28 52 58 AC 50 36 29 3B 22 20 48 4F 55 |,.A(RX.P6);" HOU|
00002540: 52 53 22 00 6B 2D 85 5E 99 22 44 45 43 4C 49 4E |RS".k-.^."DECLIN|
00002550: 41 54 49 4F 4E 22 2C A5 41 28 44 58 AD 50 35 29 |ATION",.A(DX.P5)|
00002560: 3B 22 20 44 45 47 52 45 45 53 22 00 AC 2D 88 5E |;" DEGREES"..-.^|
00002570: 8B 20 C2 28 35 32 29 B3 31 34 30 20 A7 20 99 2C |. .(52).140 . .,|
00002580: 22 43 4C 45 41 52 49 4E 47 20 4D 45 4D 4F 52 59 |"CLEARING MEMORY|
00002590: 22 3B 3A 41 B2 B8 28 30 29 3A 99 22 14 14 14 14 |";:A..(0):."....|
000025A0: 14 14 14 14 14 14 14 14 14 14 14 22 00 C2 2D BA |..........."..-.|
000025B0: 5E 8B 20 C2 28 31 39 38 29 B2 30 20 A7 32 34 32 |^. .(198).0 .242|
000025C0: 35 30 00 D6 2D EC 5E 97 20 31 39 38 2C 30 3A 41 |50..-.^. 198,0:A|
000025D0: 24 B2 22 22 3A 8E 00 E3 2D A8 61 8F 3A 52 41 2F |$."":...-.a.:RA/|
000025E0: 44 45 43 00 0B 2E B2 61 41 56 B2 41 4C AC 50 34 |DEC....aAV.AL.P4|
000025F0: 3A 5A 56 B2 41 5A AC 50 34 3A 4C 56 B2 4C 54 AC |:ZV.AZ.P4:LV.LT.|
00002600: 50 34 3A 52 56 B2 52 32 AC 50 34 00 3E 2E BC 61 |P4:RV.R2.P4.>..a|
00002610: 44 B2 58 3A 45 B2 59 AC BE 28 41 56 29 AB 5A AC |D.X:E.Y..(AV).Z.|
00002620: BF 28 41 56 29 3A 46 B2 5A AC BE 28 41 56 29 AA |.(AV):F.Z..(AV).|
00002630: 59 AC BF 28 41 56 29 3A 8D 32 36 30 30 30 00 71 |Y..(AV):.26000.q|
00002640: 2E C6 61 45 B2 59 3A 44 B2 58 AC BE 28 5A 56 29 |..aE.Y:D.X..(ZV)|
00002650: AB 5A AC BF 28 5A 56 29 3A 46 B2 5A AC BE 28 5A |.Z..(ZV):F.Z..(Z|
00002660: 56 29 AA 58 AC BF 28 5A 56 29 3A 8D 32 36 30 30 |V).X..(ZV):.2600|
00002670: 30 00 A4 2E D0 61 44 B2 58 3A 46 B2 5A AC BE 28 |0....aD.X:F.Z..(|
00002680: 4C 56 29 AB 59 AC BF 28 4C 56 29 3A 45 B2 59 AC |LV).Y..(LV):E.Y.|
00002690: BE 28 4C 56 29 AA 5A AC BF 28 4C 56 29 3A 8D 32 |.(LV).Z..(LV):.2|
000026A0: 36 30 30 30 00 C2 2E DA 61 8B 20 58 B2 30 20 A7 |6000....a. X.0 .|
000026B0: 20 52 58 B2 50 33 AC B4 28 59 29 3A 89 32 35 30 | RX.P3..(Y):.250|
000026C0: 37 30 00 E0 2E E4 61 52 58 B2 C1 28 59 AD 58 29 |70....aRX..(Y.X)|
000026D0: 3A 8B 20 58 B3 30 20 A7 20 52 58 B2 52 58 AA FF |:. X.0 . RX.RX..|
000026E0: 00 15 2F EE 61 52 58 B2 52 58 AD 50 34 AB 52 32 |../.aRX.RX.P4.R2|
000026F0: 20 AF 20 32 35 35 3A 8B 20 58 B2 30 20 AF 20 59 | . 255:. X.0 . Y|
00002700: B2 30 20 A7 20 44 58 B2 28 B4 28 5A 29 AB 31 29 |.0 . DX.(.(Z).1)|
00002710: AC 36 34 3A 8E 00 31 2F F8 61 44 58 B2 C1 28 5A |.64:..1/.aDX..(Z|
00002720: AD BA 28 58 AC 58 AA 59 AC 59 29 29 AD 50 34 3A |..(X.X.Y.Y)).P4:|
00002730: 8E 00 43 2F 90 65 58 B2 44 3A 59 B2 45 3A 5A B2 |..C/.eX.D:Y.E:Z.|
00002740: 46 3A 8E 00 73 2F 78 69 97 20 44 42 AA 31 32 2C |F:..s/xi. DB.12,|
00002750: 4C 54 3A 97 20 44 42 AA 31 35 2C 41 5A 3A 97 20 |LT:. DB.15,AZ:. |
00002760: 44 42 AA 31 38 2C 41 4C 3A 97 20 44 42 AA 32 31 |DB.18,AL:. DB.21|
00002770: 2C 52 32 00 91 2F DC 69 97 20 44 42 AA 32 38 2C |,R2../.i. DB.28,|
00002780: 53 43 AC 35 3A 97 20 44 42 AA 33 31 2C 53 43 AC |SC.5:. DB.31,SC.|
00002790: 34 00 B1 2F 40 6A 97 20 44 42 AA 34 2C 51 25 AF |4../@j. DB.4,Q%.|
000027A0: 32 35 35 3A 97 20 44 42 AA 35 2C 51 25 AD 32 35 |255:. DB.5,Q%.25|
000027B0: 36 00 D5 2F A4 6A 97 20 44 42 AA 35 32 2C 52 25 |6../.j. DB.52,R%|
000027C0: AF 32 35 35 3A 97 20 44 42 AA 35 33 2C 52 25 AD |.255:. DB.53,R%.|
000027D0: 32 35 36 3A 8E 00 E1 2F 60 6D 9E 20 34 39 31 35 |256:.../`m. 4915|
000027E0: 32 00 01 30 C4 6D 58 B2 C2 28 56 42 AA 31 34 29 |2..0.mX..(VB.14)|
000027F0: AA 32 AC 28 C2 28 56 42 AA 31 36 29 AF 31 32 38 |.2.(.(VB.16).128|
00002800: 29 00 10 30 28 6E 59 B2 C2 28 56 42 AA 31 35 29 |)..0(nY..(VB.15)|
00002810: 00 34 30 B8 6F 44 B2 28 58 AB 31 37 33 29 AD 53 |.40.oD.(X.173).S|
00002820: 43 AD 38 30 3A 45 B2 28 59 AB 31 34 31 29 AD 53 |C.80:E.(Y.141).S|
00002830: 43 AD 36 34 00 52 30 BD 6F 46 B2 58 30 AC 58 30 |C.64.R0.oF.X0.X0|
00002840: AA 59 30 AC 59 30 3A 8B 20 46 B1 31 20 A7 20 46 |.Y0.Y0:. F.1 . F|
00002850: B2 31 00 6F 30 C2 6F 5A B2 BA 28 31 AB 46 29 3A |.1.o0.oZ..(1.F):|
00002860: 58 B2 44 3A 59 B2 45 3A 89 20 32 34 30 30 35 00 |X.D:Y.E:. 24005.|
00002870: 00 00 20 49 2F 4F 20 53 54 41 54 55 53 22 2C 41 |.. I/O STATUS",A|
00002880: 3B 42 24 3B 43 3B 44 00 03 10 FC 03 8B 20 53 53 |;B$;C;D...... SS|
00002890: B2 30 20 AF 20 41 B2 30 20 A7 20 8E 00 1A 10 01 |.0 . A.0 . .....|
000028A0: 04 99 22 46 37 20 43 4F 4E 54 2E 2C 46 31 20 45 |.."F7 CONT.,F1 E|
000028B0: 4E 44 22 00 32 10 06 04 A1 20 41 24 3A 8B 20 41 |ND".2.... A$:. A|
000028C0: 24 B2 22 22 20 A7 20 31 30 33 30 00 43 10 10 04 |$."" . 1030.C...|
000028D0: 8B 20 41 24 B2 22 88 22 20 A7 20 8E 00 61 10 1A |. A$."." . ..a..|
000028E0: 04 8B 20 41 24 B2 22 85 22 20 A7 20 A0 61 10 1A |.. A$."." . .a..|
000028F0: 04 8B 20 41 24 B2 22 85 22 20 A7 20 A0 |.. A$."." . . |
.. .... QQ.0 . . "THE HEAVENS",8.[...SB.
32768:DB.50684:VB.53248:JD.2415021:SE.23
.4415...180...(.. MN$(11),DM%(11),SK$(30
0),C$(70),CS%(70,1),DR$(15),AS$(20)...2.
PB.SB.392.2:G%.360:P2.2..:P8...180:P3...
2:P4...128:P5.32.45:P6.3.32...<.M$."JANU
ARY 1,1984".?.... I.0 . 9:. KM(I),YR(I)
,IC(I),AN(I),EC(I),PE(I),PD(I),PL$(I):..
].R.PE(10).PE(0):AN(10).AN(0).~.6.. I.0
. 11:. MN$(I),DM%(I):....@.. I.0 . 15:.
DR$(I):....... 2,8,2,"O:.STAR TWO,S,R"..
.... I.0 . 300:.2,SK$(I):. ST.0 . ......
2:.3,8,3,"O:.STAR GROUPS,S,R".3.... I.1
. 70:.3,C$(I),CS%(I,0),CS%(I,1):. ST.0
. ..Y.B. 3:N1$."CONSTELLATION":N2$."STAR
CLUSTER":N3$."STAR":N4$."OBJECT"......
.A(X).(.B(X)..(60.(.(X)..B(X))).100)..(X
).K.... .B(X)..(.(X)):N5$."PLANET":...X.
. 198,0:. 198,1:. A$:. 49362:. "."...B..
I.1 . 20:. AS$(I):.:AS$(0).G(13).5...L0
.B(DB.33):.12080:A1.1.I...SC.3:AZ.0:LT.0
:R2.R0:AL.0:EN.0:DF.10:SP.0:CC.16......"
....SELECT STAR PLOTTING FUNCTION".S....
,".1.PLANETARIUM":.,".2.SELECT LATITUDE"
:.,".3.STAR FINDER"......,".4.SELECT NEW
DATE":.,".5.REVIEW INSTRUCTIONS".2.$..,
".6.END PROGRAM":.,".7.STAR INDEX".T.)..
B(51).140 . .,".CLEARING MEMORY";:A..(0
):."..............."...... B(198).0 . 10
70...8.. A$:A.F(A$).132:. A.1 . 1070...B
.. A . 20010,13000,15000,17000,12000,115
0,16000...L..1000...~.."....".....M$."JA
NUARY":D.1:Y%.1984:DM%(1).28.@.... "DATE
:MONTH,DAY,YEAR";M$,D,Y%.R...A..(YR(3).(
Y%.1900)).JD:B.0:. Y%.1900 . A.A.1......
Y%.1801 . A.A.1...... 0.Y%..(Y%.4).4 .
DM%(1).29:A.A.1.Q.D.. I.0 . 11:. MN$(I).
M$ . 1300...X.B.B.DM%(I):.:. ".NOT CORRE
CT MONTH":. 1160.6.... D.0 . .(D).DM%(I)
. . ".NOT CORRECT DAY":. 1160.X.... Y%.
2099 . Y%.1701 . . ".DATE MAY NOT BE PER
FECTLY ACCURATE"...#.M$.M$.D(.(D)).",".D
(Y%):.".CALENDAR DATE",M$.F.(.A.A.B.D:."
.JULIAN DAY",A...P.. ".CALCULATING ORBIT
S OF PLANETS...":B...500.4.4.D.A.PD(0):C
..(D):N.C.27.21222:P.C.27.55455:S.C.27.3
2166.D.>.E.N.P:F.S.P:E.(.(E).E)..(D):F.(
F..(F))..(D)...H.AN(0).E.G%.AN(10):PE(0)
.F.G%.PE(10)...R.. PE(0).0 . PE(0).PE(0)
.G%.J.\.. AN(0).0 . AN(0).AN(0).G%...F..
PE(0).G% . PE(0).PE(0).G%...P.. AN(0).G
% . AN(0).AN(0).G%.+.`.. I.0 . 9:D.A.PD(
I):. PL$(I).Y.T.. .(D).YR(I) . D.D..B(D.
YR(I)).YR(I)..(D).~.Y.. D.0 . .(D).YR(I)
.2 . D.D.YR(I)...~.C.D.YR(I)....(1.EC(I)
.2):E.C.2.....F.(E.EC(I)..(E)).2:N.C.F.R
.... .(N).B . 2520.....S.2.N.(1.EC(I)..(
E)):E.E.S:. 2450...X.P.KM(I).(1.EC(I)..(
E)).4...S.PE(I).AN(I):. S.0 . S.S.G%.A..
.C.E.S.P8.Y...X.P..(C):S.IC(I).P8.K...Y.
P..(C)..(S).}...Z.P..(C)..(S)...... X.0
. F.E:. 2590.....F.A(Y.X):. X.0 . F.F...
B.... F.0 . F.F.P2...(.E..(X.2.Y.2):. E.
0 . V..(Z).P3.P3:. 2615...2.V.A(Z.E)...7
.F.F.AN(I).P8.!.<.. F.P2 . F.F.P2.D...X(
I).E..(F):Z(I).Z:Y(I).E..(F).]."..:."...
...........";...B.. "COMPUTING VISUAL PO
SITIONS OF PLANETS.."...L.." RIGHT AS
CENSION"," DECLINATION".I.... I.1 .
9.W.&.. I.3 . ....0.X(I).X(I).X(3):Y(I).
Y(I).Y(3):......X(3)..X(3):Y(3)..Y(3).#.
H.. I.0 . 9.?.R.Y.Y(I)..(SE).Z(I)..(SE).
[.\.Z.Z(I)..(SE).Y(I)..(SE).~.P.. X(I).0
. A(I)..(Y).P3:. 3460...Z.A.A(Y.X(I)):.
X(I).0 . A.A........ A.0 . A.A.P2.....E
..(X(I).2.Y.2):. E.0 . V..(Z).P3.P3:. 35
00.....V.A(Z.E).....A%.A.P4.....V%.(64.V
.P4) . 255.0.... PB.2.I,A%:. PB.1.2.I,V%
.M.E.B..A(A.15.P8):V..A(V.P8).G.J..,B,,V
:. I.0 . A0%.A%.Z.O.. I.3 . A3%.A%...T..
:. ".PRESS A KEY TO CONTINUE"...Y.Y%.A3%
.A0%:Q%.209:R%..(Y%).X.... R%.90 . R%.16
5 . 3575...... (R%.90 . R%.165). Y%.0 .
Q%.210.$.... (R%.90 . R%.165). Y%.0 . Q%
.211.J.... (R%.30 . R%.205). Y%.0 . Q%.2
12.P.... (R%.30 . R%.205). Y%.0 . Q%.213
..... DB.68,Q%...... B(198).0 . 3585. .
... A$:..Q.H.. .3845,27.55455,5.5,93,.07
,120,2445364,MOON...I.. 57.9,87.9693,7.0
,47.9,.206,76.82,2444289,MERCURY.@.J.. 1
08.1,224.7008,3.4,76.3,.007,130.94,24443
23,VENUS.P.K.. 149.5,365.2564,0,0,.017,1
02.3,2444242,SUN...L.. 227.8,686.9796,1.
8,49.2,.093,335.24,2443951,MARS...M.. 77
8,4332.5882,1.3,100,.048,13.76,2442637,J
UPITER...N.. 1427,10759.2364,2.5,113.3,.
056,92.3,2442056,SATURN.P.O.. 2869,30688
.3904,.8,73.8,.047,169.97,2439361,URANUS
...P.. 4497,60181.1132,1.8,131.3,.009,44
.33,2468191,NEPTUNE...Q.. 5900,90470,17.
2,109.9,.25,226.34,2447849,PLUTO...... J
ANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,
MAY,31,JUNE,30.F.... JULY,31,AUGUST,31,S
EPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEM
BER,31...... NORTH,NNW,NORTH-WEST,WNW,WE
ST,WSW,SOUTH-WEST,SSW,SOUTH...... SSE,SO
UTH-EAST,ESE,EAST,ENE,NORTH-EAST,NNE....
.. +,-,Z,X,N,S,"?",L,R,U,H,D,*,T,P,E,O,1
,6,9......"..","LATITUDE"......".PLEASE
TELL ME WHERE YOU LIVE".X....".TYPE YOUR
LATITUDE IN DEGREES,"," IF YOU KNOW IT"
.~...." OR ELSE ONE OF THE FOLLOWING:"..
../.,".TROPICS:",0:.,".U.S.A.:",40:.,".C
ANADA:",50.Z../.,".ARCTIC:",70:.,".AUSTR
ALIA:";.40...&/. ".LATITUDE";L0:L0.L0.P5
. 255:. DB.33,L0.:.0/R0..B(PB.6).192 .
255:R2.R0:AL.18:A1.2:LT.L0.Y.5/LS.LT:. L
S.127 . LS.LS.256._.:/..{.H2. "....","ST
AR FINDER:"...J2.,".TYPE NAME OF STAR,PL
ANET,",," OR CONSTELLATION".Q.M2.,".HIT
RETURN TO CANCEL"...R2B$."":.".",:. B$:.
B$."" . ..1.W2. I.0 . 9:. B$.PL$(I) . N
$.N5$:I.I.392:K.I:. 19000:. 13500.U.X2.:
. I.1 . 70:. C$(I).B$ . 13200....3.:. I.
1 . 283:. SK$(I).B$ . N$.N3$:K.I:. 19000
:. 13500.L..3.:. I.284. 292:. SK$(I).B$
. N$.N2$:K.I:. 19000:. 13500...,3.:. ".T
HAT IS NOT IN MY FILES:TRY AGAIN?":. 130
10./..3N$.N1$:D$.N3$:. B$.C$(67) . N$.""
:D$.N4$.A..3K.CS%(I,1):I.CS%(I,0):. 1900
0:. I.290 . 13500....3. ".INCLUDES THE F
OLLOWING BRIGHT ";D$;"S.":X.0.J..3. L.I
. K:. .X);SK$(L);:. X.20 . X.0:.:.:. 135
00.W..3X.20:.:.....4.,".F1 = TELESCOPE":
.,"F3 = PLANETARIUM":.,"F7 = RETURN".+.F
4. B(198).0 . 13510.Q.P4. A$:. A$."." .
A1.1:LT.0:. 20010.B.Z4. A$."." . ..X..4.
A$.."." . 13510....4. 12080:. .(64.DC.L
S).64 . 13580.K..4. ".";B$;" MAY NOT BE
VISIBLE FROM HERE."....4. "PRESS F7 TO T
RY ANOTHER STAR."....4. B(198).0 . 13565
....5. A$:. A$."." . ..J..5R2..RA . 255:
AZ..DC . 255:AL.18:. 20010.V..5. 19580.K
.>5. X(2).0 . 20010....5LV.L0.P4:RV.RA.P
4:DV.DC.P4.A..5. DV.0 . LV.0 . .(DV).P3
. .(LV).P3 . SV.0:. 13740.W..5SV..1..(LV
)..(DV)....5. .(SV).1 . SV.P3..(SV):SW.S
V.P4:. 13760. ..5SW.A(SV..(.SV.SV.1)).P4
.T..5R2..RA.SW . 255:. X(0).0 . R2.R2.12
8.2.SW . 255.H.J5. 19580:. 20010.|..:. 5
1232:. 198,0....:. B(198).0 . 15010....:
. A$:.....>. 49434:.".":..K.HB. "....","
STAR INDEX".. MB.,".F1=CONSTELLATIONS":.
,".F3=STARS":.,".F5=PLANETS":.,".F7=QUIT
.".& RB. 198,0:. 198,1.@ |B. A$:. A$."."
. 17100.U .B. A$."." . 17200.F .B. A$."
." . ..| .B. A$.."." . 17010.. .B. I.0 .
9:.,PL$(I):.:. 17300.I LBK.0:. I.1 . 70
. 2:. C$(I);.20);C$(I.1).. .BK.K.1:. K.
20 . . 17300:K.0:."."..!.B. C$(I)."" . 1
7300..!.B. A$.".". .."!.B.:. 17300.Q!0CK
.0:. I.1 . 300 . 2:. SK$(I);.20);SK$(I.1
).U!DCK.K.1:. K.20 . . 17300:K.0:."."..!
IC. SK$(I)."" . 17300..!KC. A$.".". ...!
NC...!.C. 198,0:. 198,1:. A$:...!8J. "..
..";N$;" FOUND",B$:J.I.1..".JRA.B(SB.2.I
):.".RIGHT ASCENSION",.A(RA.P6);" HOURS"
.V".JDC.B(SB.2.I.1):.".DECLINATION",.A((
64.DC).P5);" DEGREES.".V".JR2..RA . 255:
AZ..DC . 255:..."|LQ%.J:R%.J.1:. 27000:.
DB.15,0:. DB.18,64:. 49576..".L. I.0 .
2:X(I).B(DB.25.I):. X(I).127 . X(I).X(I)
.256..#.L.:. X(1).0 . Z..(X(0)):. 19630.
+#.LZ.A(X(0).X(1)):. X(1).0 . Z.Z...R#.L
AL.X(2).128:. AL.1 . AL.P3:. 19640.K#.LA
L.A(AL..(.AL.AL.1))..#.LAZ..Z.P4 . 255:A
L.AL.P4:. AL.18 . AL.18..#BL...#*N.*** P
LANETARIUM ***.E#XP.: NOTHING..#.P. VB.2
1,0:. 27000:. A1.2 . . 23000..$"Q. 49967
,CC:. 49548:. DB.32,EN.2$'Q. EN.1 . R%.2
84:. 27200:. 49568.L$*Q. VB.23,SP:. VB.2
9,SP..$,Q.DB.42,80:. DB.43,123:Q%.283:R%
.291:. 27200:. 51456..$0Q.DB.42,88:Q%.29
1:R%.292:.27200:. 51456:. 50590.J$6Q. A.
2 . .22000..$@Q. B(198).0 . 20800..%EQ.
A$:. I.0 . 20:. AS$(I).A$ . 20810..%FQ.:
. 20800.6%JQ. A$."+" . R2.(R2.DF). 255.U
%TQ. A$."-" . R2.(R2.DF). 255.L%^Q. A$."
Z" . SC.SC.1..%HQ. A$."X" . SC.SC.1..%RQ
. SC.1 . SC.1..%|Q. SC.10 . SC.10.A%.Q.
A$."N" . LT.LT.DF.Y%.Q. A$."S" . LT.LT.D
F..&.Q. LT..64 .(LT.128 . LT.192). LT..6
4. &.Q. LT. 64 . LT.128 . LT. 64.0&.QLT.
LT . 255.F&.Q. A$."?" . .24000.D&.Q. A$.
"L" . AZ.(AZ.DF).255..&BQ. A$."R" . AZ.(
AZ.DF).255..&LQ. A$."U" . AL.AL.DF..&QQ.
A$."H" . . 49379:. 15000.Q&VQ. A$."D" .
AL.AL.DF..&.Q. AL. 64 . AL. 64..&.Q. A$
."*" . .28000..'.Q. AL. 0 . AL. 0.%'.Q.
A$."T" . A1.2.?'.Q. A$."P" . A1.1:CC.16.
S'.Q. A$."E" . EN.1.G'.Q. A$."O" . EN.0.
.'.RSP.0:. SC.5 . SP.127..'.R. A$."1" .
DF.1:. 20800..'.R. A$."6" . DF.10:. 2080
0.V'.R. A$."9" . DF.64:. 20800..'.R. A$.
G(13) . . 49379:...(&R. A1.1 . 20600..(:
RLT.L0:. SC.3 . SC.3.6(NR. AL.55.SC . AL
.55.SC.B(LR. 20600.K(.UQ%.J:R%.K:. 27200
:.DB.32,1:. 49604:...(XYCC.16:Q%.394:R%.
395:.27200:.DB.18,64:. DB.32,1:. 49576.N
(.YSU.B(DB.24):. SU.110 . CC.22:.23025..
(.Y. SU.128 . SU.240 . CC.27..(.Y. DB.18
,AL:...).]X.0:Y.0:Z.1.2)E]. 49379:."..",
"PLANETARIUM DATA".P)J]LS.LT:. LS.64 . L
S.LS.256.W)T]. ".LATITUDE",.A(LS.P5);" D
EGREES"..)Y]. "DATE",M$..).]B.R0.R2:. .(
B).128 . B.B.256..(B).P).]B.(B.128).P6.1
2:. B.0 . B.B.24..).]. "TIME",.A(B);"HOU
RS".%*.]."POWER",SC;" TIMES":."ALTITUDE"
,.A(AL.P5);" DEGREES".6*.]C.AZ.7 . 255.J
*.]."AZIMUTH",.A(AZ.P5);" DEGREES.(";DR$
(C.16);")"..*.^. Z.1 . Z.127.128..*.^D.X
.128 . 255:E.Y.128 . 255:F.Z.128 . 255:.
DB.32,0..*.^. DB.54,D:. DB.55,E:. DB.56
,F:. 51040..*.^.25000..+.^.".RIGHT ASCEN
SION",.A(RX.3.32);" HOURS".F+$^."DECLINA
TION",.A(DX.45.32);" DEGREES.".Z+.^I.B(D
B.47).256.B(DB.46).1:. I. 0 . I.402 .241
30..+=^. "NO OBJECTS CLOSE TO POSITION":
.24200.R+B^. I.292 . I.392 . B$." ":E$.N
3$:. 24180..,L^. I.391. B$." ".PL$(I.392
).",":E$.N5$:.24180.1,Q^B$." ".SK$(I).",
":E$.N3$:. I.283 . E$.N2$.D,T^."CLOSEST
OBJECT TO POSITION IS":. B$;" A ";E$..,U
^.(I.283 . I.293). I.391 . 24190..,V^. B
.1 . 70:.CS%(B,0).I . CS%(B,1).I . .:. 2
4190.W,W^E$.N1$:. I.290 . E$.""..,X^. "
IN THE ";E$;" ";C$(B)..-~^RX.B(SB.I.2):D
X.64.B(SB.I.2.1).C-.^.".RIGHT ASCENSION"
,.A(RX.P6);" HOURS".K-.^."DECLINATION",.
A(DX.P5);" DEGREES"..-.^. B(52).140 . .,
"CLEARING MEMORY";:A..(0):."............
...".B-.^. B(198).0 .24250.V-.^. 198,0:A
$."":...-.A.:RA/DEC....AAV.AL.P4:ZV.AZ.P
4:LV.LT.P4:RV.R2.P4.>..AD.X:E.Y..(AV).Z.
.(AV):F.Z..(AV).Y..(AV):.26000.Q.FAE.Y:D
.X..(ZV).Z..(ZV):F.Z..(ZV).X..(ZV):.2600
0...PAD.X:F.Z..(LV).Y..(LV):E.Y..(LV).Z.
.(LV):.26000.B.ZA. X.0 . RX.P3..(Y):.250
70....ARX.A(Y.X):. X.0 . RX.RX..../.ARX.
RX.P4.R2 . 255:. X.0 . Y.0 . DX.(.(Z).1)
.64:..1/.ADX.A(Z..(X.X.Y.Y)).P4:..C/.EX.
D:Y.E:Z.F:..S/XI. DB.12,LT:. DB.15,AZ:.
DB.18,AL:. DB.21,R2../.I. DB.28,SC.5:. D
B.31,SC.4../@J. DB.4,Q%.255:. DB.5,Q%.25
6.U/.J. DB.52,R%.255:. DB.53,R%.256:.../
`M. 49152..0DMX.B(VB.14).2.(B(VB.16).128
)..0(NY.B(VB.15).40.OD.(X.173).SC.80:E.(
Y.141).SC.64.R0.OF.X0.X0.Y0.Y0:. F.1 . F
.1.O0BOZ..(1.F):X.D:Y.E:. 24005... I/O S
TATUS",A;B$;C;D...... SS.0 . A.0 . .....
.."F7 CONT.,F1 END".2.... A$:. A$."" . 1
030.C.... A$."." . ..A.... A$."." . A..
.. A$."." .
> CLICK IMAGE PREVIEW FOR FULL MODAL