PRINT KOMETEN
FILE INFORMATION
FILENAME(S): PRINT KOMETEN
FILE TYPE(S): PRG
FILE SIZE: 8K
FIRST SEEN: 2025-11-30 21:10:03
APPEARS ON: 1 disk(s)
FILE HASH
3f804a250d35a9275129668b31370f9962177e0804d515a19a1222723a0999a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK0005 | PRINT KOMETEN | PRG | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 3A 20 99 20 22 93 22 00 2F 08 |....d.: . "."./.|
00000010: 78 00 85 20 22 47 45 45 46 20 4A 41 41 52 20 28 |x.. "GEEF JAAR (|
00000020: 30 3D 53 54 4F 50 29 3A 20 22 3B 4A 41 41 52 00 |0=STOP): ";JAAR.|
00000030: 40 08 8C 00 8B 20 4A 41 41 52 B2 30 20 A7 20 80 |@.... JAAR.0 . .|
00000040: 00 61 08 A0 00 85 20 22 47 45 45 46 20 4D 41 41 |.a.... "GEEF MAA|
00000050: 4E 44 20 28 31 2D 31 32 29 3A 20 20 22 3B 4D 4E |ND (1-12): ";MN|
00000060: 44 00 82 08 B4 00 85 20 22 47 45 45 46 20 44 41 |D...... "GEEF DA|
00000070: 47 3A 20 20 20 20 20 20 20 20 20 20 20 22 3B 44 |G: ";D|
00000080: 41 47 00 9C 08 B5 00 85 20 22 55 49 54 50 52 49 |AG...... "UITPRI|
00000090: 4E 54 45 4E 20 20 20 22 3B 50 52 24 00 B2 08 B6 |NTEN ";PR$....|
000000A0: 00 8B 20 50 52 24 B3 B1 22 4A 41 22 20 A7 20 32 |.. PR$.."JA" . 2|
000000B0: 30 30 00 BC 08 B7 00 9F 20 31 2C 34 00 C4 08 B8 |00...... 1,4....|
000000C0: 00 9D 20 31 00 CD 08 C8 00 41 32 B2 30 00 D9 08 |.. 1.....A2.0...|
000000D0: DC 00 41 31 B2 41 31 AA 31 00 EA 08 F0 00 8B 20 |..A1.A1.1...... |
000000E0: 41 31 B1 31 20 A7 20 32 38 30 00 F4 08 04 01 8D |A1.1 . 280......|
000000F0: 20 35 34 30 00 FE 08 18 01 99 20 22 93 22 00 08 | 540...... "."..|
00000100: 09 2C 01 55 55 52 B2 30 00 20 09 40 01 8D 20 32 |.,.UUR.0. .@.. 2|
00000110: 34 34 30 3A 20 8F 20 42 45 50 41 41 4C 20 4A 44 |440: . BEPAAL JD|
00000120: 00 39 09 54 01 8D 20 32 36 34 30 3A 20 8F 20 42 |.9.T.. 2640: . B|
00000130: 45 50 41 41 4C 20 44 41 47 00 47 09 68 01 4E B2 |EPAAL DAG.G.h.N.|
00000140: 31 3A 8F 20 5A 4F 4E 00 52 09 7C 01 8D 20 33 31 |1:. ZON.R.|.. 31|
00000150: 32 30 00 69 09 90 01 58 58 B2 58 3A 20 8F 20 42 |20.i...XX.X: . B|
00000160: 45 57 41 41 52 20 5A 4F 4E 00 72 09 A4 01 59 59 |EWAAR ZON.r...YY|
00000170: B2 59 00 7B 09 B8 01 5A 5A B2 5A 00 95 09 CC 01 |.Y.{...ZZ.Z.....|
00000180: 8D 20 35 34 38 30 3A 20 8F 20 41 4C 46 41 2C 20 |. 5480: . ALFA, |
00000190: 44 45 4C 54 41 00 AD 09 E0 01 8D 20 36 38 36 30 |DELTA...... 6860|
000001A0: 3A 20 8F 20 50 4C 41 54 47 52 4F 4E 44 00 C4 09 |: . PLATGROND...|
000001B0: F4 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |... A$:. A$."" .|
000001C0: 20 35 30 30 00 DA 09 FE 01 8B 20 50 52 24 B3 B1 | 500...... PR$..|
000001D0: 22 4A 41 22 20 A7 20 35 32 30 00 E2 09 00 02 A0 |"JA" . 520......|
000001E0: 20 31 00 E8 09 08 02 8A 00 EE 09 1C 02 8F 00 03 | 1..............|
000001F0: 0A 30 02 8F 20 49 4E 49 54 49 41 4C 49 53 41 54 |.0.. INITIALISAT|
00000200: 49 45 53 00 18 0A 44 02 8F 20 2D 2D 2D 2D 2D 2D |IES...D.. ------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 00 2E 0A 58 02 45 50 53 |--------...X.EPS|
00000220: B2 30 2E 34 30 39 30 39 32 38 30 32 32 37 00 4C |.0.40909280227.L|
00000230: 0A 6C 02 83 20 22 4A 41 4E 22 2C 22 46 45 42 22 |.l.. "JAN","FEB"|
00000240: 2C 22 4D 52 54 22 2C 22 41 50 52 22 00 6A 0A 80 |,"MRT","APR".j..|
00000250: 02 83 20 22 4D 45 49 22 2C 22 4A 55 4E 22 2C 22 |.. "MEI","JUN","|
00000260: 4A 55 4C 22 2C 22 41 55 47 22 00 88 0A 94 02 83 |JUL","AUG"......|
00000270: 20 22 53 45 50 22 2C 22 4F 4B 54 22 2C 22 4E 4F | "SEP","OKT","NO|
00000280: 56 22 2C 22 44 45 43 22 00 95 0A A8 02 86 20 4D |V","DEC"...... M|
00000290: 24 28 31 32 29 00 A4 0A BC 02 81 20 4E B2 31 20 |$(12)...... N.1 |
000002A0: A4 20 31 32 00 B4 0A D0 02 3A 20 20 20 87 20 4D |. 12.....: . M|
000002B0: 24 28 4E 29 00 BC 0A E4 02 82 20 4E 00 DD 0A F8 |$(N)...... N....|
000002C0: 02 83 20 22 5A 4F 4E 22 2C 22 48 41 4C 4C 45 59 |.. "ZON","HALLEY|
000002D0: 22 2C 22 4D 45 52 43 55 52 49 55 53 22 00 FC 0A |","MERCURIUS"...|
000002E0: 0C 03 83 20 22 56 45 4E 55 53 22 2C 22 4D 41 52 |... "VENUS","MAR|
000002F0: 53 22 2C 22 4A 55 50 49 54 45 52 22 00 0D 0B 20 |S","JUPITER"... |
00000300: 03 83 20 22 53 41 54 55 52 4E 55 53 22 00 19 0B |.. "SATURNUS"...|
00000310: 34 03 86 20 46 24 28 37 29 00 27 0B 48 03 81 20 |4.. F$(7).'.H.. |
00000320: 4E B2 31 20 A4 20 37 00 37 0B 5C 03 3A 20 20 20 |N.1 . 7.7.\.: |
00000330: 87 20 46 24 28 4E 29 00 3F 0B 70 03 82 20 4E 00 |. F$(N).?.p.. N.|
00000340: 52 0B 84 03 8F 20 47 45 47 45 56 45 4E 53 20 5A |R.... GEGEVENS Z|
00000350: 4F 4E 00 65 0B 98 03 8F 20 2D 2D 2D 2D 2D 2D 2D |ON.e.... -------|
00000360: 2D 2D 2D 2D 2D 00 80 0B AC 03 8F 20 28 41 2C 45 |-----...... (A,E|
00000370: 58 2C 4E 2C 54 30 2C 49 4E 2C 50 45 2C 4F 4D 29 |X,N,T0,IN,PE,OM)|
00000380: 00 9D 0B C0 03 83 20 31 2E 30 30 30 30 30 30 32 |...... 1.0000002|
00000390: 33 2C 30 2E 30 31 36 37 31 34 39 34 32 00 BA 0B |3,0.016714942...|
000003A0: D4 03 83 20 30 2E 30 31 37 32 30 31 39 37 30 2C |... 0.017201970,|
000003B0: 2D 34 36 2E 36 32 34 32 39 32 00 D8 0B E8 03 83 |-46.624292......|
000003C0: 20 30 2E 30 30 30 30 33 31 36 32 35 2C 31 2E 38 | 0.000031625,1.8|
000003D0: 38 34 39 32 32 32 30 32 00 EA 0B FC 03 83 20 33 |84922202...... 3|
000003E0: 2E 30 35 32 35 33 37 38 33 32 00 0C 0C 10 04 8F |.052537832......|
000003F0: 20 45 46 45 4D 45 52 49 44 45 20 48 41 4C 4C 45 | EFEMERIDE HALLE|
00000400: 59 20 28 4C 41 4E 44 47 52 41 46 29 00 2E 0C 24 |Y (LANDGRAF)...$|
00000410: 04 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4A |--------------.J|
00000430: 0C 38 04 83 20 31 37 2E 39 34 32 38 30 38 37 2C |.8.. 17.9428087,|
00000440: 30 2E 39 36 37 32 37 39 31 30 00 5D 0C 4C 04 83 |0.96727910.].L..|
00000450: 20 30 2E 30 30 30 32 32 36 33 33 31 38 00 78 0C | 0.0002263318.x.|
00000460: 60 04 83 20 2D 39 2E 34 39 32 33 38 2C 32 2E 38 |`.. -9.49238,2.8|
00000470: 33 31 36 35 33 32 36 33 00 96 0C 74 04 83 20 31 |31653263...t.. 1|
00000480: 2E 39 35 32 34 33 37 32 38 37 2C 31 2E 30 32 37 |.952437287,1.027|
00000490: 33 30 34 32 33 34 00 B0 0C 88 04 8F 20 45 46 45 |304234...... EFE|
000004A0: 4D 45 52 49 44 45 20 4D 45 52 43 55 52 49 55 53 |MERIDE MERCURIUS|
000004B0: 00 CA 0C 9C 04 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |...... ---------|
000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E6 0C B0 04 83 |----------......|
000004D0: 20 30 2E 33 38 37 30 39 38 36 2C 30 2E 32 30 35 | 0.3870986,0.205|
000004E0: 36 33 31 38 31 31 00 F8 0C C4 04 83 20 30 2E 30 |631811...... 0.0|
000004F0: 37 31 34 32 34 37 31 30 00 12 0D D8 04 83 20 37 |71424710...... 7|
00000500: 2E 35 33 34 33 36 2C 30 2E 31 32 32 32 36 39 38 |.53436,0.1222698|
00000510: 39 30 00 30 0D EC 04 83 20 30 2E 35 30 37 36 32 |90.0.... 0.50762|
00000520: 34 32 37 33 2C 30 2E 38 34 33 38 34 34 36 34 32 |4273,0.843844642|
00000530: 00 46 0D 00 05 8F 20 45 46 45 4D 45 52 49 44 45 |.F.... EFEMERIDE|
00000540: 20 56 45 4E 55 53 00 5C 0D 14 05 8F 20 2D 2D 2D | VENUS.\.... ---|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 78 0D 28 |------------.x.(|
00000560: 05 83 20 30 2E 37 32 33 33 33 31 36 2C 30 2E 30 |.. 0.7233316,0.0|
00000570: 30 36 37 37 39 36 33 37 00 8A 0D 3C 05 83 20 30 |06779637...<.. 0|
00000580: 2E 30 32 37 39 36 32 34 34 37 00 A5 0D 50 05 83 |.027962447...P..|
00000590: 20 38 39 2E 36 31 38 32 36 2C 30 2E 30 35 39 32 | 89.61826,0.0592|
000005A0: 34 39 36 32 33 00 C3 0D 64 05 83 20 30 2E 30 39 |49623...d.. 0.09|
000005B0: 39 36 33 33 38 34 34 2C 31 2E 33 33 38 39 38 39 |9633844,1.338989|
000005C0: 39 32 37 00 D8 0D 78 05 8F 20 45 46 45 4D 45 52 |927...x.. EFEMER|
000005D0: 49 44 45 20 4D 41 52 53 00 ED 0D 8C 05 8F 20 2D |IDE MARS...... -|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 09 0E |-------------...|
000005F0: A0 05 83 20 31 2E 35 32 33 36 38 38 33 2C 30 2E |... 1.5236883,0.|
00000600: 30 39 33 33 39 32 31 34 31 00 1B 0E B4 05 83 20 |093392141...... |
00000610: 30 2E 30 30 39 31 34 35 38 38 38 00 37 0E C8 05 |0.009145888.7...|
00000620: 83 20 32 31 38 2E 35 33 31 38 39 2C 30 2E 30 33 |. 218.53189,0.03|
00000630: 32 33 30 32 39 36 31 00 55 0E DC 05 83 20 34 2E |2302961.U.... 4.|
00000640: 39 39 38 36 30 35 39 33 35 2C 30 2E 38 36 35 36 |998605935,0.8656|
00000650: 35 36 36 36 30 00 6D 0E F0 05 8F 20 45 46 45 4D |56660.m.... EFEM|
00000660: 45 52 49 44 45 20 4A 55 50 49 54 45 52 00 85 0E |ERIDE JUPITER...|
00000670: 04 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------|
00000680: 2D 2D 2D 2D 2D 00 A0 0E 18 06 83 20 35 2E 32 30 |-----...... 5.20|
00000690: 32 35 36 31 2C 30 2E 30 34 38 34 37 35 38 31 37 |2561,0.048475817|
000006A0: 00 B2 0E 2C 06 83 20 30 2E 30 30 31 34 35 30 31 |...,.. 0.0014501|
000006B0: 32 31 00 CE 0E 40 06 83 20 34 39 30 2E 36 35 30 |21...@.. 490.650|
000006C0: 37 35 2C 30 2E 30 32 32 37 34 38 33 32 30 00 EC |75,0.022748320..|
000006D0: 0E 54 06 83 20 34 2E 37 37 39 39 34 34 32 39 37 |.T.. 4.779944297|
000006E0: 2C 31 2E 37 35 32 38 35 39 39 30 34 00 06 0F 68 |,1.752859904...h|
000006F0: 06 8F 20 45 46 45 4D 45 52 49 44 45 20 53 41 52 |.. EFEMERIDE SAR|
00000700: 54 55 52 4E 55 53 00 20 0F 7C 06 8F 20 2D 2D 2D |TURNUS. .|.. ---|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000720: 00 3B 0F 90 06 83 20 39 2E 35 35 34 37 34 37 2C |.;.... 9.554747,|
00000730: 30 2E 30 35 35 35 39 34 31 38 37 00 4F 0F A4 06 |0.055594187.O...|
00000740: 83 20 30 2E 30 30 30 35 38 33 37 31 32 30 31 00 |. 0.00058371201.|
00000750: 6D 0F B8 06 83 20 2D 34 34 31 34 2E 34 38 30 35 |m.... -4414.4805|
00000760: 32 2C 30 2E 30 34 33 34 32 38 35 35 31 00 8B 0F |2,0.043428551...|
00000770: CC 06 83 20 35 2E 39 32 31 35 35 32 31 39 34 2C |... 5.921552194,|
00000780: 31 2E 39 38 34 34 32 38 35 33 30 00 99 0F E0 06 |1.984428530.....|
00000790: 86 20 46 28 37 2C 31 30 29 00 A7 0F F4 06 81 20 |. F(7,10)...... |
000007A0: 4E B2 31 20 A4 20 37 00 B9 0F 08 07 3A 20 20 20 |N.1 . 7.....: |
000007B0: 81 20 4D B2 31 20 A4 20 37 00 CE 0F 1C 07 3A 20 |. M.1 . 7.....: |
000007C0: 20 20 20 20 20 20 87 20 46 28 4E 2C 4D 29 00 DA | . F(N,M)..|
000007D0: 0F 30 07 3A 20 20 20 82 20 4D 00 E2 0F 44 07 82 |.0.: . M...D..|
000007E0: 20 4E 00 05 10 58 07 8F 20 42 45 50 41 41 4C 20 | N...X.. BEPAAL |
000007F0: 45 51 55 41 54 4F 52 49 41 41 4C 43 4F 4E 53 54 |EQUATORIAALCONST|
00000800: 41 4E 54 45 4E 00 28 10 6C 07 8F 20 2D 2D 2D 2D |ANTEN.(.l.. ----|
00000810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000820: 2D 2D 2D 2D 2D 2D 2D 2D 00 3F 10 80 07 8F 20 49 |--------.?.... I|
00000830: 4E 56 4F 45 52 20 45 50 53 20 49 4E 20 50 45 00 |NVOER EPS IN PE.|
00000840: 5F 10 94 07 8F 20 55 49 54 56 4F 45 52 20 58 56 |_.... UITVOER XV|
00000850: 20 59 56 20 5A 56 20 58 52 20 59 52 20 5A 52 00 | YV ZV XR YR ZR.|
00000860: 6D 10 A8 07 81 20 4E B2 31 20 A4 20 37 00 7F 10 |m.... N.1 . 7...|
00000870: BC 07 3A 20 20 20 4F 4D B2 46 28 4E 2C 37 29 00 |..: OM.F(N,7).|
00000880: 91 10 D0 07 3A 20 20 20 49 4E B2 46 28 4E 2C 35 |....: IN.F(N,5|
00000890: 29 00 A3 10 E4 07 3A 20 20 20 50 45 B2 46 28 4E |).....: PE.F(N|
000008A0: 2C 36 29 00 B3 10 F8 07 3A 20 20 20 50 B2 BE 28 |,6).....: P..(|
000008B0: 4F 4D 29 00 CA 10 0C 08 3A 20 20 20 51 B2 AB BF |OM).....: Q...|
000008C0: 28 4F 4D 29 AC BE 28 49 4E 29 00 E5 10 20 08 3A |(OM)..(IN)... .:|
000008D0: 20 20 20 46 28 4E 2C 38 29 B2 BA 20 28 50 AC 50 | F(N,8).. (P.P|
000008E0: AA 51 AC 51 29 00 FB 10 34 08 3A 20 20 20 46 28 |.Q.Q)...4.: F(|
000008F0: 4E 2C 35 29 B2 C1 28 50 AD 51 29 00 27 11 48 08 |N,5)..(P.Q).'.H.|
00000900: 3A 20 20 20 8B 20 B4 28 50 29 B3 B1 B4 28 46 28 |: . .(P)...(F(|
00000910: 4E 2C 35 29 29 20 A7 20 46 28 4E 2C 35 29 B2 46 |N,5)) . F(N,5).F|
00000920: 28 4E 2C 35 29 AA FF 00 3E 11 5C 08 3A 20 20 20 |(N,5)...>.\.: |
00000930: 50 B2 BF 28 4F 4D 29 AC BE 28 45 50 53 29 00 68 |P..(OM)..(EPS).h|
00000940: 11 70 08 3A 20 20 20 51 B2 BE 28 4F 4D 29 AC BE |.p.: Q..(OM)..|
00000950: 28 49 4E 29 AC BE 28 45 50 53 29 AB BF 28 49 4E |(IN)..(EPS)..(IN|
00000960: 29 AC BF 28 45 50 53 29 00 83 11 84 08 3A 20 20 |)..(EPS).....: |
00000970: 20 46 28 4E 2C 39 29 B2 BA 20 28 50 AC 50 AA 51 | F(N,9).. (P.P.Q|
00000980: AC 51 29 00 9A 11 98 08 3A 20 20 20 46 28 4E 2C |.Q).....: F(N,|
00000990: 36 29 B2 C1 20 28 50 AD 51 29 00 C6 11 AC 08 3A |6).. (P.Q).....:|
000009A0: 20 20 20 8B 20 B4 28 50 29 B3 B1 B4 28 46 28 4E | . .(P)...(F(N|
000009B0: 2C 36 29 29 20 A7 20 46 28 4E 2C 36 29 B2 46 28 |,6)) . F(N,6).F(|
000009C0: 4E 2C 36 29 AA FF 00 DD 11 C0 08 3A 20 20 20 50 |N,6).......: P|
000009D0: B2 BF 28 4F 4D 29 AC BF 28 45 50 53 29 00 07 12 |..(OM)..(EPS)...|
000009E0: D4 08 3A 20 20 20 51 B2 BE 28 4F 4D 29 AC BE 28 |..: Q..(OM)..(|
000009F0: 49 4E 29 AC BF 28 45 50 53 29 AA BF 28 49 4E 29 |IN)..(EPS)..(IN)|
00000A00: AC BE 28 45 50 53 29 00 23 12 E8 08 3A 20 20 20 |..(EPS).#...: |
00000A10: 46 28 4E 2C 31 30 29 B2 BA 20 28 50 AC 50 AA 51 |F(N,10).. (P.P.Q|
00000A20: AC 51 29 00 3A 12 FC 08 3A 20 20 20 46 28 4E 2C |.Q).:...: F(N,|
00000A30: 37 29 B2 C1 20 28 50 AD 51 29 00 65 12 10 09 3A |7).. (P.Q).e...:|
00000A40: 20 20 20 8B 20 B4 28 50 29 B3 B1 B4 28 46 28 4E | . .(P)...(F(N|
00000A50: 2C 37 29 29 A7 20 46 28 4E 2C 37 29 B2 46 28 4E |,7)). F(N,7).F(N|
00000A60: 2C 37 29 AA FF 00 7E 12 24 09 3A 20 20 20 46 28 |,7)...~.$.: F(|
00000A70: 4E 2C 35 29 B2 46 28 4E 2C 35 29 AA 50 45 00 97 |N,5).F(N,5).PE..|
00000A80: 12 38 09 3A 20 20 20 46 28 4E 2C 36 29 B2 46 28 |.8.: F(N,6).F(|
00000A90: 4E 2C 36 29 AA 50 45 00 B0 12 4C 09 3A 20 20 20 |N,6).PE...L.: |
00000AA0: 46 28 4E 2C 37 29 B2 46 28 4E 2C 37 29 AA 50 45 |F(N,7).F(N,7).PE|
00000AB0: 00 B8 12 60 09 82 20 4E 00 BE 12 74 09 8E 00 C4 |...`.. N...t....|
00000AC0: 12 88 09 8F 00 E0 12 9C 09 8F 20 4B 41 4C 45 4E |.......... KALEN|
00000AD0: 44 45 52 2D 53 55 42 52 4F 55 54 49 4E 45 20 31 |DER-SUBROUTINE 1|
00000AE0: 00 FC 12 B0 09 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |...... ---------|
00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 18 13 C4 |------------....|
00000B00: 09 8F 20 49 4E 56 4F 45 52 20 4A 41 41 52 20 4D |.. INVOER JAAR M|
00000B10: 41 41 4E 44 20 44 41 47 00 2B 13 D8 09 8F 20 55 |AAND DAG.+.... U|
00000B20: 49 54 56 4F 45 52 20 54 49 4A 44 00 3E 13 EC 09 |ITVOER TIJD.>...|
00000B30: 8B 20 4D 4E 44 B1 32 20 A7 20 32 36 30 30 00 4E |. MND.2 . 2600.N|
00000B40: 13 00 0A 4A 41 41 52 B2 4A 41 41 52 AB 31 00 5D |...JAAR.JAAR.1.]|
00000B50: 13 14 0A 4D 4E 44 B2 4D 4E 44 AA 31 32 00 94 13 |...MND.MND.12...|
00000B60: 28 0A 54 59 44 B2 B5 28 28 4A 41 41 52 AB 31 39 |(.TYD..((JAAR.19|
00000B70: 38 34 29 AC 33 36 35 2E 32 35 29 AA B5 28 4D 4E |84).365.25)..(MN|
00000B80: 44 AC 33 30 2E 36 AB 39 31 2E 33 29 AA 44 41 47 |D.30.6.91.3).DAG|
00000B90: AB 37 32 31 00 9A 13 3C 0A 8E 00 A0 13 50 0A 8F |.721...<.....P..|
00000BA0: 00 BC 13 64 0A 8F 20 4B 41 4C 45 4E 44 45 52 2D |...d.. KALENDER-|
00000BB0: 53 55 42 52 4F 55 54 49 4E 45 20 32 00 D8 13 78 |SUBROUTINE 2...x|
00000BC0: 0A 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 00 EA 13 8C 0A 8F 20 49 |--------...... I|
00000BE0: 4E 56 4F 45 52 20 54 49 4A 44 00 09 14 A0 0A 8F |NVOER TIJD......|
00000BF0: 20 55 49 54 56 4F 45 52 20 4A 41 41 52 20 4D 4E | UITVOER JAAR MN|
00000C00: 44 20 44 41 47 20 55 55 52 00 1D 14 B4 0A 44 41 |D DAG UUR.....DA|
00000C10: 47 B2 B5 20 28 54 59 44 AA 37 32 31 29 00 3F 14 |G.. (TYD.721).?.|
00000C20: C8 0A 4A 41 41 52 B2 31 39 38 34 AA B5 28 28 44 |..JAAR.1984..((D|
00000C30: 41 47 AB 30 2E 31 29 AD 33 36 35 2E 32 35 29 00 |AG.0.1).365.25).|
00000C40: 61 14 DC 0A 44 41 47 B2 44 41 47 AB B5 28 28 4A |a...DAG.DAG..((J|
00000C50: 41 41 52 AB 31 39 38 34 29 AC 33 36 35 2E 32 35 |AAR.1984).365.25|
00000C60: 29 00 7C 14 F0 0A 4D 4E 44 B2 B5 28 28 44 41 47 |).|...MND..((DAG|
00000C70: AA 39 31 2E 33 29 AD 33 30 2E 36 29 00 99 14 04 |.91.3).30.6)....|
00000C80: 0B 44 41 47 B2 44 41 47 AB B5 28 4D 4E 44 AC 33 |.DAG.DAG..(MND.3|
00000C90: 30 2E 36 AB 39 31 2E 33 29 00 AD 14 18 0B 8B 20 |0.6.91.3)...... |
00000CA0: 4D 4E 44 B3 31 33 20 A7 20 32 39 30 30 00 BD 14 |MND.13 . 2900...|
00000CB0: 2C 0B 4A 41 41 52 B2 4A 41 41 52 AA 31 00 CC 14 |,.JAAR.JAAR.1...|
00000CC0: 40 0B 4D 4E 44 B2 4D 4E 44 AB 31 32 00 E4 14 54 |@.MND.MND.12...T|
00000CD0: 0B 55 55 52 B2 32 34 AC 28 54 59 44 AB B5 28 54 |.UUR.24.(TYD..(T|
00000CE0: 59 44 29 29 00 EA 14 68 0B 8E 00 F0 14 7C 0B 8F |YD))...h.....|..|
00000CF0: 00 03 15 90 0B 8B 20 41 32 B2 B1 38 20 A7 20 33 |...... A2..8 . 3|
00000D00: 31 30 30 00 20 15 A4 0B 8F 20 50 52 49 4E 54 20 |100. .... PRINT |
00000D10: 4A 41 41 52 20 4D 4E 44 20 44 41 47 20 55 55 52 |JAAR MND DAG UUR|
00000D20: 00 3E 15 B8 0B 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.>.... ---------|
00000D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 55 |--------------.U|
00000D40: 15 BD 0B 8B 20 50 52 24 B3 B1 22 4A 41 22 20 A7 |.... PR$.."JA" .|
00000D50: 20 33 30 32 30 00 5D 15 C2 0B 9D 20 31 00 70 15 | 3020.].... 1.p.|
00000D60: CC 0B 8B 20 41 32 B2 B1 38 20 A7 20 33 31 30 30 |... A2..8 . 3100|
00000D70: 00 8C 15 E0 0B 99 20 4A 41 41 52 3B 22 20 22 3B |...... JAAR;" ";|
00000D80: 4D 24 28 4D 4E 44 29 3B 22 20 22 3B 00 A2 15 F4 |M$(MND);" ";....|
00000D90: 0B 99 20 44 41 47 3B 22 20 22 3B 55 55 52 22 9D |.. DAG;" ";UUR".|
00000DA0: 48 22 00 B1 15 08 0C 99 20 22 22 20 3A 99 20 22 |H"...... "" :. "|
00000DB0: 22 00 B7 15 1C 0C 8E 00 BD 15 30 0C 8F 00 D5 15 |".........0.....|
00000DC0: 44 0C 8F 20 42 45 50 41 41 4C 20 58 59 5A 2D 57 |D.. BEPAAL XYZ-W|
00000DD0: 41 41 52 44 45 00 ED 15 58 0C 8F 20 2D 2D 2D 2D |AARDE...X.. ----|
00000DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 0D 16 |-------------...|
00000DF0: 6C 0C 8F 20 49 4E 56 4F 45 52 20 54 49 4A 44 20 |l.. INVOER TIJD |
00000E00: 45 4E 20 45 46 45 4D 45 52 49 44 45 4E 00 21 16 |EN EFEMERIDEN.!.|
00000E10: 80 0C 8F 20 55 49 54 56 4F 45 52 20 58 20 59 20 |... UITVOER X Y |
00000E20: 5A 00 40 16 94 0C 8F 20 4D 49 44 44 45 4C 42 41 |Z.@.... MIDDELBA|
00000E30: 52 45 20 41 4E 4F 4D 41 4C 49 45 20 22 4D 41 22 |RE ANOMALIE "MA"|
00000E40: 00 5B 16 A8 0C 4D 41 B2 46 28 4E 2C 33 29 AC 28 |.[...MA.F(N,3).(|
00000E50: 54 59 44 AB 46 28 4E 2C 34 29 29 00 76 16 BC 0C |TYD.F(N,4)).v...|
00000E60: 4D 41 B2 4D 41 AB 28 FF AC 32 AC B5 20 28 4D 41 |MA.MA.(..2.. (MA|
00000E70: AD FF AD 32 29 29 00 97 16 D0 0C 8F 20 45 58 43 |...2))...... EXC|
00000E80: 45 4E 54 52 49 53 43 48 45 20 41 4E 4F 4D 41 4C |ENTRISCHE ANOMAL|
00000E90: 49 45 20 22 45 41 22 00 A1 16 E4 0C 45 41 B2 4D |IE "EA".....EA.M|
00000EA0: 41 00 CD 16 F8 0C 50 B2 28 4D 41 AA 46 28 4E 2C |A.....P.(MA.F(N,|
00000EB0: 32 29 AC BF 28 45 41 29 AB 45 41 29 AD 28 31 AB |2)..(EA).EA).(1.|
00000EC0: 46 28 4E 2C 32 29 AC BE 28 45 41 29 29 00 D9 16 |F(N,2)..(EA))...|
00000ED0: 0C 0D 45 41 B2 45 41 AA 50 00 F0 16 20 0D 8B 20 |..EA.EA.P... .. |
00000EE0: B6 28 50 29 B1 31 45 AB 37 20 A7 20 33 33 32 30 |.(P).1E.7 . 3320|
00000EF0: 00 0E 17 34 0D 52 B2 46 28 4E 2C 31 29 AC 28 31 |...4.R.F(N,1).(1|
00000F00: AB 46 28 4E 2C 32 29 AC BE 28 45 41 29 29 00 3A |.F(N,2)..(EA)).:|
00000F10: 17 48 0D 56 B2 32 AC C1 28 BA 28 28 31 AA 46 28 |.H.V.2..(.((1.F(|
00000F20: 4E 2C 32 29 29 AD 28 31 AB 46 28 4E 2C 32 29 29 |N,2)).(1.F(N,2))|
00000F30: 29 AC C0 28 45 41 AD 32 29 29 00 55 17 5C 0D 58 |)..(EA.2)).U.\.X|
00000F40: B2 52 AC 46 28 4E 2C 38 29 AC BF 28 46 28 4E 2C |.R.F(N,8)..(F(N,|
00000F50: 35 29 AA 56 29 00 70 17 70 0D 59 B2 52 AC 46 28 |5).V).p.p.Y.R.F(|
00000F60: 4E 2C 39 29 AC BF 28 46 28 4E 2C 36 29 AA 56 29 |N,9)..(F(N,6).V)|
00000F70: 00 8C 17 84 0D 5A B2 52 AC 46 28 4E 2C 31 30 29 |.....Z.R.F(N,10)|
00000F80: AC BF 28 46 28 4E 2C 37 29 AA 56 29 00 92 17 98 |..(F(N,7).V)....|
00000F90: 0D 8E 00 98 17 AC 0D 8F 00 B2 17 C0 0D 8F 20 42 |.............. B|
00000FA0: 45 50 41 41 4C 20 48 45 4D 45 4C 50 4F 53 49 54 |EPAAL HEMELPOSIT|
00000FB0: 49 45 00 CC 17 D4 0D 8F 20 2D 2D 2D 2D 2D 2D 2D |IE...... -------|
00000FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DF 17 E8 |------------....|
00000FD0: 0D 8F 20 49 4E 56 4F 45 52 20 58 20 59 20 5A 00 |.. INVOER X Y Z.|
00000FE0: 01 18 FC 0D 8F 20 55 49 54 56 4F 45 52 20 41 4C |..... UITVOER AL|
00000FF0: 46 41 20 44 45 4C 54 41 20 41 46 53 54 20 52 41 |FA DELTA AFST RA|
00001000: 44 00 18 18 10 0E 52 41 44 B2 BA 28 58 AC 58 AA |D.....RAD..(X.X.|
00001010: 59 AC 59 AA 5A AC 5A 29 00 23 18 24 0E 58 B2 58 |Y.Y.Z.Z).#.$.X.X|
00001020: AA 58 58 00 2E 18 38 0E 59 B2 59 AA 59 59 00 39 |.XX...8.Y.Y.YY.9|
00001030: 18 4C 0E 5A B2 5A AA 5A 5A 00 51 18 60 0E 41 46 |.L.Z.Z.ZZ.Q.`.AF|
00001040: 53 54 B2 BA 28 58 AC 58 AA 59 AC 59 AA 5A AC 5A |ST..(X.X.Y.Y.Z.Z|
00001050: 29 00 61 18 74 0E 41 4C 46 41 B2 C1 28 59 AD 58 |).a.t.ALFA..(Y.X|
00001060: 29 00 7E 18 88 0E 8B 20 58 B3 30 20 A7 20 41 4C |).~.... X.0 . AL|
00001070: 46 41 B2 41 4C 46 41 AA FF AC B4 28 59 29 00 8B |FA.ALFA....(Y)..|
00001080: 18 9C 0E 44 B2 5A AD 41 46 53 54 00 A4 18 B0 0E |...D.Z.AFST.....|
00001090: 44 45 4C 54 41 B2 C1 28 44 AD BA 28 AB 44 AC 44 |DELTA..(D..(.D.D|
000010A0: AA 31 29 29 00 AA 18 C4 0E 8E 00 B0 18 D8 0E 8F |.1))............|
000010B0: 00 D3 18 EC 0E 8F 20 50 52 45 43 45 53 53 49 45 |...... PRECESSIE|
000010C0: 20 56 41 4E 20 32 30 30 30 20 4E 41 41 52 20 31 | VAN 2000 NAAR 1|
000010D0: 39 35 30 00 F6 18 00 0F 8F 20 2D 2D 2D 2D 2D 2D |950...... ------|
000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010F0: 2D 2D 2D 2D 2D 2D 00 0E 19 14 0F 8F 20 49 4E 56 |------...... INV|
00001100: 4F 45 52 20 41 4C 46 41 20 44 45 4C 54 41 00 30 |OER ALFA DELTA.0|
00001110: 19 28 0F 50 B2 30 2E 30 30 34 38 35 37 32 31 AC |.(.P.0.00485721.|
00001120: BF 28 41 4C 46 41 29 AC C0 28 44 45 4C 54 41 29 |.(ALFA)..(DELTA)|
00001130: 00 53 19 3C 0F 44 45 4C 54 41 B2 44 45 4C 54 41 |.S.<.DELTA.DELTA|
00001140: AB 30 2E 30 30 34 38 35 37 32 31 AC BE 28 41 4C |.0.00485721..(AL|
00001150: 46 41 29 00 6F 19 50 0F 41 4C 46 41 B2 41 4C 46 |FA).o.P.ALFA.ALF|
00001160: 41 AB 30 2E 30 31 31 31 37 38 31 30 37 AB 50 00 |A.0.011178107.P.|
00001170: 75 19 64 0F 8E 00 7B 19 78 0F 8F 00 9A 19 8C 0F |u.d...{.x.......|
00001180: 8F 20 48 45 4C 44 45 52 48 45 49 44 20 4B 4F 4D |. HELDERHEID KOM|
00001190: 45 45 54 20 48 41 4C 4C 45 59 00 B9 19 A0 0F 8F |EET HALLEY......|
000011A0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
000011B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D4 19 B4 0F 8F 20 |---------...... |
000011C0: 49 4E 56 4F 45 52 20 41 46 53 54 20 52 41 44 20 |INVOER AFST RAD |
000011D0: 54 49 4A 44 00 E6 19 C8 0F 8F 20 55 49 54 56 4F |TIJD...... UITVO|
000011E0: 45 52 20 4D 41 47 00 FB 19 DC 0F 4D 41 47 B2 BC |ER MAG.....MAG..|
000011F0: 28 52 41 44 29 AD BC 28 31 30 29 00 1A 1A F0 0F |(RAD)..(10).....|
00001200: 8B 20 54 59 44 B3 30 20 A7 20 4D 41 47 B2 4D 41 |. TYD.0 . MAG.MA|
00001210: 47 AC 31 31 2E 35 AA 33 2E 39 00 39 1A 04 10 8B |G.11.5.3.9.9....|
00001220: 20 54 59 44 B1 30 20 A7 20 4D 41 47 B2 4D 41 47 | TYD.0 . MAG.MAG|
00001230: AC 31 31 2E 30 AA 32 2E 37 00 55 1A 18 10 4D 41 |.11.0.2.7.U...MA|
00001240: 47 B2 4D 41 47 AA BC 28 41 46 53 54 29 AD BC 28 |G.MAG..(AFST)..(|
00001250: 31 30 29 AC 35 00 5B 1A 2C 10 8E 00 61 1A 40 10 |10).5.[.,...a.@.|
00001260: 8F 00 7C 1A 54 10 8F 20 53 54 41 41 52 54 20 4B |..|.T.. STAART K|
00001270: 4F 4D 45 45 54 20 48 41 4C 4C 45 59 00 97 1A 68 |OMEET HALLEY...h|
00001280: 10 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00001290: 2D 2D 2D 2D 2D 2D 2D 00 BB 1A 7C 10 8F 20 49 4E |-------...|.. IN|
000012A0: 56 4F 45 52 20 54 49 4A 44 3B 55 49 54 56 4F 45 |VOER TIJD;UITVOE|
000012B0: 52 20 53 4C 28 49 4E 20 45 41 29 00 D1 1A 90 10 |R SL(IN EA).....|
000012C0: 8B 20 54 59 44 20 B3 AB 38 30 20 A7 20 34 33 32 |. TYD ..80 . 432|
000012D0: 30 00 E5 1A A4 10 8B 20 54 59 44 20 B3 30 20 A7 |0...... TYD .0 .|
000012E0: 20 34 33 36 30 00 FA 1A B8 10 8B 20 54 59 44 20 | 4360...... TYD |
000012F0: B3 34 30 20 A7 20 34 34 30 30 00 0F 1B CC 10 8B |.40 . 4400......|
00001300: 20 54 59 44 20 B3 37 30 20 A7 20 34 34 34 30 00 | TYD .70 . 4440.|
00001310: 18 1B E0 10 53 4C B2 30 00 1E 1B F4 10 8E 00 34 |....SL.0.......4|
00001320: 1B 08 11 53 4C B2 30 2E 30 30 32 AC 28 54 59 44 |...SL.0.002.(TYD|
00001330: AA 38 30 29 00 3A 1B 1C 11 8E 00 50 1B 30 11 53 |.80).:.....P.0.S|
00001340: 4C B2 30 2E 30 31 39 AC 54 59 44 AA 30 2E 31 36 |L.0.019.TYD.0.16|
00001350: 00 56 1B 44 11 8E 00 6D 1B 58 11 53 4C B2 AB 30 |.V.D...m.X.SL..0|
00001360: 2E 30 33 30 AC 28 54 59 44 AB 37 30 29 00 73 1B |.030.(TYD.70).s.|
00001370: 6C 11 8E 00 79 1B 80 11 8F 00 95 1B 94 11 8F 20 |l...y.......... |
00001380: 53 54 41 41 52 54 20 48 41 4C 4C 45 59 20 50 4F |STAART HALLEY PO|
00001390: 53 49 54 49 45 00 B1 1B A8 11 8F 20 2D 2D 2D 2D |SITIE...... ----|
000013A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013B0: 2D 00 C7 1B BC 11 8F 20 49 4E 56 4F 45 52 20 58 |-...... INVOER X|
000013C0: 20 59 20 5A 20 53 4C 00 E2 1B D0 11 8F 20 55 49 | Y Z SL...... UI|
000013D0: 54 56 4F 45 52 20 58 53 20 59 53 20 5A 53 20 52 |TVOER XS YS ZS R|
000013E0: 41 44 00 ED 1B E4 11 8D 20 34 31 36 30 00 04 1C |AD...... 4160...|
000013F0: F8 11 52 41 44 B2 BA 28 58 AC 58 AA 59 AC 59 AA |..RAD..(X.X.Y.Y.|
00001400: 5A AC 5A 29 00 13 1C 0C 12 4D B2 31 AA 53 4C AD |Z.Z).....M.1.SL.|
00001410: 52 41 44 00 1E 1C 20 12 58 53 B2 58 AC 4D 00 29 |RAD... .XS.X.M.)|
00001420: 1C 34 12 59 53 B2 59 AC 4D 00 34 1C 48 12 5A 53 |.4.YS.Y.M.4.H.ZS|
00001430: B2 5A AC 4D 00 3A 1C 5C 12 8E 00 40 1C 70 12 8F |.Z.M.:.\...@.p..|
00001440: 00 65 1C 84 12 8F 20 4F 4D 5A 45 54 54 49 4E 47 |.e.... OMZETTING|
00001450: 20 45 51 2E 58 59 5A 20 4E 41 41 52 20 45 43 4C | EQ.XYZ NAAR ECL|
00001460: 2E 20 58 59 5A 00 8A 1C 98 12 8F 20 2D 2D 2D 2D |. XYZ...... ----|
00001470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A1 1C AC 12 8F |----------......|
00001490: 20 49 4E 56 4F 45 52 20 58 20 59 20 5A 20 45 50 | INVOER X Y Z EP|
000014A0: 53 00 BF 1C C0 12 8F 20 55 49 54 56 4F 45 52 20 |S...... UITVOER |
000014B0: 58 20 59 20 5A 20 28 45 51 2E 32 30 30 30 29 00 |X Y Z (EQ.2000).|
000014C0: D7 1C D4 12 4D B2 59 AC BE 28 45 50 53 29 AA 5A |....M.Y..(EPS).Z|
000014D0: AC BF 28 45 50 53 29 00 EF 1C E8 12 5A B2 5A AC |..(EPS).....Z.Z.|
000014E0: BE 28 45 50 53 29 AB 59 AC BF 28 45 50 53 29 00 |.(EPS).Y..(EPS).|
000014F0: F7 1C FC 12 59 B2 4D 00 FD 1C 10 13 8E 00 03 1D |....Y.M.........|
00001500: 24 13 8F 00 21 1D 38 13 8F 20 53 43 48 49 4A 4E |$...!.8.. SCHIJN|
00001510: 42 41 52 45 20 53 54 41 41 52 54 4C 45 4E 47 54 |BARE STAARTLENGT|
00001520: 45 00 3F 1D 4C 13 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |E.?.L.. --------|
00001530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001540: 58 1D 60 13 8F 20 49 4E 56 4F 45 52 20 44 4B 20 |X.`.. INVOER DK |
00001550: 41 4B 20 28 4B 4F 50 29 00 6F 1D 74 13 8F 20 44 |AK (KOP).o.t.. D|
00001560: 45 4C 54 41 20 41 4C 46 41 20 28 53 54 2E 29 00 |ELTA ALFA (ST.).|
00001570: 80 1D 88 13 8F 20 55 49 54 56 4F 45 52 20 53 4D |..... UITVOER SM|
00001580: 00 96 1D 9C 13 50 B2 BF 28 28 44 4B AB 44 45 4C |.....P..((DK.DEL|
00001590: 54 41 29 AD 32 29 00 AB 1D B0 13 51 B2 BF 28 28 |TA).2).....Q..((|
000015A0: 41 4B AB 41 4C 46 41 29 AD 32 29 00 CC 1D C4 13 |AK.ALFA).2).....|
000015B0: 53 4D B2 BA 28 50 AC 50 AA 51 AC 51 AC BE 28 44 |SM..(P.P.Q.Q..(D|
000015C0: 45 4C 54 41 29 AC BE 28 44 4B 29 29 00 E7 1D D8 |ELTA)..(DK))....|
000015D0: 13 53 4D B2 32 AC C1 28 53 4D AD BA 28 AB 53 4D |.SM.2..(SM..(.SM|
000015E0: AC 53 4D AA 31 29 29 00 ED 1D EC 13 8E 00 F3 1D |.SM.1)).........|
000015F0: 00 14 8F 00 11 1E 14 14 8F 20 45 58 54 52 41 20 |......... EXTRA |
00001600: 48 41 4C 4C 45 59 20 47 45 47 45 56 45 4E 53 20 |HALLEY GEGEVENS |
00001610: 31 00 2F 1E 28 14 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |1./.(.. --------|
00001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001630: 47 1E 3C 14 8D 20 33 39 36 30 3A 20 8F 20 4D 41 |G.<.. 3960: . MA|
00001640: 47 4E 49 54 55 44 45 00 5A 1E 50 14 8B 20 41 32 |GNITUDE.Z.P.. A2|
00001650: B2 B1 38 20 A7 20 35 33 32 30 00 62 1E 64 14 99 |..8 . 5320.b.d..|
00001660: 22 22 00 81 1E 78 14 99 20 22 20 20 20 20 20 20 |""...x.. " |
00001670: 20 20 20 20 20 4D 41 47 4E 49 54 55 44 45 3A 22 | MAGNITUDE:"|
00001680: 3B 00 98 1E 8C 14 99 20 B5 28 4D 41 47 AC 31 30 |;...... .(MAG.10|
00001690: AA 30 2E 35 29 AD 31 30 00 A0 1E A0 14 99 22 22 |.0.5).10......""|
000016A0: 00 BF 1E B4 14 99 20 22 20 20 20 20 20 20 20 20 |...... " |
000016B0: 20 20 20 53 54 41 41 52 54 20 20 20 3A 22 3B 00 | STAART :";.|
000016C0: C5 1E C8 14 8E 00 CB 1E DC 14 8F 00 E9 1E F0 14 |................|
000016D0: 8F 20 45 58 54 52 41 20 48 41 4C 4C 45 59 20 47 |. EXTRA HALLEY G|
000016E0: 45 47 45 56 45 4E 53 20 32 00 07 1F 04 15 8F 20 |EGEVENS 2...... |
000016F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001700: 2D 2D 2D 2D 2D 2D 2D 00 1B 1F 18 15 8D 20 34 39 |-------...... 49|
00001710: 30 30 3A 8F 20 53 54 41 41 52 54 00 2E 1F 2C 15 |00:. STAART...,.|
00001720: 8B 20 41 32 B2 B1 38 20 A7 20 35 34 36 30 00 54 |. A2..8 . 5460.T|
00001730: 1F 40 15 99 20 B5 28 53 4D AC 31 38 30 30 30 AD |.@.. .(SM.18000.|
00001740: FF AA 30 2E 35 29 AD 31 30 30 3B 22 20 47 52 41 |..0.5).100;" GRA|
00001750: 44 45 4E 22 00 5A 1F 54 15 8E 00 60 1F 68 15 8F |DEN".Z.T...`.h..|
00001760: 00 7E 1F 7C 15 8F 20 4D 41 41 4B 20 4C 49 4A 53 |.~.|.. MAAK LIJS|
00001770: 54 20 56 41 4E 20 50 4F 53 49 54 49 45 53 00 9C |T VAN POSITIES..|
00001780: 1F 90 15 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.... -----------|
00001790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AF 1F A4 |------------....|
000017A0: 15 8B 20 41 32 B2 B1 38 20 A7 20 35 35 38 30 00 |.. A2..8 . 5580.|
000017B0: C1 1F B8 15 99 20 22 91 44 41 54 55 4D 3A 20 22 |..... ".DATUM: "|
000017C0: 3B 00 CC 1F CC 15 8D 20 32 39 34 30 00 DF 1F E0 |;...... 2940....|
000017D0: 15 8B 20 41 32 B2 B1 38 20 A7 20 35 36 36 30 00 |.. A2..8 . 5660.|
000017E0: 07 20 F4 15 99 20 22 4E 41 41 4D 20 20 20 20 20 |. ... "NAAM |
000017F0: 20 20 41 4C 46 41 20 20 20 20 20 20 20 20 20 20 | ALFA |
00001800: 20 44 45 4C 54 41 22 00 2A 20 08 16 8F 20 3B 3F | DELTA".* ... ;?|
00001810: 20 22 41 46 53 54 41 4E 44 2D 41 41 52 44 45 20 | "AFSTAND-AARDE |
00001820: 2D 5A 4F 4E 22 3A 3F 20 22 22 00 38 20 1C 16 81 |-ZON":? "".8 ...|
00001830: 20 4E B2 31 20 A4 20 37 00 4D 20 30 16 3A 20 20 | N.1 . 7.M 0.: |
00001840: 20 8B 20 4E B2 31 20 A7 20 35 37 36 30 00 6A 20 | . N.1 . 5760.j |
00001850: 44 16 3A 20 20 20 8D 20 33 31 32 30 3A 20 8F 20 |D.: . 3120: . |
00001860: 42 45 50 41 41 4C 20 58 59 5A 00 9B 20 58 16 3A |BEPAAL XYZ.. X.:|
00001870: 20 20 20 8B 20 4E B2 32 20 A7 20 8D 20 34 34 38 | . N.2 . . 448|
00001880: 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0: |
00001890: 20 20 20 8F 20 53 54 41 41 52 54 00 AA 20 6C 16 | . STAART.. l.|
000018A0: 3A 20 20 20 89 20 35 38 32 30 00 B6 20 80 16 3A |: . 5820.. ..:|
000018B0: 20 20 20 58 B2 30 00 C2 20 94 16 3A 20 20 20 59 | X.0.. ..: Y|
000018C0: B2 30 00 CE 20 A8 16 3A 20 20 20 5A B2 30 00 EB |.0.. ..: Z.0..|
000018D0: 20 BC 16 3A 20 20 20 8D 20 33 35 30 30 3A 20 8F | ..: . 3500: .|
000018E0: 20 42 45 50 41 41 4C 20 41 2C 44 00 FA 20 D0 16 | BEPAAL A,D.. ..|
000018F0: 3A 20 20 20 8D 20 36 31 30 30 00 10 21 E4 16 3A |: . 6100..!..:|
00001900: 20 20 20 8B 20 4E B3 B1 32 20 A7 20 36 30 36 30 | . N..2 . 6060|
00001910: 00 2C 21 F8 16 3A 20 20 20 8D 20 35 31 32 30 3A |.,!..: . 5120:|
00001920: 20 8F 20 4D 41 47 4E 49 54 55 44 45 00 43 21 0C | . MAGNITUDE.C!.|
00001930: 17 3A 20 20 20 58 B2 58 53 3A 20 8F 20 53 54 41 |.: X.XS: . STA|
00001940: 41 52 54 00 50 21 20 17 3A 20 20 20 59 B2 59 53 |ART.P! .: Y.YS|
00001950: 00 5D 21 34 17 3A 20 20 20 5A B2 5A 53 00 83 21 |.]!4.: Z.ZS..!|
00001960: 48 17 3A 20 20 20 44 4B B2 44 45 4C 54 41 3A 20 |H.: DK.DELTA: |
00001970: 8F 20 42 45 57 41 41 52 20 4B 4F 50 50 4F 53 49 |. BEWAAR KOPPOSI|
00001980: 54 49 45 00 93 21 5C 17 3A 20 20 20 41 4B B2 41 |TIE..!\.: AK.A|
00001990: 4C 46 41 00 A2 21 70 17 3A 20 20 20 8D 20 33 35 |LFA..!p.: . 35|
000019A0: 30 30 00 B1 21 84 17 3A 20 20 20 8D 20 35 33 34 |00..!..: . 534|
000019B0: 30 00 C0 21 98 17 3A 20 20 20 8D 20 36 31 30 30 |0..!..: . 6100|
000019C0: 00 C8 21 AC 17 82 20 4E 00 CE 21 C0 17 8E 00 D4 |..!... N..!.....|
000019D0: 21 D4 17 8F 00 EC 21 E8 17 8F 20 50 52 49 4E 54 |!.....!... PRINT|
000019E0: 20 50 4F 53 49 54 49 45 20 55 49 54 00 04 22 FC | POSITIE UIT..".|
000019F0: 17 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00001A00: 2D 2D 2D 2D 00 27 22 10 18 8F 20 49 4E 56 4F 45 |----.'"... INVOE|
00001A10: 52 20 41 4C 46 41 20 44 45 4C 54 41 20 52 41 44 |R ALFA DELTA RAD|
00001A20: 20 41 46 53 54 20 4E 00 44 22 24 18 8B 20 41 4C | AFST N.D"$.. AL|
00001A30: 46 41 B3 30 20 A7 20 41 4C 46 41 B2 41 4C 46 41 |FA.0 . ALFA.ALFA|
00001A40: AA 32 AC FF 00 5C 22 38 18 50 50 B2 41 4C 46 41 |.2...\"8.PP.ALFA|
00001A50: AC 31 32 AD FF AA 31 AD 31 32 30 30 00 6B 22 4C |.12...1.1200.k"L|
00001A60: 18 4D B2 B4 28 44 45 4C 54 41 29 00 87 22 60 18 |.M..(DELTA).."`.|
00001A70: 51 51 B2 B6 28 44 45 4C 54 41 AC 31 38 30 AD FF |QQ..(DELTA.180..|
00001A80: 29 AA 31 AD 31 32 30 00 93 22 74 18 50 B2 B5 28 |).1.120.."t.P..(|
00001A90: 50 50 29 00 9F 22 88 18 51 B2 B5 28 51 51 29 00 |PP).."..Q..(QQ).|
00001AA0: B7 22 9C 18 50 50 B2 B5 28 36 30 30 AC 28 50 50 |."..PP..(600.(PP|
00001AB0: AB 50 29 29 AD 31 30 00 CB 22 B0 18 51 51 B2 B5 |.P)).10.."..QQ..|
00001AC0: 28 36 30 AC 28 51 51 AB 51 29 29 00 DE 22 C4 18 |(60.(QQ.Q)).."..|
00001AD0: 8B 20 41 32 B2 B1 38 20 A7 20 36 34 34 30 00 E7 |. A2..8 . 6440..|
00001AE0: 22 D8 18 99 20 22 22 00 F9 22 EC 18 99 20 46 24 |"... "".."... F$|
00001AF0: 28 4E 29 2C 50 3B 50 50 3B 00 12 23 00 19 8B 20 |(N),P;PP;..#... |
00001B00: 4D B2 AB 31 20 A7 20 99 20 A3 32 35 29 22 20 2D |M..1 . . .25)" -|
00001B10: 22 3B 00 2B 23 14 19 8B 20 4D B2 AA 31 20 A7 20 |";.+#... M..1 . |
00001B20: 99 20 A3 32 35 29 22 20 2B 22 3B 00 46 23 28 19 |. .25)" +";.F#(.|
00001B30: 50 B2 B5 28 52 41 44 AC 31 30 30 30 AA 30 2E 35 |P..(RAD.1000.0.5|
00001B40: 29 AD 31 30 30 30 00 63 23 3C 19 50 50 B2 B5 28 |).1000.c#<.PP..(|
00001B50: 41 46 53 54 AC 31 30 30 30 AA 30 2E 35 29 AD 31 |AFST.1000.0.5).1|
00001B60: 30 30 30 00 76 23 50 19 8B 20 41 32 B2 B1 38 20 |000.v#P.. A2..8 |
00001B70: A7 20 36 37 38 30 00 90 23 64 19 99 20 51 3B 51 |. 6780..#d.. Q;Q|
00001B80: 51 3A 8F 20 54 41 42 28 32 35 29 3B 50 50 3B 50 |Q:. TAB(25);PP;P|
00001B90: 00 9C 23 78 19 41 32 B2 41 32 AA 31 00 AE 23 8C |..#x.A2.A2.1..#.|
00001BA0: 19 8B 20 41 32 B3 38 20 A7 20 36 38 34 30 00 C6 |.. A2.8 . 6840..|
00001BB0: 23 A0 19 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |#... A$:. A$."" |
00001BC0: A7 20 36 35 36 30 00 DD 23 A5 19 8B 20 50 52 24 |. 6560..#... PR$|
00001BD0: B3 B1 22 4A 41 22 20 A7 20 36 35 38 30 00 E5 23 |.."JA" . 6580..#|
00001BE0: AA 19 9D 20 31 00 EF 23 B4 19 99 20 22 93 22 00 |... 1..#... ".".|
00001BF0: 01 24 C8 19 99 20 22 91 44 41 54 55 4D 3A 20 22 |.$... ".DATUM: "|
00001C00: 3B 00 1D 24 DC 19 99 20 4A 41 41 52 3B 22 20 22 |;..$... JAAR;" "|
00001C10: 3B 4D 24 28 4D 4E 44 29 3B 22 20 22 3B 00 33 24 |;M$(MND);" ";.3$|
00001C20: F0 19 99 20 44 41 47 3B 22 20 22 3B 55 55 52 22 |... DAG;" ";UUR"|
00001C30: 9D 48 22 00 42 24 04 1A 99 20 22 22 20 3A 99 20 |.H".B$... "" :. |
00001C40: 22 22 00 5E 24 18 1A 99 20 22 4E 41 41 4D 20 20 |"".^$... "NAAM |
00001C50: 20 20 20 20 20 41 46 53 54 41 4E 44 22 2C 00 74 | AFSTAND",.t|
00001C60: 24 2C 1A 99 20 A3 32 30 29 20 22 20 2D 41 41 52 |$,.. .20) " -AAR|
00001C70: 44 45 22 3B 00 87 24 40 1A 99 20 A3 33 30 29 20 |DE";..$@.. .30) |
00001C80: 22 20 2D 5A 4F 4E 22 00 9A 24 54 1A 8B 20 41 32 |" -ZON"..$T.. A2|
00001C90: B2 B1 38 20 A7 20 36 37 36 30 00 A4 24 68 1A 89 |..8 . 6760..$h..|
00001CA0: 20 33 30 30 00 AD 24 7C 1A 99 20 22 22 00 BA 24 | 300..$|.. ""..$|
00001CB0: 90 1A 99 20 46 24 28 4E 29 2C 00 CF 24 A4 1A 99 |... F$(N),..$...|
00001CC0: 20 A3 32 30 29 20 50 50 3B A3 33 30 29 20 50 00 | .20) PP;.30) P.|
00001CD0: D5 24 B8 1A 8E 00 DB 24 CC 1A 8F 00 FC 24 E0 1A |.$.....$.....$..|
00001CE0: 8F 20 4D 41 41 4B 20 4C 49 4A 53 54 20 56 41 4E |. MAAK LIJST VAN|
00001CF0: 20 52 55 49 4D 54 45 4C 49 4A 4B 45 00 1D 25 F4 | RUIMTELIJKE..%.|
00001D00: 1A 8F 20 45 43 4C 49 50 54 49 53 43 48 45 20 58 |.. ECLIPTISCHE X|
00001D10: 2C 59 2C 5A 20 50 4F 53 49 54 49 45 53 00 3E 25 |,Y,Z POSITIES.>%|
00001D20: 08 1B 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------|
00001D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 56 |--------------.V|
00001D40: 25 1C 1B A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |%... A$:. A$."" |
00001D50: A7 20 36 39 34 30 00 6E 25 21 1B 8B 20 50 52 24 |. 6940.n%!.. PR$|
00001D60: B3 B1 22 4A 41 22 20 20 A7 20 36 39 36 30 00 76 |.."JA" . 6960.v|
00001D70: 25 26 1B 9D 20 31 00 7F 25 30 1B 99 22 93 22 00 |%&.. 1..%0..".".|
00001D80: 90 25 44 1B 99 20 22 44 41 54 55 4D 3A 20 22 3B |.%D.. "DATUM: ";|
00001D90: 00 AC 25 58 1B 99 20 4A 41 41 52 3B 22 20 22 3B |..%X.. JAAR;" ";|
00001DA0: 4D 24 28 4D 4E 44 29 3B 22 20 22 3B 00 C2 25 6C |M$(MND);" ";..%l|
00001DB0: 1B 99 20 44 41 47 3B 22 20 22 3B 55 55 52 22 9D |.. DAG;" ";UUR".|
00001DC0: 48 22 00 CB 25 80 1B 99 20 22 22 00 D8 25 94 1B |H"..%... ""..%..|
00001DD0: 99 20 22 4E 41 41 4D 22 00 E1 25 A8 1B 99 20 22 |. "NAAM"..%... "|
00001DE0: 22 00 F3 25 BC 1B 58 B2 AB 58 58 3A 8F 20 41 41 |"..%..X..XX:. AA|
00001DF0: 52 44 45 00 FD 25 D0 1B 59 B2 AB 59 59 00 07 26 |RDE..%..Y..YY..&|
00001E00: E4 1B 5A B2 AB 5A 5A 00 1E 26 F8 1B 8D 20 34 37 |..Z..ZZ..&... 47|
00001E10: 32 30 20 3A 8F 20 44 52 41 41 49 49 4E 47 00 2D |20 :. DRAAIING.-|
00001E20: 26 0C 1C 99 20 22 41 41 52 44 45 22 3B 00 3F 26 |&... "AARDE";.?&|
00001E30: 20 1C 99 20 A3 31 30 29 20 22 58 3A 22 58 3B 00 | .. .10) "X:"X;.|
00001E40: 51 26 34 1C 99 20 A3 32 35 29 20 22 59 3A 22 59 |Q&4.. .25) "Y:"Y|
00001E50: 3B 00 62 26 48 1C 99 20 A3 35 30 29 20 22 5A 3A |;.b&H.. .50) "Z:|
00001E60: 22 5A 00 70 26 5C 1C 81 20 4E B2 32 20 A4 20 37 |"Z.p&\.. N.2 . 7|
00001E70: 00 8C 26 70 1C 3A 20 20 20 8D 20 33 31 32 30 3A |..&p.: . 3120:|
00001E80: 8F 20 42 45 50 41 41 4C 20 58 59 5A 00 A3 26 84 |. BEPAAL XYZ..&.|
00001E90: 1C 3A 20 20 20 8B 20 4E B2 32 20 A7 20 8D 20 34 |.: . N.2 . . 4|
00001EA0: 34 38 30 00 BD 26 98 1C 3A 20 20 20 8D 20 34 37 |480..&..: . 47|
00001EB0: 32 30 3A 8F 20 44 52 41 41 49 49 4E 47 00 CE 26 |20:. DRAAIING..&|
00001EC0: AC 1C 3A 20 20 20 99 20 46 24 28 4E 29 3B 00 E4 |..: . F$(N);..|
00001ED0: 26 C0 1C 3A 20 20 20 99 20 A3 31 30 29 20 22 58 |&..: . .10) "X|
00001EE0: 3A 22 58 3B 00 FA 26 D4 1C 3A 20 20 20 99 20 A3 |:"X;..&..: . .|
00001EF0: 32 35 29 20 22 59 3A 22 59 3B 00 0F 27 E8 1C 3A |25) "Y:"Y;..'..:|
00001F00: 20 20 20 99 20 A3 35 30 29 20 22 5A 3A 22 5A 00 | . .50) "Z:"Z.|
00001F10: 25 27 FC 1C 3A 20 20 20 8B 20 4E B3 B1 32 20 A7 |%'..: . N..2 .|
00001F20: 20 37 36 30 30 00 32 27 10 1D 3A 20 20 20 58 B2 | 7600.2'..: X.|
00001F30: 58 53 00 4E 27 24 1D 3A 20 20 20 59 B2 59 53 3A |XS.N'$.: Y.YS:|
00001F40: 8F 20 53 54 41 41 52 54 20 4B 4F 50 49 45 00 5B |. STAART KOPIE.[|
00001F50: 27 38 1D 3A 20 20 20 5A B2 5A 53 00 6A 27 4C 1D |'8.: Z.ZS.j'L.|
00001F60: 3A 20 20 20 8D 20 34 37 32 30 00 7E 27 60 1D 3A |: . 4720.~'`.:|
00001F70: 20 20 20 99 20 22 53 54 41 41 52 54 22 3B 00 94 | . "STAART";..|
00001F80: 27 74 1D 3A 20 20 20 99 20 A3 31 30 29 20 22 58 |'t.: . .10) "X|
00001F90: 3A 22 58 3B 00 AA 27 88 1D 3A 20 20 20 99 20 A3 |:"X;..'..: . .|
00001FA0: 32 35 29 20 22 59 3A 22 59 3B 00 BF 27 9C 1D 3A |25) "Y:"Y;..'..:|
00001FB0: 20 20 20 99 20 A3 35 30 29 20 22 5A 3A 22 5A 00 | . .50) "Z:"Z.|
00001FC0: C7 27 B0 1D 82 20 4E 00 CD 27 C4 1D 8E 00 00 00 |.'... N..'......|
....D.: . "."./.X.. "GEEF JAAR (0=STOP):
";JAAR.@.... JAAR.0 . ..A. .. "GEEF MAA
ND (1-12): ";MND...... "GEEF DAG:
";DAG...... "UITPRINTEN ";PR$....
.. PR$.."JA" . 200...... 1,4.D.... 1.M.H
.A2.0.Y...A1.A1.1...... A1.1 . 280......
540...... "."...,.UUR.0. .@.. 2440: . B
EPAAL JD.9.T.. 2640: . BEPAAL DAG.G.H.N.
1:. ZON.R.|.. 3120.I...XX.X: . BEWAAR ZO
N.R...YY.Y.{...ZZ.Z...L.. 5480: . ALFA,
DELTA...... 6860: . PLATGROND.D.... A$:.
A$."" . 500.Z.... PR$.."JA" . 520.....
1...............0.. INITIALISATIES...D.
. --------------...X.EPS.0.40909280227.L
.L.. "JAN","FEB","MRT","APR".J.... "MEI"
,"JUN","JUL","AUG"...... "SEP","OKT","NO
V","DEC"...... M$(12)...... N.1 . 12...P
.: . M$(N)...... N...... "ZON","HALLEY
","MERCURIUS"...... "VENUS","MARS","JUPI
TER"... .. "SATURNUS"...4.. F$(7).'.H..
N.1 . 7.7.\.: . F$(N).?.P.. N.R.... GE
GEVENS ZON.E.... ------------...... (A,E
X,N,T0,IN,PE,OM)...... 1.00000023,0.0167
14942...T.. 0.017201970,-46.624292.X....
0.000031625,1.884922202...... 3.0525378
32...... EFEMERIDE HALLEY (LANDGRAF)...$
.. ---------------------------.J.8.. 17.
9428087,0.96727910.].L.. 0.0002263318.X.
`.. -9.49238,2.831653263...T.. 1.9524372
87,1.027304234...... EFEMERIDE MERCURIUS
.J.... -------------------...... 0.38709
86,0.205631811...D.. 0.071424710...X.. 7
.53436,0.122269890.0.... 0.507624273,0.8
43844642.F.... EFEMERIDE VENUS.\.... ---
------------.X.(.. 0.7233316,0.006779637
...<.. 0.027962447...P.. 89.61826,0.0592
49623.C.D.. 0.099633844,1.338989927.X.X.
. EFEMERIDE MARS...... --------------...
.. 1.5236883,0.093392141...... 0.009145
888.7.H.. 218.53189,0.032302961.U.... 4.
998605935,0.865656660.M.... EFEMERIDE JU
PITER...... -----------------. .... 5.20
2561,0.048475817...,.. 0.001450121.N.@..
490.65075,0.022748320...T.. 4.779944297
,1.752859904...H.. EFEMERIDE SARTURNUS.
.|.. -------------------.;.... 9.554747,
0.055594187.O.... 0.00058371201.M.... -4
414.48052,0.043428551...L.. 5.921552194,
1.984428530...... F(7,10)...... N.1 . 7.
....: . M.1 . 7.N...: . F(N,M).Z
.0.: . M...D.. N...X.. BEPAAL EQUATORI
AALCONSTANTEN.(.L.. --------------------
--------.?.... INVOER EPS IN PE._.... UI
TVOER XV YV ZV XR YR ZR.M.... N.1 . 7..
..: OM.F(N,7)...P.: IN.F(N,5).....:
PE.F(N,6).....: P..(OM).J...: Q...
(OM)..(IN)... .: F(N,8).. (P.P.Q.Q)...
4.: F(N,5).A(P.Q).'.H.: . .(P)...(F(
N,5)) . F(N,5).F(N,5)...>.\.: P..(OM).
.(EPS).H.P.: Q..(OM)..(IN)..(EPS)..(IN
)..(EPS).....: F(N,9).. (P.P.Q.Q).....
: F(N,6).A (P.Q).F...: . .(P)...(F(N
,6)) . F(N,6).F(N,6).......: P..(OM)..
(EPS)...T.: Q..(OM)..(IN)..(EPS)..(IN)
..(EPS).#...: F(N,10).. (P.P.Q.Q).:...
: F(N,7).A (P.Q).E...: . .(P)...(F(N
,7)). F(N,7).F(N,7)...~.$.: F(N,5).F(N
,5).PE...8.: F(N,6).F(N,6).PE...L.:
F(N,7).F(N,7).PE...`.. N...T...D........
.. KALENDER-SUBROUTINE 1...... ---------
------------...D.. INVOER JAAR MAAND DAG
.+.X.. UITVOER TIJD.>.... MND.2 . 2600.N
...JAAR.JAAR.1.]...MND.MND.12...(.TYD..(
(JAAR.1984).365.25)..(MND.30.6.91.3).DAG
.721...<... .P.....D.. KALENDER-SUBROUTI
NE 2.X.X.. ---------------------...... I
NVOER TIJD... .. UITVOER JAAR MND DAG UU
R.....DAG.. (TYD.721).?.H.JAAR.1984..((D
AG.0.1).365.25).A...DAG.DAG..((JAAR.1984
).365.25).|...MND..((DAG.91.3).30.6)....
.DAG.DAG..(MND.30.6.91.3)...... MND.13 .
2900...,.JAAR.JAAR.1.L.@.MND.MND.12...T
.UUR.24.(TYD..(TYD))...H.....|........ A
2..8 . 3100. .... PRINT JAAR MND DAG UUR
.>.... -----------------------.U.... PR$
.."JA" . 3020.].B.. 1.P.L.. A2..8 . 3100
...... JAAR;" ";M$(MND);" ";...... DAG;"
";UUR".H"...... "" :. "".........0...U.
D.. BEPAAL XYZ-WAARDE...X.. ------------
-----...L.. INVOER TIJD EN EFEMERIDEN.!.
... UITVOER X Y Z.@.... MIDDELBARE ANOMA
LIE "MA".[...MA.F(N,3).(TYD.F(N,4)).V...
MA.MA.(..2.. (MA...2))...P.. EXCENTRISCH
E ANOMALIE "EA".....EA.MA.M...P.(MA.F(N,
2)..(EA).EA).(1.F(N,2)..(EA)).Y...EA.EA.
P... .. .(P).1E.7 . 3320...4.R.F(N,1).(1
.F(N,2)..(EA)).:.H.V.2.A(.((1.F(N,2)).(1
.F(N,2)))..(EA.2)).U.\.X.R.F(N,8)..(F(N,
5).V).P.P.Y.R.F(N,9)..(F(N,6).V).....Z.R
.F(N,10)..(F(N,7).V).................. B
EPAAL HEMELPOSITIE.L.T.. ---------------
----...... INVOER X Y Z...... UITVOER AL
FA DELTA AFST RAD.....RAD..(X.X.Y.Y.Z.Z)
.#.$.X.X.XX...8.Y.Y.YY.9.L.Z.Z.ZZ.Q.`.AF
ST..(X.X.Y.Y.Z.Z).A.T.ALFA.A(Y.X).~....
X.0 . ALFA.ALFA....(Y).....D.Z.AFST.....
DELTA.A(D..(.D.D.1))...D.....X...S.... P
RECESSIE VAN 2000 NAAR 1950...... ------
----------------------...... INVOER ALFA
DELTA.0.(.P.0.00485721..(ALFA)..(DELTA)
.S.<.DELTA.DELTA.0.00485721..(ALFA).O.P.
ALFA.ALFA.0.011178107.P.U.D...{.X.......
. HELDERHEID KOMEET HALLEY... .. -------
-----------------.T.... INVOER AFST RAD
TIJD...H.. UITVOER MAG.....MAG..(RAD)..(
10)...... TYD.0 . MAG.MAG.11.5.3.9.9....
TYD.0 . MAG.MAG.11.0.2.7.U...MAG.MAG..(
AFST)..(10).5.[.,...A.@...|.T.. STAART K
OMEET HALLEY...H.. --------------------.
..|.. INVOER TIJD;UITVOER SL(IN EA).Q...
. TYD ..80 . 4320...... TYD .0 . 4360...
... TYD .40 . 4400...L.. TYD .70 . 4440.
....SL.0.......4...SL.0.002.(TYD.80).:..
...P.0.SL.0.019.TYD.0.16.V.D...M.X.SL..0
.030.(TYD.70).S.L...Y.......... STAART H
ALLEY POSITIE...... --------------------
-.G.... INVOER X Y Z SL...P.. UITVOER XS
YS ZS RAD...... 4160.....RAD..(X.X.Y.Y.
Z.Z).....M.1.SL.RAD... .XS.X.M.).4.YS.Y.
M.4.H.ZS.Z.M.:.\...@.P...E.... OMZETTING
EQ.XYZ NAAR ECL. XYZ...... ------------
------------------...... INVOER X Y Z EP
S...... UITVOER X Y Z (EQ.2000).W.T.M.Y.
.(EPS).Z..(EPS).....Z.Z..(EPS).Y..(EPS).
....Y.M.........$...!.8.. SCHIJNBARE STA
ARTLENGTE.?.L.. -----------------------.
X.`.. INVOER DK AK (KOP).O.T.. DELTA ALF
A (ST.)...... UITVOER SM.....P..((DK.DEL
TA).2).....Q..((AK.ALFA).2).L.D.SM..(P.P
.Q.Q..(DELTA)..(DK))...X.SM.2.A(SM..(.SM
.SM.1)).................. EXTRA HALLEY G
EGEVENS 1./.(.. -----------------------.
G.<.. 3960: . MAGNITUDE.Z.P.. A2..8 . 53
20.B.D..""...X.. " MAGNITUDE:"
;...... .(MAG.10.0.5).10. . ..""...... "
STAART :";.E.H...K.........
. EXTRA HALLEY GEGEVENS 2...... --------
---------------...... 4900:. STAART...,.
. A2..8 . 5460.T.@.. .(SM.18000...0.5).1
00;" GRADEN".Z.T...`.H...~.|.. MAAK LIJS
T VAN POSITIES...... -------------------
----...... A2..8 . 5580.A.... ".DATUM: "
;.L.L.. 2940...... A2..8 . 5660.. ... "N
AAM ALFA DELTA".* ... ;?
"AFSTAND-AARDE -ZON":? "".8 ... N.1 . 7
.M 0.: . N.1 . 5760.J D.: . 3120: .
BEPAAL XYZ.. X.: . N.2 . . 4480:
. STAART.. L.: . 5820.. ..:
X.0.B ..: Y.0.N ..: Z.0.. ..: .
3500: . BEPAAL A,D.. P.: . 6100..!..:
. N..2 . 6060.,!..: . 5120: . MAGNI
TUDE.C!..: X.XS: . STAART.P! .: Y.YS
.]!4.: Z.ZS..!H.: DK.DELTA: . BEWAAR
KOPPOSITIE..!\.: AK.ALFA..!P.: . 35
00..!..: . 5340..!..: . 6100.H!... N
.N!....T!T....!... PRINT POSITIE UIT..".
.. -----------------.'"... INVOER ALFA D
ELTA RAD AFST N.D"$.. ALFA.0 . ALFA.ALFA
.2...\"8.PP.ALFA.12...1.1200.K"L.M..(DEL
TA).."`.QQ..(DELTA.180..).1.120.."T.P..(
PP).."..Q..(QQ).."..PP..(600.(PP.P)).10.
K"..QQ..(60.(QQ.Q)).."D.. A2..8 . 6440..
"X.. "".."... F$(N),P;PP;..#... M..1 . .
.25)" -";.+#... M..1 . . .25)" +";.F#(.
P..(RAD.1000.0.5).1000.C#<.PP..(AFST.100
0.0.5).1000.V#P.. A2..8 . 6780..#D.. Q;Q
Q:. TAB(25);PP;P..#X.A2.A2.1..#... A2.8
. 6840.F# .. A$:. A$."" . 6560..#... PR$
.."JA" . 6580..#... 1..#... "."..$H.. ".
DATUM: ";..$... JAAR;" ";M$(MND);" ";.3$
... DAG;" ";UUR".H".B$... "" :. "".^$...
"NAAM AFSTAND",.T$,.. .20) " -AAR
DE";..$@.. .30) " -ZON"..$T.. A2..8 . 67
60..$H.. 300..$|.. ""..$... F$(N),.O$...
.20) PP;.30) P.U$.....$L....$... MAAK L
IJST VAN RUIMTELIJKE..%... ECLIPTISCHE X
,Y,Z POSITIES.>%... --------------------
------.V%... A$:. A$."" . 6940.N%!.. PR$
.."JA" . 6960.V%&.. 1.%0.."."..%D.. "D
ATUM: ";..%X.. JAAR;" ";M$(MND);" ";.B%L
.. DAG;" ";UUR".H".K%... "".X%... "NAAM"
..%... ""..%..X..XX:. AARDE..%P.Y..YY..&
..Z..ZZ..&... 4720 :. DRAAIING.-&... "AA
RDE";.?& .. .10) "X:"X;.Q&4.. .25) "Y:"Y
;.B&H.. .50) "Z:"Z.P&\.. N.2 . 7..&P.:
. 3120:. BEPAAL XYZ..&..: . N.2 . . 4
480..&..: . 4720:. DRAAIING.N&..: .
F$(N);..&..: . .10) "X:"X;..&T.: . .
25) "Y:"Y;..'..: . .50) "Z:"Z.%'..:
. N..2 . 7600.2'..: X.XS.N'$.: Y.YS:
. STAART KOPIE.['8.: Z.ZS.J'L.: . 47
20.~'`.: . "STAART";..'T.: . .10) "X
:"X;..'..: . .25) "Y:"Y;..'..: . .50
) "Z:"Z.G'... N.M'D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL