Carcosa Calendar Revisited.

So I have been programming lately. Nothing spectacular. Just giving the old DARKBASIC PRO a try again. Made some character, npc, and monster generators, plus working on a few mapping programs.
Though few months back I had forgotten that I had written up a Celestial Events program.
It assumes that at year zero there was some crazy alignment of all the planets in the system, the two suns and both moons of carcosa. From there it calculates when moons are new/full, when planets are aligned and when the secondary sun in my campaigns is either eclipsing or being eclipsed by the primary sun.
(Decided each month represents an eclipse phase of the suns.)
I set it to do a print up of the year 1138... Ya I know, but it was the first big number that came to mind.

As was commented on my earlier Calendar post, it's true. Most players won't care about such things. Though I do have a couple who love this stuff.

This gives me a chance to prepare weird events triggered by celestial alignments.

Year:1138, Month:Cesto, Day:1 , Weekday:Naolda Event:  WINTER SOLSTICE
Year:1138, Month:Cesto, Day:12 , Weekday:Thothda Event:  FULL MOON[Camillia]
Year:1138, Month:Cesto, Day:15 , Weekday:Haida Event:  FULL MOON[Casilda]
Year:1138, Month:Cesto, Day:24 , Weekday:Thalda Event:  NEW MOON[Camillia]
Year:1138, Month:Ybrii, Day:34 , Weekday:Thalda Event:  NEW SUN
Year:1138, Month:Ybrii, Day:2 , Weekday:Naolda Event:  FULL MOON[Camillia]
Year:1138, Month:Ybrii, Day:2 , Weekday:Naolda Event:  NEW MOON[Casilda]
Year:1138, Month:Ybrii, Day:14 , Weekday:Uohda Event:  NEW MOON[Camillia]
Year:1138, Month:Ybrii, Day:23 , Weekday:Thothda Event:  FULL MOON[Casilda]
Year:1138, Month:Ybrii, Day:26 , Weekday:Haida Event:  FULL MOON[Camillia]
Year:1138, Month:Hassak, Day:34 , Weekday:Uohda Event:  FULL SUN
Year:1138, Month:Hassak, Day:4 , Weekday:Thothda Event:  NEW MOON[Camillia]
Year:1138, Month:Hassak, Day:4 , Weekday:Thothda Event:  THALE ALIGNED
Year:1138, Month:Hassak, Day:10 , Weekday:Uohda Event:  NEW MOON[Casilda]
Year:1138, Month:Hassak, Day:16 , Weekday:Thalda Event:  FULL MOON[Camillia]
Year:1138, Month:Hassak, Day:28 , Weekday:Naolda Event:  NEW MOON[Camillia]
Year:1138, Month:Hassak, Day:31 , Weekday:Thalda Event:  FULL MOON[Casilda]
Year:1138, Month:Kaydaro, Day:34 , Weekday:Thothda Event:  NEW SUN
Year:1138, Month:Kaydaro, Day:1 , Weekday:Uohda Event:  SPRING EQUINOX
Year:1138, Month:Kaydaro, Day:6 , Weekday:Uohda Event:  FULL MOON[Camillia]
Year:1138, Month:Kaydaro, Day:18 , Weekday:Haida Event:  NEW MOON[Camillia]
Year:1138, Month:Kaydaro, Day:18 , Weekday:Haida Event:  NEW MOON[Casilda]
Year:1138, Month:Kaydaro, Day:30 , Weekday:Thothda Event:  FULL MOON[Camillia]
Year:1138, Month:Mullus, Day:34 , Weekday:Naolda Event:  FULL SUN
Year:1138, Month:Mullus, Day:5 , Weekday:Naolda Event:  FULL MOON[Casilda]
Year:1138, Month:Mullus, Day:8 , Weekday:Thalda Event:  NEW MOON[Camillia]
Year:1138, Month:Mullus, Day:20 , Weekday:Naolda Event:  FULL MOON[Camillia]
Year:1138, Month:Mullus, Day:20 , Weekday:Naolda Event:  NAOTALBA ALIGNED
Year:1138, Month:Mullus, Day:26 , Weekday:Thothda Event:  NEW MOON[Casilda]
Year:1138, Month:Mullus, Day:32 , Weekday:Uohda Event:  NEW MOON[Camillia]
Year:1138, Month:Obera, Day:34 , Weekday:Haida Event:  NEW SUN
Year:1138, Month:Obera, Day:10 , Weekday:Haida Event:  FULL MOON[Camillia]
Year:1138, Month:Obera, Day:13 , Weekday:Uohda Event:  FULL MOON[Casilda]
Year:1138, Month:Obera, Day:16 , Weekday:Naolda Event:  THALE ALIGNED
Year:1138, Month:Obera, Day:22 , Weekday:Thothda Event:  NEW MOON[Camillia]
Year:1138, Month:Eysu, Day:34 , Weekday:Thalda Event:  FULL SUN
Year:1138, Month:Eysu, Day:34 , Weekday:Thalda Event:  FULL MOON[Camillia]
Year:1138, Month:Eysu, Day:34 , Weekday:Thalda Event:  NEW MOON[Casilda]
Year:1138, Month:Eysu, Day:1 , Weekday:Haida Event:  SUMMER SOLSTICE
Year:1138, Month:Eysu, Day:12 , Weekday:Naolda Event:  NEW MOON[Camillia]
Year:1138, Month:Eysu, Day:21 , Weekday:Haida Event:  FULL MOON[Casilda]
Year:1138, Month:Eysu, Day:24 , Weekday:Uohda Event:  FULL MOON[Camillia]
Year:1138, Month:Lobra, Day:34 , Weekday:Uohda Event:  NEW SUN
Year:1138, Month:Lobra, Day:2 , Weekday:Haida Event:  NEW MOON[Camillia]
Year:1138, Month:Lobra, Day:8 , Weekday:Naolda Event:  NEW MOON[Casilda]
Year:1138, Month:Lobra, Day:14 , Weekday:Thothda Event:  FULL MOON[Camillia]
Year:1138, Month:Lobra, Day:26 , Weekday:Thalda Event:  NEW MOON[Camillia]
Year:1138, Month:Lobra, Day:29 , Weekday:Thothda Event:  FULL MOON[Casilda]
Year:1138, Month:Tymoy, Day:34 , Weekday:Thothda Event:  FULL SUN
Year:1138, Month:Tymoy, Day:4 , Weekday:Naolda Event:  FULL MOON[Camillia]
Year:1138, Month:Tymoy, Day:16 , Weekday:Uohda Event:  NEW MOON[Camillia]
Year:1138, Month:Tymoy, Day:16 , Weekday:Uohda Event:  NEW MOON[Casilda]
Year:1138, Month:Tymoy, Day:28 , Weekday:Haida Event:  FULL MOON[Camillia]
Year:1138, Month:Tymoy, Day:28 , Weekday:Haida Event:  THALE ALIGNED
Year:1138, Month:Myrro, Day:34 , Weekday:Naolda Event:  NEW SUN
Year:1138, Month:Myrro, Day:34 , Weekday:Naolda Event:  UOHT ALIGNED
Year:1138, Month:Myrro, Day:1 , Weekday:Thothda Event:  FALL EQUINOX
Year:1138, Month:Myrro, Day:3 , Weekday:Thalda Event:  FULL MOON[Casilda]
Year:1138, Month:Myrro, Day:6 , Weekday:Thothda Event:  NEW MOON[Camillia]
Year:1138, Month:Myrro, Day:18 , Weekday:Thalda Event:  FULL MOON[Camillia]
Year:1138, Month:Myrro, Day:24 , Weekday:Haida Event:  NEW MOON[Casilda]
Year:1138, Month:Myrro, Day:30 , Weekday:Naolda Event:  NEW MOON[Camillia]
Year:1138, Month:Lhada, Day:34 , Weekday:Haida Event:  FULL SUN
Year:1138, Month:Lhada, Day:8 , Weekday:Uohda Event:  FULL MOON[Camillia]
Year:1138, Month:Lhada, Day:11 , Weekday:Naolda Event:  FULL MOON[Casilda]
Year:1138, Month:Lhada, Day:20 , Weekday:Haida Event:  NEW MOON[Camillia]
Year:1138, Month:Lhada, Day:32 , Weekday:Thothda Event:  FULL MOON[Camillia]
Year:1138, Month:Lhada, Day:32 , Weekday:Thothda Event:  NEW MOON[Casilda]
Year:1138, Month:Sathoth, Day:34 , Weekday:Thalda Event:  NEW SUN
Year:1138, Month:Sathoth, Day:34 , Weekday:Thalda Event:  THINNING OF THE VEIL
Year:1138, Month:Sathoth, Day:10 , Weekday:Thalda Event:  NEW MOON[Camillia]
Year:1138, Month:Sathoth, Day:19 , Weekday:Uohda Event:  FULL MOON[Casilda]
Year:1138, Month:Sathoth, Day:22 , Weekday:Naolda Event:  FULL MOON[Camillia]
Year:1138, Month:Sathoth, Day:34 , Weekday:Uohda Event:  FULL SUN
Year:1138, Month:Sathoth, Day:34 , Weekday:Uohda Event:  NEW MOON[Camillia]
Year:1138, Month:Sathoth, Day:34 , Weekday:Uohda Event:  NEW YEAR
Year:1138, Month:Sathoth, Day:34 , Weekday:Uohda Event:  ALDONES ALIGNED