RAINY DAY MOON
FILE INFORMATION
FILENAME(S): RAINY DAY MOON
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 18:12:03
APPEARS ON: 1 disk(s)
FILE HASH
15b2f9d2e8af9cfcd950b41c479774faccf46addc554442f00d7f5e7c312fe3f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 63 S 3 | RAINY DAY MOON | PRG | Sailor, Ganheden | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 1E 40 14 00 8F 20 20 20 41 20 4D 4F 4F 4E |.@.@... A MOON|
00000010: 20 46 4F 52 20 54 48 45 20 43 2D 31 32 38 00 42 | FOR THE C-128.B|
00000020: 40 46 00 8F 20 50 52 45 53 45 54 20 54 49 4D 45 |@F.. PRESET TIME|
00000030: 20 5A 4F 4E 45 20 49 4E 20 4E 45 58 54 20 4C 49 | ZONE IN NEXT LI|
00000040: 4E 45 00 4C 40 50 00 54 5A B2 AB 31 00 61 40 5A |NE.L@P.TZ..1.a@Z|
00000050: 00 86 20 50 41 28 34 29 3A 50 41 28 34 29 B2 AB |.. PA(4):PA(4)..|
00000060: 31 00 6A 40 64 00 5A 46 B2 30 00 79 40 6E 00 59 |1.j@d.ZF.0.y@n.Y|
00000070: 42 B2 32 34 34 37 31 31 39 00 9F 40 78 00 43 B2 |B.2447119..@x.C.|
00000080: 35 36 33 32 38 3A 8F 20 43 49 41 31 20 43 4C 4F |56328:. CIA1 CLO|
00000090: 43 4B 20 42 41 53 45 20 41 44 44 52 45 53 53 00 |CK BASE ADDRESS.|
000000A0: CE 40 82 00 4E 4D 24 B2 22 4A 41 4E 46 45 42 4D |.@..NM$."JANFEBM|
000000B0: 41 52 41 50 52 4D 41 59 4A 55 4E 4A 55 4C 41 55 |ARAPRMAYJUNJULAU|
000000C0: 47 53 45 50 4F 43 54 4E 4F 56 44 45 43 22 00 DB |GSEPOCTNOVDEC"..|
000000D0: 40 8C 00 86 20 57 44 24 28 36 29 00 07 41 96 00 |@... WD$(6)..A..|
000000E0: 57 44 24 28 30 29 B2 22 53 55 4E 22 3A 57 44 24 |WD$(0)."SUN":WD$|
000000F0: 28 31 29 B2 22 4D 4F 4E 22 3A 57 44 24 28 32 29 |(1)."MON":WD$(2)|
00000100: B2 22 54 55 45 53 22 00 46 41 A0 00 57 44 24 28 |."TUES".FA..WD$(|
00000110: 33 29 B2 22 57 45 44 4E 45 53 22 3A 57 44 24 28 |3)."WEDNES":WD$(|
00000120: 34 29 B2 22 54 48 55 52 53 22 3A 57 44 24 28 35 |4)."THURS":WD$(5|
00000130: 29 B2 22 46 52 49 22 3A 57 44 24 28 36 29 B2 22 |)."FRI":WD$(6)."|
00000140: 53 41 54 55 52 22 00 58 41 AA 00 57 39 B2 30 3A |SATUR".XA..W9.0:|
00000150: 57 36 B2 AB 31 30 30 30 00 82 41 B4 00 97 20 43 |W6..1000..A... C|
00000160: AA 37 2C C2 28 43 AA 37 29 20 AF 20 31 32 37 20 |.7,.(C.7) . 127 |
00000170: 3A 20 8F 20 53 45 54 20 43 4C 4F 43 4B 20 54 49 |: . SET CLOCK TI|
00000180: 4D 45 00 AE 41 BE 00 97 20 43 AA 36 2C C2 28 43 |ME..A... C.6,.(C|
00000190: AA 36 29 20 AF 20 31 32 38 20 3A 20 8F 20 4C 49 |.6) . 128 : . LI|
000001A0: 4E 45 20 46 52 45 51 20 3D 20 36 30 48 5A 00 B8 |NE FREQ = 60HZ..|
000001B0: 41 C3 00 8D 34 30 30 30 00 ED 41 C8 00 99 22 9F |A...4000..A...".|
000001C0: 20 20 20 45 4E 54 45 52 20 54 49 4D 45 20 41 53 | ENTER TIME AS|
000001D0: 20 48 48 4D 4D 53 53 3A 20 22 3B 3A 4C 39 B2 36 | HHMMSS: ";:L9.6|
000001E0: 3A 8D 35 30 30 30 3A 41 24 B2 51 39 24 00 FE 41 |:.5000:A$.Q9$..A|
000001F0: D2 00 48 B2 C5 28 C8 28 41 24 2C 32 29 29 00 11 |..H..(.(A$,2))..|
00000200: 42 DC 00 4D B2 C5 28 CA 28 41 24 2C 33 2C 32 29 |B..M..(.(A$,3,2)|
00000210: 29 00 22 42 E6 00 53 B2 C5 28 CA 28 41 24 2C 35 |)."B..S..(.(A$,5|
00000220: 29 29 00 4E 42 F0 00 8B 20 48 B1 32 33 20 B0 20 |)).NB... H.23 . |
00000230: 4D B1 35 39 20 B0 20 53 B1 35 39 20 A7 99 C7 28 |M.59 . S.59 ...(|
00000240: 37 29 3A 99 22 91 91 91 22 3A 89 32 30 30 00 66 |7):."...":.200.f|
00000250: 42 FA 00 45 B2 48 3A 8B 20 45 B1 31 31 20 A7 20 |B..E.H:. E.11 . |
00000260: 45 B2 45 AA 36 38 00 88 42 04 01 97 20 43 AA 33 |E.E.68..B... C.3|
00000270: 2C 31 36 AC B5 28 45 AD 31 30 29 AA 45 AB B5 28 |,16..(E.10).E..(|
00000280: 45 AD 31 30 29 AC 31 30 00 AA 42 0E 01 97 20 43 |E.10).10..B... C|
00000290: AA 32 2C 31 36 AC B5 28 4D AD 31 30 29 AA 4D AB |.2,16..(M.10).M.|
000002A0: B5 28 4D AD 31 30 29 AC 31 30 00 CC 42 18 01 97 |.(M.10).10..B...|
000002B0: 20 43 AA 31 2C 31 36 AC B5 28 53 AD 31 30 29 AA | C.1,16..(S.10).|
000002C0: 53 AB B5 28 53 AD 31 30 29 AC 31 30 00 EE 42 22 |S..(S.10).10..B"|
000002D0: 01 97 20 43 2C 30 20 3A 20 8F 20 54 45 4E 54 48 |.. C,0 : . TENTH|
000002E0: 53 2C 20 53 54 41 52 54 20 43 4C 4F 43 4B 00 01 |S, START CLOCK..|
000002F0: 43 2C 01 8F 20 20 4F 42 54 41 49 4E 20 44 41 54 |C,.. OBTAIN DAT|
00000300: 45 00 32 43 36 01 99 22 11 9F 20 20 20 45 4E 54 |E.2C6..".. ENT|
00000310: 45 52 20 44 41 54 45 20 41 53 20 59 59 4D 4D 44 |ER DATE AS YYMMD|
00000320: 44 3A 20 22 3B 3A 8D 35 30 30 30 3A 41 24 B2 51 |D: ";:.5000:A$.Q|
00000330: 39 24 00 49 43 40 01 59 59 B2 C5 28 C8 28 41 24 |9$.IC@.YY..(.(A$|
00000340: 2C 32 29 29 AA 31 39 30 30 00 63 43 4A 01 8B 20 |,2)).1900.cCJ.. |
00000350: 59 59 B3 31 39 38 38 20 A7 20 59 59 B2 59 59 AA |YY.1988 . YY.YY.|
00000360: 31 30 30 00 77 43 54 01 4D 4D B2 C5 28 CA 28 41 |100.wCT.MM..(.(A|
00000370: 24 2C 33 2C 32 29 29 00 89 43 5E 01 44 44 B2 C5 |$,3,2))..C^.DD..|
00000380: 28 CA 28 41 24 2C 35 29 29 00 BF 43 68 01 8B 20 |(.(A$,5))..Ch.. |
00000390: 4D 4D B3 31 20 B0 20 4D 4D B1 31 32 20 B0 20 44 |MM.1 . MM.12 . D|
000003A0: 44 B3 31 20 B0 20 44 44 B1 33 31 20 A7 99 C7 28 |D.1 . DD.31 ...(|
000003B0: 37 29 3A 99 22 91 91 91 91 22 3A 89 33 31 30 00 |7):."....":.310.|
000003C0: D1 43 72 01 8B 20 54 5A B1 AB 31 20 A7 20 34 33 |.Cr.. TZ..1 . 43|
000003D0: 30 00 E7 43 7C 01 99 20 22 11 9F 54 49 4D 45 20 |0..C|.. "..TIME |
000003E0: 5A 4F 4E 45 53 3A 22 00 19 44 86 01 99 20 22 11 |ZONES:"..D... ".|
000003F0: 1E 20 20 20 20 20 20 20 45 41 53 54 45 52 4E 20 |. EASTERN |
00000400: 43 45 4E 54 52 41 4C 20 4D 4F 55 4E 54 41 49 4E |CENTRAL MOUNTAIN|
00000410: 20 50 41 43 49 46 49 43 22 00 48 44 90 01 99 20 | PACIFIC".HD... |
00000420: 22 11 53 54 41 4E 44 41 52 44 05 20 20 20 35 20 |".STANDARD. 5 |
00000430: 20 20 20 20 20 36 20 20 20 20 20 20 20 37 20 20 | 6 7 |
00000440: 20 20 20 20 20 20 38 22 00 78 44 9A 01 99 20 22 | 8".xD... "|
00000450: 11 1E 44 41 59 4C 49 47 48 54 05 20 20 20 34 20 |..DAYLIGHT. 4 |
00000460: 20 20 20 20 20 35 20 20 20 20 20 20 20 36 20 20 | 5 6 |
00000470: 20 20 20 20 20 20 37 22 00 C0 44 A4 01 99 22 11 | 7"..D...".|
00000480: 9F 20 54 49 4D 45 20 5A 4F 4E 45 3A 20 22 3B 3A |. TIME ZONE: ";:|
00000490: 4C 39 B2 31 3A 8D 35 30 30 30 3A 54 5A B2 C5 28 |L9.1:.5000:TZ..(|
000004A0: 51 39 24 29 3A 8B 54 5A B3 30 B0 54 5A B1 32 34 |Q9$):.TZ.0.TZ.24|
000004B0: A7 99 C7 28 37 29 22 91 91 91 22 3A 89 34 32 30 |...(7)"...":.420|
000004C0: 00 DF 44 AE 01 5A 38 B2 48 3A 48 31 B2 48 3A 4D |..D..Z8.H:H1.H:M|
000004D0: 31 B2 4D 3A 53 31 B2 53 3A 8D 20 31 36 32 30 00 |1.M:S1.S:. 1620.|
000004E0: F6 44 B8 01 E7 20 30 2C 37 3A E7 20 31 2C 32 3A |.D... 0,7:. 1,2:|
000004F0: E8 3A E7 34 2C 37 00 00 45 C2 01 DE 20 31 2C 31 |.:.4,7..E... 1,1|
00000500: 00 1B 45 CC 01 8F 20 46 55 4E 43 54 49 4F 4E 20 |..E... FUNCTION |
00000510: 44 45 46 49 4E 49 54 49 4F 4E 53 00 31 45 D6 01 |DEFINITIONS.1E..|
00000520: 96 20 A5 52 28 58 29 B2 58 AC 28 FF AD 31 38 30 |. .R(X).X.(..180|
00000530: 29 00 47 45 E0 01 96 20 A5 44 28 58 29 B2 58 AC |).GE... .D(X).X.|
00000540: 28 31 38 30 AD FF 29 00 66 45 EA 01 96 20 A5 46 |(180..).fE... .F|
00000550: 28 58 29 B2 28 58 AB 33 36 30 AC 28 B5 28 58 AD |(X).(X.360.(.(X.|
00000560: 33 36 30 29 29 29 00 7B 45 F4 01 96 20 A5 53 28 |360))).{E... .S(|
00000570: 58 29 B2 BF 28 A5 52 28 58 29 29 00 90 45 FE 01 |X)..(.R(X))..E..|
00000580: 96 20 A5 43 28 58 29 B2 BE 28 A5 52 28 58 29 29 |. .C(X)..(.R(X))|
00000590: 00 AA 45 08 02 96 20 A5 41 28 58 29 B2 C1 28 58 |..E... .A(X)..(X|
000005A0: AD BA 28 31 AB 58 AC 58 29 29 00 C6 45 12 02 45 |..(1.X.X))..E..E|
000005B0: 4F B2 30 2E 30 31 36 37 31 38 20 3A 20 4D 43 B2 |O.0.016718 : MC.|
000005C0: 30 2E 30 35 34 39 00 D1 45 1C 02 8D 20 33 35 38 |0.0549..E... 358|
000005D0: 30 00 E4 45 26 02 8F 20 20 20 20 4D 41 49 4E 20 |0..E&.. MAIN |
000005E0: 4C 4F 4F 50 00 EE 45 30 02 8D 20 36 34 30 00 04 |LOOP..E0.. 640..|
000005F0: 46 3A 02 A1 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |F:..A$:. A$."" .|
00000600: 20 35 36 30 00 48 46 44 02 8B 41 24 B2 22 46 22 | 560.HFD..A$."F"|
00000610: A7 5A 46 B2 31 AB 5A 46 3A E7 20 31 2C 34 3A E0 |.ZF.1.ZF:. 1,4:.|
00000620: 20 31 2C 34 2C 31 38 2C 22 53 4C 4F 57 22 3A 8B | 1,4,18,"SLOW":.|
00000630: 5A 46 A7 20 E0 20 31 2C 34 2C 31 38 2C 22 46 41 |ZF. . 1,4,18,"FA|
00000640: 53 54 22 3A 89 35 36 30 00 59 46 49 02 8B 41 24 |ST":.560.YFI..A$|
00000650: B2 22 51 22 A7 36 30 30 30 00 62 46 4B 02 89 35 |."Q".6000.bFK..5|
00000660: 36 30 00 6E 46 4E 02 DE 20 9C 20 3A 20 90 00 91 |60.nFN.. . : ...|
00000670: 46 62 02 8F 20 41 50 50 4C 59 20 55 50 44 41 54 |Fb.. APPLY UPDAT|
00000680: 45 53 20 41 50 50 52 4F 50 52 49 41 54 45 20 54 |ES APPROPRIATE T|
00000690: 4F 00 A2 46 6C 02 8F 20 54 48 49 53 20 54 49 4D |O..Fl.. THIS TIM|
000006A0: 45 2E 00 BE 46 80 02 8B 20 5A 46 20 A7 20 4A 46 |E...F... ZF . JF|
000006B0: B2 4A 46 AA 2E 35 20 3A 20 89 20 37 37 30 00 CA |.JF..5 : . 770..|
000006C0: 46 8A 02 43 B2 35 36 33 32 38 00 F0 46 94 02 48 |F..C.56328..F..H|
000006D0: B2 C2 28 43 AA 33 29 3A 4D B2 C2 28 43 AA 32 29 |..(C.3):M..(C.2)|
000006E0: 3A 53 B2 C2 28 43 AA 31 29 3A 54 B2 C2 28 43 29 |:S..(C.1):T..(C)|
000006F0: 00 F9 46 9E 02 50 4D B2 31 00 17 47 A8 02 8B 20 |..F..PM.1..G... |
00000700: 48 B1 33 32 20 A7 20 48 B2 48 20 AF 20 31 32 37 |H.32 . H.H . 127|
00000710: 20 3A 20 50 4D B2 30 00 35 47 B2 02 48 B2 B5 28 | : PM.0.5G..H..(|
00000720: 48 AD 31 36 29 AC 31 30 AA 48 AB B5 28 48 AD 31 |H.16).10.H..(H.1|
00000730: 36 29 AC 31 36 00 50 47 BC 02 8B 20 50 4D B2 30 |6).16.PG... PM.0|
00000740: 20 AF 20 48 B3 31 32 20 A7 20 48 B2 48 AA 31 32 | . H.12 . H.H.12|
00000750: 00 68 47 C6 02 8B 20 50 4D B2 31 20 AF 20 48 B2 |.hG... PM.1 . H.|
00000760: 31 32 20 A7 20 48 B2 30 00 86 47 D0 02 4D B2 B5 |12 . H.0..G..M..|
00000770: 28 4D AD 31 36 29 AC 31 30 AA 4D AB B5 28 4D AD |(M.16).10.M..(M.|
00000780: 31 36 29 AC 31 36 00 A4 47 DA 02 53 B2 B5 28 53 |16).16..G..S..(S|
00000790: AD 31 36 29 AC 31 30 AA 53 AB B5 28 53 AD 31 36 |.16).10.S..(S.16|
000007A0: 29 AC 31 36 00 C9 47 E4 02 4A 46 B2 28 53 AA 36 |).16..G..JF.(S.6|
000007B0: 30 AC 28 4D AA 36 30 AC 48 29 29 AD 38 36 34 30 |0.(M.60.H)).8640|
000007C0: 30 AA 28 54 5A AD 32 34 29 00 DE 47 EE 02 8B 20 |0.(TZ.24)..G... |
000007D0: 48 B3 5A 38 20 A7 20 4A 42 B2 4A 42 AA 31 00 E7 |H.Z8 . JB.JB.1..|
000007E0: 47 F8 02 5A 38 B2 48 00 F4 47 02 03 4A 44 B2 4A |G..Z8.H..G..JD.J|
000007F0: 42 AA 4A 46 00 FD 47 0C 03 44 B2 4A 44 00 08 48 |B.JF..G..D.JD..H|
00000800: 16 03 8D 20 31 32 34 30 00 12 48 20 03 E7 20 31 |... 1240..H .. 1|
00000810: 2C 32 00 22 48 2A 03 E0 20 31 2C 31 36 2C 32 2C |,2."H*.. 1,16,2,|
00000820: 44 24 00 33 48 34 03 44 B2 4A 44 AB 28 54 5A AD |D$.3H4.D.JD.(TZ.|
00000830: 32 34 29 00 3E 48 3E 03 8D 20 31 32 34 30 00 4E |24).>H>.. 1240.N|
00000840: 48 48 03 E0 20 31 2C 31 36 2C 31 2C 44 24 00 77 |HH.. 1,16,1,D$.w|
00000850: 48 52 03 44 24 B2 C9 28 22 30 30 30 30 30 22 AA |HR.D$..("00000".|
00000860: CA 28 C4 28 B5 28 4A 46 AC 31 30 30 30 30 30 29 |.(.(.(JF.100000)|
00000870: 29 2C 32 29 2C 35 29 00 95 48 5C 03 44 24 B2 C4 |),2),5)..H\.D$..|
00000880: 28 59 42 AA B5 28 4A 44 AA 30 2E 35 29 29 AA 22 |(YB..(JD.0.5))."|
00000890: 2E 22 AA 44 24 00 A5 48 66 03 E0 20 31 2C 31 35 |.".D$..Hf.. 1,15|
000008A0: 2C 33 2C 44 24 00 BD 48 70 03 44 B2 B5 28 4A 44 |,3,D$..Hp.D..(JD|
000008B0: AB 54 5A AD 32 34 AA 30 2E 35 29 AA 34 00 CE 48 |.TZ.24.0.5).4..H|
000008C0: 7A 03 44 B2 44 AB 37 AC B5 28 44 AD 37 29 00 EB |z.D.D.7..(D.7)..|
000008D0: 48 84 03 E0 20 31 2C 31 36 2C 34 2C 57 44 24 28 |H... 1,16,4,WD$(|
000008E0: 44 29 AA 22 44 41 59 20 20 20 22 00 F5 48 8E 03 |D)."DAY "..H..|
000008F0: 54 44 B2 4A 44 00 00 49 98 03 8D 20 32 31 34 30 |TD.JD..I... 2140|
00000900: 00 0A 49 A2 03 E7 20 31 2C 38 00 2B 49 AC 03 E0 |..I... 1,8.+I...|
00000910: 20 31 2C 30 2C 38 2C CA 28 C4 28 53 44 AA 30 2E | 1,0,8,.(.(SD.0.|
00000920: 35 29 2C 32 29 AA 22 20 4B 4D 22 00 66 49 B6 03 |5),2)." KM".fI..|
00000930: E0 20 31 2C 30 2C 39 2C CA 28 C4 28 53 44 AD 31 |. 1,0,9,.(.(SD.1|
00000940: 2E 34 39 35 39 38 35 45 38 AA 31 30 2E 30 30 30 |.495985E8.10.000|
00000950: 35 29 AA 22 30 30 30 30 22 2C 33 2C 35 29 AA 22 |5)."0000",3,5)."|
00000960: 20 41 2E 55 2E 22 00 97 49 C0 03 E0 20 31 2C 30 | A.U."..I... 1,0|
00000970: 2C 31 32 2C CA 28 C4 28 31 30 2E 30 30 30 30 35 |,12,.(.(10.00005|
00000980: AA 53 41 29 AA 22 30 30 30 30 22 2C 33 2C 36 29 |.SA)."0000",3,6)|
00000990: AA 22 20 44 45 47 22 00 A2 49 CA 03 E7 20 31 2C |." DEG"..I... 1,|
000009A0: 31 36 00 CD 49 D4 03 E0 20 31 2C 33 30 2C 31 35 |16..I... 1,30,15|
000009B0: 2C CA 28 C4 28 B5 28 50 48 AC 31 30 30 29 29 2C |,.(.(.(PH.100)),|
000009C0: 32 29 AA 22 25 20 46 55 4C 4C 20 20 22 00 E6 49 |2)."% FULL "..I|
000009D0: DE 03 44 24 B2 CA 28 C4 28 B5 28 4D 47 29 29 2C |..D$..(.(.(MG)),|
000009E0: 32 29 AA 22 44 22 00 FD 49 E8 03 54 B2 B5 28 32 |2)."D"..I..T..(2|
000009F0: 34 AC 28 4D 47 AB B5 28 4D 47 29 29 29 00 10 4A |4.(MG..(MG)))..J|
00000A00: F2 03 44 24 B2 44 24 AA C4 28 54 29 AA 22 3A 22 |..D$.D$..(T).":"|
00000A10: 00 2F 4A FC 03 44 24 B2 44 24 AA C9 28 22 30 30 |./J..D$.D$..("00|
00000A20: 22 AA CA 28 C4 28 4D 37 29 2C 32 29 2C 32 29 00 |"..(.(M7),2),2).|
00000A30: 47 4A 06 04 8B 20 4D 47 B3 31 30 20 A7 20 44 24 |GJ... MG.10 . D$|
00000A40: B2 44 24 AA 22 20 22 00 5E 4A 10 04 8B 20 54 B3 |.D$." ".^J... T.|
00000A50: 31 30 20 A7 20 44 24 B2 44 24 AA 22 20 22 00 6F |10 . D$.D$." ".o|
00000A60: 4A 1A 04 E0 20 31 2C 33 30 2C 31 38 2C 44 24 00 |J... 1,30,18,D$.|
00000A70: 94 4A 24 04 E0 20 31 2C 33 30 2C 38 2C CA 28 C4 |.J$.. 1,30,8,.(.|
00000A80: 28 B5 28 4D 44 AA 30 2E 35 29 29 2C 32 29 AA 22 |(.(MD.0.5)),2)."|
00000A90: 20 4B 4D 22 00 CB 4A 2E 04 E0 20 31 2C 33 30 2C | KM"..J... 1,30,|
00000AA0: 39 2C CA 28 C4 28 4D 44 AD 36 33 37 38 2E 31 36 |9,.(.(MD.6378.16|
00000AB0: AA 30 2E 30 35 29 AA 22 30 30 30 30 22 2C 32 2C |.0.05)."0000",2,|
00000AC0: 34 29 AA 22 20 45 20 52 41 44 22 00 FD 4A 38 04 |4)." E RAD"..J8.|
00000AD0: E0 20 31 2C 33 30 2C 31 32 2C CA 28 C4 28 31 30 |. 1,30,12,.(.(10|
00000AE0: 2E 30 30 30 30 35 AA 4D 53 29 AA 22 30 30 30 30 |.00005.MS)."0000|
00000AF0: 22 2C 33 2C 36 29 AA 22 20 44 45 47 22 00 08 4B |",3,6)." DEG"..K|
00000B00: 42 04 8D 20 33 33 33 30 00 1E 4B 4C 04 8B 20 4A |B.. 3330..KL.. J|
00000B10: 44 B3 50 41 28 34 29 20 A7 20 31 32 30 30 00 28 |D.PA(4) . 1200.(|
00000B20: 4B 56 04 53 44 B2 4A 44 00 33 4B 60 04 8D 20 33 |KV.SD.JD.3K`.. 3|
00000B30: 31 30 30 00 3D 4B 6A 04 E7 20 31 2C 32 00 67 4B |100.=Kj.. 1,2.gK|
00000B40: 74 04 4C 55 B2 B5 28 28 28 50 41 28 30 29 AA 37 |t.LU..(((PA(0).7|
00000B50: 29 AA 32 33 36 38 33 29 AD 32 39 2E 35 33 30 35 |).23683).29.5305|
00000B60: 38 38 36 38 29 AA 31 00 A6 4B 7E 04 44 B2 50 41 |8868).1..K~.D.PA|
00000B70: 28 30 29 3A 8D 20 31 33 37 30 3A E0 20 31 2C 30 |(0):. 1370:. 1,0|
00000B80: 2C 32 30 2C 22 4E 45 57 20 4D 4F 4F 4E 3A 20 20 |,20,"NEW MOON: |
00000B90: 22 AA 44 24 AA 22 20 4C 55 4E 41 54 49 4F 4E 22 |".D$." LUNATION"|
00000BA0: AA C4 28 4C 55 29 00 D3 4B 88 04 44 B2 50 41 28 |..(LU)..K..D.PA(|
00000BB0: 31 29 3A 8D 20 31 33 37 30 3A E0 20 31 2C 30 2C |1):. 1370:. 1,0,|
00000BC0: 32 31 2C 22 46 49 52 53 54 20 51 54 52 3A 20 22 |21,"FIRST QTR: "|
00000BD0: AA 44 24 00 00 4C 92 04 44 B2 50 41 28 32 29 3A |.D$..L..D.PA(2):|
00000BE0: 8D 20 31 33 37 30 3A E0 20 31 2C 30 2C 32 32 2C |. 1370:. 1,0,22,|
00000BF0: 22 46 55 4C 4C 20 4D 4F 4F 4E 3A 20 22 AA 44 24 |"FULL MOON: ".D$|
00000C00: 00 2D 4C 9C 04 44 B2 50 41 28 33 29 3A 8D 20 31 |.-L..D.PA(3):. 1|
00000C10: 33 37 30 3A E0 20 31 2C 30 2C 32 33 2C 22 4C 41 |370:. 1,0,23,"LA|
00000C20: 53 54 20 51 54 52 3A 20 20 22 AA 44 24 00 6E 4C |ST QTR: ".D$.nL|
00000C30: A6 04 44 B2 50 41 28 34 29 3A 8D 20 31 33 37 30 |..D.PA(4):. 1370|
00000C40: 3A E0 20 31 2C 30 2C 32 34 2C 22 4E 45 58 54 20 |:. 1,0,24,"NEXT |
00000C50: 4E 45 57 3A 20 20 22 AA 44 24 AA 22 20 4C 55 4E |NEW: ".D$." LUN|
00000C60: 41 54 49 4F 4E 22 AA C4 28 4C 55 AA 31 29 00 74 |ATION"..(LU.1).t|
00000C70: 4C B0 04 8E 00 99 4C C4 04 8F 20 45 44 49 54 20 |L.....L... EDIT |
00000C80: 4A 55 4C 49 41 4E 20 44 41 54 45 20 54 4F 20 43 |JULIAN DATE TO C|
00000C90: 49 56 49 4C 20 44 41 54 45 00 A2 4C D8 04 54 44 |IVIL DATE..L..TD|
00000CA0: B2 44 00 AD 4C E2 04 8D 20 31 37 33 30 00 B8 4C |.D..L... 1730..L|
00000CB0: EC 04 8D 20 31 39 32 30 00 D2 4C F6 04 44 24 B2 |... 1920..L..D$.|
00000CC0: C9 28 C4 28 48 38 AA 31 30 30 29 2C 32 29 AA 22 |.(.(H8.100),2)."|
00000CD0: 3A 22 00 EF 4C 00 05 44 24 B2 44 24 AA C9 28 C4 |:"..L..D$.D$..(.|
00000CE0: 28 4D 38 AA 31 30 30 29 2C 32 29 AA 22 3A 22 00 |(M8.100),2).":".|
00000CF0: 0C 4D 0A 05 44 24 B2 44 24 AA C9 28 C4 28 53 38 |.M..D$.D$..(.(S8|
00000D00: AA 31 30 30 29 2C 32 29 AA 22 20 22 00 2A 4D 14 |.100),2)." ".*M.|
00000D10: 05 44 24 B2 44 24 AA C9 28 22 20 20 22 AA C4 28 |.D$.D$..(" "..(|
00000D20: 44 39 29 2C 32 29 AA 22 20 22 00 48 4D 1E 05 44 |D9),2)." ".HM..D|
00000D30: 24 B2 44 24 AA CA 28 4E 4D 24 2C 31 AA 28 4D 39 |$.D$..(NM$,1.(M9|
00000D40: AB 31 29 AC 33 2C 33 29 00 58 4D 28 05 44 24 B2 |.1).3,3).XM(.D$.|
00000D50: 44 24 AA C4 28 59 39 29 00 5E 4D 32 05 8E 00 83 |D$..(Y9).^M2....|
00000D60: 4D 46 05 8F 20 45 44 49 54 20 4A 55 4C 49 41 4E |MF.. EDIT JULIAN|
00000D70: 20 44 41 54 45 20 54 4F 20 53 48 4F 52 54 20 44 | DATE TO SHORT D|
00000D80: 41 54 45 00 8C 4D 5A 05 54 44 B2 44 00 97 4D 64 |ATE..MZ.TD.D..Md|
00000D90: 05 8D 20 31 37 33 30 00 A2 4D 6E 05 8D 20 31 39 |.. 1730..Mn.. 19|
00000DA0: 32 30 00 BC 4D 78 05 44 24 B2 C9 28 C4 28 48 38 |20..Mx.D$..(.(H8|
00000DB0: AA 31 30 30 29 2C 32 29 AA 22 3A 22 00 D9 4D 82 |.100),2).":"..M.|
00000DC0: 05 44 24 B2 44 24 AA C9 28 C4 28 4D 38 AA 31 30 |.D$.D$..(.(M8.10|
00000DD0: 30 29 2C 32 29 AA 22 20 22 00 F7 4D 8C 05 44 24 |0),2)." "..M..D$|
00000DE0: B2 44 24 AA C9 28 22 20 20 22 AA C4 28 44 39 29 |.D$..(" "..(D9)|
00000DF0: 2C 32 29 AA 22 20 22 00 19 4E 96 05 44 24 B2 44 |,2)." "..N..D$.D|
00000E00: 24 AA CA 28 4E 4D 24 2C 31 AA 28 4D 39 AB 31 29 |$..(NM$,1.(M9.1)|
00000E10: AC 33 2C 33 29 AA 22 20 22 00 40 4E A0 05 44 24 |.3,3)." ".@N..D$|
00000E20: B2 44 24 AA C9 28 C4 28 31 30 30 AA 59 39 AB 31 |.D$..(.(100.Y9.1|
00000E30: 30 30 AC B5 28 59 39 AD 31 30 30 29 29 2C 32 29 |00..(Y9.100)),2)|
00000E40: 00 46 4E AA 05 8E 00 68 4E BE 05 8F 20 43 4F 4E |.FN....hN... CON|
00000E50: 56 45 52 54 20 44 41 54 45 20 49 4E 20 59 2C 20 |VERT DATE IN Y, |
00000E60: 4D 2C 20 41 4E 44 20 44 00 82 4E C8 05 8F 20 54 |M, AND D..N... T|
00000E70: 4F 20 4A 55 4C 49 41 4E 20 44 41 54 45 20 49 4E |O JULIAN DATE IN|
00000E80: 20 4A 00 A3 4E DC 05 8B 20 4D B1 32 20 A7 20 4D | J..N... M.2 . M|
00000E90: B2 4D AB 33 20 3A D5 20 4D B2 4D AA 39 3A 59 B2 |.M.3 :. M.M.9:Y.|
00000EA0: 59 AB 31 00 B2 4E E6 05 43 B2 B5 28 59 AD 31 30 |Y.1..N..C..(Y.10|
00000EB0: 30 29 00 C2 4E F0 05 59 B2 59 AB 28 31 30 30 AC |0)..N..Y.Y.(100.|
00000EC0: 43 29 00 F7 4E FA 05 4A B2 44 AA B5 28 28 43 AC |C)..N..J.D..((C.|
00000ED0: 31 34 36 30 39 37 29 AD 34 29 AA B5 28 28 59 AC |146097).4)..((Y.|
00000EE0: 31 34 36 31 29 AD 34 29 AA B5 28 28 4D AC 31 35 |1461).4)..((M.15|
00000EF0: 33 AA 32 29 AD 35 29 00 06 4F 04 06 4A B2 4A AB |3.2).5)..O..J.J.|
00000F00: 37 32 36 30 30 30 00 0C 4F 0E 06 8E 00 2E 4F 22 |726000..O.....O"|
00000F10: 06 8F 20 43 4F 4E 56 45 52 54 20 4C 4F 43 41 4C |.. CONVERT LOCAL|
00000F20: 20 44 41 54 45 20 41 4E 44 20 54 49 4D 45 00 52 | DATE AND TIME.R|
00000F30: 4F 2C 06 8F 20 49 4E 20 59 59 2C 20 4D 4D 2C 20 |O,.. IN YY, MM, |
00000F40: 44 44 2C 20 41 4E 44 20 48 31 2C 20 4D 31 2C 20 |DD, AND H1, M1, |
00000F50: 53 31 00 76 4F 36 06 8F 20 49 4E 54 4F 20 41 53 |S1.vO6.. INTO AS|
00000F60: 54 52 4F 4E 4F 4D 49 43 41 4C 20 4A 55 4C 49 41 |TRONOMICAL JULIA|
00000F70: 4E 20 44 41 54 45 00 83 4F 40 06 8F 20 49 4E 20 |N DATE..O@.. IN |
00000F80: 4A 44 2E 00 96 4F 54 06 59 B2 59 59 3A 4D B2 4D |JD...OT.Y.YY:M.M|
00000F90: 4D 3A 44 B2 44 44 00 A1 4F 5E 06 8D 20 31 35 30 |M:D.DD..O^.. 150|
00000FA0: 30 00 AE 4F 68 06 4A 42 B2 4A AB 30 2E 35 00 D6 |0..Oh.JB.J.0.5..|
00000FB0: 4F 72 06 4A 46 B2 28 53 31 AA 36 30 AC 28 4D 31 |Or.JF.(S1.60.(M1|
00000FC0: AA 36 30 AC 48 31 29 29 AD 38 36 34 30 30 AA 28 |.60.H1)).86400.(|
00000FD0: 54 5A AD 32 34 29 00 E3 4F 7C 06 4A 44 B2 4A 42 |TZ.24)..O|.JD.JB|
00000FE0: AA 4A 46 00 E9 4F 86 06 8E 00 09 50 9A 06 8F 20 |.JF..O.....P... |
00000FF0: 43 4F 4E 56 45 52 54 20 4A 55 4C 49 41 4E 20 44 |CONVERT JULIAN D|
00001000: 41 54 45 20 49 4E 20 54 44 00 2C 50 A4 06 8F 20 |ATE IN TD.,P... |
00001010: 49 4E 54 4F 20 59 39 2C 20 4D 39 2C 20 44 39 20 |INTO Y9, M9, D9 |
00001020: 52 45 50 52 45 53 45 4E 54 49 4E 47 00 48 50 AE |REPRESENTING.HP.|
00001030: 06 8F 20 59 45 41 52 2C 20 4D 4F 4E 54 48 2C 20 |.. YEAR, MONTH, |
00001040: 41 4E 44 20 44 41 59 2E 00 58 50 C2 06 4A B2 B5 |AND DAY..XP..J..|
00001050: 28 54 44 AA 30 2E 35 29 00 67 50 CC 06 4A B2 4A |(TD.0.5).gP..J.J|
00001060: AA 37 32 36 30 30 30 00 83 50 D6 06 59 B2 B5 28 |.726000..P..Y..(|
00001070: 28 28 34 AC 4A 29 AB 31 29 AD 31 34 36 30 39 37 |((4.J).1).146097|
00001080: 2E 30 29 00 A4 50 E0 06 4A B2 28 4A AC 34 2E 30 |.0)..P..J.(J.4.0|
00001090: 29 AB 28 31 2E 30 AA 28 31 34 36 30 39 37 2E 30 |).(1.0.(146097.0|
000010A0: AC 59 29 29 00 B3 50 EA 06 44 B2 B5 28 4A AD 34 |.Y))..P..D..(J.4|
000010B0: 2E 30 29 00 D1 50 F4 06 4A B2 B5 28 28 28 34 2E |.0)..P..J..(((4.|
000010C0: 30 AC 44 29 AA 33 2E 30 29 AD 31 34 36 31 2E 30 |0.D).3.0).1461.0|
000010D0: 29 00 F0 50 FE 06 44 B2 28 28 34 2E 30 AC 44 29 |)..P..D.((4.0.D)|
000010E0: AA 33 2E 30 29 AB 28 31 34 36 31 2E 30 AC 4A 29 |.3.0).(1461.0.J)|
000010F0: 00 05 51 08 07 44 B2 B5 28 28 44 AA 34 2E 30 29 |..Q..D..((D.4.0)|
00001100: AD 34 2E 30 29 00 20 51 12 07 4D B2 B5 28 28 28 |.4.0). Q..M..(((|
00001110: 35 2E 30 AC 44 29 AB 33 29 AD 31 35 33 2E 30 29 |5.0.D).3).153.0)|
00001120: 00 3E 51 1C 07 44 B2 28 35 2E 30 AC 44 29 AB 28 |.>Q..D.(5.0.D).(|
00001130: 33 2E 30 AA 28 31 35 33 2E 30 AC 4D 29 29 00 53 |3.0.(153.0.M)).S|
00001140: 51 26 07 44 B2 B5 28 28 44 AA 35 2E 30 29 AD 35 |Q&.D..((D.5.0).5|
00001150: 2E 30 29 00 65 51 30 07 59 B2 28 31 30 30 2E 30 |.0).eQ0.Y.(100.0|
00001160: AC 59 29 AA 4A 00 8B 51 3A 07 8B 20 4D B3 31 30 |.Y).J..Q:.. M.10|
00001170: 2E 30 20 A7 20 4D B2 4D AA 33 20 3A D5 20 4D B2 |.0 . M.M.3 :. M.|
00001180: 4D AB 39 20 3A 20 59 B2 59 AA 31 00 9E 51 44 07 |M.9 : Y.Y.1..QD.|
00001190: 59 39 B2 59 3A 4D 39 B2 4D 3A 44 39 B2 44 00 A4 |Y9.Y:M9.M:D9.D..|
000011A0: 51 4E 07 8E 00 C4 51 62 07 8F 20 43 4F 4E 56 45 |QN....Qb.. CONVE|
000011B0: 52 54 20 4A 55 4C 49 41 4E 20 54 49 4D 45 20 49 |RT JULIAN TIME I|
000011C0: 4E 20 54 44 00 E6 51 6C 07 8F 20 49 4E 54 4F 20 |N TD..Ql.. INTO |
000011D0: 54 49 4D 45 20 49 4E 20 48 38 2C 20 4D 38 2C 20 |TIME IN H8, M8, |
000011E0: 41 4E 44 20 53 38 00 F3 51 80 07 4A B2 54 44 AA |AND S8..Q..J.TD.|
000011F0: 30 2E 35 00 09 52 8A 07 49 4A B2 28 4A AB B5 28 |0.5..R..IJ.(J..(|
00001200: 4A 29 29 AC 38 36 34 30 30 00 1B 52 94 07 48 38 |J)).86400..R..H8|
00001210: B2 B5 28 49 4A AD 33 36 30 30 29 00 35 52 9E 07 |..(IJ.3600).5R..|
00001220: 4D 38 B2 B5 28 28 49 4A AD 36 30 29 29 AB 28 48 |M8..((IJ.60)).(H|
00001230: 38 AC 36 30 29 00 56 52 A8 07 53 38 B2 B5 28 49 |8.60).VR..S8..(I|
00001240: 4A AB 28 36 30 AC 28 4D 38 AA 36 30 AC 48 38 29 |J.(60.(M8.60.H8)|
00001250: 29 AA 30 2E 35 29 00 5C 52 B2 07 8E 00 7F 52 C6 |).0.5).\R.....R.|
00001260: 07 8F 20 53 4F 4C 56 45 20 54 48 45 20 45 51 55 |.. SOLVE THE EQU|
00001270: 41 54 49 4F 4E 20 4F 46 20 4B 45 50 4C 45 52 00 |ATION OF KEPLER.|
00001280: 92 52 DA 07 8F 20 49 4E 50 55 54 53 3A 20 4D 2C |.R... INPUTS: M,|
00001290: 20 45 00 A2 52 E4 07 8F 20 4F 55 54 50 55 54 3A | E..R... OUTPUT:|
000012A0: 20 4B 00 AE 52 F8 07 4D B2 A5 52 28 4D 29 00 B7 | K..R..M..R(M)..|
000012B0: 52 02 08 45 31 B2 4D 00 CB 52 0C 08 44 31 B2 45 |R..E1.M..R..D1.E|
000012C0: 31 AB 45 AC BF 28 45 31 29 AB 4D 00 E4 52 16 08 |1.E..(E1).M..R..|
000012D0: 45 31 B2 45 31 AB 44 31 AD 28 31 AB 45 AC BE 28 |E1.E1.D1.(1.E..(|
000012E0: 45 31 29 29 00 FC 52 20 08 8B 20 B6 28 44 31 29 |E1))..R .. .(D1)|
000012F0: B1 31 45 AB 36 20 A7 20 32 30 36 30 00 05 53 2A |.1E.6 . 2060..S*|
00001300: 08 4B B2 45 31 00 0B 53 34 08 8E 00 2D 53 48 08 |.K.E1..S4...-SH.|
00001310: 8F 20 43 41 4C 43 55 4C 41 54 45 20 4D 4F 4F 4E |. CALCULATE MOON|
00001320: 20 41 4E 44 20 53 55 4E 20 49 4E 46 4F 00 50 53 | AND SUN INFO.PS|
00001330: 5C 08 44 33 B2 54 44 AA 32 38 38 30 2E 35 20 3A |\.D3.TD.2880.5 :|
00001340: 20 8F 20 44 41 54 45 20 49 4E 20 45 50 4F 43 48 | . DATE IN EPOCH|
00001350: 00 6C 53 66 08 4E B2 A5 46 28 28 33 36 30 AD 33 |.lSf.N..F((360.3|
00001360: 36 35 2E 32 34 32 32 29 AC 44 33 29 00 91 53 70 |65.2422).D3)..Sp|
00001370: 08 4D 33 B2 A5 46 28 4E AA 28 32 37 38 2E 38 33 |.M3..F(N.(278.83|
00001380: 33 35 34 30 AB 32 38 32 2E 35 39 36 34 30 33 29 |3540.282.596403)|
00001390: 29 00 AA 53 7A 08 4D B2 4D 33 20 3A 20 45 B2 45 |)..Sz.M.M3 : E.E|
000013A0: 4F 20 3A 20 8D 20 32 30 34 30 00 C9 53 84 08 45 |O : . 2040..S..E|
000013B0: 43 B2 BA 28 28 31 AA 45 4F 29 AD 28 31 AB 45 4F |C..((1.EO).(1.EO|
000013C0: 29 29 AC C0 28 4B AD 32 29 00 DC 53 8E 08 45 43 |))..(K.2)..S..EC|
000013D0: B2 32 AC A5 44 28 C1 28 45 43 29 29 00 F5 53 98 |.2..D(.(EC))..S.|
000013E0: 08 4C 53 B2 A5 46 28 45 43 AA 32 38 32 2E 35 39 |.LS..F(EC.282.59|
000013F0: 36 34 30 33 29 00 18 54 A2 08 46 B2 28 28 31 AA |6403)..T..F.((1.|
00001400: 45 4F AC BE 28 A5 52 28 45 43 29 29 29 AD 28 31 |EO..(.R(EC))).(1|
00001410: AB 45 4F AC 45 4F 29 29 00 2C 54 AC 08 53 44 B2 |.EO.EO)).,T..SD.|
00001420: 31 2E 34 39 35 39 38 35 45 38 AD 46 00 3E 54 B6 |1.495985E8.F.>T.|
00001430: 08 53 41 B2 46 AC 30 2E 35 33 33 31 32 38 00 5E |.SA.F.0.533128.^|
00001440: 54 C0 08 8F 20 43 41 4C 43 55 4C 41 54 45 20 4D |T... CALCULATE M|
00001450: 4F 4F 4E 27 53 20 50 4F 53 49 54 49 4F 4E 00 81 |OON'S POSITION..|
00001460: 54 CA 08 4D 4C B2 A5 46 28 31 33 2E 31 37 36 33 |T..ML..F(13.1763|
00001470: 39 36 36 AC 44 33 AA 36 34 2E 39 37 35 34 36 34 |966.D3.64.975464|
00001480: 29 00 A7 54 D4 08 4D 34 B2 A5 46 28 4D 4C AB 30 |)..T..M4..F(ML.0|
00001490: 2E 31 31 31 34 30 34 31 AC 44 33 AB 33 34 39 2E |.1114041.D3.349.|
000014A0: 33 38 33 30 36 33 29 00 CA 54 DE 08 4D 4E B2 A5 |383063)..T..MN..|
000014B0: 46 28 31 35 31 2E 39 35 30 34 32 39 AB 30 2E 30 |F(151.950429.0.0|
000014C0: 35 32 39 35 33 39 AC 44 33 29 00 EC 54 E8 08 45 |529539.D3)..T..E|
000014D0: 56 B2 31 2E 32 37 33 39 AC BF 28 A5 52 28 32 AC |V.1.2739..(.R(2.|
000014E0: 28 4D 4C AB 4C 53 29 AB 4D 34 29 29 00 04 55 F2 |(ML.LS).M4))..U.|
000014F0: 08 41 45 B2 30 2E 31 38 35 38 AC BF 28 A5 52 28 |.AE.0.1858..(.R(|
00001500: 4D 33 29 29 00 1A 55 FC 08 41 33 B2 30 2E 33 37 |M3))..U..A3.0.37|
00001510: AC BF 28 A5 52 28 4D 33 29 29 00 2D 55 06 09 4D |..(.R(M3)).-U..M|
00001520: 50 B2 4D 34 AA 45 56 AB 41 45 AB 41 33 00 45 55 |P.M4.EV.AE.A3.EU|
00001530: 10 09 4D 45 B2 36 2E 32 38 38 36 AC BF 28 A5 52 |..ME.6.2886..(.R|
00001540: 28 4D 50 29 29 00 5E 55 1A 09 41 34 B2 30 2E 32 |(MP)).^U..A4.0.2|
00001550: 31 34 AC BF 28 A5 52 28 32 AC 4D 50 29 29 00 74 |14..(.R(2.MP)).t|
00001560: 55 24 09 4C 50 B2 4D 4C AA 45 56 AA 4D 45 AB 41 |U$.LP.ML.EV.ME.A|
00001570: 45 AA 41 34 00 92 55 2E 09 56 B2 30 2E 36 35 38 |E.A4..U..V.0.658|
00001580: 33 AC BF 28 A5 52 28 32 AC 28 4C 50 AB 4C 53 29 |3..(.R(2.(LP.LS)|
00001590: 29 29 00 9E 55 38 09 4C 34 B2 4C 50 AA 56 00 B7 |))..U8.L4.LP.V..|
000015A0: 55 42 09 4E 50 B2 4D 4E AB 30 2E 31 36 AC BF 28 |UB.NP.MN.0.16..(|
000015B0: A5 52 28 4D 33 29 29 00 D6 55 4C 09 59 B2 BF 28 |.R(M3))..UL.Y..(|
000015C0: A5 52 28 4C 34 AB 4E 50 29 29 AC BE 28 35 2E 31 |.R(L4.NP))..(5.1|
000015D0: 34 35 33 39 36 29 00 E9 55 56 09 58 B2 BE 28 A5 |45396)..UV.X..(.|
000015E0: 52 28 4C 34 AB 4E 50 29 29 00 FB 55 60 09 8B 20 |R(L4.NP))..U`.. |
000015F0: 58 B3 B1 30 20 A7 20 32 34 34 30 00 15 56 6A 09 |X..0 . 2440..Vj.|
00001600: 8B 20 59 B2 30 20 A7 20 4C 4D B2 30 20 3A 20 89 |. Y.0 . LM.0 : .|
00001610: 20 32 34 35 30 00 33 56 74 09 8B 20 59 B1 30 20 | 2450.3Vt.. Y.0 |
00001620: A7 20 4C 4D B2 FF AD 32 20 3A D5 20 4C 4D B2 AB |. LM...2 :. LM..|
00001630: FF AD 32 00 3E 56 7E 09 89 20 32 34 35 30 00 4C |..2.>V~.. 2450.L|
00001640: 56 88 09 4C 4D B2 C1 28 59 AD 58 29 00 5D 56 92 |V..LM..(Y.X).]V.|
00001650: 09 4C 4D B2 A5 44 28 4C 4D 29 AA 4E 50 00 6A 56 |.LM..D(LM).NP.jV|
00001660: 9C 09 4D 41 B2 4C 34 AB 4C 53 00 81 56 A6 09 50 |..MA.L4.LS..V..P|
00001670: 48 B2 28 31 AB BE 28 A5 52 28 4D 41 29 29 29 AD |H.(1..(.R(MA))).|
00001680: 32 00 AF 56 B0 09 4D 44 B2 28 33 38 34 34 30 31 |2..V..MD.(384401|
00001690: AC 28 31 AB 4D 43 AC 4D 43 29 29 AD 28 31 AA 4D |.(1.MC.MC)).(1.M|
000016A0: 43 AC BE 28 A5 52 28 4D 50 AA 4D 45 29 29 29 00 |C..(.R(MP.ME))).|
000016B0: C0 56 BA 09 4D 46 B2 4D 44 AD 33 38 34 34 30 31 |.V..MF.MD.384401|
000016C0: 00 D1 56 C4 09 4D 53 B2 30 2E 35 31 38 31 AD 4D |..V..MS.0.5181.M|
000016D0: 46 00 F1 56 CE 09 4D 47 B2 32 39 2E 35 33 30 35 |F..V..MG.29.5305|
000016E0: 38 38 36 38 AC 28 A5 46 28 4D 41 29 AD 33 36 30 |8868.(.F(MA).360|
000016F0: 29 00 1D 57 D8 09 4D 37 B2 31 34 34 30 AC 28 4D |)..W..M7.1440.(M|
00001700: 47 AB B5 28 4D 47 29 29 3A 4D 37 B2 B5 28 4D 37 |G..(MG)):M7..(M7|
00001710: AB 36 30 AC B5 28 4D 37 AD 36 30 29 29 00 23 57 |.60..(M7.60)).#W|
00001720: E2 09 8E 00 46 57 F6 09 8F 20 43 41 4C 43 55 4C |....FW... CALCUL|
00001730: 41 54 45 20 4D 45 41 4E 20 50 48 41 53 45 20 4F |ATE MEAN PHASE O|
00001740: 46 20 4D 4F 4F 4E 00 6A 57 00 0A 8F 20 46 52 4F |F MOON.jW... FRO|
00001750: 4D 20 41 20 53 54 41 52 54 49 4E 47 20 44 41 54 |M A STARTING DAT|
00001760: 45 20 53 44 20 41 4E 44 20 41 00 8F 57 0A 0A 8F |E SD AND A..W...|
00001770: 20 50 48 41 53 45 20 53 45 4C 45 43 54 4F 52 20 | PHASE SELECTOR |
00001780: 49 4E 20 50 48 2E 20 20 52 45 54 55 52 4E 53 00 |IN PH. RETURNS.|
00001790: A7 57 14 0A 8F 20 4D 45 41 4E 20 50 48 41 53 45 |.W... MEAN PHASE|
000017A0: 20 49 4E 20 4D 48 2E 00 B1 57 28 0A 54 44 B2 53 | IN MH...W(.TD.S|
000017B0: 44 00 BC 57 32 0A 8D 20 31 37 33 30 00 E8 57 3C |D..W2.. 1730..W<|
000017C0: 0A 4B B2 28 59 39 AA 28 28 4D 39 AB 31 29 AC 28 |.K.(Y9.((M9.1).(|
000017D0: 31 2E 30 AD 31 32 2E 30 29 29 AB 31 39 30 30 29 |1.0.12.0)).1900)|
000017E0: AC 31 32 2E 33 36 38 35 00 FF 57 46 0A 54 B2 28 |.12.3685..WF.T.(|
000017F0: 53 44 AA 33 32 30 39 39 29 AD 33 36 35 32 35 00 |SD.32099).36525.|
00001800: 0A 58 50 0A 54 32 B2 54 AC 54 00 16 58 5A 0A 54 |.XP.T2.T.T..XZ.T|
00001810: 33 B2 54 32 AC 54 00 24 58 64 0A 4B B2 B5 28 4B |3.T2.T.$Xd.K..(K|
00001820: 29 AA 50 48 00 2D 58 6E 0A 55 4B B2 4B 00 6B 58 |).PH.-Xn.UK.K.kX|
00001830: 78 0A 4D 48 B2 AB 33 32 30 39 38 2E 32 34 30 36 |x.MH..32098.2406|
00001840: 37 AA 32 39 2E 35 33 30 35 38 38 36 38 AC 4B AA |7.29.53058868.K.|
00001850: 30 2E 30 30 30 31 31 37 38 AC 54 32 AB 30 2E 30 |0.0001178.T2.0.0|
00001860: 30 30 30 30 30 31 35 35 AC 54 33 00 9D 58 82 0A |00000155.T3..X..|
00001870: 4D 48 B2 4D 48 AA 30 2E 30 30 30 33 33 AC A5 53 |MH.MH.0.00033..S|
00001880: 28 31 36 36 2E 35 36 AA 31 33 32 2E 38 37 AC 54 |(166.56.132.87.T|
00001890: AB 30 2E 30 30 39 31 37 33 AC 54 32 29 00 A3 58 |.0.009173.T2)..X|
000018A0: 8C 0A 8E 00 C8 58 A0 0A 8F 20 43 41 4C 43 55 4C |.....X... CALCUL|
000018B0: 41 54 45 20 54 52 55 45 2C 20 43 4F 52 52 45 43 |ATE TRUE, CORREC|
000018C0: 54 45 44 20 54 49 4D 45 00 ED 58 AA 0A 8F 20 4F |TED TIME..X... O|
000018D0: 46 20 4D 4F 4F 4E 20 50 48 41 53 45 20 47 49 56 |F MOON PHASE GIV|
000018E0: 45 4E 20 4D 45 41 4E 20 50 48 41 53 45 00 11 59 |EN MEAN PHASE..Y|
000018F0: B4 0A 8F 20 54 49 4D 45 20 49 4E 20 55 4B 20 41 |... TIME IN UK A|
00001900: 4E 44 20 50 48 41 53 45 20 53 45 4C 45 43 54 4F |ND PHASE SELECTO|
00001910: 52 00 35 59 BE 0A 8F 20 49 4E 20 50 48 2E 20 20 |R.5Y... IN PH. |
00001920: 52 45 54 55 52 4E 53 20 50 48 41 53 45 20 54 49 |RETURNS PHASE TI|
00001930: 4D 45 20 49 4E 00 3F 59 C8 0A 8F 20 50 54 2E 00 |ME IN.?Y... PT..|
00001940: 4B 59 DC 0A 4B B2 55 4B AA 50 48 00 5B 59 E6 0A |KY..K.UK.PH.[Y..|
00001950: 54 B2 4B AD 31 32 33 36 2E 38 35 00 66 59 F0 0A |T.K.1236.85.fY..|
00001960: 54 32 B2 54 AC 54 00 72 59 FA 0A 54 33 B2 54 32 |T2.T.T.rY..T3.T2|
00001970: AC 54 00 B0 59 04 0B 50 54 B2 AB 33 32 30 39 38 |.T..Y..PT..32098|
00001980: 2E 32 34 30 36 37 AA 32 39 2E 35 33 30 35 38 38 |.24067.29.530588|
00001990: 36 38 AC 4B AA 30 2E 30 30 30 31 31 37 38 AC 54 |68.K.0.0001178.T|
000019A0: 32 AB 30 2E 30 30 30 30 30 30 31 35 35 AC 54 33 |2.0.000000155.T3|
000019B0: 00 E2 59 0E 0B 50 54 B2 50 54 AA 30 2E 30 30 30 |..Y..PT.PT.0.000|
000019C0: 33 33 AC A5 53 28 31 36 36 2E 35 36 AA 31 33 32 |33..S(166.56.132|
000019D0: 2E 38 37 AC 54 AB 30 2E 30 30 39 31 37 33 AC 54 |.87.T.0.009173.T|
000019E0: 32 29 00 1A 5A 18 0B 4D B2 33 35 39 2E 32 32 34 |2)..Z..M.359.224|
000019F0: 32 AA 32 39 2E 31 30 35 33 35 36 30 38 AC 4B AB |2.29.10535608.K.|
00001A00: 30 2E 30 30 30 30 33 33 33 AC 54 32 AB 30 2E 30 |0.0000333.T2.0.0|
00001A10: 30 30 30 30 33 34 37 AC 54 33 00 54 5A 22 0B 4D |0000347.T3.TZ".M|
00001A20: 31 B2 33 30 36 2E 30 32 35 33 AA 33 38 35 2E 38 |1.306.0253.385.8|
00001A30: 31 36 39 31 38 30 36 AC 4B AA 30 2E 30 31 30 37 |1691806.K.0.0107|
00001A40: 33 30 36 AC 54 32 AA 30 2E 30 30 30 30 31 32 33 |306.T2.0.0000123|
00001A50: 36 AC 54 33 00 8C 5A 2C 0B 46 B2 32 31 2E 32 39 |6.T3..Z,.F.21.29|
00001A60: 36 34 AA 33 39 30 2E 36 37 30 35 30 36 34 36 AC |64.390.67050646.|
00001A70: 4B AB 30 2E 30 30 31 36 35 32 38 AC 54 32 AB 30 |K.0.0016528.T2.0|
00001A80: 2E 30 30 30 30 30 32 33 39 AC 54 33 00 B6 5A 36 |.00000239.T3..Z6|
00001A90: 0B 8B 20 28 50 48 B1 30 2E 30 31 29 20 AF 20 28 |.. (PH.0.01) . (|
00001AA0: B6 28 50 48 AB 30 2E 35 29 B1 30 2E 30 31 29 20 |.(PH.0.5).0.01) |
00001AB0: A7 20 32 39 36 30 00 D9 5A 40 0B 8F 20 43 4F 52 |. 2960..Z@.. COR|
00001AC0: 52 45 43 54 49 4F 4E 53 20 46 4F 52 20 4E 45 57 |RECTIONS FOR NEW|
00001AD0: 20 41 4E 44 20 46 55 4C 4C 00 FD 5A 4A 0B 50 54 | AND FULL..ZJ.PT|
00001AE0: B2 50 54 AA 28 30 2E 31 37 33 34 AB 30 2E 30 30 |.PT.(0.1734.0.00|
00001AF0: 30 33 39 33 AC 54 29 AC A5 53 28 4D 29 00 34 5B |0393.T)..S(M).4[|
00001B00: 54 0B 50 54 B2 50 54 AA 30 2E 30 30 32 31 AC A5 |T.PT.PT.0.0021..|
00001B10: 53 28 32 AC 4D 29 AB 30 2E 34 30 36 38 AC A5 53 |S(2.M).0.4068..S|
00001B20: 28 4D 31 29 AA 30 2E 30 31 36 31 AC A5 53 28 32 |(M1).0.0161..S(2|
00001B30: AC 4D 31 29 00 6D 5B 5E 0B 50 54 B2 50 54 AB 30 |.M1).m[^.PT.PT.0|
00001B40: 2E 30 30 30 34 AC A5 53 28 33 AC 4D 31 29 AA 30 |.0004..S(3.M1).0|
00001B50: 2E 30 31 30 34 AC A5 53 28 32 AC 46 29 AB 30 2E |.0104..S(2.F).0.|
00001B60: 30 30 35 31 AC A5 53 28 4D AA 4D 31 29 00 A9 5B |0051..S(M.M1)..[|
00001B70: 68 0B 50 54 B2 50 54 AB 30 2E 30 30 37 34 AC A5 |h.PT.PT.0.0074..|
00001B80: 53 28 4D AB 4D 31 29 AA 30 2E 30 30 30 34 AC A5 |S(M.M1).0.0004..|
00001B90: 53 28 32 AC 46 AA 4D 29 AB 30 2E 30 30 30 34 AC |S(2.F.M).0.0004.|
00001BA0: A5 53 28 32 AC 46 AB 4D 29 00 E9 5B 72 0B 50 54 |.S(2.F.M)..[r.PT|
00001BB0: B2 50 54 AB 30 2E 30 30 30 36 AC A5 53 28 32 AC |.PT.0.0006..S(2.|
00001BC0: 46 AA 4D 31 29 AA 30 2E 30 30 31 30 AC A5 53 28 |F.M1).0.0010..S(|
00001BD0: 32 AC 46 AB 4D 31 29 AA 30 2E 30 30 30 35 AC A5 |2.F.M1).0.0005..|
00001BE0: 53 28 4D AA 32 AC 4D 31 29 00 EF 5B 7C 0B 8E 00 |S(M.2.M1)..[|...|
00001BF0: 14 5C 86 0B 8F 20 43 4F 52 52 45 43 54 49 4F 4E |.\... CORRECTION|
00001C00: 53 20 46 4F 52 20 51 55 41 52 54 45 52 20 50 48 |S FOR QUARTER PH|
00001C10: 41 53 45 53 00 45 5C 90 0B 50 54 B2 50 54 AA 28 |ASES.E\..PT.PT.(|
00001C20: 30 2E 31 37 32 31 AB 30 2E 30 30 30 34 AC 54 29 |0.1721.0.0004.T)|
00001C30: AC A5 53 28 4D 29 AA 30 2E 30 30 32 31 AC A5 53 |..S(M).0.0021..S|
00001C40: 28 32 AC 4D 29 00 7D 5C 9A 0B 50 54 B2 50 54 AB |(2.M).}\..PT.PT.|
00001C50: 30 2E 36 32 38 30 AC A5 53 28 4D 31 29 AA 30 2E |0.6280..S(M1).0.|
00001C60: 30 30 38 39 AC A5 53 28 32 AC 4D 31 29 AB 30 2E |0089..S(2.M1).0.|
00001C70: 30 30 30 34 AC A5 53 28 33 AC 4D 31 29 00 B6 5C |0004..S(3.M1)..\|
00001C80: A4 0B 50 54 B2 50 54 AA 30 2E 30 30 37 39 AC A5 |..PT.PT.0.0079..|
00001C90: 53 28 32 AC 46 29 AB 30 2E 30 31 31 39 AC A5 53 |S(2.F).0.0119..S|
00001CA0: 28 4D AA 4D 31 29 AB 30 2E 30 30 34 37 AC A5 53 |(M.M1).0.0047..S|
00001CB0: 28 4D AB 4D 31 29 00 F4 5C AE 0B 50 54 B2 50 54 |(M.M1)..\..PT.PT|
00001CC0: AA 30 2E 30 30 30 33 AC A5 53 28 32 AC 46 AA 4D |.0.0003..S(2.F.M|
00001CD0: 29 AB 30 2E 30 30 30 34 AC A5 53 28 32 AC 46 AB |).0.0004..S(2.F.|
00001CE0: 4D 29 AB 30 2E 30 30 30 36 AC A5 53 28 32 AC 46 |M).0.0006..S(2.F|
00001CF0: AA 4D 31 29 00 34 5D B8 0B 50 54 B2 50 54 AA 30 |.M1).4]..PT.PT.0|
00001D00: 2E 30 30 32 31 AC A5 53 28 32 AC 46 AB 4D 31 29 |.0021..S(2.F.M1)|
00001D10: AA 30 2E 30 30 30 33 AC A5 53 28 4D AA 32 AC 4D |.0.0003..S(M.2.M|
00001D20: 31 29 AA 30 2E 30 30 30 34 AC A5 53 28 4D AB 32 |1).0.0004..S(M.2|
00001D30: AC 4D 31 29 00 50 5D C2 0B 50 54 B2 50 54 AB 30 |.M1).P]..PT.PT.0|
00001D40: 2E 30 30 30 33 AC A5 53 28 32 AC 4D AA 4D 31 29 |.0003..S(2.M.M1)|
00001D50: 00 8E 5D CC 0B 8B 20 50 48 B3 30 2E 35 20 A7 20 |..]... PH.0.5 . |
00001D60: 50 54 B2 50 54 AA 30 2E 30 30 32 38 AB 30 2E 30 |PT.PT.0.0028.0.0|
00001D70: 30 30 34 AC A5 43 28 4D 29 AA 30 2E 30 30 30 33 |004..C(M).0.0003|
00001D80: AC A5 43 28 4D 31 29 3A 89 20 33 30 34 30 00 BD |..C(M1):. 3040..|
00001D90: 5D D6 0B 50 54 B2 50 54 AA 28 AB 30 2E 30 30 32 |]..PT.PT.(.0.002|
00001DA0: 38 AA 30 2E 30 30 30 34 AC A5 43 28 4D 29 AB 30 |8.0.0004..C(M).0|
00001DB0: 2E 30 30 30 33 AC A5 43 28 4D 31 29 29 00 C3 5D |.0003..C(M1))..]|
00001DC0: E0 0B 8E 00 E6 5D F4 0B 8F 20 46 49 4E 44 20 50 |.....]... FIND P|
00001DD0: 48 41 53 45 20 54 49 4D 45 53 20 53 55 52 52 4F |HASE TIMES SURRO|
00001DE0: 55 4E 44 49 4E 47 00 0B 5E FE 0B 8F 20 54 48 45 |UNDING..^... THE|
00001DF0: 20 43 55 52 52 45 4E 54 20 44 41 54 45 2C 20 47 | CURRENT DATE, G|
00001E00: 49 56 45 4E 20 49 4E 20 53 44 2E 00 2D 5E 08 0C |IVEN IN SD..-^..|
00001E10: 8F 20 4C 45 41 56 45 53 20 54 49 4D 45 53 20 49 |. LEAVES TIMES I|
00001E20: 4E 20 50 41 28 30 29 2D 50 41 28 34 29 00 3A 5E |N PA(0)-PA(4).:^|
00001E30: 1C 0C 41 44 B2 53 44 AB 34 35 00 44 5E 26 0C 53 |..AD.SD.45.D^&.S|
00001E40: 36 B2 53 44 00 53 5E 30 0C 53 44 B2 41 44 3A 50 |6.SD.S^0.SD.AD:P|
00001E50: 48 B2 30 00 5E 5E 3A 0C 8D 20 32 36 30 30 00 68 |H.0.^^:.. 2600.h|
00001E60: 5E 44 0C 55 36 B2 55 4B 00 7E 5E 4E 0C 41 44 B2 |^D.U6.UK.~^N.AD.|
00001E70: 41 44 AA 32 39 2E 35 33 30 35 38 38 36 38 00 88 |AD.29.53058868..|
00001E80: 5E 58 0C 4D 36 B2 4D 48 00 97 5E 62 0C 53 44 B2 |^X.M6.MH..^b.SD.|
00001E90: 41 44 3A 50 48 B2 30 00 A2 5E 6C 0C 8D 20 32 36 |AD:PH.0..^l.. 26|
00001EA0: 30 30 00 C2 5E 76 0C 8B 20 28 4D 36 B3 B2 53 36 |00..^v.. (M6..S6|
00001EB0: 29 20 AF 20 28 4D 48 B1 53 36 29 20 A7 20 33 32 |) . (MH.S6) . 32|
00001EC0: 33 30 00 CC 5E 80 0C 4D 36 B2 4D 48 00 D6 5E 8A |30..^..M6.MH..^.|
00001ED0: 0C 55 36 B2 55 4B 00 E1 5E 94 0C 89 20 33 31 35 |.U6.UK..^... 315|
00001EE0: 30 00 EB 5E 9E 0C 55 37 B2 55 4B 00 0A 5F A8 0C |0..^..U7.UK.._..|
00001EF0: 55 4B B2 55 36 3A 50 48 B2 30 3A 8D 20 32 37 38 |UK.U6:PH.0:. 278|
00001F00: 30 3A 50 41 28 30 29 B2 50 54 00 2C 5F B2 0C 55 |0:PA(0).PT.,_..U|
00001F10: 4B B2 55 36 3A 50 48 B2 30 2E 32 35 3A 8D 20 32 |K.U6:PH.0.25:. 2|
00001F20: 37 38 30 3A 50 41 28 31 29 B2 50 54 00 4D 5F BC |780:PA(1).PT.M_.|
00001F30: 0C 55 4B B2 55 36 3A 50 48 B2 30 2E 35 3A 8D 20 |.UK.U6:PH.0.5:. |
00001F40: 32 37 38 30 3A 50 41 28 32 29 B2 50 54 00 6F 5F |2780:PA(2).PT.o_|
00001F50: C6 0C 55 4B B2 55 36 3A 50 48 B2 30 2E 37 35 3A |..UK.U6:PH.0.75:|
00001F60: 8D 20 32 37 38 30 3A 50 41 28 33 29 B2 50 54 00 |. 2780:PA(3).PT.|
00001F70: 8E 5F D0 0C 55 4B B2 55 37 3A 50 48 B2 30 3A 8D |._..UK.U7:PH.0:.|
00001F80: 20 32 37 38 30 3A 50 41 28 34 29 B2 50 54 00 94 | 2780:PA(4).PT..|
00001F90: 5F DA 0C 8E 00 B2 5F EE 0C 8F 20 44 52 41 57 20 |_....._... DRAW |
00001FA0: 54 48 45 20 4D 4F 4F 4E 20 41 54 20 41 47 45 20 |THE MOON AT AGE |
00001FB0: 4D 41 00 D0 5F 02 0D 43 58 B2 31 36 30 3A 43 59 |MA.._..CX.160:CY|
00001FC0: B2 31 30 30 3A 58 53 B2 36 35 3A 59 53 B2 35 30 |.100:XS.65:YS.50|
00001FD0: 00 E2 5F 0C 0D 54 34 B2 A5 46 28 4D 41 29 AD 33 |.._..T4..F(MA).3|
00001FE0: 36 30 00 F9 5F 16 0D 54 31 B2 B5 28 58 53 AC BE |60.._..T1..(XS..|
00001FF0: 28 32 AC FF AC 54 34 29 29 00 12 60 20 0D 8B 20 |(2...T4))..` .. |
00002000: 54 31 B2 57 36 20 AF 20 54 34 B1 B2 57 34 20 A7 |T1.W6 . T4..W4 .|
00002010: 20 8E 00 1C 60 2A 0D E7 20 31 2C 32 00 44 60 34 | ...`*.. 1,2.D`4|
00002020: 0D 8B 20 57 36 B3 B1 AB 31 30 30 30 20 A7 20 E2 |.. W6...1000 . .|
00002030: 20 30 2C 43 58 2C 43 59 2C 57 35 2C 59 53 2C 57 | 0,CX,CY,W5,YS,W|
00002040: 37 2C 57 38 00 54 60 3E 0D 57 36 B2 54 31 3A 57 |7,W8.T`>.W6.T1:W|
00002050: 34 B2 54 34 00 69 60 48 0D 8B 20 54 34 B1 B2 30 |4.T4.i`H.. T4..0|
00002060: 2E 35 20 A7 20 33 34 39 30 00 8C 60 52 0D 8B 20 |.5 . 3490..`R.. |
00002070: 57 39 B2 32 20 A7 20 E2 20 30 2C 43 58 2C 43 59 |W9.2 . . 0,CX,CY|
00002080: 2C 58 53 2C 59 53 2C 31 38 30 2C 30 00 A6 60 5C |,XS,YS,180,0..`\|
00002090: 0D E2 20 31 2C 43 58 2C 43 59 2C 58 53 2C 59 53 |.. 1,CX,CY,XS,YS|
000020A0: 2C 30 2C 31 38 30 00 AF 60 66 0D 57 39 B2 31 00 |,0,180..`f.W9.1.|
000020B0: BF 60 70 0D 57 37 B2 30 3A 57 38 B2 31 38 30 00 |.`p.W7.0:W8.180.|
000020C0: DF 60 7A 0D 8B 20 54 31 B3 30 20 A7 20 54 31 B2 |.`z.. T1.0 . T1.|
000020D0: AB 54 31 3A 57 37 B2 31 38 30 3A 57 38 B2 30 00 |.T1:W7.180:W8.0.|
000020E0: F9 60 84 0D E2 20 31 2C 43 58 2C 43 59 2C 54 31 |.`... 1,CX,CY,T1|
000020F0: 2C 59 53 2C 57 37 2C 57 38 00 03 61 8E 0D 57 35 |,YS,W7,W8..a..W5|
00002100: B2 54 31 00 09 61 98 0D 8E 00 2C 61 A2 0D 8B 20 |.T1..a....,a... |
00002110: 57 39 B2 31 20 A7 20 E2 20 30 2C 43 58 2C 43 59 |W9.1 . . 0,CX,CY|
00002120: 2C 58 53 2C 59 53 2C 30 2C 31 38 30 00 46 61 AC |,XS,YS,0,180.Fa.|
00002130: 0D E2 20 31 2C 43 58 2C 43 59 2C 58 53 2C 59 53 |.. 1,CX,CY,XS,YS|
00002140: 2C 31 38 30 2C 30 00 4F 61 B6 0D 57 39 B2 32 00 |,180,0.Oa..W9.2.|
00002150: 5F 61 C0 0D 57 37 B2 31 38 30 3A 57 38 B2 30 00 |_a..W7.180:W8.0.|
00002160: 7F 61 CA 0D 8B 20 54 31 B3 30 20 A7 20 54 31 B2 |.a... T1.0 . T1.|
00002170: AB 54 31 3A 57 37 B2 30 3A 57 38 B2 31 38 30 00 |.T1:W7.0:W8.180.|
00002180: 8A 61 D4 0D 89 20 33 34 36 30 00 AD 61 E8 0D 8F |.a... 3460..a...|
00002190: 20 50 41 49 4E 54 20 53 54 41 54 49 43 20 53 43 | PAINT STATIC SC|
000021A0: 52 45 45 4E 20 43 4F 4E 54 45 4E 54 53 00 B7 61 |REEN CONTENTS..a|
000021B0: FC 0D E7 20 31 2C 32 00 D6 61 06 0E E0 20 31 2C |... 1,2..a... 1,|
000021C0: 30 2C 31 2C 22 4C 4F 43 41 4C 20 54 49 4D 45 3A |0,1,"LOCAL TIME:|
000021D0: 20 20 20 20 20 22 00 F5 61 10 0E E0 20 31 2C 30 | "..a... 1,0|
000021E0: 2C 32 2C 22 55 4E 49 56 45 52 53 41 4C 20 54 49 |,2,"UNIVERSAL TI|
000021F0: 4D 45 3A 20 22 00 13 62 1A 0E E0 20 31 2C 30 2C |ME: "..b... 1,0,|
00002200: 33 2C 22 4A 55 4C 49 41 4E 20 44 41 54 45 3A 20 |3,"JULIAN DATE: |
00002210: 20 20 22 00 1D 62 24 0E E7 20 31 2C 38 00 2F 62 | "..b$.. 1,8./b|
00002220: 2E 0E E0 20 31 2C 33 2C 35 2C 22 53 55 4E 22 00 |... 1,3,5,"SUN".|
00002230: 46 62 38 0E E0 20 31 2C 31 2C 37 2C 22 44 49 53 |Fb8.. 1,1,7,"DIS|
00002240: 54 41 4E 43 45 22 00 5E 62 42 0E E0 20 31 2C 31 |TANCE".^bB.. 1,1|
00002250: 2C 31 31 2C 22 53 55 42 54 45 4E 44 53 22 00 69 |,11,"SUBTENDS".i|
00002260: 62 4C 0E E7 20 31 2C 31 36 00 7D 62 56 0E E0 20 |bL.. 1,16.}bV.. |
00002270: 31 2C 33 32 2C 35 2C 22 4D 4F 4F 4E 22 00 93 62 |1,32,5,"MOON"..b|
00002280: 60 0E E0 20 31 2C 33 32 2C 31 34 2C 22 50 48 41 |`.. 1,32,14,"PHA|
00002290: 53 45 22 00 A7 62 6A 0E E0 20 31 2C 33 33 2C 31 |SE"..bj.. 1,33,1|
000022A0: 37 2C 22 41 47 45 22 00 BF 62 74 0E E0 20 31 2C |7,"AGE"..bt.. 1,|
000022B0: 33 31 2C 37 2C 22 44 49 53 54 41 4E 43 45 22 00 |31,7,"DISTANCE".|
000022C0: D8 62 7E 0E E0 20 31 2C 33 31 2C 31 31 2C 22 53 |.b~.. 1,31,11,"S|
000022D0: 55 42 54 45 4E 44 53 22 00 E2 62 7F 0E E7 20 31 |UBTENDS"..b... 1|
000022E0: 2C 32 00 FE 62 80 0E E0 20 31 2C 30 2C 31 35 2C |,2..b... 1,0,15,|
000022F0: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 1A |"............"..|
00002300: 63 82 0E E0 20 31 2C 30 2C 31 36 2C 22 DD 20 51 |c... 1,0,16,". Q|
00002310: 20 2D 20 51 55 49 54 20 DD 22 00 36 63 84 0E E0 | - QUIT .".6c...|
00002320: 20 31 2C 30 2C 31 37 2C 22 AD C0 C0 C0 C0 C0 C0 | 1,0,17,".......|
00002330: C0 C0 C0 C0 BD 22 00 50 63 86 0E E7 20 31 2C 34 |.....".Pc... 1,4|
00002340: 3A E0 20 31 2C 34 2C 31 38 2C 22 53 4C 4F 57 22 |:. 1,4,18,"SLOW"|
00002350: 00 56 63 88 0E 8E 00 9D 63 A0 0F 97 35 33 32 38 |.Vc.....c...5328|
00002360: 31 2C 30 3A 97 35 33 32 38 30 2C 30 3A 99 C7 28 |1,0:.53280,0:..(|
00002370: 31 34 32 29 C7 28 38 29 22 93 11 9F 22 A3 36 29 |142).(8)"...".6)|
00002380: 22 52 20 41 20 49 20 4E 20 59 20 20 20 44 20 41 |"R A I N Y D A|
00002390: 20 59 20 20 20 4D 20 4F 20 4F 20 4E 22 00 BB 63 | Y M O O N"..c|
000023A0: AA 0F 99 A3 31 33 29 22 11 9C 42 59 20 4A 4F 48 |....13)"..BY JOH|
000023B0: 4E 20 57 41 4C 4B 45 52 11 11 22 00 C1 63 B4 0F |N WALKER.."..c..|
000023C0: 8E 00 DC 63 88 13 51 39 24 B2 22 22 3A 97 31 39 |...c..Q9$."":.19|
000023D0: 38 2C 30 3A 55 39 B2 35 33 32 38 30 00 FB 63 92 |8,0:U9.53280..c.|
000023E0: 13 97 32 34 31 2C BB 28 30 29 AC 31 36 AA 31 3A |..241,.(0).16.1:|
000023F0: A1 41 24 3A 99 22 05 A4 9D 22 3B 00 0B 64 9C 13 |.A$:."...";..d..|
00002400: 8B 41 24 B2 22 22 A7 35 30 31 30 00 20 64 A6 13 |.A$."".5010. d..|
00002410: 8B 41 24 B2 C7 28 31 33 29 A7 99 22 20 22 3A 8E |.A$..(13).." ":.|
00002420: 00 51 64 B0 13 8B 28 41 24 B2 C7 28 32 30 29 AF |.Qd...(A$..(20).|
00002430: C3 28 51 39 24 29 29 A7 51 39 24 B2 C8 28 51 39 |.(Q9$)).Q9$..(Q9|
00002440: 24 2C C3 28 51 39 24 29 AB 31 29 3A 89 35 30 38 |$,.(Q9$).1):.508|
00002450: 30 00 6D 64 BA 13 8B C3 28 51 39 24 29 B1 B2 4C |0.md....(Q9$)..L|
00002460: 39 A7 8D 35 31 30 30 3A 89 35 30 31 30 00 A6 64 |9..5100:.5010..d|
00002470: C4 13 8B 28 41 24 B3 22 30 22 B0 41 24 B1 22 39 |...(A$."0".A$."9|
00002480: 22 29 AF 28 41 24 B3 22 41 22 B0 41 24 B1 22 5A |").(A$."A".A$."Z|
00002490: 22 29 AF 41 24 B3 B1 22 20 22 A7 8D 35 31 30 30 |").A$.." "..5100|
000024A0: 3A 89 35 30 31 30 00 B5 64 CE 13 51 39 24 B2 51 |:.5010..d..Q9$.Q|
000024B0: 39 24 AA 41 24 00 CF 64 D8 13 99 41 24 3B 3A 8B |9$.A$..d...A$;:.|
000024C0: 41 24 B2 C7 28 33 34 29 A7 97 32 31 32 2C 30 00 |A$..(34)..212,0.|
000024D0: D9 64 E2 13 89 35 30 31 30 00 06 65 EC 13 54 39 |.d...5010..e..T9|
000024E0: B2 C2 28 55 39 29 3A 97 55 39 2C 31 3A 99 C7 28 |..(U9):.U9,1:..(|
000024F0: 37 29 3B 3A 81 54 B2 30 A4 32 30 3A 82 3A 97 55 |7);:.T.0.20:.:.U|
00002500: 39 2C 54 39 3A 8E 00 0E 65 70 17 DE 20 9C 00 17 |9,T9:...ep.. ...|
00002510: 65 7A 17 99 22 93 22 00 3C 65 98 17 F5 22 48 45 |ez..".".<e..."HE|
00002520: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 A4 22 48 45 |LLO CONNECT"."HE|
00002530: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 00 4A 65 A2 |LLO CONNECT".Je.|
00002540: 17 8B 44 53 B3 B1 36 33 A7 80 00 5C 65 AC 17 8A |..DS..63...\e...|
00002550: 22 31 32 38 20 4D 45 4E 55 22 3A 80 00 86 65 10 |"128 MENU":...e.|
00002560: 27 F2 22 52 41 49 4E 59 20 44 41 59 20 4D 4F 4F |'."RAINY DAY MOO|
00002570: 4E 22 3A EF 22 52 41 49 4E 59 20 44 41 59 20 4D |N":."RAINY DAY M|
00002580: 4F 4F 4E 22 3A 80 00 00 00 |OON":.... |
.@.@... A MOON FOR THE C-128.B@F.. PRE
SET TIME ZONE IN NEXT LINE.L@P.TZ..1.A@Z
.. PA(4):PA(4)..1.J@D.ZF.0.Y@N.YB.244711
9..@X.C.56328:. CIA1 CLOCK BASE ADDRESS.
N@..NM$."JANFEBMARAPRMAYJUNJULAUGSEPOCTN
OVDEC"..@... WD$(6)..A..WD$(0)."SUN":WD$
(1)."MON":WD$(2)."TUES".FA .WD$(3)."WEDN
ES":WD$(4)."THURS":WD$(5)."FRI":WD$(6)."
SATUR".XA..W9.0:W6..1000..A... C.7,B(C.7
) . 127 : . SET CLOCK TIME..A... C.6,B(C
.6) . 128 : . LINE FREQ = 60HZ..AC..4000
..AH..". ENTER TIME AS HHMMSS: ";:L9.6
:.5000:A$.Q9$..AR.H.E(H(A$,2))..B..M.E(J
(A$,3,2))."B..S.E(J(A$,5)).NB... H.23 .
M.59 . S.59 ..G(7):."...":.200.FB..E.H:.
E.11 . E.E.68..B... C.3,16..(E.10).E..(
E.10).10..B... C.2,16..(M.10).M..(M.10).
10.LB... C.1,16..(S.10).S..(S.10).10..B"
.. C,0 : . TENTHS, START CLOCK..C,.. OB
TAIN DATE.2C6..".. ENTER DATE AS YYMMD
D: ";:.5000:A$.Q9$.IC@.YY.E(H(A$,2)).190
0.CCJ.. YY.1988 . YY.YY.100.WCT.MM.E(J(A
$,3,2))..C^.DD.E(J(A$,5))..CH.. MM.1 . M
M.12 . DD.1 . DD.31 ..G(7):."....":.310.
QCR.. TZ..1 . 430..C|.. "..TIME ZONES:".
.D... ".. EASTERN CENTRAL MOUNTAIN
PACIFIC".HD... ".STANDARD. 5 6
7 8".XD... "..DAYLIGHT. 4
5 6 7"..D...".. TIME Z
ONE: ";:L9.1:.5000:TZ.E(Q9$):.TZ.0.TZ.24
..G(7)"...":.420..D..Z8.H:H1.H:M1.M:S1.S
:. 1620..D... 0,7:. 1,2:.:.4,7..EB.. 1,1
..EL.. FUNCTION DEFINITIONS.1EV.. .R(X).
X.(..180).GE... .D(X).X.(180..).FE... .F
(X).(X.360.(.(X.360))).{E... .S(X)..(.R(
X))..E... .C(X)..(.R(X))..E... .A(X).A(X
..(1.X.X)).FE..EO.0.016718 : MC.0.0549.Q
E... 3580..E&.. MAIN LOOP..E0.. 640..
F:..A$:. A$."" . 560.HFD..A$."F".ZF.1.ZF
:. 1,4:. 1,4,18,"SLOW":.ZF. . 1,4,18,"FA
ST":.560.YFI..A$."Q".6000.BFK..560.NFN..
. : ...FB.. APPLY UPDATES APPROPRIATE T
O..FL.. THIS TIME...F... ZF . JF.JF..5 :
. 770.JF..C.56328..F..H.B(C.3):M.B(C.2)
:S.B(C.1):T.B(C)..F..PM.1..G... H.32 . H
.H . 127 : PM.0.5G..H..(H.16).10.H..(H.1
6).16.PG... PM.0 . H.12 . H.H.12.HGF.. P
M.1 . H.12 . H.0..GP.M..(M.16).10.M..(M.
16).16..GZ.S..(S.16).10.S..(S.16).16.IG.
.JF.(S.60.(M.60.H)).86400.(TZ.24)..G...
H.Z8 . JB.JB.1..G..Z8.H..G..JD.JB.JF..G.
.D.JD..H... 1240..H .. 1,2."H*.. 1,16,2,
D$.3H4.D.JD.(TZ.24).>H>.. 1240.NHH.. 1,1
6,1,D$.WHR.D$.I("00000".J(D(.(JF.100000)
),2),5)..H\.D$.D(YB..(JD.0.5)).".".D$..H
F.. 1,15,3,D$..HP.D..(JD.TZ.24.0.5).4.NH
Z.D.D.7..(D.7)..H... 1,16,4,WD$(D)."DAY
"..H..TD.JD..I... 2140..I... 1,8.+I...
1,0,8,J(D(SD.0.5),2)." KM".FI... 1,0,9,
J(D(SD.1.495985E8.10.0005)."0000",3,5)."
A.U."..I... 1,0,12,J(D(10.00005.SA)."00
00",3,6)." DEG"..IJ.. 1,16.MIT.. 1,30,15
,J(D(.(PH.100)),2)."% FULL "..I..D$.J(D
(.(MG)),2)."D"..I..T..(24.(MG..(MG)))..J
..D$.D$.D(T).":"./J..D$.D$.I("00".J(D(M7
),2),2).GJ... MG.10 . D$.D$." ".^J... T.
10 . D$.D$." ".OJ... 1,30,18,D$..J$.. 1,
30,8,J(D(.(MD.0.5)),2)." KM".KJ... 1,30,
9,J(D(MD.6378.16.0.05)."0000",2,4)." E R
AD"..J8.. 1,30,12,J(D(10.00005.MS)."0000
",3,6)." DEG"..KB.. 3330..KL.. JD.PA(4)
. 1200.(KV.SD.JD.3K`.. 3100.=KJ.. 1,2.GK
T.LU..(((PA(0).7).23683).29.53058868).1.
.K~.D.PA(0):. 1370:. 1,0,20,"NEW MOON:
".D$." LUNATION".D(LU).SK..D.PA(1):. 137
0:. 1,0,21,"FIRST QTR: ".D$..L..D.PA(2):
. 1370:. 1,0,22,"FULL MOON: ".D$.-L..D.P
A(3):. 1370:. 1,0,23,"LAST QTR: ".D$.NL
..D.PA(4):. 1370:. 1,0,24,"NEXT NEW: ".
D$." LUNATION".D(LU.1).TL.....LD.. EDIT
JULIAN DATE TO CIVIL DATE..LX.TD.D..L...
1730..L... 1920.RL..D$.I(D(H8.100),2)."
:"..L..D$.D$.I(D(M8.100),2).":"..M..D$.D
$.I(D(S8.100),2)." ".*M..D$.D$.I(" ".D(
D9),2)." ".HM..D$.D$.J(NM$,1.(M9.1).3,3)
.XM(.D$.D$.D(Y9).^M2....MF.. EDIT JULIAN
DATE TO SHORT DATE..MZ.TD.D..MD.. 1730.
.MN.. 1920..MX.D$.I(D(H8.100),2).":".YM.
.D$.D$.I(D(M8.100),2)." "..M..D$.D$.I("
".D(D9),2)." "..N..D$.D$.J(NM$,1.(M9.1)
.3,3)." ".@N .D$.D$.I(D(100.Y9.100..(Y9.
100)),2).FN....HN... CONVERT DATE IN Y,
M, AND D..NH.. TO JULIAN DATE IN J..N...
M.2 . M.M.3 :U M.M.9:Y.Y.1..N..C..(Y.10
0).BN..Y.Y.(100.C)..N..J.D..((C.146097).
4)..((Y.1461).4)..((M.153.2).5)..O..J.J.
726000..O.....O".. CONVERT LOCAL DATE AN
D TIME.RO,.. IN YY, MM, DD, AND H1, M1,
S1.VO6.. INTO ASTRONOMICAL JULIAN DATE..
O@.. IN JD...OT.Y.YY:M.MM:D.DD..O^.. 150
0..OH.JB.J.0.5.VOR.JF.(S1.60.(M1.60.H1))
.86400.(TZ.24)..O|.JD.JB.JF..O.....P...
CONVERT JULIAN DATE IN TD.,P... INTO Y9,
M9, D9 REPRESENTING.HP... YEAR, MONTH,
AND DAY..XPB.J..(TD.0.5).GPL.J.J.726000.
.PV.Y..(((4.J).1).146097.0)..P..J.(J.4.0
).(1.0.(146097.0.Y))..P..D..(J.4.0).QP..
J..(((4.0.D).3.0).1461.0)..P..D.((4.0.D)
.3.0).(1461.0.J)..Q..D..((D.4.0).4.0). Q
..M..(((5.0.D).3).153.0).>Q..D.(5.0.D).(
3.0.(153.0.M)).SQ&.D..((D.5.0).5.0).EQ0.
Y.(100.0.Y).J..Q:.. M.10.0 . M.M.3 :U M.
M.9 : Y.Y.1..QD.Y9.Y:M9.M:D9.D..QN...DQB
.. CONVERT JULIAN TIME IN TD..QL.. INTO
TIME IN H8, M8, AND S8..Q..J.TD.0.5..R..
IJ.(J..(J)).86400..R..H8..(IJ.3600).5R..
M8..((IJ.60)).(H8.60).VR..S8..(IJ.(60.(M
8.60.H8)).0.5).\R....RF.. SOLVE THE EQU
ATION OF KEPLER..RZ.. INPUTS: M, E..R...
OUTPUT: K..R..M..R(M)..R..E1.M.KR..D1.E
1.E..(E1).M..R..E1.E1.D1.(1.E..(E1))..R
.. .(D1).1E.6 . 2060..S*.K.E1..S4...-SH.
. CALCULATE MOON AND SUN INFO.PS\.D3.TD.
2880.5 : . DATE IN EPOCH.LSF.N..F((360.3
65.2422).D3)..SP.M3..F(N.(278.833540.282
.596403))..SZ.M.M3 : E.EO : . 2040.IS..E
C..((1.EO).(1.EO))..(K.2)..S..EC.2..D(A(
EC))..S..LS..F(EC.282.596403)..T..F.((1.
EO..(.R(EC))).(1.EO.EO)).,T..SD.1.495985
E8.F.>T..SA.F.0.533128.^T... CALCULATE M
OON'S POSITION..TJ.ML..F(13.1763966.D3.6
4.975464)..TT.M4..F(ML.0.1114041.D3.349.
383063).JT..MN..F(151.950429.0.0529539.D
3)..T..EV.1.2739..(.R(2.(ML.LS).M4))..U.
.AE.0.1858..(.R(M3))..U..A3.0.37..(.R(M3
)).-U..MP.M4.EV.AE.A3.EU..ME.6.2886..(.R
(MP)).^U..A4.0.214..(.R(2.MP)).TU$.LP.ML
.EV.ME.AE.A4..U..V.0.6583..(.R(2.(LP.LS)
))..U8.L4.LP.V..UB.NP.MN.0.16..(.R(M3)).
VUL.Y..(.R(L4.NP))..(5.145396)..UV.X..(.
R(L4.NP))..U`.. X..0 . 2440..VJ.. Y.0 .
LM.0 : . 2450.3VT.. Y.0 . LM...2 :U LM..
..2.>V~.. 2450.LV..LM.A(Y.X).]V..LM..D(L
M).NP.JV..MA.L4.LS..V..PH.(1..(.R(MA))).
2..V..MD.(384401.(1.MC.MC)).(1.MC..(.R(M
P.ME)))..V..MF.MD.384401.QVD.MS.0.5181.M
F..VN.MG.29.53058868.(.F(MA).360)..WX.M7
.1440.(MG..(MG)):M7..(M7.60..(M7.60)).#W
....FW... CALCULATE MEAN PHASE OF MOON.J
W... FROM A STARTING DATE SD AND A..W...
PHASE SELECTOR IN PH. RETURNS..W... ME
AN PHASE IN MH...W(.TD.SD..W2.. 1730..W<
.K.(Y9.((M9.1).(1.0.12.0)).1900).12.3685
..WF.T.(SD.32099).36525..XP.T2.T.T..XZ.T
3.T2.T.$XD.K..(K).PH.-XN.UK.K.KXX.MH..32
098.24067.29.53058868.K.0.0001178.T2.0.0
00000155.T3..X..MH.MH.0.00033..S(166.56.
132.87.T.0.009173.T2)..X....HX .. CALCUL
ATE TRUE, CORRECTED TIME..X... OF MOON P
HASE GIVEN MEAN PHASE..Y... TIME IN UK A
ND PHASE SELECTOR.5Y... IN PH. RETURNS
PHASE TIME IN.?YH.. PT..KY..K.UK.PH.[Y..
T.K.1236.85.FY..T2.T.T.RY..T3.T2.T..Y..P
T..32098.24067.29.53058868.K.0.0001178.T
2.0.000000155.T3..Y..PT.PT.0.00033..S(16
6.56.132.87.T.0.009173.T2)..Z..M.359.224
2.29.10535608.K.0.0000333.T2.0.00000347.
T3.TZ".M1.306.0253.385.81691806.K.0.0107
306.T2.0.00001236.T3..Z,.F.21.2964.390.6
7050646.K.0.0016528.T2.0.00000239.T3..Z6
.. (PH.0.01) . (.(PH.0.5).0.01) . 2960.Y
Z@.. CORRECTIONS FOR NEW AND FULL..ZJ.PT
.PT.(0.1734.0.000393.T)..S(M).4[T.PT.PT.
0.0021..S(2.M).0.4068..S(M1).0.0161..S(2
.M1).M[^.PT.PT.0.0004..S(3.M1).0.0104..S
(2.F).0.0051..S(M.M1)..[H.PT.PT.0.0074..
S(M.M1).0.0004..S(2.F.M).0.0004..S(2.F.M
)..[R.PT.PT.0.0006..S(2.F.M1).0.0010..S(
2.F.M1).0.0005..S(M.2.M1)..[|....\... CO
RRECTIONS FOR QUARTER PHASES.E\..PT.PT.(
0.1721.0.0004.T)..S(M).0.0021..S(2.M).}\
..PT.PT.0.6280..S(M1).0.0089..S(2.M1).0.
0004..S(3.M1)..\..PT.PT.0.0079..S(2.F).0
.0119..S(M.M1).0.0047..S(M.M1)..\..PT.PT
.0.0003..S(2.F.M).0.0004..S(2.F.M).0.000
6..S(2.F.M1).4]..PT.PT.0.0021..S(2.F.M1)
.0.0003..S(M.2.M1).0.0004..S(M.2.M1).P]B
.PT.PT.0.0003..S(2.M.M1)..]L.. PH.0.5 .
PT.PT.0.0028.0.0004..C(M).0.0003..C(M1):
. 3040..]V.PT.PT.(.0.0028.0.0004..C(M).0
.0003..C(M1)).C].....]... FIND PHASE TIM
ES SURROUNDING..^... THE CURRENT DATE, G
IVEN IN SD..-^... LEAVES TIMES IN PA(0)-
PA(4).:^..AD.SD.45.D^&.S6.SD.S^0.SD.AD:P
H.0.^^:.. 2600.H^D.U6.UK.~^N.AD.AD.29.53
058868..^X.M6.MH..^B.SD.AD:PH.0..^L.. 26
00.B^V.. (M6..S6) . (MH.S6) . 3230.L^..M
6.MH.V^..U6.UK..^... 3150..^..U7.UK.._..
UK.U6:PH.0:. 2780:PA(0).PT.,_..UK.U6:PH.
0.25:. 2780:PA(1).PT.M_..UK.U6:PH.0.5:.
2780:PA(2).PT.O_F.UK.U6:PH.0.75:. 2780:P
A(3).PT.._P.UK.U7:PH.0:. 2780:PA(4).PT..
_Z...._... DRAW THE MOON AT AGE MA.P_..C
X.160:CY.100:XS.65:YS.50.._..T4..F(MA).3
60.._..T1..(XS..(2...T4))..` .. T1.W6 .
T4..W4 . ...`*.. 1,2.D`4.. W6...1000 . .
0,CX,CY,W5,YS,W7,W8.T`>.W6.T1:W4.T4.I`H
.. T4..0.5 . 3490..`R.. W9.2 . . 0,CX,CY
,XS,YS,180,0..`\.. 1,CX,CY,XS,YS,0,180..
`F.W9.1..`P.W7.0:W8.180..`Z.. T1.0 . T1.
.T1:W7.180:W8.0..`... 1,CX,CY,T1,YS,W7,W
8..A..W5.T1..A....,A... W9.1 . . 0,CX,CY
,XS,YS,0,180.FA... 1,CX,CY,XS,YS,180,0.O
A..W9.2._A..W7.180:W8.0.AJ.. T1.0 . T1.
.T1:W7.0:W8.180..AT.. 3460..A... PAINT S
TATIC SCREEN CONTENTS..A... 1,2.VA... 1,
0,1,"LOCAL TIME: "..A... 1,0,2,"UNIV
ERSAL TIME: "..B... 1,0,3,"JULIAN DATE:
"..B$.. 1,8./B... 1,3,5,"SUN".FB8.. 1,
1,7,"DISTANCE".^BB.. 1,1,11,"SUBTENDS".I
BL.. 1,16.}BV.. 1,32,5,"MOON"..B`.. 1,32
,14,"PHASE"..BJ.. 1,33,17,"AGE"..BT.. 1,
31,7,"DISTANCE".XB~.. 1,31,11,"SUBTENDS"
..B.. 1,2..B... 1,0,15,"............"..
C... 1,0,16,". Q - QUIT .".6C... 1,0,17,
"............".PC... 1,4:. 1,4,18,"SLOW"
.VC.....C ..53281,0:.53280,0:.G(142)G(8)
"...".6)"R A I N Y D A Y M O O N"..C
....13)"..BY JOHN WALKER..".AC.....C..Q9
$."":.198,0:U9.53280..C...241,.(0).16.1:
.A$:."...";..D...A$."".5010. D...A$.G(13
).." ":..QD...(A$.G(20).C(Q9$)).Q9$.H(Q9
$,C(Q9$).1):.5080.MD...C(Q9$)..L9..5100:
.5010..DD..(A$."0".A$."9").(A$."A".A$."Z
").A$.." "..5100:.5010..DN.Q9$.Q9$.A$.OD
X..A$;:.A$.G(34)..212,0.YD...5010..E..T9
.B(U9):.U9,1:.G(7);:.T.0.20:.:.U9,T9:...
EP.. ...EZ..".".<E..."HELLO CONNECT"."HE
LLO CONNECT".JE...DS..63...\E..."128 MEN
U":...E.'."RAINY DAY MOON":."RAINY DAY M
OON":....
> CLICK IMAGE PREVIEW FOR FULL MODAL