From f6b02e9a79f49df394a0fa5c836dd961855f1419 Mon Sep 17 00:00:00 2001
From: "Walter D. Pullen" <31943358+CruiserOne@users.noreply.github.com>
Date: Mon, 5 Oct 2020 13:02:11 -0700
Subject: [PATCH] Upload all version 7.10 files

---
 Makefile     |    2 +-
 astrolog.as  |    8 +-
 astrolog.cpp |  989 ++++++++-----------
 astrolog.def |    6 +-
 astrolog.doc |  Bin 762880 -> 793088 bytes
 astrolog.h   | 1072 +++++++++++----------
 astrolog.htm | 2581 ++++++++++++++++++++++++++++++--------------------
 astrolog.rc  |  234 +++--
 atlas.as     |    2 +-
 atlas.cpp    |   65 +-
 calc.cpp     |  662 +++++++------
 changes.doc  |  Bin 146432 -> 83968 bytes
 changes.htm  | 1947 ++++++++++---------------------------
 charts0.cpp  |  170 ++--
 charts1.cpp  |  604 +++++++-----
 charts2.cpp  |  226 +++--
 charts3.cpp  |  389 ++++----
 data.cpp     |   58 +-
 express.cpp  |  444 +++++++--
 extern.h     |   72 +-
 general.cpp  |  231 +++--
 intrpret.cpp |   87 +-
 io.cpp       |  532 +++++++++--
 makefile.com |    2 +-
 matrix.cpp   |  137 +--
 placalc.cpp  |    4 +-
 placalc.h    |    4 +-
 placalc2.cpp |    4 +-
 resource.h   |  926 +++++++++---------
 sefstars.txt |   20 +-
 swecl.cpp    |  159 +++-
 swedate.cpp  |    1 -
 swehouse.cpp |  525 ++++++++--
 swehouse.h   |   13 +-
 swejpl.cpp   |    1 -
 swejpl.h     |    1 -
 swemmoon.cpp |    1 -
 swemplan.cpp |    1 -
 swemptab.h   |    1 -
 swenut2a.h   |    1 -
 sweodef.h    |    1 -
 sweph.cpp    |  795 ++++++++++++----
 sweph.h      |  336 +++++--
 swephexp.h   |   38 +-
 swephlib.cpp |  216 ++++-
 swephlib.h   |    5 +-
 timezone.as  |  518 +++++++---
 wdialog.cpp  |  394 +-------
 wdriver.cpp  |  515 +++++-----
 xcharts0.cpp |  760 +++++++--------
 xcharts1.cpp | 1270 ++++++++++++++++++-------
 xcharts2.cpp |  362 ++++---
 xdata.cpp    |  608 ++++++------
 xdevice.cpp  |  449 +++------
 xgeneral.cpp |  573 ++++++++---
 xscreen.cpp  |  568 +++++------
 56 files changed, 11165 insertions(+), 8425 deletions(-)

diff --git a/Makefile b/Makefile
index 8a7a76f..109950e 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-# Astrolog (Version 7.00) File: Makefile (Unix version)
+# Astrolog (Version 7.10) File: Makefile (Unix version)
 #
 # IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 # not enumerated elsewhere in this program are Copyright (C) 1991-2020 by
diff --git a/astrolog.as b/astrolog.as
index e042fda..17dbbef 100644
--- a/astrolog.as
+++ b/astrolog.as
@@ -1,10 +1,10 @@
-@AD700  ; Astrolog 7.00 default settings file astrolog.as
+@AD710  ; Astrolog 7.10 default settings file astrolog.as
 
 -z 8:00W                ; Default time zone     [hours W or E of UTC   ]
 -z0 Autodetect          ; Default Daylight time [0 standard, 1 daylight]
 -zl 122W19:59 47N36:35  ; Default location      [longitude and latitude]
 -zv 167ft               ; Default elevation     [in feet or meters     ]
--zj "Current moment now" "Seattle, WA" ; Default name and location
+-zj "Current moment now" "Seattle, WA, USA" ; Default name and location
 
 ;-n      ; Comment out this line to not start with chart for "now".
 -Yz 0   ; Time minute addition to be used if "now" charts are offset.
@@ -109,7 +109,7 @@ _Yr     ; Show rounded positions    ["=Yr" rounds, "_Yr" doesn't       ]
 -YjT 43 43  60                             ; Fixed stars
 
 -Yj0 20 10 15 5  ; In ruling sign, exalted sign, ruling house, exalted house
--Yj7 10 10 10 5 5 5  ; Esoteric, Hierarchical, Ray ruling - sign, house
+-Yj7 10 10 10 5 5 5  ; In Esoteric, Hierarchical, Ray ruling (signs, houses)
 
 
 ; DEFAULT RAYS:
@@ -151,7 +151,7 @@ _Xr              ; Reverse background ["_Xr" is black, "=Xr" is white     ]
 :YXS 0.0         ; Orbit radius in AU ["0.0" for autodetect]
 :YXj 0           ; Orbit trail count
 :YX7 600         ; Esoteric ray column influence width
-:YXf 0           ; Use actual fonts
+:YXf 0000        ; Use system fonts   [signs, houses, planets, aspects]
 :YXp 0           ; PostScript paper orientation ["-1" portrait, "1" landscape]
 :YXp0 8.5in 11in ; PostScript paper X and Y sizes
 
diff --git a/astrolog.cpp b/astrolog.cpp
index 0d9b594..531772e 100644
--- a/astrolog.cpp
+++ b/astrolog.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: astrolog.cpp
+** Astrolog (Version 7.10) File: astrolog.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -66,7 +66,7 @@ void InitColors(void)
 {
   int *rgObjRuler = ruler1, i, k;
 
-  /* Figure out which rulership set to use for "Element" color. */
+  // Figure out which rulership set to use for "Element" color.
   if (ignore7[rrStd]) {
     if      (!ignore7[rrExa]) rgObjRuler = exalt;
     else if (!ignore7[rrEso]) rgObjRuler = rgObjEso1;
@@ -74,7 +74,7 @@ void InitColors(void)
     else if (!ignore7[rrRay]) rgObjRuler = NULL;
   }
 
-  /* Determine and assign the color of each object. */
+  // Determine and assign the color of each planet.
   for (i = 0; i <= oNorm; i++) {
     k = kObjU[i];
     if (k == kRay || rgObjRuler == NULL)
@@ -83,6 +83,8 @@ void InitColors(void)
       k = kElemA[(rgObjRuler[i]-1) & 3];
     kObjA[i] = k;
   }
+
+  // Determine and assign the color of each star.
   EnsureStarBright();
   for (i = starLo; i <= starHi; i++)
     kObjA[i] = KStarA(rStarBright[i-starLo+1]);
@@ -99,8 +101,8 @@ void Action(void)
   int iChart = 0, i;
   flag fHTML, fHTMLClip;
 
-  /* If the -os switch is in effect, open a file and set a global to */
-  /* internally 'redirect' all screen output to.                     */
+  // If the -os switch is in effect, open a file and set a global to
+  // internally 'redirect' all screen output to.
 
   if (is.szFileScreen) {
     is.S = fopen(is.szFileScreen, "w");
@@ -113,7 +115,7 @@ void Action(void)
     is.S = stdout;
   is.cchRow = 0;
 
-  /* If the -kh switch is in effect, start outputting a new HTML file. */
+  // If the -kh switch is in effect, start outputting a new HTML file.
 
   fHTML = us.fTextHTML && !us.fGraphics && is.S != stdout;
   if (fHTML) {
@@ -137,14 +139,14 @@ void Action(void)
   if (iChart < us.cSequenceLine && is.rgszLine[iChart] != NULL)
     FProcessCommandLine(is.rgszLine[iChart]);
 #ifdef WIN
-  is.fMult = fFalse;    /* Cleared here because no InitVariables routine. */
+  is.fMult = fFalse;    // Cleared here because no InitVariables routine.
 #endif
   is.fSzPersist = is.fNoEphFile = fFalse;
   InitColors();
   AnsiColor(kDefault);
 
-  /* First let's adjust the restriction status of the cusps, Uranians, and */
-  /* fixed stars based on whether -C, -u, and -U switches are in effect.   */
+  // First adjust the restriction status of the cusps, Uranians, and stars
+  // based on whether -C, -u, and -U switches are in effect.
 
   if (!us.fCusp)
     for (i = cuspLo; i <= cuspHi; i++)
@@ -156,15 +158,15 @@ void Action(void)
     for (i = starLo; i <= starHi; i++)
       ignore[i] = ignore2[i] = fTrue;
 
-  if (FPrintTables())    /* Print out any generic tables specified.        */
-    goto LDone;          /* If nothing else to do, we can exit right away. */
+  if (FPrintTables())    // Print out any generic tables specified.
+    goto LDone;          // If nothing else to do, then exit right away.
   if (is.fMult) {
     PrintL2();
     is.fMult = fFalse;
   }
 
-  /* If -+ or -- switches in effect, then add the specified delta value to */
-  /* the date and use that as a new date before proceeding to make chart.  */
+  // If -+ or -- switches in effect, then add the specified delta value to the
+  // date and use that as a new date before proceeding to make chart.
 
   if (us.dayDelta != 0) {
     is.JD = (real)MdyToJulian(MM, DD+us.dayDelta, YY);
@@ -172,20 +174,25 @@ void Action(void)
     us.dayDelta = 0;
   }
 
-  /* Here we either do a normal chart or some kind of relationship chart. */
+  // Here either do a normal chart or some kind of relationship chart.
 
+#ifdef EXPRESS
+  // Notify AstroExpression a chart is about to be drawn.
+  if (!us.fExpOff && FSzSet(us.szExpDisp1))
+    ParseExpression(us.szExpDisp1);
+#endif
   if (!us.nRel) {
 #ifndef WIN
-    /* If chart info not in memory yet, then prompt the user for it. */
+    // If chart info not in memory yet, then prompt the user for it.
     if (!is.fHaveInfo && !FInputData(szTtyCore))
       return;
     ciMain = ciCore;
-    CastChart(fTrue);
+    CastChart(1);
 #else
     ciMain = ciCore;
     if (wi.fCast || us.cSequenceLine > 0) {
       wi.fCast = fFalse;
-      CastChart(fTrue);
+      CastChart(1);
     }
 #endif
   } else {
@@ -197,8 +204,8 @@ void Action(void)
 #endif
 
 #ifdef GRAPH
-  if (us.fGraphics)         /* If any of the X window switches in effect, */
-    FActionX();             /* then go make a graphics chart...           */
+  if (us.fGraphics)         // If any of the X window switches in effect,
+    FActionX();             // then go make a graphics chart.
   else
 #endif
   {
@@ -209,7 +216,7 @@ void Action(void)
       AnsiColor(kDefault);
     }
 #endif
-    PrintChart(is.fProgress);    /* Otherwise print chart on text screen. */
+    PrintChart(is.fProgress);    // Otherwise print chart on text screen.
 #ifdef GRAPH
     if (gs.fInverse) {
       SwapN(kBlackA, kWhiteA);
@@ -217,6 +224,11 @@ void Action(void)
     }
 #endif
   }
+#ifdef EXPRESS
+  // Notify AstroExpression a chart has just been drawn.
+  if (!us.fExpOff && FSzSet(us.szExpDisp2))
+    ParseExpression(us.szExpDisp2);
+#endif
 
 LDone:
   iChart++;
@@ -225,7 +237,7 @@ void Action(void)
     goto LNext;
   }
 
-  if (fHTML) {        /* If -kh switch in effect, end the HTML file. */
+  if (fHTML) {           // If -kh switch in effect, end the HTML file.
     is.nHTML = 2;
     PrintSz("</font>\n</font>");
     if (fHTMLClip)
@@ -234,11 +246,11 @@ void Action(void)
     is.nHTML = 0;
   }
 
-  if (us.fWriteFile)        /* If -o switch in effect, then write */
-    FOutputData();          /* the chart information to a file.   */
+  if (us.fWriteFile)     // If -o switch in effect, then write the chart
+    FOutputData();       // information to a file.
 
-  if (is.S != stdout) /* If we were internally directing chart display to a */
-    fclose(is.S);     /* file as with the -os switch, close it here.        */
+  if (is.S != stdout)    // If were internally directing chart display to a
+    fclose(is.S);        // file as with the -os switch, close it here.
 }
 
 
@@ -270,7 +282,7 @@ void InitVariables(void)
 
 flag FProcessCommandLine(char *szLine)
 {
-  char szCommandLine[cchSzMax], *rgsz[MAXSWITCHES];
+  char szCommandLine[cchSzLine], *rgsz[MAXSWITCHES];
   int argc, cb;
   flag fT = fFalse, fSav;
   FILE *fileT;
@@ -279,7 +291,7 @@ flag FProcessCommandLine(char *szLine)
     return fTrue;
   cb = CchSz(szLine)+1;
 
-  /* Check for filename on command line */
+  // Check for filename on command line.
   if (!FChSwitch(szLine[0])) {
     fileT = fopen(szLine, "r");
     if (fileT != NULL) {
@@ -308,14 +320,14 @@ int NParseCommandLine(char *szLine, char **argv)
   int argc = 1, fSpace = fTrue;
   char *pch = szLine, chQuote = chNull;
 
-  /* Split the entered line up into its individual switch strings. */
+  // Split the entered line up into its individual switch strings.
   while ((uchar)*pch >= ' ' || *pch == chTab) {
     if (*pch == ' ' || *pch == chTab) {
       if (fSpace)
-        /* Skip over the current run of spaces between strings. */
+        // Skip over the current run of spaces between strings.
         ;
       else {
-        /* First space after a string, end parameter here. */
+        // First space after a string, end parameter here.
         if (chQuote == chNull) {
           *pch = chNull;
           fSpace = fTrue;
@@ -323,7 +335,7 @@ int NParseCommandLine(char *szLine, char **argv)
       }
     } else {
       if (fSpace) {
-        /* First character after run of spaces, begin parameter here. */
+        // First character after run of spaces, begin parameter here.
         if (argc >= MAXSWITCHES-1) {
           PrintWarning("Too many parameters! Rest of line ignored.");
           break;
@@ -332,7 +344,7 @@ int NParseCommandLine(char *szLine, char **argv)
         argv[argc++] = pch + (chQuote != chNull);
         fSpace = fFalse;
       } else {
-        /* Skip over the current string. */
+        // Skip over the current string.
         if (chQuote != chNull && *pch == chQuote) {
           *pch = chNull;
           fSpace = fTrue;
@@ -342,7 +354,7 @@ int NParseCommandLine(char *szLine, char **argv)
     pch++;
   }
   argv[0] = (char *)szAppNameCore;
-  argv[argc] = NULL;         /* Set last string in switch array to Null. */
+  argv[argc] = NULL;               // Set last string in switch array to Null.
   return argc;
 }
 
@@ -418,12 +430,23 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     SwitchF(us.fBarycenter);
     break;
 
+  case 'm':
+    SwitchF(us.fMoonMove);
+    break;
+
   case 's':
     SwitchF(us.fSidereal2);
     break;
 
   case 'n':
-    SwitchF(us.fTrueNode);
+    if (ch1 == '0')
+      SwitchF(us.fNoNutation);
+    else
+      SwitchF(us.fTrueNode);
+    break;
+
+  case 'u':
+    SwitchF(us.fEclipse);
     break;
 
   case 'd':
@@ -455,15 +478,11 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case 'Q':
-    if (argc <= 1) {
-      ErrorArgc("YQ");
+    if (FErrorArgc("YQ", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (i < 0) {
-      ErrorValN("YQ", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YQ", i < 0, i, 0))
       return tcError;
-    }
     us.nScrollRow = i;
     darg++;
     break;
@@ -472,10 +491,8 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     i = (ch1 - '0');
     if (!FBetween(i, 0, 9))
       i = 0;
-    if (argc <= i) {
-      ErrorArgc("Yq");
+    if (FErrorArgc("Yq", argc, i))
       return tcError;
-    }
     us.cSequenceLine = i;
     for (i = 0; i < us.cSequenceLine; i++)
       is.rgszLine[i] = SzPersist(argv[i+1]);
@@ -483,10 +500,8 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case 'i':
-    if (argc <= 1) {
-      ErrorArgc("Yi");
+    if (FErrorArgc("Yi", argc, 1))
       return tcError;
-    }
     i = (ch1 - '0');
     if (!FBetween(i, 0, 9))
       i = 0;
@@ -501,40 +516,31 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 
   case 'c':
     SwitchF(us.fHouseAngle);
+    for (i = 0; i < 4; i++)
+      szObjDisp[oAsc + i*3] =
+        us.fHouseAngle ? szObjName[objMax + i] : szObjName[oAsc + i*3];
     break;
 
   case 'p':
     SwitchF(us.fPolarAsc);
     break;
 
-  case 'u':
-    SwitchF(us.fEclipse);
-    break;
-
   case 'z':
-    if (argc <= 1) {
-      ErrorArgc("Yz");
+    if (FErrorArgc("Yz", argc, 1))
       return tcError;
-    }
-    us.lTimeAddition = atol(argv[1]);
+    us.lTimeAddition = NFromSz(argv[1]);
     darg++;
     break;
 
   case '1':
-    if (argc <= 2) {
-      ErrorArgc("Y1");
+    if (FErrorArgc("Y1", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("Y1", i);
+    if (FErrorValN("Y1", !FItem(i), i, 1))
       return tcError;
-    }
     j = NParseSz(argv[2], pmObject);
-    if (!FItem(j)) {
-      ErrorValN("Y1", j);
+    if (FErrorValN("Y1", !FItem(j), j, 2))
       return tcError;
-    }
     us.fObjRotWhole = (ch1 == '0' && !fAnd);
     us.objRot1 = i;
     us.objRot2 = j;
@@ -542,65 +548,49 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case 'l':
-    if (argc <= 1) {
-      ErrorArgc("Yl");
+    if (FErrorArgc("Yl", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FSector(i)) {
-      ErrorValN("Yl", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("Yl", !FSector(i), i, 0))
       return tcError;
-    }
     SwitchF(pluszone[i]);
     darg++;
     break;
 
 #ifdef ARABIC
   case 'P':
-    if (argc <= 1) {
-      ErrorArgc("YP");
+    if (FErrorArgc("YP", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FBetween(i, -1, 1)) {
-      ErrorValN("YP", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YP", !FBetween(i, -1, 1), i, 0))
       return tcError;
-    }
     us.nArabicNight = i;
     darg++;
     break;
 #endif
 
   case 'b':
-    if (argc <= 1) {
-      ErrorArgc("Yb");
+    if (FErrorArgc("Yb", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidBioday(i)) {
-      ErrorValN("Yb", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("Yb", !FValidBioday(i), i, 0))
       return tcError;
-    }
     us.nBioday = i;
     darg++;
     break;
 
 #ifdef SWISS
   case 'e':
-    if (argc <= 2) {
-      ErrorArgc("Ye");
+    if (FErrorArgc("Ye", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FUranian(i)) {
-      ErrorValN("Ye", i);
+    if (FErrorValN("Ye", !FUranian(i), i, 1))
       return tcError;
-    }
     i -= uranLo;
-    j = (ch1 == 'b') + (ch1 == 'O')*2;
+    j = (ch1 == 'b') + (ch1 == 'O')*2 + (ch1 == 'm')*3;
     if (j > 0)
       ch1 = ch2;
-    rgObjSwiss[i] = j == 2 ? NParseSz(argv[2], pmObject) : atoi(argv[2]);
+    rgObjSwiss[i] = j == 2 ? NParseSz(argv[2], pmObject) : NFromSz(argv[2]);
     rgTypSwiss[i] = j;
     rgPntSwiss[i] =
       (ch1 == 'n') + (ch1 == 's')*2 + (ch1 == 'p')*3 + (ch1 == 'a')*4;
@@ -617,16 +607,12 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 
 #ifdef MATRIX
   case 'E':
-    if (argc <= 17) {
-      ErrorArgc("YE");
+    if (FErrorArgc("YE", argc, 17))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FHelio(i)) {
-      ErrorValN("YE", i);
+    if (FErrorValN("YE", !FHelio(i), i, 1))
       return tcError;
-    }
-    oe.sma = atof(argv[2]);
+    oe.sma = RFromSz(argv[2]);
     oe.ec0 = atof(argv[3]);  oe.ec1 = atof(argv[4]);  oe.ec2 = atof(argv[5]);
     oe.in0 = atof(argv[6]);  oe.in1 = atof(argv[7]);  oe.in2 = atof(argv[8]);
     oe.ap0 = atof(argv[9]);  oe.ap1 = atof(argv[10]); oe.ap2 = atof(argv[11]);
@@ -644,45 +630,35 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
         SwitchF(us.fStarMagAbs);
       break;
     }
-    if (argc <= 2) {
-      ErrorArgc("YU");
+    if (FErrorArgc("YU", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FStar(i)) {
-      ErrorValN("YU", i);
+    if (FErrorValN("YU", !FStar(i), i, 1))
       return tcError;
-    }
     szStarCustom[i-oNorm] = SzPersist(argv[2]);
     darg += 2;
     break;
 
   case 'R':
     if (ch1 == 'd') {
-      if (argc <= 1) {
-        ErrorArgc("YRd");
+      if (FErrorArgc("YRd", argc, 1))
         return tcError;
-      }
-      us.nSignDiv = atoi(argv[1]);
+      us.nSignDiv = NFromSz(argv[1]);
       darg++;
       break;
     } else if (ch1 == 'h') {
       SwitchF(us.fIgnoreAuto);
       break;
     } else if (ch1 == 'U') {
-      if (argc <= 1) {
-        ErrorArgc("YRU");
+      if (FErrorArgc("YRU", argc, 1))
         return tcError;
-      }
       us.fStarsList = (ch2 == '0');
       us.szStarsList = SzPersist(argv[1]);
       darg++;
       break;
     }
-    if (argc <= 2 + (ch1 == 'Z')*2 + (ch1 == '7')*3) {
-      ErrorArgc("YR");
+    if (FErrorArgc("YR", argc, 2 + (ch1 == 'Z')*2 + (ch1 == '7')*3))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject); j = NParseSz(argv[2], pmObject);
     if (ch1 == '0') {
       us.fIgnoreSign = i != 0;
@@ -692,34 +668,28 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     } else if (ch1 == 'Z') {
       ignorez[0] = i != 0;
       ignorez[1] = j != 0;
-      ignorez[2] = atoi(argv[3]) != 0;
-      ignorez[3] = atoi(argv[4]) != 0;
+      ignorez[2] = NFromSz(argv[3]) != 0;
+      ignorez[3] = NFromSz(argv[4]) != 0;
       darg += 4;
       break;
     } else if (ch1 == '7') {
       ignore7[0] = i != 0;
       ignore7[1] = j != 0;
-      ignore7[2] = atoi(argv[3]) != 0;
-      ignore7[3] = atoi(argv[4]) != 0;
-      ignore7[4] = atoi(argv[5]) != 0;
+      ignore7[2] = NFromSz(argv[3]) != 0;
+      ignore7[3] = NFromSz(argv[4]) != 0;
+      ignore7[4] = NFromSz(argv[5]) != 0;
       darg += 5;
       break;
     }
-    if (!FItem(i)) {
-      ErrorValN("YR", i);
+    if (FErrorValN("YR", !FItem(i), i, 1))
       return tcError;
-    }
-    if (!FItem(j) || j < i) {
-      ErrorValN("YR", j);
+    if (FErrorValN("YR", !FItem(j) || j < i, j, 2))
       return tcError;
-    }
-    if (argc <= 3+j-i) {
-      ErrorArgc("YR");
+    if (FErrorArgc("YR", argc, 3+j-i))
       return tcError;
-    }
     pb = ch1 == 'T' ? ignore2 : ignore;
     for (k = i; k <= j; k++)
-      pb[k] = atoi(argv[3+k-i]) != 0;
+      pb[k] = NFromSz(argv[3+k-i]) != 0;
     darg += 3+j-i;
     for (j = fFalse, i = cuspLo; i <= cuspHi; i++)
       if (!ignore[i] || !ignore2[i]) {
@@ -744,15 +714,11 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 
   case 'A':
     if (ch1 == 'D') {
-      if (argc <= 4) {
-        ErrorArgc("YAD");
+      if (FErrorArgc("YAD", argc, 4))
         return tcError;
-      }
       i = NParseSz(argv[1], pmAspect);
-      if (!FAspect2(i)) {
-        ErrorValN("YAD", i);
+      if (FErrorValN("YAD", !FAspect2(i), i, 1))
         return tcError;
-      }
       if (CchSz(argv[2]) >= 3)
         szAspectDisp[i] = SzPersist(argv[2]);
       else
@@ -768,97 +734,74 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
       darg += 4;
       break;
     }
-    if (argc <= 2) {
-      ErrorArgc("YA");
+    if (FErrorArgc("YA", argc, 2))
       return tcError;
-    }
     k = ch1 == 'm' || ch1 == 'd' ? pmObject : pmAspect;
     i = NParseSz(argv[1], k); j = NParseSz(argv[2], k);
     k = ch1 == 'm' || ch1 == 'd' ? oNorm+1 : cAspect;
-    if (!FBetween(i, (int)(ch1 == 'o' || ch1 == 'a'), k)) {
-      ErrorValN("YA", i);
+    if (FErrorValN("YA", !FBetween(i, (int)(ch1 == 'o' || ch1 == 'a'), k),
+      i, 1))
       return tcError;
-    }
-    if (!FBetween(j, 0, k) || j < i) {
-      ErrorValN("YA", j);
+    if (FErrorValN("YA", !FBetween(j, 0, k) || j < i, j, 2))
       return tcError;
-    }
-    if (argc <= 3+j-i) {
-      ErrorArgc("YA");
+    if (FErrorArgc("YA", argc, 3+j-i))
       return tcError;
-    }
     lpr = ch1 == 'o' ? rAspOrb : (ch1 == 'm' ? rObjOrb :
       (ch1 == 'd' ? rObjAdd : rAspAngle));
     for (k = i; k <= j; k++)
-      lpr[k] = atof(argv[3+k-i]);
+      lpr[k] = RFromSz(argv[3+k-i]);
     darg += 3+j-i;
     break;
 
   case 'j':
-    if (argc <= 2 + 2*(ch1 == '0') + 4*(ch1 == '7')) {
-      ErrorArgc("Yj");
+    if (FErrorArgc("Yj", argc, 2 + 2*(ch1 == '0') + 4*(ch1 == '7')))
       return tcError;
-    }
     if (ch1 == '0') {
-      rObjInf[oNorm1+1]  = atof(argv[1]);
-      rObjInf[oNorm1+2]  = atof(argv[2]);
-      rHouseInf[cSign+1] = atof(argv[3]);
-      rHouseInf[cSign+2] = atof(argv[4]);
+      rObjInf[oNorm1+1]  = RFromSz(argv[1]);
+      rObjInf[oNorm1+2]  = RFromSz(argv[2]);
+      rHouseInf[cSign+1] = RFromSz(argv[3]);
+      rHouseInf[cSign+2] = RFromSz(argv[4]);
       darg += 4;
       break;
     } else if (ch1 == '7') {
-      rObjInf[oNorm1+3]  = atof(argv[1]);
-      rObjInf[oNorm1+4]  = atof(argv[2]);
-      rObjInf[oNorm1+5]  = atof(argv[3]);
-      rHouseInf[cSign+3] = atof(argv[4]);
-      rHouseInf[cSign+4] = atof(argv[5]);
-      rHouseInf[cSign+5] = atof(argv[6]);
+      rObjInf[oNorm1+3]  = RFromSz(argv[1]);
+      rObjInf[oNorm1+4]  = RFromSz(argv[2]);
+      rObjInf[oNorm1+5]  = RFromSz(argv[3]);
+      rHouseInf[cSign+3] = RFromSz(argv[4]);
+      rHouseInf[cSign+4] = RFromSz(argv[5]);
+      rHouseInf[cSign+5] = RFromSz(argv[6]);
       darg += 6;
       break;
     }
     k = ch1 == 'C' ? pmSign : (ch1 == 'A' ? pmAspect : pmObject);
     i = NParseSz(argv[1], k); j = NParseSz(argv[2], k);
     k = ch1 == 'C' ? cSign : (ch1 == 'A' ? cAspect : oNorm1);
-    if (!FBetween(i, 0, k)) {
-      ErrorValN("Yj", i);
+    if (FErrorValN("Yj", !FBetween(i, 0, k), i, 1))
       return tcError;
-    }
-    if (!FBetween(j, 0, k) || j < i) {
-      ErrorValN("Yj", j);
+    if (FErrorValN("Yj", !FBetween(j, 0, k) || j < i, j, 2))
       return tcError;
-    }
-    if (argc <= 3+j-i) {
-      ErrorArgc("Yj");
+    if (FErrorArgc("Yj", argc, 3+j-i))
       return tcError;
-    }
     lpr = ch1 == 'C' ? rHouseInf : (ch1 == 'A' ? rAspInf :
       (ch1 == 'T' ? rTransitInf : rObjInf));
     for (k = i; k <= j; k++)
-      lpr[k] = atof(argv[3+k-i]);
+      lpr[k] = RFromSz(argv[3+k-i]);
     darg += 3+j-i;
     break;
 
   case 'J':
-    if (argc <= 3 - (ch1 == '0')) {
-      ErrorArgc("YJ");
+    if (FErrorArgc("YJ", argc, 3 - (ch1 == '0')))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FNorm(i)) {
-      ErrorValN("YJ", i);
+    if (FErrorValN("YJ", !FNorm(i), i, 1))
       return tcError;
-    }
     j = NParseSz(argv[2], pmSign);
-    if (!FBetween(j, 0, cSign)) {
-      ErrorValN("YJ", j);
+    if (FErrorValN("YJ", !FBetween(j, 0, cSign), j, 2))
       return tcError;
-    }
     if (ch1 != '0') {
       k = NParseSz(argv[3], pmSign);
-      if (!FBetween(k, 0, cSign)) {
-        ErrorValN("YJ", k);
+      if (FErrorValN("YJ", !FBetween(k, 0, cSign), k, 3))
         return tcError;
-      }
     }
     if (ch1 == chNull) {
       ruler1[i] = j;
@@ -894,32 +837,23 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case '7':
-    if (argc <= 2) {
-      ErrorArgc("Y7");
+    if (FErrorArgc("Y7", argc, 2))
       return tcError;
-    }
     k = ch1 == 'O' ? pmObject : (ch1 == 'C' ? pmSign : 0);
     i = NParseSz(argv[1], k); j = NParseSz(argv[2], k);
     k = ch1 == 'O' ? oNorm : (ch1 == 'C' ? cSign : 0);
-    if (!FBetween(i, (int)(ch1 == 'C'), k)) {
-      ErrorValN("Y7", i);
+    if (FErrorValN("Y7", !FBetween(i, (int)(ch1 == 'C'), k), i, 1))
       return tcError;
-    }
-    if (!FBetween(j, (int)(ch1 == 'C'), k) || j < i) {
-      ErrorValN("Y7", j);
+    if (FErrorValN("Y7", !FBetween(j, (int)(ch1 == 'C'), k) || j < i, j, 2))
       return tcError;
-    }
-    if (argc <= 3+j-i) {
-      ErrorArgc("Y7");
+    if (FErrorArgc("Y7", argc, 3+j-i))
       return tcError;
-    }
     lpn = ch1 == 'O' ? rgObjRay : (ch1 == 'C' ? rgSignRay : NULL);
     for (k = i; k <= j; k++) {
-      l = atoi(argv[3+k-i]);
-      if (!FBetween(l, (int)(ch1 == 'C'), ch1 != 'C' ? 7 : 1234567)) {
-        ErrorValN("Y7", l);
+      l = NFromSz(argv[3+k-i]);
+      if (FErrorValN("Y7",
+        !FBetween(l, (int)(ch1 == 'C'), ch1 != 'C' ? 7 : 1234567), l, 3+k-i))
         return tcError;
-      }
       lpn[k] = l;
     }
     darg += 3+j-i;
@@ -927,17 +861,13 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 
 #ifdef INTERPRET
   case 'I':
-    if (argc <= 2) {
-      ErrorArgc("YI");
+    if (FErrorArgc("YI", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1],
       ch1 == 'A' ? pmAspect : (ch1 == chNull ? pmObject : pmSign));
     j = ch1 == 'A' ? cAspect : (ch1 == chNull ? oNorm : cSign);
-    if (!FBetween(i, (int)(ch1 != chNull), j)) {
-      ErrorValN("YI", i);
+    if (FErrorValN("YI", !FBetween(i, (int)(ch1 != chNull), j), i, 1))
       return tcError;
-    }
     if (ch1 == 'A' && ch2 == '0')
       ch1 = '0';
     sz = SzPersist(argv[2]);
@@ -955,27 +885,21 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 
   case 'k':
     if (ch1 == 'U') {
-      if (argc <= 1) {
-        ErrorArgc("YkU");
+      if (FErrorArgc("YkU", argc, 1))
         return tcError;
-      }
       us.szStarsColor = SzPersist(argv[1]);
       darg++;
       break;
     }
     if (ch1 == 'E') {
-      if (argc <= 1) {
-        ErrorArgc("YkE");
+      if (FErrorArgc("YkE", argc, 1))
         return tcError;
-      }
       us.szAstColor = SzPersist(argv[1]);
       darg++;
       break;
     }
-    if (argc <= 2 + 2*(ch1 == 'C')) {
-      ErrorArgc("Yk");
+    if (FErrorArgc("Yk", argc, 2 + 2*(ch1 == 'C')))
       return tcError;
-    }
     if (ch1 == 'C') {
       kElemA[eFir] = NParseSz(argv[1], pmColor) & (cColor-1);
       kElemA[eEar] = NParseSz(argv[2], pmColor) & (cColor-1);
@@ -988,18 +912,14 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     i = NParseSz(argv[1], k); j = NParseSz(argv[2], k);
     k = ch1 == 'O' ? oNorm : (ch1 == 'A' ? cAspect :
       (ch1 == '0' || ch1 == '7' ? cRainbow : 8));
-    if (!FBetween(i, (int)(ch1 != chNull && ch1 != 'O'), k)) {
-      ErrorValN("Yk", i);
+    if (FErrorValN("Yk",
+      !FBetween(i, (int)(ch1 != chNull && ch1 != 'O'), k), i, 1))
       return tcError;
-    }
-    if (!FBetween(j, (int)(ch1 != chNull && ch1 != 'O'), k) || j < i) {
-      ErrorValN("Yk", j);
+    if (FErrorValN("Yk",
+      !FBetween(j, (int)(ch1 != chNull && ch1 != 'O'), k) || j < i, j, 2))
       return tcError;
-    }
-    if (argc <= 3+j-i) {
-      ErrorArgc("Yk");
+    if (FErrorArgc("Yk", argc, 3+j-i))
       return tcError;
-    }
     lpn = ch1 == 'O' ? kObjU : (ch1 == 'A' ? kAspA : (ch1 == '7' ? kRayA :
       (ch1 == '0' ? kRainbowA : kMainA)));
     for (k = i; k <= j; k++)
@@ -1008,15 +928,11 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case 'D':
-    if (argc <= 2) {
-      ErrorArgc("YD");
+    if (FErrorArgc("YD", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("YD", i);
+    if (FErrorValN("YD", !FItem(i), i, 1))
       return tcError;
-    }
     if (CchSz(argv[2]) >= 2)
       szObjDisp[i] = SzPersist(argv[2]);
     else
@@ -1025,17 +941,13 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     break;
 
   case 'F':
-    if (argc <= 8) {
-      ErrorArgc("YF");
+    if (FErrorArgc("YF", argc, 8))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("YF", i);
+    if (FErrorValN("YF", !FItem(i), i, 1))
       return tcError;
-    }
-    r = Mod((real)(atoi(argv[2]) +
-      (NParseSz(argv[3], pmSign)-1)*30) + atof(argv[4])/60.0);
+    r = Mod((real)(NFromSz(argv[2]) +
+      (NParseSz(argv[3], pmSign)-1)*30) + RFromSz(argv[4])/60.0);
     planet[i] = r;
     if (FCusp(i) && i != oAsc && i != oMC) {
       chouse[i-(cuspLo-1)] = r;
@@ -1044,12 +956,12 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
       else if (i == oNad)
         chouse[sCap] = Mod(chouse[sCan] + rDegHalf);
     }
-    j = atoi(argv[5]);
-    r = (j < 0 ? -1.0 : 1.0)*((real)NAbs(j) + atof(argv[6])/60.0);
+    j = NFromSz(argv[5]);
+    r = (j < 0 ? -1.0 : 1.0)*((real)NAbs(j) + RFromSz(argv[6])/60.0);
     planetalt[i] = Mod((r + rDegQuad) * 2.0) / 2.0 - rDegQuad;
-    ret[i] = atof(argv[7]);
+    ret[i] = RFromSz(argv[7]);
     if (i <= oNorm)
-      SphToRec(atof(argv[8]), planet[i], planetalt[i],
+      SphToRec(RFromSz(argv[8]), planet[i], planetalt[i],
         &space[i].x, &space[i].y, &space[i].z);
     MM = -1;
     darg += 8;
@@ -1071,10 +983,8 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
 #ifdef ATLAS
   case 'Y':
     i = ch1 - '0';
-    if (argc <= 1 + (i == 1 || i == 2)) {
-      ErrorArgc("YY");
+    if (FErrorArgc("YY", argc, 1 + (i == 1 || i == 2)))
       return tcError;
-    }
     if (is.fileIn == NULL) {
       PrintError("Switch only allowed in file context.");
       return tcError;
@@ -1083,16 +993,16 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     if (ch2 >= ' ')
       ungetc(ch2, is.fileIn);
     if (i <= 0) {
-      if (!FLoadAtlas(is.fileIn, atoi(argv[1])))
+      if (!FLoadAtlas(is.fileIn, NFromSz(argv[1])))
         return tcError;
     } else if (i == 1) {
-      if (!FLoadZoneRules(is.fileIn, atoi(argv[1]), atoi(argv[2])))
+      if (!FLoadZoneRules(is.fileIn, NFromSz(argv[1]), NFromSz(argv[2])))
         return tcError;
     } else if (i == 2) {
-      if (!FLoadZoneChanges(is.fileIn, atoi(argv[1]), atoi(argv[2])))
+      if (!FLoadZoneChanges(is.fileIn, NFromSz(argv[1]), NFromSz(argv[2])))
         return tcError;
     } else if (i >= 3) {
-      if (!FLoadZoneLinks(is.fileIn, atoi(argv[1])))
+      if (!FLoadZoneLinks(is.fileIn, NFromSz(argv[1])))
         return tcError;
     }
     darg += 1 + (i == 1 || i == 2);
@@ -1103,7 +1013,7 @@ int NProcessSwitchesRare(int argc, char **argv, int pos,
     ErrorSwitch(argv[0]);
     return tcError;
   }
-  return darg;    /* Return the value to be added to argc. */
+  return darg;    // Return the value to be added to argc.
 }
 
 
@@ -1117,6 +1027,9 @@ flag FProcessSwitches(int argc, char **argv)
   real rT;
   char ch1, ch2, *pch;
   CI ci;
+#ifdef EXPRESS
+  char **ppch;
+#endif
 
   argc--; argv++;
   while (argc) {
@@ -1128,7 +1041,7 @@ flag FProcessSwitches(int argc, char **argv)
     case ':':               break;
     default:  fNot = fTrue; break;
     }
-    ich = 1 + FChSwitch(ch1);    /* Leading dash? */
+    ich = 1 + FChSwitch(ch1);    // Leading dash?
     ch1 = argv[0][ich];
     ch2 = ch1 == chNull ? chNull : argv[0][ich+1];
     switch (argv[0][ich-1]) {
@@ -1174,25 +1087,19 @@ flag FProcessSwitches(int argc, char **argv)
     case 'M':
       if (FBetween(ch1, '1', '4')) {
         i = (ch1 - '0') + (ch2 == '0');
-        if (argc <= i) {
-          ErrorArgc("M");
+        if (FErrorArgc("M", argc, i))
           return fFalse;
-        }
         for (j = 1; j <= i; j++)
           szWheel[(ch2 == '0' && j >= i) ? 0 : j] = SzPersist(argv[j]);
         argc -= i; argv += i;
         break;
       }
       i = (ch1 == '0');
-      if (argc <= 1+i) {
-        ErrorArgc("M");
+      if (FErrorArgc("M", argc, 1+i))
         return fFalse;
-      }
-      j = atoi(argv[1]);
-      if (!FValidMacro(j)) {
-        ErrorValN("M", j);
+      j = NFromSz(argv[1]);
+      if (FErrorValN("M", !FValidMacro(j), j, 1))
         return fFalse;
-      }
       j--;
       if (i)
         szMacro[j] = SzPersist(argv[2]);
@@ -1208,7 +1115,7 @@ flag FProcessSwitches(int argc, char **argv)
       argc -= i; argv += i;
       break;
 
-    /* Switches which determine the type of chart to display: */
+    // Switches which determine the type of chart to display:
 
     case 'v':
       if (ch1 == '0')
@@ -1219,12 +1126,10 @@ flag FProcessSwitches(int argc, char **argv)
     case 'w':
       if (ch1 == '0')
         SwitchF(us.fWheelReverse);
-      if (argc > 1 && (i = atoi(argv[1]))) {
+      if (argc > 1 && (i = NFromSz(argv[1]))) {
         argc--; argv++;
-        if (!FValidWheel(i)) {
-          ErrorValN("w", i);
+        if (FErrorValN("w", !FValidWheel(i), i, 0))
           return fFalse;
-        }
         us.nWheelRows = i;
       }
       SwitchF(us.fWheel);
@@ -1241,23 +1146,17 @@ flag FProcessSwitches(int argc, char **argv)
         SwitchF(us.fParallel);
 #ifdef X11
       else if (ch1 == 'e') {
-        if (argc <= 1) {
-          ErrorArgc("geometry");
+        if (FErrorArgc("geometry", argc, 1))
           return fFalse;
-        }
-        gs.xWin = atoi(argv[1]);
-        if (argc > 2 && (gs.yWin = atoi(argv[2]))) {
+        gs.xWin = NFromSz(argv[1]);
+        if (argc > 2 && (gs.yWin = NFromSz(argv[2]))) {
           argc--; argv++;
         } else
           gs.yWin = gs.xWin;
-        if (!FValidGraphx(gs.xWin)) {
-          ErrorValN("geometry", gs.xWin);
+        if (FErrorValN("geometry", !FValidGraphx(gs.xWin), gs.xWin, 1))
           return fFalse;
-        }
-        if (!FValidGraphy(gs.yWin)) {
-          ErrorValN("geometry", gs.yWin);
+        if (FErrorValN("geometry", !FValidGraphy(gs.yWin), gs.yWin, 2))
           return fFalse;
-        }
         argc--; argv++;
         break;
       }
@@ -1305,15 +1204,11 @@ flag FProcessSwitches(int argc, char **argv)
           if (ch2 == 'y')
             us.nEphemYears = 1;
           else if (ch2 == 'Y') {
-            if (argc <= 1) {
-              ErrorArgc("ZdY");
+            if (FErrorArgc("ZdY", argc, 1))
               return fFalse;
-            }
-            i = atoi(argv[1]);
-            if (i < 1) {
-              ErrorValN("ZdY", i);
+            i = NFromSz(argv[1]);
+            if (FErrorValN("ZdY", i < 1, i, 0))
               return fFalse;
-            }
             us.nEphemYears = i;
             argc--; argv++;
           }
@@ -1351,12 +1246,10 @@ flag FProcessSwitches(int argc, char **argv)
     case 'L':
       if (ch1 == '0')
         SwitchF(us.fLatitudeCross);
-      if (argc > 1 && (i = atoi(argv[1]))) {
+      if (argc > 1 && (i = NFromSz(argv[1]))) {
         argc--; argv++;
-        if (!FValidAstrograph(i)) {
-          ErrorValN("L", i);
+        if (FErrorValN("L", !FValidAstrograph(i), i, 0))
           return fFalse;
-        }
         us.nAstroGraphStep = i;
       }
       SwitchF(us.fAstroGraph);
@@ -1379,10 +1272,8 @@ flag FProcessSwitches(int argc, char **argv)
 #else
         j = fFalse;
 #endif
-        if (!j && argc <= 2-(i&1)) {
-          ErrorArgc("dp");
+        if (!j && FErrorArgc("dp", argc, 2-(i&1)))
           return fFalse;
-        }
         is.fProgress = us.fInDayMonth = fTrue;
         DstT = us.dstDef; ZonT = us.zonDef;
         LonT = us.lonDef; LatT = us.latDef;
@@ -1394,21 +1285,17 @@ flag FProcessSwitches(int argc, char **argv)
           us.fInDayYear = fTrue;
           if (!j)
             YeaT = NParseSz(argv[1], pmYea);
-          us.nEphemYears = i == 2 ? atoi(argv[2]) : 1;
+          us.nEphemYears = i == 2 ? NFromSz(argv[2]) : 1;
         } else {
           if (!j) {
             MonT = NParseSz(argv[1], pmMon);
             YeaT = NParseSz(argv[2], pmYea);
-            if (!FValidMon(MonT)) {
-              ErrorValN("dp", MonT);
+            if (FErrorValN("dp", !FValidMon(MonT), MonT, 1))
               return fFalse;
-            }
           }
         }
-        if (!FValidYea(YeaT)) {
-          ErrorValN("dp", YeaT);
+        if (FErrorValN("dp", !FValidYea(YeaT), YeaT, i ? 1 : 2))
           return fFalse;
-        }
         if (!j) {
           i = 2-(i&1);
           argc -= i; argv += i;
@@ -1417,15 +1304,11 @@ flag FProcessSwitches(int argc, char **argv)
         if (ch1 == 'y')
           us.nEphemYears = 1;
         else if (ch1 == 'Y') {
-          if (argc <= 1) {
-            ErrorArgc("dY");
+          if (FErrorArgc("dY", argc, 1))
             return fFalse;
-          }
-          i = atoi(argv[1]);
-          if (i < 1) {
-            ErrorValN("dY", i);
+          i = NFromSz(argv[1]);
+          if (FErrorValN("dY", i < 1, i, 1))
             return fFalse;
-          }
           us.nEphemYears = i;
           argc--; argv++;
         }
@@ -1433,21 +1316,17 @@ flag FProcessSwitches(int argc, char **argv)
         us.fInDayYear = us.fInDayMonth && (ch1 != 'm');
       }
 #ifdef X11
-      else if (ch1 == 'i') {    /* -display switch for X */
-        if (argc <= 1) {
-          ErrorArgc("display");
+      else if (ch1 == 'i') {    // -display switch for X
+        if (FErrorArgc("display", argc, 1))
           return fFalse;
-        }
         gs.szDisplay = SzPersist(argv[1]);
         argc--; argv++;
         break;
       }
 #endif
-      else if (argc > 1 && (i = atoi(argv[1]))) {
-        if (!FValidDivision(i)) {
-          ErrorValN("d", i);
+      else if (argc > 1 && (i = NFromSz(argv[1]))) {
+        if (FErrorValN("d", !FValidDivision(i), i, 0))
           return fFalse;
-        }
         us.nDivision = i;
         argc--; argv++;
       }
@@ -1460,19 +1339,15 @@ flag FProcessSwitches(int argc, char **argv)
 
     case 'E':
       j = ch1 == '0' || ch2 == '0';
-      if (ch1 == 'Y' && argc <= 1 + j) {
-        ErrorArgc("E");
+      if (FErrorArgc("E", argc, (ch1 == 'Y') + j))
         return fFalse;
-      }
       SwitchF(us.fEphemeris);
       if (ch1 == 'y')
         us.nEphemYears = us.fEphemeris ? 1 : 0;
       else if (ch1 == 'Y') {
-        i = atoi(argv[1]);
-        if (i < 1) {
-          ErrorValN("EY", i);
+        i = NFromSz(argv[1]);
+        if (FErrorValN("EY", i < 1, i, 1))
           return fFalse;
-        }
         us.nEphemYears = i;
         argc--; argv++;
       }
@@ -1480,7 +1355,7 @@ flag FProcessSwitches(int argc, char **argv)
         ch1 = argv[1][0];
         if (ch1) {
           us.nEphemRate = ch1 == 'm' ? 1 : (ch1 == 'y' ? 2 : 0);
-          i = atoi(&argv[1][1]);
+          i = NFromSz(&argv[1][1]);
           us.nEphemFactor = Max(i, 1);
         }
         argc--; argv++;
@@ -1520,41 +1395,31 @@ flag FProcessSwitches(int argc, char **argv)
       if (ch1 == 'n') {
         GetTimeNow(&MonT, &DayT, &YeaT, &TimT, DstT, ZonT);
         if (i >= 2) {
-          if (argc <= 1) {
-            ErrorArgc("tYn");
+          if (FErrorArgc("tYn", argc, 1))
             return fFalse;
-          }
-          us.nEphemYears = atoi(argv[1]);
+          us.nEphemYears = NFromSz(argv[1]);
           argc--; argv++;
         }
         break;
       }
 #endif
-      if (argc <= 2 - (i == 1) + (i < 0)) {
-        ErrorArgc("t");
+      if (FErrorArgc("t", argc, 2 - (i == 1) + (i < 0)))
         return fFalse;
-      }
       YeaT = NParseSz(argv[2 - (i > 0) + (i < 0)], pmYea);
-      if (!FValidYea(YeaT)) {
-        ErrorValN("t", YeaT);
+      if (FErrorValN("t", !FValidYea(YeaT), YeaT, 2 - (i > 0) + (i < 0)))
         return fFalse;
-      }
       if (i <= 0) {
         MonT = NParseSz(argv[1], pmMon);
-        if (!FValidMon(MonT)) {
-          ErrorValN("t", MonT);
+        if (FErrorValN("t", !FValidMon(MonT), MonT, 1))
           return fFalse;
-        }
       }
       if (i < 0) {
         DayT = NParseSz(argv[2], pmDay);
-        if (!FValidDay(DayT, MonT, YeaT)) {
-          ErrorValN("td", DayT);
+        if (FErrorValN("td", !FValidDay(DayT, MonT, YeaT), DayT, 2))
           return fFalse;
-        }
       }
       if (i > 1)
-        us.nEphemYears = atoi(argv[2]);
+        us.nEphemYears = NFromSz(argv[2]);
       i = 2 - (i == 1) + (i < 0);
       argc -= i; argv += i;
       break;
@@ -1579,27 +1444,20 @@ flag FProcessSwitches(int argc, char **argv)
         break;
       }
 #endif
-      if (argc <= 3 + i) {
-        ErrorArgc("T");
+      if (FErrorArgc("T", argc, 3 + i))
         return fFalse;
-      }
       MonT = NParseSz(argv[1], pmMon);
       DayT = NParseSz(argv[2], pmDay);
       YeaT = NParseSz(argv[3], pmYea);
       TimT = i > 0 ? RParseSz(argv[4], pmTim) : Tim;
-      if (!FValidMon(MonT)) {
-        ErrorValN("T", MonT);
+      if (FErrorValN("T", !FValidMon(MonT), MonT, 1))
         return fFalse;
-      } else if (!FValidYea(YeaT)) {
-        ErrorValN("T", YeaT);
+      else if (FErrorValN("T", !FValidYea(YeaT), YeaT, 3))
         return fFalse;
-      } else if (!FValidDay(DayT, MonT, YeaT)) {
-        ErrorValN("T", DayT);
+      else if (FErrorValN("T", !FValidDay(DayT, MonT, YeaT), DayT, 2))
         return fFalse;
-      } else if (i > 0 && !FValidTim(TimT)) {
-        ErrorValR("T0", TimT);
+      else if (i > 0 && FErrorValR("Tt", !FValidTim(TimT), TimT, 4))
         return fFalse;
-      }
       argc -= 3+i; argv += 3+i;
       break;
 
@@ -1658,10 +1516,8 @@ flag FProcessSwitches(int argc, char **argv)
       }
 #endif
       j = i < 2 ? 3 : (i == 2 ? 2 : 1);
-      if (argc <= j) {
-        ErrorArgc("V");
+      if (FErrorArgc("V", argc, j))
         return fFalse;
-      }
       if (i == 1) {
         MonT = NParseSz(argv[1], pmMon);
         DayT = NParseSz(argv[2], pmDay);
@@ -1674,29 +1530,21 @@ flag FProcessSwitches(int argc, char **argv)
         YeaT = NParseSz(argv[1], pmYea);
         MonT = DayT = 1;
       }
-      if (!FValidMon(MonT)) {
-        ErrorValN("V", MonT);
+      if (FErrorValN("V", !FValidMon(MonT), MonT, 1))
         return fFalse;
-      }
-      if (!FValidYea(YeaT)) {
-        ErrorValN("V", YeaT);
+      if (FErrorValN("V", !FValidYea(YeaT), YeaT, j))
         return fFalse;
-      }
-      if (!FValidDay(DayT, MonT, YeaT)) {
-        ErrorValN("V", DayT);
+      if (FErrorValN("V", !FValidDay(DayT, MonT, YeaT), DayT, 2))
         return fFalse;
-      }
       argc -= j; argv += j;
       break;
 
 #ifdef ARABIC
     case 'P':
-      if (argc > 1 && (i = atoi(argv[1]))) {
+      if (argc > 1 && (i = NFromSz(argv[1]))) {
         argc--; argv++;
-        if (!FValidPart(i)) {
-          ErrorValN("P", i);
+        if (FErrorValN("P", !FValidPart(i), i, 0))
           return fFalse;
-        }
         us.nArabicParts = i;
       }
       if (ch1 == 'z' || ch1 == 'n' || ch1 == 'f') {
@@ -1710,7 +1558,7 @@ flag FProcessSwitches(int argc, char **argv)
 #endif
 
     case 'N':
-      if (argc > 1 && (i = atoi(argv[1]))) {
+      if (argc > 1 && (i = NFromSz(argv[1]))) {
         argc--; argv++;
         us.nAtlasList = i;
       }
@@ -1723,18 +1571,16 @@ flag FProcessSwitches(int argc, char **argv)
       break;
 
     case 'I':
-      if (argc > 1 && (i = atoi(argv[1]))) {
+      if (argc > 1 && (i = NFromSz(argv[1]))) {
         argc--; argv++;
-        if (!FValidScreen(i)) {
-          ErrorValN("I", i);
+        if (FErrorValN("I", !FValidScreen(i), i, 0))
           return fFalse;
-        }
         us.nScreenWidth = i;
       }
       SwitchF(us.fInterpret);
       break;
 
-    /* Switches which affect how the chart parameters are obtained: */
+    // Switches which affect how the chart parameters are obtained:
 
 #ifdef TIME
     case 'n':
@@ -1752,108 +1598,79 @@ flag FProcessSwitches(int argc, char **argv)
     case 'z':
       if (ch1 == '0') {
         if (argc <= 1 || RParseSz(argv[1], pmDst) == rLarge) {
-          i = us.dstDef != 0.0;
+          i = (us.dstDef != 0.0);
           SwitchF(i);
-          SS = us.dstDef = i ? 1.0 : 0.0;
+          SS = us.dstDef = (i ? 1.0 : 0.0);
         } else {
           SS = us.dstDef = RParseSz(argv[1], pmDst);
-          if (!FValidDst(us.dstDef)) {
-            ErrorValR("z0", us.dstDef);
+          if (FErrorValR("z0", !FValidDst(us.dstDef), us.dstDef, 0))
             return fFalse;
-          }
           argc--; argv++;
         }
         break;
       } else if (ch1 == 'l') {
-        if (argc <= 2) {
-          ErrorArgc("zl");
+        if (FErrorArgc("zl", argc, 2))
           return fFalse;
-        }
         OO = us.lonDef = RParseSz(argv[1], pmLon);
         AA = us.latDef = RParseSz(argv[2], pmLat);
-        if (!FValidLon(us.lonDef)) {
-          ErrorValR("zl", us.lonDef);
+        if (FErrorValR("zl", !FValidLon(us.lonDef), us.lonDef, 1))
           return fFalse;
-        } else if (!FValidLat(us.latDef)) {
-          ErrorValR("zl", us.latDef);
+        else if (FErrorValR("zl", !FValidLat(us.latDef), us.latDef, 2))
           return fFalse;
-        }
         argc -= 2; argv += 2;
         break;
       } else if (ch1 == 'v') {
-        if (argc <= 1) {
-          ErrorArgc("zv");
+        if (FErrorArgc("zv", argc, 1))
           return fFalse;
-        }
         us.elvDef = RParseSz(argv[1], pmElv);
         argc--; argv++;
         break;
       } else if (ch1 == 'j') {
-        if (argc <= 2) {
-          ErrorArgc("zj");
+        if (FErrorArgc("zj", argc, 2))
           return fFalse;
-        }
         us.namDef = SzPersist(argv[1]);
         us.locDef = SzPersist(argv[2]);
         argc -= 2; argv += 2;
         break;
       } else if (ch1 == 't') {
-        if (argc <= 1) {
-          ErrorArgc("zt");
+        if (FErrorArgc("zt", argc, 1))
           return fFalse;
-        }
         rT = RParseSz(argv[1], pmTim);
-        if (!FValidTim(rT)) {
-          ErrorValR("zt", rT);
+        if (FErrorValR("zt", !FValidTim(rT), rT, 0))
           return fFalse;
-        }
         TT = rT;
         argc--; argv++;
         break;
       } else if (ch1 == 'd') {
-        if (argc <= 1) {
-          ErrorArgc("zd");
+        if (FErrorArgc("zd", argc, 1))
           return fFalse;
-        }
         i = NParseSz(argv[1], pmDay);
-        if (!FValidDay(i, MM, YY)) {
-          ErrorValN("zd", i);
+        if (FErrorValN("zd", !FValidDay(i, MM, YY), i, 0))
           return fFalse;
-        }
         DD = i;
         argc--; argv++;
         break;
       } else if (ch1 == 'm') {
-        if (argc <= 1) {
-          ErrorArgc("zm");
+        if (FErrorArgc("zm", argc, 1))
           return fFalse;
-        }
         i = NParseSz(argv[1], pmMon);
-        if (!FValidMon(i)) {
-          ErrorValN("zm", i);
+        if (FErrorValN("zm", !FValidMon(i), i, 0))
           return fFalse;
-        }
         MM = i;
         argc--; argv++;
         break;
       } else if (ch1 == 'y') {
-        if (argc <= 1) {
-          ErrorArgc("zy");
+        if (FErrorArgc("zy", argc, 1))
           return fFalse;
-        }
         i = NParseSz(argv[1], pmYea);
-        if (!FValidYea(i)) {
-          ErrorValN("zy", i);
+        if (FErrorValN("zy", !FValidYea(i), i, 0))
           return fFalse;
-        }
         YY = i;
         argc--; argv++;
         break;
       } else if (ch1 == 'i') {
-        if (argc <= 2) {
-          ErrorArgc("zi");
+        if (FErrorArgc("zi", argc, 2))
           return fFalse;
-        }
         ciCore.nam = SzPersist(argv[1]);
         ciCore.loc = SzPersist(argv[2]);
         argc -= 2; argv += 2;
@@ -1861,14 +1678,16 @@ flag FProcessSwitches(int argc, char **argv)
       }
 #ifdef ATLAS
       else if (ch1 == 'N') {
-        if (argc <= 1) {
-          ErrorArgc("zc");
+        if (FErrorArgc("zN", argc, 1))
           return fFalse;
-        }
         if (!DisplayAtlasLookup(argv[1], 0, &i))
           PrintWarning("City doesn't match anything in atlas.");
         else if (!DisplayTimezoneChanges(is.rgae[i].izn, 0, &ciCore))
           PrintWarning("Couldn't get time zone data!");
+        else {
+          us.dstDef = SS; us.zonDef = ZZ;
+          us.lonDef = OO; us.latDef = AA;
+        }
         argc--; argv++;
         break;
       }
@@ -1877,10 +1696,8 @@ flag FProcessSwitches(int argc, char **argv)
         ZZ -= 1.0;
       else {
         ZZ = us.zonDef = RParseSz(argv[1], pmZon);
-        if (!FValidZon(us.zonDef)) {
-          ErrorValR("z", us.zonDef);
+        if (FErrorValR("z", !FValidZon(us.zonDef), us.zonDef, 0))
           return fFalse;
-        }
         argc--; argv++;
       }
       break;
@@ -1890,13 +1707,11 @@ flag FProcessSwitches(int argc, char **argv)
         7*(ch1 == 'a') + 8*(ch1 == 'b');
       if (i <= 0)
         i = 4;
-      if (argc <= i) {
-        ErrorArgc("q");
+      if (FErrorArgc("q", argc, i))
         return fFalse;
-      }
       is.fHaveInfo = fTrue;
       if (ch1 == 'j') {
-        is.JD = atof(argv[1]) + rRound;
+        is.JD = RFromSz(argv[1]) + rRound;
         TT = RFract(is.JD);
         JulianToMdy(is.JD - TT, &MM, &DD, &YY);
         TT *= 24.0;
@@ -1904,37 +1719,28 @@ flag FProcessSwitches(int argc, char **argv)
       } else {
         MM = i > 1 ? NParseSz(argv[1], pmMon) : 1;
         DD = i > 2 ? NParseSz(argv[2], pmDay) : 1;
-        YY = NParseSz(argv[3-(i<3)-(i<2)], pmYea);
+        YY = NParseSz(argv[3 - (i < 3) - (i < 2)], pmYea);
         TT = i > 3 ? RParseSz(argv[4], pmTim) : (i < 3 ? 0.0 : 12.0);
         SS = i > 7 ? RParseSz(argv[5], pmDst) : (i > 6 ? 0.0 : us.dstDef);
         ZZ = i > 6 ? RParseSz(argv[5 + (i > 7)], pmZon) : us.zonDef;
         OO = i > 6 ? RParseSz(argv[6 + (i > 7)], pmLon) : us.lonDef;
         AA = i > 6 ? RParseSz(argv[7 + (i > 7)], pmLat) : us.latDef;
-        if (!FValidMon(MM)) {
-          ErrorValN("q", MM);
+        if (FErrorValN("q", !FValidMon(MM), MM, 1))
           return fFalse;
-        } else if (!FValidDay(DD, MM, YY)) {
-          ErrorValN("q", DD);
+        else if (FErrorValN("q", !FValidDay(DD, MM, YY), DD, 2))
           return fFalse;
-        } else if (!FValidYea(YY)) {
-          ErrorValN("q", YY);
+        else if (FErrorValN("q", !FValidYea(YY), YY, 3 - (i < 3) - (i < 2)))
           return fFalse;
-        } else if (!FValidTim(TT)) {
-          ErrorValR("q", TT);
+        else if (FErrorValR("q", !FValidTim(TT), TT, 4))
           return fFalse;
-        } else if (!FValidDst(SS)) {
-          ErrorValR("q", SS);
+        else if (FErrorValR("q", !FValidDst(SS), SS, 5))
           return fFalse;
-        } else if (!FValidZon(ZZ)) {
-          ErrorValR("q", ZZ);
+        else if (FErrorValR("q", !FValidZon(ZZ), ZZ, 5 + (i > 7)))
           return fFalse;
-        } else if (!FValidLon(OO)) {
-          ErrorValR("q", OO);
+        else if (FErrorValR("q", !FValidLon(OO), OO, 6 + (i > 7)))
           return fFalse;
-        } else if (!FValidLat(AA)) {
-          ErrorValR("q", AA);
+        else if (FErrorValR("q", !FValidLat(AA), AA, 7 + (i > 7)))
           return fFalse;
-        }
       }
       argc -= i; argv += i;
       break;
@@ -1944,14 +1750,15 @@ flag FProcessSwitches(int argc, char **argv)
         ErrorArgv("i");
         return tcError;
       }
-      if (argc <= 1) {
-        ErrorArgc("i");
+      if (FErrorArgc("i", argc, 1))
         return fFalse;
-      }
       ci = ciCore;
       if (!FInputData(argv[1]))
         return fFalse;
-      if (ch1 == '2') {
+      if (ch1 == '1') {
+        ciMain = ciCore;
+        ciCore = ci;
+      } else if (ch1 == '2') {
         ciTwin = ciCore;
         ciCore = ci;
       } else if (ch1 == '3') {
@@ -1975,23 +1782,23 @@ flag FProcessSwitches(int argc, char **argv)
 
     case '>':
       ch1 = 's';
-      /* Fall through */
+      // Fall through
 
     case 'o':
       if (us.fNoWrite) {
         ErrorArgv("o");
         return tcError;
       }
-      if (argc <= 1) {
-        ErrorArgc("o");
+      if (FErrorArgc("o", argc, 1))
         return fFalse;
-      }
       if (ch1 == 's') {
         is.szFileScreen = SzPersist(argv[1]);
         argc--; argv++;
         break;
       } else if (ch1 == '0')
         SwitchF(us.fWritePos);
+      else if (ch1 == 'd')
+        SwitchF(us.fWriteDef);
       SwitchF(us.fWriteFile);
       is.szFileOut = SzPersist(argv[1]);
       if (is.fSzPersist) {
@@ -2003,7 +1810,7 @@ flag FProcessSwitches(int argc, char **argv)
       }
       break;
 
-    /* Switches which affect what information is used in a chart: */
+    // Switches which affect what information is used in a chart:
 
     case 'R':
       if (ch1 == 'A') {
@@ -2014,10 +1821,9 @@ flag FProcessSwitches(int argc, char **argv)
           for (i = 1; i <= cAspect; i++)
             ignorea[i] = fFalse;
         while (argc > 1 && (i = NParseSz(argv[1], pmAspect)))
-          if (!FAspect(i)) {
-            ErrorValN("RA", i);
+          if (FErrorValN("RA", !FAspect(i), i, 0))
             return fFalse;
-          } else {
+          else {
             SwitchF(ignorea[i]);
             argc--; argv++;
           }
@@ -2026,15 +1832,11 @@ flag FProcessSwitches(int argc, char **argv)
         break;
       }
       if (ch1 == 'O') {
-        if (argc <= 1) {
-          ErrorArgc("RO");
+        if (FErrorArgc("RO", argc, 1))
           return fFalse;
-        }
         i = NParseSz(argv[1], pmObject);
-        if (!FBetween(i, -1, cObj)) {
-          ErrorValN("RO", i);
+        if (FErrorValN("RO", !FBetween(i, -1, cObj), i, 0))
           return fFalse;
-        }
         us.objRequire = i;
         argc--; argv++;
         break;
@@ -2064,10 +1866,9 @@ flag FProcessSwitches(int argc, char **argv)
           if (i != oNod)
             SwitchF(pch[i]);
       while (argc > 1 && (i = NParseSz(argv[1], pmObject)) >= 0)
-        if (!FItem(i)) {
-          ErrorValN("R", i);
+        if (FErrorValN("R", !FItem(i), i, 0))
           return fFalse;
-        } else {
+        else {
           if (ch1 != 'C' && ch1 != 'u' && ch1 != 'U')
             SwitchF(pch[i]);
           else
@@ -2128,16 +1929,14 @@ flag FProcessSwitches(int argc, char **argv)
         SwitchF(us.fAspect3D);
       else if (ch1 == 'p')
         SwitchF(us.fAspectLat);
+      else if (ch1 == 'P')
+        SwitchF(us.fParallel2);
       else if (ch1 != 'o' && ch1 != 'm' && ch1 != 'd' && ch1 != 'a') {
-        if (argc <= 1) {
-          ErrorArgc("A");
+        if (FErrorArgc("A", argc, 1))
           return fFalse;
-        }
         i = NParseSz(argv[1], pmAspect);
-        if (!FValidAspect(i)) {
-          ErrorValN("A", i);
+        if (FErrorValN("A", !FValidAspect(i), i, 0))
           return fFalse;
-        }
         for (j = us.nAsp + 1; j <= i; j++)
           ignorea[j] = fFalse;
         for (j = i + 1; j <= cAspect; j++)
@@ -2145,21 +1944,15 @@ flag FProcessSwitches(int argc, char **argv)
         us.nAsp = i;
         argc--; argv++;
       } else {
-        if (argc <= 2) {
-          ErrorArgc("A");
+        if (FErrorArgc("A", argc, 2))
           return fFalse;
-        }
         i = NParseSz(argv[1], ch1 == 'o' || ch1 == 'a' ? pmAspect : pmObject);
-        if (i < (int)(ch1 == 'o' || ch1 == 'a') ||
-          i > (ch1 == 'o' || ch1 == 'a' ? cAspect : oNorm+1)) {
-          ErrorValN("A", i);
+        if (FErrorValN("A", i < (int)(ch1 == 'o' || ch1 == 'a') ||
+          i > (ch1 == 'o' || ch1 == 'a' ? cAspect : oNorm+1), i, 1))
           return fFalse;
-        }
         rT = RParseSz(argv[2], 0);
-        if (rT < -rDegMax || rT > rDegMax) {
-          ErrorValR("A", rT);
+        if (FErrorValR("A", rT < -rDegMax || rT > rDegMax, rT, 2))
           return fFalse;
-        }
         if (ch1 == 'o')
           rAspOrb[i] = rT;
         else if (ch1 == 'm')
@@ -2172,7 +1965,7 @@ flag FProcessSwitches(int argc, char **argv)
       }
       break;
 
-    /* Switches which affect how a chart is computed: */
+    // Switches which affect how a chart is computed:
 
     case 'b':
       if (ch1 == '0') {
@@ -2198,27 +1991,22 @@ flag FProcessSwitches(int argc, char **argv)
         break;
       }
 #ifdef WIN
-      if (argc <= 1) {
-        if (!wi.fSaverCfg)
-          ErrorArgc("c");
+      if (argc <= 1 && wi.fSaverCfg)
         return fFalse;
-      }
 #endif
+      if (FErrorArgc("c", argc, 1))
+        return fFalse;
       i = NParseSz(argv[1], pmSystem);
-      if (!FValidSystem(i)) {
-        ErrorValN("c", i);
+      if (FErrorValN("c", !FValidSystem(i), i, 0))
         return fFalse;
-      }
       us.nHouseSystem = i;
       argc--; argv++;
       break;
 
     case 's':
-      if (argc > 1 && ((rT = atof(argv[1])) != 0.0 || FNumCh(argv[1][0]))) {
-        if (!FValidOffset(rT)) {
-          ErrorValR("s", rT);
+      if (argc > 1 && ((rT = RFromSz(argv[1])) != 0.0 || FNumCh(argv[1][0]))) {
+        if (FErrorValR("s", !FValidOffset(rT), rT, 0))
           return fFalse;
-        }
         argc--; argv++;
         us.rZodiacOffset = rT;
       }
@@ -2246,10 +2034,8 @@ flag FProcessSwitches(int argc, char **argv)
         argc--; argv++;
       } else
         i = FSwitchF(us.objCenter != 0);
-      if (!FValidCenter(i)) {
-        ErrorValN("h", i);
+      if (FErrorValN("h", !FValidCenter(i), i, 0))
         return fFalse;
-      }
       SetCentric(i);
       break;
 
@@ -2270,66 +2056,47 @@ flag FProcessSwitches(int argc, char **argv)
       }
 #endif
       if (ch1 == 'd') {
-        if (argc <= 1) {
-          ErrorArgc("pd");
+        if (FErrorArgc("pd", argc, 1))
           return fFalse;
-        }
-        us.rProgDay = atof(argv[1]);
-        if (us.rProgDay == 0.0) {
-          ErrorValR("pd", us.rProgDay);
+        us.rProgDay = RFromSz(argv[1]);
+        if (FErrorValR("pd", us.rProgDay == 0.0, us.rProgDay, 0))
           return fFalse;
-        }
         argc--; argv++;
         break;
       } else if (ch1 == 'C') {
-        if (argc <= 1) {
-          ErrorArgc("pC");
+        if (FErrorArgc("pC", argc, 1))
           return fFalse;
-        }
-        us.rProgCusp = atof(argv[1]);
-        if (us.rProgCusp == 0.0) {
-          ErrorValR("pC", us.rProgCusp);
+        us.rProgCusp = RFromSz(argv[1]);
+        if (FErrorValR("pC", us.rProgCusp == 0.0, us.rProgCusp, 0))
           return fFalse;
-        }
         argc--; argv++;
         break;
       }
       i = 3 + (ch1 == 't');
-      if (argc <= i) {
-        ErrorArgc("p");
+      if (FErrorArgc("p", argc, i))
         return fFalse;
-      }
       MonT = NParseSz(argv[1], pmMon);
       DayT = NParseSz(argv[2], pmDay);
       YeaT = NParseSz(argv[3], pmYea);
       TimT = ch1 == 't' ? RParseSz(argv[4], pmTim) : 0.0;
-      if (!FValidMon(MonT)) {
-        ErrorValN("p", MonT);
+      if (FErrorValN("p", !FValidMon(MonT), MonT, 1))
         return fFalse;
-      } else if (!FValidDay(DayT, MonT, YeaT)) {
-        ErrorValN("p", DayT);
+      else if (FErrorValN("p", !FValidDay(DayT, MonT, YeaT), DayT, 2))
         return fFalse;
-      } else if (!FValidYea(YeaT)) {
-        ErrorValN("p", YeaT);
+      else if (FErrorValN("p", !FValidYea(YeaT), YeaT, 3))
         return fFalse;
-      } else if (ch1 == 't' && !FValidTim(TimT)) {
-        ErrorValR("p", TimT);
+      else if (ch1 == 't' && FErrorValR("p", !FValidTim(TimT), TimT, 4))
         return fFalse;
-      }
       is.JDp = MdytszToJulian(MonT, DayT, YeaT, TimT, us.dstDef, us.zonDef);
       argc -= i; argv += i;
       break;
 
     case 'x':
-      if (argc <= 1) {
-        ErrorArgc("x");
+      if (FErrorArgc("x", argc, 1))
         return fFalse;
-      }
-      rT = atof(argv[1]);
-      if (!FValidHarmonic(rT)) {
-        ErrorValR("x", rT);
+      rT = RFromSz(argv[1]);
+      if (FErrorValR("x", !FValidHarmonic(rT), rT, 0))
         return fFalse;
-      }
       us.rHarmonic = rT;
       argc--; argv++;
       break;
@@ -2339,10 +2106,8 @@ flag FProcessSwitches(int argc, char **argv)
         argc--; argv++;
       } else
         i = oSun;
-      if (!FItem(i)) {
-        ErrorValN("1", i);
+      if (FErrorValN("1", !FItem(i), i, 0))
         return fFalse;
-      }
       us.fSolarWhole = (ch1 == '0' && !fAnd);
       us.objOnAsc = fAnd ? 0 : i+1;
       break;
@@ -2352,10 +2117,8 @@ flag FProcessSwitches(int argc, char **argv)
         argc--; argv++;
       } else
         i = oSun;
-      if (!FItem(i)) {
-        ErrorValN("2", i);
+      if (FErrorValN("2", !FItem(i), i, 0))
         return fFalse;
-      }
       us.fSolarWhole = (ch1 == '0' && !fAnd);
       us.objOnAsc = fAnd ? 0 : -(i+1);
       break;
@@ -2365,14 +2128,12 @@ flag FProcessSwitches(int argc, char **argv)
       break;
 
     case '4':
-      if (argc > 1 && (i = atoi(argv[1])) >= 0) {
+      if (argc > 1 && (i = NFromSz(argv[1])) >= 0) {
         argc--; argv++;
       } else
         i = 1;
-      if (!FValidDwad(i)) {
-        ErrorValN("4", i);
+      if (FErrorValN("4", !FValidDwad(i), i, 0))
         return fFalse;
-      }
       us.nDwad = fAnd ? 0 : i;
       break;
 
@@ -2393,40 +2154,31 @@ flag FProcessSwitches(int argc, char **argv)
       break;
 
     case 'F':
-      if (argc <= 3) {
-        ErrorArgc("F");
+      if (FErrorArgc("F", argc, 3))
         return fFalse;
-      }
       i = NParseSz(argv[1], pmObject);
-      if (!FItem(i)) {
-        ErrorValN("F", i);
+      if (FErrorValN("F", !FItem(i), i, 1))
         return fFalse;
-      }
       if (ch1 != 'm') {
-        force[i] = ZD(NParseSz(argv[2], pmSign), atof(argv[3]));
-        if (force[i] < 0.0 || force[i] >= rDegMax) {
-          ErrorValR("F", force[i]);
+        force[i] = ZD(NParseSz(argv[2], pmSign), RFromSz(argv[3]));
+        if (FErrorValR("F", force[i] < 0.0 || force[i] >= rDegMax,
+          force[i], 0))
           return fFalse;
-        }
         force[i] += rDegMax;
       } else {
         j = NParseSz(argv[2], pmObject);
-        if (!FItem(j)) {
-          ErrorValN("Fm", j);
+        if (FErrorValN("Fm", !FItem(j), j, 2))
           return fFalse;
-        }
         k = NParseSz(argv[3], pmObject);
-        if (!FItem(k)) {
-          ErrorValN("Fm", k);
+        if (FErrorValN("Fm", !FItem(k), k, 3))
           return fFalse;
-        }
         force[i] = (real)-(j * cObj + k + 1);
       }
       argc -= 3; argv += 3;
       break;
 
     case '+':
-      if (argc > 1 && (i = atoi(argv[1])) != 0) {
+      if (argc > 1 && (i = NFromSz(argv[1])) != 0) {
         argc--; argv++;
       } else
         i = 1;
@@ -2436,17 +2188,17 @@ flag FProcessSwitches(int argc, char **argv)
     case chNull:
       if (ich <= 1)
         break;
-      /* Fall thorugh */
+      // Fall thorugh
 
     case '-':
-      if (argc > 1 && (i = atoi(argv[1])) != 0) {
+      if (argc > 1 && (i = NFromSz(argv[1])) != 0) {
         argc--; argv++;
       } else
         i = 1;
       us.dayDelta -= i * (ch1 == 'y' ? 365 : (ch1 == 'm' ? 30 : 1));
       break;
 
-    /* Switches for relationship and comparison charts: */
+    // Switches for relationship and comparison charts:
 
     case 'r':
       if (fAnd) {
@@ -2457,10 +2209,8 @@ flag FProcessSwitches(int argc, char **argv)
         break;
       }
       i = 2 + 2*((ch1 == 'c' || ch1 == 'm') && ch2 == '0');
-      if (argc <= i) {
-        ErrorArgc("r");
+      if (FErrorArgc("r", argc, i))
         return fFalse;
-      }
       if (ch1 == 'c')
         us.nRel = rcComposite;
       else if (ch1 == 'm')
@@ -2489,8 +2239,8 @@ flag FProcessSwitches(int argc, char **argv)
       if (!FInputData(argv[1]))
         return fFalse;
       if (i > 2) {
-        us.nRatio1 = atoi(argv[3]);
-        us.nRatio2 = atoi(argv[4]);
+        us.nRatio1 = NFromSz(argv[3]);
+        us.nRatio2 = NFromSz(argv[4]);
         if (us.nRatio1 == us.nRatio2)
           us.nRatio1 = us.nRatio2 = 1;
       }
@@ -2499,10 +2249,8 @@ flag FProcessSwitches(int argc, char **argv)
 
 #ifdef TIME
     case 'y':
-      if (argc <= 1) {
-        ErrorArgc("y");
+      if (FErrorArgc("y", argc, 1))
         return fFalse;
-      }
       if (ch1 == 'd')
         us.nRel = rcDifference;
 #ifdef BIORHYTHM
@@ -2525,14 +2273,14 @@ flag FProcessSwitches(int argc, char **argv)
       break;
 #endif
 
-    /* Switches to access graphics options: */
+    // Switches to access graphics options:
 
     case 'k':
       if (ch1 == 'h') {
         SwitchF(us.fTextHTML);
         break;
       }
-      if (ch1 == '1') {     /* Undocumented subswitch. */
+      if (ch1 == '1') {     // Undocumented subswitch.
         us.fAnsiColor = 2;
         us.fAnsiChar  = 1;
       } else {
@@ -2578,17 +2326,17 @@ flag FProcessSwitches(int argc, char **argv)
       }
       break;
 
-    case '?':    /* Common command line usage does the same as -H. */
+    case '?':    // Common command line usage does the same as -H.
       SwitchF(us.fSwitch);
       break;
 
-    case ';':    /* The -; switch means don't process the rest of the line. */
+    case ';':    // The -; switch means don't process the rest of the line.
       return fTrue;
 
-    case '@':    /* The -@ switch is just a system flag indicator no-op. */
+    case '@':    // The -@ switch is just a system flag indicator no-op.
       break;
 
-    case '.':                /* "-." is usually used to exit the -Q loop. */
+    case '.':                // "-." is usually used to exit the -Q loop.
       Terminate(tcForce);
 
 #ifdef EXPRESS
@@ -2598,39 +2346,60 @@ flag FProcessSwitches(int argc, char **argv)
         break;
       }
       i = 1 + (ch1 == 'M');
-      if (argc <= i) {
-        ErrorArgc("~");
+      if (FErrorArgc("~", argc, i))
         return fFalse;
-      }
-      if (ch1 == 'a')
-        us.szExpAsplist = SzPersist(argv[1]);
+      ppch = NULL;
+      if (ch1 == 'g')
+        ppch = &us.szExpConfig;
+      else if (ch1 == 'a')
+        ppch = (ch2 != '0' ? &us.szExpAspList : &us.szExpAspSumm);
+      else if (ch1 == 'm')
+        ppch = (ch2 != 'a' ? &us.szExpMid : &us.szExpMidAsp);
+      else if (ch1 == 'L')
+        ppch = &us.szExpCross;
       else if (ch1 == 'E')
-        us.szExpEph = SzPersist(argv[1]);
+        ppch = &us.szExpEph;
       else if (ch1 == 'd')
-        us.szExpDay = SzPersist(argv[1]);
+        ppch = &us.szExpDay;
       else if (ch1 == 't')
-        us.szExpTra = SzPersist(argv[1]);
+        ppch = &us.szExpTra;
       else if (ch1 == 'j')
-        us.szExpInf = SzPersist(argv[1]);
+        ppch = &us.szExpInf;
+      else if (ch1 == 'P')
+        ppch = &us.szExpPart;
       else if (ch1 == 'O')
-        us.szExpObj = SzPersist(argv[1]);
+        ppch = &us.szExpObj;
       else if (ch1 == 'C')
-        us.szExpHou = SzPersist(argv[1]);
+        ppch = &us.szExpHou;
       else if (ch1 == 'A')
-        us.szExpAsp = SzPersist(argv[1]);
+        ppch = &us.szExpAsp;
       else if (ch1 == 'k' && ch2 == 'O')
-        us.szExpColObj = SzPersist(argv[1]);
+        ppch = &us.szExpColObj;
       else if (ch1 == 'k' && ch2 == 'A')
-        us.szExpColAsp = SzPersist(argv[1]);
+        ppch = &us.szExpColAsp;
+      else if (ch1 == 'v')
+        ppch = &us.szExpSort;
+      else if (ch1 == 'p')
+        ppch = (ch2 != '0' ? &us.szExpProg : &us.szExpProg0);
+      else if (ch1 == 'q' && ch2 == '1')
+        ppch = &us.szExpCast1;
+      else if (ch1 == 'q' && ch2 == '2')
+        ppch = &us.szExpCast2;
+      else if (ch1 == 'Q' && ch2 == '1')
+        ppch = &us.szExpDisp1;
+      else if (ch1 == 'Q' && ch2 == '2')
+        ppch = &us.szExpDisp2;
       else if (ch1 == 'M') {
-        j = atoi(argv[1]);
-        if (!FBetween(j, 0, iLetterZ)) {
-          ErrorValN("~M", j);
+        j = NFromSz(argv[1]);
+        if (FErrorValN("~M", !FBetween(j, 0, iLetterZ), j, 1))
           return fFalse;
-        }
         rgszExpMacro[j] = SzPersist(argv[2]);
-      } else
-        FParseExpression(argv[1]);
+      } else if (ch1 == '1')
+        ParseExpression(argv[1]);
+      else
+        ShowParseExpression(argv[1]);
+      if (ppch != NULL)
+        *ppch = SzPersist(argv[1]);
       argc -= i; argv += i;
       break;
 #endif
@@ -2661,10 +2430,13 @@ void InitProgram()
 #endif
   int i;
 
+  Assert(starHi == cObj && cObj == objMax-1);
   is.S = stdout;
   ClearB((pbyte)szStarCustom, sizeof(szStarCustom));
-  for (i = 0; i < objMax; i++)
+  for (i = 0; i < objMax; i++) {
     szObjDisp[i] = szObjName[i];
+    rgobjList[i] = i;
+  }
   for (i = 1; i <= cAspect2; i++) {
     szAspectDisp[i]       = szAspectName[i];
     szAspectAbbrevDisp[i] = szAspectAbbrev[i];
@@ -2675,10 +2447,13 @@ void InitProgram()
   ClearB((pbyte)rgPntSwiss, sizeof(rgPntSwiss));
   ClearB((pbyte)rgFlgSwiss, sizeof(rgFlgSwiss));
 #endif
+#ifdef EXPRESS
+  ExpInit();
+#endif
 #ifdef GRAPH
   for (i = 0; i < cColor; i++)
     rgbbmp[i] = rgbbmpDef[i];
-  for (i = 0; i < objMax+5; i++) {
+  for (i = 0; i < objMax+9; i++) {
     szDrawObject[i]  = szDrawObjectDef[i];
     szDrawObject2[i] = szDrawObjectDef2[i];
   }
@@ -2714,6 +2489,8 @@ void FinalizeProgram()
     DeallocateP(is.rgrun);
   if (is.rgrue != NULL)
     DeallocateP(is.rgrue);
+  if (is.rgzonCol != NULL)
+    DeallocateP(is.rgzonCol);
 #endif
 #ifdef EXPRESS
   if (is.rgsTrieFun != NULL)
@@ -2756,7 +2533,7 @@ int main()
   char szBeta[cchSzMax];
 #endif
 
-  /* Read in info from the astrolog.as file. */
+  // Read in info from the astrolog.as file.
   InitProgram();
 #ifdef SWITCHES
   is.szProgName = argv[0];
@@ -2773,9 +2550,9 @@ int main()
 
 LBegin:
   is.fSzPersist = !us.fNoSwitches;
-  if (us.fNoSwitches) {                             /* Go prompt for    */
-    argc = NPromptSwitches(szCommandLine, rgsz);    /* switches if we   */
-    argv = rgsz;                                    /* don't have them. */
+  if (us.fNoSwitches) {                             // Go prompt for switches
+    argc = NPromptSwitches(szCommandLine, rgsz);    // if don't have them.
+    argv = rgsz;
     is.fSzPersist = fFalse;
   }
   is.szProgName = argv[0];
@@ -2786,13 +2563,13 @@ int main()
     }
     Action();
   }
-  if (us.fLoop || us.fNoQuit) { /* If -Q in effect loop back and get switch */
-    PrintL2();                  /* info for another chart to display.       */
+  if (us.fLoop || us.fNoQuit) {  // If -Q in effect loop back and get switch
+    PrintL2();                   // info for another chart to display.
     InitVariables();
     us.fLoop = us.fNoSwitches = fTrue;
     goto LBegin;
   }
-  Terminate(tcOK);    /* The only standard place to exit Astrolog is here. */
+  Terminate(tcOK);    // The only standard place to exit Astrolog is here.
   return 0;
 }
 #endif /* WIN */
diff --git a/astrolog.def b/astrolog.def
index d750676..befc3a6 100644
--- a/astrolog.def
+++ b/astrolog.def
@@ -1,4 +1,4 @@
-; Astrolog (Version 7.00) File: astrolog.def
+; Astrolog (Version 7.10) File: astrolog.def
 ;
 ; IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ; not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -47,10 +47,10 @@
 ; Initial programming 8/28-30/1991.
 ; X Window graphics initially programmed 10/23-29/1991.
 ; PostScript graphics initially programmed 11/29-30/1992.
-; Last code change made 6/4/2020.
+; Last code change made 9/30/2020.
 
 NAME        ASTROLOG
-DESCRIPTION "Astrolog 7.00 for MS Windows - By Walter D. Pullen"
+DESCRIPTION "Astrolog 7.10 for MS Windows - By Walter D. Pullen"
 EXETYPE     WINDOWS
 STUB        'WINSTUB.EXE' 
 CODE        PRELOAD MOVEABLE DISCARDABLE
diff --git a/astrolog.doc b/astrolog.doc
index 11e792c22cd2ef6ba29a57bdbee034e99ba7e084..e3cd6b9fc3edeef7ea7fb9c345cc5f4c4cd9899f 100644
GIT binary patch
delta 131351
zcmb@v2VfM{_V~Y>IsqaegkA=)B#?w8fD|dA3QAK@nu?oblPo0Ju)Cr7o-FpRNWih7
z2=*reBCa6P1p(<Qy(mZ%ln6eeM*V-zotaHQeed`Ee*alMJF~kpbMHO(+;h)8_s%fw
zv(#xHq)ksA9`A5Cv>4vxua?76jeRG(zyI;aAM(|&(GEui{06_nAK;K<AOa#G3Zfwf
zVj)y}PW5Td84*n)TSmr}Hjij|g`>J--#rdR%U`w9vZ$t|1ralX1G(6srVhuu5nQl=
zB<FCr7djjPa`1C=ha)r6;pp7T{QmE@b+00W9AE1ihhrUwe!(_}?Xd-9knM4{^7j|p
z)_?keYdQ8VayaI4=084gINsrNH8PY?dUHgbYG>=K6C5ks^RZq_Nm>5v?aKD%XM0<1
zVQEEVv!I=E^GCBl`}xqE>(*l%e98Rf@~vDZ;x>oFPSw87<)5XXRsZbkSl^ZY9+i}0
zXX)>bm2;YL!kw=;91Tic+D*ZC*pojyRn$T0!<_WA7pFY;m8gjNv#V|OV@RvI!!eQb
zH2X)k+sR#BwjC&K8e6Ge`J2jd$!xD)qCPstKZ~TPZuwkGG)ywk08QyVcny10YWPs|
zgi67j<oA;`9ga@dIvic2(4ID&&!ucZ+@0!h6i}hZNq=u7mu%Tm4wb*lw^G;gN7a=@
zT@zFCykttw=yLgy_Gi01wuJw@Eo~C}a)w<@`?UYQCDra%{`s)QU9~SGo#~}l)<~|N
zo~9=b$qsn4+`h&AYTT$f(-%Kew?wO#<M9_4xTfg56}ba0-xR&j>n&RRbCbubwZ6gU
zD$e(0>#jh7%dZE#dZDXW&-Mg7ZofXs6Ug@z=`Q~H+^)s<UHf)KQg*(}7vM_XK)_R!
zXI)Y+_WC)+TjbZh6Wu;N;3;&Mc5c17y?yn7yTI+w_7=N!^L)~|+v_dVxw<!;fbPxJ
z{o|)Bj%c$ry6do#;$kl;<$5N%^&C%buG{A>;-j}H;OE_^`#pI@{$wiy?6`_@beF%_
zogMHm-kR3YiA>VoPFUPHqk7{mIeOPzPl3C87kx-cptywm`@DHRSK+mOJ-fuGF6?)!
z0x1#rDR_21Nf)>mw-^)`)pKYUeW=UlDkyLl*lFllF26fRa_`PA@Dv9SVUahWyC;;m
z0$!iTRZuCD)Og)E^jt*8#ba-tl+bP9nDmqmcXZJQdd9o;u_FiSS>%V*^?dInk$<+g
zfYMntkT@ydU8JXs?5TSYZBf$V9l5<D+Kuj__pz$<a>0sJ$(AYCVyP-is5L$BN3@%y
zcg^?uy6au3B!n@HR1q^3R^ZMJkh0g8<0*0lsCv$t<SEMWPFlQt{OAZ2seVzkvuh!8
zuxk1;W%8pU-V&<7mS;A#g~W7k);Ov}M9_FfRJYO*-cFs0(#XHJ=vqm!$nVJ^{i2e9
zOY}!F9`JdKJ=vUkw>QV*%C3~-;>Wz#M>`8ky9e4-H&xlx<0XMJ@hS1cRHc!1Wa!Gy
zcKazrmY?jnb*fr)oG+*+lI*g0&V3srTcoA5@7^^nC0*XynQxX%{H{DVA}D?Ip{M`j
zh5b|f0e4~evJ~=_yQ8};zU|?UotNY%$GACPO9=YA#Oo<j^{)PakG4Yv*tO_$`%4PU
zs!~7c)SPG+EwU#Ed;3l<<`6%5N02E~Csw(H)S)Y9T!}wWXtocZC2|^#+3KlOx1^Wa
zOwP@_>|B&QKn2jEO4B>m3##k8E<5J3>zl1iFYx$jNZv_qpWi$y?XuHo51w3VQdO)p
z*{Ub{O9~6IMC#1K@QFdQ0xC157kYAvy&hV=RUCD~!0-uwI^HGnN>Meg7m#$IBnPA8
z^CG>XJTs$x|NiV?z&)8pT%7MNL}q@<SmZWO8v6Gq_4K*2X#UdL{Fh`CvlFgrsi!K%
zqHUo10Z~?a*FDi)6bzWD1^%DTq^Z(O<UH%NahIKTS;d)ckv5iFP~tAib}Ly9sd`TT
zzttuhWOj)Nl=h>}>s|G{Kb>aOY^2o>nn(8hk4M^C;q_&ihZm1YyW>Bfp{%#r9%!Yx
z7*Ca>@s|{ZECv6%{K~?bX^sDX%UhK*CSblZF3;a3nx5rG*WGPhxq;y{EVIAMMlDqy
zZ~h;g9zNSreRqyr!swc>H7>oP!xh2HOanbPdahDQuPQ%JVQ~R{zgU#Zt%;tPqwKI>
z`X18=C8-ODh4%PeSp{yLUQc(G1iXdReRkCgG!lD6`P|v#{mO3VyX}6p^omEj(Ps>N
z^qv@}fAPkr$2+5v^=pS4U#yQ#iKPef-0dxTc0+Vlw33eD+7R8TuGxcE_GgJHBS$a3
z_)OR621O;(7_)V=TgJi{NY|N?zPO(;*%_7P${xS?ljnT3NHFc~I<<{6UpTeW;U70P
zPVIHpY@Do5!u01$|LM}j5Kfd{TXjmt>M1dGf>c%^imfO1^k=6GD=BI-2;V3vRUe+u
zDfW+rcu!ewL`26ahB?ub>P|%%*=;x@MV+CXk|IxDKHZx5NVp_s%Bq?Qym_RaE9OM3
zy6V;g2y9rL5;{F4zkF|rpI_5ct}_NVj%irSYORzWe@;*DTzY<4o9-T8HgzJ7nYd*m
z^*}z|ZXU%8B%5M!VNcvHzjS*e(Foso@zNwEf3Y{9F5I?=5>u<nAIz3sCZMNPdNH=q
zOcsYk%4>KRIQ8yag05Mv<0^EA<wA~g#D<xIB^P83eL+;N;^G32`6KPqaP^I;r>T;=
z3kvSfTo%e)=KP_BvyIVnzq5Ymh67IDkka#uYBwtIddEwK=q&;+Y8hFTdWvw_W*QT6
zoOOaZcqhu$6BiSM>MqC$`+j<<S9y0c%}kK2%CPN`h=WKKxTL2wTV;XQ?3|L7!-~IA
z<Tkaik84VSs>$J%sif-tyguXLz=&$0^=%?<spm{L8up6FXgko8<#V;|=@W;!UkQa5
zZAeDk?rhcjiJ(y<J)=unhc4+IjC*=TG_Nx}zr^RyaZO3qEq`54553bX!r$co;Hnyn
zI!4r~Z;HTfh~ij^pYAtS4UMR0EUbvAo1W(`a{EM#Qk!^S0qH)(;Zt2Fikj;3r|JXf
zaZ9K|BxI!j5u4Dev>)!U-c}#x!XY1KU3R99*HOY%=*)|9jB^Vk>xUYSjo8rn|Ligk
zEp4%~QK{ZcYbApZy~JOlRMzf>&@7)@RF%vGyvBP;k@ZW<7S&<6f=A}U4Yj%}Ow#3!
zdzJJ4to5n-V6PGlI*7-R?Z(9vH%E<}#L2}kWX$3-#@2{T7^8+8e9H3cn9!1f9MOE5
z%oM%I<@1^TylbM@lVe^*TGJF6Qsr@+yod8f6RPr~yTI=b9e6IHRYd%d;$pqMp3>8+
z5BGUO+KUl=V}n#pwv5RN{9Z{<wL#Ia(n7Dt9hfpx4@_a8WjR|abEYAhC?mh{u*LGA
zZGox!m(f$Io;aKajbDNRM31Fwmo6Y&)`7~!zT55dns$iHS+-kDgk;3+!r)rhm-AD4
zDkG8aD#*n|_z{NWQ{<Kux@m62_tEV-r>3>TUW!>O#Ot@cMsqY~jRegL+M`#0sM}i+
z>5qqk?IXKKjvb!Q@KDu`OV4#r!W0&I%n^k-STrrN?nUJ>Ecr+;&+S!16#5l%obN91
z*q>ANp{lm2NDPD;36~as*s5mbM^#)S?UAUuL9T_B5le-Sss<j6f=s)Ez|d0UYMK(;
zFor9jYMSCU23)9{UuVcC{Z*kG2a&q9&3DSE;Z_HTfiFR=)i})9e=Mp-E&30iTiT$z
zD94?Xlp6B4i;Q=crj6+RVW-H2&qksl#)_?xt&*$})!z@D^}K>9#rghJBYs<Cs+Qw(
zO_ItF-LNh4Yo~E`Yh-idh8>Y_#+y|^bC5B&@#~Jr4#w|aMry{^U6C=N?mHs~L<~pL
z;vBe&7)gntndrjj6lutZlu;vd(G&#bCoqt$1_+j=(oyOn46z(4x{~9`lZ`aIjL@+!
zB9CQ+w!}s~T6g3i;uL)e3ozcFsryT^#1P@Uq>TJO4X{(=L%t?anUQyz{eQUcb`^QV
z0ix}TujDre>(V($r@==tie_n%2vW&%Q+!my=gldRK30WA(mSQ;Q`|UWU5uW-sOvQ8
z!{mHpsxPW-fBREvo+me<I_2olMenVG0jfQriBqJ{XH@Q)=*htxVs;4?B#ZB53CxcX
zDKfe@i>en|)I92yD?_(tM9p`GV%tak6kAgSHiT}f$ZQx!OxLLKmwy@hN7tx>4TJxS
z07GhgSXQ}iR{;NmO4EyIi)LSIYPBgmml`X1WIRC}$Ettoo8XV~Vv_K1q+Q|5gyTjs
z09NB1dZrneTN*fL8{THl1f#n<IwqK`yC-M6ivudKgv61GRD@+yP@fz^U!DThvzghj
zEEG*|JlDIM3|s1nPp8h6o?K6qtJn(f$<?QLOH>k)fV)VXFXb!-#fg(5=iz?g2H`Mb
z4<@-JkmUDDK`}E0CG-nsr-Q4PEMHlpKeH`)vyq8yx5$iXud=X+j6(H991sa@l&Id@
zyr>F3;n+`%^|%Sx<Ru&LJ{8rZ7xFI>t;1!*kpIa%;eH|zDT&pgNu$gwAaIzPqz_PS
zv^4X>RIHoj^!3G|%{SdDdK|F}NQeT{GI39RE+wvFTA=#i&vy|yqDZD86fsg|wuwtt
zeZ-}ru-t7^RaD0&RW!n{oGHCHpI95>s%jZ!v~AayswdmNQY~is;ZDgsUnkBb7N5|L
z@oK!Yu5s+S=(<6bA{Jkzpt@Dc=a<GS-8|*@h3h`x_3DX(xJU`zs3^s4l-IAjm8U1p
z2?-W>>D86W;fGZ@*HsX}Kfq7tic@AtS5<(9`1QQ(0xz{kCFSBeqDaGJBqp^{srl-1
z(iz)smemiK>cgR>R+QC`ch*Nt_Het^%(PEYo|)0yAJu4(&m5xQ*{Pv{s0i1v8mV&L
zC0ImU5M5T@ApsHP<f(ixhVtGmmfiCBoZmU?+#2xa<>4DvMrkcuF5?{O%V>FSUm;^3
zvso(-2<<=&Qp;x0&(4F4s+0tco(E$a1nut7Y_XD4s?Z~6j-QfrnV@X#DG=Qg<rdvH
zvxdTRE~9ax7f4ndM+%-L5lfeN?#VQ16>OBQvC8)`$$CZ~-D@n$h)Tf1NUcjAROpNL
zDUK2Sw$CigM33LYh#3n*<H*TT0dXpcVvD<WSx)3KN^j+wmnxbFCfvlbv3sJnem$6o
zYMTO;lT`x<EBj?_lkX|mcs+|wH_22;IY$D?R&d*@B572nXyo@wfk@M`jh<>*u7aS_
zSaER8a_WiF+sOH}6lJ)?;`r$L@NlIUtXit7nHZS%A2VUa2M{unL+edZBu)y7cW9P^
z>PH*JvYO+NB(rMlqKFa3=cWibUIdpdoiDB=1vFJ8(P~m6kb#$9N=%V`Aok6T&nngD
zb4TZjt0HPyr-yk3*JQKLaNX@GEKwtJid|sF9LbVccP<s4AE-RZxc7^gra`4n;a^23
zC0NOc;r3#6U#iffMqXa()Og8hrJ+z-<|7<J%eDG8WutMaCrba(lX_ACa9jtMFRwje
z6>(L?(-%pM4okuux>7dz!MYNMjd#0?jaOfeY#foQ8!fOUt*sHbUK+MI43e`|7=z|D
zTx`}56>6Dj{E#1|8~^Mab;Tgs2QA0GE{C8f)_91{Fnhc^hw-@G@m%U1ScgfF09`97
z_7)i{ro_|>%AA$YYfT}jMoLuMRt`$uTl`SVlg8XunkTV$A{|vyQ#mHmk%~}E?WHXu
zLo`W5q5KoMyg%T@JQmT#ONKo`?4=qAP#9Vs5+k;%)JQHS>DrNoO9pPFhj)yxNF;_<
z9(MKp%ppk^K|=I3gb(Oo5sS<a1;)Fln0^E4NR~#(B#rUg!pQ1vxy)bNc5@;}U5~bu
zCxSqAjIx%_gak@PsZ{RiqOF##gqnbpJ}j&fW;?U${nktSoXZ?bdZE!Wx5rf5OqFP<
z`Z%B{+#893NANk`5(zNUOc)tXbQ?dkbk<LkzE{bPda^nhtg8%l)r28xWmb$mr(-;m
z5}9DkI~ZA~fe5S!_ZmT1(`Twi{h{HvMU8PbQ0mC&Qo?64pp|QiZ81{&Mb&SeGIFG4
z9sET9eFTD}MT8rdX<$-D^R1!Ji%E!<n)Qd~kBEBqiinPBM&I11SDYEfx4BW%BipCX
zG`9DTN(eof7nNQ8e>3SOJ@qxgL>xDzw3EClQcx(}s9!88**BF(>A+?4cA^%9SgB@P
zZ>`x*D%ey7k*}yKg0&r06foO^v6E4`6+B8LrbEbAJe%+woctPYFV@B4OIMC>7s4LY
zuEU&b{i3F!p$|oEsowd2Jy~e{{!mo?pi3eFw7C+@ylPygAqtQGm1>!~U`9%5roJpX
zU7DMDsM#yycJgrw?Mxc7eS`?<(kV(>t_mGl!U<L?iA#+#b>#yiL+Q1Zg;INbF_?VP
zC`J7SdJ5>JaMcG?bpcctY4?ZXFNo;>oP+RWwq%puPD<h}@#!)gQMs{WHT1!SE@UHC
zN(!W|Wr{*w-JF)hl^?1C8C67vS+OH&Doho2KP5M&)Z}7lK~OH7Ogc&hNu$UubE<MJ
zk|jJ8w%{U08VtrtEe+t;Jc$|Ud0uZ0hR=-W%Jsv6H?)&;OdkvbB%_Ezgep--yLnIQ
z#Iz+s#aE=(RIjDR(A1>g&S*GcIXSGN#_E4+b%W;An95PA-pifsqEo8OveJAUQcsFG
ziZTVJDisMyKPsbuDTT!@@-5RI_>GibO@8rHV3G_FRF>&T)wH)Q4O0z@gW-6g`c+D=
z29;K1NJ8jgY0wE^1rupm%Afkn%U8PAwrZ;;p}L8`x@N4ps6Q#xa7I+GsMP=2jJt98
z3ui)<jC+l*--<|xH@h~L3NQ#uGHO2%i+HX1`mmG3;L3vs%_L1pR)FG6@@6U9o*Qm9
zuE`!McsP=fpg_u~qOcdJbX!KOmCFE_)l;KH5!_|#0cc!<dxe(^NZ+9RQfwS~z*OPD
zGySH<|8jP&XEGnuDg$?TO+ji>eCd<kuEvzQQSqU<&qn<i8SE>oIAs1sWGeF}rojl{
zRTR+5Xx&9BT;VN}G*lQs#&K3RYz@OP2BI=V&ea%7<z9kB;y=iRB!p9WEk32%;pWhb
zFGQWX%6RRMs4GJ+uZ+4iqMkm?3~|V~QZ8gpT^M)uj!tMPpP77WJE(WtK5l>80llpm
zEi?BFHT_2BsECB>2z-R;NqLMGpEB8HUnXF$iLe5Gf3h!<f;IDGIX`N83WvmBZ0fk`
zKUK!UOHmjpq9ZxsnzLrGEZc>41np@D^I}#4wpp_hQmTt2i)ba5F;-W=6d`Y7-v#vX
zjOA2_NLq4sz?>T}W9n*1iO9?ec5)-$znNu!3<i@W6r~^ex`oo$L=A87=hY+xGNbfs
z%vM%uI42=eJLZa^QcB_}GFH}&N(?5dE{e`&n1sC~(lMOavl&6Uv8338apb!ja2Hvb
zbIE9I6l+J!flOtOY|d?ta%Y9(SrpmlR?D9xJZu{pJ8ycE%GC<2FA$A1XF!mqtH@Y=
zD560vJECo$V+^SmRWB$<i;S)L)Kb5@xUlocQKM7+?(~@|s%Q>2OZjf5-DA<y(ZEd8
zEunr<05OEhbSq<B<%ndxbY%EUt9LOgiEisw1j9sX`)-36KPT%Qx>>SH*01YkN-|mR
z*zH!Tv4o#HbsJ1<uS6#3I(Hjdz<hL)>TpY|<W2HntePCzIB1roLt45ji!>cI@mg6M
zgQUk8;I+gqC)!rug&&?Lu`~Ly-qc=>m&&sg+0UvsS_%!kG)3x;-*pn1$<PXClG4hB
zX6mi#ckXP<OU3GmXQyN#d}DBnhz6}pK~TM^d8xXU)6ShQ$*JMm=WH;hGP`C^CuW3L
zARVyPDPKP0fKNQpn)bkGVGhy9ELB$&p-MliCmPdB324Za17U(3-Ac*sSnYOePn=67
zS7xCQ5!s%leWKZc62FoVWg+%gcM(gl=gn-rqaIaw%PVF=cXh;JB1G=?;e4u2OsxmB
zXCWn=#sSs|mKP`bR%qNd+Sw;c)%NVs&Ngwfmzp0aObFe(FY1n=p(CxMAB+#>b&B3t
zEqR!V6Ub2Zzpn}lwe1~UC#}<eT^6QhF4RcR8ibghkD=cmkwAaLXtJ`qu3WEZm7sLf
zhQy$BgTxRKlN~fi$?UmlC6Xd4a3UTD;*>E8uAtcqj9`y7dU-Of#o#^H$3TnkRJb)!
z8l;-r!O9g(A&?*yr&2JFW?*!a8%Kt?uHN6{^W)#i5q(*;Q0TIABD2+8nPYFnh~4BW
zl;IH58RO0RP_xJM^ZA4k^;?TP+2W*&pM@Egm0+reSMxhoh(@B%VzzR{l~uDjI_`t4
zX|MyjGNZvXGe?;QN2O1FiIPZ>)bt0!a#b-(Y2EDnChO_l!crkzXa10^x9et>D_L*f
z&B~{#p6<zp=X_LkV_K_dt(J1lMF^#mn$KN2?V(0>2^pys9Ly`3<6hL%sP<rNlb~wW
z;n+HzPkLHLhFuPG$}XH2m3LJg$>C~N->J@zwjk<l*N(kv4@vQ@IoWFZ!;(3>hK)2o
z8PDn*)i{TMwQ{6<t{e~3z$JkIHY^Wkw3x{e>E=v7)|_8sYJ}>+aj7a`QNc+rGXnG{
zQJbqB;sVj>&btkFAi70{7%?^JYtKx&nVrJVp(mCsU#e=VaK=l4=myTzkh>(hOLXi1
z&=N0OMj3kf?r2ZMU5SK=)D%UI3M=Li)MjSh8rdtwmo%jpQ^OP)D$<~&oy*9+q*yH#
zQC*VdXRss%Cy}+ejOwSPCWT_|iB5^SQeuM=3@*(`%Sdz0#Il7l?v1{ywlh6cIwSg*
zZq5|r>Fv>NoGGE@+oR9da`p->{5tw<T11vB^vabn^J-VC)JmhzRWWT!`<!T!kjmtM
zJ$Y>UR%FVUur9hzw@N=s$xRId#7j|eGOI6^g58Gsc28Ev^mVZWVW_Nv3{AT#=5%ya
z$JDemW5=~I3C8`cW3D2nZ?%r8sL6_y*So~9@X9#aB_@eY{Pi)t*bKcsrore^wZNOD
z9Vj&;P=;J)N0!;McgOTJ`g^+))xsL|UnXvqLs1%@nEZ>AM|VtrbN=-)thNrl*EMD_
zE73z)nKAEIkLfvp%j!nMfiV+U`*rKE(4zxmE)I=Wt06*<&yKmaQ*dwr(UdNgZ9~Rg
zww;#{u3EIK?4VggRu`rUVz)V2h;ELh!yz^fyEF<!<q}MA6<fW%YTGDD(2D=a%oNcN
z8QhVWTJeb%O_F{Q>wrpezB&I@bzOrvo&hy<Wje$h^Q)kWWP?e8VnTotzbcl_QiT*b
zfmWu*C1zGzsPw2>AJe#bR(B_3VKWODJY#zYXM#+^Q8_Y3G=E^op-#%C7G)KCaX!jy
zPaKhoSw0DZc?+``<Er2!0bax{a&e<eRl{R;h)=0Q%1AY$vqm+_?5N;kkjq(9_15KN
z5Len;jriN@gRSfKR;wk#alY_ej<OEnSelu`WYxH(&WkN)Sq1o{v{mQ!xH7#}P(+CE
zR3_z+OQOB%#L8fy@)}g6G*!Rle>>Yn*vmUfWG9w1FgQGuRN1vxMv?!=lU$(%U&c&h
z!J?6NJf;ER!_bY#WBPQsl2HZ&XQplJVip=@Lt`5n;|sJgO{Ccdm~TYA)qvcZWfw2P
z6?(OC>`m>RuF%;bu@A(t^^J<H>12D~=vbqV(`7VzCHBb}Q~!-^FUNL@7@cEm=^fkL
z*c79+Fs7EqYR2@JW220yKC$)Ps#3$vNpwLLMN2eJDTf-2iBn>>D%%w_6<=~=e?w7N
z5mn&IVsQ<Ew5N?s<uiVt9^2Na)i*XiRQ5{jEs0n3xn$<jaLtHqVCYWm%C7dEBdQfq
zdPYE1=6+R7-t5+_MVh&42Ev*inEp~kUE|*UvCW;ML*2Ge@X+p^v2R92E6p`-`Yg70
z$M9^6G<S4M1~tmVqAa#O5(8}p++77~L71z+SnyJ0y=dj{8CyP!Z5Y!_Ewnev0<q0P
zv$w@|i8QKx9{aq}|FhV8BmJJqAr9&qY0UdP_O)0mVs5xD#$Ii_zB@LvpIBeJD^Lws
z{DaEbWKnsg<psou3aoD2Tw<wQ+iW@um!~LnY<KJz5yrH=vC$0g#GD0)9jn<}>(&QR
zmoB;)k^hSTy(!4c0`sc%x(e08CggA0HoG=0Q*mh=4Lg%q#n4!ti#;oCc~`0W7_pef
zmY1U&RmYo=GRmAoXu-bN!8ME@zm9D-#2PfxsjHb5)k(=TlpS}e9F@q~cIS~ue1_q6
zl6_Rz@)((GV(S_Q7sj@X7&+P){8((d(d<O*LT5W8b6sqGqw|xo)s3<fvA-Gjor+!A
zta@U4ha^Tc_^p58Wf@O@EgE_%HmmV<|K+F~s=8g3ey!yj+U}s`0hq$FJV1SnT5gMU
z#H9{(Ivx9Mt5`iTJtaLO$!L0oc3t?xuq(8yWAwzdl<Sg0ldsUG#WvD=vaD?~apG*2
zE)}SeRvyZY#Wm8KM<iT>&)aII%sdeyvl7+mFJ!PLLy)S+#>=tcgF_b+w5PS;a8?<1
z(R+El1&M=83X{6%17sPRixoDvxFrx`)~H&Gh}Lk3-DjH)WST_LJhGO@PEFcCdiYy)
zsra5bIbGyjNg`QxNQdv}XF_wDX^C-B!}5wU49~S%X6^9l;;9z7^IW0T*J^_!f&+`X
zkRw+?qP%hXKyMy%{(=0$OEXGPgM~FJ)+bB!^iuasqSw};V$xiybXHU>HJ;0)vrPWK
zUim7f)#ZA4Lw|p{P<(6cnQECbc*5w=M(qVotP3f!;?6P@GW&LkL-_Sp>B)Mlc4p1B
zYOf-R#^J`14KoLMi_&cqVFpL5#E&Ykpe`UnlbeT_%di(0c#NLYW9v3H12xhe+5K*!
zidc{hqwH`@-G(ew5m$s&P~qEU0&>Sdk}<oz_F&AAtZ@U0$1Lio)eSA^pe=B=<|AVz
z`Q8;UclvmI;hj<DUVm8yZwzd&buhl|uGKXb#74$Z^M9Hq=c_=rxs<4CkuuZ(^nWYE
zcrrKA%(B0u);BKN%*~M=T79EgN9|hU%1kZwdcJJer%KHyD<x2x#VoVB;iz370v8nI
zQWb00$4Kj_CCF8pDU1IXrJ||JeF|oqRf{IANKslUcd7BFhLGvhm`WhDI8*aEjg}oW
zzj1XhZQkuevI;yCN@$p(nB4EEKB`D_)mG`Xzqb48a86KkF{P@L!z*T<hGC=JzJl%<
zgTHdt3!0IgjCQFV$S14a<OZo>o}511qiLtgNAy@4lX-UznW?l0GSz6_yc0gajAKZ;
z;b1=||FWRHxso?vbX*!$GxIO=hg)FV7}Z#;TRUYSXwG)3m{dwehtxD<eJ^cL3qrO;
z=dHeHY<9S@rN-aD0+PY5Lc`fdYw%{f-daSkx2%+(9Kg&K@zz^8N!I$P%34-2X(@+&
z(*bSv@3P9^8)sc4OJ=RHi5euB(d_h;_A;2YgCj=Mc9F5>ay8ZLOmBfPi$C8}ERza2
zFL(xAz-+kcjw4ycFCMlU5i_M_Dvz~bP0}W#D$=1Rs<^YtxmhwRU*c`ay|PpoW*{g-
zL33qGO1e@+YvC!Y|IrfjQmRN;20!=0%3WsGwbkHBOuY}Swr5D>ZWZ%JI6sblwz-s&
zGVsrgBa^69rNk$=q#6rNoggbl!fV8(?D@<xT0`flL(pGYcqp?4xDTXn&BmB!LUM<9
zmm1IbTE_jh$__Q}2$o^Dy3g_wm9=98#_4}(HR}0Fieyw}s~UOjn3|pzO7E*B#|6#d
zY~>A`3_RuTLo*2AmIf_zAhK}G9lohk#S+8fGF?GwFRCRXdh6a$sU2?8X4#{J!L1dr
zq9Z*k?-3oLVj1RLhggy-!E9@MWDob0$Y{6>HL~-SQZr{Az=)aOnAt|LOU!<}bk(ke
zvGg@6Oi3`k%1|t2kUf)EwH=tAv?VIDN|YpILO+{@@!ZUYhzs57<|cD8Q_@J+6YX<c
z+-f8@YuOo>(JwBY4A;YVgA@KVo+;Go1kL=~s|9U2o3>Pf|5l`}vR+s!eoIl#Fmh70
z@V6j*BC0GxA$tQD*K;GcS{W>|M^oj;A{D%3l3U$IBcUU|`+5>kqkG25awwM$8xs|h
zQj5XGr>c}u8d@Mzm!aDSYu%i|u|4U_$M$4)ZEVk>X}mK7G&W0i=;p>|%a4o+#`@(O
zzfZl%Zax$X@}ZceQ)7#J^M*$^7XM(ZoYo$4;Rd)7I>V^p@^+iN$rVNwvbu5XC`n)x
ziyL^8%Z)0LH%V)hTyxYAd6V3XDmEQIX?tjmY|QS)ZbjDE*s^N&a>+_x2FoDJE|sj5
z_7)hw?vAdWV#ixWA@B_O7#<7j^eHU;G}oiZyj6~|;B-ViR?*Sht65p|)(>+PxEMys
z7R&M6K3qGTFvhhLJzf^ybDNgwQz=P{M!A$5%N-ZW*hmGY^c-rp6e~}rqs1*j1uW8&
zQ%cjA+bSX?j4vknQT42D_F>_ym{w-u+;Wqz%m}Ch=q_?ucWaf2x+cmR&WhPXF~Q?y
zezQtOkb-KXmEB=DLkuel?&Ki?etc=kk?L~ATuKS71+8Weth=VT$b#QhHAQ@FS$t=O
zb@9gCc*Sb?OZn49dMO!(^Rp<Xjk&t`q;C3GF;CL(G2G;4mGm~|um!=%x<7N&O)Jfn
zE0`HKPf1KkPcaWQf6cIdRf`xce~lZIJa|pv7H^*K_8T7$(bfe^rxIAAi%}B|*2FoD
zkJ$cX)@m^6S!n8$pBrlmDsNd;>zA;#<ePg5xdsN4u(D6Ts{fEdeXZD^*GK$Kh0R5F
z7yz{datiZ&oRFB~^5^Tf1v~{ZeT!I1+se0oY%xod%x|mAx+-^?gqU2Br)ijz*5XH}
z#{b2=|Hj;*+OogArHiw3+*u`gB97t$LcvuHAuSbCBO2yY>x3kI^Zp?mI4LDvV3l|`
zt7GVTkq_6jr|Z!X+e?X7j;68lzL@&8DWAENNcGjk5R9QWYg1cY^3Z{v>VX6Hw5a`n
z0V8;q)@hvRp87^QY;)ji*1M@gVhd0cely(#%S4!KtT=?KlS5RT%Q{a2?9%Eah-BS{
zChL3s#*kaI#vSy`yG4()$h6XXOCRx@tmwJ4PkU}HoYg;W(fSANPa+oaFcQ^MPejwR
ze5^243)6FnSR)bBE4Hp}hv%4?@^O<Z%ef>mYxa{Nw^Wy^eQRxsE%M$t#p0it>xTxh
z%7g;boa|Xt7I;_A-REMslsH77g|s$nc9sQzIo>Wh_0e(wt7|5dhyaF+<=T2T*<m`p
zW&9<NdFZDe@gR?PsLfJXB#ivUN{C0sw+RiTHYAmlJo+S2eR1}2rj6AjwQD0>0XfLH
z_fD-|X-3DoEXhyn*3O<P9!6}Xz$0Vx^lmpu2PyX{ihGjLZFtHswUAY&;zoJtnc7=N
z^p>YF$c%q)!YU%E>$(l1{W7U|3rVX`w@m%FzdQ{D%sl&eCfYOQ9trctX9_PBCfQdr
zjAq10JgSLa7L~HXfFo4M68{&Qgk_Rr#T0w;<W3stz|BQH<{5t7E*y)Urj5~>cPGX!
zHcxUbhLC;p8+lZREc{c|k*BvD;xnsbB2f%gFBA3lE#pHwZr0jG1gE;HJ|2UcOg*{G
z0Gq;A{iFRr47-NB;yUvX0ox#R{$Cs}s&A>6xGY2Do}_>nvrMdm6@ihJN5+|lqN^J>
zUEz%DD&8><?Ffg<WWBW%%4|m>9COi=dbEcMe26(!IrST~n})`@9`w8B9dTrl$;Tqr
zXi9{nN^#8AT^Zz8Q9Cn;XEi37L6*sgs;PyGV%=fSLTfV03K+2$geh>pq>~`bz*446
zmw8tKjRE0EYq%jGrO0&Y-CXR@3@V>2La%Q=>BN4Z2(zn~wS~%Ojo9s>u<|Qao+<)1
zDsr_rqg}REuNQ5JwS?wf_V(4QR)GC*B-@Hq9%GB$a5i#YmEd9Jt^FLOu$yRX9H}+0
zMwMA-8No4{9<(pPphxauN6p11k?nSA_MqHOjdh23Quc){Z7tMW4h#?pE9xT;aY0vx
zsAvu5LzXE@m_dYB^*Jz>^vo*eQ99DMS&wG<3rSj<V6ReT`ptffi>!03^1zgEj5dYT
z!Usu%PzEPxc`;_7AzTW(Z1xGtBB1VK>aE*!r3p;7n}C%ab7U-;s#-mkQ8#}yj|?}7
zhN^FoHo=Oeu;u1+p|Xvd^s=J#QY$TjYOcw=f)bFNC-S7ogIJ?t%ig88>`8m00(x@e
zI0~CVRA(SAs?@_+jzsoVpKxP|z5rWw+0$$;)!-qt!ap4pw(Z<?!`RV>x`d|<O)FnT
zsr5|m2ozH=QH-k5;yY(^HRM*dPgGpF5lY(XFmnxyG8wW)-CFc&E|v?=VunqzWoFDd
zZHg^+yJ~NZag}aKbpT?()vAz2lC0@QTz*Ak$5^fI0A;)F9`;Ygw>tv6eX?qjo1|sc
zgVkUN%UV$^V^O-6Fp#zqzKAmH123tqVI^52oq?`Ex<qtslRue?<I<JgF&{AfvBR~u
zoVio0K0C;&%qmUbFPcx4U&Hk`R84zHl!F#~xivy{jD=Z|37J*T#GS}-b5o{_o9q^2
zdwhPLttK*2E)Wr&uq9g6L2DSN#^W-}rnEd2Ete0Bh;yx8g7oFq6?6TN{8q)p7*D#i
z=El=wv|5?+i*!O<06)ntN_rZunu=apEn=wNQu<5G5usK5Fmxkb3{Z~o$SAF;vEx>4
zfV0FnJ4#D(PBh-QO&eqQM`-nok4F=hO&y^%3e6s&9d{ZJjnZ<Rlg;C%7?Ve9DXd+2
zW3+a&lp<+Xvxr#f&+qy0cCB_qsP3Iw&xp{-yR<taLQAu>n27OHFMIHi<>cDoFZ_g5
zwYX_&F;lT>eQ%Yxiwe77fn<0p)|ged%+#UGW>twHGUKM$%`CU!>=enU%IbKf{Y)(;
zh+<y#|M@D`eZ|Dhs>JA69z94cd9IRgs|r}OZ%)(68M&<RSF3qVkB0lKys{S1d{#-g
zC96A4#3vW`npFl>{EM)0y|JXg!+=$-8?m}}2HY-ni;4tfD?O2_M+Ur_^0{g8#+`j5
z8wBm=9+*$sxirQTHZ7L-mQvi?9u>=iWJ0VAv6U|;f@YXnMWdzgZd~ljOj_Q)*cw|%
z?i|fdLtLDzf~cS@fX4x6R7eTr;Hkw)Dw-;{U$EAlhtH^0qGnrAsZ?H$vABfoXxsfb
zv+9^YJu1LHP=zT}?xiQGoFEF~46D1m6LT@zYMddXJz7yNeV1fRhTxteGgQockXow1
zDnL3LQ9Bi<wc8uPSwdAZ(<gV(lW9hdJyVCL>Vx>fYJ#Yr=|Iu?ChM6uO_9Nb7`s6w
z1u|oXtz+7aheAzMC^N`$Q}lM%bx6(VpyM%gyzaW|(%X0FEOs$HLqQuJKZM!F=!DSz
z9PJ;@$f@Ids*j~b(_%wYa<!Gt;M6}oQOk0Um5q}~3WjI6G?58J6#kD5PhHLwplWp!
zGJ^Is|3kBrwRUP$ub%2)=ZF*d7Y<XahHVA`T?Li5fs+glk9541u}3Rjt?Z)pj55ni
zSkY+-Ei?R-bKO{07V(&YNNcph<N9QB-*dP5SuMdVvSO<0Apv21voE6)7MF;x<k&P(
z464=KKyU^gxCBf%ROMAo$%=4tWre8tE@sSGtxv;tNv~l(SB(Kjk{&<xPmeUar2ed)
z*{Z^u|5SxRwDNyuJS)dLRVwmk;z|G2d|q0QX3m1#877(g|ED%h!B~}P75zU~W>W<G
zx3w7`;$d%oXP2o}ALvF%zRKKzm3L+X!cTcKEuJY3<EcWeUQ<(0IbJ+0rcPvai!RR?
zGS4*z7ikS5i5VH&+eXywp)8)2b@NK*N)pqc*~yt9Nra~E^0F){2Fhh@?;KON5up?w
zX;5kTDplB+ov$_QYYpPKpUBj7S?9^4=+H&ABDL6C%+h*pO^^q1ivBYS_LXoKnCM=S
z`3NPR)Uw#4eGn01b=1DvwUkk0jSB7qck*P95A~U<)vqlpJ6^z5*!r|qKlJF++S!=c
zq09;Ka45MmqE6_MXSInDam?15UVG@*=d=#aymsw$HKn8L!+B;6qj?_ErDM@D(#>ah
z>9-E=&2N{kXG#9c)phngeN~pgtL5>s#yOPwg0|xdXZnY4YfnUkobPIFBD&vP&EdEJ
zBY1T3%QYO1+j$=MT~|09O?aO15T1j43ZAXaW0kLTI3~d(FgL;BD1+bY8LI<v9~qge
zwVuYH4O)Dtc!BnXv(^BvHxLHHw_r@4ul4PFuHsC^$zv6=IdWi6h54Lg9+X@!|Cv0V
zxy*LNKl9c0iT2&p_Wch1)i&o&9-hqa6A}*@hZZsJ87@~n1(NfNP!6>z!Ie-48bM=d
z0{vkSjD*oJ1}1<H{O}Mw43EI0a0pI9HKdUP1uzjrI<LU1HG+tMou#l0K88*3C42?D
zVGoEX$BH;%B20qG@Blmr4}l9&XG0EDlwUag?U$!FpI&=m<%ROo-!3@)7Q5xIsh4~)
z^Ymu*O?8fYKpj_p+NiZy`ynXOnSaNdj`nh$yWt=3Pq-KEgZtqDcphGb*I+3~H8+Lk
zphFk99=bvw=nMVe26z=#!*!@cN63Uea8oS=GLRk7m!WVA41)qFgd(^Hra};=!7DHq
zM8D3!S%^Z<emQ;Qt0P-CtzWZZ&H7F2kNonU^>O_>>)!zR>RJ1%8IRm=YEkKkh}wp>
zM4M<lvP7F?+_OZh9(1&o%SA&B)Pwra0Meir^oChr!1M3|EQSwY39NvXunJa#-2|SY
z36#Q2m<5O68z_Sd@Nc+yCvT2A4o6Mc0=wZX{0KMjJo5f96mEtw@Hm`5_06e$Uv1;H
zdG+#lSI=Gj!n2!aJoVT^k3DtY)VrsCHFe@szNfx=%2(toddfKZq1HZ98pM?$?QF1(
zoc;tn3A5oXSO**6B2D#YsLsRQYd}ZHguyTbN?;<agjMi6`~j_a+I(;518&HL;}FAx
z@?#+l(qVi9>i=<eo`AItNf@@kHrN5jpkX6gBqYI2FbD?29WWLO;eL1sO5s`f2-d(R
z_ybxtb~w62FSrSY!fkNJ7~W_-73a=eIC<gNg)<<p{X6$>tn&8hh1C~6xv+G}xg{5t
zERy%77tYN;_x6R?FT8r;b!v+?l-y&w+P;@DT5aF<%{E3Z)k=fs(xl+^@)r&srM4N)
zM;tvwP$C!+#6nmM2jEv|OPTM2e}OH78k9lGEM=6k*=5Qj`}e@p@E+`kYE2xDHZT-i
zO?asMvrP==uUc<o&I@skj5%wxKfPgq8yT4&YxfyPKGig1_s3dN@D8pdSDp$%m<IoX
zci~O0yaD#XQ8)(whKmr(|B2v%&2SjTHpgZ{Df|izbcdrgBtz2{4o3!bhaNB-UW6kp
z96`r%cIxoo6l6j%OoOHHF|376@I92lYgePU@D6+ht9VBKS~vqO6R~6P2D}9eVG%5a
zWv~^xCy_~b6IQmSP_2Uw$HrvZ9efWXQjlj`tUfG)Er8mnj;Z3zu`@@G9XNBcV$ZRP
zFSdVC@j0(!6`xhCtJt$@&#HCmwY*|GujO*=u`?ChmsgbY@uP|lmRE>wJYKL#=|+pG
z)GeRi_Bm%84}GG!gCC^aslM^o?x41N(?+VTXw?nRBJZkoA@Xl$$$w^*I*8@}M`!>U
zkO?^ugtuT5oP`+brVaE1sk51|wmE&#DR!jds_RONLUUGV*Eo&uKGkX($5(0%y^X6|
zwb`BRT~G=i!U?ELCEB&Rk^PfUt);`!9^5bwPC|oL{5K2G4@N=&W<UtOg-S&*p2?|}
zWE3}!i~mbiu2gSai&f)n#Sx|X4N_2!oGOa)1N&F;A2i$yepm=c;8(Z;<!J>&ApjqN
ztx)4p8c`-uo^wFV=9#$OAyTjHG`4M^5p7?|+t#&OMo>eksw&taKG#Ial3)Z(hS$MV
zJo+*AuWCc*4s&1$d;`(wVFxIJH$n7MbW=w+ML!>eRq%`82>%(ub=o+imbcn=W6pc5
z3p}z-t6`k^RI6Jg2ewM3=Z0)}8a{-*a2lGR<S9^9@sIO4Dh)M*2@ryhU<d4k3TT*4
zM+KAM1NaG&G7MKzT#`|1mp0fa-XAyE%*^~1TD+0DLCY7Rr3a;1?SQIRKE@Tl1^F*9
zPJpD~;EIw;Gmw-9f~59OkQA4Kr1}daWjGwEkPGAC6?hE}!BIE?&DtTxb{L&j>|6^j
z$c2~TZP*DXpiX-(2m|3Z7zww-HrNH#Xr(pbMz{$^z{BtiY=F&B0nY2V7Gyvd=mr(#
z{VtTBJ9F;jxx<&dzS=3Dw{8f3xnkLe%MR23%s=<0yvb|cx%uG=cNjSvwWotUuIr~P
z#nAM%YTKqW)&biRx@VZ$+WnF^f89k$A|Mft2u9=}GLZ61*`?f4Rs)^`DX)}O$|>cO
zvPrq5EO*1|>u7Awj{GkrkPGwS1b8~p=wTNmbPny<r0Gth)~Cct(aWe{R6R#t&P%>S
z^bI1C?$E=!WRUGFSP83PJxB`CAgOc%NohRX3;zO1^?i_(Pr|<;pOhsRg&;Y33nVvt
zAehh@#e&;l3_J@j!cI5|-@^}3zY8`Cn!v3v3Z8;e*aTZayWZi5hZ|uq41p0a67B*Q
zc;P{q0qd_v0k^Xg-PPfUgH&h-`A`CH!F>1zeknU!cJ?@!FWEb?d;911XW8!F{#n&8
zR(>2>%<JQ-hltLg5_gqknOkG(7A-%>H%eJ*CFFM<{HeqIly)N>O0|0VZS$%*WWS$?
zO2i~067h&QL=++h5rGt6iY~>YXsT3FA}NiOL`u=P8`ppt@CDTC&NZ6w_5^H(8a-%7
za1VR{KZPc2)oyi$E!ia+BUe0OT{Y3V@;K}2uUILZvQlX-DZwa^#0-!Gw}T{F3nbwo
zAc@}xl7ZFm6GUdBbr9^zTQ?X9|Ac#BDm(*g;46shi9SO=$boV22s{U$!4Zh-#TXQB
zf*g1P=ELW(4R*pQxUx56R2T-sdpmA&+{Vtu^OdjD$K_>zKDhVd`JG$OZ!kZv2ragM
zc;}6ab7cScX@~u1bl;&pWz5*iJjU~1YW0HMq@YqrDbE^^a!45@?~-rHv*cIuD*2SW
zNxo*mL1@{Bjs;$a18`+u@(j<xPS^#tuu_BIDcAwOIPAY!v*SAcmp-2U_F7~6<hb@#
zjyrNui!sja(rTK<<b_*n(@aH3Bj9$B+%1KbZ~!EyN8oEX3di7EI1Xn)N|6Rq5+6uu
z7J`)M6iBIbkdkGAl<qAEO3~_q6mKL*5nlu;=GX8O{2OZAKo11{VL03e_k#gzVH;ck
zM}HgxNQV)S4UfP}unDjU#}4j2xNA$<mR)5V&nB%}F0aK4<h5$~8`f(s+vjII_52L`
zi#L`VUB1+&ME1XNgt7fgt*w#QA+DY=YcKyP2JPK5dbn!uog~+iQ^}>|PI4x>k{n5H
zBqx%KD+l0C!IQ8K{taVqq+5YTH=!`_IBbBZfs7O3KDZxNfMXE<a~Dh*<cM^H2K}cl
zLX!ImE?CL7BPmI`03`WWL9(zNBpb<OAq6BmbKq6j0$V|{cM2qnSA%5p4v?(A2$J1B
z5R^REf?gnb9|e-{-5`0dZRP()vkZ<0*v^C3AOxSozae%oHWJ!GI&_6x7zcCV4Oj_#
z-~iMe;&8MW;^^(Tc<#*6!`5s6;iLNx@3ud&-MV4z(ZkEE*N1BR{^7S@=NtL(lG(P5
zse83y&0iV!A~l+jFWY+R-GRjqe=<JXt93Mn42jc&T_xX=XUV7JQSvAGk~}>E>p&Zd
zF9wgn8gSf<VT8NkAMg&Gfvaz!jPNde2g$=6jy%wAbvOpVW3T}#4S_LrpVr5y^{dw2
z*!~1VSloq|4COgaKO!UA_wXT)>}RP7;&HTstKk}W2p$H>Vkt;AH^L@}A&Zjbc#v!l
zghxTL|1wAsz5*#mU67&-11ZLPAVn#IAE6b+pjiDKt=W;XjR!AC85e<+^BnwAcKYb)
z!(Z*(`00vImn?eg)!AR|G+#4!&fNLr&IhL5J)v+yVUCf0P@DK)>u1_gO*i%&!~)Jc
zs5LW&?IpZP1$uh?L3PTz-DMAS|E%_}l`OPD)FSe9$ORF7KKMbZAReR|Zh;9f1*A%z
z2C0@UQ0+E`gHR7{0T;}Ge+7A41Rugza1LsXV89P)kPf%NFqjClU^Z-n{csdwM{*9-
zf#xt0e*Wpq$*=eC-1_N?C5z@STC(W1+0PS);WZ0(ZhdC!{zo3*<Fs0frtr~Ja`kQu
zKCETL;Lv<N{3YXE_OD?7o=y)ccLyiOn0}BOx3cbu(~Xk{P<O0equ|uShg8FmZM}SX
zPmz*KiKVnsQYoAiObR1~kOD}CC9^YO7hE|CV+oJI$M7RG9gW)ovtTzg9D@OY7vUw?
z0x@y7<4E6bJo6qgo8lzV@aw8QEm}`}=4;ek63K!bki_PJB=`+TqV+%$z7-_#CqOc=
z5+oD<2FXYZkj!{NGPDRJQ^&wbMkI6BKq~YG$!NhCoYWvYlGCq2GTTgL7-xxX3A_sL
z!v^>sBJaS=K_4iD2Vp*}f$!h~B;JX$3m&)!w!%)(#-fvO0}O<R#|9}CJCDP9*bFgu
zQEKQ3$}<)x_t=q2S9kZWvTb|?+s>~4o7X32KjEB^Y(6=ww8wg*7hF1gr`eonV8*Ev
z#6I3XswG6`ryVj5{J;{DM~`atMa^uLlAhCOeuX-xUl&9mViA#uI7Ad81`&Z2Uy3fp
zehc0PDY_I}iu^E0DW!yW!&3May1Nh)EQepAeHJYWmOy!y!|)%|?ib70-qfI4-(oV4
ze2emkh<brsEC@5;Igksl1i5%57i<D8K@#c>lGvjl39bf7)InmBaA%OjXMkkjb08Cr
zn%Ve|&>6bJlx&n|Dmx3{12_fWL*pD=D7Y0y!(;F`Ooz>|9e#%2p_7{eKz|qj_rO%B
zDF31SJCOHp4$0PjeYthh>QAf>HOoJk|Mm|Y@Xet)&(C`P8U8oa1S8{w*3Jl?(DIC|
z6I#>Yfg9G)x)bt$X?;`G!H+#GV!LUK*U>>rC?%s*sz6d0DTow8GA|jIOiP9(gUcZ@
zmq`$q3`^l6w9jMY0H45FXq22!#1lS*?;+Vk&<Ec27|!Up2Mi)`^n}%jfT=K;il!8=
z)P@*epVFEIn@C#It@JiqX=<d?0VM5Am;{oCdqDEB0VFTcq%Zjy4w9$mK=QQ)Ho*>%
zJe~*1W*W4E?$85n%n#B`*^&GQU=mD*`{4nQGJOnZL53fvj~@PN+vYXcb^62C<b4h-
zd11-S$7S>2KbI`>7ochKhp+P3z!_ADyh{aDeo|c>-<%v{L@$YJXuR;9<~Cd>v}RXj
zPI^n7DcgGa>J!IRev&hdAC7Cif=QAmk@tBJnRl_|?pLzMKC*ou*1}o%5n7MK?7<j#
z7@mc-@D(`5BT#4$oxu&`;6->BcENFop@6Xk2(AV@y`Vqb3lGC;*Z>s}QHb$?4sa*r
zz)LU}cEKK~IRC@>AC7;sch}x+=YQBNALPZH7$U~u*t_lcH#4U{e82s=8(}m}ia<2R
z!#`-5#;c#iU0oLqSI!~7Rl0+z-x0ZcjrL)j`i{Y&gM&o=Y42Ln5J|KFk%mY@q#zQI
z(o4yu)KcPD3L=G+0!rbeU{WY4kQ7D=a%B<SDb$1dFaUDl7f}QCXUx8?+IXXQJiTMv
z>eb>6<p~zIpiMOWRC`*2N!3g5im<{1Wl@ogH6*m8ilz2cKwa(K64%lCRRx|Ji4<#-
zm}Ei{Zv)AY0+NwIAek8tZ^3*x17(ovr9HrSD1cxgZxi5ccn221VfYpr7h`6j1&oAI
za3?$sGhqXK4v`bY11dXv>TKDOvfaCO@7lEflMmm2civ0S9VvVIkq7<}C_cgud3RZ&
zk#<s}{;O1JjrzvNWm*H{;|+0%%~hlM`zB<p`dLdgR{f^cY~HC)Bh_SNTQ6UILKDKD
zj2b^^Lm~+;8qHS5T^qbgWFc}88A$o1+)`92rW8+#B}J0rNKtyjG*}J4L3bY>0elM4
ze!4w)5Y|Cl0Gk3&!X}6>!6An#iZJy@t=6nLao3tr<s+N4gHrpoj00!2YR0*XT6D09
zq^g0W+#e+M2SIYM9wZlWq%JwR1td4m!a9&#Z34+zHIUr(hk+ouoDP!HeIU6_0Lk%4
zkX%0>pbL<!AA}lYU5e1cDu$b_0T<7mIJ)nv6Gu-R-Li4j(j~I9;ElN_jy^w2c269A
z;=y|-2gc_}&4#N%S-|io<H%21^H^z=RK4+DnRd0&V+)O=c9|A5wwE!#H@!@29=ukB
z_Z;knMia4H@FE<5tVv9IOeWqB2JC~DQy3n=eE1PM-A!i(pFjm%{|`RHdbr}BMDySU
zI09GSLqmXHY{hgK@w-^!Iwz5gF@7UYGJaD7J9FM9F>Z`FEsbP27h@bhk25afkqp0U
zW%>}?BTxoXfacHwGC&G*7i57Sq+oMkE-VHq<j)`lod>VMemDRJK?>gpnt=`oBIvk{
z9g)V%AQJf<L@GCcNM<UCbasG9s4-IM2qLLIAkumOmV-!b1Bj76bty*<?Ak=bUUPo=
z`5z=;vulldRa^7MD=!{7FyrxuXBf49ves)zt+$u!Y=a%}t6USBQwvffcY@T)s~|OV
z3Z!;2Kx$|*NG+`dsi{b6NouRVRbx-Goe%H9DQGyAfg%)5rI#vUXF4o_&!7zA`Mw<t
zg~{+DEQWn>4x*;fRYE2d!2>WK*1;+G9j>~UE*Em)QJ4p-;Q;&r4ez6&gnla5syl<C
zR+2Hvi{wM{An8lmlCGpF=}B6Wj-(;imut&)<(hK6VNeP?A?|)G1Wbl0@CID@0A+%w
z;1@^u&j|jaePq-+ue~iZ<~4%SwUpd^ZPjk1iCn%bND>o4l34<h)GpWyU&B$*NJ^4#
z2)#hEaVty$J3FtlFIjpMmcU9_4JYn*xEv?hk-TPD`7O5c{2trQuoq$<<QV7;Ltq-<
zfDtS{vU|sF)u+5Y_vIH#UwHEL1E-HqJ3h%jE_agu^zm`I<8qCUPQ*1e{;1Hp)x`!q
z8lOPNAn#&u*cx4a)7Fm@AxUDAkR&1rtODmlIEQdQEQ2$U_%Ip;Z^O6H>=CpVZiGi*
z6V!Z^jKVC4c?`)wZ^(blNKa=H*tQw%#h4HRevh?eZ9C!&6gx31yu};ayR&Cn6w4zp
zzINgt9{*Kq7;GdNe9Fq?=T=5z$(&@iAKV9$=~=K8B=f6aFMI=1kaCd1^Z_YQ5fsA&
zD1nI(glTXe+z)TU+YjH#%qcrk`f{)(Fu;<+5VjA4NMj~QRT16Yxp(856&qJ9gN-W|
zy){=}i(WQfUc{^PiPHQ3Ihk%({)}FKXkGjKRc)!xeOBWW)S<jf9jf^r#;o$$_NC8{
zZDk%|Wd5KvHs<}I-EKU(g%yh5R^b1&mOM!<eFIWc*IKo8yH#V)vYi8S;Wc<2qNzQp
z$!cKNW}d21gvIt9_z1p*^U&yVgbPDqEIbC!!Lr9`-=DEl4lz&QpFtP63yR=*coVk6
zA&7bs-G}R808E4j;C1*A4#8Qd^%QCdz2H`u2BokT_CWO0IHu4q$lE}81RjOQU=6H;
zPhmZ5go^X(b@teyWBb0^cWmFz%{$lpk6tTw?qj-lA9Zxegl<2+IG01K$1|&Jj;iYZ
zy2?4eLsIM|mCa|V+6EG=s2bonJLpL&Uf$L9I8*lf=Tjk4K~gzVF;Xc~A<IDOLFz!{
zFR~Z8i_AsdB5RSe$XMhnvK6_COhumk8uDh#@JaTc0+F3#x)uD-Os_^O4li5^o7|u3
zSGP>AvPDhgq)o67{s8B6R1H!f6*|Ib7y~&_3Nv9gY=<4N58|JpyM+4C9|piJa4$Rt
zk3WN7@GLtY!7}(5*1<3ED@4tp|A)?SGfaZXFcW6MLRbXL;1ryOU*K1$fZyN`s9j3N
zp)CxA5#R%VDf&N`oq6y99ED?W7Fy0EA`QuK2iysH@FWl%J5_d;_sjm_eQx_I{N3iW
z8_WY%e6-@Dva_4degNTL*>S`ek6(;SGoFu(>uel~jB62;so@VAbVOqsIc{(uLy@`2
zT4XG;6`6`GMTR0W5tWEYL?I%O(nu*J_mXSL?O8~kMQ{w>fWvU}vxo^g8Uz?%?sNEV
z&q=U!oH+uhTw!7_E>W`sF+rsxYQ)#C-dsy>lm<1Cw4Q=jU=wTxN&9>F10)YA&>lKK
zSLg=ap%>(V<Z&GQ10=6+!a|TdAAwUr-WrqfCeRCdgB0c#7z@+k8CVY+Knhs_(G*e&
z+X?!D6uJc7g9We<7Qy?l7*>D?Wgff>pTl;z>mYB3-~=>zo)9ox1GmE+K)s%lT0Xi@
zURCwslv(|!%-`jZHOm*jv;3VmHnTt1(u||VKV#z>_7EwH5?pSW_y!fJ`s@DOiI^FA
zSI1*!_|<qRGVVI#Q0!$Yl_{B*OiN~8fPGN!1&k0p2&>^dT!7RUiD|<d@Fr}6-Y-*N
zYJJrkj7i?2d;S;B=zJu-0Ot|n7xLR8grNFP)qi$Nuhuj?;Z$PG*JX@pc@~y?QQS^~
zaBG==iob!q`LD(`F?LmFP<)w&H5B>gfE#jQ0z3y&low$x%!Aip0qg-O;(j;@Qq=m;
z5~RpC!|fnNe+WuJM6d=nzkqcTIs62_KrH1KnY0x-fXJp8Cc^z7@@euC@_}Zc!yp(8
zL*QoE20I{PHZ2FPgu2iTdcYkp79N4eW@DYcVCMiFgwvo?0WIMwxCT<;V%bGm!(wd?
z?%h@O-zM_|oAqm~*NXMa)~{IqA*@;dJ}>zkt}k{_p&L8&W^23}7k8&IJ2Fm9VM}G$
zDmi;xZIsUbrjO*JBTRvRz`bxkJPpslOn4SH!RK%g4uks@T049S8=wr%gL4jpDOd@s
zVMma+T`>7oLhf)c+z;2hhGzq<AsKQY7xG~o4168=!yecNhv91|M1Q?738ujLH>qd1
z2tPw}bh`zlLK*}YzKv;sRj>voy~By{6ikOjuo#xXa##VM!Uos~+hHes3A^DC9DzCS
zqP4IYw!n|@3nb8}>cjQWZN6iyER!ui7v@a)N%oIfRDLhtR(>+~?W2xyf_csnjyh6)
zp!~vta;fZx(jPPON5wUbq}Gi&4dW7mttbDc)WF~TddCQocl3Y|EQPc11H`_^XbU<*
zXDEOocn1!`VaUcNybN<-9=r|<U=e%(AHsSN`>_}H!+`}sF2If$lnd|^#9&yGU;x|%
z_rhne2{ywPI0Q%FYd8u&Lj^=&kYXVf(jXn$K@aE&y`VSrg&|NB<jo7kFb9^wa`*&R
zf>^k9@b3F0pd@|<saL2vIae<GEP&@0n*&F-ZC<x|)zVc<&n-Oz73_ugSG~WgV%5^k
z=QdYt-nLndC1g6JUVdzkg~qCyaXnNNO2UIL$H(!=;D&Lvf=Ow=s%o*T=lJbUIr>Rv
z&O+_Qm}2;B38v*kB(#)FeoTp1&;zfciq^t90vDgs7NPxT^tkZGMg||SWDD1Ucei6{
zVE+!9!A=GxU(k%;7l$z`Bd&)rf1IondK5d|_E!8!R-MKhb28$38rwVZ-JBBMnmx&I
zamz{e4t8QsqR7VQb>gmytl?Q<%&*Q;h=wA%&p>jW0G<ypdhjSb12f=f_!SZ<QETV}
z{Xk0iIXp-yABTUz`|umo4sk5>hWp?dD23M`<|ERA<d0CWRCY$eo$xYz0xMuWYyc78
zh-Fx0Sc@1%l$+r@I0I*)-ExLYAR^9(ao~p%SP1V!gOxZv;DusnLsg^%dFucj;aPYA
z-h}zE1k@zliSJH)cT~N8C_l_=Kd;@q4wvr&emwEr=es}OUH;v!Pj`K{t9*6&C*?=W
zm-6H4@+G|QDtB0aH1W3w=PAv3IwMiGY5Af$()LexE>ODnbb42GPu?Xu>S!^PPx3Cu
z@U4+mGcLopr8c%f?|f8!`}64AsSPr_9FD*@a27<_0&A#Bm<jL0$FLIC!WP&KokSs_
zE=t)6GNBg~!wYa0&cRRML}432<4=Pe#7-aR2mRqz5Um~!N7i!!4B9~T!aw1DSOV?P
zcG3Dya3dN&5Qf4n@FL8Hx$qiDt9S<nZ{isEg(m9!oOFV`O@YT@4!j2;*a!#UASjz~
z=G*Y=>w{nKEjM51%D*h%QNCqe`Kt2eyjGR3Q(t^p{t<f@%0DPyXuTZPAM!5<c$LJx
z<0)7@zOXBAe7FAUhj)vgH-^@ZYp$$>;gwpV5@~EyqP$Bb+FMn{eD-yw)v>j!Gq?B!
zM<2=jX=sTZNP!PP?7~v0x0N0Vnu89bwlM;PyC4hh!)81HVm}rJc@qP27|y`2&<JDF
z1e!s2$b^9~7{)^h%-uyxgfnm!#Q0nZXLh4k@B@^=ggvx0m<)Hr0$2n?_7N$B;EM<7
zY~VfE3g1ARgOm!oKv!6Bn3LfCBiIsn0bYcPpDKPTJ9+E~uLH;S9Q)$f=CaLY8`dsg
zTei0Bi?WY+Ut6}I>_FKb#TV=^DEpUu@g_fiQ8o{`8Vl;j)o(yhVXgiVl^{a4g8)>T
zF*t#hGSZriS+B%3FeW6#HJ4=%9A-R~5LZ7ZQw;7^R(T$$JW`x1$nyF_eE&6BKaS4=
zZ=Yr$0u|q(-e>S@Ao_cn2fSH^MxIAIFLErjtH8kgjx3>%(`h_&o+mDw3u9!i0LPq}
zg!d)TCpLUe4|%(nH)Y7xUi0~UO#9)I@8(pm^08*=SRT2tpn6=iaiDQrD`P>OxaPr{
zM0M*Azm;C8uD#bl#QYh22fZlISjd8VVF_%6?XUwDeuE8xgK!ucV1F9HU>FLcVG5MO
zESL`q;1gJR6eoTiJL{pvF-G*T9}Yp^Z<&68hY;kGAVPf~7Q;F?0cG$bh_IhNL4N{^
zVHLcE;H3iIh3-^9Cfo#r;8&0ex$ewhvqs{qTH%hR@`?-UU2c04E>xUU+mmdML3zdg
zFZXZVv~~TOO}svSpC8|=c<0sGug-Q5kDS^tF4<VtFfL6r=9^}HjQsjU4_=W*&lj;1
zA5qP^-{2bI=G{%SVHk{n2VpkMgPK2(L0AUMq1HKK=kNw>hHbDNqS2(5FbXDvXx8Q*
zac1EdoCfVYlCFWe)rL;697O$AUZAR>?N8VXcoQ~4^uJMM=m~d$3*7KNd;on=*#R&J
z2E!~^0;0}qVQe|)fE)5)$Io;PU;a!YzcHwTH{mVV4=14|dfywK0BHvw0`0(Y15`vh
z(NCu%9aP;=OBbZ3c!@{%?br5;kCiWRu;sO<{EPDK<#j$U{|qbs*(bdA@ZBDAWxUZe
zZjdpkVO(nP*r*1oN)|ZxI&PGNCtC@3CeeejPDc~X>G%|?$2lEE)t!#{@bwi=Zhdt+
zE<*KsPDdwj*LOPp1#=oY9ed&T#!g4DiPQ0AQ>SBn3#a1`__mePQTHmRBlT*hH5fNe
zeifHx%#l{E7QNVx+Zf{>H5!+Q|NIPmJK}<B(%)>yA7sbXjl9ru4-cA;s~2n}0?L5*
zU;!+HEf5p!bX)<Ap&N_?KfDI(U?XgTJ+K#!z`vnyjMLE{7Q&UtpdK`UhL8z2!Zdgg
z9*+$=9kbYZ0p`LySPY-T0T3Y`h9mGb^hB7w;9oEw*1$RtA#a4QAP!;osOEIs2_keK
zY(VHD_;29tT29A1und+5c{>3K)J9(r^$;Bpm;Zv&kPB)bo!D39wPW*+@(tx{H>{-V
z|A;<*NBP1t9Jlao8C5EW3jxzj$h-8(_I8_VyZTkO_40W)RyB`n6hi=r+eeJ;SJQRm
zG>z*K)-37Mdr7`-gjFD#vkn$q>2$QN<8-uvG?)Xg!UwPtzJ{Z45>7)zf)h888ii(1
z2$P`#eh1OSnwBPd>QgHdQOCETE9%%CZh!$GD*75c*U0I39%4|{WJrhha0lE4<6su-
zg+p){D&RK|^{#<>PX$r)wy62-@Dxmkg*|wa9=q(=L0)CY%J!Ch$-BIE@a@U6O?<PS
z?V7SRA6LH0-v8H|^Im!Gm3hYW1m?1qw2Dh<joaib_yl3gyHtg}jjP-6vZ|Q=N?aqE
z#rv#e4adv79M9G`(mbxNajt2cCSKT|Yqsk`^7{caZHB<0n~qAt5Zdjd@IEXCY0Dcy
z+VUxowwwXouBB~2X`<6%Kx`6f4E3QQY=X~)U~8viJA4b@!v**WUTEWVyacbpJjhAL
zsKB==s5cx>MGc^Kn$uAS8bK5I1XjXlunC%^I~_WF)6VHQ2B+Z+d=KX!_!Dmz;i~pd
zM`!2(nUD`2cn}@}e+Q={0F%IMQRm7}l^;1^zV;mW;=uL;pEI78m+bH1(-E~NpDOp(
zF6Z80S^ai|syKd4&8t<N9lz#kYKV7ZRV#+l;&Mf{y|caaq)m*et>T(V$NAP6v%~y+
z_)Cs{B5AKB>3fj02;}OvW`RdgU@4E}U-G;VuJ1}2;Qmaf<FP)}Cak!@>G%~wH=*`J
zosO(w&i{|M`;Lz(?F0UQl9|C_b)sbTUA^~Sm(_dO)qC$&TV=3T@9iK&h~5%nbs~Zw
zA`*o35G4c&g4hk7&-a=cvG;vHuh;MO`{UWO?{m&fMslw2RnB$VHCpNJ{5$mg#YwBs
z%SjuCzu8GV4%3Gi9tEXo&LthN&KyoND`mf0BWvpD`uvd0ISlW&y4iH3<`=`SnC@yk
zan-Y13rgTB*P?i!7V4m9ZE_Xo5CKzNC(VNS*no}L3^!D&N9JG}X5$YmLJZ>IO5*B5
z650^Xjhr+yG9X7I8h~7^e2>B?kBTTxG=4xyv_cz{ZNksd3T@C9?J){tFc#zST~k^g
z3@4H!AyHj{@y%(Xu?gF;v4xZ7Ze^C0P-jPVoP&hl52ac<Y0a<*%W)8g;e)^6kISGb
zXZQlu4}1I|jmfsdPm4~wllH>aW4k3Q%+yEatrtxEG_9;WsxH$V9#_Are*8ijgVGZ!
zsYanl{omD+<2GC4F!D#8Z|;**I?^fVAb<ZkJ|JH!f`(RTk9nAnH58+@$kLV_B*tJY
z{=f~qK!bMdmM|P6un60*9iBLkn}|dds<*c~X<gg%L+ry*grax{$||a&GY;S|g75-T
zp39;<*1`wvJ2`0`aRV>#V`nx7v#<rulz$5vq96L>qLtZm6zNJa!BK?bDL%p6%}L9Q
zyvT<FD2M?Vi22wE6?0qurAjVI?j$@&c#r~l6>S%u7M@BT+wg<@tft;g3t<XUb6LNZ
z7NQwf%F$FTEk(c0air|X&5lm=KFM8`b@Iof@fj}E>=O6^Qq#-hat{)NM7)60FGLr0
z;b;Xa_oBk0E}EhlI-(OM^&*RYV`V00;VjPMCT^irZzrt`yl@0ZaSX?C5~pwm+56C*
zBRBHG1^F=+<1rDxVKS!TI8NfUmDyRGgD)!frKv#|bVFbC$3P6m5Ddd__<;WX`58V8
zaMC{FGqizJ*g-1W7&Ig??Wui=;o^Q+M5vnIjF9PiMA<9Mt}y-QTz+hOH&lJ_N`yLj
zZ6d#n-^=O0s=C!)n%JHF*k|$QG7Y8$8|I`<N4-%_+8`7hOH$Bc9J?dzn?%2HvXfSG
z8qN0%I?=P7w00Oio8An@%yH88V9`9<4(wh)2BZ2SM@L(_bo}?uShY+qX}hh~cDht<
zu>D_ah2<!l%U{+1zkK*#zaYDD!9P<r!#fLmgvVJ<NFP0)RgSWojcjB;-eyO^;j#of
zJMzE<<xmgx@e`V(KL%h7Hexf}a0LO72;M;tqBszzaRvp6W?hLWej4Uv)poPu1%Cu0
zbcB=k8gJn|(n%|dAFvE7u?cQC1Aj=?G{mLR{BfKgLvI$B5daI>l@XG4h3#3_nXJn@
zo`z&R^`!$VonW3o#|Q-{vU5UZ*v`!{KER{o=w#0ABnJl2F%LKs5D2DY_DQ|t9gr4~
z65!3x0s{`R+{<fQ?n(nd#8pF3T<$O6wQ4B7GvX`BDV+-XNUP(ltI7jDASYX!$VOB}
zUDQWU^hS9KUPV+wWsJaBEXH0)!8`>&+{T07_%{^P#*hNr9$oMYYEXD<P9qWvSXl^n
zY{MSx!xh{>+H@);GXKsl7rU?r-Z+XFJcZN*r<r609w0Y0LTW~Sd(9Y4&4@uP67U=@
zL)d`g=#MFo4RRbWN#mT58Xcx4?&b*$O-%_%N%c?l<$%gx9aQ<I2ApK_O7%+J%hA%#
ztvk2UpYGl66`eVmOUPLo9#!;e-_0t_2^rpykQ;p}=@q``g~}NIjbv1Mc1cCqoKr6-
zy*|e=xpeOv%JwaRC-&ehE@3p)U8?<boSjS87dLPdw-Am<L?Idv@d%k{9x_9k3O5v<
zPx(XzRGLpkai!fTitX3|X-kem+LD&owU`aT6<kLUf^iG?;kuNA2vkN@R6|X?T~0qA
zV^`6Q#Z*i~{nd1)kZlbcvZg;f4_0bpCT3v{j=~3W7SwiB^_oY(9!14*zVi+TQF4m&
z*6SPU!0J9X%*%VWpIm)?>Gg%zmrkk4``}(<Sq;5i7DvvwjVmFCuX&AeRhT_2qUZX0
zjPzf5sx_4mOok*i+Y(#SCXh5qf^6xhwZwcQ4cQhaZR>XO0(W+@3*6(Rb>BzZg5LY-
zc_7<C_NSQS#V!pqd??7!Pts%?e|T_$M)ke94WX0~E%(6ld~9`YhUdn|w#?M2&<k=o
z%OkhUTr+1?KjcbQMkBNi9rl~m^uoqNS3S42fQ0TGlJOevP??Rbf@-LaI+%coSPwUx
z#3`J?S)7M2F2E00A&Guya4?8$BtARxqXJqXVk4#X#U@JEW_IeBfQgud0AzQg14+cn
zqKi8}$1Wry2NB!?iKYi6qA#&?2L%&<;~)I$>7@0-JbZYYB>zAA@b+=k-N#8Ef~$Q9
zzV_kr+oZ=yeoW_*P90@RI?S4F+QnJSO^Ur4Wnt{DrB^Djwqmq8Sd%(yuer7wY?Q8{
zFSOQ`KQ|w1u^tz25dpY{V!P;kK?=Yxdudi71)(R(Q3xua3TmJZ>Ol&~a9le;-9j?n
zAPa>hE2QAKqT@m0Dy3%%X5lYfgg-9fzBjcWad?6RBqABF@e!Yp=LpRrilR7vMoYB9
zPz=Lwn1Y2^0uOArGTQ-ZK5b_t6J8|5vKq;mC%H73#)Ux!?Te-TJaZz|N2U`#w4Czc
z11C~t+LP+Z2}y#wuBq+Z#)GQ+)oUjwPLA__E4inXrF&=2va>8yZ>CzF%<#r&UrTSQ
zDy^J#wwCN^aQY*!Rh<>#4M#I7JGjQOox9-$Z`{Rw)Hq7(gjLvrB;@yT(td|j$>n(b
zmy?zX?-MjcI0s)yRs9|<Fa*D!;@_MiSE`@ofEU@$Q3R0Hm+0cs1&RjTFH)u8hwc9S
zVobV3+kypHge6#p<=Bbrm#Gb?fXdj3y$D1wA`pdm>lL;bukjW?2auI$hYpZ~3$??0
zmi#PPZn%*1#8E*^sn@sxBaS(bsl@U2k-rY{a^KhKe(EmX-6y%=h;fZ#hgEJkF8&Sf
zw42jEt?H34awKW0+`&~HT*^r&$ypaQm*3#X=Nxj|=r_3~<)Dc~b_UUu0Cu$puoVH6
zz{T2w7Dvz|I6;_1x{hK0Rrc~|c7u*r2!RTv8*-Ne7?=CZ!kx6as2Ra8$A%~;V{T@>
zv{88wt*biU96gP8bJYbI!AjkcDkE5_);4J%AL%Fe7pTWFRU^CMfu19y^lKSN$2e4n
zPOe;3@-d&ccXHF$hyvFzB>0{1D|$gTdIk!y!9`FTbx;=#(HL#e4nr{<+u?~l*au1Q
zMRW?JCtzjv7fzrg5h#r^D2GGv!rNd@i`=4ApcPz+P9aE?PT&+SBLI)^1h4THxx*;$
zm`yOP*oxCQgU=ZKg;^mYERi1gO|)wh?Rw}8DSC;iPq`}~Erms_lBn(?c*^Yo_fms#
zFZJrvtGAJI)$i)*$g8JicI42$L{F|@ai)27LwDowLb5Kb3FD6a*+Bmxx1$7_M*67o
zM6I`#yl+aYqeUp4r;65CHpVrQ4aNd2!X|9NR&0kSvP4n&uoUY+vC+0-c{B$K*oN)c
z0WXw_A@V4XiZOJks<ToPtz!utc0ZuzVjm7bd&m(8G9fc^AQuYadwAgpj^Q{?;xx{|
z7uOJoW$~PiLL{OQgSdDrZQLW8Bh*G+Y=JwrVLR^P9)5UCxj`wE!6Gcd3arAOCu}qh
zfHov0nUQ;wxj6VJEs`@E_n6;Sr>laQ2dXvR?O<P#^BZykM1Ekys{qHxWXDTJW$%7Z
zEgj9vcQq5#>suWLsioswm9+O#26{KqtBh_hIT8lRfrls(M+bxLwLT>P&p7FmNCm>f
zB--|50{WJ+jo;tV6Z$~rq>^JFIo*fGpQuO({!FEEa@M+-oV9fpXKhnvXGZaLHs<Ei
zYkYIN`uI;=n_6{{#z8%)`mf_)nhtf|^y|It9^1M4ylRi0$?!<hGh~$3;$Yw7_G?%Y
z)Ppz-Zxm(Yi=!k;V+y8WCT7Defno?x?80RPAPB)o!)KTYKnBdmLP$U!Vc>IiTKIv$
z{Fq27sm4mim+aNh`V}WZF#@9?k$V9*qP86p!80h9!WmlhB$CtZ(R3!7MTlf6NK|V;
zB0COuQTJ~WM}!+eqTK-ttjzWx0nbs)?5veQX_UoG%*JZ0h3$yVaa*CfxlLX1N=Q|g
zTjav0Om`@A0sg*BGPkYy`rk=C!_VXb8K0pf4XCpylPX?)s)icB-_2A+ovl$9O!ha^
zi`mYJI@%XU8zM!swQNc=N=I{C#|=EjQ}oZ^tPR8jOhU(u&RS=T!Wbmu4L;x_7G!eP
z7GXJ7A_32l1RnIHDC*8yH}phrjH5_Sz!EIO>MX<t?(o14?85;ZhBr>&6t3bH{(<v%
z&RP%j#TaaX5AGsoHfOB^I$N2&%<imZ%E3R#>8usQZA8L3m$PO@M(8M+n~Xy_RKOOv
z<GVc0S~lcBE;NT~6OzBS5puTlzr9FFt0;FQB&*Y>>L@)e`VMEkZ@~6(+X?PuHR7tY
z631KV<>f*cc}u55=F+~fG~9K)(AU$alA9f<*IF)nLYJ}}Mw-UBIBSP+G@rAUg24rO
zU4)!PzT(bWogbXF-*CDVKgX=H&e~bjEa$8Z#cvgyHBUUR=*(D~&RQ(EsAB)mShh?r
zYkP|Af3+Lx@iz5?@oscT)J-tlgkDhYL@#KxFTp9h(Q=22>X4+b_5L$+cH8ywtL^l{
zrr8r;8nNy4e8#1p<rq++{WIF5BW7X_yz`PuT);)7;%|Jy7f2+g+9PqENF2)VtR2C9
zL?8xn2rIyQ2uCEIAOSD%ssQCTnUyz4#oxH?N*P1ZLe5%oyhkd`g`KqwxQI)*ft!%<
zpT#YNpj<JE7wVuMj^F|=!XKA$71t4HWfp`dNWe2B;uVtd8gKCdAMp=9K_jo7VL?W?
zK=R+#0Hx7}h<GNs*H#XG<XFh|t{eb4)+@);sgW1A({8^&ihU{TBKBW*M$)Y|R&~<z
znxrUS=%nY7(?X6DcPl2YSB2TJlXSF5a-7pywyh>=qbYtue+<M>497@}#u$vlUED(i
zqL8Bm^#PUOhwCMrty%#Jdu>R;Z;d7;Y5LF-tuX+DFdQRgNu?MGE9PSfmSZKP(p<({
zNacwrLy<uop5qOgP?_3c6lRvS+G^M;UYvo{v@+DP8ju>-1Wx6hH4{{eB0UY;^%S`v
z#<er9n9<m$;0CVVx|(v!_vA6o2iYcXUTpW?&S$8hG#k+cw$g0KT$+vEJ&ki6^oCiw
z<~!?%ym9_lZf#uJhLh=@t@Qj>Dx20w{(KJPLMAGIW)wpS)I$TbLK{c}VZ{g<h*6k|
z>5vBFJ#Nro+(Z;&APvZKgjJ@R;Tc{c3CWd-kEx2Ywy`Qb6>Nqlc48L_S0i5d8AI?6
z@9{UhtMjuO#1bR%3Q5Rb(^)%N%UKIWNF8VG5uVlKkK#4n!cw1F0o}^1cmwt$c;1jo
zkLiur*Wd}hY384jHSt_pkqnYKb%q7aesUV4#ay}&7<~5R+2BCi)t6&@;8-#r@CI2!
zW_-Q!MJHZfKXe_!Eu5@$k<klTvKLo*C`<LqXwgBhYh3Ka$-RUhX$rsHl{c5TW>+zE
z)~XOf36+FMLQugTg17b%)UInw<q}dUsr!I3P1rdgZ!<#JoPUeisQxo$ppCP(v@Lt>
z4%D5FjvaupD3@N(KD^H-4mIgRwl{8h(2-=Ub{<3Wk|FQ7-D!;_o8dKGw^(J2H_a^F
z#ZURUW~=U44Co@)QsljQEr)U~MS}d)zB$#{oZU^?`QtcF;sX3}2{&*PcW@Wsh(t90
z!DmQv3ZQs1>i$MnTKwd!jfbSM5!PTGJg@_Munz}u7~i)bmMD%Nuoc^I5QlLQmk@w!
za3)@6WQ2}QaKle6t^Dzp&RScv$5w2ECw8GiD_Sa4MRi2u0Uja&me%}IWWjgHitNaN
zJop~A@ufH@m9tjNxPM*UtbUturXss=NE-P+JpI?Zf!s_L37KRsPeGK!Oj$Y_YDWWJ
zbY_S;>Fio<#7*^qdbK~PrK4!m!mC!_NN%HNu|6B?rnQ%?EP>J}i$-XI7kGsfyhjO&
z+>fY$N*Iojn2s56hX;0H4+3xv*Aa*`<fO>{fFDt^E#WWCN*R<#MN~p%R6}(%MRT-9
zXLLm$^uquQ!eq?G94x{TNZoM5R_wz8c;N`1ArY^v%#zW&9bHrmz#vR&&o9L^{Eig7
zM+PceCS(RpjJj%*et;mo{)9&fa-vJ!$ioROIsYZ+y>8v$WSC6ynX76pYo%nCoO<a3
zIhnb@ag|XoJK1)@jtsj{u!Ux<?52P3>Np{GHuq%p$!{L)Hat4%#brk><)N)?-uEbi
zVvshXKct<ghZZof3HxvW<vNkEXpE+4i}6?w18&%gH!yW3gRu`@ID)}lsmx2eakv2I
z?(B%r5&iK5^?EpK^<n*$jKWGx>*cJ?!zOG-0*dygVxtnO;B+7M$?)k*D}(WaoVAHq
zjHP%vgp9<Bp_HbzLn(H+0kS78`57a&MLY~sWG&@kP+9~H|FyKseoWUcpFSRxcJ#o}
z1M1xfZi<kf?n(1Z^R!i;$rIFaNwp%X;oqKL9u$$e)IP^jwW8l;$*VHaWjHU5jy)KK
z*f*LR!{_(VD}B8(y1m&R^)IDk)mZXF;#r0GN!TPj5}Gr3Mkpl7Ns?@md7l*B98NPc
zg1!t2k0kD+X|Bf7$ARlO8sbULTK>s|9pO_P`vhq*><0zvvD5YP=u&1!kAKz$ZiO%J
z$61E{K6Ly0%N_3x<c@dsa`_%Ti*dD=UOKC71T5Jpux9vm(Os?ov7b=;4$hSG)P#gT
z2q6eX7{(9dkP;Dy#4-}I9J{dxlDKe4;@)913EYC+*o!*|Lm?7f1l6s~YNFs6N;?Xn
z2v%b))?ouYumhghg<A+kNupL7Wl#?8kVq!uHQpfW1R8X>q7aIp7;3><huOQ|IIw_(
zy);H*3})a@oF*HjrJzvBM0X=TA}uT}H0>ty>uN15?aJ48Lenmu@;+sMJ2dTJ+Nrd?
zOsdE@738553f<kxmDN+yMsOc)j34tW7vHyTBf~a!&~p{#=PIYZ9fIxalNc0NW6rN!
z#*ot2R5tBAq@+AU)u{v(<1iOxrqK$cGk!%VKA_rk-osT~$8FrfJwzZHvCw{}!9+zg
z#gJJX{$j-}D(Wg$o*@x=W^?R=VHg1q>_8Simle5?2bItsckl?0@!cG{3s{Sd*oNKM
z4{w}DAfnJ}F5P|%v@#n$&skfD(+Ecdl97V<u>K(#Cxb%D;E+$%GG5JPKc2)v**&{h
zwUpg?aB5(101r2&1_uUQkd@%Tvwxlai~2{mf6}z}v>Y<mjO+dM0$Ci5$Hbr48Wa2I
z6|8cQB^kWC?jPwHPDXbAt{wkU^33r_jpMLviY2S|v*cfXdwvZie<a?cAz{i!vL$7e
z=hH%?=0YkV{#nX<%V=<yQ|?z00l3cFKzT;sMh+X?h$F(cP`S1`8xO+t-bQq0nhA!+
zsc!Uh<w?l&rydV=<~>dk6g9lw(&B~6E%ZDtXZUUBhRyT6^a9rW63=zm1UFP-Yh<hH
z+P5s@0!kkmV-<EG1~u4P+3GrIvzYx7x}yh%VK~f7C~3%s?8u2+$c?=Cekq|SM3UR1
zBf6qH=3zb-V=1=769;h^33!gTcn1mFXSfi$LTHQj=!PE931?>H$M>j@W=QKK_ZGb1
z5v%afo8bX*@=Y8v9hLdv<9iOX_HXA;d#d+5S#FaSoN^%#Abu?$M&*87f=^znn={wu
z!UaF3P#A6d>3>=q%Ab^+ZMcGXVgLqWBu1h6N@9uaxQ;+<r36Sx*pA;;J8M%g8*`9`
z&oHf_%ZrX{owZIFg)x|j->?_^*Ai<#R<0rzkI-ZtwGX|}8v`%|2Dall67kD={xAko
z3g<#f<O;098f-)gq?D$jvOzv#C~UnkI#eBbEcsDtBo_^CD=(PaE*tRVaT?Dj%anG3
z>BNx}`*-h1b5GlBkFeZ0EupO5w~SiKXxKd4)-OC$O=HFYj>iw^G_>veakS??K(D6S
z(faboCt?yNV-^-+F>W9T`KVIGu^-+zhikZrVBA6o?ji#3@DYFGAAEs%6Ey@sp(DC%
zBGO%1>4xr@ifNdR-|-iY;{;CPEc_4)*Uc0SY{hnX;t+1&CZ6Ffvd{)pMn8<eNJ!f-
z8R1qMhiJs0;8xX8XaOFQ6^`BA3+_AnkBNQYw{P*#=z|ER+qQ{)qTjjW=Z;E-{Odn*
zrRBhKswK^u%Y*iixp94%{(X-BY$1*DLu_}r+j?brRc@x|sUvS!mf588*pcU@T1BYW
z(zZ6E$<wO4)0ZSQmhFVclidv}?V_+@;9hn$FdgJ@2@{SGKKS{t7eST6$H?^K^nOp%
zO~xD4J40)Opfg<SDVUjSJ?f!yxl2;r5vd+SOzJ6Dh~);!tw))af52>|oRzH{$eQYz
z{d>0dlR1a+U=+6)Z5c#YfX-SDb@@lSX@>^!=y^U#M4&w(XGzR?dxG}Z6ZO+hPPL&T
z36lgi#XEe2%We+MumherfU|go>U$`N=!5D6qY+wR03<+@v1C7mbk%+e(g6w`4&f}$
z;R@d4BP5b$xM0m;{vb3jPQAedGqRx&`eFdaU>uyiY4gz@oxm+R2}!Y$e5YDufPW8P
z|1<XKgujo!m%3DQ!1n+bZG8N91o$6t-@L&#x$~xvRR7~Lm>bLI7F*9Nu}5ar<C523
zcf>~TVS1rHrh&uNM>|i<rj`eqo%~vgWGI{e-gn>3zFn1KS-K2YulQ4rPMhsrdBwio
zm_JOfVy!1hk^;5>osUxIQGi0`iXTuC<xvrpPzAlw7XvT|qcIlKF#{JM1@$eeP*!_k
z8mxGS_o(+57ij(>|9)Ym7kZ;FhGI0PU<Fpe3rFw)E);wNo8W;RIDkX&!V#RoIo!Za
z+(!iB@fiQ$6I`t)$aIuMY1Bgl^af+3C8@iq6FKeY5E~X7%EP3g*F&%Pp7E8tTd#yB
zh29KJ41J1tc&nwX#WT^&kOAt%9o@7aJMJS}WG?TrG~7pUzuekdT-o`b`6=y1bJ>`_
z7={s8h81XXk`4fVLJRcAKn%hV?8jkTfIrgUN>ef4mtz-fga;1bkd>J)o*@;BE^q_|
z4;(}o%zku*PzQDK;v)Hsk4Qrof65QGVJEzB94BxZXK)sNc!Lz=yF__|bv&~Pc!eY+
zqs(Pz?GOBk>j;GGise#;jXW>Pi4neuH|0@698*+6-2J$OkYuKyYe5(7)BT|PK@3lL
zTn@(f5c&&Eo~e3rE?)sMMCQhfF$~9Xag1KZ)$!D?qa(a@i0vwCaJxcA%p|?Q;HEUP
zn#);sT-b}(sC$lW#SP>;Pi|lz-k=@<m8eV5Bwb!tIO&NVSILDyaxIwmZc$-yKa_yn
zb~aXD&$M3+A<R{J2F#ZSO8@mJdG@tm%sK5{;t6^MBWM&mru-722hjQLdEkPA=!Wi?
zja4`d*$N*V!()6#fdI-BI${LIU^1p-Ay&f;?l^*z@Pj`t1z6dsv2qR95sha^MHZ5p
z7sXK-Ezl01@cT8o)P%vnlpxv)Y{6r6ze!=nS_~je5~^wN!ExL}1T;ct?!rvs=mUu*
z15|%}_wgm((L0X2Yo9{mLgIp$?uOhA;jL>S*W?A$Wxu%7ey9E7?j8?P(;+IVu_~PJ
zQuu3}-q5HrMz3sDMTa8vvD_L}i>2_$Ay|4*YAS#FeFz;an8?lykZg^zWvy2BHuVYj
zQRpt6IV{5_cw!eqaR*_DKot6gQBMXin|+VIGtS~X^!o%DIgktGPyt=g72S|8oZLkc
zKEO4C^E_CDrFeyR=o&?vjNurCF&K++(bUgq&cjV*Wjd}Q5VsHtEry*XG9fc=;3n?k
z9>Nie2Y8I9c!gy2jg^Ycl%$4f;gLics^w1NEj41xjl?@FZzbN~W%b0Xa@1^}U*adX
zzH#GDqI~!k2Q9Y$$fy&;%NaK(F;c8obM9d2GER3<w@C~hM<2T_HBH+>XeISC9#VXf
zJDyPE06w7EBTgtH5~Uu~7l$vhJfQ}|6G^D|lsbajD3U<*Z~~@h?CRi#za1MU%fF4v
zz6{jM^Z)7pG0H*ufB#QjSowSZPyW#V<?qz9rT72WCK#(H==H6xQhfShH})WN9Q`@u
zMIprF1zzDDKHww1!07?KaAZU_<Um!_z^xY)ZNwlBrk6A_DEo>|De9o^D=RG*D;wdQ
z#91Z0L^8aSxkmvHUUOXs#oy4^zyM6gB8*DmLNR6`&wCPq!+3y)c!KXgP)t)fqQYKC
zU12w<ZeC8VsLu1tacMF~r?&m0+#f4<$VR0GU%hnU($z~>`PQ{dK3)fQx*4UcjF&QM
zsy@d#xSg@Q7Q2m<p1Nwwt_^vqmLF=j*6K-deTr(&IbKE(3MA4R;|M;XIl%}d-9t#D
zq-`K%n`L`tTO0h%wtnKs?h89dCzF=!Y|@_b#RtzUCM__7$zC0dt79{dv)`O1Be1KR
zNB*_5W8WwDjr^~f45PBPkF##Of#k__9zOS<OrgjxaoPuO)Mq<nTN<Jf8sjQ%;}f#{
zLp8?;OvGd?#7cN#AI`%UmvI~6h(NnE{vAf)cjWv`Bm9{{F_}cK#un^=Cr%(3cM*oy
zc!R%@Su<%BP!k()5EpP2H}Dx>kb^+xL@wk*eso3`bj2LZZOSa|-K(_cPadYl@cj%i
zoTf;h<YWb}0={{Rmki3Irr=}2`;K`WGgi;gM;c$I=-sW2=JM<2VKG)>HP#@W41J9E
z_=L~+f~+RC4U*YOc#r&KdO;LH0;CWm;XOhq4EJ#|qe=6{>P#lhfIIv$SxuThEB6tB
zXjITiG<sk^PT(X?;WVCNd}fn21zWKT$8jG$vY50zc!8HFpM&3r5g3V$*n|psOj;GB
zHK4LdKU3z^vlMl&UU-U{?xx(msiy09Q?Fc1J#U{*q?}0cO7Yt5m9o_sKTGdp+?~a(
zP5#ZIje#@ta@LgGoNi#}<hU@Gv*JbdTJGFvC^h4#JqVIE*<RVs=~+!$y=*3JGuzfO
zmu>sTuzgEiOxoo9CN2DXlUAsZNxO^<McMA+1n~!x=2Xh0RVruFZk4C-R4{4fDiiTN
zRZTKzQR%PW+(Rc*9@$a#uJRr(;dnSnpYwms<P1W;I#MCG>)g4;X<1XBVmXXM)Ac%5
zR_vGhNi27dO8{jfKS0Y%DS<N^oDn~wB>JKs7GnuA7cglqI9-sEfk-5yp{q%2gvMx%
zMOcTrB)lH_es8k!_3|cd5C&rihGHT-u?xF#5BDJvD@nA<Vc(BzR7t89a-lF<p$*z%
zDyCsNG$JZd{SkCB-|;nGk6%8Hef;ia?RSx{Bk#O>8Of7fFN0p*d3on@<ekXNXD>&d
zJa*E1-*$#6*}jqa$#v<wd9`MAwCeM+(UF`oD~w|jnQKPLS$ZpLE%_@A(G_#C5*tg?
zIN)X(lNOBIxPx#+-~kfw9v@JV{CAXr`;>zZ_=58l`8|k4G=^8A4qyU)!@NpVzV)nl
z;vi1oH0~fAWh>JPRG}5X3%o-2s)P%aG3@{fS2Jlv(FW~sq`FD-!FgOj3f|*0v>NOh
z5QGmX*tRAG11lgs`H#}4w@t5~zhn6MyWt_>LE+b!_y$8YsW(oCM~5G0k{^bIA7$-u
z_%37CA9^|C^dEY2quW$&si6uU*0}xVYutBD{!Udy$1>pu9`E6&vUE}NCX%Xn$VT13
zfjTDbHSW}-a5SJ9!iC0^^k$UO7A9>uinSz^txVb(ylO*Mv?bi_OnI~-?M+(q4km3j
zwsbUUu^mmehdXTFCf}KQ$lW!LTe8)29WpZHtkb;5g%W1%q#nxW{x!51cVAYeHmlJh
zJxXNGpdM>B<k1hqd#+yGWclf!5ja;bYt1Kd4YVg^c`cK+6Z=VyB<nB4)TLgKG#y28
z43bpW`X;Re%AyDQU?7HK6sBV<auAN3XoB{b1_{$boNPepy1+^pUZGq=nq&NiDOif-
zxPl~9Y-G|ZV<?7U5lRy4=4gfOkl0^B0Adi2=SV~vdE&^If#l2Z?##x*`Dao`CP_xw
z%2<MZ%(|#YQFoa_zzB9B36FvvU3+x-ksp)H&+#hg(W#@Ck6vTCd@AA5;Ya%)8FT-%
z2ig5k?wEb}r(Q@6K`IY>wVldHDgFQ8oKG|PYsE1R6EF#raSrDpMaB(FC^BmyMJE$Q
zCo8f+iqT@M!fT|WL_3rA1InQiC}xcL#ctPL(%RZf+MbS9ljcQ{yN@W0>%>ODin&;f
zwRnyfc!&2ecQ$DmFc?EI4im5lORy3fu?bt?j%2*S7w~L?RtR5rtMPPGZ*xIYJsB=f
zhjR&wJ5!IQ9#(tY{S2+Un?0}Xu6g_F4tJyVLcO32;5fJSPE}=Ndc~=wd;#MACKUeg
zg?h=XQhB96>mqZ*W1*hU^m<ek+sM3*z3$_Iep*A>q~a)vQYeesXpGiqgSO~_U(px+
zu^GD%gKk}E{E)Xhr3rxuLNG!QjabCvad+Zhs|Vc}jK&yD#AHMu0q=jI6-4J>sS}uj
z8R*fI3Wvd%k2NULn*`uQKe|hJk3IwVITm0s)IoO2%amu2xwW*y<2$!*T)pAT;4IM!
z=QAIldF=bx`|-hDYVzg9mW}IHt@CAP^wUy(k8!8~BQZJR<~XnUmapt{87_0_(>Ru$
znr%_9OEmdIt4+J6A|+9h=yZf6GQT}>l8B4;M0B+$LJ}YweiA<qHfgi4Vi+yYNoHF{
zveU!Su@rrHPBdwcCenB=;~75njVnCGLdz&$#GC#yeU0yBOK)2L_eat{oW7QHonLyW
zou1PaT)mBPXtAD8T@aD(kKbY$i&vt22Vsan6lCLDqY~R)6_SY6_B3oG4KvyPxsbF3
z;yxl!VjNuzlp}2w&<O3&0g~SHAkEqfyv3JER;t%;Cha?vL8-|sQ44kO3wmNRw%`^*
z@fc5$c?$m)3$O^A;D%CDsSl`(TBwaWXozNLj&A7QpILA8!2x*T2%M&=vS%BfB+-64
zJvJ?t@)&t9?dElP)+O-_ueh&Py(`Pqv=eDQOkO_n1D}*MAFniH%t~6%)hqRuxg9sL
zb?DGbm9s|!BUSx27JD%kkd)Ep5*&#~6Ko+J3)qay@R?4h0}E$Ry6_g!vx(1K(v6(+
zsqZi^p#EdbBKCpHO<Gg5U1QRgp^Cxp+Qgn?Gyi_8<5<?-t7E*9%v{n<e?oJ-+!@8o
zZ@(myCp7707o<R`F$DQ(K_j?aW{WzMHC@eF+VES>Jq}k#aUcEavah&XR>EjOc~nGO
zw1=c?4K~3G*AR%ixQACr#z*{vwWNJLHo*=1Z~)#o3W?8U+{c;U*&kV%1>hPM*n<|x
z@}HUPPmyz$iD4`#C<L(#%A+DAs4;M&V47e-MwCH$w3$PRh6i>a6t_{COsERUkkPP8
zj{JxY=!&IS4tIDU@1GnKL2|4Tep^Um2{|2-tRCC6?LHj45uV?SS3imjO})t^KfSKz
zSJdn4%tM(js`t*DSxqtiSgp6n;<yW2b~Ca&NiS~F`0Xi@ptX@dyc{dxiJfRp5&9W}
zF%+d2Q>D-j9gt%QhaG5yCYX&m@WK)Ny3C~Y!XONR6h~L&T4B=itRR#HSaHSQD7cbN
zH;SMnN}&QOqB?4z0UDw;+Q54iN65I2Fx*EXUSi#9jwo>uhmnXEc#XF(Td5EkP!ZM9
z22xS_qs9gr4YWW@NTmr!KR1&$086k8M{x#ZnGEF0Lz-#;SKA=2Y9LoNoa;Sqx%fKW
z4!+HsfoVU;XYZ+1Zq0~PAB<GLBtU8;8Dr#bW*l70eUm4m^{mqGcQhZZbK9<}{`x~F
z^+Cto&eDLim+iTNV7!rSL(we+4%@H;dvF+!@Dd-8hN3hI#Zdx3pbW}k*jA2GN3b#(
zQ!x#1AgxGqcRu7n<$xQuVAKxEGcMv1A`yoKJco-Xxr^1isM*+qeK^0H3WaWaXqgcO
z%U*irdnqobS-FOf=(*3N{f-^`DXR#>eT3ryrXHXOpv)o8GNI~Wauf~G2#wJkEkIN4
zxI@EsQ=&Y`!UJ&fE+dH9-YY3@-dAtmXPh^tASV0k)U<0Cuce)5GG-Y1FSh4Yew<=E
zK|(gFT$0>rBLR~DNdUS*68sM&Ewb%-+2%>!G-ud!gr*RG`%o>8(XwFPN%pg6>4co4
zzMki34%7Uo1{idSc%aJ_O28E-b+W`h!ZTm}#N!TS<YbAAGN>MWP~RV^#($<`(O!*c
z!m|+erhMt>>xSQYzCK27aZNu#qSgvZ(AuLf24J%nXR+XmN65s+e~&`wgo%(u&4QH#
z&Bc5yfF$xDx*R1SFq7B}$c?-{6uXc1)E6i9*KiYU{-PBU$7yR3bAmP<Rf$e5G&;p+
zAd!lJL~8Xn(V9WDdiWDj^hO^@^oH4^H;@P#*Vwpg9XW~&G-+9o2QHA}lEQ!vGI1}v
zoU@LTaUFQX^@faJB+tB_VR?daj1KSL?XL#k*qXZ4_8Fu9CViuf(I6ugxTv|*bv14Q
z%MJBve=RKXz8onuyu#+xXLA|_QDE>gm_5sFPBY%6Am5`<Ao)IVi>9{4Qj_ATBv04}
zCQ!IwN#uy}CH<b)#2&p0zaedyoMO@rVb(i-F}l5{I=(j<er9fOR7HbtJm>x!H5!8&
zC0L%AQBTpR<9EtSCc|qnBT(AD8~A?|7FP+GY<M$tM{mr;EX+gYo8%knp(%bs8?-}D
z^u|C8#%N508@A#U&Y-H5h*U#kG{Mhkg&w!q4Pi(KnTtnvOxhDX#|wN%1hb(Q>L7O*
zRSN}B1jSGSt<VNr;Eqs)Aq6FgzE!f}XY|KVNS6G8EM!Yo<V8N@2xp1>aEW4xYN&w*
zWM5;9#W>h*=XlHGSV{5pE#rCWKZ!YO_u{#kPafN{y?;BcQ?T62r{0pK+y@e%ewZZx
zE;h|S&0k8>oCyqf&hmJTD77>iG3qz3w+^4FmX60~z8_lJaBsyo!m!6N+Hc~Un56M)
zCmS^t)36lFaT@3G7CB=`9ObV7ilGENu@n2SAAjLEn#Yl)7=e+Pj43#PL(m_PJIIOx
z53FPlEA>zx4bTUDk&3@zdPqS>cl-i(?0_?sAuCGY2UJBh)Wa_@Q9&|5DvKYa!n}XQ
zJ`q)u?0bh=vV)LayzDAc)viI7oL#y5=z5f26hAx1&FQksNdD^_H+mdN+q=_aqleLQ
zo8BO|<Le<E`)~HwhW9o-Pw~9YndX{CR<scOOinJtbGfY3x@B^raga6j+8Di+aVRer
z;qbt5lZPV{B}?kd7FI)b48TA{B(uXs9;$j?xS$D|LYjc~=tb@CXKw+fr`TG6x$kT(
z!1(uM6Hek3&f?sAvcR8}S9p)&ALtOG0%~Fce33DgV=@#&ar}t#$o-LUq8eJkJB{uW
zE+YVU5Qa6M*l{BPsrZ8LKGQ$6GAo9PXo}A0g04t;5&t6gMeH3}$k`a%#I0?N?C1M+
zZhI}`{GAB!3GfQ=+H0Rwhs%B#Bqv`CYX+h(bEzEmrE$TN+imo13_in~>w1q-_rO(e
z<HkqjRpr+C7*XFeQhtx^9kSAv!Hwh>Ne0X3cvovoBdgUTDiV#!2>r*FkaZ-cre@YA
zW0bR5^T1ZKSsP<9Yi=3Mj80(Irj*ppS}=NKHf!y&n6;+gnYFX1lGV&80%q;^9A?cY
zhgq(bbol1Vq&n?7K2q+dl<#{`rv<*bRw7qO)E7MP2#k6vlIxQ^5@|fyBiARl>t+5|
zS0KMce<apIHondmYA0G?HP*lryYLz{NSGwBu04?>NuVTjoISDLEPdgR0K7yOlUeI!
zGF!Dltc=EZ%*HwRA{>#ZN2D5{1%5_H+(R-_F`6i9M9>+TkQq(!6I!A*B*Fy<?1yCT
z#C<Fykp_o7xN`CQiNj_0?`GP;Bun@GoA+<nzeC<wsb0A6U%G#Xy$~6zcIo4cStmFY
zZsDm9u-1^@SQtf74&_lDwa@?!(G1Pe4U)A_k%{b;EFO&s_N<;nRxia?9E2n5>yZ5&
zF$i<82>yuAYBg)GSa}aAA9+y}#ZUniQ41Z>2|hTEv+%<wn6sNTZ}>pU*KB0Z$?w7`
zoI{>mX3Z7jQ7Jct7GtrXKeJsp2ycYvF>BGtn%8XWeA`-8dQ~Zmi_bHIj}p>S;+S5@
z#QkvzaWA+>?uDA}#04@^WMGQFntWM1?q$r{r}wo~E5);&#=u=%tdzD<>h2F+cBy4p
z>ycV>>V(?X=WMHN%47ScWMea?xtO&RSeKtPqeek8!PTs7K;t52EvzVMD`wXA6*p^7
zu%@J0yASs=X6+XKb(ajMQato(@^#8tZQqZjx>B5xE9DeztUgM8Qa8ul7*AJxf?T(h
znbW1Uot#~5x5qs>#Anv-(L1QYT%Y&jn<`u+ShA&0k%*~mt!(v7%*|)k{=hP<Kn+q*
z3qPR+W@0uZbsOOhM=Gb2(sgjdKKLL6lKNg&X6vvX5{kdRC%K5hGh{Dh)=J<rEQQ%X
zG{tq?fQ0TL9^)<{lrYBPF`l3xA(gOx4>jPV<bIqIm2f-wYQ;<PjcH7`uU-hg^cT|+
zCRtJik8ItrX2Y5ls?L$uFY=}t2Y=+!#kvEW$9i~x`=?6n;}jMTg=8}B@8UTx`Tkwo
zxA02YkXN<j5AP*EC0|b?KY3aJz0e!0uo{xz9+3Rrfnc02Yt|wVk5BL|$G@w{`#6J7
z_>8KR%vv>At23*OdT4}!7=f`EhXq)ID+ojgnpZJvozVqdu>?yIj1YW$_d@E&y*LI0
zyveXT$Gv?04|pE%-0Hb$jeT1D=iFH`S(r`Nj7wg6^#SbV`cHdEG-NK(P)o-9YQWcy
z|9e*^@37P2GqNW8$Hr6l@-JmB_jISfay*YE?-)r>GL<n39^k$fTi&RDNgnYpWnM{Y
zjYQ9ts1+=4OS~j}V`U;%jeuZb4Vo}~szozdo5s5?4Lf$%qlh)8HT%h|ooqpXTJyRs
z!N8v#{-ZV;E0^h|HvG(a%=GUs`qx@7+hd+Gx{LF9&Dfqr&z*I&?zku5cCT2&ZxAQV
zb|2DfT2+|Tqn#@GYFGf<nhZ}TMM`s#Y>C4&e8Ok6scP2RLQ>Yqp1Se&6s{wM9Z2CX
z=m|+}eo||yL#09?6v2Wz>;o6EvI=W(5}zSqDPj+eE1@ZjA}E6e*aepc>~$KNwcChB
zGCm<^BeS*^>#z}<;EruLj5C-)sOMl|W2;%a#!5V%HDUMEl<E(Elxarlpe}U3e)))p
zz8}Tizaz7_J4#d>V=c=FQ9Och%=?V@*Rht5o$)?)#-HIq{JAXl?SGV<avdJ1^0{PW
zQ<fI)Vr^W-sPCoElw#%h(uR~@bE^+k>^e^sGg-O}mw7|kq)zCJ9_Wby7>wOGh!e<8
zQObeiIEO0;z>?<FH#DJ`{el4)j*V7kC*%cXZz3+YF>80wh%(p#QXX$24AGFXS+yOX
z#|X@WlvSTjWF%H~CR5R*EA2LZMrU+EU-ZX(EWtTgeVO?q6tVbvj{)}^aCgV+XAjl%
zI_7l*liXW=Imj>Q^0|<pQ$Zm<A%}K`1bGB`Z1Ldvdi#G=?SK-iiCoV{wiAr<N*V|C
znyQ}A>k>bGT>m6Zgi+^+-aktRQ)~5!&TTsz7fNMzwW@Jk`6ue>BuD=7izOdzxmm}N
z>er-NQY)z{*2AnF`jxh~H`&$StPLGx)()V|P*RSWBl-DQqB4P<(L@rBrN6V2LHSuk
z6zgZ3HDjJUl&S7S*eZ9SGn%CRhJ%0IYhZtfNIglUW?L`t;ja&R^AJ%!!)vb2H{klv
z7%XYajnk^Cvt}If(Opfn4~CzQeIUy8^JA-L+@b-H-1xp5oh+<_4<vyTF&np#hJ3%!
z3&b!IE{Q*la7^k&{euS%A`TA`k9-6uKT7rG-}a?JSi;H$#Nh$T^`ln@iDD0lB*tM9
zh7eJS><Em;7)---+(kH&@DU{k6LmBmLhFTJK@ofPJl;ONi+vY)yKdx-$lLz6-}$~f
z8O!wU$a9(Y?%1++@5-h2$x*zdB)w?;NR<~lXvXJbdZe|6{N7%eja}G-oaA^ul!lam
z3g}G<kWz4vQXnN@6JAZCyZam4IL)lJLU%00ZtTG+oWb(x?8UJcz6is8e3?#zrcs2P
zV1g8>jkq_1U?2)HkRn$3n_{+UwprVZ1GtN+b7&<IH<zyRJn7YPuWK@+ZpO#nj}NAg
z$}sX50#eSVoMbx2EANzGmfk5@_zI#8t2QiK6r3{OXnaCnA<f$HuGQ6^)mGi4FRS*f
z)S~FF-%*QXF2QsxRr#cP%F;#69ed)erEMpA9Q|QO_@zQum-^z^cpt~cw_xk*Vex#k
zb_qon5PEc6OcxUqm(l^k*<~CnVaG}$g`KO28lJ6Ym$1ex7qvO}EF&zaG1dOp*lX%N
z##t-%@B4sC*+yJrm~Fn^z&BG~)g{jNW0OYqoAlJPVX8LDGkt!i^oCZoL*~2i?6s8Z
z+|)wJhwS)(k68H!g#hcY5u4zK!w5$tlJFYENO=jAL>ZJr1$00sNOTO$|C2rJpA@3?
ztQc@1R0SYmtBPg|>B6A}TH+t1;S)@Y*uUckltdFWLuYhFKlH}{48sV_#{w+IQdA;K
zs#uvx{&d9z@<#G#$~XCR!Jb#|R}hW2NpBP1K23^$$|4?7N%3#*zx|+IJ+&`G?!OJP
z|CrTlYE?dS`RvJK{QtE=+gFTV&gd<xQy|p|E{f^4-2EwtGM8fNxIE=Jf#rCxf9=%#
z#?4)fobi*|FgDIaL8^(`sDsfM11V%jA%*NX!t8}DiRD{-#up?|_@n^7v=u^a&RUL*
za2jWD7Eh6YXLyBD>pF5qU;}>~P0<WLVKSy*Dn7h@@%BUfhqn=7L5{CcKlRs<eMj8)
zt>1TK*`oO~=TDe9eCB*dJQB|8F?mS2<1t2As#nH^b9&=m)DQLNORcm0_T&5o%O<)G
z$g-KPF4o~93b@g%Ve=OD8@RdEtbONBA8k9`4NtR{VJBOQ$vD2#R`2NSma+|Cm_C%D
zs%NU(oBsGLW119nI&XNqWqg8y?P?l+&twQgKZeX&cuFsAb&-_M#FmYmZ9o|A;XX`k
zs~NK0neE%1!@k{{?Au+K?Oua*Ft7=Jh(R2lAOY`?owVgfF_b`+E!3(7tSrI?Y{Vu=
zAhw}CfoO;(XohK+g{26B1S%9+2$lp)g7pLmptL`YO1z!;_WBjubn(jhE2l4>K7ZOr
zO&3plo!*=CI$3@G%1$OX?k8HdNHYri>Kl#ozItQh)>%ezs3E`W8J<HjLbqqcbX#U<
z*I9<_p_N6Ry=JW}itXpv9Cgs*fLYs*+sJW{;~*48acqVgwjl~3Ui=<p^)_p{Fu|ui
zHQk3Yio@`N5AyxRFTr-OA4+`6x9SAPL<C;Cz!x(dy>yr<ka76eEnmER@to<CCyX4b
z&RLQ=f4x<a+CLRkU1(Xl3|Ft%vwVGJ^!3-b8+U_s7i+mX->d4~v5LQ1%J@sAD1s`*
zl3Lk%$ChVfi)CYFBikLPR>J#)S$l!xlk8wmaW2W1Z1<zRyF`xT)@8Gn@d~+xssaCT
zRA>8o9ZEW9GJCR@soaa1hy5gGDO*>r#xuQOHpU1~|L?p}^Z}<<)WhTIS#s728V9rJ
znetue#v{vWx01dl-90J=-?Da@6Ywq^;i-VA-Hkc}tUkY^#|HbZDa$PG>rwAfo$T*5
z9C(wRkz~dW9L590;}P-^hx{mjwvgC#!YZuBUYtPSak_dpSP4TkV(}19k$|^IK^i_G
z3xVy6VHl3p*oEEjf&~9BNCqU40g?$RC`U$=J7?BB(Vt9^%ou{dFAe9HvtlM!GC*?Y
z4x-4N7(77&B)1&R<qI0j(6F2Tn&kEMo7cl+T!TZqcewA^9TB!UYy&4+WiDA|`x>Wa
z+4>sC1N5>D*`K6$Y-E4(fA8)znkfTR@Cg~7ie;{;8;l#l+<ldHQO_k8U88>gn^G-v
z`LSAlJ!LPi<m7x^Nx?smGFJ;tu?Wj>1`&uvEDBy_-;D~Wi0QCmF@h0_7&N#>{x!Tt
zb;m7);4X3nvERPQu_e|aQwYr!)?htK-sYDh=nm~J3f|+C3A$ngyy1iMxP+?+Mg&av
zX;a~XsrPA5r?D~}zhegGVKw$*ANGU1<5Ut;?EO3cnmBkref(%(z~O-XTwvK9u;c6G
z&MW(*;_BGZA1eHhdfhXBF_y-*YkC)>VSwJFcS8xSgiyjKk;r=876nHHnvrrzan`$Z
z?!(y;U{n+vh-q<D3AB62$xh6ELbf0}fyg|w_dHeKGJP0{=tb-i)q62AjD(||C}^br
zpw1y$0(IkhZ~#}e)9*k(7O2-&=V40^x@522s)MQOxjHwi+5_8~TmesLN`t80Q=^)?
zNK~T`jTpotKM5*;f^dZ-vI``k2O>GjfiEr~F_N<Lf|Zweh4Mt90!BijG6VY{(K(DF
z(d=fB8cWX?O^Mbom<oyBOf({LEg(_sgiwUzA>#1_Pw^ay4=FouSb2*BkJvi=jf{^u
zk%Hk^jWw7>R!Ekp3#D>mp9f^)xf7j7mzh7k>UU0kDU5tE%)Yc;X(D~vzFAGu3Q$`s
z&z?nXm3a=SuCgM_j4fVjMzMH3w{bB@Z(!8Argyg5ikQoAInb#ue|{bcQzD9DA)+89
z<S7O|XR|R0ld%NLunrrLj5i2K<a8JEyr7{*VN}CFjKK%|gYHShr+1QB>w_T}iiyem
z0nEm0yupUo^kc9IZn%M)2u28!kcN>d)Kgr=bp+uhKH?wLc}L~P8C=2NjowSerDxC1
zK8Z=bL{FACBQ8rjd;I8OrgJe7d+cAY7a9>0;mOZ!Vj{To;8K#%-YCcO<3wHxvn`ks
z@cxqrs=!B<X(3Pe1nJyHyp5CU;lYgjGa*Q?*t<RzPlZQ9BdPX*q^8On+g5&%tz;wX
zf1tSiO{nqR7mjt1$!yVnwpg^7%oc4>7K@fAt3`XB&7!T(ZqYuuSpM_===3|A)eX_<
zUsO-;_S;8Fq(VFS8%+W-6_Bq7;F@M|rYwf~J`s<5oZ7h=qG!u$+n?L_?1tZD_Vvjj
zdiG3?%57{4<N(EX1xB|2JGNiauo7$W^dr>_rAd#ZYp^|S_y3_fA!`~JMUWjeP!o+m
z(QCy*EW%>=;UaQ<rpZQYv_V@;wlbRn30M(y!Z}3XrISS~ZL(-HVZa^R5RM2qn)BGm
zd%^cE1)m9K;cZ*&lEs$wtCz1{V4bmg(&|Z4?Y_B&EwNE2{;k6c$d{^9E@bKQ^;Jmi
zg}jovloH2Mg_O_A@_+OoZRav<7slPQ@-OAWcve@n@3p<_DQ7pnc{hiVFIZn>EicK*
zKv~HMDKoBUiMD8ueprY_ScVnYh5%f}4ctU5GEm+!A`7yjFr*9yWw2;<GFr4Yl*MRB
znfzOoORGf-{?4N1qHsQ=a7qCkL;>}}5nMwczQ8GmMJtojqLo7&9^yG(;P+hQ73N?b
z^xSL&J|rbRjJX?pH}F4a0WtnD>~{~BI=V-O=2^3O1=EJjOKeo+9S7Lz@Z0zt$_-}Z
zNB;bE)LA5R0eL!4UOCPRsT}&+@3Chyz5Je*D0_~{6`-23S@}=^kMml%@@Ua=xbPkZ
zV<^U895!MzPUF0b#j2&TLgm#m<+EttAsZSZLjl&29Y3Kh+QGM=MY{xxt3?}&iC9y}
zq8)_~PT~v5DXugUQ^X@f5jLc#MO%U&ijjE;E<V_zy(w<dPW)iePT?{F5Q`_s`lCe~
zh(TZvCAap-?VSma;<zO@<X+IVi|6J4zmDu@+G$(3rP(GvW~?$+rO^`J3TK3=;_)<s
zE$`}Uji4fWCKIC-s_(|?FMFce5&=oIq)t*MsY!usd0G3GAFyxvaJA(YEq4jqhV5nJ
z@|Lz}JyE?J5rGr;3N=Fa%BoqcVe8YRKYh-j5Z@d<S-LolzUk*Qaa`9j_TSUH8EzpQ
z16`fWZF?>ffu(T#v7+Dn!8-OoI;H|m3%27lG&VpsB#(V#x>Z&iq)lTvs|s}v>#AC`
z<2Y1}?7;2n7M_>1Xa#Fnv{tn&+DP=QO`Y<oZPCK;45#W)>Cm;VMVo@U^(<O%w5rcP
zK!pYttrFUy114Y+ym1s|8(OqqF{F`&N9`=y4(tSb#wS#+5Zkf--4Ne1YJYh6XpzHD
z9_~MSc=xv5+wAWgcC$}wR=BNjGsb_+RLIC3&X>vD4CZ=rn{a)>=-LEdTW3$JuRX1i
z_Ozzh)9Og)GSVr@`fN|uMticX_GDclS+d!Ov8%B~dxXhNNfI*tWRZa;M||_m;Of@P
z%J=BZs!T4toIRf7PE6aKyIK2}<TRApeX(Zvg~;O=&*VG8B@&PE6m9u4?IC~C7lZh7
zLogA)K{jC_-Z!&osWAUUO#_>x6-P@9hA%GQSaWg_5iKYlKl8Je)JjajG#qYewP=2<
zJi$|>p-d~%jz$=U;h2pb@Wcs3AsTPcwKe4oiES*}OO$U%kw8VP??4&F9faXNA`sG%
zvWI9ZvsgSpJW}yDv`!Yy8LyGMvuX|;W4hQzcCp<8B=e_XfniCB0ssDAMs|4`&loUI
z69W_d)m+w3+xDfZ0d6~So92>fxGZRajfv5EXCpbD{!>^mHzhc33Y2_nDe+xqkLN3U
zJY9(AVZv3Iq%SAg3))(=E+pBdJt;y-`_}j9LKEE0qSgM@qE+ohmF`VQ`jD#rglP~(
zY6#)Sf8VOY>8xp)huhB9^F72_<=kObITo^ar_^Bi-;8JaKxgnK%9L?6l7f|A!d3yT
zF&IOz5FXeLe?%Y+`Ps+<s0$Z1Ha}#e{kroxT*nP`??C~=2+YJnY{x$Ahd+Xl(1U`N
z@fY@^$c%g_fbUTl6HtqYNK|5blK)7?8>HYpauBUtC;(SfLKQ3|f{U>Wd*Fy@U_bsi
zq7Y+cmV)=lL8x;fZ~zS&HVw3BZrFzd2u9l5q{O#LPh*~{WkiyFu;c6gUnl!JNnuH$
zcD^iqlb(Kkbw<5rA742W<H2ag=vcm+O}+)tSRYH<AZ?XZid$>>gCV$wa7a0*jWHOD
z_3*$>?8h+#!i#bu<>dk%L(0u__zz<*joV0r({OelBPp}kii4y0w>UD|N|QXAdWTqi
zMEDqs7KwN~Mv<`=tr*In9J=Ed48~A|;5H%=jk4pY^Qeuwkc({g`|#BlEQZs<hxo}D
zvYb~cxZB-WyM*J<^pV%>>+0CiCFkO-c~zHImM+7Y8&%`=BVR`*cU&=(ixo8``I78U
zkfdIKq)t-Snv|@aWYKQn;Z&;X@1$^sMJqbfqV=6c>BbwPQDF||(aNFJe41P=UHISC
zv9?}Koz+yQBGNBfrw=5Pewf1%PI_In4UWkHkDTFj^5=-IfO;ygn7T<qosLk~<kebK
zzW(-|#N<w;jFk`cVp&`{bD?5l&SUI(pqI3|NQ`@-5BgyMW@8SPVFkX7rw~k_+Mp0B
zp$dLRD~!c>Ou!^;z(#C>8xG<y0&oo>xQ(a@ge-=YSUkWhBqQTQ>N;{FH-1Jdv_@OZ
zh7}932-~n7`*9E%$fiulfn2DAdZ>?v=!1S3WMwu4Qy}Y0uneoP29oDTA^9FRosC3y
z^1c^TpVHQ^WO!F5S+~9Z&oy~wOg(Az^)spTL?5N4=1+@@;t}(JKy~N7DJP|s3O{Fp
zVXS+s_mDBp^H|%-AKQrokb-vtzPO5DWT7B7M0@mxCwAfiq>wsONF4=rmc6jLvkWEr
zuOS8Z3+_^QV^D4`g&1|wY%V{T!OBdyVJr6IG_IpOC0$B<EewN{{F0P<Dg9M35RO`~
znwqc=M{#ozwF31Pt4OMwS>%QmChjUyF_Gu(PaiELb^U;vPCwci=dnp<>sQFc?$^lm
zRDb+SEvaMm`AsvBZ<&RGsY&v3i{=5#D*g((uc5%;$y!>Zb=27n^foq;&q&-tO1846
z+Rknlk)9O1opirz>rK^NWvY&<iwSBieK=b6Qk_<8%7q9+X53hk$Ns%x&-6UTlO&q#
z-=66$)V<YIMf-U}Rb}%^`en;o*|&b^QsRi6*aI(k<1C)y8J;6ADRhCPwm8<qz#W7k
z262!m{D|JmIbQ3-${=imBQ!4d@HArCjqpgAdf_+Bf`sfxLe>Dy(F!B+F`3&qqaQ`z
zWp?+*-2{II9zEgf<ICvM``vc$ShHfuA4}G(u&$W)8xuK|!6n!5c|(3w&9N+9<kg8M
z&vlcNwSxS@IS57+9z*i!H6*VFucw}3C_J$fw{ZtykbE3x&&vQess^5ur;@L)VIprW
z$bhntypF~LOm?S;PjR<soww11VX}v<Ae6KhgqIYCM?2XlJi&7$;svx_G>vdZ24qAg
zv<F|T{!R`zqwYlAxp^llF5yvt|5<;Z{XQIuY+PrXe0KZnUX^9p?p2F+uVTJzw^8(^
zUbF#?fMp1Gb#R77mg%qLDHE6Bj%Q8O{)=P!^mpax-*(z`+Dm<+Tn+geYt^*KtLn0G
z9d}!_PWT-&F$X7c9#;^AP$c6Y{2#{d11^f=fB5)N<c`B0dx^dG-h1!8ccZaJjonzz
z5_@ksV>kBRu*BX_R8+(Q3J5BqC<q7$D(dt3&h05ley`X6aeZ&Oy*qYiW@l#ic4x}%
zBoKCy1a_0<?xD(rEAYZQ#NoqUj%noEN18+pE2Em2j44=&3-Ez29^lvgtb-N5;|(H_
zghB_%NKh1=&>5`{5kvTNn7sW6xfGI*66&6*R6Qgok%LI<I}aZDl$1v1PF^{A5PIzG
z<Gpv=-fi3vw`~<Os}`=>w)cvUH~+~>>c_elOi#!=8o~|DHkns{j&-k*s;<*vW;e#V
zce4JcN}<EmQIlBMZmOzG&Y{Cr!u4+>3?=*y6Lt~|5(K{(yWrS-+4T3vNa4phuQ^Gu
zolT`CVE;Mlzvy|MoC@}P-|9-Wof~f$eXGjrUr6<$z9Z-R-1lEib^YRdR;GU;?fW-9
zYIw)-1oFCQp8rTuL!ho8yQ8u=woS2Z&TvI448&5b#6g_EDJ0<oQk@`L&>HQr85a<a
z*Eq?3%Dxu)n<z%HzsaLYGSdl@vHcYFaeO$#A0;qyp%|*61|*Q`U@ELwjHTE|fIY=?
zgy97ofjFE%%zT0K25i6?1YIP<M6XMIiGfQbO3cAr<i1Rah8;+bi;Clh%jAgUCo+n7
zVhoQX9!ETk@PiC-5w|05MDRSxrK=Ig7!F75XT0MuBdYNU?v-5l8Qr!%!9BmtH^Dt;
z;e`c{>qEU#F%t*3jHMQ!lN2{=%d+FJ&SI6NdXf-iAL^kOoA{@(nVpQye8zO=74{!C
zFDhK<a*eP-)9W1UsDC4snt>)aIqopqhuy=PI~<$%&5r{79+BvuvifR^eCXcWcsMjK
zXCe9_WBaqBk6GmEJI{)G(8=1I^6QPt=l40?wVJM)>baZ}q6dvlJ!EX^W@A(P8k^eA
z*xVINS79&SBLkZ*yU+q_uoj*;4tB|^+8X<`fqe?aOXRwpN)>?Y;}&Bd7qFiTu?UN?
z6k8C4mv~1Q47yJ-^N?x*Bs{X9O#lZuI-@HxJtC<<J*MvZ*qTb6X66cp1f}8!yj1E~
zFgYtahwz1H9ZD{YZs>vD=!@YPfkf`blHv99kU$!C4@r#kjq}m3c*l9m^!(rF|4xiM
zribq<6XOoE(%t?7pRmnLbZ=~XmdKT@RtY@o?MPV^8xMxACA~>HE89GWYAk!!2(l;b
zjXkN(4#<wYhU`G5C-xm!#SUb9O2LbH&p52%8OGJw7lc9t#R67Glaf#+meT@6y(2W!
z#t{ndIh+$YSNvdH`_c)>F{)_Wyw<ql<!-;mwSM#y>3KDaHJ5~o{Mlm0pIy$M&HtP~
zi()8&7`#IQ5+R#)7Nyv<(irlJ_`t6igSnWGC0GX8{NmUaNd|;U>_RQnizZV0GSd(J
zA^W!xvVRS+4Lh(0`*0d(aSj*Yg-|@hbG$$y!lVd_qBtas3KK-{;1*BziN|<?5G$i+
zh{9J`5;(;{TeOFS>m4lmkV>rw;j5lu`A70-ya104+Z&LVM&$Kl$4upk<2a`FP9jsh
zBSg0~FK>P5m+Y5?KAapw9KAWk(Q}2=!B>28uPEut(F94xbj5TI=J?4%-wXJk^ybLp
z+Q?>RGd3^(C-xWFld0Sx-DfIlUs(T@vqKb7ZmOP>o0@{hE^f-*)lKz6-@=U2rE*h8
z+}+d%4>x5^=ccA(Gmd6-QztXIDc7uS_FGoJ->9m)6#ss~HF&dJb<N8exBl7DUZhsB
z<e*hd{<&tPNW9Twq>-^DWc4tr@;l3OE}}2TGG|Y!IV7;(LiXl4WN)4z1YxkSXCBCm
ztj1oxW=~}=Kj0pF`T)=I0tMLPLMV;0kWgria)d%<NN7AqUIL=LE048SW~L`}@Gu>S
z(O82&u^$0=gb+kRLNF@|qa;e95ANVTB9Y0>O-;ZbID%lrAs%&1ZmJ0$c4icSw@7d1
z4-+jqGYfmoGa~_^uNm%#`f9I3<5-Gg@VR`-=Q#hF967K@e$GxY1n`P&##i^Y_721y
zmsH1RD)W!xQkEq<lc$#cnZZed(=o*wncA1+y$xjZ#u_QdEwvkccax;>69(c-8aMS7
zRnxkuYG|640B*)iE40QmBdG;44aN(+L;@1AF+Bl}qd0-TaR%pb0he$YSK$Lcd_Xb^
zWFSIN48>6rrLBz0qCBdg7V4ob`rtiMk?vRG2(td*#&3LXY8WzcEaXCN{D~8|n3)Yg
z;Vf>d1S+5sDx)f@<6F0$^#0ZIIirxkH-Rq$X)251Uf>;n8q4z!yk;ygxs3Bj4m`~u
zQ-3~j;*E|lM>_;FCm*w&bFoyiF3NvEubA4dq@FtNJ>>eQUjBD>;+d@qak%BzTlV-S
zc4b~-S<*&R+2R_gg}SJZ255vH=!M?si~g|w#AqM}V<?8<7qrYu9HRp|VSY9@wGfN3
z1WU0Bt6{?$Y`{ir#$WKkZTR6nA`pea+4)<Tmfg*&W->Dm3$X!Pa0JJ28D8+l4Fn?u
zPw^aKSee6(Cp_KMf}C#Z5dO-==ir5FxQ?5+g*&*5M+ihvE>iRpW}f0X!Vr!wxd|dH
z#d7=s<1!bQyBt@%j9*vj<tUlQdG$}N(vrd}*a!P-VO;NGFn)}cA7n)sZSKS;JJEki
zDtZW#OWamR;*hk^iF{j`a0$H$G}%|#xBYqC)SQBD>MUYWsF0iLhQ+vu1QaVwOk+8`
z@ByWYxT$_vjqCV~az%-J{E3g;_CK9=0PJm@$^*W^6D{kde|gTg{yE|{GI!f4C(Doe
z;*Ks6a!LrT#d>VPR-DCoT*M`K;|6@-3qJ%S-H&c619BoaCgL~D#$4RTLj)rP`3Qo2
z*l%TY1CJ35b6z*)foiCU`B;QYxPoiAj+?j*U);w-Ji=o%%;%;WqZwMD722RZI-*;C
zjwJMgwGX3y_z43s2uE=Y$8i#;a0X{_9(fCJSfU}Cpcz`A6<VVW+F>x}Led>wtI(NN
z5-IJK?s=Byh-GR`eiftBmZUG%${Uh`!gzN|@@e}r?~$2+$d~|1cJho3Ci@*Oj_%+c
zod`Q}ow^O~>-VKhnesWK(qr?<<L+*iy9YbTmgXio=EYi^!3(@XB%(2cr1?AMVIl4o
zb5qX6-Bg)UWWA`2>bQpM@WE|#DNV3rHEh_8y(nMCO;s#o<wMNWL~YbXBQ${zZsP&`
z@d$x<iszVLmJPvjti)>AumPJ8kN5Zrr*dv|k52i5bjW~=$Yy2qYk5k0jKek@#8Dha
z^$L6e%oRyA7=*_NgpsE>E~U%Vo_|O~YxcR&e@}yGHvpkQ$q()(^X#M9>sInb8El)=
zSX$UtZ=xr8iWePkd28*}Q%C$t&eBqj_FHfw_$y%uHoy@b6^N1nSOXuZ5(F~_V?BJ~
zT9OhH!?79nVJ50-VpORNgaR|(#E}FMA#;K*bQ(L+6qnJ+VyK5D&){5+AlqGuLcSWA
zMjdJ$^(fODll`_JZd!AAv~yF<F$v2$k|lR>Q!7xkJMrAdO&#t}em9Uf9pa{D{=y#}
z#ql|g%w+<JZlaq?JIPJj3#nw=KUDfjU&qssqXt@xdr2I1UFyG+EI-=9f3Re?-SV)c
zv)Ze<a?h*3wWm?dt>XHgHq<5BqVOJ0Y_~JYq8yr_CFWo$WWTQC2K;ajC)v*%)d^YL
z!X1R*DPG_uJgha`R2rm3dgMiZ6haZSMq9K)2Q0uMtim5SieosAlX#6t#N$2E)g%EU
zBQjweCSW3dgLP1C(glWMI3f^>;>1u%ltp>eKrIZ%2#m&9OobI`>hi}h1Vb?bBQYMv
z??Q4Xt?nq0BrnNcba2f4a~jG@I}$&0q<=jQq9m1{pCoH?WL3JV%%$LL6Gu^DVr(0g
z$CBCpTk_&Gmb_Lu7TU>nOu#Rsy78C{D@rt>#KbU+$2x4lKvLy!9KbQWC56Ty2_G@K
zE$_uu_~AKHk#a4_jHbBOo>bc2%7MhpJ>178lJ*YVL=c|fH6js(&q&{ik^>Df1yeD%
zGuar*aY&R$1yn?3G{kU>z(|ZjTvt*6Dq6c!hsK{+k6JxBlfe{B!+Bgn^<Es+sExYV
zkApZ20$u+OEe(0nzKQOSGgSIPe-!$Ng$H3t50W0d;{NEQTQbMHt}}Qg(H(bEYk5Il
zif1exro2ib_EJ7_BeCgGn}@i+7dV6U4fw=r^GXefRT;}#rnU>YEt##39(AR^Tv_2b
zUvkv0549SoTFaInMa|yq73!isGWH>k5Zc#GJ;P^wg;PIre)L9P48jmhg%vX}3oH5&
zr>mKnMwT=K8?hOCaR7%f=_i61c?WPrqdY3&G|oYhl{q5~(jy~Uqdolb7_aaiX@2HC
zsEpcJXk|2P5Rs1E*n@kxk1T^ZA3|wVLkqOT5KO>4%*P@u#w_yF*_ea*Sb&9CjD0u=
z$#d=Z9@u;2_*oWSK{~_Ht-HR`6ItYrhGg9>PAKEhB>h{3{9bX_5Xw8~_DkL>mmP?_
zEJN(iy2#^K@}tn_5&78*#<l|)EcO=MeEL~(>l+)|%chhk`>%!Cm;oscT8t)##3anb
zL7c?AvFs8SVF@;23#8~6gBh5Gt=NIrh({ulP-r}v1m=t<(ibvwcY?jldB`*XxhZ=J
zLdu{tlXN+x8Zd2$K^Tt4zfr!S?qpIRnxiFJqdhvJ6S|-WdZ8bF!YQ0Vpp{V&!Vr%6
zQ`jJQLjM{U6`_Y0QBR|SqaOMFW8jtBQP-j_+~z0fGxVEr@<o(q)JbLz!BdYVHsoK5
zqp)m4Zop+(=e7BnaU7N*+0GF~GL{IFh|3~l+uF>Q67s{o*>)?p#cZA3$9{M^4$J?<
zu>N+5?}ilLI><&a{S_Y52}<;wMcmFNsIYP_@wbq8UCJ@Cg5bvo%>R=Nc@wAie^Eui
z;GG259u9+z`zXl{QhXjJm^_L2bL8w7bv=PTST6B1(|<=s+Y2dH$T`wfeP$#b0@A27
z_om8cX*<$mWnX7k`_JLwIW6g}|Gb7apf|TRxn`hpp+hQ%#MCjI#d&0y%5je$FdAbp
z7UOUa4>4mJ=^3-I5`SPeNpTM5q9kEd8lwoO(N;!dF&;~Qr@o67ScOnL!*jeq8Ui#O
zGT;Y9%yCn1aDN_wiy{PcF~lMc?~#O0_zbm(3=C<J9+_dy%IGnI(0(zA8h;Q&YtVBo
z6+2v8M~R3)1R)A<QJEO5g2XNSA$&$bBSs~^;k4%!We+`W86$hkrS=}Tq}Q$cNd@eA
zj(*8kULvcZQPa>QpCoUFD-8T(kkwL6l4ly*g{+nmx_TgKT)Gc#C8?(jW??oYC5^;H
z{DvO8I5=?w5h$^n>H{jF3R<BJI-@K6a36sP#!sZm0r13S+}uMHN>Y7^*Z6fWv4#!%
zC{}O~o>;n{oB(l1Mln*gr0mM5jXG$LKd}`j@g5(r{}9Cz3UL$^K`E3*8I-j$s*akd
zhX!blmS~N(ki$ow%@O+9dmg)gX$Xl6^bhg%@%8rgxfpWMn;|6d)VD$27U+2M@i==1
z^KC3Sjcsst3t4NH!8(ulc3D%F<afbF^0(Wg3tl4<PDd%IkpVwI4((I$JHyGzS*qt~
z4msR+Va|EV0Zh5Tv4rh746*_>4CSp?DV)&@<*xApsv^&ILJj?Ike4IahwK-fZV|=E
zdz&N*e*_}E9|tsgpcndM0LCKSJq~b;#cz0YpN)OM4#1j|QC?KSJp>>E=7-eV1K0?(
z!|F%u6^>$MAjb(lideFK$@pWVf*%Gmj)?MOkg4SOu~9d0RSyx2#nsrTOHura8+9t`
zk~<iVM@87i=C+h@;WD#rZEj0lH+#I;0&-jO^ld7^B_SiBA|WArA{%$`2?_fdMeGZz
zH*Z+~mMkus%L8$wu_S{0BYXLk>Wng}#m*+RHkC<5xtqBDY*Ihtd|H!wncieue#cxt
zMbrGtLggn|Cvscg+MG`6j(50SJdL#bn8V%@R&Fn|z0DilXSVc-m9JOJ7shGar_KwQ
zlSZwUmTYRw#pe&O?a#^OSUKa<*>hG2zHGr9MW};5n1{cx3!T}!1CYHui+N8eaIhNJ
za2+?0jL-Oj{)C2v$Pgn`RuD2f!udYDc}bRMWz^smC$^Y@S!f?YMF2K}@K2n?DM*mU
z!xYKMFv{ZtRFplaXA#`XaRwK08NRp+KRiSxq9Yr!qZ_JpXVeqiQ1UuShUD-N|L~A-
z|JyS5O7^l}YS3e87gnAiId=G%twbKnZn^QMX5%*$`IGZ}&=r6|H8VPvNHO|V<A|;;
ze`E-TVi-o^3?zYE#_m|^%{YW3@WXvPLLi>O>m5OjbR?(@aa>Do%}iT#MR!O_+YCu<
z)iHw<C#h~8p5q0Q@DV>HbKs-Y7e0%hu?WZT0<RE_L}Vn@O3Hm8sTXEa@Jm(Hq?2+-
zCzG0tsaS(;*pEddaY^PM5^S#dEY;Kh^)0`%&)6E~vz)fplD90!3ar9vY{YIT7yb^0
zbEJ&NpOB+w3+B0*)B^0rUc5#m>X}Tc0e-?jEW#3uFq_mUq~nOofR<?OZZ)Z)%nXMd
zit!j?F{xqb$KkjURnwbPb#Q3XNTx|;g?mPmvLFX?p)|^1Bqre=-XUuilgftdD2ED2
zj7^LRe-<8y`#0<8Hf>MSlC5L7Oq;gSvh7hEJbiHQwVl_tYMa(wvk`J6sD>Hl*sG_7
zrrFjPvXqx%!*K=EaR%tPEReDGM*ZIZU93p0RdR(agLN*!()h-4EXi2@l5UrXS7oj7
z9$wY&<)#&xO5tRcpW(j0MP8~Qp(P>Y0SO(C%%qZRCc4ivsRBO|D)~*yyO2q>D`HX=
zi<wjv+%9h7LL2L_wUkM{C~Z=6%bC>g<yl|Bq)woEMLvhYl}xHqb(4Mu!Zv4-d)aRn
z?a3_pF<0)HDq`Dkh09+ln#TQK9SS<}=0kDruC_e|n7iU($!7iHG|$L9bvBw^qU{Jg
zaU3Uc4-XKCV5G`w;`a-Z20ZXn4$>da;R3vH4Uu?@Xv88BAMgc=z^R_oWK}hpsf9Wi
zg5hYJ%cR<)2YO)?M#G93=$qH1et}y)6VK1_KJ>&a?8X6{LsmjwLcd=DHWFP5np8LR
zAvOk}NMR0&;)P8rJyDYp5=A303QMsS+u@H#2*MMjB114iUz)Pt9c^!DTP{{P?wpqE
zUG{bHT*{KC$@TN(`Uj+2$=8{BMS6H$^g5e#Hs&m6#<qDyETwE`i&zThd{DNmJ=yo<
zhj@}<illDaT!yP5lE$0M7FduPz0e2!F#wCO1S_x#VF*VA-rzI7!iB_`3X(AUlPCv5
z5@!HhNSuyDTG&Xao+Q?$r3tp?q}aA-4@tdA*k8t^4&el@APygqzAPCLG9e4fpd9?r
zjZ`lwf0L2=HyTGkOXDcGWgH0|jHBU+91&IyiAlIt*`#iuU=<=0ad?m5swv_|ev-4t
zgESHG^i^a4gEZP35UKmakUlYFVEKwMoIY_S@~9pp11AC;twUHV5;5sB+cp-nR4q+b
zuwiHhatnLaHJdINZx^f1D>9bPIi|crU!=5VDO69dC{??iYAl->iV4+B>NmW{2guRh
z1RHS{=ipkC^p1?kgc(?j6<CRTc#3emL^R@%v6e~wfcz*>i-=pm%xa9RO*VyJ>zLFS
zjK@Sw##GF}ECeGQ$LbNWnB9;F!?;FlIGQvzsb*M=rI^svq~>5*Gd2!uu^zs7U}coP
zIY%a%p#@r@13F;>7GrV?@<J@YQrJKwGDIi6340S76!7K_Q^CV*cVzC)o6t7_T6EG)
zh5$W|=2S3%4_!;T8G0=s$r?=u7njfIm^wK|+N+nb#FS&I&)Xe`95LKsY83C1aoOg?
zFl!u9*u{gp<5<?^4kgF;cgm}>B!$InkDDn{h*ehU0*a|5s^${c5|<Kx5>FC65;YR+
z5|k2bKN%sDvn2<0D-QNHWIydp>Tld@PrliKgBd?`q}=U9G<7B$>q6zAt4a0lMv2nX
zq(1dBshoYBOw#RT&XgBHic;s+tv*xxHkw&?EK;<bH+QyQ><B7hDQJ~wSdW*;!N$l2
zl}BIn#{^8mWURm{tif9B$3aBk4HEGIvO_k6BFfmg{_Nmjj5T&NH9MNI9i>HfW3SIK
zy#gOd2n65>B8<?OmLf#*5h}-V#R#4HgwRJM!<mqBMHy7bXiSHMpcf<*CmSKzrR&f3
z;2cAc-tEB`BqYbaiVcem<-bf26dQ2&*4<ZEUd5(#<wER<*rN!GJs7)};e;{RtA{!j
zb!=q6*Mrn$J5+}26=O<SN?Uc>`cEqQmWW7o|4qg9W!vsSqP-;+6ZL;Ul0f?2k_@;5
z7peP_bD}MJVjzCTNQ}ayzE;XyW~Sq}euM-r;MGq=Au<jysXQ1rkgNhWti>V%Y9-8r
zOlk_IV+ju7D*O?EM|g`~g9&-K51~SV)JTgWRz_9v3a{}7QAj`3r1GI9TB9d=BLq+J
z3}MJQ%%n=88QQ>p$4_+9GcHo!esF_9I+cEwbd^`0(FqyDX+7xW6G@qmGIJuyF}BYg
zv>mKqDI+J!6w|iGWh^bN#E|{&oo^*Uio;wA??w{l65bMo5^NG=viq{@MT|W%v4yh5
z)kYG0quAoH96{p<wuzi-Ork<Lg@g&Z)ll81Q{K<y0GP#*n0B^FUBZ|-MBF@+?czuC
zGHJq6pG@m}Jao^tX>94e%su2*z%;gV11;%I(u7Ev-W6>R%2|qAb4UQC9nNV3vLYLP
zL>~Ns;=iyN*n!>Hizq}R5g%}A1jiY!;X2}wfY11fyzE+j6h(2!t~O&=SBzqxHZrpf
zMcD7w=!Ks!j4)V<&DeptgvUWhxLm+3JjXkD5Kg~gs}WwUjWD~#G#Rc_Njb=m+8B-*
z_}j`T9IudoL?l5?qk@Dq=#N3zh5fh-CpO#}uJAxwNCXvvu6D>hLH6JK9l!hAr}S^0
za%k^Z;I1-V(n;rQk#w0OrJl^|(l0sCULSFs^XSH!NPRg99!pWmNdC~Pyq~?Q=(y1%
zx#>}z(L{_`r>BxsJIGdU!w&4j0Yu_0lJNzpNNOfzLKYN2A(TNmNKzb#5s)M~4wFch
zlQCl!UoeXqNvFZcK{72SNfqO;3@aeX*AJ3}Ct@+u%q3GsH*`mndE`wXiPN5_Nfn-N
zQkC%(5qOO_WLQ8^hyo~NW%L#w@DVNxIY&iKltgKyUc|XAj^I2FEH<gr2*V46<0Z;2
zG2--lB|kDbJUBU+$cbkhocxF(IQd?1GPe%iOuoZQxsro<hhFcP>UYwrcrvZVRkP%-
z<>(rZLs2PCHl>R^M`c6T{Qn!lysKmfCwZ4`cp*z}+x{~A_98LbLIOtuMgm3lJHgmL
z**DoQ*@vz8u#|&l8F}_{j=&Y9^OdA&R9!`#1AEqx-q#cO8wsz!c>h*Dzm4VXd^fu6
zu%D4SiZJ!j<{M`2{?Ba3xW7!dWTdklI@C^iU5`#(^g|Xj10lWJ?<kgJyI6%Q^m46k
zVPT#k$swCt8+DA$KFBmTo9+kM1s8Tfb|c!@l@0997W`%GR#$edud#dS*}Vby+1S;K
z#_l#YcKJEe=c|cwE2CV0ko%!Cx?&2h;W}awhp%w5k&aLrHBlSA(HFm9B#y!h6A05?
zkgz?AVQYC0mV@iL()|3rJ7J+$D_^*J<~Z%TgdTx?dW87{J43gIZu;gx=z-8bc==ll
z*g`v4GTB1ASUhZ(Ygh`{%2u<Kmtv}D)~2?;)hu~3>x$>U6O-+?YL+6_YO)Pe*Kt%6
z=Y1h@{~JDRVE;)2k`9Jo<R(rTFcntp!9JYA83f=lULpd`HdD(-7j(lSEWui=hYxOV
zw(>z{LJ*BuEZD-Eu?B0g9(%A42XG2!Z~>Qa8@`alTG~jkW)iF<+A~JN9cm=r1S0{D
zBoVjR$tj4HQ5W>VNc@T~$g+!z0_cH7ScCQ00LhU#8^KHN9saKn{c7OLB>At```wP_
z-S**SlB|zTqJ5X7tBR}D|NKX^&Ce90GwNzh?2jLCbm%jR$z9|=VOery5{}X!`Iiqm
z&v&uqNvjjXw_jQKI%|_cs)Zc2vR|?veU4GeVbKK+863JuD!pV<moJl_Um+XyB4uAC
z^<E?8ds9QZZc^)RP-XNn(Fq<gcbiDML#ps4wcMq;;z!Z?ka{>O2k6|vwmQyS&fb`|
zy*0BNX5SQ#BJA;Sx7fm)Skl{W*Rtfd+K+e%+Ko7fLpY5yD7~A^3DwX5y)YNsu>()>
z9Ix;Wafruze1d5Yg)`D41Af3S7>zNQU}ZEBw-AN5h?C{LEF=9s>P5(nQmBAtXo0@y
zhas4b*;s`?V8bRH#1ll|4WbZ(ru#YBf%O)n_fQ8Yl8^z#&<rt%!+ShANQDaO5Qk?%
z?1$J7QO3Z0L~KG759-E#c%cVgc^drm(NjO%{ytp0oN)Q+<?{)r8O|r1mwC4|-`gNv
zJAA$EQawvGkKVOtLyg2k&S4u~hdVMHiE>5#UHT+imhDNkxoplp?8gB(9idi)rWl05
z7>4&q#3w90N)-UBP{Nbk2VS_2_N2|8=nYA$Kf^kP(OfKnC*B|m36RA62?LMwW(>m;
z9KcaLL;~uaFsb@zh$dKrlQ@O5D0h;B9v#pLopA(yCryo1`oB5y6ZnBGA~red#S{7e
zIO<`P-%Y<O=Z+oTe|UH7_Sh{OwroEf%l|)P|CBK{9NvC-J2yP(f3|H6xYGBifu*pm
zN<B+^+l+da%#u-aq}xU;q=SZP@>d#SA~s<=c3=<o;t&qwB<|w@0^o9rgbp)2kQy0~
z5t)z;`H&w)P!qLK8})D$_fC-;$1&r6nux(#Y(TCvB!2t|x3kQn5K5pV%Ax{R!-lmO
zevbMYB4IgCr5`0x3b$|<iO5C<lpQ%RybGg+kX&gGNaU}LAw2e3V9LQi_FgQ#6UT<%
zyhmpR49v-EXA)v>hTn`m>3J{K^WIHvm6d<?0`jj$mLFU;X4`KIE#scEnl2Lw`}K9V
z=#>7n(|kSEHEYhV<rZj)P{wi`IHtKvZ?jEr!1Z%pyD_YgJ``kXU#c$~eGrH64o+mP
zlD(cWve?H)Hhag&YR4GaZ5|`btz%@nUPjjI>ut||r(CyZ!P{<-{o<CD(E~h0t(#Pn
zAo+7yNFKcil21Q^<kicu0vn)wsVPG8?}?B+d<4?_kzVj4@}d<aZ*Px|=!8KSj(#H;
z`6Ce-?~|({6EY(!^v~4xb}&+oxq!!TKgf9Pw)|Xu@oa3=-%-b+4oCfcIBNgysKeW%
zwnzPKJJ!rnt|Y;%e~O{<lJeIV`vtko6L#o&^Y1<6QK@XUwv8<G|K7@y!%8)IeEBiD
zoUA8XlMO{t3T3bfNATtWDHKt7ix|Wr9`E7w&|b8)V%i2nF&sgV;_exqBLSbF{5e|u
zxn5O^nVwjKb=ZvqI0_%!!814oaMc%5Zq`RbbVO%N!*r~M4Ni|Z&S8cHsgVvD@B^|U
zJ90m=a`Mhh0TjY@+{A78qVi)(R5V9hv_offMGy4CV2r|eOvY4f!WJCCahybOpj3!>
z9wAxZEh_i=B`0-~n?Lo5t6YJXj!5HW1btU%sN5OKV-ND*{t9n@CHL^yCqYc&c}Whu
z`$NL@0hrXal>M}}Qr5Hj1xMXyS5;0Ic%$QZPAHOEb&;(K!8;`4Grpoo5G5<BqB`26
zBL-q9MqxDm#5(N8UL@foOu+=LdoZV^=!su28e?$^XW)fvaC$;~AuZCQHtM1c+F=qV
zV-c2PB~IZCuEHCS5rn6Bju%!&ukadg5rcTV$0w`}B>_AoZ$@J@K~qeA#;FVzq0VzM
zebh%oG(sD+gBQFZaT-Y+zCwJA#HP%>N@~oaeJ+_hw2bxgf-Dfh_SfWYVHtdrl6|-%
z>s6AsM3M7=lRB#2l`L$}kzcpsCoNgyc;eP^iQN&oj@bWqB+KQ|Hge4546*N4sW6VI
z7wmcjMLAl&=adf~i5$@Qn8XhmAIQHxa-HfE#alAd&y<5sxy|aelUa>%HmgD|W|h^|
ztXifrt8h$nGuvk5u++CdK&9^s)GZn6&Po4u*Pw2VLO0d@y<Lj$JvM!xD;w>eW@RsD
z`YWY%fvmctF#W*o=(dr@@3FjQJJBTN$?*49u(C<iL?H=j*k{@A%4mm4n2afyh1r;c
zxmbi{Sb?)Rj|;ehtMJBk+{7*12_qBpW#%3p;1L25gb+N%Gy;4&W??o?KqBEC;*kIq
zPGt~o=!EW=hUu7r1z3+wcnE(4AUK>O?FloXcm~r;jyzb90U41QS&$7m5RPcX!1Rju
zBP+5a4~nBAT4E4}Kr$zW7#T4{%G@i_L`Jg2OR&F1TD#&UGAbF%D*Y*Df*;x6=Ev>t
za?b&YoLYe-b>B9YoF0y}Ps+CEW3pb7erPdTXEE}x4zfXOaS$=cMN*a|T?R)XN&6x$
zq4H~TZFENuJi$A>M<NEl;SLfk!eS&LYa~@~ER$<}E0|e@)$oWS%RniVL0N3XIb6Uc
zTt?-$oG+srdY~uzMH7|y9dj@jF-RXnOyLJ)!XE6!0UWk6sv1j~gC6LOAK#HTp*|X6
zD=y<IuH!Z0P%Vznp(lEy4{qQ!q98d|yraKyd!ORE@A1Ir{<=eQ8I}G%tLN_d`1?Hf
zm+s2HyT_9L05!<|Z7i*<j<|9}rXvoe>}e~1IT|q-5YJJ8-!T{4a1Viai)h3k7V${L
ziUi^vN8pKLXh9a{$jS!4C(efO!Z?h_W%xkyxOB*Y3AhHy^AeDZF64a+uoHVBdEpm$
zkRP_dFBpx5kUa7VB%k~Z?&Ote(Fz@UFj^1EK<_{@Q8|2g)aQjB$ozFd|1>$!&&SXE
zig)1Y<P$tJ&B$9O-V6u!oKBWDY?Dt*n+xCm*>ZKT<jnlPddtXW>)p;W(mK4k{eB()
zUK{lB(jaw+p3WM7<lFI6Q?}?YBWu5}vv)HM4473jG>7E$?;*MUEF;ISV&wY8$oV&6
zi%|j$HcEk5rteZ&b#b6pxS3Tg6Ga4`Apw)jW;F+C-OVZocHktMTg<8(x??W>z;Rr{
zHF(3t!>rtq4kbV{DdC}y@5T{!dbn`qMBL$B;jhE3o5E%IBYbiAT<<Hhu2`>3wlXoo
zkNjizfciQdS`4b9r>%?T)s<uE^iW?fq6*zNRR!`SDQX<Aj4N^RU$1QKc<o=W1dceZ
zvXuV*F)G*p{R%0`9G9iIc5S=e%92Zd9@8Hl{B13tO*!AC;)Cy>k`j<l*e`Q^`wQ%v
zeB%2W$LGsXJnOiSc#t@d@RzWcaNnEOtWq~mZ&p?e{K2f!WHPG*7?p>}z~A}IYIOm#
z>R5=#ENoUYikMZ?VrCv*HLG)ITEeWtkc0&#&9;2!&24zrk*5lEqb}bc6!`XxK#B^1
ze%wIb;#*aoAQ(rZ+j5=T7T$*k2jn)@RMIG#F4iA6on@5!`YM=yP1gl-NOCBJDyW7|
z=!!o03tO=r2XPoTaT|{jgqMiGn$%`BHH}&MVozGLRfo+f!Y6+^syrx#(x`?m7>;pB
zP0(e>Pgso;n391nMWKvr7^<Ng{=y|BAv3}K69zznek>&T^J8Qt4y5tSY{Ne6hs29p
zX1)}oa2?O^97VDahggkbS<R|AblsFp$3CS9j-hqB82^}i#^4`wCx+i)uE}pPGG&#2
z%;lK#GMsj&KiAWj>ClzO^t)Lq*p_$UXOw3hEE(mL-f{5sE7b7&L6qX)a-3v1>ZjcY
z5Ra^v`e-BBw366>$B4&!Bw|E1Gwm#xX=A~xmSY9J;K%G{l^6N56EOvt*$yvU!*$$1
z!5n7Q08Q`;X>yuXCe%QE496%;!UC+rdThW(Y{nLB#WuV_GCJfUC&W06&qc&cWM&f9
zVFM21C{|EO?)W3A16?s3qY;6T988XbYCiL;uoj!K57!X@B1=CL`tOl6zW6BYQShTu
zG{P8}{D^pc5M!U-jky(bJz1VFyzUiq{&>t01|8hoGhyr7jViJ}jtGB8eCXRISYF!U
zwtl0&c0grJ8dKqtfYHQ?W7=!VC;hIJMTo@afI<HH^;17A(o?y>(^&SQYhH4548jmt
zhccRk8CZu6IDkVqg46hdAIWXTU^z}ga-Yj^%Flhqa7SijMJ|*<In+j7Jb*u*AQaCK
zk)I^<hM6e5Lp<K&Ba-n2u4Hj;Fe44pAp^1@2Xdhhil78ap)#sMvd1kLT+pnB;#Z8p
zEX>Bdf>zQSGdJJ^U-+REd1@JyMP*b+P1HsQNS^yM3X<>Y>bL!2`IyKT3^B<;awBCx
zGLIYH7yt9WUKx~?Nx*khz*&q8im~nLVX5K5!D_$vPHwU3D1WRls-q@qp#d7AF`A$m
zT0jbfo`}Iad_Xn|h_+~t4(J3aG?qaMj!rm<Q@9K-c;iMfLg@iB{*cloJ;q`@teAn{
zF$c@B5>f))fs{hsaTB+24-X)v(q~vonw1CUgHlSZ!Cl-#p;F|SC^djl8Pr5A)Q4o9
zTzrvdJfCyoF3)nx&r;9z)IKlcl&?PYedyyQZ@!px)^qPpj*~21o9J>`rZy|jZQ4fn
zvb40F>|x1hJJ*Z;l^xlo{Fq%|wof)=HHwtx*udU0986_N3FXXc2^N<(t1K1R4^*f~
zc3PP-4R@=sk5#FHRbv;bn^hdbYH*CzBw5xntC_V)&UHwhbqQP8n~k^4v(RpBigNj!
zJO((QBKdpkC;I0pZjV{|{q`7rtF#M`jMy&ru@o|XosvLnik4`L_UMjY=z~>|JzI;N
z*o9{ZLk!;GBR-=rdoCeR5*1Jp)ldfw&;-rU5uL4!W?=(PL4wU2nF+ewD2|e-f@<iG
zfsmj*gp)W2H-fncDxxy#qam80Ia;74I-&<8S|-CfhmkL05r?mEBCcFvLIK#1VxHOy
zc_fJ@lIOo~dz}v<u_UvUOv@%ANvD(IPaNf@DlhxXoHCzaby9K&mxtsdC-{|9XSa^b
z{B+p~EZZjZvouLfy--q_PII=C{Vc_-I`NSRC5<(fZICon9FmS!V-F-ft->xNUF9ZS
z6*tn?W~PVm7(ocZQ%Jh2h5BfPZP<a`*b7OMRVs5(OTr8^66X^mfo?Do=~5%1HZc;b
zJBd{i>^mdTdK(FM28s7D?&1ObA&GgZk)R8Zs5hfHiQ194|6=~Sl~K9+WM^p6fEb92
zj!5zUMfB6?I9`xxz_+gPZeDZDU%vlTzk25WNzeVB+dPf)2z@x0Y5ACd-rs8{Rr7-S
z7mn=N<ZfqqMT$o~we|hUvea5f4z|U{rmSj6In#&$Yf8##M$MrGnN};xq}CiNZOzKF
zJvk`~bRebSCF*vh%7b?((}{x@d+-^JJ5zDReuSZT7sr8ZY%SetTHFWOd@XWB=aicE
zIUW)lHH>G*%5>sEhs{IX2ixwHu%vO>oaMFc=0IAA$SGmf9`mpio;U^B_zlJmWHWZ+
zfUzUf*_rC>%n`^=oiTPSz}UHu?BFNJ&V4m@u&A+<ZJA!eP55^p)x2Ov_B;~V+3Wl$
zi`tOTXaot7-H=du4+)tHkkFY3384d!P;w$<B&3={LTd&j#12D3?G+^CN@Kj0(IlM5
zC8X_YRvA$U)$j{`#qanNes~CdpnkiBL2iABPI?i|6?++^%?JC~$J_qO{~ljV3MxtA
zL5-Oj*@`l6QzR+kM<+d*W*IEwvd#0^P7bn^vmWQ{Q%?T=l`0+SkZIv;%T!C*#qq|T
z$zI8x$krF{W>!CRr^LjB9vtQ9)RTmXw7sav;3XRLrUb@y9Oy$$3x)ccRn7&Bo}x@Y
zvs#4P$k?CyL4Pg|k9EIm8x<&x&~%VfL*uTd)V4z&?ygq7Q~HEXA2GQkAk(rr#UPti
z8ZFQVL-8vn;UJD9BbzLno&|-`7=5rB>yZfAtz@KTx3Z!h+M!zyDu?5lk$s+wIoO1q
zcmfHBXNZTHut<%PD2tAeFzSk-uwoXrVHbQL;dd87h($8K!kMs4h19)B>uH#gK+cHV
zXaNcE`B;SmIEgU4KsY2aA|Vmd#E6syM#T6qeU4~w6Luu*gJUk`)HZIIrD%nq0DHS_
zcO}mt-R<wU{{KvO-oq?atnKBGyn{0-!4)QCM-JpfNAy5X48=Z3$~gi_J<lL1s5m4M
zErukdmypC%!AMZcj6~&UB&@7Daaql(A2WM!5FhacBYvVBfDi5>-2hGn(GlIT3ES}&
z@u)M9QXZZ-h2lRG#rPX%(S49v^~GKsg3Dl%14dXGjmA-&Ks4e|cnDvDahQa+c!vQ)
zIZ?nJ+(VsVd<o9s*l;!&Re#}i%*D5;lL)j&(ese!A&zGDBCW=Y-(L7XmjmUk63b)>
z(;6(*)Bl;T=<Fmeb8RCXkkkB+lwp-)wlfF0jsgjO33>^3333T;32F&u31SIe30eu(
zYy_hOs|2Y8=LkqBN(f5mNytg4Nr*{kNk~ZuN$5z(7<Jb*H_TgYql!_MQ9GUa?MaOs
zR{M1$y@&djBb~XV$Y$g_mcSn&XfT2U4?A!WU*I~DqZDb77Fm!Ld65q#P!gpOjyI?}
zih9u~vXuqQEJYBWq2;ff5#cpr(RVbpM+`<RlJEiT#*i<eJ8r@crN)|7B~->~T*ei&
zAIJN!8%OZNcn&<w8_$8Ul$i*`AQmkqP$$P0?1Y-g88rrAIJ|KObth4;#$lX7_TM-u
zf;8xAH0m1m+CGFjUenV@af$Z-Os#s}_(Y<gV}|MLQ2ODM)HkrtC7q&VYAjKJeP42<
zxbRwa9C;BrQ}djy9ZQZB%+*qfXZ?P@LFTh~e1FN!c5x85qO_10m)Mq=mROb;mROS*
zlgN^Yl1P#WlE{%rk;srpkO+`~mjIW*mVllI3110U2~!DA2}=n_2}21#dn%Q~&E^wk
zo^1=|4nMAs(s8Mm*(m?)NmMR(+RHx)>LD14(MZ5&%$`iiipO|{R#PZ`5Q8L)pUR0J
z%1`5x7pCG5*sw{KNfNVhd^*_;X3r$Eok>CsW~S&YQZi=XchvixDi;30S|lI|3ujZd
zVK)w8#vC$I?7#suo=X^FFh*k>mSZi};V;}r0N!BwJho`_JOU8A5spNBLW%hl0ce6&
z=#81!jvd&82Y83~_>f@l<~k%W@|9npALBsj^jgpB8T;y+%!^2#LAvrPhm2&fFMgjV
z%Jz@3<Syk%Q7ICXk#n-fo<Dv|eLAUSmrJDoP28;{JxHWVgi2&eL`oz|1WM#d#7SgH
zL`ft`1UceH;zi;_;zQy>!e7E%!drq)f@A7Ja>zxLs+PrEI9kHF>{9Ap-ydg_7W?a#
zlM27S@LrTWGkBuZ$NopNKfa4ttKa;3BsU-Ed{ZaXToTY9@da)R$Qw}*MNtBk(F85f
z5_51Imv9?*a2I}ffoM!&%Vq0-hlxEXfLdq<PgrHQ&fp1q7LI}Jo$TQ+_Ptc@O9=+F
zSw`Wqg8UITuy`dE34B4uRh+D%FZy9Pe!*CjUd{I+9*Ovn@Q=Z2EJh~qeC*SNfcrPE
zT!>7FOgM2g;b4OFFtRsc9dovXB_xTK&42$^WOC;lX~Dn2Q(c&5Y#RP;%?~>3YhP&y
zugF;5=a`-}p1E`s%hRlqqdDsP`mO&>UQ+r0SKjH!AOD+z$w$rg((;`$mOrhh-_o;W
zL^?NRjm%r6O8CragR%8hNmx3#C8#ARyZ%90x`vwXT5{O+oP2Gh7~0G=*e#^;tsJ!5
zDKB?YitHh1_i{b%0O{ipsrU$GttYRaBwhT?3E63mkh2tR=eTxofvfTtsrX*usF-Py
zw0n)GA@qeP-CeZf;*|01*7q)?Ilri9`^RD$`=Y(+6zMkl``YhaSm;pyS5@I(=O#HN
zZG6NhxUthF$j%SIC;~tNVJ#LA5E2-NFpmIPge6#t<ye8$IDo^rv7UVR9y1RiAsB|f
zgrbDx??~8W578oo>S;n%LN*c`30(={a6H{ceoRP9XfJ^~Augd_3iGi5M{x}4c5#Ij
zIf;=PsJVwsrztakVJm!a3m@?brHHnc@J13O8r}9$vh3&mFcYQjkf_aq5=3uvNHllB
zY@&J*cH(2KewxESEYzR2cw~ve`u#;-x3A)n58iP@53#h{W1o|jd-UgYOFlA3GQE?D
zme)wY|2oEaMdH=|{Bqgm_Ty2<^uN~pU<;Vca~^GF`*uN+<}oZGd9J`}Y{FkS07<sz
z5O%_ze4CMkH<5(5VJB`wl5`NJk*sH7Hnw61_Cb>SIY^S9tdl*F;BTb;21fed!ZG0I
z#n}Sx;{hJR{VIVC52QxE8=OaBC03!}9cm$%fkh~KmkmX8^amBOxWq69nyb34XL+HZ
z<CQ@F*S!8Z&MVAIUXrU{J3KdeuJK&%x!l%jvSnKF|Ic9M$93D;$(G8)tI2`v*w_MW
z@Lq5GhSv1qn7PL>aG$!YKbMN}_7PRjU^YCIQvNyTZZEl#i^6FAidca!vPN*OkL`#=
z`PW>YdTrc}wz;E)%heU+s@Jz(lgjk56tU@1bbnTyJ7{*Z9hz-%wVj*9$!rb@n8AM3
zrEwg8vRx$~QW(Lp4ei;64(MoXOJ}yDi?K~RnI6Ou$o54b7V)Uc_SJxF??g<;EX>9>
zY>y!J&oOfq*C9KUiXBRW^pKrvfez>lc2ph5Ib1{-;!*q!hbtPQ7Y1T5CSxv^VK)xL
z6N&hUI@U-^NOZ$!{D!GGk4w0M2PhC_oS1Tpf5eNY5wv7^E8=>Du#dg;yyG>QUNqL6
zHQwcT_ummx`n>AF9U5*~Y=@>=@>wSpuS<vZnFp`!(1+u8-jI)~l6l6r<q~;%$ub`*
z(k)gOT^|Ng$!1yB$W+&&nd&A|DYv4=(^c=_x@{KfwK8ocA?MB>O9)A5Jj9RenCy6$
zjf|Yx!xq?&XjFPj7K$rykLI)hf5H#tVn~m;j<T_QAs(RSJK_}U6Nst=v$O+UEk!%f
z`f_aOY)c+%E(y=VsEq26zdQiLF%q&BS8*G6AzNf-OVZ;9bVfIfz<5|O53<F7VGs7>
z1zw>zTU`pHF)o@^cZ!*_2to)#@f6SS9N~C_NJJqTF?feKyvG-Og^6HDhYZMx0w@a!
zrfR5x+NgtiXl7;99Bt7K?a>K~A>sN54uap}_yNv-=d?`aCR({O+J4bh#<Z>)78Dv2
z7R10}0PP?8N<)WN?lZ*Pzi>bKzV{jKt<?$PzUjK2de~OYu+*`BEZ#yduFcEC5Tu@5
zgA3^C`chr>^vQ3n^i-!#)*DIoTdI?G#+%A!9)UL`Io!oPJi=oH;|W6X6t5A5FEK=d
zg)~zJl7_0HI%=Ud>Yy&_p&^>0EoNaUB+aeCeMs7Sju!|=1YRQ=F?fe~B;XTLlSXq`
z8RbF^NWyK1#%PX~Xoa@uh@KdZUoi$VFcWhzANqb1eSQ_mqugPUG}O<t4DvWbK#*^!
zkGGHSm2blZ-!m6{PkJ7zz0XsIUHrzfYnu^6PYPz#LEfiyCOthho{WK@FI&@FPq(G{
zRZqzXYzJmpN~P*P>Nif>y3Vi^u=Z2`j4nrW@H;2<*Pn5;uIxw!5`A@L<2Pa(<jDPi
zk4P8Kv4)(;g(4`5GN^zmsEYb%f{yV-XBTFE#c0H$EZIP9)WJG?mY}vX&G4QtLOC=+
zQw+m!{DR4tf@!egFpl6T{1Jdvi5w<L)RVCl7iuuN1RWJIuVe@deH9ucbNsgD8{iW|
zUx{a~cwX7<x!IG+YMCsbzkKF$D%*1{HEq-9Te3M%PHS5`-;&SPVwR<@ORotVY;y?a
zu8xe?5kC?y70BWA?#QN8{y^A$B#%iZfqZ7yzfdPq?kWyHJGrY^)N*!L^YH-rT-;TD
z7xxtBs&y~&3l+U3x0Y^`SN>wAO^Mn3nE9=ZLfth}{}R&JknHAVT)|U3gKR)N67T~X
zk_Fk29Ys(SUZ2QRAsg8etuPkjumnqCV&l!oghHRGq8DbS9vYw_e#L0WUPdAcS=igG
z$cB<Ah0|ZzpvdQuA%XYqc;C5q{vQ3~oH%&m;EsbQHm+UCuyMi06M-`WC(Il%Gf<Mh
z@sCPs#WwL2Uw4}XtFpEw^DV`H<hA(|_wm}LDqftWWz{E=GOu5;J)C3tT`oY#C*){p
zUT1)=7?+sh&pTvEe<q#FQ2877S2~%UGCP}RxC|YWp3j(_zP+l7$(EnNDB|u{EXNA0
z#CGg}#O*ss{KliGl?X0|mS~06=!sq!fPs*NFbIP&1fwwqV=)dhFcV8~8fS41=Mjl0
zyhSu(Ac^W7YLK8>)?_3ptTyIi9wfC%>G2{aD25}zH^4jKthcAPo;?(>Z`Zbf^@mm;
zTCje``hY{S+CGq>99U?nn&n$~rJ3rZ2roibns-i`XBn!G72DwXJg2*Bz9nagz!A$-
zdHHJ#a1Zw(={zs#+(_&8i>cAJ!<WsuPSjmwS>;qbMb0+AUvC|Ex=W;Vsf!cklGv%^
zRLiB5>G&c`Y#D2Q60ZkQD8BMfaRsuFyHYPKN)6zwo@SQSLUPVtIhDFar&+ZsEA_0V
zQk`iz{zg-!^0iSaroB>KDd6h$r6G@jG@v<HseoT-ZIPVSHcqK)WT@F^Dm8t!Qmf`E
zb)DY}7O&zv|KyrLY1$L4wO^@y+*y3=f}#afrPhTi)$pxS<y@UqqYO^!P;MtRp^}sG
zYU-rcbaGN@exg-|(N1cj)kz&);iP76by9yFc2aGwIjQ!Koz&iNC$-YmSvAV!%w1m2
zw6W%_!s|GzT+N-8rH!-l`Po^W8t<&Ev#idl!D46iv&~su+w82`9dcGZPdKZaUd}4c
z*ID%raaOyMoJmG5s$3=)Rj7!IT2k3X<!kDqa(8f1^ZU6dr-?3V{9G4xdYy}Ee85Fz
zx#^-t2D_;8(Jrdv7Z;V?;;PbQc2&9ZxvIP6Tvho7t}3LXtLiq;mG(?#x~lg}T-Ag>
zT-B?su4>CMSCx3xRqY9I<;e|K_3^zcowU*E+YfZYT!`)h>(Iw^dwT5aZ|~_|y7`vg
zprtQl>7iG8U6md(rO!j@OiubJlRmAadm-s!Mta|nJ{zPBe`)gFDs5*=>&(&~ur%2!
z?TShhn$kp}G<_$nr%8iU(%g}>T_bIoNOKX=l7T!#F3%&&bF}g>rab&74}-~bGxBhS
z+@voziObEka=)hB)mN}EC0r>gbmgd_HXt*UA8O^-Ke?_h7p>*Wpj;r4Q)oGnl4`Bg
zh@@DRTw1acIV{NP6@jOI$85~OT+G7)EW-+{0)a~pc1o?qI&8ouY;m<J^%pbSumiiW
z8+)-I2XF{S;0a<!9mh%hjZ-*-vpA0nxQNTR0xw*HH?HF*d~geQ;9HfEAMW7+9>O1w
z@ECyz#uJ3%DV`zB_U^o;NV_;@<B@<we85M1!e@MiN~M$&NJYvOZZN?e7NkZRq(ge!
z&<oUiax<F;`A`4_Q5Z!~48>6brBDXtPyrQD2~|)PHBb|^P#bko5B1RyjnEiP(G1Pe
zk{+5>D`wiDElBOEgRRw{9yzT&neBz%=!1UXKu|wn0Di_G48brA#|VtVXpF@;Ou!^?
z@Tkd{ifOPyGQclcNHgS-9(nm}L0&3Gu$CgTDpp>p%(UH~P)Dh|jg>k<{qR~RrK<N-
zDv3JbJ}$xjJVL2<<a)!VDz)Tyr3NqHOP3LiYe*l5*}?nlypxkEUC2od>fxj+&T~@k
zC!N$EK~CynYG)Nv##vQu>#QD;LFL-utZtolR@v`4t921%RyW;T)XwrQDx|H83LEXB
z;x@Rbt5;pr%J(jG6X>dZi@B=VZCusrX|AdO$^SShyF4i{XN0TzoP};!%hKIAK_5Pl
z4s7S@{_1rP(W&UdRl3xaUelz1Bk5U4x(<-Gsb8kIH<p;w+Q;53khE_h&jZRc0dk|E
z+?OP`gvbxLau~}`6moG_uGPp%vefG2aGgbJoR5WAgvB85Q%kWNE3q0j{E7A0h|M5x
zRMzc`c480q;UEs<C{Exs&fyZsMAZ%4#$DV8nW_px2%h65ULz9Gcn30Em4sw`fir0$
z70mP&t)wx+w8(%=$ch~J5qXgxg-{eFQ5uA}Dv!#jhUy>}R}IhvEzlb6&=Eb*7sQYn
zjG_1iBk7-5{mRT3jK@SwL87x#8C}>AbO*^o&A}G7UNR`jSLA4sRR24EawFAa2J(=D
z*FZzGC*>1+YAU#Tp;A!|$bvuNiE~y)eMzxvaTQrVII9krj*?~<H3Vx=D6Na?jrkZz
zskt5g$nc|!YJmwz{m4btL@&G#cTp8yx~P75{K`dTj&M=+knKlT)dS0Ls<5lFer8m@
zh^yMv!Bss&){c~(b6i!`xvpwBrjxQx<0YI)Sq(4_>nRNU;X*3gLcabSSr53XfH+r`
zmi)64>XL`f!$o8y5wyTKY$Pvz1h-@gi-WULsR(2y90x8=rMBW8=KV#t&3K0oTj|Vx
z8^to-Y^V3x9rR6(d9*Em9m#0I^^@V4jA=Lmf5=se%aGH0IlInAp;rVgIrSSG-<Wd>
zW=tGT4e%=>k(G0|k{CtlxB}ZzlyjC==!qFPhe$|u&vwzvlGS#>%aTn-scivXoT=r#
z%6-I)irf0jTnsBtFqhY<N;a~u)T)nas)nnvs*)<FDyu4t%c_dZ{qHrERC(K`Yy6e<
z*DUp|@|jAiDxWH=$}|7Z&wO7~KE;}fysrx1UshFMTrI^K`L+stpZxubjQ{y<-`9Nm
zJB^LamQ}JLW&iVam3XD1{zFy%^>yFZRJBE2vuy7_g9FQ#14@dE>Hji=<#Ze)4jGsi
z6R1m{EK1h3lFyjvL!lWx5iFoD77Nd^SLNEtIj&2GkWW(8Dfr3e>ut%LuP)z3Jx$f+
zz$ANBb@`sUd{12}>UC4YR`z#~lGd4Qj^u7qa><`hX(r3*`ItjS=EXd|<}RCagU#8@
z=1gL9KCn5Z*__2}P60NjFq^YoZw}YvzEa95nvoxN_SX!`NsVpzvm0F{u$11)VthSW
z^pr)GD%O{!W5!$K^;?fS*434DCmieQ$kIv2x(2fJx3SKX?wDw$-&i+RuRHDdoL+ZE
zucQ9&ssG?v<E<6-m!310JoTSH@AzOX`O*uHb^1#$IzFd&;*#;sv3f%<8|%jE&s{N=
z;`Qge>`PYVso#3l@j?AH*NnGT)PLUFu}*LIbz@z;{@e}6I=$I9jdh;-5BeDEJoR_p
za;($uylt$r#_PSmW2~(CX#jiZYpk4-BujT4>psYmpRq3aqb%KXta~p@_l<RD^yeNp
z-l^9;G?u0$$UFUw&m~*qWii09GEtTu8B1sMAAIb1t6mpqtV`Bk6J)HLqBlF(@j3km
zpBU?E>UV~)#ND^*jDBaR@y;plt?~z-8jCgcc0V&dct-!h=Z<xHDa=?mMeqF!V<}mG
zF5GzM6usFm9qaTTd}XXl*6SjSbyJcDSo!m>jg@Egm%cGp)=ZX7i!_$b=)H(?tkds&
z>-e00XSA^{Sue#n*3q3AT?ILooMq{q<DFjyxLN7B##lM!v;4t$$4dRy1Y@bDi+u3C
z<DGgb(O7qeub~$QV_i-Cxet!deU)_|jio8B@-3f?cP7i<v#Mkkb<F55{p?t&xBH9n
z!DPN>6W0;MUHrJhE}T<#aX62&7C*>YiFGgW#_n94vpN&+tg0p3bq;k=iBDWrnJ%e7
zwwI7-cat2-AE{jIQZrqbk=_NV(dN%)H;Sn!#My93!(yhZ4ARlANHFxvLw{kYl+SJm
zQ?UU)`5}GRDo(3~^fxQk!xydv?JP|Hs%MwcM&}o}<40#DGdM#=s%3WB|Df#z6fl%5
zC8fcM3%4!4PS)K7o4AL31fPf@=)_5aPkbTh#1?{Y1HmV*5PX*izS;zz=uYsNsQy+W
z_(T$+C#2K(U|3w}3dFF5(2FDV3S}dn8L2Ub5(H0q!%C*oZ?U*)_{dbuAm~I5f=i4v
z>|*Li$O$(>N{le<W*Q84LM@$PU%hJdnOBdlRtP%rkl=eq&<QiaCvp>PqL`ta4nDK(
z(=3l+C(8R-ZaKRiN<Y)h*6x8Ni*4Zp>OFfOGOESg2}T2)t<9)Miz*bib<hY+P?X}f
z0$v~reYjXUK;-7^5;==0l^d5!bHb0oTqYZegE)*gh{u|8T!FxSJcK`j5RKS!oLv;+
z?6Nq@R^*HUVF*X=N>tR*72UB4HtfJIJj5f!;2pAYjV=e4VKuB(s2Jc%Ri&=NgEQDP
zqB?aIEWxtsoL&4`gA*?7<^taVWU9p(06L>9+SO(rX*vB(kLGBJ)@YB}m<uml!+Rv5
za9u(X-OvLIun0c5jSe)|-^t2oDVF0Zype>D=vSZ97VN}sgyI=;H6V1*3a#PRkP|gD
zLKAdt#03IO#Y|Lb%=s4%;w-W?;n0PpDWQ~_(IPBCon~CAK#}HL@jxv!#Bhwj0USaU
zqEWg9(S}qlsVw6VPGAvLrzN<Lhe+3&P(@etM&`DhL}G1Q;(s$Uj}U???YMM;`t3=S
z=#IWvhb`#Ufn|7fBpy){wJ`}(5QBFZ*@=@ztj87{#9{o>nad$))`c@rcz3Z<BV@+h
zmEeE}GNA|hqCW;<3Z~&Iyz#jkmzhwxJJ)<L5x-#yteAy4Sct_q+=KIVyg?KebLnI$
zZb?7Ecks3shXbbdp|*?#SOn*vxPFDosEQ5Pge};Ho!A5S0c<?7BOf}U7v^CZF5@cx
zUvu{z7q!+ce0)tqF$yU5irBkYu_LG`qF7MCioGLBQ&C1#RInf_#)<{IN9<s4c<cr2
zy>}El*uB31=ef_l@BROI_4Cby$;>3#dnW_QT6;ST;(`@?F#zT`CaaM?nBqh2AsmMI
z3kirB$|VY%!8te$r+RP-XOL?ID@QxD#|%V58A%l(8Zk)06<Ckr_i+?Nkx|rt9cCJ#
zE4srQJrRsaSc(;RiWjKh$6*ESiqkMmM>N)B6W-t*hK}ZH6bkyYB6LAFyd1;j4_J<+
z(T+8<Ma<ZuF`8jArs5PX;Wu;vEQ1p!V=7ML9J~W*s927bc#LPL6vT-Qp}|xu4&n&D
z;s=_9(0I*EGVl%6$8lj1{s_R(@$3QCVIvOW2=3z%VkdA$#8uqDEj)q}%E<~gD1vry
zN3n^VJ1`FmZ~^8NCaouNH4>+A7KSiRDu}`y%)<g4#1W+91NerdLvl764WXS)oiPj}
zu>}cui}(113@i!fZ!p}PO8wuP%2r2kX$sCWIpLr+T(Jzx5gEy$1g}{ly)X#F5rA=+
zk0q!$k4v<$j-lRhXCYrUxQFK`9m{tL>`(<mW7(Qv%nU~W#$h~+OZX6kViL><$7{U7
zo)we?Dy(9q@LJ0^BPL)X;;{}z*YTwUkM%Te=r+*sunO_mVP>)$`|&r9ZQ@wPqs^2E
zmha^7#5U}P_dZsHD8#`17}txj0&B4MET4tC*E!CSj1vgH#SUN!W@6WEJ`d(SOb+8H
zj-$jK8VO3FA}XUQYNIY3(F9G=0#0y&AI4+dT@FQz&tQc}{mC_b^!r6g!;BfYiHE<a
z|Ir4WjKMB$d+kA>g-(J|E0<0j@D}gz6Tjh{TPLk>HlI#XG1yusLy>BulPg%AUnlWs
zSU^YLAvzg|!O#`dNgf<2q?6OQj+=$}Te?MIowUT^B04#W7Df3Pr*H;&i|ND)MNu4`
z(G|9(`5AU)bYhQERdiAY6{_o`5-OtxoZt*U_~QtUBMs?hCdF##q$DOI0>vD4QXZ8W
z>lm*`CzG1##EhHV2z-bPFP-SUb<&Zmk*9F5mrjo1I8Na-E}}_qN(#=t+)zXtxFJtJ
zZYIJC<^oK5p)Y(f5XbR1PU0-?a_8{{N(^Q%;f)?RHB2WdXgypfZ80oZCnN9;Kj1fx
zJ;oPg;^}yuyuk;2f@y-zEV(D>q&jLM60@|QL-`pmCh6oA3Wrhr*nrL0hXYtd^({gD
z$vSa_2RdUm=Hd#j!zP^S!Vc`jE*!=2aNhhkGpV=&+bKFJgm!R;AI75eRO%LXsD>J-
zjl?K61VOWOG67N1I*CQId6Wp2U=1Rc>0~-)U>+_Z1!c_3by5};Q5msN;Tp$Ap!!Ny
zhMH)IXe@@;YMuDtIbNdX8a4<G(FiT!f_7++pYa?$c)O9K3B|V2=3utoqm%sDh8_5v
zNL|4yiDE;!18f|oAp+A8jj{(>hKi_yV1!^C!Z8&QD0qnKLt`|B4|-xX;tx^(y$<W7
z51!){+>TK62*x;6IjWPYsD^s*f;W879|JKMYq0_G$C$^RWIhwIf9oU;xlZe(04ki}
z$buJq&X{%bm6`9@e}TG0GX923DlHq+F%wm<P#uUw6lP&Q7Ge?ZT-C`v%)6$O7|h2q
ztiVcixXwzk|F%vJ!TtfIXJ#@E6Y=O7hX@>>bL?Uj;_(-@!R7@G6!-8D&+r=2FIgde
z;y03BbA%w~4FLgooK71-y?1;rmLVRGVSddd17A_)1I3JA_=5qzDPB}F=%ohw=hn+e
ztiuKrw$w{mxN-xpBP!(6OJ#Jj(n}ZkBM1$OaC1*nTrbXOTv9Jhv7n^hEV0ZqDW#WY
z@Zk^oo*03V7=>Vr!vq|_Asj(6!U%JijE3d7PJ&$J_52O3mwp%yrGj4ap)iV|D9WNa
zTEMA-SugFF2|@_=;~+*?)XNy8;Vmv#(#usm#A8&f%%0*FZsQJ~;yGU813qDHRlP)G
z5f-CNH8ud_YOvv0VrH@o4Y~i>2>WmVmmOFka@Qev152<BMeFLNI6mPAe&G+M*3(M_
z%GIYDVA+tpM{_t~0w&@pj-!wxB?5CS6BY0A5mg&;TML&O>m?Pro3a6j!2&dB#>V0-
z&cWD%Vu!1fUfLqJGq1-xyhor5rHiyydPzs#)>H}lpkHh1Kd24GfeieHxaviZys&~b
z3cwa+a16(hjI(%vhj@fEtZA#4O(?}xjnZfcM>K*HKH;<Wvl|W3jryO;%rq=+Pcfs5
zJ2&{yl-tqG;ek#l-kDp|sDf&!j#`N6qL=yD?X8zYxclg(1A3wt2KUm-5NyXzxb!7P
z2bX*)VKbAEetMaLM|gs`{(4!DDg#*&s-qqfu~++f7%N6?)Wy!>v>7xS!3HB1OEGJt
zUS?w<79rD5FS^lsse`7d?oa(YFbND`2JHgbdW;Fu%UA?pBEBF4nGkN!2OtnZ2*WoR
zLfA8OMCN!_G=Xb!p?cYZ`V*-F<eEmqLjc0jWd`-%V}@RaMRBq~A`WB5EDjx1ovjxK
zM9kI8Je;4Wmy5{2R|LgSdf0_MSUI1S;`CzL25PThZ?O`q;j&UM?a=`q=(N&IT{Gha
zAMA+d_=m#=iWU|d^^zYS@Cjo#vF9kcg~o;5Nt}!jyO)(<#(p*&3$YAElW8}&cv3G{
zQ1TSVKXj)lF>E(8*@=_5fS5BhM8sho2AtK)Ak4-B+`=6!zrb>w!Bu!)<ZyybDsdAy
zcTF!T&|l|}MDH7V>5FyPfas@eG|caqe1QHL$1);b>SYd6aRWE;3a{}I<z91w!IN}7
zLGc{2?`RY6Ig~!=39;rmyg~6V9D-;8XH@x0gM-ZvPREd6w1;2RzZTqa5hZdNq%`*7
zAc}EMeF@Sm4U!HI?xo*EF7Bg`!+1=GWo3idVq{hBv121PBfXkI-lJ4agV>`N`XCl6
zl-dT#SKG`DcL#$MM*?;sKanQ3xK-C6ci>mwApQu$G`wqR;PM>HTnus#Q(X-bfq88W
z5`)E9icxNa#9=9xV_AEHtUw=k1EU%e&EjF8vu!4Jgte4IWEX=(!^P7eZLttbkc`u4
z(9IxC5Q(|4?aszyDOO^=mqE6mvA025zz6-1f@^U1AvO=4dm5xW{9z7eG8YT5u9rc!
z;b?z@oPucpAq#MTBhDcO6$cxn1`=@)8;4VR=sCh51K>8&Ae}H7(^0~Y;6XV08>A5$
z!v%?B3})FkhAkb>oAC@UFh0~EQ&3={K?-6n<{?*@LGqwAT;T;Dgiwv+Q7xPe!@~%J
zJjT*UgRDV3{z4`sis(fc(IJXAc`$Pf$tXORB84LwBLm;iXDLA)NX2d3!7~(DMngp_
zw8N(5Q~?$ep|l7pR-s`WdyXSG23ctkJ<`pqX{AV5W039Gf&ECvNu0w)T*75s!F4R(
z#9rYKbeq`-lt7*>v<oc3GOWdVoWMz3LMr+taKym;ahrh=UpUNm5m$x!yJ<XdLVI|l
zKL#KG2}ndLZesKvg9Ku3B2|Qpy$1P;w)-g&xS=zSA7H02@Ss5kW7{Ei_7L@-_b|sH
z3ZgJP(H&m!#RmL^1nk1XBNQ#J;U>P|E2<qeNKGujBJ9C_yu)WG#|&bH#>a`l!Odi<
zG1*Mro}f4|2~!Y-Ik5hlje--L5s6tSe3~`_*E8%L%Ae(kzz__>ZX}}nId%ZEF&EFz
z8{{>tF3_-17}d;7>Z2hxTx3s?d5IGY`lV7-u(-}i31x0@7-0$G(Dx?Ai7)sLyE~jm
z(ElNIi;vHle?iq@42&=NES!b&D@qjR?M!xI4+7H+G7<8|Ah{8Yak!3~2z$#h4Yzbo
zCg=`t^gwU)!$1tf2t2_vWa1kf-%<PsLI~pDQ~w*@(=hNiUf>nJ{GcJh@QbzqUkt!;
zol!2JT5cn;S4OFU+6cuYBv=|{JNDxsmMTU%ur<nfD_(<Gf(2D5#8$;1xwP3RCz+X3
zh6VUt%gCiJqvSzebcZ*r9gLD6H*pu=@e>mXWi=z+)hHjJZ)+42`eP6_Vi#_9Fv=^8
z=xCHcEFg}nC~;gp%-%-ni}47<b|0hc!TTOY`GSHyjZzHZgN%%WYLq2|3GBjbfA$6{
zR^#y)0=)1PAJ8qpDE;6S$|K^DfT9yAIn+QCn61KC0Xl~pr7Hra5&?z>M3{{ty37xg
z5s!7)fX&#7?RXt&lsEVeeUwpt5QSzS&hgb8qXf^TS`YzO;vL&z_B;Z>V~8w+Wem|}
zu>@=`M)3tkDTT;|ya;m<g9TWGWr%})tdTwkDE>u8M#(eEki|wBiyCXVKaS-Df5zeR
z2BTa>#{{EvLd-Tk3#o)HU%}VIZ1iF3-!GXx#)}iwBify$G@zsyr7&8i5>tnsmyOaJ
z53W$$c#Sl?!+ZRJ{wjM93s@o#6y!xdSiu@L$d3YMCblSuLMV(PD2iezjuI$|QYeiw
zutQncqY^5k3aX+Ss>5)d6(R=9aRyi6Ppow)l3~8cWc*E@z>HfIKRVu~$k6kyQTm_?
z!PwPdzE4BMst2?OxIHwAJMQBl<~%k^H1a-WC!l}H(EuytM<9Z6@U4+<|0%I_>R<nk
z8}lD%jc9{T2t@?Ce557A3q4@{iIRdH%HaeWd^VCrMipT_HlZfrjK`6Ti%7*){DeM(
z4MH$NGN}Kl%;d|YPEY`aP#X=Ajt|KFm3l<-H=~@x13ZS+cd7}NKiO+^K{w1tEH2|3
zKH>-R|6&I)45RVP{D+2zRYF`PF5?<%>P*rAp6G*6m=OaNhj1L9@fCUWCb7XPtjAlt
z#{nZTnkZy4Nm2B}Ky1e@nBOt^fS>q-MivBdq7B+17K`x?A2FUt;0XxDL`*^$%$SUD
zOu<x4Lj<N{24*4>QJ96<Rz&yCVP-C(F%L1Aj}%;no)CQ#EC@fgf;9@l9+l7v?ih+u
z2*E@gEnt#lcoVWb5SArKC_z_r!<LdJ*;<lVn(?K01GEHysW6qHC{ftXB*jp_oQckg
zO>|Vuo3O0BN!DRa1s;*7BEkDOT#3+Eco7HP18cArVI&WPBbEe$#YiBDU<dTXN*m2g
z+{h+yhuMJ_Vg_bmKMtWAfz;k;LbgG39LEXVBe?n%Hj{O*6~hR!9*Izd;a3wA_i0R$
z4>s^X7mRiyMFzWIPGs^DX{gqchKKnsY%M%nvp0Bx=P1&~B*k$U$MBK#g)gW{3WEb$
zqb&ww7>X0+T@oeSsV>w*W4NOWyxpn)KFloZV3IgA>TKfvzeyf<A(01}_>PiYO;QHs
zQ3;h%4b@Q#b<qG(gp$v}e8gfAmS8DXAP%ds2J3KDi>10oL{LF*>Kl)IO!5Mm_zmen
z!$WRZAp*0o9C28UHQ3SHB)gG_!zj_$B&G2;PU9?6(W;+GTrn2oaLCN$H2U^8Nq-E$
z1jJw=mW*I!=t~Aie|!otale=nm`Dj=)l@conn_B*4rL=KC9K0nC^Ok`<VQhxMbS9%
zVwOo>!~BPd<!rWSE=K{PFb8qbd;nZyXrSnU{uqQ&XuH59L3p!}a|1rcQfkP(hz18+
z*rOI2V=#u{5uW3iYLb&G_5W@$XE798LOtX0GU^^Lk%oqGv<nPeN$bX;)f6ktYbXtT
zh7!+)VH5%ohF561mLmq8@f()wc;5zg5`{LgzD;J6+}v!E2bi>#;~(E337mj%2c@=|
zq$1LgffYL`8PwTD!^7|Wy#4@(AQCX)5G4tZW2_jnFbCGjR0Fo1q`e^Q6lX*;lTl|m
zYatv{@d9t~1>a#fN3p^lRdD}2ha}=JupwA*krs}psk{#!4>)HaGo8~q%Dp#91%!Oy
zWQXn8kGM~i#wsRhpV@1qekHIUdwx^Qh$Qkc8XkEpq&qI!5Lt_LwidDhLMWRK-78s0
zU(~H?A<c2OhJ`%Gs|JK|qI)w7>502|gmipD&E`Z9)NO7dWm{WFC8$_|Gf2S?=-XIG
zMbyM;H^O((sDp*HLRu#RJdufCsNTgw8p09H5rgGe*p*m4BzaoMapdu`kV5F^W44g~
zJ{A&%SeSYcn1{abMKHp#8fy@b1nk8=jOl416H%_0g_K7H)WI$shM_m%kTAgpmv9^3
z`trQ5h151Pal~*0p<X|NF0mHdkkp?ohW9`V8Gu`O0P8V?ETT1B(R{3hw8N}G_8Rx`
z1m}VX9K@_((jl>QJf96E%z|;}Nrha`WCQL{63=jcG7+WFh4UhGm_q$y@l>h?GpAEp
zs5p}<K@6556<6>8k5M4fLW*EMRD8p46px~`uz5B+IGg(4&deSp;vgzVTS!&-#!xEg
zzlcYq;12HMB|hLMe#4sZNN2dg2Yum-AxMm~kfV6Iis(~3SjRlx;KMrh_!BeV;d77%
zf!rxH5RAD+qrz|GzfG|{w2-Zcf5JT0VJ9BoC0^k(Y@b_5DSUoQ<HX2x0zF}$NgKiY
zuf%a86W`2C=6<)3d6@o#N96fw!7q~*(nH56Nl3?g)Fwl<4jj=KyNry`gpc@)k|qYY
zLLh<>h1vLypV(l*P@!m-n~|1ak(W_#t(Y7wz^HuqhTk|<m=S5=P=p}`u@MI_peSQg
zqD*N9Iz#me4Ce(Ei&4HB!+v55w&GxQhWEmenv9->lC>Bg5oyT4wb~2;_pmnOVmmMv
z6w>hx7S4<}g;Q?i;9{^hufdN#477;B<m3&5zCT01;R8P58-5^YFymBVHxf~92pfk&
zBN)#QL*R#tBg~8m$4sG-#L;5rD2feh{TUP&i^nip8a4&9SGa^!+{A6@L)ZWe31fpW
za55W*YvGJDhsRTL$y2<V%3kB;Om-5(BG~{eH#1p{^HF>-n$2clGAzYv)QqOS(F*SP
z4I%JXi=Wm4fF02oBQY8)unJojP}fMu2UJ){(W4u@p~YO6h50X)BEoT;MeJh6ro{3k
zlmO1)0)9hCe-2odJ(znWk1^PTBbc><_aSgKLj)od-|!Q^VOm3KHA=0eDo_J;*HZtZ
znF+;xJjFA-LX-8B2A<&sw1Ky^LASeZWiRkLfq_-gU>l`?Gdmbt5GQu#l9PzqMPd)4
z_V9?#iM$ux;f=oNmq`8hKFts4euf25E-~;S4&x{?@D){4Xz}=G5LMTk97^bfE?A1y
z_y*H0b^vXV{}BV!q40C|9{1ibz9II0VlYlKlbN5{N@ydZ4MVXXv{LAGbfb%A`rP7#
z;`!)91<$PMiwHvs(%UK87AC741IRWX49jBlZh-u-#gEeT%2b9#^RjfKf{W$oUkzO<
z&@D=DCX=hu9S&wyBi9ZUNpGzJEzNZi%G4x>4psz-+rXQAsUB$Flzvyx9-i<<Uktz~
zj6pCaARLj1fsr6{OZc}Y6+VEOrX=~f;TSGqgd4p#LE7_TR6z~6!vme+i5=LD3rIm5
zcRmNTI?&}8wqYlJK{~P=?eG*Y@T#Mkjz^fO>cI+73w1F8VK{<gNX98xb)r~diy{~W
ze~d*iZr~2?;sI)PW<yXH4d93-7y*A2F_V8<93@a1b|{A~=#H=WfnVUHEjk!s0ZVA3
z9B2aoOoSPeF%?hn96p|;L*g>7;W}<1q8t5O!JOKiu8;5zACcfivEn`+A<CPs<e+sG
zuXPh&9@WqbzVJf`HX{KCaT4G03w}K*9h^rBtb0*<(0YLP=|%kyVa5+Dp>_Yh69<rv
zPtf(IHKPSwP?c^IYGEBVV;>IUFpi;LUwQz;7Hq=~?1rT;Ifn>9F!thrubGrnW-<}f
zkIv<gjt>|;fGx+Kfvf}va0JKjH%{RkE+7StgE%748f`HHbFdI9Zr~oC;ssm=(^$<+
zI>Qs|k$~;kh22O(%^`Gggy(pT5BLnnp&U7IK^sJ2E@H75cku{M@B%N92KQmKFL=W2
z&BO=2@EY%tiSO_o&Itvh;ExZ;#Bb<Euu`-|XLzG8`r`<W;~Y|P1=n!{w^4Q^?FcnS
zQvdasX@cfBfa5p=tvmNFqu4n3VgNQ_2lnCsa{JNu7i>`sb|{BQFk>d>A{L8r4-fGQ
z@9@D-tAA#`;44~;rlSsYhYz-5JH(%r!5RhNjh+~Y5f}x3oW?~sjiF@Vh7K4$ma`$g
z;3pyiINRd3naLwO!E<y7q+Spl#9m+x5>O|YUd_-HEubO}s}PU1*oe(Yz@!j5KgD!J
zA_{Xc4-0W*93>5N<xq}iIG`SWO=NE;QJg3Vty}DHY{E9|!CqX!b*vAgl&}klc!($H
zOv!p;EP`+qH?Vp#8;S(%m`wd=GV>j-;S?9PAOSO{Qbc%(G#r|iTaMxwPT+n7--LL9
z*GNM;9H-NsFcv}BgT2@=gPp(yT*7O-nZXtno5|@HrD2E4s0vrKgF8B+6FlLKo;VOm
z5h8OAJAk@#`Km_9Jib2=hN+l=*@%gu=n*rYM=Zq(Gn4rXX`xtz6^O%HY{XV1U<Y<$
zANJ!YPT&kKAO%Ag(a`WyWmtg4q|759tYC}MOZaNXWn9B8nC~+=vWz{!Nu0xZT*4LH
zMEY{h3n;jP<b0GwSyVzz)IxnUgA-b!E!x2YV-SdO2*tWMsu}rKQvWt9`AS7GR9-{T
zqb};>Qap_eS{J>q@D3j_V;#katw_KQ?7<-%#c?F#6fWW_uHil&;5|NJw$^oT^kz;D
zSb_Fi=pz)de{qOm4c1{?0(FWv+t>*Ff^6q}fC6ZU#%P8XSha)qVgt4!5eIM($vA<t
zSY+NweIs%gTZ4Is#Ud=h3ar6;Y{ADQP9iA0ml8wi1Jo&=9ioKr79XKM%<l+T1ja0q
zL--r_j&MZb&r#aPG3viBlOeD_PCsopnM@nN<`aAYA?zgIV%UZxG(O8o2)A(;-_Ft4
z&h!3@^v8gYmpGH6WeP_S-XH@FQh6U*LF-5N;Z^#ZyGs2h+~WAe{@WA_ZsH*--lz9F
zba}|>7=F(=p5gb3VL`ADT9>a{H?7054`=ZW`QETmpZUE3O%aWGScOj*`$fw#r36G>
zkWcY7m0-@8bhMmeHYByTQ#^G^(FGK5ebS$NN?wD?eD0*QBFa2{Qb=(nuTBkRsvaq;
z<o?%OLG49()nz4^{3)V%t4e9bM(tTjsi&^wGt}r(iof<^8+BG0rM$}LPD^6xK%MqN
zJGDt^#Yy{wiP;}`r=(I+-Bw0ftZmFtoyuBmwDqNEZ_Jw%ZLd_;CAr!uBX!yqmN#gx
z9jGgzI^|a`SrR29S=6VMl@|ZX?<_}y?T83)=99EMq)FjRK9Y~n&WeOW{IDUfFF!dw
z=!-2#!BZ#&NVh@~_To4GpsX#I0x=lT*otZe$$BYBen%%}d~pi5a2pxOM4dt;m0&1_
zVF4E6EQ%H;TMYvd1~WF`Elfp7K0;M2#Bn6!C0^k>e2bD7RFwRlL}s4j1#F9v7=*6y
z#8NE7X`I0eyo6<O@&Qp7^)L`GQKSTYH^B=@cnaH+WWr!`DSDlORT)YHoe*GV5{M-1
zMH=3qtQ|RBxPXgzhumdJGQ$|GM-_XLhVUKv%8_1Gk%UCFszkaLp2JX?bjs>%7*b$a
zgK9!Mw1;^*lR21&)A)f_<mI-*|IXQc#dBKTu9mB-<>^+elbxE|oyR$d#u=PLuDWEh
z;u31r%TC=L#^VP3TMDoFf8_A~le_!xIlCnqkSq!<Z#T0cjS>Ik>P9xA-QWT)L1~<w
zzw6zE96_ki(sv)=5jHf<PUE$0mYu?zzqy$dsphmqXnDNRNWo<&E&e;Fw;l6S5b4Ao
z;yf-Qx@C51ZV4Cie$fFQP_YzOaRU~uvQuzVc)SXwHTh#`WoFVAVVHt_I0#)ES}_W{
zX6NHtwj~=8&D&+C;BMhD4R2B2?Y~oUM=-wy|D@p7XwP8>%MPpu9nl%Ha1!Qx9oZ6e
zMGQPWXjD+K1gW@!$j&5=p=a0ZG~0htY$tgBzp1rjyOF(yb@(T>_AT@8P^CNV3L`+e
zty$hO^8rn~I7|=<Gk$psxzX7vvU7Wobk>X9JT&gjQGmlZ2FE_U7Y+K7Ckibyb`Iua
z5o-E!p1@cHA)y~>b*Mi;%a}D&F9WF$%p1xH23iKI3uYh+Cr41{=rWR$!JSd0SfZpK
z8-(8Q#R{y#eLTWvl1VerYz#YwSz}oTjvyI@1E^XvlWy?BVl2f&JjUoij&&qrFTUd^
zS_IJsFh7K|8&Yr?lgHDBkb$o#JAt-=p6G+6Sb=}iICrx1=0qk-!`X7=p2ArTTksUm
zQEVzXfAGL8?85<M;v1?>qsKe+ML#UYQd~kR3=uSBG)7YdAp~o&F@pNv%*-P^LH_CN
z8Ct^?QxSo)Gx#Dw&6zX_q~bQxXR`rwC^1;irHarK(U=d%Xil-XPtIqF7*6F_i#zy=
z8VlKbhlPCD3KBu_ZVd_IXupv_b_8r<YvHnk!v?R9k)?`%vLXM;evG+G8YZ^ir&~nS
zeM*KaOwV~QlHT#Txci07=?q?jJy45fQe0^DjTNEMPwI`|Jm~SLWkbbIXH=b<E45UQ
z=KL1$|IfsRu*h7Z{d3myRRQg*Ui+HgR4V&RZjv2;C1MKJ!@q3ych=ZS6cV%^)3n^g
zpDqN@x6(^_R6s>kMio?t8@j*~y`lA}M%1@Cs|z(P+*|8DO$+xv;%Jbg_}PTG(&pLS
zr)j~BTGwe>Fr(IOnikTh^^&GV)`j*r%3lP^Wlk{4H!LRjZ3(JOBtQyU4{BO`o7Q8R
z7N@55mZrs}X}zO0_)J)k)-{?IL!@<!ro{>!A`Iv@9_M&V_>cO-nAJO)b_ZVT4Nbcr
zt@VVa-FMb{KGSX=#c^k66NEcEFEH{Kw-upXF49yR!Y|Hff|h89u4X11un{-#7}_-j
z?K;Bkfb7cz?*p?h3rynA{YBU_j^D^9@W>y>gQxSC_Ka+9ulXAm9ncA$(8fUUf)9G2
z7a|b{t=lzg?Kftv%e9=}l-1hK$^o^7v(lCW>Oa;hv_@ghN&@)Lv<j_J&@%pGt%63d
zL2DWRsaByi3g!Q76-jB%$}mHj&jwQGX&<@qOlv6o`=mWrgWe6g>eSI~lw$glZPn>*
zl;-+0FZFmErK0|xr~15&QdQ5$LsqVeTV1Vh^zls!$dIN5<kFA=B!}2aqlUKP)7Vx%
z``F5r@wTG%Yk%Ikpj>w;D3SRJsUfaP75#z`HO^HjUBa<daT$uTVZ|l1WC=0amyp^X
zC1h=plIl5E#X(<qnEKsSd0Zg4U@bXpUrXxOttFf5*OF;H)#q*5vP4hSzMaxo-+qYN
zqn*-SKf9iqz|VE|2Rq4t{4K@0LQ7H#TgqSJEU&vd%cg<O{3hWn>Im4nNS)#?V(;K0
zZuM0wH>FMidb^hMzHKByT*a@dt8{Ivy16N(4ITzJb%>i%!Ak3Lzf0Z@GR?Mw+@Fv%
z-%Tl?Gq_mwQRCZFtdC0!QWbZln_}ocRJ<k*6$ZOf2e>N^mCW5o%h{fzWn|!J*<<N1
zLp%73tG7Rwul=RX0Dmbu&R^*2U)|=eR52X14N`BoD_!(OL)A(hlnS|OhfR{_6~ff^
z9h7#Bo8^j-el;Uxl4FFF?-wEE{3E1OXavLNMMz?<=~7>rPN>~<@%5Z8VWXzYid-|~
zQ>_`2>Zl&>pfu3`=&pX`F_$*d8N=nOl{zYAt)krL6Q{R8nv`E4N@cZUN2Pe43N07P
z2+xJGH$WZUQJJn^Ib2QesMOJK8mpG}P}-EaXuVqU7FjLJomR`|p{u1$;Wc8{aE-(d
zSR>DJ#jBwnii6e9BI{*$v-L8t^Li;1qVDuiD%N!h*(e)Ko8)}8P14qNlT_%mN#2aw
zBwK54mPd6qONP}J(T1qd#xvM4Xp5Ly{iXi#P-<9v*4ZvAnrtVHal1I_cBpkbDf{$^
ze(LK^O3eb=;7AXO9+nmEhslRIEP02i_MMfQ`aylwj-8eM`r1v^gw9G;!vOtx^+so9
zP64la*Th)tI>XXkmop7+h;?_>uZz;7xM|Q`Sy1zyB)i-bt%Lb^&wKK<)O{IKS-ssw
zDP6dB?uQJU`%vskJ(7fGk0hYQBmT5dExIc9df#zs#jYGGlgFrTU6s=M*b?gCu1d`!
z+8A37`O+l6V;a5vq;VfDjayM~)cCGSZ-X|r!=J87mD0g&KGB8GCwWom3teG<kzCGS
z<aD1e($JV8#Yd=(J(WI&*QTGU>d8S=tfzX|Q>oKZ>oZfkM56uE;g6GUGU?<wzYa*{
zCzhpjrF7cQ+EVRN`={sXLDoO}A4v|~l)Jim5&5EKXwL-eEGqJ63|$xeh|eW0vU;Z`
zMA^ojcl^(1-EERudMSN$xn^f@O)Mk#f)B=Kd2>FW56W9dedn#5)j1^X_fh)m7WGoD
z=p59my_9f$!+NS$Z>6H++RV!yCVtV^)++{=hX*g|vgX&fS~!03bsZ-pHh?A2R;@j1
z8)Zm3)>~;|wZK=OchN{CrGU0++OkEQ(zM6f8S3MaN=w#Oew0#M->I<LeU#!{D0gA5
zDNqR7OGr1%dYqxI4p1D_d28~tDOQH(wKC$WfVK7-9|_5N%{1*bMO05erLlGPlK%A6
zsl6gRd&zD;r9sXTU!K>Ngk>+W8LhO*S<+fMWi1KSmXuS^k5&5QEU}SpSxd%czo%1x
z;%u3{9y_s6`;Jyhse%4V<DBRENE`K?_S{u}#VzL(N^ySE);c=-6IzW?dgLtmXCFpp
zFZs89Xdr{L-ZLzFN%^r#@c-J<!P=7lb4v$gzen5BocEAdlJ#l6+LG{`CqraZ)|0(e
zhd?DF=ShF5nDt~2_1HwEw`w1x*ySv7k?vVbys|&Nq*-y#HA+VF-%lNFR*K{lKzE{s
zjs#KwLxYt5Id3g2J+t20Is2{egOn*bONL8@tR)@Q@L(k<=gIP7m-S?OwexsoPR{4r
z%UJbKFrRxjP-&&sUP1@7t3s7LId91$t+U?JI(rSR#wlZSme}Wfn6tV%MCqy8jaTe*
zWmjK$_0Tw_j9N0}Uq#zVY_dM3Y4)cWCnytgKE;hO4zwz4^sgnJ)`2pN5*#EGv?7o}
z>Vq()h~C~>ojgH_(;n?Yl_>4;uTW*K_Skfy60AM$o|yf-(<Eh)_Vdk2**^~qQ|4<w
ze+|oi{Y-QA^93jKt<LjKlND#}aazvfX&w#s)@9W2d3lPd6~mS4+EUMOzIl0EnDclw
zJo{Zmr({3&nxX_IPE!gNG7@<#YSAT1Wn*V;uGJFdpz$}OIH<;@JeM_Bd#N(Hd`=vv
z5VJ|VJ68oj+$M4F^nHUpP_Hgks>it3HWNoF#8Ap5q#zZSaRpa#4cBo4H*pKMaR+yC
z5BEXbr98wVJjN3|#WOsIws|jke1+FY!yBTP<t;M=Yi7NGU`>MZ`I8dFX9}^I@&y^l
z1TmWO4d2yYOO=MI%`(N9&yqhev=7gclz$bc#YM}Nk$L2Ji)GqbPq9#gmn&hqaP`Y_
p#cVN~x7XjJPFSIk0<EY&Rw(0jFVvto7QJK9+9FBc;}i?ie*tjqY3Kj|

delta 104321
zcma&v1zc3w|M>qqL(Ro*#TvU6y92ws>mwqo7@&l$W5>GI;(B%0?p#sSu|-iq#SRQq
zEW`%E72R3)|9an<as9;i@&9ps-g_tSIqwtq+&g#1Y5TpW#a3QYu}Ee`Q7*YLlfUeW
za)osRt6%^A`)@_jzGlr_%~~~k=2?cHjfGrxZ!?7#H5SkMqo;CjilW=S&J>>NS~z^9
z@n?(8RZ;#bq$ocbd5`@1J1W!nDoQACIKQZ(6mn6N&Bg8a|6j{#B@`tm&;PlkqD<zg
zSxYHO6L|^m!`muGmh$&MmgWEJ0p3ITxKB|w@Jj7~qU_*yY2F}Dco$<X&$s#X7bv%?
zaWijm*|PjOm$$0fZ#$Qz_lDbCiddWpw?Aml(0y*y=Y8|Ce7(m0$bT;7ZE|*16z5i*
z@AIFxC8OW}Ip4=|U-(zoa+RD(`oEqluPMR{F05CS{NcW)c9y&w?5}rjmC~hn6(wa+
zyP}io-<A^B|D474VwR%J%cCeycn6d7L6&bK6eTyyE~L_%r4+CHz2bQlS^6B*Zz@5*
zDoP`wF1M*w?usNJKQ*OU$I7gg{_d&v7yJ{L?mWICtD<zI<Qq_<ek{l9sX5L-EMYq%
zd23r`MY-$3TNW=aPnEy_TuNEXA4QkyTH1a0DoK>QqTYW#(|OyOA7_OBdl_EHV@)+@
zHk~i~|6j7zMmhicX^{;~w_FU~;W;x`G<kcQ%eD;*^p9+lxvk0I9l0!bm?^Si;i;a6
zHd>UsF;C>1GE0qFLxX+&Mg#;7HTw<o4Gs<8QvPD()(UZMk$bDwH1MJq)yxGWTXuAH
z)v9ha){H#ebzGjvNy8c$BU6X(Hb&ka)x+rG?OjgG(b!ZVyw&Je;Xz|Uv=2vI>qYhn
zwz)>G8kdm8VAdW5x{Zj;Ij6sid93fqM)l0y{6o!QA-+TX%|Snyef>hid`Fr?CWM6g
zj|yKre=#qZyv?m)<h&n`8eA(?%92GZdd00k_|~O`-Pu&VEM~3$DYshtes1cn<$d9n
zHL}Z!0S2w~N4L1h4Zl`*%N07z-(0DxIVjj%sk%96bZ9_OVC37i;|-C+*N@3gjuQ6f
z%Hc9HBq+SexzaQJ&RYG>8lsCCN^5JA4Ed~$UKoNqg`ZfL-#VkVu~lA!w|1d}v0A>C
zVIxPHI|Ky<n%jp3`Uaa@_>Bx09pbO$=xEGks#>ic|Eg8jDs(g!&Dt_JV2JO8ie`zt
zxu$hMM`K7K>yr`2=(<)SSk$OiGuJRz@(D86unyR6Y~f)I+G~8{=32Y5cU9{mtFh_=
zH*<@z{(;tptz5DgtWix}8oC%Ojn+~-xa14p)w{fPVQZI&<yiv){YHij@plAIYx2mY
zL`8pIW}X-{B*53t91<`zu%dbNNZ&yJ(28c?z#(SekkS5rq2{3@CyX8zQcU~lkxS*w
zKlqN|Eyx-%vz~tB^4O58oBqPi-@VXBJNVcoGK>AL5dFP;w6RZIY8nEpyPml8G-e7S
zr+&VH<`Dl-Ez5J4eD%Y_LYzr6{}2=y8nR3t3zb?H5J*ZwgM&r}4Xx}OVh#;5SK~g4
z-gk&phN{+{&t0BXbL}=PXq>ffe%Bv!7m`(T2j9`=7C-zz4&=SU29NR&3@caJY%N&H
zwTX)%OZbFgO|0jtx(>)`e`WFJuD=`Xt5;gM{^8--YGlx0e{=VMk)hhn4z44<yKU{*
z(e*)r@YLb;t=B_c3mL3_V_lbJHP))7eV*mI)=*VjIooxKOZB?TG@t6mJXW7Mu6~)U
zTYh$Jn(JG|x4Ld|y^_fqdcd`jtCh-M*VVf5q-#n^kD$RJeqq7>)}Nob4l`P(B)k5c
zKYZ1=2G&;YZiPD=n~$&#>FG8*i>$o#b35;8rJdyT{(osBUY72|0zxFHA?9(z{3*U*
zsqle8q5s~T?9n%u{Vu{jj_Cg!VjfF4dDYNh-_gSY{6fl^eS`gJm;OU|S+F_Oe?0F-
z&G}z-DeHHYiSpAXY;dcZL!L|%kp>vz7wqpJs2M_B^SM+u_tkc8a4VKq>d7d7-@p*r
zh`Cu%Sa5)Ua7FFw2DkhcdnJ{Z>Iu{nUfEn$&!*HZUs|l0A|%UFY2=B+=(r?UVR|<b
zIxff@@Pm0mP?&j0P+*x*9v<tjKkuJ6tVpl|{DwIaVSid^@C4qlx}Ky^J*Z?YfDTD2
zu6b}+C~v1f=x8VAAc=NJ<#JiVcg(ME?Y7bFtE-j%iUMx2)2*Vbb=DrYf8{WETc1U_
zeQ9W{Tv>bc)vW?cYo@>5(y|){TmR1H{?^;*JJR~DiTlPJMsp?Yx32CLa?t+<4)qT)
z4+#jST<Eo|t-86ta&xIwxu#a5k9$4dGN_NcEgOB($N=|-EOrFAm!p?orpHdpUd}DA
zmKxw*Y9M!2Hg_jNegUBq%)X%`X=pzLj3juWbn(=ffY4#)@FqUZYCB)7$0;;ml>bD%
zE$b=ypD*cK+k5N$;qL4itUr!$k7QS4Z4~6bFO!>hRqyKSv_B@gkFk!N<o-wJOn!Rg
z#syL%tV846%ha*{=HW3Vd%@~tkcJ%WPjv0Qb4W$0yVYvdvR2RU(Y$6Zx`8mM)<Ncx
z0rXFVdz7_6M~`+j+<mBEC2DBJrh62&&Yj^gST*=qUoG&+W?=c{Cl9T8CV56Tdsm~S
zHZ+x8e$6AZcJ-P^C#~=~kA~WS>mHe{gKv0rD{FFgE1HjsshL*MWUBA_12s}xyu>4q
z)nYQ0anb(D=UPx3>S3~ITQZq8S%=y@DjTh@T}*>rtiOEq*y{RSFQTP-m<nrSGn<-N
z|H^E-VYKeZZfcQP>lo=#L~}K|=hAK!Hmx&M)4Wf5<g+d;Vlo*DR4-?4$p+2AzC!}2
z+F_xgw4Kqu0m0fBvuTp{OHtEFYfv#$LJ6&F3sWs^aSKx^>yZ|wX&%;n9ZZW%*3CUl
zO;u~NL8ewlYZX7!Voz;<plOzNZ;C0zz0=^~?Slffln_&HYu6yt9)qE`{l?cZrWUGo
z)MV2rgVtfHX`@zcnyH<2`81Q+XniotR9?0EFEKSR<e>J@7f62)!fqwlccgY<ndw%E
zvQx|H;{^8E{=xOKRIO~DYHmP>LeI`_y|ZsH`^3=YrXyOCW(szxMhCrVm8rVXr8;Z(
zHk-B?TxwJ{YsI#kh8f0aKW;abGX!g^BTOaCA!fQWO4=MWcsRA6&MDZRy#!s;5MOBv
zTK2uBLdGVc+WzgPeugkD`wmk}!&q75(LP3)a%!1(m<r_hua{Z7?J&JGxYT5$4R)D+
zFofDS8fM?<*#EbUj?*sfGF38+m#tOQ%Ir3ka;<1?GU2<8dqkSDYx#GWvix@nH192@
za$4AK(<~aY+4_06DTmReHfx>{CLg0q9oE|IGYvGl)Mah^ev`Y=qpCMy9nmS=duASM
z_amlB2G^<t+Ir=v=^?8U)H6}05LP9sYobm2jV^)y<E&lIneOMXHoRlXn}doL@zPYu
zI{l^Tt-Ez>ifNwF>X~M$X0UEfH(kk^iIL&3pi%y#8G$Wd;p(Mba8ZkEdooPftgO{G
zhL1LdSq<)L1!JR*o{Ex+?wJ(jH;(Q4WKom>45kZYQ<U}$#FG%7Ls3F<a#)7hSj#y7
z9sbO#RV|>-(nfDqeYAD^R4;8^A!bYRduFkYR@Iw^94&e0HfV<@NYc7wQrk98vAs#Q
zr7%59Ot9TyyzQQM*zN&a_2tr`2lQpH$;0&JfN`t!<-VG&_2rO(M(trHwV0(x5^pF;
zPsc}OB@5Y*9r=(S1<(R*(F48E8-WPIXw1Yc%*Gtt$8&fP4qpTy1QMQAScA2hEsAoG
z6)O%Q2G?-|H*pIR%l;Bigdh}Qn2s5kiGjp=5PUHXwv2Z#@4mb8E+!*7!}jiF<hxz0
z+P3MF+_B=_75$!!T<>1a)1Swk`Y{VL&6GubZ>b^gGaeH#6&6gxbS%djtj9q}IeVcH
z3Zpjape}sS6wS~aYj6V9sS`EO5I$&)Hjw(#A^S*0>BLHB1YkHuU?L`AGNxb^)<P=S
zOT2=Cik6a;kaY8ET<n?HxT|qVC-*pR#_f#T3b{*j-W5K77Dq`%H1}-kSnWa<)l-|C
zO&w>cEN^3k3vwYh@}LqLqX~Y-GAxIN2<*i^9K|sl#|b#={vzuB&$y3Ac!yM^Asv4q
zbFK;;M(3gu;1%AZIY+=P&;cFM8}l$<+nrtYGB27lW9p3CGbSz?yXf|!vB6`57X{i&
zlx9)QFi+9$XIE=z`Esbqmh$s?*^l@Yn{f(fkWPF2113%>sHlO4XovO)MhK4KIR1nU
zX3l9efe!}54^QF3=@?g3LS+oYy!=%9`K&}0V8gh8I9$eK<n^M}p)^{fE!v?k`eQhz
zVJ4O!90za`F|Z+jK`J9kp**}%8@<rG9Wz@-ddi!O<cwz-Zy?kC>-W!pH#?hgD&u&@
z;R7iLG7jvO`QeO|-6<K{Gd6?M4$|A)_3o`T$))De2INu~StQ7EZ;CfLXBpA4kJ4Bo
zBoUDa>_!CcA_Eo4>;P<oGxI8mm&{7$BvX<ZA4kFiSkA)%JcAo2y~?9LMi=6o#q>g&
zA>Ol@qZgg#IZW?GHG0u3-`$tkOEqcndDL>2-n>a4^u=t<!F1kiJ@(@`PT(r8;W3&O
zrpn+j>T-6i9Y*06KETyX=J5%ci%}9NfXWEN5k%o_3B{s#ajL8>`XU^^U^O-&78fy<
zvn(?(3xQ=6Wek4BRn#v_g3ui8(E+}=23Jnt6e>@>MCpob2ko#QyDRhh$`(#6v66x%
zRTSkm;^E?LuO8`d(o>RCo+T%yyh%?;PQP>WPWn}*<n*}o*z|-m31{eCn9^@D@x<g5
zmQgsCekgr^dO~`Hy^>U@OVp?i&Rx@jkr(va#imMGJ8IF?e5$|2S#kDP8mK=IlB1^5
z;`{QDGRQ*Qr3?b$EQiOee?Vr=zImY$`d|h&AqI(XqkPPeatp+2L_^B%c~NcYX?xwt
zqGfN!9{9mKwTzZnQjOLUi>jG^cFU^0E~;kJk_xB=g1nyd5_gI?Kk8u=mf#fL!CBlJ
zDeBXBhOEWuIWYyN@d4R5{b@!ubi_z3#Ys>_95qB+s;Py(Rbj?;mFUX!u>xxyzpLf;
zx?NB$H{4mRq)NrZgX+`BQH@r!ypF$7jFW-`u?X974A<}##i?RHz**f2P_3lONfn!k
z-*Bz0=DS(#y!<{9YZBzi5N45mt%f$bFllR&hsJlM7)|c#W@eWQtJN&d>RF#EIudiR
zAGctnx;m?EFV?3c3V$IddxgdrjGu84u2g5K-cq%vK&tl>6s|;XhiTC8MfvupS&FE`
zwRM|3Ye?}P)YfSfYm`M*rGWDU%Cn>J2DxY(wa^L^@FVPvhuTD2DS@u|zWt<dI~4_K
zM|JQ6mg5F;SEWzKY@EPfRkfvSJcnyd3aI_Gbvrz>NUhTY874uiYLUk13OBez-n1y>
zjT=JVd<0|zzd<%~2eP38kd1YKZ16|OMx*f;jMaEgG(=-GMN3S>Y#gsf7ZuA&D%`76
zNzoc35QcG>gm?IWay6*<2*7ZR#TG;$39nGFCKVpl&;@<a9|JHDE3pRq@vx?ahRe!x
z*fMMx@BeK|dLp+U#(%r>@`ZC3-m}*_o?(@lOpzJKcgu21#&OC&bDm*We6K2b^||7i
zcUYC7o{D!{x(@oG4r3ZAa^Fpl^Y;6)=NYCAD4~wEIJ>aURihOjiJU}AqC|xB;7DL3
z7zbg61Vn-%fsg=5<|X5jS;?T}$y|#HirI*Rdu{e^IE@deQHLPoKpj^$Qpb9&q-r+U
zD+>LQtHm|1GIYqQ;D=Oo36H#8NyuCFhrI2NSceOcO<aR)#shgU7qZEpAe)VWZ2A*q
z^K~3an5ZX%eHY7Ac+_P$oP}9d)Ix34M<~W)H}>Hr-l9xB_Vx(CC<J0G#=(MVScFa3
zi|2TclJym(EIObo=3*IQ>Qgi0STQspN2rHZ2*Z5r#R;Ur)KF1sq7iIq`t*i*(u3RA
z?YHdn2e&VOf5+KV#}6}|`u-{3tt;9OWz<mZNf|Y#g}Ng(q>Y3|A|X+b2uSWF=aOs5
zndC}xB)O5CkPAHnl6XnDBw7+Ii4Db0yg~))<#4RR4diZ2F=I8pP~mQuR0|rk>|Nye
zag3VZUNe5}k%OM&TOBDRxtBK`4|(H*kT-u1*+3P@Mgk!lS`XP+B4mTb9UJY(vOmV*
zH>`prBm$4|v9X0RYr=;}@W)Kd$5vSJ0)L~dkD^q?aLmL`#NjpGAr+>kJO_0Vj1Yuj
zEGA(;?!cDzUZy0QOg)lp5AG(}u3xsr*zY)DjkK>M*>-G6S|{u8(|%2Rzf}2;KN|eV
z@k{6)WUhA$bO!-_yUV)PsDipkFK?~u4Yjb|C)ARROQt2il2^&2<WKS@`I0<Iek2c)
zeo3zlKFt`M;0*pm)#l_4R;1zss<dF|h}}p*g_epk6qGoB+TD_Byqq&Aqh&9u4$~4l
zsM)ooN@_MsAqmJs{OQ=(-z*h2VuTA^;fBnRgmi)=W+@~=S0ITpkqAjxV@TqrLlPJR
zNnCYE0>?oTc?2mfD1C)g=0+Y!svAO59)k7QfP;8~cgWR>eHxmfGsa>Dw&EyW;v;gk
zR+P^lKfiyO`0{;X!ksG@WjcLArYjc@IHrPoS=qLJ^|tlSdk$P&wopPw&>mJ-iy0KH
zP!)ATrZ=Ou>)n3qw!O5(Dr!D$brrR|rIsXA5-5q2gh`?#L6R6rNL3Os8oTfmdD<{U
z$6u)1mSV>aB%wq*#wzf`8YH4Xdv*iRa2q)~5HHw^)k?AE|37+p$-Zp8D<lOAAgPFg
zq~tv$HSN$IlB$!4!W+DWq|!vnB&E$Eshtc-@exR>KS5Gn7Zypj6_WH+Nb<`=vM>ZQ
zF$<ENU63rjKr*tCEy-RXM;6<%oPjx5i$geubQn5PIpGF({D7eymG;UoRzk1|j%H3%
ze=YxB=#Adq^wZuybWHd3<?Z*E&U264h&mD#xhrzp!}nSaA2qjjs<v888+?{ohw5qr
zZEtn8vZb+<fFw<lB*~Gj$`+GRrjw%l3#)Mt`8qS~M=Q+7X?S$u<PGNGJY2hSbkdD@
zqD*%}g>86`Dm};%>?N+(%c(Wg=Jo+81Hl>gfnedH3<(o!s%DEMWIJ{s36iL{kc8ET
zBrXJ!z`c+}ra%(d&XLGPEEgjRlHeFfqD{yQNqk301{NX~l99_@l-7z1xse>XA-f}I
zI~=)t&+=2+o3y8oZeO=g=dYi?e){_11ADe?*s@{e&x;Npm^*!Z=!hZbwMli=-r9n@
zYFX_;Ep?E#wKhXt|JrIJOBs2Wti&cSBwiIEF&mDpkk~~+;`bF2!`A4CZjg8`#BRjk
z5-#ICQjn`BBTm%ANQ}ocY{KrI^jQ(C9K%Qa4MQ&)8=7D=EZBocJjVx=>dhz*z0n_w
z5so7`fe*;shYf?#>w8<$qx<h!ytl<e2CGrlNN(=&;>6_T3mfc@y|=CW#kuz0CYQ`;
z`zokjp6rUWqFMD_QA!=PT25}u0kU)S8rOZ5HnEjjRI5~1t)x9^XdjnMsWV&e<YatO
zTY@A3lAuU1BoLBs$+P5D@+o<g{7K#<Uy>)ukK{%25sHKO19ke+Nnkj(ARamUu|vUv
zeu|3{*H2rzNsg)IP%Ha$PcQAQxB5U!tWTwuH|q#_!|7N9dE;nYL?UD(DsNf{vXQBf
z4IPDS><wgtjT{>tV&AZ`j%6Gk!?QnQ7qrE{Fb_-nGkiSD%2l`z;3yj-5QNRxfoFJ$
zk^_kb%EAxBuo01Xh)2lxFA|9=sEMBFj}=&l!#IiiNQBoQnqTQbbfXxEPie1`p1gX3
zq$hX(kLl`@t50I0kIUlflfyWmuN`=@Ya91yMJW7y39U}+<$a-FkbW$4xchaz#za)$
z{K3SAYMD&VW0_&z54FUG^oP4TsRb-eC0r6J36q3Kq9c)MftHZyNMs}`5)p}nL_u;c
zxs{ws?z|kCTEX%fa{02u!Y{auyo1>}VGh11&OdExBXzvJnyfQ1q|uLr=>TVFiH)f%
z19>BP!_|;Cy$yNeDv&o1fNWqFZb3G5AF{E6jtzEkY;*z3LpY8P_=GZk6fY`a7)D_^
ze#0$4>dGTlo+AlfLwHkELLUsnI&8*u+`t{=_NU^ZD;$R%X|`9=O*#)F&YwP!X5-}Q
zUWO~{S1$Q!$xkyUk3X<C&8Bcf@wUT4{dkq77S}?pt`+m)oKJ~XbeTPT)S=o#A5KG6
zkuXYbBqx#sNxh_;RO^Y91WMv0QIa4@%wohN{}1$`n2U?ZF_fl@rMQCZ!#GqyM+9TX
zFvr<d`FM(xPma@M>(<IzQO=`Wl~WfSo0?4eaYt9Rw)UtQ#aB?aI>@o*J&vuXIZ{xV
zEtf(?NNPGlQnUbzuoAywGqyrfdIi^U0}t^ClKQ-m91MWuVmYo1weT?lE4PpY$yOdn
z)+Ad~u>*&ZgwH4uKseD0{V@*<aRS$n3Td*R(mtg<!KZ{zw=c;e=7iiO4;|QZVCSc_
zt=!0?-?Qe|HNP(XQTg_#HEE@m(k!ji7FtGgb!JcvNrP-(wk_M0ZOZmOpwe)9YwW@c
zc#U9>jk!31zwi}?kqq-u16>e~coZ1Ld*UaY$KRvmWM^k7Hi}YCJJHy-O95uFpRij}
zi~DGb_VUzTci_Mx)z!suL@E27?~W}CN;o8$pBzc8?nrL1Bgy+5$$sldx|yU(@;gDY
zun>}sXxJdxk!<9LWTg(eSeW&M<Y@&YUkQ-Bd7%h;Lh{)klGmkR&`6(pD=yYKojkNZ
zVpqh*h+migx_sgMnG-{THbzi^oPQhyM)k<bL7>c?d)Jg9Gqt!LeEb{LhjWF$^dK<X
z+o=_`TxC4#Xlg53W{kAVJ)Kl9ODUhmN@>}0EF{{O@i$xpIX{2~2*G$n;t*2s5mo88
zYhe^7;CGzHN4SqB9H@zU2*X5JaR|roaWws&GKMFjEhb<#jvy9)K@H{&&;gS%1)o2@
zNq&?3=+2ecH_0cD%KE<FH?R3sR+cT8`zCqnL|K(*jMc}{E}8SK*QV9<EULBYq*}Cy
zDxPL7s;yc=JKu?8sl>Kw9!mwuv}9N^D;bqcN(Lo!k}=7YWJWR~nfM4vx1?FpD`}N<
zO8QR07{c)wX5kFnLg^<^JB-&L3g7Qk+N;^EoZ-#E$&m+)K=g{9*o7WR-f*eoO>a5g
z*n>Az;RV@9YqUi_$Oh+Q0aigaejXQ*07*!3M`GewUV<x$af3S~fz8kgZNk{0NNO#R
z6vx12EPEle!)PqUR@}xH6dcF#8V11^qp%gb@f=A=f!_PPW&WLKiSd`?8Et-w`jlpk
zv_{6C%Nu`ArX3sCK1*D_c)@Z<)z>PwQ_E|$x~ZouH6>w^C`phcMiL^4kd4cRWrL;0
zGf2l)yhrT`WD3zxC(@N;8FEfyc!!7ZnoR4&dL*F06bA6n@Lkc3+AIe||GtmmvIxph
z_BQLLc{)A=Nvx#0Ybnw@>AM`i@i7d<BoG<+f|8_5(%Bl4*13@MUVx-ICux;*_k*N;
zJtY0fkUUg`<YNpZF9&fO@sNBq#S&OFW|GOnkc_56GFuCh;R%pTpMhlDg$zsPD?tJf
z013iw+{RnvoJy@g2l!zz_8|_h;Kr`4ESg#rYg%_Ti@_rAAg`8J%B$oR@@#n~&r&Ai
z82&`HY3x+69$BVS)R>QRFwS69jY&8P8|uwuXNd!NffBPgyMZr`>cc{_^i&UN>%LG>
zqvy&v?%QBa|3odZpIX#XNYddCNy}PDdLBa3WP_3Pcp@{ZLekk3BOvLWigl25Z$Jc&
z;256ZDI`CYAbA=A$=7zAo8Fnx04tKgERamLg=BO-B(pJ)UHGe{#Q1CR7tS3&xNrN0
zH7i~%ewDN!X~xvBF*ByVN(vhz6Z>oJ`T!2Np7-YLYlA-O8H>DH!et~x5;7l5frM@e
z_CrE=6gTkz63#S8NE<uC8p!fDtj9*|!y|k^{@I-MM-TMGV5~sIZ2Fc5tb9b_Ih?A2
zABG?hqY;b{+`vuTLH4<fpwI>#&>3AIXIzrsKe}`C(ao!PbTcOUWONME!96=Stg%lk
zVt$T^Uc`MjqkoK^)j;|7#}VrO{I%JKdg;d`^681f$hKxV5B=Cgmd=x`&f}Cteb}KK
z=;K+|rHnbNwxb8fv*QM+{YO-jiY8Hz2uSWF*OFt&tYlO&DVcF*BsYoA1Ifr-?8jqx
z&0~asWw-*<d`bw@aT2wE{5Hs~@$Iv?#qv>RjekDH%ps@MTgrDU^j_y<zD(N1eriFB
z{%MSt#LX9TFb_*1n?HaPkYqf;Ye;emq9i0)z2OT<-Y-}KN#<4Dg(Noza-uLALz3SV
z?JUeBA2YB3lAkEt!B_l^f<MwhqBiQl2ct0t(=h`xF$;6B0tavqH}DXj@df1;P{B|i
z!(kc0EEL<Z1Ce-!=Xi(QKT#<7l=l8p+ROj?_w?TFE4RPheK9S@{+ttsP8|A_b}?-~
zzC9`{Qki~j&_}OKveYK{dKTAK`l)rbEh8AF-SSh5SXxO=C5Mt)Nu?xC5+#WVMI=&C
zX(4AF5s&GMI6%Y~C`-s8CgKP(P-iKx#qW5EqCeAI&=o)7pDt0$;;$Z-&t^KxV4D+q
zoTs<^Th*aFBqpWN1zjP@3d0;o^7i8>jv*Rna2DtB4wC#-7)iQhqcUnkvNIH;u>l)F
z_AJUBR-Pj-`OAm)=m5$03@m`;{{${V;_xSGEVjqPKny%l9+e^SX@C}xI8DMVNW6~X
zG@@|^SC-Jn|G|m`@-q|yXn+w}Pzw^^x@ZXrbQq>V0=@^-AgK#a@5%Iit<mq6^TPI;
z^7PzkR!%r?*`Hj+@uH{p8u+amQJwDpz&M8^09o2^(R*pD{M1^GDm9cU)lO1y1XA?R
zkP4{+W|V_egKp>ze@K;Bi1oOH%eaZhC>u`5FbR_}6+5vDyRiqAmT|5FgD`j*;Tz3L
zFn+^o9K~@YAsG{X;SDhb7R<#GT*pn^LjscV3UBcqC6+T<LM_xm0gWC5Ezk-*(96Os
z*9uxPN}&wma2dA{kBPsL8%)JC9KsPC!wGy!V}L6Eo_$*+COD=$i8mAPBwj@VZYIX*
zbNjtF6JryL+aHuC$P;x^hQW0s_5Djo(fZn|vmA}3>{T;qi$|yphIWz?kjT3dO*cr?
zSCQc{E9nT<&{eLbMbV!x+eC)9l41BF_jbBS`0wB`6xvOx;#LH^AvQPb0DbQv9Omre
z5zWw;ilPr&*S+)P+Ls%g^87uPq&zIi@yE!Wj9ok4XP~fKQ$4h#F=_!VIzX*tVFyC2
zB`)h$(Na-yH4O{ZQ4^;Sjf=R1R;0HL+MxqN5QZ6;1=sb20=bbF7jX&l#lmNBBd;FF
zitH9<IZ*%wQ5Ypr8s$&{)ldWJ8)>{KN}!6NB|0JiBd{1t5sploY0&UNGxWm%EWkoU
z;WV0kWma_yxrG%Ukd9CI3>Qkm4JLTP3sOpzP!*Jx)_A*`x9%HTx=qKzzLv~A$+l;<
z^k*y*xsjsZk??IjCGieJ8~G}#b|^?Kk*l2dpL#8tQ<Z%NwJNFqB1di7sAjU1AODxq
zQ7T7kv_W4?!D_6<Efm_u*$5OxF;qhh)I@D`KxgzsKg_@^%*I@V;}<N4hLzZe)7vc6
z0#?o-9a*WF*^vXeAhk6=<QunzAhk9C$9K})@c_?}gbuqn|ANVwiWT@3Qp3%-i%0ky
z?!U8df`0(BsnBp6&+!5o=(~rFK|Tyhew_UH!Q;EQ#oD*^<jcvok{_o%NV~-;u?skN
zn(2f-eM&pRbdYHu(-Cb~h*~W-@&DYnzkVK6&S>Wy=FvDpd$@-N6&$2Cw6v7%O~VZA
z#y)&N4w`39c%dMqx$fM{r(?)Rvz4Y>6phgYKA4L|kS2W$ClG`4a6L#6FcQ-djWY)+
z4U3gKFdqx>3h(eI4D<^svZDrS!3WY`6sEuMK^wHg1Z>0~_>8acJVJ+zl4yqx=!7m9
zh<|ls=7*O@8K`GS-G0OL{PFY0wv>!}87UdI+qUbr%eD(Vc-wYPE}*iV=61%3BPR~p
z?34YGecNr+8u`=agfZqm5T@qIOYnaf{j1&xws#z=FBexUt6iQ%_<syhv&wZZO0mv*
z>B!P?i+cx!4c4C?UgWvHY}qlh{pD2~=u30mr;5+NNcmbcJkI_MdrmMU#);E}0SC@<
zOoV6W=&oZZv-9kKQ0Wp~@D;k_Qp`48qd>1SsJOucx7p9!CluKCh*1&T9&4#lYPsd7
zNHdrDWzjEFw4dDMmNvQ>r#YwmDMzY(RWJQn`Xv>k(|C|Rn+J2Vrgz+WpM8A-Z**jg
zTHKPadk^YGHVy>zwE|KIU(xdz`)JI@PdI@FWKXi`gKlK82l}8NHem~PVmBlVk?3`j
z=fLF@H39#^3@pR;Q;gxPtVH2Do+Alqs6gy$;W#9gr%{w6FEh%b90s4^kPrbFfd#~Q
zAtdI99WhTP?jPYw>`R~&%Agh6#0(-Atn@-CrebF-$Jh7>E-z=YWxURKk?|CdSi7GQ
zpK-%6U5ULCn{o1}mFdONr$_G}ea#ah_iWpfv4`iSGuM79p%!#`Qlz<dVw_r1^PZ^|
z$TTuENUuLZBhG2J_fQCo)J__V)I6zC&U3XR8n*sc%cKY2HF~AeR1)<Eq!ty#$2fW_
zWZ(-XQmZCoI%eV!jzDT!e@8|8oyulKJYJ)Qg_>6j&CmjeZt^1hbc?P88?g!3kdAiL
z&|w&XA8`WLaToV+IG&*#l8}sIcL+Utp%45p1FNtGmV?X=;T&Rd30F}5E<*@B!wYo0
z#~ufZX&TER&EzPK;Sy3HS651L*^5lBtb8PQ+^77WQgSlg(C4o+u5kYqZsmEZugDWF
z>Q6d-?DPRe`*o69w*>o5y%apg&eNC9K0wV~K)+3^(bmo6bU9@hZ9eoLWhmt-Wp~K^
zgVIV;_XU4SDzPGgT@{YuJoeJirNJLSt3+xix}zstAJhEM7+HDGoali57=%R@W?Qfe
z`JeGbMB^+9Jm<77_TVP&;4ZQz(abOy(-DE2FE}{HTcjaJG9zSo!3SsY9I-E{52*8s
zCWuiH%&sHrYq~JBMF55)5Jzzw9o~@pkEw5MOi2&!-nx73?xizPXQGZdrbCY9{-}tk
z?VFub)c)_LLs8nPDQY#BJ%+nlla=)Iy(ZDSts3B&$%TMxgC}uqwp=1xqaDQ|b14Fv
zpyK1^2;*2s7$t;~YspcRBn%BwIZcp8(?W+ohz#65v%f=<jSl25juDXiE7y!E2IU}L
zxfqlS?gj><1|@eUgW_Y%WYCuSdDhfBYAz+`WbX&MTuvYAYjo85H{||(rg!5-#z}YW
zMPJTE@R`B~8C|tKn(F3~Ui^->aRQfic}WDjq9=M`4NgEZ5QkxJi8=x?8u#8&q!{vn
zp${Uk7tfH23S_iBet~5CBqZaV9T`{2cs<mI^|OU$$4WGABik4DTquc_2*G6R#wA?G
z4LrsZyu{z=_$MO(97aK+S`@`l9Bt4I^RWoaum&5k)52^Qj^P%bLy9FC`q049{-4rW
z-_MY9eYAg>t}?}C#Acj9oPJSkoW35L5xeiZ>AhnAqXIQ)dz=a+bE!c3b=8^kXmQik
zGA<mXY2&A;9W2lK<kufHPrjzKkTkr+E3~DGw8MTJ#6?_!RGsU1gq&2N)_-$y15%YH
z;VM;0s?%%ib2BKBh{jo@pa|8hBf8<dyTxAbE^*@!b+5X~pwvKJY{w29M=W094N{SY
zOr8cM5AvZ5#$r0$sJ|YNdYm7DnGH%XEZBz@Sq(}nbVgSTv+dZ8_1O%{24u@_P-@~!
z>f4uZpTB(kHudejx3`&Jzx?*{+v_nhaVz>5)7$8`&)*(mF4KPQmFGTx8^Lnd+g*;L
zU_ty1BaiD#XV0r2Cs*SEeN;zr#fF`xxMVI**O%N&yWw7$%e^a%)wF@r)jC?!mGs%1
z*>zqy-_*yE)%|2qa`XfqISk4?JmfcpuH-c+rhEqFU4Da7xPU>a?PXBLqh%q3G6(NV
z7?jE-4N9rf24xT`l_PAJQr@5(M)Rr$Wio!MNo4F9(>@RM>@FWv(=qsYF4k7J=Qx{T
z9N*_Cs=DdTK1)*RQjYPNTp9J~JReFvS*zx<cu9oop&@=i079?^Pw)cCa3lThki6u<
zTu7ekkSBj=Sc$_pj?%d(VzkU-P%fi4`TiM4aSRfN>v^en5{M6wK-6~xq78vqRoI}c
zL-ryDB`3@%jvKfoiW-!=c!y8;3tzF(Y*0312X<i;m$(MvU2!TtB*1C#DrMkOOlBoe
z3S3L;oKiVPyL;>Mt-BBIUbuUX>EzvmsrG4K>hGyLQn#e;(<fQq$E|~MucGh4wTRh#
zv1h|{z6W?~wpvhzYAxm1z}dp}`bUM5rM))#$kxvx7T0hCQvT)ex~xHYi!^-1Cw#_N
zDAWt7A5GC3Z7>E>Ulw68CR1moSeQ*i-HOB*P0$p6m52?_;VCj#F(_HF5Noj>8?gy>
zyx9n*V=jKeQoO)Rl&oq{nn5aPD`cu+P_iH!ECrYqL@AU(P1HsOYH=l0L05D~^;$fR
zuILVW<8<3=eJ*QH?#JJczsi?(?RUl6Vr^$^#}C_>^xpWe?Eud{BTvn+?Uj|iHua1x
zgCdZV7l-C^@zB{RYF@3&Os+U-I*D@H9L8B_DW8_Iy&mX=P>jVmOhBI6baEI|mllF>
zXqZrs9v2(11MBM>l&#3yfQ}ChaSk!K0Pltdr9GBnIS#<u&_c6d<pknz8EH@&QS(s=
zUC|2*un@mBp_L%Fk3lJhu^5M+a0?&NvMJp>#vm9=u?;)03o(etGYhllXxPl448Shz
z!%^Hvh2{n>f2aDOANIqF+xQ4a`N$XWU*M@@dSQFSBt?;8yRWayGw$2s@9Q^j#NCK{
zg!{Iv_bEubGqy8|7O_CBo~yIrliuBy9aBYL7Hu$5YcfgAXK|j~d{uX({($p{Tne#+
zbd6FtmmxuSC5}<VDO(GJGNLuvXh$sI*TJCF>TFO(V|RC&UT=evqYpK>zd@OS=7S8%
zNR;q1DE-lC2+a!nhN%Xn?QnzAnBT)F*37f1mOY-+n_N%fC7+CO^^hMQ$m<8q94~wQ
z(+d}Sp2<otoSUQMX2Tmh*7nw7udN?Bv!*>-tLC+MNkApF)ln0xa16a#8k9b`g^#G*
ziqgd#Y(^$>mldrr3<0=^G?Z;aGs98bM+)5A(ngUBMPNqpwp7IutPIBpEW~;w!Go|B
zMMYGCgt8_sx91I!j*svpv=z_{&M?;{%uUe@?a&^5&=-?21+y{7!t5+!5Rbd??qX1?
z;Si4CDCDTxj_M^-3g6zAZ*j|9)*avGPSlUp?8n*{9Ou~NOk27>9XaP59?(PR^-0^b
zQ0=9yUch&Uob}Avc}s<CE!#ehlQ@ObID`CM*{h%sil8WpVH_r45~g4(rr{(`AsT0K
z4zZ}+jh-6)yHOGYSs97|jKC-aVl<{eq2dPg;4vt@42lsRP?47kogal!6gAKsEzkiS
z5rE+si}l!uO}K)q7G}~a9$*kHV+5jc1|?`A&7_r}1NPt$oFyV<^Zj~?oPpCzObW+Y
za>>t_5;zZ<5SNe~ee&o@>&eKI(I+FNOx*Ko<Cm%-mO<U;=#AW27|uqow;T#h8h=aK
zbR2Ht{y@e?up!gG*pH$Te!&WCz$TnQ9HgPQ!X;nwjhMlViE$ZM2U}=UwEpano}i4Q
zC+J5{P{f~hh2H3kEI%+-L5ZR4>QEQ;(F`r%2Y=KYMk%8X>LM89@H6&eA5P-}5-iMK
z1@NNb?BO9jPcQU`FB*-~dm?2q%O%)~ZHT}=NHL^3Cf4Qjf1)jcc{0--mN&V56>+kD
zmdSSKggzaKWU{#>?&0~`!f>@xMaC`Chvn7hG7xs2*Km%e^&XD<i{}W})^XZYTf2}U
z=(eq_&D`smSKrIFkW^j4Ew}|yUy%!W@H--K7)S8}DR3P_uYwr7LZM*lHHu+Oh(QU%
z3nU{IX($>>FN6SCFg=vA3}<B*B5)R$5Ee!Qzzm!n%K!|w5Rbcff@gS+B)rC3<QPZ7
zu@sw7W&-sAwNM8oCsFyZ13R(D!t5v-PBAE5@cUE}f-AUz+n|i>pUb?F(vlAh?odqE
zY?o~3Pdg{>IAJ?+#CGD~5uW^pn{Sx*@d9~ny6p%@j+DZ0K_&F%kS<&F<(aZg#^@`N
zuAEb)F#C6SM`6lbp6*=I(6o->YIT?J$`9o8g~FC8ML37UGxR|cyFI-)B>X)c;onZU
zC4v!<XvAR;8BK9yb}E^@OXl)X0u81al!<6Dht7U3d!hM6cOl)=QiHN(IZ?-hmGtwg
zoQF7CY*W6V#KFxfZQWG+1@T_m)#a>ln8T@T6FXgwb^bZcp<UOw-+qK6F}(xX{9}}4
z)1^@t^&!b=4BHGw)fhLMBQi|GbVxEokdLI6g*SXK8<PC_IErI9htK$euc$kZ{MMVt
zM$iyVF%grn2AgmSr*Q^n5rbHq#|2!2#OU=;94R3mvC5BPsD-Y0ijRw=^2k|Anai2x
zM;T8m+<7X~m5VWsf2XcoJidST@t7-HuWVg^W%b3F<1s6leu?4Jj`1tix!Ratxa{%T
zdX8(Idp&97_2k{_EM`xJiI{}RxQhHs7===L)zLqk$MHMTQGn9i3@O>|kkb7FyESSE
zTvkw<Fc?Fy01L5d1)*ER%6VMGRa{5;Um1Tus)z4tI#v8@4NKHmOGr=;jnEX$;g2!6
zzK%AA&-fF$*Rz*IK9ocsOx{FqfjK>xoxnxJ!S<1fQwuL06JNSaxT(9!-s@^YtlYZE
z=k!<kIgnUBzdyrTRDv~fPh!HhgiVfNh8Fsp+E%-ImqWvvD>)C>`(GTH)3j)7`tq;7
zNA#vi4@%RNxjZV%#*$;n=`WBRZHA=Wnd(y{a@IB~5OVHj{dXSU$9Nuj_ft`@)k+_U
z9fvq<L$2kA2?-`2V^o94;|48tpl86hPlGs@(2O6l;Cda-IlgBW)s<6=jBz{aAKd3N
z7k=y*z}nYjc<bG%pgdU2-UJIs^e*A?X8KUP#CxP79iQ<9#x2xz6h={$Lj`n37j#7s
zMq>&rSb}hD#}4eo9vs49JltYo!>lygN;}6&Y(@r(5viGws4d649R|g)lNauyP2(J5
zA<-;_P6)(IA}i5txR--zNR-PvqFjzBUphd2g+%*IduA6LA(s&llPz5zpz?!5blFUa
z83~T*PDbK2CON+-L)kOOnfS3G&Mq>K*uGf{Sgkg7k@&8guI4NExY`bCiOi*zWY4}x
zUoLBEKgZ>~-(YyE?~N^O+<(-cu%_!1ed%oBh3ijNe56Vo#$;;4R4m3)gyR=TP1%k7
zM`+ckg}T^{y|{@xc#7wEbCiJM3vB3ojFRX|73+!K=!?M^0;ztpQ2IE%EPT)u&Cm*M
z&>cMygfZBGU5LOwP<54y=o`hZ948QkDyKM7K{X4r8aRkUu$|$w#92~?t|)nd1fVUV
za2l6!6>sq#Utoh=bM^YgQ$DtT^lf^dcAtA6#j}uyZ=}V`?Wej=X;;$nUSu_f3-_XN
zG40s<V==g|En2Tu&+IasQ7?s9mLDt8+N@R!<<i>|_c(Xo41DE-ih{%1N>0<zo=g-u
zM=`|M6W#6-$5xjO%8zJ#g@|J9HG}d9JFl|~LD^e$-uF0rmq0^&$U$Tx5yk6gw1?*e
zCYj7)<|{sX@Ku}Iui&{lnjNZsbX%nj9~|=uvh(v{AK52!h4Z%$iFZpU5uvHBTEb?&
zQMZ3B7m4Wu4*e)sUn?LHEOe1Zg}Eep9=0GFXW&5wOehV>&<Hp)<wK^LqaR9M<vCc4
zrPzSY*n%C{h1}N+79~FsSccV*h-|@fqOk(oumcjIL-4*qeL+psMng14x0@sudu~(V
zu@C#9#&ev39LR+ND2Ng$g+uXF{3EO!$4Q(*G(La${QAY`*D`x}@AjpbOI%KT)EXJR
z#~OW)=~DF3=$*`8u(U>RWxi2glY8Z!qk4UD4!twi;?pN;i*raW^+;}454fyok2b32
zO!9LsOB=0`kB0TrC|Zy8YEgHda<!A67Q9}qU}++$I)_+X$4&flhZ9|Rh9tbeOEkJm
z=La7&!)9#7HtfJdB%%_PtqQzR4NDOY4J#3GpHO1|eZq8r6)O&-95u88s-P+?n2y<)
zi%kzGN9@AyxQwf~jXQ9oc6%TTvSA^XKx+M4jCe$Ej!M*iX$1`|%(6eByGOUDoC-uR
zLLtrLBR0`Ac0iiR8PI*xopVy_%{SaimRoYtOAfdAO-cv3$Bsj)TTF5Ki_<ywO14Go
zKi%&bCh$4%u7L;X+nH;trZZYNzEv%f$yvA*wib7ZCb?rK*I`LF-cAxz{v{`A;rEIj
z5MSR=GvCtY-w}RPMI(e_JRYLidm{aT*P#u1V=*F-iZqn}%$N&RQ5~}}7r$cFXNs-;
z7fvVO25#XUQV{SbVa7yEMjspP7NHo6&-fF{U+n#{7)!AnE0BsbWZ(<>f8~@2{NRuA
zfAiiJX5sh+zbZy$6}DnKc48m)!-~U*!f9N?UAP*I`cX1pLznNR>w9Ed(vycz?mfBv
z<T`ViWbOY@*zv&S+fOd*s}C7W>w`Goy8P1Owe4zo7uKZjE+ilDe=FE;7ikQrc3p3)
z@<>NIUcKNNQ*csXQdm+jGjJ!3-P<3;A%m`r_--J}k4Sz&7o*Y}%P`vAsEo~IR1V^3
zW~1^KMrGr6ZljXo&di+8C_}vd_FpJll9P)uxek+G%rD9rOnvt4X82#Ox%5wvw1k~}
zn{7`&Pd9D<1WuRBr9P5c`{_)5Ex*Ju69!=@#$q#$;UT;niR{Pn4_Bj-!;R;Y*z!og
zGi35GDp`;nIZ?%ARH~u|YGE_Bnv51Dk7`u%p#Tb^BRZoO`d~KZ<FF@Dz<FGRfvC8^
z9VSSmra>YVgM(R&$`L%qQ@p@SJj%*_c!FnHEk@-%E2;R1Pxy>KVIb5lNXSmEQ7)%Z
zser#>$VKju4Ht0<x1b+d$ic<4)Wp;T+)2HOtEq90wb;}%j<uVq&zLI7&8vw0cDFp$
z{xa$wo%*8SU-TvW2e~|`l=j<pwT$%k^cGswcFv-AkWI%!YQ|aI#XZ!>OR&)t&2a?h
zaS?I2jBB`oo4AelNW}-F;}bsP3v5vG85JX3;SRP>X|s|Q*-;eKOr<e=&<-6CfDs77
z7=$1UV=*2Nk%*^wjsp3q5U7I-xPjsYcuzD%H?%EiRN7mZbwM`_$4HDph%5`S#5^oS
zIF@4toR<dKGM>KRbB-5JA32t?F79)M(2IDR!+m{uBR(!R{!F|am)r0No>3W5Hp-)W
zzGK><J!*vtQ-it8f;*g@ymQZ9v)J$Y{mv7gF9Uzm5)P<EN6MMc_7XG6*AzsPyuUD~
zC<ThfX5xk^#f{1?q?Ir#rAiu=WaKYJ0ij-Lqf(}<Q3*t&@<u)}G%6kyc~6)t8<n{j
zQ`IQfp_J8@$Y;wB`^pE*Ui26Y`WO}d*G#`!@P9oei^kwEhn5t{&odp_$qDxQ@+EhD
zTxegDgGW6K1tijvoy)L6vh}nGZ4WPzhCk7kZ1zMbW<#>R5@#SGs7Cf1K|;|Mp2dv(
z5-HUL1ue{S5SLsikBVrHmgtJ^kl4*bFtH28G|Yg+@^9QCmhpIw7m(Pd;SsTYj1Tw&
z8IX8qCf@7I7?lkeyph>1?8fhqf~bbhjsmfzy-DT=t?kn@ZrplyD^CB&Gu9TxGK!Hy
ztnHXSKcmkN=?fl<vhCT%NeAtAb+w#!e6N}#D^<(+K^av{+i{#<!DzZi?V^t#nn?M7
z#our#XH*(e52QW}bkv7pj`~oY`cTK)s5C$mG(~sxL~l@6lr5-R-Kf+@EKD_weCA81
zg7GzpA3oM1CUC25p~BUsQ$$YWLO~Qp36w-xlt)FhMF$MQFpR+q{8GoLoW!iUMr9Em
z<0;-F6@MTDf8sBUsK<U0V=T-<@CNVjC;mc?`XmN<ksqHwroKw$DsHB`4{klUdySP#
zIFGZeojT6F%nozwfIdCuj%)wP-aX5eK90t2)>mYlE_c+g!zDc|o&C48cDXcAOSaN#
zw(U`K=H|@pU->68IFz|Om!&p!ubOXUD~bMHNYq<8q8&-JC0G)e{kVjg<fm6-qjIMS
zHL)2@r#VferBRuRyKUHYw&QsnD7lW5T4%cNZj?B(_ofHwM*$5m%4eUQ^h<^1m)AHA
z`|n>+mY;0b{_WyozOT%6#rB_R<Ek|Kr77C=qiXIfmePIc2a41B+xvgk9vziWK_%o}
z&<#D&8_9Tu@CKAOe#2_K!8?3FIwm(HE0~U%sMyG;c%v$6qdR({FZ!WB2I61v!-z&y
z%3xN;VFDIm3F;HGhG>Qs2u3I-V=AmTj96U2Tf9d){y<*h?S*z2j4+JDcud43OvV%o
zv#FSd>6n4pn1f}|unHTn30trY+pz<?z))6>Ol0o#h64@x5J)EZ%s_7a^Qf%L$3yft
zxj2`3HGvO?uF|a}+V1dGBb&C?surq#zu^$Q(#_AcTwgkOPf=bi_1n&GwmJ_$WdNdI
z+e$^1Bb82)wBHed)3}IBxP^E~olM3n{DBPE@D;Uu=zUNh4Y3_N@jD_A)s*+dS;WAH
zy4?)jnlWbV!AdU#U?c(|m47#+0n9@<o*@Z;AOquDP&inK#aM~sc!Fn0#w$nz>Wp;!
z0UN$zZ)-Burmwwab!y8n0;{nboDxjYr#JkV^fP{DI{7<^3F&u|({Enl<LWnjF+|8(
z^0@>0llG?X-oAS~o&2=J{JhM`!)ish_06`*Z7WBNyJxCd<kBN&0Xfh1ISVSI@I$4k
zB%wNueIBII$I<Ae;V0m1C!=x&NqB*pbOfUigvpo+kFJd6ARR<@9PdRhjN7==i=fvd
z-}P}HiOAiLoiDsl1VvE-$8iE>`qSOxF76=>>7d6^ym1Thc#NmWHjthgz5hjXMi9oJ
z#~=!Okc9_W>5DjA#uZ${eLTQJBqEb9gLC-84@2++Xdw*D6XkfFGqacQOkbW)JnNWF
zCCZfGxc@kh9(FwQKqh@f?z*ICCq}7-OKg#^!BZ;r!|b2M{aC%Ie%rZgma}|QPf~mv
z<(oZ0ht<3zFSnhlKV?CeDM~AeLm#{$kM~Gkp22iw`11#9`7ooh0J(>=jv*r$Yan10
zM@`5UVpQ57&se&+aYkh=#!RHMKrKQw!t&2JuZ%YOJw5otMjReGXM6%6*A=f@%FKJd
zi~@&xmeEekRkLx0aVGnLVyuT}ZY}8)-{#wVlv&bIevTra#PO~pu@y*cMN~rTA?(l5
z6TQ(F{Sk~%c$1mxkc|0ZGq&L%qVO?*-7+M@B{2#?*nwk^00fdNepH8U6In(wz(ODv
z!iA`~A*)0OIgtnX;f4C}fkbc$){Umiz<FFm$uUNyG&-RRHeeI(;{jR*lSvD+4(Np8
zm=7t6qA;TsE`cM9r1!QbwuicVoQt@ve`(3S<VW)K+fVfQ1-`;0&pqvML0_KWKKbz1
z{zom#QHP7=wJj&r5*3^kZ>(Duy*3%VF6ql#-roOJ0S6xE*S4j<Xf5fwj2pOz$9Rs{
z_zd?@j>9nv^ROBl!{~(Z5xJ>qQr#+`3aa7=uHYtaV>s1Ns$-a=N;aK9DNdl&Cb4o6
zi6}rF9Sy0kp_nt7V-qaJ&)9&CXgq}yLmRY3dvriYbVjeKR5i@U0xZT-9LGtV0e!M9
zqc#^5+0tLi-Z8`W{GnsIb?wsm(?_kRBhGJ?OInyV%6x6cinXi>tz)!WL_2s^&8aPl
zR>x?Tll=Oiv+rFmzm@4M7nZ@T!j%TH$#Y1+L%hIClpqA9P#NBkCR!I=&>M3xA4~8v
znona;f^O)AahQq{(|K^hbmECsSdGotf@w2|B@*B^lLEyZ+(iQR%wh+I!#IlCvq=OR
zp$QhuF)BY{3$|f5_TVX=!v+`2T$&S#Vlrl7IW(-oI$TErO3kB5Asl<LdOmF#$6>#M
z$oX9=S-xQ6D>sig>c0Op{^^aUSDwE9c6m`eYZp1#j>(%5BU6+<WgKJDTZlIGtXe_4
zcvkgxp>=4Zk8@VSd6exeG3l4vNEcFqU`bGN69h?%_m2eYCo;Z>R)O40h&qCna;9S$
z!NJ4j)P9X_=T|BteqYT<0i8AwIIP`7>w@D_ZW5)%HB}4$^L-EJS3MlxoVIt#@>M+j
zQ&{~A9{+p?q~TH3i!*lFwLRyh=at!SxjZvzM^33(wb=8Vwv*#){X3-jBnRhl5tncS
zRmhR#syaqsDb`~*en$ijAsT1kv48^vbj1KX$7^K3mB^^@L?&cLb_=sS@J0>PL@m@q
zV+28-vjB^*7)!7e`w)r!IDizS;ses~2{w2wWOsr|xPt^dL^3QMl#_~*sEn2vfnTu+
zn<3@-DfJV-J^Aq7!`lz9L#E63{(E|O`QPr2xfhcZ#dO#{J+$}2|I9OY$}_CSz;Yb8
zag?K<AeQAnx9pF}T)K$G<yPv;GHveZOZ^&t?sq;;1=X6Kl`sBEiX$L3Fh2^Q2c$Mi
zO>}qE#!oCiJ8ESrHFFa+a~sa$KDw-+EYTMuuo_SCXeG54>BvkimfCDa%~k9mSJ5;M
zvT_c+soFy^3}dh!o3IC`&~P1nF%t0}71vYgAkAS2yf?CU#wUD+k*47aPh>_GWJ5hP
zKx2Gr%#Ra2O1gjj@`dONpVCgI9d%6Bv`9XNJ(;%W<R0c$)@4nWJJYtNZNys8;x6A+
z3s-PnUFiIV-nRDkL+b@u?O*xm8k|)xg`Ld~X_qgmRXwDLS`V(EO{~pt7U-P?r}n#M
z?m&6UE&2XsBT1hR+M+#rp%2zTn*B9o+f09oo)~}|xQPN=7$Tt-8lo`<Vi30AELv`5
zbOB2zW?j%1{V@=OFdQQ>2~#i^^YJs5VFz~M0^)EB@py$d$h3{1BQNr!J{lqgACQKR
z+Zg3%+s-H)IguNEz<*V%1R)qZabX8tO9Z<pv_dEJg}qZxd6Dw;(S7O1<FCd)jiX0T
ze;NxL&ge^7lk3X=naf%fllj<Fdiq1s(kK;Y5iamI>9?<RC@e#7FKy~2wcY>h-&;#z
zNI{$<sM&T>k+B}HP<<EsESyEw-4r6$;U%j5PHb@w+4k@{tj8-zR$uO=k3T?pSlQpf
z{jh-%wlBZ=?EGDf#hU)(7*}_YKEA`lDU+Oxt52x>&tpkxe0-jAO@7Wz`t9@noF3NC
zl@@E(h_6yg==viNE3g%{*<J&5LO;w#Bn}`MlAhlpNfWkVCye{qL8BwOVIchR0|GF7
zKP`L&E2FU<8*vV?C`#tcSdBH1%-%t@gY@v2fQeXwLx{#%oQEp`aYH3E#sEm52Ez}_
zup6<>n0<ibP+9+<n9}tVaeVRfvSUiVn|zlakv@IG%Kva+J+a5Wu%6hm;kOOi27Wr?
zhFa6@bA_L2@ExzH-Q|-IsTk|7@VU2hU+=6rvd^zCTl^dO4;ht0D2cMDg(hf=4j6=?
z7>!_rU@XRC0)D~@Y{e0r!8JU>N7xP#-(83Kr058}<WXAn|3}(g$3?OI5Bwk91!NVw
zyW`q*?N;ort6uBc-HEz3V)xkC*w`I}2nM037$_(xAfPCCU3Jyp>peTG-p}{<&+qZO
zbDy)b3%GOMC+19@xlAYMDtp3ci}i50M!iB)Wc8u0p$z`P5G;lVym1QseEAu6W1k<#
zNpKQp;O@^B7D0H7MMJLhA?^flaODQI9Iem=-7pVYFIcW!(mK5yCz8%rQkq=MEkBBn
zwLFV`7HhFSPSGaqX?xd$xSHWy{JA3sjxbk`Jz%f)?gQsaYUgn0zs=by`DxYjPVU!A
zQ%BO@l5|VDWZh-GWj$pb+w%3>Z*u@RoWQ~lneWqfU_U;f;e+(bQanWQhg1q&gkuEB
zzz+QCWYJE1RCf+^&PPX!OIKt+w}=bXu7V3o|9@xe`m!s$^(GZKCW0gE-gmi=IIo0o
z0T#gn%aA#cyhOzywt^UiF*uKlxCUQ5K_t@Oq@u!z8wkRVTf_jj5R6*HsV*d5dtnHs
zn-)v~%fmu`6ht8u4x!?rG|FN+X2Ohl@Wu(8!v(m7vIW6HEXES7#A>X^Mr?;CT*62k
zx}yg!n3-L{b=<+)yEH@Cj=k8A12~4`IE}Nof@^qzSeT!&a#(>?I0>y$kn)(MU09cr
zmXyL9Ig}Qw&!f}2$T7BGk}TRUr|?)dj<2OXisWZMKa16V(Y7T?>+P%+(NDG8Xs_pn
zm;bp%S^0nqqqR1fmc+i(Aiaq0Qr6z!&qo}#MF{dgra{F?d`FungbXiH<tZB&1R-Z6
z4GNARjnvJI;<Fbt7%!<CG4zDv=(3|-f|TcT*9SOfNv9R!qa&zXK~J4)ne$0hPT}!$
zx^IX_0$lmGTH*vQV_P)Yh5r2e1F@R#SOfX42gu6zl|?P&f5k35D!~6WS<5=~#cIep
zZGfy-+XS<1<$AJ$f1y7T-_V;tGT!1HrX>;_9Kl6=K;ESEN->m#bP8-&N!o7dVbsO2
z`&?ejoqzYaQRMVtubrE{Hmq6U<-vn4J-lX;32E}2Oh?u08P8R?@X9%d+Ul|M0<%32
z?O7#xSw+GpYjpT69jz2LS04yPD(&<~{7cwB5fV#!rSWIFGGAy$tb_|?zmv6Soz9?q
zN^eji83nqagF&h5WKc>v8<Zt3jPsAlnGH&dYzDGOT|dydo!Ynnn|E#0Pi@Fn-m;<3
zON+xp;%eA7`LsgX$XNQWopuSvxfjlL4F1iYsZpt%5y>ZU`4bJ%1%F`-#$qz&V+lN9
zMc!mG4&~rON_|n1)HX(2bVe5p#T+ceBJ9L29K;1g;#CS6+u}Xl3XH=vxZx;{;TnA4
ziyH_;I>MSB22@5BR7GtxL}N6;T0*}b`)~wDaSWGn1ClK}hA`WQK-@$KRPsvl%eHmW
z=5jR_8zedH@!OR2$~IY^S?+PdF3B3ePkpud73+n73n!VR`>3erqnyhdP5I6;h}JXb
zk=j<Og?z;h?897&hC7B)JjUup#Fb*w9^)|)?(o2JL?WFOAxKdgieVUz5!i?#U)kcL
z9lBu%+~H^?=shTRTlMnyRH4ivFXb;ETA~%C97gM9aX;nJ8%G=s$_bpseLR2*<uo&D
zqYf@mW&<!Hqk*en49ZgIVWavbrzKZpmXP-9#j{tB_357Fp5>P1mhUag`4gOdU~G-;
z`?jmwkM29V?x1=$#<{iXQHQ$MF3P#Bfla)+Hp;n#S>h>ObIP((SH8p($#{!*_>5Ya
z3`#R3;0;`;NLi5`Igk^%Pz+tr4c)OA?vTp&08j8&ZW0b3_~tenlwcMt_=2w}oyVY*
zL0Nd?IPN1EhP(!)3L2tiK7%q2v-2C2Ihc<HSOO2MhKhaIk7or8%5#_tu~N_mDf#nb
z!pG#7$sdzHKH*ZICwHG%gKq{0Ts<3bHQ?+~=D`Pd%ap9mwWXH_gEuQ``Nz&ho#RW&
zo#M>Z(lO5SWgsfIJ{&#Zb>Eas+G~XQZ#Ar~DbMh_(&ik_VNhIi*-~U*lWVNWlcENt
zM+t+n7PZS56gTw#!=UWMf(k^Ul0g}Uxz!BHm6`?y^D!vvYZ;V}wGB$8ItFE6J%h3v
zof;Ta-@?wE`qfYPYGaYml*#yh+V~_4^2gvKsrIXa3+cm^<X2r}z$k6#sMB#ABaMus
zXc&vLZ*xp($pAAFul+cNF-3?wmSQ>bu=e>-6eUm<&CvyYFcc%O088)~Ym1WtY{hms
zkn+-yDD*}!%%RM_z={E-49Y(kgK^k{eK-nl%q(qCW??^WLc-VpGxc!RFKbY`q8A~R
z&<@6m@{~lJM<@mnY6<r(+^b+{uRLbKv7$lA1nQpcT2ju;%B^2a+6T|LOHWS4$`9pg
z(J-$1VC4Su$IqX>Z#}}KJ<WTUqJ~{yoG8wwtI-LJXw$L|H@f$K#oc#d3C_6;?B1wH
zp3zU(@XEQQxsiNfHsnHnltnvSgAY>h4P_`4QaJw93&=QL7hyY|;3-N}HYlY~7xgg(
zJMauq$W_Il<VGz#Kw1?u^^t{6RS7jF!vi~T0^t}=NgN3?q*N}1J9c0X4&g8^Q(C3O
zKEPAFz!XaFI!dpU;0<_*SiD9&s+cL(RUySYGsXK`U9y4VEyY}J^Z{cFy^l?fPL51|
zlzg8_=3%_!lW1nVjZD7z=w>9-quAttWM8H$$rt!hZ1PEV*0uk*SVOuTxwW~}TKz<y
zdSnXESnZiWJ(!)q<#}2TNrSnQoHMtO)o{aH%!AZCD-881Rv3kiP_YBMLCsVqVJ*%#
zBqNcfF`0|vXp4?`iCBC<8mw?^Vo>^`KZZ9Ub4IW*4Komd$9RcYe8o4UZ)#97A``M8
z8wOzrCSnp+V*@s03%27hPT>l!;u^FYD&8g9ruH0ry&HU&Ml#qp_)74FVBeF+c$H<}
zV14n>er?3<{px=1ev!KwQ)dq)%rciScW$;#do9sqfm%1wIlo*r^WTh^*JiJFTTI61
zeWJBrm8Sq5e?`5K3**(5iO%JQ*OQpq<N02XXBXn-(#)WA#*!8W#UJfk8kA)SXhl+5
z8<d)D_`9|SB@lmfB%Ju%$)J?)Y)~$CrE(!%Pu?R-Z-edfI;{!i8oM&;_QLcFwc|ky
z`&7f$aPpb$o+~x-hqKARGcDDqcg{uC#8eIub)NNJKRTo><&%)!!X4a2IAopk>gyfE
z>rH+A*RlQ$T@6ZOG(~fCLKpPFUpRySL?Ifl5D!UrpOywQgAGtwApwX(0^Z^l!3aYH
zBrpzoU^eK1`BM*07{U1j36d2p2~=yeM@KzqR|wkf9<<4j;2CYfQ?mEwgLi!?&5#{J
zD_3Pcjk-s3YP;Y*Brt@tr}wP>w3^y<k2l_jz4mz7e&?RmlMn7$w@S(BD39#oHTIvU
zYT;yOFEd3*`@p`JCr2(CkZFo5O7){cBKJQAr6(p0GAO5!WhiMG#x`O&8=VnsTJdEh
z89s`Q6*`SIa0Z#WgoTr+2bea6dV%O^Y*S_#lrvx#V&O)1A+$@WY!_O|J+Rs+KS%v2
zD%=;#=o4~fm3|LwMm0FqIiJg#Ki=vkg2Bu5JqU@9tZ+lLMSE<-ChQnUUjQfJ13yTj
zs_F^r&+AZ3Byo~RGqz#NU|w+uM{pa#a2Y}n&<ri`*AQBj-Ym?98K3bLnTS+oY{7Qy
z!66*R5uCtToJSCDA{1dLOoWT0Bqn1zJh2Pc;0wtG2XY~knOSkvM?<ti8w|uC@L(!=
z)?6Z`$I3X`JWn$<kazz2r}CO;y=J|{bncS;;F7=f(mCrX?RQeGw%_G^yH;4dirDVQ
z>02zT_Fh_>(eIsI47C61<oC|)Gun%j+;1I{z^O+mSFW-mqcIkal$i|3gv=<2!YF}K
zkaATUZBdD`RRwiXAD<y*ts%yaHYnq<5R0*83|R(G?1GfV&SS}*$t+C8bj-vyc;f0f
z$^>#ySaYETT(JlHAO$%JQjj;n4}tg&WilHE<iHYKf)w=Kh?`170fhpe-pnjF^58r!
zA_9-Gbvk7OKJdeW8T3JL5?ZIp)^Q@^WbZFZhI+lHErw|GTiSbR0pyB`8`@`nEb+@X
zuIj&=l99Jk@7v@!uc&Sxom~yGL6DqLZ-3(CslMSJF4@#pzW6lWBNfGGQV4O!&7g$f
zAs#`h@k%V3P2UB}u@YnE&^5#wti@(*!A|Ug7Y^V!PT<NMvgaxbCFUBGa%h0oXp4Rr
z0H=8d#Ti9V4E@j_gE17-Fax{bg{!!Ra2!}ft-}ReLTwLvgSfYp9V2`*Gy8#3%P4H9
zgQggQaae~F$iAF1g8V3ko*00U7>9M(fQ^u&JTe+c3TN?UE`w+OoM^%MP|o3Vsl6qw
zK8xJbZu`YJZRpfc2Hp(i48MI!<Fq~*SZb>6$g-NFnf6{P*!oXgA(!~xIj32ELoTuJ
zB(1BY{s;ChwxxIqDIU6lhHEw5(Y3TUsJf9Fgyc;`WDA8DuRW=KJE@twXhJY%57~&@
z_~=E$dW7x(lw$^^5q=$eX8e3pp`SxI+K&o-kYNpe-=EUQb{s#Coho*vnyA~eb8Pym
zzsaQDlR*z&rgHgwP`0w12$Ddm*oGZ=f=I;U4H7YgG)cP7W5+5gH8PV%N$2x5R7BJy
zt+mhrUC{@9A#vCV;|5wJ<VQhNH4~H;2*OQtRB1Vol|WTQeT+shBzU<9TpqMWTSzdw
z;SHR&l7MXnP9xKzY^NyV1Ww`<&f@}naToV7+J#)GfNJOoH>|>HT*oWeikKWkw7y`H
zLqkZjJmNKp`F)v!ne_MZ7Dm~yT-B$W+8`*WE^=Tf>>GPd=FiUE%=U6+zfr^9kpJF5
z*vp}-tb>%66nvn>q~Q}j>!qg%rRN5MFl{&W6N|9~qxDj?f!F$b4V+7+&h9nS46@*}
zk2V*bDQ@Gj4~KB_0KWt&f}J5n(5M%~#N%|zaO)&R6`=^j!&4L++&IHt6igQ=+L(2b
zqaJXF2TopQQ*35-6QOvA6nw;<E35>L;SA2<Dtr)(P-vUjMCNg9Ok->fbsSwYX_{}*
zAoHC0hb-K(9%r)s&T-kjl{ZIZ^UJ`R>ce!VQfkL<9NeWUOKaRzs+gp$+zDG+a-FuN
zrOsJ)+|S$AyDDEl;2PT}KZ8;ufKqjX)yAM8f_{fm8A|aFC#?@DosUQ_);(dBBPnsw
zRFxNOtMIETE9&+^rgBnme_j2q9}MAGFPFPZh352b6We_=jLAw}&d)E0hMO{|Vf&mj
zNl!kjtu8MceT%v*F?xUqMBx=OU!_W+0xDr2_Tv;z<03BO7KyuqM?PdGdS2&91p1;s
z%$SEmID*9lVHuWVt(n<+Y{X?;MHZry4K2_b!>}0=xr+$LV@MSL#hgI)SFr?3v4F@f
z#WHx@<`w&K0Mmo{E^G^-L4tWdvjezAHY8wW7#l~d#SUm&dF?jac)6jLi`41c%Wbx?
zjAkUm-pD8N8p>w;w)V3$+da8~+D-sn|8v)*Z}y-6vKU6nd!8ojYcS={Xg>jbwq~Td
zGmj}x3AGUgj#9RL_$>RTM0>U0n^kZqr}7!-$ZUVsti4T;V%b90`zn0k3qQO>3})XY
z(O80|c#3BzagQS|IDkVqg^Re1dsq`eMnQ^bN4=OXd`_FN=s8~mU-;o2QZSsdI|940
z2YV5UFi5$Mgp})K7-DIOk?|F|j~IOZ_=acjKDhfJ_`%Hw0lfMK`#!kxfX7DeJ+gW4
z>b<-y+UvsWtOvG<8cOVPss|iQxyy1<OpUf%3GjLzLs_Lw9>#%ApJAS1WFtr7m?53*
z^X?hasZ|W720!C}XMn5irkAiRT)(!+V9H|tnN!(wuUGg3+dosuLH}p;Psu7-lEVS=
zYI|2jl2_)XEqV3y<h9e2SL`*dSsY=D=jRDD5sBncG99|NY(w7hSqdR|Zz!o$`ap*|
zja?R$`$XnhXjeZ|z3>W8zi?diA4X2G-{q3uc4E$tJ^8E^*@EjMG5@+wx}?<n9Oiry
z<?m?5s<@&h+Mq2uV-^<TIL_h{uHy&Vv+5hL3Enu4Q@Ds-B*_Pov<NgzVjmw}(H;L_
za1uqQsH7KDu^20`1qa}b%Lqd>UO?hwK`~+^aSFt3+(!{&RuolH9cK7LVi^R9ryT2H
z_zWiIm9!Vz2cJ^o7%wA=0W_Z8*QeCm*L^OWxp3^zu|s<fo!PQcUDJ{6@D69wK((WT
z=`V9V`3EiUwM<gJ@hbV$5be<!-Qk88NWgo1!FOazCCX@zVHkm%xQ+XGfae%Op3lKz
ze8Ecce>FCKB6^!x2*W)*#3M-I@S;#0!7*IGMff2Aw{Zt|5sny0A)4}qe-soZ<qLiw
z>?=n*tQ`JEdDKN4TtnaxX3y~+nZL0Eh0d6OS+MdXQyFA0n#nfU-lO>Y@zL@@FeC3h
z!p->TfZwKg-}o!hR|xr;3jy&bn6AWMQGGI+${QZG8L8%UHjNwLDyt`}WnT?XzA1xZ
zRGOe=I-@cjbqz*k5{4O#$~I(lG%9USCWBGwh9GC7^2TIT%4IYv;hBvLJ#18tp?-Fw
z>RZFvHt6|yXEveQtz`eRq>XYu`xF~f?FZb1sz0MbyE#F-hJ&*W`n?Ku<l>I)^7e>}
zsf}6AIIM9C<LHQ7SM{d<cYVoYU_b6tmZ&X+q-hV1!5f!w83A~XC^Y%b(K56_M=Zly
zH2lHOATh~=?bxHormdOa?8ZTS$CdO(<twbnNx-T@g4a+F-Y9~%RS)762ct3rCITq|
z&4QdxMkP0jpcsO13lVsXECf3nB=F_oT9ujPfE+2~At@G~WJ_0=DK?3rSs8{kT$@5!
zy1}V-rl<7Aj%W^8J>@xD{HLzWVrrU;hE^WVtv{lh=2zaSeKVT+nY9q}N#LYEwQXkg
zGPXM#wJ`I!Y$EH}OF||}LK##-eYj#Uq=dXh8A?f6NNH)6$*2s%1kA#2oW&X!qp}IR
z@W91vRQgh^`a_D>lq?iW45x@mQJaYAn1Q2^qUViz*|j35wCDA3E~9b;Z}AQ#avPPB
zD23{%n$M`z#6Pf)vKaru^33{}sptdi18pJXR>%Y2i)SyMJ$d-#?j0L<Y+SLChea-&
zt**#s>Z`7AYs#mV$zp1og^*}Zl_sR}supX>1>6&}m<s(}l{%r!fPC>N{fh_jr4tGm
zl~aX`N-6>hlh|U^HJmPCR8sIqX`?a{70Vix$p|lJR6bQAg4IY+4Wr^w+o;al$hkcG
zrHB4pz2suMk!N`hQzrwtsk*zEikfpv8s)3b>0f8z^*bgOF)C)v#XOwDd06osE=4Jw
z_ygrJ9Wx-SI$B@d?fNSFvdXhc8I?tFhpc`JR4HRND%Hx+exMyr;S8?e8eXA1>63J}
z)6?3Dw6;Y%^uQ_HL$mTmrB?+b&zGPYp%DH+L-@cK0l0zNxC3jW)OU$-`V<o>Q(R&=
zM+n111N~(d>aV#SN-iJMCY~pJ$dgT$OjMSBxlFS%k+YS$&8M<3S5vZ@YRC?ZRG5bH
zB~KBL17y%qoW{S%TA2t|F)AO?rz+I~3$PF#SdMkrh(~yi1h|sPEs=~ge8YG6RyQhs
zm|nwZR#s68Ho+62cq_}bX`Jw>E)5e5^@tQoqdzuaBfN34fl-NWL=NCeV{!vyn^H0{
z8D`AIGOWM}$Uy7wKYwIg|7t()tKt3{#_VT=|4?m8zMbqR4`#Z0^6J@Repe4&_1o*W
zV}svSBI%mPG(o+V$5cYyxQ?r0h~VeOwxN!=99wH>#+19Ry@vOR(t3i+owE~jc~_SL
zuO&;8Vqf*b`YOw+b!cH!p0p%(ZH&sC4#c%HF-4DVEF+?iQOWx^vFk?x#0yh@8r=a#
z#ebktKZnzwZH;Z~qz{q6I0<rvp>`Vl*EUHTKw*_H+a%ji3fjY$w7-z0DmVGTfbuL2
z=)<@RGMtu+JbT1;0k9m<UzN{Pz?{@3mXBn6c4USe?U(J@uccpGwqIMj(as!>)~+Jf
z4oqu*p~Wq?B>x=VAPFh>flSSeN^7)-FQOq~@@zrzIn2U0lyfz5+Q_I3#CqZ<F^q#_
zE2FZrHI)d#cnlX}n*~|X94*kT9e;~+NQO&$qmmhap*JKi7D|3#8+KxCXMRyKXd^ab
z3-)0@wB5zz*Dqf)TD(5Jyz?^1C+I>DkA!)7<mJ9QOfPpt$h2XV$J`C-zs)(B*1Uk}
zl38{i0!yr+(DZJ^Rpk^hc_**3&5~F7yqbJZ`Yt3A1yLGZaS&s=Qb@2EOK=$Xa32jR
zNX^k5Qm}esc`xb}cEcRb>;qEa(A%gu;W3^e4H+qg#ZeM%(GKm=5mG{9QKB!K3zWql
zkP<t~UTP_{ukae5eidLPaG+7CFo<mJG>E1K%?7ikXo07A204VLO>$gTcCF*&qWs7h
zcD?Uwmnp<>fkK>i-#8cQojh{#z}`6P&N%C~P1Z0XH+A+yErQk3Ezw@PIM>o%wbISc
zrEC{2WSXw-&ST1Db}1YAGu{$+t-$jt`B0xar~I(3vbM(Vtnq^(6s)0aT87b(V%tdC
zHC!D{+lCBdjY<Q&9Z$WTz-D|Rd4=keX|v!vl`X?Gqkfb}-89HlOdTT+tz?utj^i-&
z$wui%a!0IowI0_D7h(TyKq-@pZOiG)xCW7>OeL~wbxeC~khWB+Nh9@W5mQ5RZi!(u
zV(|)b_<~Zbc^TA01B}5qOvDsS#Wc*oR&0l)HU?p&_#R#$2LF)qA&@A{!K&f(j<9yP
znfl2>%Mo+}&>9`l8RIb#E3gVXuoH)I1V?cSXAp*acz_7F5#rg9aPPzwLM<Wp`z`F5
zB=jwrH6`}a_q6DPrg3>$3O%JT?X5+Bz4@4{^K1ujSoGBv<#(=d;DP^nMrBTQcrjBe
zTRE}czGE+4WeOM5ntsn51E|F^m(ugU2WqREcy17%+YkFlscI~1*9;vo9}BSv=Wzj2
zauiBVQAi1@19Jmrt<W0Pq&T6LUbJpaq9Xw##mfPXsETTkVpkhd^x9GM+G9CZU?r}>
z2U09=;PrHBEYFnu#N&FOgwyko>4slTwv>m@?ml~U^M*AZYvy=N@mMo@xYkRT87Y*b
zFY+i~=~&v2#S~IQikqIRH%gf5n&sb(L(v%|3dPYL9ncZo(0wLN6`msogWTv%BNET?
z0x`%qi&h7JpbDy?5qhC7Mqv!x5QclRXmO%hc!?OqA_0qM({^GRR=^K|cz`@}*bt*2
zx}ygQFXRhR1D((npHkyLMSbG#Fxzx1<VJ|!Ex#Lnm$d1YA9wO{=U5g#KEkwT+oo;n
zSFd+hJ6AX5P_vdXZIt^&2%fsPjHzi~rKU6u5)ThO9`1TPGLdeH$4<!V=VujV^<=f;
z=h;?GR%s=!L0M$vQRhabA6_kI)3HM9KGghqFj+gIEJu*asPZf?8l5ugDjB6s>lARO
zCpRkOknX|nEl-}^JsFcj+oorn%|#5_Qp0~jRJT&5zs<QN9`fb>`U>RKSE7i%B9nO?
zwUll=7GU)<Ha9553iifejKpZfLRLHhth`cSH9Mf_iNEkSeAXD1n`pC^&D2_2g`O-d
z#d55G4}9T=kN6i~P-h)`z~~GsJ@44mchTCdK7o(@nWE`rAKblT%eqzT+_$XT;yy>_
zQ>+uLT2aqFZKK+$I>#SxR5WGJ`tz`1<jgN}*igMw*3?>UP|mdJ?+W(ymi3jd{)4aU
zwVv%T9Jf#jwi%T!p6rUicc)RYAbuB{*4=bykZ}*IzL!olS{$U6z~{r1zax5IP`i{z
zdvd0BR6?6=m&?AjA+*?XFoL;Rwk9&7mMuH0nkuM4RZTg|$2axYGw@ly?Ru9je|z?%
zwM_Nt&h3cWhJ_{7w~?uUdb+DAr&+7#xg~A`Fd0)|#$qhNGOWfLY{Pc!!+xBG6N%4?
zY^aM4=!m}{!Rd?j=uA)~I6aVvWPCI;`vi$r0D_5DC?fC}61^ly1k0j2W?(js;5H<(
zVUXzNL17fZNQ}o!_`n~bs6_NDV=J2bGW*#<(Yh(pOW~n2mN*9J2-nUQ+veOTc1oMr
zQTu&j4`Y92Q?D%2YT8fevE8s0spvM`E!Jq(4|_q=UhREC8Ofuetbmk>8!#NOm5bKD
zm5pzdj|E4_4&*sT>TuPYdV-86>20G0dSe&%!W(CB0X`?qgo%YT7*CO37>*GbiBTAh
zNtln#*n+JHMhHR?2Itf4*dZe_p(>hV8n&IKY~VOfAQI2;ygRcf6gtP+qYwVZ=ai)Q
zsHYJrN#RMM996oV6!>%U=iUEKvZL&^(`)B8c%9^wL3LACwNYi$h%t1&rSNmjGxG*i
zCM`hU36QLxtebq@R*bkrCl3v;P{xsVjo<O1;rF9_V|@U7Z%DYw9?C7cM7NEK7pjJ`
z1;Y3+4u6byt|{l|w1)|B&h8!c(ROpaoMx9>>TQFa%f(gd&KYuFW-S_*<yB3!wNWsC
z?PO_7d1T#2V~f6yp1fu~Z&b1);Uc?NsLndK#&Ad)#-Ix8Ukj3!rnrrJc#23wAsR7=
zMdB5<nn^6|CDHpJiML?AFMCAzhAsp_g3%X`{Mju-0urHIXYU0jWWrDkM*{-Z2ura7
z62ya$K*nIq4Z1716I7qdPNwS@D#zRI&<W!{9s3lh4QTx6{xzmk_r0~(!}q1--m*>|
zUDMQ7y<5{%NxPNW$u(KMQ_fUS9bDbiz+CrE5UEEvo+1+Q<f7zc8itXZ!;y*H%#19^
zhNfta7HA2{@rj5I=71L(h8UH`Xof);hY9dT6r^O-4>fB=Lzy4OK>|43rK+HBIL9`y
z1A%w~(|wxA2Q-mbfQ49u!#IMo580{3H`w-?662!dBI6!u665a2h3OLG0{t(am&rTd
zVJ}aw^`6T-dHLCk(-zdJbxa-=rERkJc<+>F0I2`ARa(ziN~5-)Bw;OLHkQe#{hIx0
z)KAN~Dm5toS^_08l92h2Xu2QM)<;p-vGN5Q{TQMfOT9~^3yeDNsB5V3fncC-Dn$^{
zY3#y$Bsh49)}QP<QL^H;t6qLx-}*lTS#W8qUe~k=SELqie-1}$8`6TOm%0p^9;k2i
zSkkt7F2&~L*FU1~qxwFTyWnbZx-gFf{5yW2Rs_9lEP)4n;0r$_A_<cA4e-Ma1mQ8#
z5s&n6L<ZzT6EuY@TA>%_VjdR3{V^qI6AKc|mQUGjLcnu6Km=8SI~fw-)&zJt1`%Wl
z^fQzr*yYg-EieOVNij)LNm2LZ<#rSg7C!&Kv(r(>qrCQbZuMNh%zc5o*~y(EAtSHd
zX<;g<cBp3>+kxJ{G2cVVMBco0Y$FfbPND8_p<u|FSeF7?4~ajN-;lipdA0vOXKsJ?
zrTAR^yN)TpS*a##=Y~D6Xob-GHO(^yV<^(_FTTKv1#yH3Yp@Re-*DguOR)ye5sf$`
zAUj1aCu*QJrb3G1d@MFITLLMUbCX$y2d?4<0wLwKp<ZU=c}+ql%B_^&il~Mem<cof
zrYuXDo~xH>qh6*@>1BHKCt8Wmw#r<`e)XEXayvBAxD`4&))H|yf^mYb%Kv9h9AesQ
zd)aESO|~73Rt-$+)O7<*xzv<I=Zu4;N;i;tvjWffj^ba~6Ss2E2*-Y~?r=-*pj<$h
z(Lu@V;Gld$9Y>a(9F*=Tlfgk5i}ubA%6j-`bWj{KIVjaLJ1EmLJNz8SwT!BDOxe_x
zu^r&ht|QhCT(*(D3)?}D3C{U`Jv^AYrn)s^Pa=;5pgJ0%33_1w+z|;`c?VYBo`5aC
zCE}ExkhpXXN;VQw05vcZlDL(S1cs78N#qAeBJ=5qtm0(0rLwi2%JILYG?vufC$$w_
z9F$HN1W9>Mgdhc{vp6UZ;h)t(iG^1-2jw6FA%`UrQW7jY+=U0`T)lY8Tc)cQ5A3z)
zT<C2z+g8iE<?EK)KUrc?)EZ4VO53HnDZ4tgiOECtUB>fse!mn%T4*`?P?IdsRwO$s
zAS?1&Uy;Uq`QGdfO4%F^N|9U+N<X~I?V$XT$3dBwmn_WZpj685pbSU10uIV*lr7|-
zY%1)aI2Gk8h++;(Fjg0LP<oYcP<EC|=OC9O{H;HjP|l-j4^NUI+kPFw(jK66yp(eb
zb@e4@N0&QIbLy=rOR8@(Q=b2~K2Cm#)J-HJ8Go?i6(9)+M-+*8fr2?5l)~tbfw+Mn
zNCNBN83~L+65c`*oQ?#KC&3djC$EE9nahGiU>p4K9Ce6BT|FY5^oYzPBF_stDA7p4
z2S|kKVE_hVD)wM6F5m@T!h(WCvJk4G2YO<3Vai$v3t<>Sn1^9MVfMlSWGP7@MhA34
z7j#40Qq(}$_C?+$a^;#fy|g^HJh9m3+~5*?19yX;2m1xTv|Rn~|MI8LpE&ae&n<qI
zi`)j#!qml9#>RK&-gEnIhqM~4<-2;K7y6(tCSo#XVirb~c2HKp3)k@+QAk(DLCKE-
zXn<~*inUmW)3RKS)&#l#;CIS9D2>V!7*`fr;T~S%6)Z4RAd)DB(rAR%7>os2gvD5g
z4cLS&NXDs(d?ET&CJ`8ou^5kuSdNw0U}mP`Fpk1d)j@GUF_b__<f!JLw5-9G<1Y|W
z+i-4)anG$!o?9OVKh$1tS{X(xEiNF=_u|h<|3v>2`LnZ{hs>$WuhsdjxeD=IYno4~
z_j&oO-9%4qvnj8(ck-wWxjbxuWLB%4dM4Z@pb|()=P_2@zN)KO#ly9z=XHq{n%1X9
zgsG7OV+lDZRhl>`TM^rmWVWJVYv-W+=s@e)$-%Z8qdjjl?5!NF&cIB&M}$^BzdHIb
z)t{fbs10P;#yK9g6HD4LBpEU+kLvB|oGV=x^>KSsY1O->shT;r1gtm4V<MJgCGxO_
z`A`Ps&>kJp9X%l_IEzFiAxCW*0Tf4BR6}c2B!!aFh8P4%@o+RD#ZBu|ygIWm6J|J*
zd<jDV{Lz>{MrA@FA!&m@n$iNH2L8l&OvFsgf)@_r49=l=Gs2Dvkd3zOB6Mv`6Wg8Q
zCFLcO(f)1(UpaeHJKnT=%Np%kbonhC+g7}OTa&ke#$NSF=0ZR@W>81|*-CK3Y<OT9
zj^G%M<0L|H7taudPAzCcFdAbq7xS?RTW}4&@WXY)ApviYgl{c~+Yc7<x>Bc693@c^
zl~D!N&<IWN7kc9#48|sG!B%WXD8ldvkCB28_=<1nNm1;Dff$6PW@gK=0;_Ng$8j2G
z5r{B6#WTD>45UmODAQ7|t5T-zA-28hLoNOc|F0*A+Lz=4?|6P*^7lWKXTYYhE$2+V
zz8gg?<^DMJcwcVtyVTKCMGZ*S@9gL(-&ze`ID(I`LTXrsjt)vz<U>*XjaBf(QKaD`
zs&&$8qtcbv3GnXB<^zd%hZ5Z=+h~SPDBYcG=}w-_Vqp%JVLk337)f}GugKVg@{ie=
zgC#hR3z+s7y*n(xDV#=RADU%+fkY+E!Ws9UldXs2ALxJaY`&9ck4YK#(x$V~J0rJk
zklC80YW~iqR|BN;GIxT?@a?}POOhnXm?QMHkTtM>^NPNt0>cNerNo4R4$6D<7)$|y
z*HB6oY7PIrPpY+1+A)}4OWI-6UvIU6XYHrP^Q#@Zn)0W+p!)7(&+kxIQ&T572Y#SW
zCT;i7tex7{j+5GMkdz-r<{6-Oa;9`H!}X{VAH(1DN?6;rSPohHEszwP>rb5V5f&(<
zCLLT*8+B0+Lop1J;z@WtfZj_y3#CYQ8B|79NGPV_D30MYQeY3yFg--8dEHNlBveNb
zfDlO7xIOvfTTYxkzW4avEoKbJ@a+8Q<EM|DK5*J|tLnLWtLnbMoN2n*eZk}fw!(kT
z+RbF(Sy&ujYd@hOTPT@J-pXqQ`A4S?qlw2xY{4bmMbY83AovsHm(mmyab^US8t0IP
zk0?2k1fvZ0jd4(X5QDtqsXj2*o8X|-M@vk`OkBY=JVzXqiG&vapur>ur8$OTGRjRQ
z+^9B<Eg)*3HtL`*I-nyup&PoR2eyGLPik`U$!D%UVK<EjHr@}pAIXK09C`6S<$c)O
z%lq(7UJh%${%xDQx2^Y<`6h35z#<O%<?U(8T9ELSDVmw^$y~x`KN7=x+aav!Jxvqk
zx|I1tN@<5;<kj}BwnR@Nm#9ZaA|t_=1xes8J%IyBpyzbzFmlWwA(-UG#&QlD1QeX_
zpd4C2<B!9OC_dQdPF>gAIYr$%kUPs)XJTt_e`p7{6pf$<pmhj1_rMXBd~^d=U0|l|
z@o6WOw71%cCi_xuxl<v#8q&v9SgTu%LTx+Yu(7Mj_8_241uAmgq{Mdzt1GL$2T$<=
z2}r?5NKy*x$!Rl->W0N|$7!6wrP&V3WyByB-|!s`NVX)uyB>m-yskAfQ?bR&HVa<3
zkB5kWaW1_=e49tf)MMuRTink57CUd^cLJwy8abEng=mU?V0dQPw~vmEkPE&7uOhUz
zyo5)D%WXo3nH}DJ_|(Nveu4ituiI={&KU=(a5c+0Q3PZzPhsO#9njO1SIynaR9tP<
z%T!NY*2~o8XO~_E`mQC}nTxM=UrKRV$+lt@+nv=U7a7;E`NnmmAk%t!;<y9j24aLY
z=&_L)!BwR%0mscG37@vm8g2cpxJa?F4T<)%%xDJ)n#g@;^d$e!tc>l^P+acdvbfqd
z+EZy+d5DX;s1Fx8<dt|0#Rz!e08Zl^z9F3ll@#N!0h=+5gi2x`A_9-_6vk!r@6c^I
z{S6!-7^iR>j}VVHkRZK9g;ivHC8AXy4bg{)t;YJ_qE|qVUNEoi*0OViW$S48A<@i*
zqNs^KA(4FmiEKYTvi<eQcGM%AMUSk~k<dzb+3K>xAzNN;l5zfR<NGskURqSz)3k^*
z&fjYfqW4R?%Ii5l+f(Va`LUnJe%0#(DJSjvnyRbreYty3b~vPgv0t}fzdEUOT{o>o
zvhNx$D|uFXFXgVWtWXm)LvQSZ58mSoT5h9XjzJiLfAIq~b`T+~!baToWRK62O<T)d
zG_okSm&O-$Q4jUe5S_3L8?kF2yFB~Z^*cZx5vLJ=?+0n@4^c<q1b^It_hGiV7<q(t
z4|$K#pT%Hr2W1KzPLRjBPf(cf0~t=Tg8&y~K>-v(AReLCX$Pe-?jjtI@C2S`SUK#)
zehfNG?;DX|PtWq+Ds?_mE}f5k#Kddp&Cr|iu{8r?W%~8g_*h@<x8%3&fAMQsZ<p17
z2AW(|xvRzH!N@H%36fP++T>UF59A<yTgfBIk1Bfnt8cf(|1fcvaGUjTzaXR%!Zb+8
z(h({NS%Mz2&4f%s<*$W`JSRdD3BxH{B*u|)NohEKZZfok^nd)%6$t;I-kN_l19}JR
z*HfLeMxvlZ^%?SBBs)<Q#qlR<qX8P>4j!ZHRjNH=edr1!1zCLQiz6GFqdi{xIVh=q
zl*z9CR8jOoAB@CkjKMfe#wx7ATCB%?JVXQ@W7~DAI(7xHLBctB+@NW|O02;)9K!`%
z!w;kjq)bi;qC1Rwx7oU33D%(T9X2FbkL~aXW(BYygwJpTL0B2ah76u}wdO<HF-_vW
zXWKBFawD`1b*t^J%H7en{nm#vC>K*r+Y7%Ef?F2fE529cHHQ15wT8f}+Dh#Rg}mk-
zE^{e+Ylm<N+sM8ghK})e&Z`C|J7+Lw&r(ilBgI3qV)7+hsLgt)i|bL62uXrZK@u7W
zN#I>QfkAo#ee{Ig)D!lI#C^C&pE8^l;(>#55x<I|wkZnx$JAa9UD^*s%a|8(^_}fn
z2_8Q^#eP4PQM+8-tR+qB>Hk{VHu3rYDTrE;%rD_RgoUidVywqT+{Z&i;RR$Zf8gbP
zI;N1dU5~qnK^$Bja`fHIEE{s81X`mF`oRNBu^QXqgCIoU8J;6+1Y2k<!gd6p>?3MD
z24N-kVjogqf%{|rZFs`$%dEsx`rbJ7j8cm%&siztL~c}m!BG_~$4YF(ChW%nbbLwI
zK)W+b?#_~%u>`kdJ-Hhb%>TUH4Db!O`Jd?upIiy3b~@l)Kw?15@ps1)k6$@%D{iwp
zSI~;v>AbZlZo4J~OL6<zXI8t8;0^<F%XSB)w$b9G(|_7UrG=D@%mhe+D}fuNr>_d@
zTNRR?!Ljr-UQ=7+*=k@?0%?Ck&mxf~<Sm)-o@Vb~4yj-_9>VmAtrR9=Kh(8@<QjmS
za_~%woi<RT{mvt<==Nun6|VYp(JsgO?KvpFuI%~GQhxQ(I8$MBc6vp(`i%QeDU@et
ze$2z^SbLv|q0c1p{V*8AF%n}i4ihj5lQ9jmu>gl~6!#H<CwPiyh{B7PG>9=Q#N#bK
zAYBY)4PH2l=7eq#f^Z83Us3iDj1aUTtiv%ejuk)zA`y$%h(iJrk%YH+k5r_^(IEcI
zLMHMgGqNBXav&#iBOeN&APVCfe!xf`I-)N5SRW112#wJKu4skU=zxxp4K{6}mAjf4
zl9)G5<Q=aJOw2>ptvqD?5tF=Hx$QrU|9QFd-$i+wbSH_Ir2Cw>meJue&UZUwFShEe
zQKp(^tz^>!TVDK_(n-F$GrD3n%vgX$*n%C%M^P+*%BYSysE-clf<YLH$(V{6aKlQh
z##*e06zS$k#I;=#8<}K|yg|zNWK6|$%)~6r!CcJ8QY^;`tioEX#|Eg#@Q%DeV>Cre
zv_*S#K{t%WcuX`in}iu~!)(mM0<44&{BQ>$D3{`(l*gZ_jYV+BO032`^rezYMRfyt
zCP&<DH+YkuO!7XB=ap%DV6OUG+po#Tk$e)F78x%u)<<b_F?t#UJJ?0u=i)$Hqtv(=
z*-F;Q+3{mz$jkq|Dp>NitE|N`ti%Oe#v3G~?gx4*n1m^qj+vMRGv;9t+_4nP@DZQz
z1y+2Al1h&(mArId!IVZlL1tt{cH~5E<i%hN#W0M(D2%~ajK^K1;v+2h0xQ1b2b7Nv
zN_yl&ZG_-1+L~z$$6zBiV>@=D8jWI2)IojB|H_6Q(ch{4h(jW#{~-044Kp$*j*1Dc
zXocSR8!;dcZ4);h%Dso2El=r}mJ-jNkzMT1WvlJO=%kcrj{iocJklqN_G<g#eg2NT
zv>$@8*VCd64r_V5-N{|e+|yL(XMMHjwf*Ue^0dWn()>R`W(!3hQ*j8-k^M7G4QApP
zULyAw+C|L4NxVjWBGUo(D8;gz%S!Wv+16YfSzzH6@_nODVcs`~b8AXE4@hS_SHtCH
zMzgU9n+9!k|3ds&IfDcgBFdey2p5oyVnn(-W)M~X^o~jiqoYz9y`3DDrzS_GTQ*0<
zJBOq4A&;Yyt&pQqzo?@!zqq5a04H&?l%o<<)={|)d)G_7_0TlaHdb+1v<yhIQcfCs
zGSlu~=h^_agECC9Z5Wzqrkn;DdNgVZ_Xp;e?0tnqB;y_4<6l@XJDsCq#$qhNQY^<>
ztVdlEQ6Ejw9Ij}E4(Nn^@WOGN#A%#`5B$=bZBe+%o8m;l9*yoS55QmyLn4klI4T#A
z+0jwSi)C1j9q__QoWcvdgazMFi^w*HM0h6LumB4&!km#0GLcHm!Cb7yT5QB7T*g&g
zgD>tP91meTYhfFi#y&y~uRNlWK`i7R-B;XJDo-7?+|{RG{Z;FXSu)%H0sE;b_0bIO
zk6ST`LoxPiSnXRZsR142D<9zp(z!S)>0v}YG(Zcq#9$1?FpR)fY{x!$!3TcuM*vD^
zc2vru9LghaRx&1kR!5}(3gIc9;RRxlgtsU}aV>%pD1}O>f~)XB{_Ol4D1xFWgR&@0
z5if%ZsDjA6j$9z%s1(e{=V)hU)&aSx1BK8ZL*ZG}QQ3uqI1HsEk$^KY!3B?~BT+Dx
zc2sg94@#gEO5;zo#(!fkc_0~SGgh9E5Kjk0=1FuyA~lh`#<LW!bx3T#dSCh^_fzP0
zSi-c{D`P|3BfRa0d3Z*Z_WAMlL$p`>licisk<bdN<Ck&Ql)aU+=ed-DF0!U>n2j?y
z3!gINA4bv&jKXM)!8pvuJ{&}aKOB|H7*pO+8IOB-fT<N7mFYNxbFkoRMe=-7B}Zin
zreOwNBOY&%gejHz8D_u@ZL5$?$XAVg#-FH-x~LBoo3RtSaTe!s5tnfrAvjl^&&<ps
z@EEa(Ljq3LU`^4hrlZmaqc8?(_=GxtQUl<M)@TcNEJM~>jy##zQ7MMXa7Am3gSJhx
zkK3DMwYcgZNSB2U%TIa-hWF9hXR;~e0j$ybuW4^&G#d-Omq;tmi=54|z5p{v+3n9%
zot1@QWq;e=*-M6Gba!dW2a+jsh~pcQ`wy$_P|s1>-;kI$q4jm8HEu;R+BhmzF$~MG
z3gtSJ$(Y%Vir#~QfD?Z?Dp&rdeHxI<QTaHCKSrLx)clb&ZsQ$g6zB!Eoh5B(`$9#W
zSE=@^4_st4$_yEd`VNqKZW<ej0urrhxQ^p>_zHN{rHtVaym10y2#2hG4_1F4BpKtH
z@%Pw{{Rl@Sj<j%8j^Q{?!XE*UB&*m5FIUQCAPcvUxh0Jg3ZNibqazN%8y|_2#Oe#I
zXwsUk5%LhLypZ?}g~V`hTVBzx9UB`A$4HFEcud43OffT?0XN9<JUqe^e8v}~Z%=yz
zFUZkHOR~k9V0pzeNUfF^+LUZbU=({f@AuopCm~FMA^d8x#Xs3{&En6(C0t`pk&z1&
zhMG;;<tFr~yjR&DXRdBBo64IP^_NRPe;rP?Z!)qs+@YPn`Zl&Wzb<q6EqkLP@7u^~
z9>hI_<0+n@atGRDRK;qn!CI`td!)g$BlQ{PUCd74H1>3IRQ6&Y+E5_dVI_rfHP&K1
zj&>)La2zM`9SQ|D9SkUsil~gLaH1eP<3lep7A+{$Es>=!eWSjPW+f*JxseYAP#8r~
z0hLf4HDSRQjPFN|;`AU|BFr2`@x!apY|Zc)UyyMO8xwRJ@2GS~u1S0k3P9UaW#|n{
zY-4Rpz*4lljignOT~xdK`W8d`BuqX{;gc}ju>>()w_I1}FEG_n{TG<3nC%aZvuBcI
zVSD+yrf7-w*o8e<Jl#=QfsNRN88axGh=<cmDh1l2E4pJ8#$Yn0A_X7t8DBBajT$!J
zjnaS@NWf<}%yLvRU=_S^X*R7kf^iQ==TH%ljla*2mUF3X=!U=17vpgbzIce7^Qeuu
zjXP*IpNus#Ym0Vhj}G_?z0n^7F&rZ?8e_p}Jxih{QG1qT6o*S~o?0TppWX?&bNx=x
zm8Vy(Gd+zs`*V_Ci?ILlNv&$UR>v<gO;wjJvz?x?XM*gFxYA&98rzl$5_pM=#6Z$H
zj@7ugh@Rmpx|D0_?{1<SwuJ({gN)hBmhd38%bShSDGL2rIwhA$?=@oVLl5aX8FZ88
z@HSo4Fv^{_pR1@h3p-a-cdF8Z|2eKCEp#6_idsgk+*+;=lOZL4U5T$<Vxe6rHij$c
z^{4rIm?~*cjg&DIYzM4fWjv=J&Kle=J%_F&hLV8sn1T!o*#AS3g={TR8C4+(e1w!0
z^qy8aDnl?FlIR=QyP8B`%Nm*m_#+ex%tXXPqM|w~UEqd}L`b64LyuH5Jz5!v*bK}>
zb5Ej+ulRu)d+1ldjCoj$CD?@Od)ZJxqP+v(_EG!y6H%BOF>8)q_yj9ly!Zu3*0jbH
zTsXv52N5`TgbmA4niAAM#>N=df0L~V)>n)|nQVRb@EP+2ZR}Zj4Uy62nPlw4TfDcq
zmCRtZxp?Nc^{SPDYHu)I<cEwwps1tWP32Wjcg`Ja<&D$Il1K8~L3=CRTE27;7T^eO
z;0|U|mhM5y)C(LrNgc!mBqAAaQIzsl48^e+QvOyz%HUbtI>*0<EEi}*vt3{_h!NNa
zFHF5i{}7ibuvZX?=a2%N_X;gF+Mx#uU3FASLJGDQ&LA4E5Qj8;#J~80+7$l!Xn@&1
zP3ZTqFc&MZ5}!Z3m5HZAM(}{hh!B|vya{;Y`*XVT=E57fF8|DlGy6T&^2<yI<*cf`
z+PW3tF&k_x>$@hh`Ln+pR$m4ak#`N{OIBeWq9N5W4#9quT-?V){0j@d;RhW3X&RA;
z>etz{U?L`8CycXLm;<TT*CBPgANEndrH&tg(;YTwD2T#v52l8ob0~j{r8thqaHdVj
zgd8Y<KOybJXJoodAx6e~EMxk;YHXHS*oDgo!d;vQr@IZ$`}_<(@I$%>RGTl$O?4du
z{bT*Z{MF_wOqT{XmVaOVJ^3@^Bg)$ovIq|&*;qfPOhr?s&_Z5g*s#BLRC*@R+fSmo
zNTGP7(lmUeDgQ(hj#n1e{R=<C#jjK(tE25c2Kt?4RPEV`+G7)s%2=DfhFH-K$oH2^
zU$y>e6}gvBu6bdk24~e<MrydahNBrT*KmMHJ9DHpXxdTvRTWz4&0SjYM+(o|A)yBR
zh2EHnS=fVpSoDxwK<NnfOECyTFb@kLQOJn7n2+g1;tV<xjm|JjSSm!(-9S;oA|a}Z
z>X0zGVlh_Z4V+)_yRn1>RnQ8p(FQkh8^H+08zkWa(opaf#Rf%D95dsk+{Lp?hX_RC
zISk~9100b7nUNK_kO!U772VJS?794$<lJN&?_v;TjbdBMkj*0Wwk6P?!}Qm5m-vOW
zhT7Xp`bTVFY&}-()xLY1yHpeHy-$8u?bSYlh)2s|YW-EFYU)dO?!WLen{xa-+$YBc
zTgjTu#R3d_Lj#40m<)G#U?VnR+FK6jpwK&Z1u+qmumwH{zynmGluAjR{+{q*><2c0
zm`cfYOEo(x4b#|ZK$(y1TtSNSBDiBeF5)uYA_b}Vh=Tu;Hz<Y@n2f2I0XOWyJ{-hh
ze8o2?pV)UmPUJQ-%a4MPIyA#VX@%6IcgRmYvezea%=T0nIoNKym-E?+cx~Xa2iCj1
z20xaE6{T^OFD)QNcjf1@^@5d0XK`?yhBBmFU7AMbYRCqYOGf+sFLI!L`Z`lZgB+jO
zxsDwUdroRQ805755%kjXx=JN)pjY(URQCQ>`fV775uoxbS-#OYA`l^X3e$HwkSK$)
zD36M8MJps={0}zoKggc5ENoSrlr!j%&Pf@B5X7Q$dM9NhqVN%BgOjov&y7yX3)FLP
zQX0bK=%lzH4WF>m$w^rQmkdryR<uJuoWXrOKmn7JQpn7#9Li%8_TnH8;SDVKhVO99
z$QR)gr(*S!veDc?YM=NtLZ3ozMWo*NZHh=`h>LgU68(<xDtOkhb~d(awb{w!Q&;9y
z+T_)$QqPQ>ARq_jGuuz30?Ipi<tT$XXDj#SF4<rzD_h9_%|C66$*J4zBeU`6@=pHY
z=8{u8^gv6HCBPC~39JNF0wn2|H2*;wcVTfR0_s9Ab2}+<d7PA)d0EDud|W_Rz)5+P
zzo3({s<4yNq=*v_esWUY!@Zc3vbC6#>if{d0g1f~)RVOyGyAa!?&_8^x{SK)qDF2u
zl{8C0%R#=h4(dX_{0L+P)?x`Ou@oz?3Tv?*o3I74lHYJA3kk!v>`uxKEYHCTqhC%Z
zWdQbKKO{lh;g!e9tQ;g|CvXaq$|RH_m6b36|6njiVl*TIdm&M{h<Log52VZQq!^GN
z1yK~mQ4_T=0h3_HJmfCW-$^M#D2HQ;gp`QBK?>v=N9}PJGQzTu7CW3hQ<+C_7&DrA
zs3kl$R2Jle+x#yt2(-uz%n{zI`&Lu)jB=1cN{`g~kgcXX21<>3RW;=`Q&N5vG<y-W
z_qyaKEwok9GkQIly#>4UOm`*Y+o79Y00vM1hGK$V7#t}KdVx?5vfQvZzmH3}h56<Z
zPRc?o#d4g3AHE<%NhhTd+T&jsN;xUF5rx;Kos_TW#np6ua1Hm7tGts^7z?lodn!07
z=dr#bB?^xai)6fo`4ck>(sAp%6EYxuWxfopFrKH2Q{UhG^5%8wv((3Uka{;YnCY25
z-Q+a@ms3x9AMoDGbb#ryR@Jo~K{8;-oHAPF?%qyrOX}WE_1bQ#RoIp@S`Kw<5v;xb
zR;|^+TTOLrn^AIWQO4W9)$2x7H7%MFC<&4TNP;5)kswF_B=M4-Eu`gJH78|YO$r*k
z|0GDYs8Y50J^0qAQEceMBc>?5&773lu1-pYmQG4gYhu%=4ZqxudOg57(RN*`?K#=w
z*n`!chr?}7wgZi}z12uhQwehc3Ew2hS9|GSpRqb+9>tNf249KQFtSP+kQ=qp0sS!m
zvdU8-tNjIQSoL*SkByL|_+UKAnTSc4Qp;>h-$CBo$3w*8HHMMi5g3Wlko2FyT|{7G
z9VbPFCw5{#yimBVlX4Oj>d``=Dym}&rooJPXhSU9nVEG&XSiWD7Qr0{a0th75)%Bo
z4QM*ZfYPV{Z!+Q`<gkbw7-5RlChfhPzj#L@V4vHT<S7baOpo|Ub=wIJ`-u*D<(aKa
zQXDCCeXHHmUahT8X|D-mw=!Prc2i|(7V?)o^IJiaU$-|4(naVb>-7qWNNq|kQeeuW
z60%TmYC#H6D|E*w%)~mRr%;vG3)Vvlmz1sUScv5~Xl8Z@H;@MBwrpfD7UMA+X3WJB
ztiT4m!8=rGN1KaY@W4_m$2x2T1z9<Y3hh~8)WDyZjHxg$WVRS9unOC-1BY=G=Wqcp
z@h{>!Qniq-GgS@F$cSzjg56!%$lxo!A#Yc58g0-UzxwLhlG$RFhp)*fr!h=XiBEqn
z+eSWp$7d1R=eE~y?O|=QEPofu^zOGt#oqg~H!AjCyuHt-jcUa2Oa5yatzP#s<uluh
zg%p!65;94xq*PKRDU!AS3QKn<<ya3YR8PY97unN`nu)r-32Pr(V3hxxiqV&H(2v^R
zpR$f61IVU<)Li`akCReuC|Njy8m={$>ZT&jt>{9?nC-9FH{_U@cHN;i3Re@`wO{XE
zvma?Y1-_5YL~hR6SMFCsKPI-UG?!fGm+;C;D&5#TU<3T{0xuED%720+A~T7Qgk04V
z<3@ruV=E5hC?tW)unT)|8fQU*&B|Uq)h+duHzVbvF$QBX4ib$U2!uqX7WSbx(UAx(
z)1x#^k5nllRStjXQH$m^9umDxNWxn!lJzM_a$M_G!YgZn?HJYzs~p?1&E=EF5AIrT
z`&~`u*wu-<$<_nA5A4_^pRc#7|9F||=cVG8&C`mCFLQf;V4q{K`p8Qz$=hQp_<!~o
z<QYv;YP7)r--d&OVZBOr{`qf7BT`o~y|te4A$sPIq5zB<M5wSA`|%vnFb<|6MQ502
zFmr=DJa8IkaUD1C8u9puPpCJ9J_LTC3MEWRSqr2N<9Cp6xRc^QsXK>wNC`|olDrtj
zm*WNA<I`v-&L)t_4rACJq8e(TDVk#d{=qm*z+HqR3NMgzEE_izM@e);4-CLCOv4Oh
zAII;aD2k&bs-XrxrH-`ierSXA$EHT7M*bv&_=mG+63P^wdK<t0^w)Br_BZ~~ss55}
z_Qt?E#`YvzwTSIjDs#(HYV;}Yv})*Os-!+~=iv{xy-b-$x0m=xOm?w4^CnQkC-NR6
zCXrMup2Dh6rKOlpW-TBoD=ELIy^4HT?WD9_L;nk#*OGVZ$e#^l?nY`oN^GK^wwc|m
zt%PSAy^W^MW!0=joO!CA>^3};`>DqlqNBk<^Ho2u*2$=iixF{{9>@N2TwkpnK(f_-
ziP@iMisopAHt2!BAc;5&NyutFG0pV^eb5s%TTj?0Uc)D|^N1+K;S)YX61`&zh2t>`
zF~~^-Bnl-_3Z+pCwb2aCaTY%C#cjMomT68(MO4BFjKX-#gd1jI4i;b)HewStW9u|C
zMVf^#_=+D;rn7Oy6ikJiyr02)*shk~;84sHhC;ASR?9;U7d^2sNTVer(4WUO242%A
zmM?`cj#LPrp3^2ivCwzW>VLlm-#FEA)KswC+NKAzUam*Z6j~CQOF^^0)@fNzdryJ0
z6|ijwIq3Jl+a`NwL$*<_vaXxpiG4VOOSp@0#3KRkkzppg{V0gSD1tJmg`t>$NtlA^
z2t&$D0@vM*$YKfBV>3?RE~d{SaF~Okv+2cQ32Mw?3x+@8!N0K_VR(lWq+-ro>H!uY
z&pfvMD2P)yhxXKy&fS?kK`dTFD$iTc9pG#;4fN0H^~>iktuLQEf5`OY`4d^bcl%}F
zOaGVm0-s!#|IY`W4m^JF`0j0rI@8<KwGN|BY5^}kEY5ahAxA~Br7LsE7W=CVnJ4eJ
zjOG?HUdcpt;Zc3hqk*i;S7f0==SF=@!W7JgRP+T%##^K!_d)`LdgzDQxQSc1gHRM*
z#O+XMiWazl$9Rfoc)o}T)?Lij5u0!aiaS|~il~HYsE*pGgU0w9eK7#bunMcO4(qWQ
zTd)l~aS(^#jq3=&4cs&{tG9&ROt@hU3VP5oqZIaHAGBjaaWQc`DlaBAj{hU#B4m!I
zJV+%b{7!g~uRg^DMP2-TiU@id^z`i0pqSLBTGxm0Z)?0u%dD~$23?oUF>^U8B#)-b
zt<5Emv<Fr3>8(+v_>{R?)|-QS)G)P^HwX7x%8KpB%B8F%j^Y$f<2){*&@w6siX#mc
zOkU1W7M#RsoI&>$bf{s*PVB;Nq#=ji##iIDmbCSlxst5&kT<Jn?jVi-Kl%osr@j&R
zs&5Fq^o>EFzCmcOZxsI8XxlItRolj)!X`Eh=#IYVhX4dZHXP?68;_jm)^!_uj>x{9
ztb*LAEf0ZDc=i6p`)7~ea|8bS2X|k*zxyH~$S)}2YC_Qena-Rz%5?CA{u3FI@|3BD
ziB8SbYLosS*8V%-#`19h|F8259;2u<h)608TUJOyOG+9N4P{2Vl;lJjgmzD)q9|n(
ziiYe;Mr3DX7fEDg{9f02o~QTw^ZtIn|NT5(_qp$LpK)K~zV30Z5l?Dzim;9o3Z7Ce
zrb0}W_s$rTdfa$(-_&E?>2+R_R;uFg)bmm=yXS<0r{C4kp)R$Nf7-}j-jfMGaN78x
zj5u7z93@2KB-MB!p6EPuvP0+;rNzwr;V%Zwk|eVgM{^ul<~kHJbe_Fwetuo`Det~>
z7&V5=zpckoKf&Z4OLNAWsNv9>*Fj0DZ<6z4SK7Ial2a{{V;lc}`+hrp&s{3NrGA_F
z@TPgWhufK@pUD393qOO-9;NTo*sdaV06sm&dkoeQ-V?N;jAkrrh{4^!uWaIP4s(Qd
z?<;8;I#h1s13qK~A2EgLd_{#}_IsWbb={LDPtk*(#O2=f;bmg{uHhFBa+uEIJI48g
zJjAo~WgwsO1HW;eG`WD9)a7zo(S`?kndB^!n0Sl%iC@`F;Snw}IEQn2nOAv>w;9a4
zyw5O3@G+wp!vrRA>qlZJ4v}ks+#|d7`o8|iwl&6x$(?POJMY=t*K9M8E^FdroRAvA
zZ-rs}j;zo5pL!-{;DaqIgzT#)6|9o|>m)zp{ON{x^5*!Jx6ztAn9W>PvX1p^W-B}R
zo&6jm<71b^6ruu^Xh0*HaNkJh{XD~Syu<(|GnKg`6(#e{Y~WY+a*$($PaF-nfST0i
zd0ymAvf0jW{6qNE`8`*04K28tmwA;TyvG6-@(b&eCi(4&1t>vj&gLqv;U;dOBb|AG
zhj@g?d4eAFq&I!&OZhPpm%KBvojFxj)y6-v(=Tv3vimbOp4oR}YBsi=iBG0h<jthk
z$JOzPxS$?m&T|`9IX1*DHcm@TW74KN-0&EypxrP@{nTZhwx$ZByz{TTLMonj-4eI#
z3zqRS%PF8NisexWeq<4g`H7|c!g^XLuWsQfp64B688(~s<e%WPCP>$UW=`T1ig79>
zIEyk|%XKv4MsDI3Zsj&^rww;-H}}wiPIRU#4^UX)c_Jrq3XN%#G<k;JJj*~{;|(^k
zox+p6ks_SIg;d~P+R>i-=)(Ox$eU#IHt#c(oWqYXz~TU4al9{sf88I)0*lN3*2cNT
zdE$a+$azJ4Lwx1RWpNr;c}OK)-WA-23v!yAr`?-#L7tbSe_ecD>UEMd`>t_*JDNCE
z!rvG-=|hI|5hHo@GpA|v<V~^}!N-i@b7r!dzd1m82c&xR<Wu4S>MJgHkctPY>$!p1
zY-T$<rbzfMQ^h@fc#i#?_PNC8OrB>1rM{3EC_`D!VGv(1ov-+si>JBgN;7VtIkVZq
zHg@nEyQfRb<d+V)6ysES@*eLq3@6?Dj_it6gj5}l9mTmWTD|<oBi|Vc;s5ydyRYI?
z|8J8oR7JA~u4wbFJupt=9+>->J^rhL)y~dKs#MZ>X-ulqQq%a-m|)|l8(ZdoQ!?(P
zP2yI5K&`KodDP`H=CYL?>}2%Uc2pL#lq%nd8gAlNo}d@=*vfD0WEU-GSU)3aFE;Zu
zJ^721z7>6(N>%Qr6FqpEo+RnbbCj7WlhA;MT)`^x&SLhPKS25{M+=(Mig<SOZqj5V
znX{GD#M7N;>Bkn%nByvp+Qic!=XjFtziqJ;&-PN2Ek|;PI!e9B)2nwZ`(e%xT4*o(
zY{&Q=smZrHaxQ991Egg?{!PJl$-D&2D<PkKJg27N6@}OTza(>)Yxai5abx;3h*kVU
znCq4k@m#G1HxbX-{wAKcjU%4Bwd5rx63^q3J4~F+g{LX-z4HgI=T1IkGE->sLw@}&
zi#~Sn2Nf2$LZS!58ONhP+Wk1n2@5^Pw+vh49D@rMyFbZtHZRWKJmmYy{>cgsJB#+W
zY4!3wyMEMn-*?Mrd>Omv95qgt((mor_14R8y}WDBzke^K=2F)-aUyTWpCapiBX8f8
zSuOQM!TU83cl$6dpVl!h<=uX)aeL12G>={MZR!>A@wAR{n)iy-390wS(@`V0IX%r=
zlR82Dca4+Of7ir$-&eNdn)|1F)4!{n+W$LmI}KnS3(eBWKTn*SdhaDM4PyMqIFIoh
z<1@x(jK>&<G5%tl#pvq!vtnwcB5k!38XoyY(Y7vs_>zX(9lv<#H^-};PAvaW%<Yyb
z{`C649CXQR4(7UJLBj$%Fw7msxOcYxo6pZ48%M)Y)9Uv4gL>x48D~1}{!c#-(@yE1
zy?&M`PDO3%d_5I~C1L`uVjUa!mF@h-PWG^u103Qg$7!}y!AeV7(S|$eKqq2o`!a<&
z{KoG;yD7HE%mGeWuEd};XH$;`TuDD(VgT6;ViHrB$!r#}glASb@`~2aiP1Zs%By5?
zE~PG4(vI${6kpGpiD_^?5Ah*$=(om(QEjcAjw|WFcovgSdY!{VJWNbKr(Ze$9TMUx
zS58Z@ZMjvIkF43J%JTYyIgjxbn@X=x`zrouAOE)b$=+af^N4@*+^)>-Kc`^X_#^P$
z=Qc|13a##4n|l1@-iE2iX64KLdn>k3GVgGoR}RH9wPta{dJ{8OWuB%F6Pd<zVx}v$
zUSR3T3jSmdmuwL8d`QiW4l2}P6x&JrRk=*&uSundnRj@X_ZdpzO%A|Rq%u{Q#8Q4{
z1uLn#S>evj?B@W7Il@sIZLyBgEMO5!_=$b&Pns0m>I?au-6Xe3V)AyW+wE5E=|Wy@
z9e2mK?N(W5x8B~@u3Wa(&GO&>cd|J3%z~U1^Y_l)yLRQ;8GENq$oUOlF`}%<et4et
zeDBUHc*ZGhdi;}0pL;v3NIk|K?v6Qn25L91;AzRm@!KD!C-3kn7w!;E)aFv^axE?B
z$^$$@Z~8ER#r#QQ1;st|BNiHOvXoV<VH-R6gT(LBDgAe~pE#M1`GoOI<TIx872hzM
zxy)w)3t7x^R<fG)Y-AI^v6DYIz#)!uoGhhT!K6tn)*hkGE+OR#8gnzZ(u&p$;XOWJ
zILApS4%5h@Feg%!)DNVwnw(uP{^=WZi{8H1#`Cq6aerGD?K^le|NB3+cCG2k|A?Ql
zGJE8ADsMmblJ;GByH%`-aZ~)lbBSehE%tMe!pi9rDZ;6o#u*gnOiB^U@`}u4Hb3wi
zWtH#cIG6K@<$YUXnScIYlC7Va{=7*xgBildd_p`h{7RF(u0Lr`3vQt$_t1`47)FVG
z@*MB-J|p;;?^(oJe&P1NrAE@EGaoX71N_5r68nW3^%3HY2Sd&ITc5gZu*sbUw;%k)
z$DH~9%;h}$(}JJoe;eQV)sZh^uOz8|cB<1_Ug-cF<2~L_d*X+J&0=Ag_oH=QjhI->
z<()W;U7|Pap*3DhJrUp7D8@+)Zw%`cV%S>eZgK~ke24)Dl#2)Ldxs<>cO7>4`bYUj
z=OfCtqi!f1Q=A<ad~N4%Ph@HCoTab*tT2Zu8CjuEW>((M)AOqrsF-s=PW>#^-~kn$
zQ&pce<EWmkeMiUG?k+R8I?Rs+&&r-ZE4P=voZqHmR2HEaB{+++l;dJ5QHA!zFm&Nb
zy7L)Rn8|Dwu!w`iupT2*c=J(+lQ@;)Ns}`<kMi8i1N0|G&|tQ)n<E^ffJiGub!rkL
zu{ZsAg_Rs4pGeK37^hL3l9b{s&LdgDB&NW1wB!S3F^45AWjU#V$$#JNPWt)-s}3lw
zH>q*8aLzY5&+px|d%YEVr|<oJ>ZH9>_s+?E`KH}d<1eGT4;Z;Tz9r@{nJMp>IlXfB
zBa4i6vUpL!b23wVdUmrPRCQ<)zi}0R6Z6IqV*cnrkKBCHUOwrbn_qT&Jd&Gl9+r1{
zGn%nXU=lGu6`>fVd7LMBil>Qrt$@5X^thdVOm3zdpPTU>$jy9r=Vrj-xtVZHZbqD)
zn;8eokXPi(3N3h+5BZo+xG8^DxSO5)&BIw);RuZjWQ8U?$~&ZATgZxo`+ncH@xT86
zvTfD2-#rl@Q?-Utb%$nslQ%zo!K&0VpDh?adc^3Qz1cLo<&uIQCu5|?{W?BQuiPzM
z7I&PuopGDu_T+8Do$>p9{f#GNg}JmnDJ#@IIV&7GB`chAT2`ogdR7>EhMlfNR=DiU
ztk8+qs8BL1JkL^!mdXk@^AhVg9I|JhRiJ9B$yMI4ZK(<)sV=Kd$QfaI@ms2s7|$)Y
zCdt<?6eyY++ckUZQW@gE+93RUFS|tC&ceCddVB8nF3;WOF1g!XKX=>HisfwoS-D|o
zARLzy!_YW49QWsj<t>j{!f_I%xTs_@CxBHg+(}0srw=jE{fGfyK@5B`Vg%eqjD(ko
z5%DYMpXCF&gSHIhHRkXgg-R>oxRq86<-?@OZuXL|OjamCGj60E-I>Hxc2n?dA4Cx@
zrUBP-BdvIaZ1%E`1LQAj<A^6{|M}Z>VDIL=n{P0Q^(ynGp8EgzTkiS)SZ+SG6tkoI
zDX&%f!=YtNn~$?c{#>w1(oE_KvQpF4IZr#{lnXb-sEW}PqbNpCjG7oNF-l@|#F&Vo
zk0Fksj3HQM%Uhn46=qPQTviy%ZrY!l73NduJnx~}`B~u}KBY*J@>$yTdoh2N&-&j^
zM^cB1oQ*6MW2OO*^E4}o-}wu>I7nIFU6nfAO5C2-bl@3Y<Qw8P&f;fwu!|FH>q%Tf
z-2U2J%Uwy6dwGt&j3EYYB46<nzp#N#Y-JaJ5F=nO$GBJ|#K`E(W4z2D<}jCe#E4oz
zjI1KL5teLjrX!EijTh)kf8OJLhO&wcY-Bf8#Bhx5n#36IK#cWq#E3s7H}W6MO@N6W
zQ@3Py=G>Uo<|6(+nEk-2g6CbNrw@PY{?A{|bE&DUHRkRixmj!es)99>E#t>Y({O;g
z7ueb9$IGl{9nCIOP&1kd>}DU;FOrBPd5(oFqx8jDp&V~8n1U7T?+oHy>Qt0Tc&TF2
zK4xYU+i6zGzQ^livxueStL#I#ncG;%Pc*8M6|Q0&lPF!)XYf8#C|fNnT*#XYVKcu|
zy}H0MG-)!D^h*?x+|FH$VIs%LsF4+#b1UC6pF3;HCH%}<eu>MqvO-txXD$m_M1$H{
z;YvQ>Q$|s_jzrvhWbZw3^8c^Dok#ZO{Ev@01<5sMHVfHHHmUv=%aArPp<^P)1dfRt
z6E-GlOwgE^F(G3j#srLs7ZWZf+QHmJdnq@qVmie%is=*6CZ<bFlb9YcEn+&vG>Gw^
zS1Ynyf$=%DA{!Jh&^w-D7S103ZGnvJty_$>RWiOZrcz9ym^wpq6D1}{OpKTiF%e<{
z#K?~kA0s?Qbd2B_xiM1ban_~E5RP(3UF8U;)w4UZihA|4!ekm;mbZ0N-!50+w*Trz
z>Ay>~_^Gw1o%`vFa=+pH+;4d~_nR_&OZ>KWv?qS+9O5^Z%>DMBxm&O?cPkp@Zpl}<
zTXU5yTFeU0O*U{eWj;$NcDWDYFli05LeDF*LT^^En(RhSi`dDZT-#Uzvyo#QCtnk<
z=O2!caitxD5BQq-{J=Jnf12#!AQxVh6)JK$%h}HXj#KyQtZ*I8>BV!r%ZGf%O8(&p
z;Tnf^uENNF2lD>5<jwr&vBrO9bLZB1j1KHv@n3)cy<|T7g-r!Z#V*#j*1IhCXc^Du
zQpZrw+9R^Z|Lj!h=9v63vd_(p;~2j&ZmWsQ7`HKAW1PnLjBy#`FUDDnuNd?goTb-F
z^rqsMLDxA9H?t#LFJ5o7BeZa8d#h}Cn?qJ>JINh+*)1OBvxk%}(CEK*h*X7PjS;H<
zKX#26RZY2pn`q5Fbf+i1=+C<h;{(=G*tVTPInL#L%5y1=`H8swtBGM~mm7{mZa9Vr
zOXus83N-<Gkca5O)5Jjj!sO;z;R~koC13LmGg-qr4iH30Ix%8S;Y5)$mKaH2(^f?F
zCPvt6ED&i&IGQv$p;cD+=ys(iMZ{!LVvLsI60v#{F?R3ewY#JQpD~#!%;CMZVulfn
zBlqB$s#^13^En60O-EKQ^XE3f>Kbt-=Pxe)x11NmXL9D2t#%VW=CjJzsDt{uI;hKb
z>BhmWg1x84!4h&-<%}x+Ya;%*mdcd5ne(O?g1EKc*t%QpRp_+0r5)`1ouy$HX-HjW
z->*n~P>3IP(0kIsv%BbfTKchHa?N~J;r+bhS6}7DfUKgS)ByV~w+ze*Zw<`KezkOg
z>$4vmQ6P>DT_W2JfS0phxzM%$m~I76%AUX5SwZTiduro~$GDov*TgMb%z3u%A}Vq-
zacetJz!slKQ7Te}n#7P?PYlfze!tIN#V-C}H)VzF9AZe5F{pI}u|A`T!L9e0V?To#
z!R6h2Irs1sy`E5Xv51MHMbJ|rZ{_iJTIa^V9b&=HK$~~%$(yDgH}6_=c#WqHFZ_O1
ztM9-3e)9KYzyH|ZP=C9Iy#2<I{&BDU?|(&3?Krr_ol^0l(uVcU>LnffU2#Y1((zC`
zM?K4NO+269^>}PI)!_P<TutmM*fV>@F0CMAH~zV~B~*`Fb!SfcgmE6HGL4n&;Sfh?
z@UrVsI`9lH@)83W%^2pgkR|Nngjce{shmL_T5$U-a>^ZMM({Or`Hr0&q3WylEt=Af
zt~|)Iyv*B7;0wOwIBBmr)8QKKraQfPj(L2~0)FA5<m)mC^=U{8y6`C7n9M?!vx);0
zeM2ZXlRLPZBrnpJ5BQV=8lh~`<YZIsbbV?*@45K6X4@q>FIbWLvb>iswQ}kIdHJSo
zi!4jcAr)GN?1%Ogyf~RkSI<0oVFP1Y{!c#mclpImhhx47H`?h^30YcV#Dt596cZ*U
zMvVWH#9fT%7^mwvPyEFA`-p;q9it{jM~s4cf_Hul>ud_V>8Q&fexk}-4ncfJx$OVP
zg<3M>B>QP<<4eV88p9U0bD_6a;9(wP8eg%N^=x1xzp{y~{LW5xv70~ni@ogU7{|$P
zbBd5W$>dDVp)zrMYjY{}xs1!Xnrpa$=G@553?PQ@EygjC`NZ%pVJWLv%`dED0~`76
zt*mxomzi_2Q;`!c_E?cBRHYg@_vYhN=L7pxVlv7?s)AB%wz}5+_hpMW_}ji=!G<Fn
zmd&4iWcK_SUvAI&JM!g>)bKgkBM%fjr%+!1p&vilHv9g+3tpE@<rR76@P*f=%7(#Z
zayl3-+3}qJloi&;enlI_ZK=*B)S@np=*F}3p+EEajuot8HNUWqO>AZ>+q3QNJIw4R
zysem~D3z#8AD(0IASaQ0#K%lz64Usanatuxequepa)hJw80=ht@A#hc-f_}F<)q0F
zrtu{|v6TJ9*!F{@Dn{FN)SCCFyVkXT8VGtp{F^^}!R!rjZiZN%@!7KRqel)OJ>);P
z@BS^A{~cj=$(6r^o3j#P^wkc!Ue12zke^Cs9Wuz~QwNm3c|~-q2fL@D|KOc|SNGzB
zSG<*aT-d5ZsAC^WMRkng7)$5d*i>jdmVVdO$a~fg%?h6nli5EI@(*RDkDQjVhaMkG
zB8rW4S;=U|5byLgEO2hlZTQ6xI_XPwFXDIc6S5b-m($ybx~;jLD_#EYIIAbT-ZiU9
z_N;#jUXVZbir4m{%GvAp>J{(Q7>fruNWLNVI0{gZy40gSZMlcI@n_rkvQ*?+uA>>(
z(}k|Y04CpesNp?^@gc*R$RutU*3w=o24XC%U?s;1Vx%}Fc#YS2pZ^|;c=7zj-!7gq
zf6V;F>qiV5JZ!|PBi0XC-?vxaUQhJu`(T&ssz(d<Dena8q8=+8K(D#%UguVZ5zZNQ
z_>rPgDh@jwpO@6x8HWnijhzd`q>ptns$aj)yW&#nUH_Xkaz5p$*ls9(N^XV;7shQI
z&jc2*kVPEfC^4nGN$DpT#s_@JR6b9dG#TMI$UhvRq^wYiv#3lJVm5i2m{pQY;xksT
zl2vSDJG=Rln5F(=FZ(#kF^&^tv%=IhHr3zGZsO2X-z}T5Z0(n3CYTvB!r!}NUVFFi
zyQ$gd#`Jo+mm1&y{V%)O@q(St%88c_C;#7g5wC0Rf5nc};E-X5_8lo$Ci~Ch1q&tn
zoN`?%vim+UT4c|xIp=>OJ3f=MAI7<OHWVLoURg12@d*^C30HA7*U*h8c#`fsMckpD
zW-jxX|FMg(@64QRuR4Xer=7|j+)3Q)Mv=GY9oV~b@5Tcw4=mf8Dpqm|mz)CT^}Dl<
z78T03i_}e(06BH2h8{0?W_ITBg4GiFva1{~czRkmb4psFJ(ZGU?Du-$?^jR+9``Ru
zgL4anu+<aY<f+6-A@nU4Ld!ElNUt2imP<mYUoV7}Do31hRS3hIg|NFt2vu(j;f}jp
zAhio&Pp1%G?Ha<<4~Ot)w-6d8Lzve)gyt{E^G-m=y&A&T?}X6!<B$xU#)YtBx?Z{G
zd-0kOuG<;HcK3ZQDVhl9o|_0a)kuWD8zo$tCBo;e6JcW4L|ER_a|07$!SF=*^z%eG
z@_i!AT9F8|w<khIA}#!UN?LfkWLmhtd|Ei;(zGzTL0TAdO<HJwcUt)Ik+d+oXIl8G
zZ(8_hU@|RSHasn~8lM*anwl1R%}omve@P4FcKU$*X`x@C^zcHd^ia4$dbs=2^zco?
z^sui@dbp=!y0i22@K*oyu;u;qu;{Dw@ZRF|uxU$rNdGfE^f;OxZpz9CZHs4w1r;*F
zgoYX6qvnQ#zSnr^4`zg|Ph^A^eKJDx<m<*pA8xSisa`lgBgDbl<4EFhT<JKta2(Dy
zjz1d5(Tw9V#v%IR0ChvU=_CHdoWYgiSTb=KkL!(U5PRT{J+{YAsAJ#8SD&X(x|;eC
zyDq1*#n?w(><n$-jGR8JlCe*q*wIYv3FOa`s?S#O1K{N<2eim(9UPnR#Rg!p2~up&
z5?d6+%IL9ja;(D|>p{kfcCl7dtOgUSUBut*<Ik({XTA8VO}v{PZ_vhjQ1LcEycmmD
z3QpdVsq>Xs?#JRP?nm*!a&txqx6+c^XvOWc;U3!2flk~<SMEp5hKG5S$LYqCJjK)W
z<QaPNEYD@gna`Vffxh(PB?d5%S9q1zc!M{2i);olm?6B&`wV3mA0k!5M|{jDe99=s
zFqUylNSaJ!5|f$2=S<^EzT#_U@GUc$&0OXo%Y^Uwfgf4OVwSL!Wyn%t1*=%iT7F?2
z1vZ%c%BJiOE-7?=bK|~;eHi0C9N-X#Il?hQrXqnfGRa4N3Q&;Pea;D-ND)rTE>WY<
zIoXdEE?o4~b1aubmJa7}KIOBA6)t>A9KtwMrYdrKxP)5Np)U2fj0QBs-VhoQORIlQ
z3!zs@C6g9(*OU|V^3tb52uG_ZiE2rk%VZWEWi?U2KXP*j3vQR@ZKX#?C7x1h#$!sM
z?59I$+b4vY{X*!kX2YG+gl}UAmlsNe{+A@eWlEiCLlR-qR|z9pBtjV_=tEVMqHWT`
zeF~9<3XyzYq=olZq=lwC(n8~t(!&k)(nFC}>BjO)50{Ni4?8xdhc$=OL*0`zLf={$
zVb<LuR2DsNfLu_0bVhhk%EeLd<Iw1Fh~zlRXdEXo4uBU2#EPR3#Zh2lH~q0&{MgTN
z>`gQFG8elTirtaKo&sVU;n=7t)|HG^Gvcqm@mIEZ-#p%-j<*csZJKyN7tamHWZCC#
zu`#W)A1YAz^yIx}+tZQGbm0LW;t?K00T#N`gP4hX(T5l5&&w#=!rQ#VdwjqMMk2Uj
zJfAU@FPP3Z8B$}GnK^vN0v7QTKeLiGtY;&e*~V||WH)=+&q4m-D91^cWirU3FhwcG
z>6D-pWsMaRE-+J(DpaEeHL1;|)aP>crOD>$K7d<!fM<!JjiHJg-P-FOr5AVUpX>>G
zqOc9MP}qj+<zx59LU(o~P0}2KPvI>lFr7{}B=icL2#c62kEQ*V7AmpkprhQOv~VTM
zj-`bYj;DoM6w7oF;(2DAm>v#uo~?a#etP(pU+J^lJiF<*GCh1qa*@fX6EeadoO7ZB
z)8!eVNW+ZKh=wvnA3o>%`!Ygi7Y8ev-k%W$@C{oZ%m`=8EZ1>Ozl_kI88lNu^<flK
z7G{KF)ReX_@-4p;T8jTVEe-L(l)H_cL%FubnGlE1^BL10bA;n4gB=N%lktSHVL#Pn
zCuK(I)-(4`Lq2x}3J~u&wB>Bq&dumTQs)1ViL7whcbwvb8#>Q-&9{&vbaQa}fT{fB
zf}@m+iONi3CEF<M0^(}A5znZytJE!2Df`5Fg-*^MQnygyI4PICAkK}fTc~oJl*_JB
zx6m2cchxPFFS|^=Li^K;D7AXkFLZkLz4Z$<%wAo;P|@rzmlYa*!&9=&)46(jeAJ2A
ziu09DFUg*(j5Je1znZt}zi_1<-V*Mwx`SEjITv`sKhCE3*C2tM+Ca{1kX`s-p^K9}
zd{X?hD9Lj^^-rH#-lsPAsS|zb>8<s+=u_|Xsdas7MW0$Z_fwA_SDFT~J*IxvNg)wR
zu3DL?4?jyqEwx@9mv-kZt&dB8=Dl*QC6$u%R;J$gSMJIosinQS>xQI0W?$aA_{Q*e
z-nw7n(*E3aCD+8I19|IGO9yk8TBqK3C~w`m_{!wr+&8XGt^6l<Wy#cs9?4x=n_4=W
z`^u83Hy+D-<*)H$j^{0Hj7wo`PUuT+j!OwkshHUom(udqZH-Im$=sE#Q!mZPT{&cX
zT$!1-F7?uUdFxV3`SaGLzCJ5=UF+1>7sy>VB=wmE^VX%lzEJMEwW&`jJT{rLrE60!
zJt6OnsgF4^_l-kRZ!D7c#?-o^c}uBvC*>}c+!8nY<lOg_Oa<bUymg!6x?;IYty8Z&
zb!`1)PBuxs^t8N{sh6If`!PdOFFhl7-H=pxi|4Len_4PiDNAM>l6v2nxvyNCS}K{h
zl=_rXx$n!Ea?r+{Whog`CS!bDES<ZuQEFwG+@;wQ;<~dfrCvEPE|tw)moYgmos+w+
z&$zf$E_Yp@Npb1iymhH>I4^hI?9bx5^W##|*UwJ9v3%aj)Eh6zePg54S6rC8E@NtZ
z<3)MvQX6w|-css)6>?uWI~9nEx$F9*KBZFbx<09Ol~YSeU!Pi8CHJL`Qd?Rz_oa<e
zp|6&=F7@@*^VX$8aY^n{Mrx@>?koGG-dEF7OqkiJ&#aZZE+e(BcFy~fp^s1uacvnb
zq(|QzyFW^}QQ%~&SXxS@+a2V%W+iKLblvQvYfD<#?kX+XyeK_%{oHZoB4a@F(RVp|
z{A4snrYy_xmB*%rb{n=sk+;;4YSG!Qn4;x>7%(nZeIs=>&h@az=%ZXGySj?D8n-Gc
zVaTee8Bg!aF~MULhnR}4qZgBNO|NIB#VPuXrE<p{dq329_Vuo|7|<riuzOr#F)G(F
zm1@Tgo%(5$LW>j0k3?Ivn55{74vD(xThSNQ7Io1LqOYmwiyjeu4~f2AqAuDl`koej
z6GUC~iRg>saF7F;F4|`1x>58E7i-IRI82*_a-uF;E9y4oY9y-Sh-p!`T%$ZjRYhI2
zQ`ALeL|b$l&x*2WYOc~^DQd+)rZFQ|n^S7(4qx=u5Pi{M(brwnMX!jyXoP5sCge(Y
zQ7ZbzUtOqnddA{T`!lm&ZC2>Csp;1hdND25p$T<y_z#UZx3Fsxe&si6yJJ^BDiy+2
z)G6=v{OVd`GcQzh4aq_lQ?Qa#IHtO5@&$YOoBjO5iB+6{(uk|8IP1M$Q>^Bs>q0A&
zy40r|Pcn%q%wZmXbC4o#$(%$@YBP?{c&~;FQa06eam0l#hAxh3JGo^H<M_Oe>&!aN
zdgov2B9dzE99_a=bmPH#=BZFWgi3VcKDzP{!}*BKY~@r}T&L5RD|v$Me8MPxXBQ7Q
za5}?S#wSg-u#M9%*PTAk(3`o;=QxRmPQj^57rJup6|N?!)kyNuhPIsE*m*rK^DYNT
zZz4I_$pu%2a1m=st}~f^l`ms88!2$LOIohwI{ML{ANY|Et`RD(yH*cpT+q}9@(_<O
znhE^PKTK>UX{dR<Yg!(s2g|OP{;SNazd;mofTPrEE)Q^+ql~=Kg)6IA!)b246=wi1
zQ}`wsi`vwuDa|N&vpm99w$ttw7sZU=V@BSRw54Vaa+Kp_-0H(QlY3~#;Fij4mhv;F
z-X@wUPD#pe4&}L!X01ZFffwn=g|5CYrZZi5skJ*TtV*^KBDS!NbMKa>+{W$fV?P;f
zg^~tb#Unh$SSC>No)AiNEzRgle^%Y=^SP~^&m+-ZUZ6IYk{sVb`cSi@C+WtMe8F@M
zaEPZmIU(mbiOx2JD@f9tKD@vz=5oS)_H&xioR@ixaeU4qe!5TkpV~$L>b%Mu)N^y9
z0Z-ABlO9l@P?bxlMP2TpJ)ba|KRL+x4~lNu(}_<Q%^vpA>me7b%whgR(!bEdG7mS<
zg5i(I9Bg4bXFuu&4)@Z5(vP`Z=4M(lh#|cCxB#$_C2V0k`Mb%8e9a7w5}t6eOTnZ`
zb!t+Z20YAT6nj!8<0S?%pC4$@UDPv^IUFPLl&cwD<Ru0&m1*o?Cy5>c%Y{_s5|Z^y
z?xh2r=)wp_vW?%^#h-NO>4qcUiM1bCz(UGCBllCZR|qGwuD9Zso$TQ-$0`1-J%z3>
z3M94rOaD6k<wP3MgQw}q3(RF6^I5`jR?zYl>CYmTu#}&v|Ek!bz?<?6Pi8BE8TF1#
z$3hl!fJ1Z{V(af8;?Cu}3K(vFPch0q4v_i2+a{byaZVj3Nx0+#NyeX_DCJ21)a$r;
zid~J57{#~W*dwU>gN)4rek8e2xxh<t=2gC2<Y>g#%;P(Lpxk0*0_RbQDpaF3b-A2I
zH0CO<rYYU%&DbS&IeP!@3t7EK($M)YNkH;NlULZt4xTtD%J}k-jp6Bkyog#y9Q)bN
zK{AiZ*<8zYEKN&<)jW`qaL3GiW+JTR(|n0Ang;n3p&?y)fPw`QZuKORVSd3xSi*WX
za+Q0J*D$YeB7DbHCs<}NKXK}biEuh+a}KR&P03R%b3w60xQO%4N`&%MJUbC8Q-vB_
z&9!vn$+KM&%s2A``#3<^vVMZ0F9RuCArUH2xl$t3=lQCM@FE-QCBhDlH%){>*CoQO
zZcr^|j-PD4=LZ(EgcUTpF%hog+M5%h8Q0SyX>!UfiEtXHb0+QRNGH1T0}ENiQns{A
zgg+^FyHIjB_ptbmL|8?$I}@Qf58syvkCN8KRUh5D3NgnB_b0+Gl7E{V<_IS~kWkzv
z6tjs?lh=47E<b3QKOatnzbO5P=x02Wn8|G3e>4$3p#Ecta5*h$#hYZamh}{WTyin(
zap^zZ%$Iz}4=iLgYbn_+5zgX9Zl)VgasCt1mJ6s(4QlgEyuzdBGwxUOdY?pik0#HF
z5k6oP17AsmmwDwCFCJuOC95d^Y9d@nC93cqL%HE~8^I-S_%dqJfVUaOU2i2qTXwUD
zn%Opp1~lXvnsOsIkvS+4^0PnrZXz6{>~NWmGd@j(5`4}yj*gO6qvZ{XbMbf^#{dTM
zGH-L?1na0oRgyeIFZ$7+fs~pk`M83{B-@(Y%cqQ{-K0e5z;6Dc#b=_PB)zCQIT5N+
zoqF8G-L&OCy7B;H7|-Y_=GpwY&*Z&niSRK+zmnO%lKvIHwrg=0ZApBS2<gn4DJ@yR
zLYmH%vw4|UsWxA7@EWi42Ji4L@3Z;4MA*up?-OA#?=YN?7|AU^_|6}s|ExuBEOXH^
z(MK<y<G0mz5iVb2-{liVGnvmRzE%chD?9juy}bR4FC=rFG-k$ndkBL!x@*Jlo8%Gd
zZT7iIli`f!clL6e#1>J#RWy@tTOwr9Wv}R^`azkH`;I2UV~k}yrH{!6+>l5Mw^A`J
zEmYyQ^t5n0Ptudi3a5q3qatZ~v^J@9Qd(%h6*OiD@6qVww9tgME~)S3Q6A%QlJw$P
zW;2)hEZ_w{6ZNIR8EK&*MT@6}lj+PO6f2PyPNQ^*w50J0(!$wX$dz2h)!ax=o?#Yq
zc;d{o(4BqkXN_OGe_;o|Q>l~?^DCR!%r17bhr=8pyR;v=dB1crEetbLzKjiE-q~qk
z5!?BV=g&#gqAAU|0BNBhXP=j52w2g}ZEWW^I-H*tI?>Qi@7K_jX8go59=<^A(efg{
zx-)>6`7UYl14S-Q3ny_e?b*y$E~_A&c#@|$t5RAh!>yHV02}y~=c?FPidRhwC1_DC
zE!@Ie)rFQ@Yj{2NYx+!PF`Hzq+G*iZZle{W7|YB$qMR!(O$*m@9oKUkx6_(Cxr;8G
zSXUq@%IRE81u9aD-R!4xJ$JF_!*lhd|MO-B(4fAM@;ooFm?dnvOib{8gS0S|zKznt
zOAO&%Iy4sbJkAq5Ne|XFNek;qT$dKo8N^^l@(Gh}NDH6cApMV;InFCB(!y($yje7}
zijCZRt0bWV53q;5ak;h7a3A-xtBnxy=p8nK#r(|NJLM}Dv4pB^(?VUk(k*Gy;T}=Q
zxb|-T(WiqLV01_IHyF!QDtD5*smi5{WgO%Ag6f^6FFol?)vmsXwfBob9(=&=N5gLJ
zj4_tvmnH+cr-e5e{<QRG4~Ll9Qx2tF(grf4m&{83K53x<Rj9^zCh`Y=vidn+N_zja
zkjeUiVv=Sr`(lo~k`|7U@v8LC_o~eFrdVL}+cFA^28k+e7_1!N@H^hbJtIXmjXv>V
z)EJc(>Tw0vFmI9#=IN<vp*KIUnDL+6K<@k^E!@px^q|2sp}KOK+|5m#JYDI;r8MM4
z`f=^o*7F3<lK&eyoo~KX>d}3!sAK|DDLmgE!A;yk{hw_#?=h4KOrm;nl{DfRp63PL
zW)Q>pX|)1`*Vd<nHyE=)nzLi0sOF7d({zg>)LRt2{J|bpZdW?;&F^+&#_dWAQ|Nv`
z?C?E5lI(a;4rV@A9kPoYwp(#5LmePLp-%Dh>G^&>Ezc!<enxtj$(d*RS(RJ4jdx3?
zhxb`<R(e=Mq0;H$1RBwVX=T#Gm&`jmJ$y%-vgx61+4N+XVP+;TmP-%)D0N<XC`|>b
z(YA`)+%&7EZUOsiq=$o~*Gdl=6ygLn)b`shC)82@fD<oG4@FtRQf|B~J+$O?-r~sR
z=~`kXh46~>FrEC3)Oex>m+}c?IYOebAC!5C6Pl!llPP{>dN_+QOk@GexZ<kxa24M$
zkJ;A<F`L*y;@b3(k29L4hq6hNYB#2bIy^y=;f$hw3m?Xyo72NkF1RJ#n6{!`?TWKm
z$a22AJw41~FNYY|COy2ts5{fcXvQ#w3+_%27qg(F_tLVH?`vhUvvYd*o9FJ6<|Mj^
zUb=U6i=5Ay#`i4XxBI<^_a3xiw0JDt-4HROZrG`uMrk_p2#?Z@8O)@5cd<<0r=|Z(
zPuo()(5Yv7=)#h|>0u>}`lW~KXhuu=(VwY&Ny+|_fcyi}LjekM3ZF8Xssnu)kMJ0G
zzp4@&XTO#n&Y|3ENg2&d4Qf-L%V|hsns7Bm1_>1p^C<lp$kT)63kts@!*M#rsYz`b
z(uig6rib;kdp|uq$Q>W1hxUw2noML8U-JV$vz)D*JzToch->+kZ6rRDM06UNt|wC&
z_!BY0SIp*;Q3AyZR#A40(30dCUZ8JWo@eqM-?NkwW2GHua~}D}iCV7WS~_wc?=g&g
z<E^JW6=+KbdeVzA6Vk&tuAL+qS;8{@<nKw+|EQVpS$gQr3ru1%M>s~`sdhW2eJ*rl
ze_@YcHETJ4ni%3cmU5iLbcNEF3K@Fw9DR9@k$g&tuLbmL>EHPq1q{n(h$>#1qkv%e
z-1P7f-RFxYMttwh%;P8iT%>Xd&n!339**<c3cDXISEh%>)LkWCaXD9zwnj!}Aa5m2
zGS-Sl?xj72f03D3$!a#UmF@h_ZvNr`hj?h69L{sRz+C2&zCJx<Qe}huKyzB~7~OdG
zcLD2T^6Jj?@D6{lha2{!huit$fM{nrUsK?q;+DFHgovxShVuU?#3+2shEqOdgbR63
zO`38iW`tX~jWR_%&qZftgbLI=OHIVuW}f9a>Xyz3^~o%g5ejfV7x2k>8DTVM*2oBF
zQHiR&%xnD21~ThrgwuGNVa!m4r?KigFEmjdhmRP=FIQ%SUnzBUG9#3|I>Y$x8KDU)
zn`eZLY+@G`Tlg|6Q;%UcWrQ(&*xDnzIZUfNGeSGwZJQC^=NpyDzU3nIg}z`K3#i^X
zBh;V~O=+A|iRe12-EV7|$0A;RAS1laa+QjjJ(Lk{patt6w&mRWNJi+u(nr09m8{_x
zHn4^5bWv;V37V*JcQq59$OvE3t+yJtB)6)*ww(k0GQuJ1^p_0Gd^;n|W`_!&zjNn%
z8KFHZ-?tIe8KzbgM?THaNwMS@ol~2y=@=W#;;}Z4HLPU=8~KyH?Bl>#>3`VFKOEsG
z$2d-`DViXSbTY^!ANk3m00k*TVNT#gicpl3IGIy8gW{CnOiEH}T+)`PkawKk6V&Bm
z8gsaNqUhr@zM=CZ%RKQ}M(ECEljR$3QswPd{^kIusnl1T8O-FSY4!lpzZ3v^tKB+)
zC%(-HPbE$I@B+WFld7t?R_C$#Uc{*Hr5j%|mp%N$eAQon;71no+=7hIkGB{^9Tm<-
zGlnlHxiBM?W;nGLWrW%!8<||mH9X7{^kFBvIK;DyGs5#MU=f9vh+>*@JzaQ=ml((<
zc5vr1u}F!ZMKw*io{@}a;m^{4rJ27uM4{!<jGENtejcU|{V1_QAwmZ_bIB^@1uyd&
zYgosHs}(SG;yxbdNhUFw8O)-{8tH$sdX=5%!rouy2mWS12RO(f4)YI3ILa}O6E?}H
zq>)YrndBosSrnikg(%E5G^Iz<Bzk6x3W4-xAVV0&*UaTtwy}r()Y+y$;-~FG%(J_t
zKR>dFbN47c*~@+oag^j<G07|YlrJR59moh1IrE@5aq1zNgp!9n(ue-kI--PQ3Ck#{
zcIjCh<R6M07n77%SNbA)(39C}pU&lwdei@qP<J|$>eS4qI>jP0KQUQ_>d&dGnreOG
zn56emPQ~i;*>s|sC;ZJpx~az6ofqiGcPwB>F;y(6aB60#Ok3J9f{_$HBQq3XVe!nc
zq_`?EZPbCii&uGrT4!d4OX+e}W_W;+jN%(+vVl#!Q93ic#hYa`OkgaZF_#7W#7fq&
znbXUvGQ(tboImG|^E1QUNs~u-oVR(0p?t`2K4v7N7{^5NU62_Ha3UvhGN*DH#VJ84
z&f;utxHvO3=M`R~O+_(FJCgUAJVp<C(ue2iPkJR^L<ve#nle<Xsx}MNsmq{hVt^~E
zXND$R#r4d*Bs0w6Pxf=E3dK$Mg$-=1A^i`UDWaC~$^3R%rYaJdVf@vZVG@m+W`-+y
z@&+5oo?A0RhnAV)ejeiC+iX1hIYeu<j_;%`?HGB7n4{KRzMLCq#jLiO;YZfAO-dg#
zyYKM<yxmR`Fp5b`;cEtUkgnA0lo=Y(kj8YlFEeze^8J|(;hCWZwR!GA88dn)GrUal
z5%XOBsPtzFKXQKZG118-G+-3R2#;rmQ<%XIRD9A0GrPNGUg)865ElzTRYo$7<TLgL
z7VtAI)W2@aU`Eiik3EZx{7Q06e{ZDq02zY|Ubg>o>@^$ldS<9YUA}(9#&E~m_7*A(
zvj0+YNM<;X%2eeo-eEYOFp;S&VI>3JlL@);eH-$=^lvycGhEH<A9^Fl#;eslLCv!n
zVuPQ)%?!&pZ&qd~&z*GQx;Zi#@67c@^!{GvrTt?0gE}k4D1L<u`APojHQcgA+af0H
zwQ+kzS^h(rp(vaGkq;PfJTqi7I4hq<koiLXB1W@k0I%^r!&%Q}emX5*SjknV8?B!1
z^kOuVSiyP{C4CMLpOr5>O}Vn#ASF#IQ-gNr7@?Yn=*IW_%#Y>rg{Ay?uJOLPqP#C+
z@P!&bFpGuMzbIe0jJFxYIHs|hHLPVDd-#h_FIFXZvPtU-DwS~u_py@$)U9YJZt8P2
zS(Wms+m$a=t>Sr}XCN)B<_otmpQWs+mM?6j$0Y_l=P2nlysu%tP@Rr+ru7x7M0dEt
zXy%P=Ek{T+F;+MG_~gob;WIwJCSRDz1=p((%53Iv=msC$+z9vlP3arGhWlFN3tgFV
zQ@${rk8aHuM$+iEe4#1h_=4TH84G-mnWKbOl7dSZ&ty(l#k?f7xSaWIBnJyw$}(2d
zL=%Ur=-D=3c#&s1c;pWbahQA^4O~tMN>YKlk|rJL#?$oVIhH+;FRUZ&;e0Bn*ucll
zchg{vBAmn-bQ>TIxp<gC>3Q>0^>;_9waX>UpO7ysVcuuv`HtnJPnH=;o?vnYHKz(8
zXMAG|d4<<#GGE9j_Pv4SIg?U6w8+MisTEFsuH<U2r#avMBxWeEQ~;>PCA`D{hVkK2
z>3`BPnToHO$6d>14oa<7qnH&N<Xnnw%ok2&-DdfNtG49RX>-2t4L{L+YrgO-HFgRJ
zSL~JEjAa~`9+GL9$!wM$ws##)iVkgvHd5`VoKBj7;!j{F2YCK?zVIqaicpkNMfEDm
z^=Ifyoj=aiaVXDTY}f(*U=RH&>EV<oE9-ufUOdauYI?S%ZgqoGCrw5%ns>E}iDLrq
zW<R&oHoyq)GJ>L)>Q<RJOm9WXT&C|<sx;ESHn(ycchQ!9^e2u^yN8|E**My$D|#oL
zZ_qVr7n6sYYsJWex9BjGJ?y94t$O6=rj|aKIky?rfwHYU&y?2r!weR%jOSH8eKEHV
zZ>)$qgPH8(0O#JJ|5xHroV9rTZvC`BX=V)L_=OD&Q*-qbs<#tGT*Hl&YOfD>%5@L}
zH0NfX=SBYMs0UQdz)qq#^|+E#?(;s5+^=co142zN`aGZ))aT6%;AKWUBq^B8bPkaI
zu<mf_LRTJQ)+1tru8-=;mN-&k93^p0cY)yH9{T6!Yi7{g_q3qtGkUb=<X*bQ<>WYq
z-Knf%4eQvzHg>T2O#@^w=pFre({zXrpbyXUIn&4+^y%l}8l|$14U`|DPhVc(b-rU6
z?`z09jO6f%G9dSTAvCo6RtL1ynI-yod$#_0={QG*VGn!xaIV;*{0be6vv-v|!;D{~
zIk9v1TCCY9M%cs_e%xjQI8le;MSqk2LwDK|%4t4Zi5vGyQ`+p4lR3yg#GaKqvS+^x
z#fIa0q~=2HbS@?>O<yb=$;i@1Q|l*A<}^xiHWyKe>eS-0Os&qYG;=)}`L#mlniDKD
zg)iuRqJ9p^UqtJ4J};{IIulOTu?tO3@g5%F5nkg>vKh<)4s%K|8$;1k&GQPcCr#F|
zk@HW}lM8d0&-W~((CNDTpeV(-ojV!I2MlK<yZMWK9HiM9x^|!ixAHk(@)a{ET3lPO
zQ%s6+I>jkTQ<`&-e>lQ%5+%eE)u_oT*0PR`{K^)#@f#J+)LjB?xQn~Fm)XptPDw4H
z>y^}~j44cI8tpaP?8Gf+={AZ-=|;8EIu7L?+VfW#eUOlGwpgMru^ZTC+)6(NGK7y<
z%`Y@7t6LgImrd#|!pv^=QvDo#+HfV!NYaPbc!z~7Wh1{+x|}X)D0r?;a(Iq@#7;+t
z@E*gs{5)O2@DeZcDsQkOX|j_R=L;=w^A5{c!Oa@4wqzkoxc)+0&ij1G2tHvH<A^<c
zPG&08D0@*>xPXhO$eX;w2aF)O+2l9&u#f5&OBXJu5kvWyu}mPnf~e*MVz;0tQH<NU
zllF9C3={aA=^Q7$qL|_YnsZA<>EF^!Yua!Z-!hNy_>qMy;m%6>vZ4zQ@H1=pl`XWd
zY#opAIMexxx%|j7R#3f)%u55BRFVF%57KLC%Jsa(AU@y|#uNJ|tz6X`sn6xiV<A7Y
zlC!GmF^39N=4q0=$UtHbnQ!wK`#4H^Y=2RZ6S$F^xr2LYPbWIlmCu;U4=kkYCE7jm
z7*ErO7x<CItYQPdvW0pzbU(&qzNA4-8+fJ3VwQ7mEk!BwS<FxTOtIQ}exej*IGb}h
zpNlw5qK?pzkNgzk1WuyorFwYd1^UsVp0wwIdeZ-4Gs{@PaWd<BGbeHZ7juO4%arL9
zrUte7m`|C{4_w$Fr`OE`9*>c6xsBmEZs1*pl4xih>#j)Jm#>hfjif1^>B<<!v%ImW
z<MJjxfDf5S*DH0X#wSeT8$FrKWES7^155as)vRG1>)FaScCjaEvY*2o<;-hEGnW(l
zdAyot+{Ep)rY)W6%KbdX<MiM?hB1PXbZ;sH(*HUKBObUurz^<r9%FZq$)-2xEt`hT
zg^;DJ<~Me+m;DTEA@}kbllh!4naw=D<9inJGizAO7PfML!whPvWMl-Nwv_(2-=;ig
zL@VjZL?$zvxt!lxKA<AisYgSu;2N%_IcK-=I*Q%lV8)r0;cUuLo(fc<2Dj4w4(b1q
znaLEs)0^l_R|fJbYwuFlQ|)ejo$*Lp=LEcYk3%oVNV`|grx0gSnsI!=a@MiGos8FB
zA9x*X7*Fs_(&W;PG9c?a>GO+Oo$bS9cd>EIXE7}vR6ekmzd89~hifi<R9@lmV_EJS
z$unHfK8{hpo1&bi+{pIsl9wq-u`t7A<}><AVguW$*vIJ+t)5pH(e`CALhSl(BHLfF
z0W^Bm2GNJu{oTMpN>4Pv&OYnKLU(3Yc(G7c_I25X9-KPh#X=j>rXGE%P}4;AFK-rV
z5T96Vc5tDq{$2huEzV|5{pz(sucT#vm8~uK%>xSch)?#&?(~*+;{)C*)Fu1qTZO)i
zYu}#w*xQBfO=KT>sZjZBpWGnzLD@dIOm^3|ym?i&xA=y)r+P`tL|juWt|=4ezD%u&
zbFakBx+yXBg!c=rP0#*zc%iz<G9uE>6M7>a!uEn1Gw|05D!|j^M4fJMu&9PlCu!P4
zYew=T8_7CZI}<)*GXHRd2B&Cf!3$&-(|C#tslzZP71Jo<Gc$`>Lg7=jrlBEM(3Sfc
z&R-NdO~VITavQyv$9gu9ak|$tgm;<AES6E{42>Xog&BOyt}~J${9&d-aV_R}l*jmh
z5BZjvY+^Gfl+Zwe`pjexWzN)AfmivOT@){=S;1KX#xc$=t?3BuXwM)9vnXj&yo{~m
zQtskzdh-s8dH!rs#jRyEW+3}qy=XA(JndJ=Jl}^?{UZHXu$%H1i)uR3nGuX;9NQ>S
zL9>#I+B<YK`QL_(S(S1cH^v5yu`y%gDyasH;W3Y+8OwHl<GiYx`|$_Os^zqAe9_}v
z{=eEe=CyCsuF*}AOSCVc4r7Ro8&9jLp%i%y8b{XBu#KJk!G*PDM7q_{f`ci<Mvlh_
zm-=#ITgR$(bJ{spuBSaC_Y>PXj%7D{>Lq<x{r@z4>}Y-%BQFy|@)|OZZJ+@obsEai
zbm4xc@CAF>&-g3s1^mu#$~BS{+(BCgF@%k5VSlo*U5gz}gpM^=YE#5jS83oxKfYx)
zbIH2eI`Y~nes4bg8m(}y^@04(ACzw@efgBwM)6N7UMIxtrFt`Yh2;Gv4|3iOG8hM&
z=d?x4YlnDx3mKIEZhu(hCi^xG$!mYu&wPL8l6kWYCALZI$3RxHmNRbAf{($s+C^`b
z{;?h5MSRi9F2jo3HQnL%)}oD9+h}V>Y&N)^UF@On9lnqsS<I3<?dP<-JEu9}UXS|;
z?Zpt|JJ^djz+q~1(zK{k(td1aE*bY}=0jty;(7Wqm+#2mMTjVMzlL$Nrz4*|VB^`&
zPA+>;TP1q(4Bs+~0uL#`c$>kjXJgXjoQE}hq9dJ|{-_309O557d0Y!CN_SI`a1Gbd
zhZmT|T=E*p<+W`a-9xD9*i&X@IV)){(9biO<OY+L&nR?wtd9ngba+m`G^}JJr#>&;
z_?ko1eNlTe4w2SZG;#|sy`=FY72njbnkxo7e(?VL`mkc&P%XX49;rZL?-c2OWXgY<
zfaNv$8oWf#<%^|agSxA194D@k;h3>m%&_G*q4?cv_?n?R7290*hp1=C0nI|W>6ko0
z>2ytrXvu9nkfBjTY{He-bZc9_MA%Nx{E1K`OIrj@w_@|Hbp<tK;L1YY%-q6S?(n}Y
zw#uAnJ-6{1ud|R3i)#u(Y@rofXZ0(qjS5?n=O@B88eO2d53g5Agddq#UDJ?DG<2w)
za2=8eZ7$Oqi~AbbIF>ZhM2w#sYth4|7Mhmaq{$ae8Ph5eCUDN}|F_}P^{q9i;o&w~
zfsxGLKA}JC|Fod`-<DH(4WmAJ$cK{GAS$mR)JczOr^f#_fQs#!ej%@2Q~T~3+wheb
zk8PLgYqNCuGaAM8FcTXw&0-G4pVQ=nymm=>?U72pkqBRq*RJT(w>2djq!|$<IPqhx
zY{+Xq^r@yo+ZjATTNIxDET?5pUaOs2(-NWXG+UC_3g^w)TGMdtoJ4qm+2o)5pVl>b
zt!ZBWQR^yNElY&ED6%3EiqTtxn6d06Hjp{CIj3z)%YP&*d2LtT4{6~8x}~c;pEQ}C
zp~^Rtv(m!X<TYBEQdkvnYMiLzG<j`S{<p2ltYY5Jp;EenIO{(xJn~w0oPAzSOOCu2
z9C<A^5|vbnE@bjrWtE}nqgBNu@)|(Ib_xwy*;oy0uDDvG846#k0R#`<DipMAsc{7B
z_?3Ha(_Db_T4`!Ro4eFS=PWG%%F<B_fY=J4b32vdySCGm<G!>|iuw<#yw2CX(o!|>
zUsA(<AosoGi%3($KGw27Ioo@<esE5u`GrH&L4Q}>^%0)qIR<dvM_OiZ7x(cApRteQ
z)cZK8D)`6hqw^|@Sj`zDMHzRD(_DaSrmDG5Uak7P%JVO%Fh7sYD#)KZLw$A?<cCsV
zmNqUNoUM_?9Cg^|s>9BG^VI66`48HuFg|HAg&$c$@daXnc64F_lQ~M_N6m$}jyL)L
zwRiSUQC(*of9~$`Ql8~)mp4HIC5Wg*0fk^BqP)4Lny_XgF;+sNO-Q8;B?d)=)e3aR
zK~1s@Cv7w_lQhN-RVErXk;sdnf`fp{IJRmE27@UYMa7t^wBNJ$n#pwX2lR(B^Wp40
z&$;KGd+y%5_niBEp8H2I2rhv~df=k~N<ldo1jArnFZ`N7DX@bt!9@_<htPJwz7qdl
z2K&H%Fb3`d+etXdfUUp*Zh-H>v{Uf50Bb=7Xa~oE?`b$XffZmC*aI5C7`O-K_oJu5
zR!|ExwZEO-gw+2y`1T5X4X*0Qd<_+WCE!;;8PySk6Sv^n0V2n+SKu7D1ePI+XEAsm
zw1FFU;Y0x(_s~P&JP5lFcN1_F6pq6+031=E1Xk=2IQv8HX@W*H5CUgl35I+ZEDeKP
z6fB2gUrP8NsP<!Hpj`#4Cqs`4_DqMW8<ZyMsSH??pgjejCqqsO{8AvI2jjE#xPipF
zpa7fzy>|SIOND3^yqyNwF7TbFrvUK1MNd-~qO!%1_=3!*p)Cga&p<#6CPUyZh3>vD
z>G9eEC~?6%K=(3a!&@;q0#1RygM@9EMgrS_j0)HVPJ%hn805x*N>Bs3fDFigAA{Vo
zw=lXEn3o14?_rVz1nj~{8erh-Y^Z0a-q}*mnR-Pp_SSO(ZYD4`G2y2k$bnGkL_BN;
z4p0j=hvQEE0~LSV0+>K32m=vKM3EpCOabW@IB$YqfJI;fC<j%b8f50cu@fu?PXdI`
zv%B1qca*}h1N<3$1Z4a?>F^=r<w-{m87ogZddS##QqC;n;z{|k42dU2yfPe~)Y8gO
zcv8|TL*GfostkK46{@FNA@~I6z<D6U-bwXgV-GZTQf?^Y-APqp?_4)HcR>vT{s!n-
zRn#Lx-AQeX409(XFzcbgC<B{8C6Hn6<fCod8+bqjR)9R<k0WLRp&$&%kanSeQlr_8
zBi*O$62JR|TmOF;{wEHD)85Fh=o5G0yf@&y@C29S34*`(WFE%gEefvpQ*g=5gENx>
zGXHouJtT>!gFIKPI*1^GH3u=}^VvbRM3l}!EcH|q^&;Z+>_^RXYnho&mzt?NJ%G++
z1c;eUJVoR;@kHN(%uxDyMJSa`45Rp`!h~qz1kv5Z176KhGbm~14EjrwX#Rrd)*a#$
zk$Q-2qE>$DJH#PAVs$#6=Vef0Xa+?ki19<5IJrANoA%NI`t4M_O7__Wl%uy$Y_Ns4
z$64_DF$>1l7FxDyp;+0>liZgW7gMF#S=Y=aMbx)&fe2}3n?83#fmqv$hSaz6MA6rZ
z-MZJxR$*;J_}C3?Y?=DP^eQS(siNo?s_5aOD#|IVq8gCI)s%0mMu?PZ+UfBJx;aCP
zw{fyaIn1-fn!_9!73J^1mCQjUi4H1W;Gppe2ig5<$rMzJM+CLB+9r-3=4z4Cj@XQq
z?VKsP+c9Bw8H?@*9{-3|Sw&0-$9U~_+e6*c_K;<P$m`&T#KsPe^Vm73fjrV0L{kTU
zF4i64IIn+%G}F#S&E&RHG#=sU;_?yB7mJQ!kJcUK8ZX0yGgMN3hPskP&@q0_<d}Ye
z+A}VY4BY;K?E>8i7h8_;Lq1<FAE3zaLCi)B(ram=`4~rup<_7a#!mE5Tqno*CU}pK
zf654zXN^#5_K0}3lUInoPL4GdK5>)I%^D+*^fBtp8>2@JBB+b=#JVmt<HIhFpD)8y
zYVjdS!B_6z^YpmAu1Br}196ONFgYMU|0vb@xfU@Ov&$KHoX;z>UYl0ETjo8Yd>Dyv
zF$>|PoeN2aD|jqqz<wY5{&()jzRpSAoTqqX?Z9;H4o}CZ;qhRdRxf7xW^T69bw9#G
zko$_mstXafPw;Lf-uZ41zo<BhJcsJ~__Pu)`ulj3E<Qozp5&O6vuCZ_aTd*URin=s
z_@Y;FeKvh+D4TNzKjs)F0-4G-%2c*f?`%8CX+Dm8ow06!`%JR6(uT{rE6v&=E)MW~
zY%O|_<8_gNV(B2K2c8YU`HKFLMd7IDN;ir3hw=S=BZRXjL?B;wAA+xV%QDMot*cCh
zEE6nj7x}TDsg@V<;*RIP;&5@`A}4Ek`J@-uWS-wwob9WY%c2}t4X?`@9v0nSbDn1L
zqi0-}Vzus^VNTa9kpy`Yw*IPWSu@0sX_h?7c3BElOaBl*p;^Ky-DP=2wPar6=QPWM
zeRxT=$bHZ($(Tfu+gYhvqQB-6ZBNi@@y;+VJU`Li6>4eOUad54q(sYQ4zC-<nR{iJ
zlePNS(r;Y#=Zb{OT%~0eQH(3oCPqi`t&jSKBQ?uXdfsKRiotKVRLcya<*v*p)va#)
zC;wjC>aS^%*gk^Zjve`-PopW)RoWs3uku!{iYO{}WoC(lD_pLv?L}GQsjFDK{|XoX
zP*7bvO%_}(8m@AbW_eI=>W}NqftX5m-)yyMwcql3o!MJ7T;q3Tnsc4E$n^Ym-X_z+
zQ7)0`(5RYUbc5^Uvgb{8x%MW%C6{AwspUVrrRHaj@l=^#G{)&NJ)os`km}9e5n_`&
zPY_FQbDXqR-sZV7?a)%gcj{UeEv@;E*X%Fyj8_`(a6q789Ip-#A>PJVZ~18n?q!|^
zHqn#JVWPm>__hI(TZB#bF~%C8u_Y1jW84@m%kIU}J^-;RLF`JOfc@YAaMjxHV~kVA
z#i*}wMxCG0;N7Dcq;dSsO)YgMW1&}H?k^+cdEVzHN=(KIC0mS{jCOY`%32%6db824
d+u|kenvJE(U&ZSIFntQsnjq)D0*vl%{{cjZpt%45

diff --git a/astrolog.h b/astrolog.h
index bafea73..0239178 100644
--- a/astrolog.h
+++ b/astrolog.h
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: astrolog.h
+** Astrolog (Version 7.10) File: astrolog.h
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 /*
@@ -63,23 +63,23 @@
 ** can be disabled even if you are running a system that supports X windows.
 */
 
-/*#define PC /* Comment out this #define if you have a Unix, Mac, or other */
+//#define PC /* Comment out this #define if you have a Unix, Mac, or other */
            /* system that isn't a generic PC running DOS or MS Windows.  */
 
-/*#define MACOLD /* Comment out this #define if you're not compiling for an  */
+//#define MACOLD /* Comment out this #define if you're not compiling for an  */
                /* old pre-OSX Mac. Modern Mac systems should not use this. */
 
 #define X11 /* Comment out this #define if you don't have X windows, or */
             /* else have them and don't wish to compile in X graphics.  */
 
-/*#define WIN /* Comment out this #define if you don't have MS Windows, or */
+//#define WIN /* Comment out this #define if you don't have MS Windows, or */
             /* else have them but want a command line version instead.   */
 
-/*#define MACG /* Comment out this #define if you don't have a Mac, or else  */
+//#define MACG /* Comment out this #define if you don't have a Mac, or else  */
              /* have one and don't wish to compile in Mac screen graphics. */
              /* Note modern Mac's may be able to compile with X11 instead. */
 
-/*#define WCLI /* Comment out this #define if you don't want to compile a    */
+//#define WCLI /* Comment out this #define if you don't want to compile a    */
              /* command line Windows version that can still popup windows. */
 
 #define TIME /* Comment out this #define if your compiler can't take the  */
@@ -91,7 +91,7 @@
 #define ENVIRON /* Comment out this #define if your system doesn't have  */
                 /* environment variables or can't compile calls to them. */
 
-/*#define ATOF /* Comment out this #define if you have a system in which  */
+//#define ATOF /* Comment out this #define if you have a system in which  */
              /* 'atof' and related functions aren't defined in stdio.h, */
              /* such as most PC's, Linux, VMS compilers, and NeXT's.    */
 
@@ -164,28 +164,30 @@
 #else
 #define DEFAULT_DIR "C:\\Astrolog"
 #endif
-  /* Change this string to directory path program should look in for the  */
-  /* astrolog.as default file, if one is not in the current directory or  */
-  /* in the dirs indicated by environment variables. For PC systems, use  */
-  /* two backslashes instead of one forward one to divide subdirectories. */
+  // Change this string to directory path program should look in for the
+  // astrolog.as default file, if one is not in the current directory or
+  // in the dirs indicated by environment variables. For PC systems, use
+  // two backslashes instead of one forward slash to divide subdirectories.
+  // For Unix systems, it may be necessary to expand "~" to the full path.
 
 #define CHART_DIR DEFAULT_DIR
-  /* This string is the directory the program looks in for chart info    */
-  /* files (-i switch) if not in the current directory. This is normally */
-  /* the default dir above but may be changed to be somewhere else.      */
+  // This string is the directory the program looks in for chart info files
+  // (-i switch) if not in the current directory. This is normally the default
+  // dir above but may be changed to be somewhere else.
 
 #define EPHE_DIR DEFAULT_DIR
-  /* This string is the directory the program looks in for the ephemeris */
-  /* files as accessed with the -b switch. This is normally the default  */
-  /* dir above but may be changed to be somewhere else.                  */
+  // This string is the directory the program looks in for the ephemeris files
+  // as accessed with the -b switch. This is normally the default dir above
+  // but may be changed to be somewhere else.
 
-#define DEFAULT_LONG DM(122,20) /* Change numbers to longitude and latitude */
-#define DEFAULT_LAT  DM(47, 36) /* of your current location. Use negative   */
-                                /* values for eastern or southern degrees.  */
+#define DEFAULT_LONG DM(122,20) 
+#define DEFAULT_LAT  DM(47, 36)
+  // Change numbers to longitude and latitude of your current location. Use
+  // negative values for eastern or southern degrees.
 
-#define DEFAULT_ZONE 8.00 /* Change this number to the time zone of your */
-                          /* current location in hours before (west of)  */
-                          /* UTC. Use negative values for eastern zones. */
+#define DEFAULT_ZONE 8.00
+  // Change this number to the time zone of your current location in hours
+  // before (west of) UTC. Use negative values for eastern zones.
 
 /*
 ** OPTIONAL CONFIGURATION SECTION: Although not necessary, one may like
@@ -194,49 +196,51 @@
 ** specified within the default settings file or in the program itself.
 */
 
-#define DEFAULT_SYSTEM 0 /* Normally, Placidus houses are used (unless the */
-                         /* user specifies otherwise). If you want a       */
-                         /* different default system, change this number   */
-                         /* to a value from 0..17 (values same as in -c).  */
+#define DEFAULT_SYSTEM 0
+  // Normally, Placidus houses are used (unless the user specifies otherwise).
+  // If you want a different default system, change this number to a value
+  // from 0-21 (values same as in -c switch).
 
-#define DEFAULT_ASPECTS 5 /* Default number of aspects to use in charts. */
+#define DEFAULT_ASPECTS 5
+  // Default number of aspects to include in charts.
 
-#define DIVISIONS 48 /* Greater numbers means more accuracy but slower  */
-                     /* calculation, of exact aspect and transit times. */
+#define DIVISIONS 48
+  // Greater numbers means more accuracy but slower calculation, of exact
+  // aspect and transit times.
 
 #define DEFAULT_INFOFILE "astrolog.as"
-  /* Name of file to look in for default program parameters (which will */
-  /* override the compile time values here, if the file exists).        */
+  // Name of file to look in for default program settings (which will override
+  // the compile time values here, if the file exists).
 
 #define DEFAULT_ATLASFILE "atlas.as"
-  /* Name of file to look in for default atlas city and time zone list. */
+  // Name of file to look in for default atlas city and time zone list.
 
 #define DEFAULT_TIMECHANGE "timezone.as"
-  /* Name of file to look in for default list of time zone changes. */
+  // Name of file to look in for default list of time zone changes.
 
 #define ENVIRONALL "ASTROLOG"
 #define ENVIRONVER "ASTR"
-  /* Name of environment variables to look in for chart, ephemeris, and  */
-  /* default files. The second name is a version specific variable which */
-  /* can get the current version appended to it before it is accessed.   */
-
-#define WHEELCOLS 15   /* Affects width of each house in wheel display.    */
-#define WHEELROWS 11   /* Max no. of objects that can be in a wheel house. */
-#define SCREENWIDTH 80 /* Number of columns to print interpretations in.   */
-#define MONTHSPACE 3   /* Number of spaces between each calendar column.   */
-#define MAXINDAY 200   /* Max number of aspects or transits displayable.   */
-#define MAXCROSS 750   /* Max number of latitude crossings displayable.    */
-#define BIODAYS 14     /* Days to include in graphic biorhythms.           */
-#define CREDITWIDTH 74 /* Number of text columns in the -Hc credit screen. */
-#define MAXSWITCHES 64 /* Max number of switch parameters per input line.  */
-#define PSGUTTER 9     /* Points of white space on PostScript page edge.   */
-
-#ifdef GRAPH           /* For graphics, this char affects how bitmaps are */
-#ifndef PC             /* written. 'N' is written like with the 'bitmap'  */
-#define BITMAPMODE 'C' /* program, 'C' is compacted somewhat (files have  */
-#else                  /* less spaces), and 'V' is compacted even more.   */
-#define BITMAPMODE 'B' /* 'A' means write as rectangular Ascii text file. */
-#endif                 /* 'B' means write as Windows bitmap (.bmp) file.  */
+  // Name of environment variables to look in for chart, ephemeris, and
+  // default files. The second name is a version specific variable which can
+  // also have the current version appended to it before it is accessed.
+
+#define WHEELCOLS 15    // Affects width of each house in wheel display.
+#define WHEELROWS 11    // Max no. of objects that can be in a wheel house.
+#define SCREENWIDTH 80  // Number of columns to print interpretations in.
+#define MONTHSPACE 3    // Number of spaces between each calendar column.
+#define MAXINDAY 200    // Max number of aspects or transits displayable.
+#define MAXCROSS 750    // Max number of latitude crossings displayable.
+#define BIODAYS 14      // Days to include in graphic biorhythms.
+#define CREDITWIDTH 74  // Number of text columns in the -Hc credit screen.
+#define MAXSWITCHES 100 // Max number of switch parameters per input line.
+#define PSGUTTER 9      // Points of white space on PostScript page edge.
+
+#ifdef GRAPH            // For graphics, this char affects how bitmaps are
+#ifndef PC              // written. 'N' is written like with the 'bitmap
+#define BITMAPMODE 'C'  // program, 'C' is compacted somewhat (files have
+#else                   // less spaces), and 'V' is compacted even more.
+#define BITMAPMODE 'B'  // 'A' means write as rectangular Ascii text file.
+#endif                  // 'B' means write as Windows bitmap (.bmp) file.
 #endif /* GRAPH */
 
 /*
@@ -248,26 +252,27 @@
 */
 
 #ifdef GRAPH
-#define BITMAPX    2730 /* Maximum window size allowed */
+#define BITMAPX    2730  // Maximum window size allowed.
 #define BITMAPY    2730
-#define BITMAPX1    180 /* Minimum window size allowed */
+#define BITMAPX1    180  // Minimum window size allowed.
 #define BITMAPY1    180
-#define DEFAULTX    600 /* Default window size */
+#define DEFAULTX    600  // Default window size.
 #define DEFAULTY    600
-#define SIDESIZE    160 /* Size of wheel chart information sidebar.    */
-#define MAXMETA 1000000 /* Max bytes allowed in a metafile.            */
-#define METAMUL      12 /* Metafile coordinate to chart pixel ratio.   */
-#define PSMUL        11 /* PostScript coordinate to chart pixel ratio. */
-#define WIREMUL      10 /* Wireframe coordinate to chart pixel ratio.  */
-#define CELLSIZE     14 /* Size for each cell in the aspect grid.      */
-#define DEGINC        2 /* Number of degrees per segment for circles.  */
-#define DEFORB      7.0 /* Min distance glyphs can be from each other. */
-#define MAXSCALE    400 /* Max scale factor as passed to -Xs swtich.   */
+#define SIDESIZE    160  // Size of wheel chart information sidebar.
+#define MAXMETA 1000000  // Max bytes allowed in a metafile.
+#define METAMUL      12  // Metafile coordinate to chart pixel ratio.
+#define PSMUL        11  // PostScript coordinate to chart pixel ratio.
+#define WIREMUL      10  // Wireframe coordinate to chart pixel ratio.
+#define CELLSIZE     14  // Size for each cell in the aspect grid.
+#define DEGINC        2  // Number of degrees per segment for circles.
+#define DEFORB      7.0  // Min distance glyphs can be from each other.
+#define MAXSCALE    400  // Max scale factor as passed to -Xs swtich.
 #endif /* GRAPH */
 
-#define chH    (char)(us.fAnsiChar ? 196 : '-')    /* Ansi and Ascii       */
-#define chV    (char)(us.fAnsiChar ? 179 : '|')    /* characters used to   */
-#define chC    (char)(us.fAnsiChar ? 197 : '|')    /* display text charts. */
+// Ascii and other characters used to display text charts.
+#define chH    (char)(us.fAnsiChar ? 196 : '-')
+#define chV    (char)(us.fAnsiChar ? 179 : '|')
+#define chC    (char)(us.fAnsiChar ? 197 : '|')
 #define chNW   (char)(us.fAnsiChar ? 218 : '+')
 #define chNE   (char)(us.fAnsiChar ? 191 : '+')
 #define chSW   (char)(us.fAnsiChar ? 192 : '+')
@@ -285,7 +290,7 @@
 ** One shouldn't ever need to change anything below this line to compile.
 */
 
-/*#define BETA /* Uncomment to compile in beta message on startup. */
+//#define BETA  // Uncomment to compile in beta message on startup.
 #define ASTROLOG
 #ifdef _DEBUG
 #define DEBUG
@@ -489,9 +494,9 @@
 #define fTrue  TRUE
 
 #define szAppNameCore "Astrolog"
-#define szVersionCore "7.00"
-#define szVerCore     "700"
-#define szDateCore    "June 2020"
+#define szVersionCore "7.10"
+#define szVerCore     "710"
+#define szDateCore    "October 2020"
 #define szAddressCore \
   "Astara@msn.com - http://www.astrolog.org/astrolog.htm"
 #define szNowCore     "now"
@@ -501,6 +506,7 @@
 
 #define cchSzDef   80
 #define cchSzMax   255
+#define cchSzLine  (cchSzMax*4)
 #define dwCanary   0x87654321
 #define nDegMax    360
 #define nDegHalf   180
@@ -566,9 +572,9 @@
 #define cRay       7
 #define xFont      6
 #define yFont      10
-#define xFontT     (xFont * gi.nScaleText * gi.nScaleT)
-#define yFontT     (yFont * gi.nScaleText * gi.nScaleT)
-#define xSideT     (SIDESIZE * gi.nScaleText * gi.nScaleT)
+#define xFontT     (xFont * gi.nScaleTextT)
+#define yFontT     (yFont * gi.nScaleTextT)
+#define xSideT     (SIDESIZE * gi.nScaleTextT)
 
 /* Atlas values */
 
@@ -577,9 +583,9 @@
 #define icnewMax 252
 #define icnusMax 51
 #define icncaMax 13
-#define icnUS    234 // United States
-#define icnCA    38  // Canada
-#define icnFR    76  // France
+#define icnUS    234  // United States
+#define icnCA    38   // Canada
+#define icnFR    76   // France
 #define iznMax   425
 #define ilistMax 200
 
@@ -855,34 +861,36 @@ enum _graphicschart {
   gEsoteric   = 9,
   gAstroGraph = 10,
   gEphemeris  = 11,
-  gTraTraGra  = 12,
-  gTraNatGra  = 13,
-  gSphere     = 14,
-  gWorldMap   = 15,
-  gGlobe      = 16,
-  gPolar      = 17,
-  gBiorhythm  = 18,
+  gLocal      = 12,
+  gTraTraGra  = 13,
+  gTraNatGra  = 14,
+  gSphere     = 15,
+  gWorldMap   = 16,
+  gGlobe      = 17,
+  gPolar      = 18,
+  gTelescope  = 19,
+  gBiorhythm  = 20,
 #ifdef WIN
-  gAspect     = 19,
-  gMidpoint   = 20,
-  gArabic     = 21,
-  gRising     = 22,
-  gTraTraTim  = 23,
-  gTraTraInf  = 24,
-  gTraNatTim  = 25,
-  gTraNatInf  = 26,
-  gSign       = 27,
-  gObject     = 28,
-  gHelpAsp    = 29,
-  gConstel    = 30,
-  gPlanet     = 31,
-  gRay        = 32,
-  gMeaning    = 33,
-  gSwitch     = 34,
-  gObscure    = 35,
-  gKeystroke  = 36,
-  gCredit     = 37,
-  gMax        = 38,
+  gAspect     = 21,
+  gMidpoint   = 22,
+  gArabic     = 23,
+  gRising     = 24,
+  gTraTraTim  = 25,
+  gTraTraInf  = 26,
+  gTraNatTim  = 27,
+  gTraNatInf  = 28,
+  gSign       = 29,
+  gObject     = 30,
+  gHelpAsp    = 31,
+  gConstel    = 32,
+  gPlanet     = 33,
+  gRay        = 34,
+  gMeaning    = 35,
+  gSwitch     = 36,
+  gObscure    = 37,
+  gKeystroke  = 38,
+  gCredit     = 39,
+  gMax        = 40,
 #endif
 };
 
@@ -933,13 +941,13 @@ enum _calculationmethod {
 /* Draw text formatting flags */
 
 enum _drawtext {
-  dtCent   = 0x0,  // Default: Center text at coordinates
-  dtLeft   = 0x1,  // Left justify text at X coordinate
-  dtTop    = 0x2,  // Y coordinate is top of text
-  dtBottom = 0x4,  // Y coordinate is bottom of text
-  dtErase  = 0x8,  // Erase background behind text
-  dtScale  = 0x10, // Scale text by -Xs character scale
-  dtScale2 = 0x20, // Scale text by -XS text scale
+  dtCent   = 0x0,   // Default: Center text at coordinates
+  dtLeft   = 0x1,   // Left justify text at X coordinate
+  dtTop    = 0x2,   // Y coordinate is top of text
+  dtBottom = 0x4,   // Y coordinate is bottom of text
+  dtErase  = 0x8,   // Erase background behind text
+  dtScale  = 0x10,  // Scale text by -Xs character scale
+  dtScale2 = 0x20,  // Scale text by -XS text scale
 };
 
 /* User string parse modes */
@@ -1023,6 +1031,7 @@ enum _terminationcode {
 #define Max(v1, v2) ((v1) > (v2) ? (v1) : (v2))
 #define Min(v1, v2) ((v1) < (v2) ? (v1) : (v2))
 #define NSgn(n) ((n) < 0 ? -1 : (n) > 0)
+#define NSgn2(n) ((n) < 0 ? -1 : 1)
 #define RSgn2(r) ((r) < 0.0 ? -1.0 : 1.0)
 #define FOdd(n) ((n) & 1)
 #define FBetween(v, v1, v2) ((v) >= (v1) && (v) <= (v2))
@@ -1064,6 +1073,7 @@ enum _terminationcode {
 #define RAtnD(r) DFromR(RAtn(r))
 #define NSinD(nR, nD) ((int)((real)(nR)*RSinD((real)nD)))
 #define NCosD(nR, nD) ((int)((real)(nR)*RCosD((real)nD)))
+#define RAngleD(x, y) DFromR(RAngle(x, y))
 #define RLength2(x, y) RSqr(Sq(x) + Sq(y))
 #define RLength3(x, y, z) RSqr(Sq(x) + Sq(y) + Sq(z))
 #define RStarBright(b1, d1, d2) \
@@ -1200,50 +1210,50 @@ enum _terminationcode {
 #define MoveTo(hdc, x, y) MoveToEx(hdc, x, y, NULL)
 #endif
 
-/* Should an object in the outer wheel be restricted? */
+// Should an object in the outer wheel be restricted?
 #define FProper2(i) (!(us.nRel == rcTransit ? ignore2[i] : ignore[i]))
 
-/* Are particular coordinates on the chart? */
+// Are particular coordinates on the chart?
 #define FInRect(x, y, x1, y1, x2, y2) \
   ((x) >= (x1) && (x) < (x2) && (y) >= (y1) && (y) < (y2))
 #define FOnWin(X, Y) FInRect((X), (Y), 0, 0, gs.xWin, gs.yWin)
 
-/* Get a coordinate based on chart radius, a fraction, and (co)sin value. */
+// Get a coordinate based on chart radius, a fraction, and (co)sin value.
 #define POINT1(U, R, S) ((int)(((U)+1.4)*(R)*(S)))
 #define POINT2(U, R, S) ((int)(((U)-0.3)*(R)*(S)))
 
-/* Determine (co)sin factors based on zodiac angle and chart orientation. */
+// Determine (co)sin factors based on zodiac angle and chart orientation.
 #define PX(A) RCosD(A)
 #define PY(A) RSinD(A)
 #define PZ(A) PlaceInX(A)
 
-/* Compute Mollewide projection in pixel scale given latitude. */
+// Compute Mollewide projection in pixel scale given latitude.
 #define RMollewide(y) RSqr((real)Sq(180*nScl) - 4.0*Sq((y)*(real)nScl))
 #define NMollewide(y) \
   ((int)(RSqr((real)(Sq(180*nScl) - 4*Sq((y)*nScl))) + rRound))
 
-/* Do settings indicate the current chart should have the info sidebar? */
+// Do settings indicate the current chart should have the info sidebar?
 #define fSidebar ((gi.nMode == gWheel || gi.nMode == gHouse || \
   gi.nMode == gSector || gi.nMode == gSphere) && gs.fText && !us.fVelocity)
 
-/* Is the current chart most properly displayed as a square graphic? */
+// Is the current chart most properly displayed as a square graphic?
 #define fSquare \
   (gi.nMode == gWheel || gi.nMode == gHouse || gi.nMode == gGrid || \
   (gi.nMode == gHorizon && us.fPrimeVert) || gi.nMode == gDisposit || \
   gi.nMode == gOrbit || gi.nMode == gSector || gi.nMode == gSphere || \
   gi.nMode == gGlobe || gi.nMode == gPolar)
 
-/* Does the current chart have to be displayed in a map rectangle? */
+// Does the current chart have to be displayed in a map rectangle?
 #define fMap \
   (gi.nMode == gAstroGraph || gi.nMode == gWorldMap)
 
-/* Do settings indicate the current chart should have an outer border? */
+// Do settings indicate the current chart should have an outer border?
 #define fDrawBorder \
   ((gs.fBorder || gi.nMode == gGrid) && gi.nMode != gTraTraGra && \
   gi.nMode != gTraNatGra && gi.nMode != gGlobe && gi.nMode != gPolar && \
   (gi.nMode != gWorldMap || !gs.fMollewide))
 
-/* Do settings indicate current chart should have chart info at its bottom? */
+// Do settings indicate current chart should have chart info at its bottom?
 #define fDrawText \
   (gs.fText && gi.nMode != gCalendar && !((gi.nMode == gWorldMap || \
   gi.nMode == gGlobe || gi.nMode == gPolar) && (gs.fAlt || gs.fConstel)) && \
@@ -1297,6 +1307,17 @@ typedef struct _CIRC {
   int yr;
 } CIRC;
 
+typedef struct _TELE {
+  real xCent;   // Center pixel coordinates of chart
+  real yCent;
+  real xBase;   // Chart coordinates of center
+  real yBase;
+  real xScale;  // Scale of chart
+  real yScale;
+  real lon;     // Final coordinates used for point
+  real lat;
+} TELE;
+
 typedef struct _GridInfo {
   byte n[objMax][objMax];
   int  v[objMax][objMax];
@@ -1371,245 +1392,267 @@ typedef struct _ObjDraw {
 } ObjDraw;
 #endif
 
-typedef word * TransGraInfo[objMax][objMax][cAspect];
+typedef word * TransGraInfo[objMax][objMax][cAspect+1];
 
 typedef struct _UserSettings {
 
-  /* Chart types */
-  flag fListing;       /* -v */
-  flag fWheel;         /* -w */
-  flag fGrid;          /* -g */
-  flag fAspList;       /* -a */
-  flag fMidpoint;      /* -m */
-  flag fHorizon;       /* -Z */
-  flag fOrbit;         /* -S */
-  flag fSector;        /* -l */
-  flag fInfluence;     /* -j */
-  flag fEsoteric;      /* -7 */
-  flag fAstroGraph;    /* -L */
-  flag fCalendar;      /* -K */
-  flag fInDay;         /* -d */
-  flag fInDayInf;      /* -D */
-  flag fEphemeris;     /* -E */
-  flag fHorizonSearch; /* -Zd */
-  flag fTransit;       /* -t */
-  flag fTransitInf;    /* -T */
-  flag fInDayGra;      /* -B */
-  flag fTransitGra;    /* -V */
-  flag fAtlasLook;     /* -N */
-  flag fAtlasNear;     /* -Nl */
-  flag fZoneChange;    /* -Nz */
-
-  /* Chart suboptions */
-  flag fVelocity;      /* -v0 */
-  flag fWheelReverse;  /* -w0 */
-  flag fGridConfig;    /* -g0 */
-  flag fGridMidpoint;  /* -gm */
-  flag fAppSep;        /* -ga */
-  flag fParallel;      /* -gp */
-  flag fAspSummary;    /* -a0 */
-  flag fMidSummary;    /* -m0 */
-  flag fMidAspect;     /* -ma */
-  flag fPrimeVert;     /* -Z0 */
-  flag fSectorApprox;  /* -l0 */
-  flag fInfluenceSign; /* -j0 */
-  flag fLatitudeCross; /* -L0 */
-  flag fCalendarYear;  /* -Ky */
-  flag fInDayMonth;    /* -dm */
-  flag fInDayYear;     /* -dy */
-  flag fGraphAll;      /* -B0 */
-  flag fArabicFlip;    /* -P0 */
-
-  /* Table chart types */
-  flag fCredit;        /* -Hc */
-  flag fSwitch;        /* -H  */
-  flag fSwitchRare;    /* -Y  */
-  flag fKeyGraph;      /* -HX */
-  flag fSign;          /* -HC */
-  flag fObject;        /* -HO */
-  flag fAspect;        /* -HA */
-  flag fConstel;       /* -HF */
-  flag fOrbitData;     /* -HS */
-  flag fRay;           /* -H7 */
-  flag fMeaning;       /* -HI */
-
-  /* Main flags */
-  flag fLoop;        /* -Q */
-  flag fSidereal;    /* -s */
-  flag fCusp;        /* -C */
-  flag fUranian;     /* -u */
-  flag fProgress;    /* Are we doing a -p progressed chart?    */
-  flag fInterpret;   /* Is -I interpretation switch in effect? */
-  flag fHouse3D;     /* -c3 */
-  flag fAspect3D;    /* -A3 */
-  flag fAspectLat;   /* -Ap */
-  flag fDecan;       /* -3 */
-  flag fFlip;        /* -f */
-  flag fGeodetic;    /* -G */
-  flag fVedic;       /* -J */
-  flag fNavamsa;     /* -9 */
-  flag fEphemFiles;  /* -b */
-  flag fWriteFile;   /* -o */
-  flag fAnsiColor;   /* -k */
-  flag fGraphics;    /* -X */
-
-  /* Main subflags */
+  // Chart types
+  flag fListing;        // -v
+  flag fWheel;          // -w
+  flag fGrid;           // -g
+  flag fAspList;        // -a
+  flag fMidpoint;       // -m
+  flag fHorizon;        // -Z
+  flag fOrbit;          // -S
+  flag fSector;         // -l
+  flag fInfluence;      // -j
+  flag fEsoteric;       // -7
+  flag fAstroGraph;     // -L
+  flag fCalendar;       // -K
+  flag fInDay;          // -d
+  flag fInDayInf;       // -D
+  flag fEphemeris;      // -E
+  flag fHorizonSearch;  // -Zd
+  flag fTransit;        // -t
+  flag fTransitInf;     // -T
+  flag fInDayGra;       // -B
+  flag fTransitGra;     // -V
+  flag fAtlasLook;      // -N
+  flag fAtlasNear;      // -Nl
+  flag fZoneChange;     // -Nz
+
+  // Chart suboptions
+  flag fVelocity;       // -v0
+  flag fWheelReverse;   // -w0
+  flag fGridConfig;     // -g0
+  flag fGridMidpoint;   // -gm
+  flag fAppSep;         // -ga
+  flag fParallel;       // -gp
+  flag fAspSummary;     // -a0
+  flag fMidSummary;     // -m0
+  flag fMidAspect;      // -ma
+  flag fPrimeVert;      // -Z0
+  flag fSectorApprox;   // -l0
+  flag fInfluenceSign;  // -j0
+  flag fLatitudeCross;  // -L0
+  flag fCalendarYear;   // -Ky
+  flag fInDayMonth;     // -dm
+  flag fInDayYear;      // -dy
+  flag fGraphAll;       // -B0
+  flag fArabicFlip;     // -P0
+
+  // Table chart types
+  flag fCredit;          // -Hc
+  flag fSwitch;          // -H
+  flag fSwitchRare;      // -Y
+  flag fKeyGraph;        // -HX
+  flag fSign;            // -HC
+  flag fObject;          // -HO
+  flag fAspect;          // -HA
+  flag fConstel;         // -HF
+  flag fOrbitData;       // -HS
+  flag fRay;             // -H7
+  flag fMeaning;         // -HI
+
+  // Main flags
+  flag fLoop;        // -Q
+  flag fSidereal;    // -s
+  flag fCusp;        // -C
+  flag fUranian;     // -u
+  flag fProgress;    // Are we doing a -p progressed chart?
+  flag fInterpret;   // Is -I interpretation switch in effect?
+  flag fHouse3D;     // -c3
+  flag fAspect3D;    // -A3
+  flag fAspectLat;   // -Ap
+  flag fParallel2;   // -AP
+  flag fDecan;       // -3
+  flag fFlip;        // -f
+  flag fGeodetic;    // -G
+  flag fVedic;       // -J
+  flag fNavamsa;     // -9
+  flag fEphemFiles;  // -b
+  flag fWriteFile;   // -o
+  flag fAnsiColor;   // -k
+  flag fGraphics;    // -X
+
+  // Main subflags
   flag fNoSwitches;
-  flag fLoopInit;    /* -Q0 */
-  flag fSeconds;     /* -b0 */
-  flag fSwissMosh;   /* -bs */
-  flag fPlacalcAst;  /* -ba */
-  flag fPlacalcPla;  /* -bp */
-  flag fMatrixPla;   /* -bm */
-  flag fMatrixStar;  /* -bU */
-  flag fEquator;     /* -sr */
-  flag fEquator2;    /* -sr0 */
-  flag fWritePos;    /* -o0 */
-  flag fAnsiChar;    /* -k0 */
-  flag fTextHTML;    /* -kh */
-  flag fSolarWhole;  /* -10 */
-
-  /* Rare flags */
-  flag fTruePos;     /* -YT */
-  flag fTopoPos;     /* -YV */
-  flag fBarycenter;  /* -Yh */
-  flag fSidereal2;   /* -Ys */
-  flag fTrueNode;    /* -Yn */
-  flag fEuroDate;    /* -Yd */
-  flag fEuroTime;    /* -Yt */
-  flag fEuroDist;    /* -Yv */
-  flag fRound;       /* -Yr */
-  flag fSmartCusp;   /* -YC */
-  flag fSmartSave;   /* -YO */
-  flag fClip80;      /* -Y8 */
-  flag fWriteOld;    /* -Yo */
-  flag fHouseAngle;  /* -Yc */
-  flag fPolarAsc;    /* -Yp */
-  flag fEclipse;     /* -Yu */
-  flag fObjRotWhole; /* -Y10 */
-  flag fIgnoreSign;  /* -YR0 */
-  flag fIgnoreDir;   /* -YR0 */
-  flag fIgnoreAuto;  /* -YRh */
-  flag fStarsList;   /* -YRU0 */
-  flag fStarMagDist; /* -YUb */
-  flag fStarMagAbs;  /* -YUb0 */
-  flag fNoWrite;     /* -0o */
-  flag fNoRead;      /* -0i */
-  flag fNoQuit;      /* -0q */
-  flag fNoGraphics;  /* -0X */
-  flag fNoExp;       /* -0~ */
-  flag fExpOff;      /* -~0 */
-
-  /* Value settings */
-  int   nAspectSort;  /* -a */
-  int   nEphemYears;  /* -Ey */
-  int   nEphemRate;   /* -E0 */
-  int   nEphemFactor; /* -E0 */
-  int   nArabic;      /* -P */
-  int   nRel;         /* What relationship chart is in effect, if any? */
-  int   nHouseSystem; /* -c */
-  int   nAsp;         /* -A */
-  int   objCenter;    /* -h */
-  int   nDwad;        /* -4 */
-  int   nStar;        /* -U */
-  real  rHarmonic;    /* Harmonic chart value passed to -x switch.     */
-  int   objOnAsc;     /* Planet value passed to -1 or -2 switch.       */
-  int   objRequire;   /* Required object passed to -RO switch.         */
-  int   dayDelta;     /* -+, -- */
-  int   nDegForm;     /* -s */
-  int   nProgress;    /* -p0 */
-  int   nDivision;    /* -d */
-  int   nScreenWidth; /* -I */
-  real  dstDef;       /* -z0 */
-  real  zonDef;       /* -z */
-  real  lonDef;       /* -zl */
-  real  latDef;       /* -zl */
-  real  elvDef;       /* -zv */
-  char *namDef;       /* -zj */
-  char *locDef;       /* -zj */
-  char *rgszPath[10]; /* -Yi */
-  char *szAstColor;   /* -YkE */
-  char *szStarsColor; /* -YkU */
-  char *szStarsList;  /* -YRU */
-
-  /* Value subsettings */
-  int   nWheelRows;      /* Number of rows per house to use for -w wheel. */
-  int   nAstroGraphStep; /* Latitude step rate passed to -L switch.       */
-  int   nArabicParts;    /* Arabic parts to include value passed to -P.   */
-  int   nAtlasList;      /* Number of rows to display value passed to -N. */
-  real  rZodiacOffset;   /* Position shifting value passed to -s switch.  */
-  real  rProgDay;        /* Progression day value passed to -pd switch.   */
-  real  rProgCusp;       /* Progression cusp ratio value passed to -pC.   */
-  int   nRatio1;         /* Chart ratio factors passed to -rc or -rm.     */
+  flag fLoopInit;    // -Q0
+  flag fSeconds;     // -b0
+  flag fSwissMosh;   // -bs
+  flag fPlacalcAst;  // -ba
+  flag fPlacalcPla;  // -bp
+  flag fMatrixPla;   // -bm
+  flag fMatrixStar;  // -bU
+  flag fEquator;     // -sr
+  flag fEquator2;    // -sr0
+  flag fWritePos;    // -o0
+  flag fWriteDef;    // -od
+  flag fAnsiChar;    // -k0
+  flag fTextHTML;    // -kh
+  flag fSolarWhole;  // -10
+
+  // Rare flags
+  flag fTruePos;      // -YT
+  flag fTopoPos;      // -YV
+  flag fBarycenter;   // -Yh
+  flag fMoonMove;     // -Ym
+  flag fSidereal2;    // -Ys
+  flag fTrueNode;     // -Yn
+  flag fNoNutation;   // -Yn0
+  flag fEuroDate;     // -Yd
+  flag fEuroTime;     // -Yt
+  flag fEuroDist;     // -Yv
+  flag fRound;        // -Yr
+  flag fSmartCusp;    // -YC
+  flag fSmartSave;    // -YO
+  flag fClip80;       // -Y8
+  flag fWriteOld;     // -Yo
+  flag fHouseAngle;   // -Yc
+  flag fPolarAsc;     // -Yp
+  flag fEclipse;      // -Yu
+  flag fObjRotWhole;  // -Y10
+  flag fIgnoreSign;   // -YR0
+  flag fIgnoreDir;    // -YR0
+  flag fIgnoreAuto;   // -YRh
+  flag fStarsList;    // -YRU0
+  flag fStarMagDist;  // -YUb
+  flag fStarMagAbs;   // -YUb0
+  flag fNoWrite;      // -0o
+  flag fNoRead;       // -0i
+  flag fNoQuit;       // -0q
+  flag fNoGraphics;   // -0X
+  flag fNoExp;        // -0~
+  flag fExpOff;       // -~0
+
+  // Value settings
+  int   nAspectSort;   // -a
+  int   nEphemYears;   // -Ey
+  int   nEphemRate;    // -E0
+  int   nEphemFactor;  // -E0
+  int   nArabic;       // -P
+  int   nRel;          // What relationship chart is in effect, if any?
+  int   nHouseSystem;  // -c
+  int   nAsp;          // -A
+  int   objCenter;     // -h
+  int   nDwad;         // -4
+  int   nStar;         // -U
+  real  rHarmonic;     // Harmonic chart value passed to -x switch.
+  int   objOnAsc;      // Planet value passed to -1 or -2 switch.
+  int   objRequire;    // Required object passed to -RO switch.
+  int   dayDelta;      // -+, --
+  int   nDegForm;      // -s
+  int   nProgress;     // -p0
+  int   nDivision;     // -d
+  int   nScreenWidth;  // -I
+  real  dstDef;        // -z0
+  real  zonDef;        // -z
+  real  lonDef;        // -zl
+  real  latDef;        // -zl
+  real  elvDef;        // -zv
+  char *namDef;        // -zj
+  char *locDef;        // -zj
+  char *rgszPath[10];  // -Yi
+  char *szAstColor;    // -YkE
+  char *szStarsColor;  // -YkU
+  char *szStarsList;   // -YRU
+
+  // Value subsettings
+  int   nWheelRows;       // Number of rows per house to use for -w wheel.
+  int   nAstroGraphStep;  // Latitude step rate passed to -L switch.
+  int   nArabicParts;     // Arabic parts to include value passed to -P.
+  int   nAtlasList;       // Number of rows to display value passed to -N.
+  real  rZodiacOffset;    // Position shifting value passed to -s switch.
+  real  rProgDay;         // Progression day value passed to -pd switch.
+  real  rProgCusp;        // Progression cusp ratio value passed to -pC.
+  int   nRatio1;          // Chart ratio factors passed to -rc or -rm.
   int   nRatio2;
-  int   nScrollRow;      /* -YQ */
-  int   cSequenceLine;   /* -Yq */
-  long  lTimeAddition;   /* -Yz */
-  int   objRot1;         /* -Y1 */
-  int   objRot2;         /* -Y1 */
-  int   nArabicNight;    /* -YP */
-  int   nBioday;         /* -Yb */
-  int   nSignDiv;        /* -YRd */
-  char *szExpAsplist;    /* -~a */
-  char *szExpEph;        /* -~E */
-  char *szExpDay;        /* -~d */
-  char *szExpTra;        /* -~t */
-  char *szExpInf;        /* -~j */
-  char *szExpObj;        /* -~O */
-  char *szExpHou;        /* -~C */
-  char *szExpAsp;        /* -~A */
-  char *szExpColObj;     /* -~kO */
-  char *szExpColAsp;     /* -~kA */
+  int   nScrollRow;       // -YQ
+  int   cSequenceLine;    // -Yq
+  long  lTimeAddition;    // -Yz
+  int   objRot1;          // -Y1
+  int   objRot2;          // -Y1
+  int   nArabicNight;     // -YP
+  int   nBioday;          // -Yb
+  int   nSignDiv;         // -YRd
+
+  // AstroExpression hooks
+  char *szExpConfig;      // -~g
+  char *szExpAspList;     // -~a
+  char *szExpAspSumm;     // -~a0
+  char *szExpMid;         // -~m
+  char *szExpMidAsp;      // -~ma
+  char *szExpCross;       // -~L
+  char *szExpEph;         // -~E
+  char *szExpDay;         // -~d
+  char *szExpTra;         // -~t
+  char *szExpInf;         // -~j
+  char *szExpPart;        // -~P
+  char *szExpObj;         // -~O
+  char *szExpHou;         // -~C
+  char *szExpAsp;         // -~A
+  char *szExpColObj;      // -~kO
+  char *szExpColAsp;      // -~kA
+  char *szExpSort;        // -~v
+  char *szExpProg;        // -~p
+  char *szExpProg0;       // -~p0
+  char *szExpCast1;       // -~q1
+  char *szExpCast2;       // -~q2
+  char *szExpDisp1;       // -~Q1
+  char *szExpDisp2;       // -~Q2
 } US;
 
 typedef struct _InternalSettings {
-  flag fHaveInfo;     /* Do we need to prompt user for chart info?         */
-  flag fDst;          /* Has Daylight Saving Time been autodetected?       */
-  flag fProgress;     /* Are we doing a chart involving progression?       */
-  flag fReturn;       /* Are we doing a transit chart for returns?         */
-  flag fMult;         /* Have we already printed at least one text chart?  */
-  flag fSeconds;      /* Do we print locations to nearest second?          */
-  flag fSzPersist;    /* Are parameter strings persistent when processing? */
-  flag fSzInteract;   /* Are we in middle of chart so some setting fixed?  */
-  flag fNoEphFile;    /* Have we already had a ephem file not found error? */
-  flag fSwissPathSet; /* Has the Swiss Ephemeris path been set yet?        */
-  char *szProgName;   /* The name and path of the executable running.      */
-  char *rgszLine[9];  /* The command lines to run before each -Yq chart.   */
-  char *szFileScreen; /* The file to send text output to as passed to -os. */
-  char *szFileOut;    /* The output chart filename string as passed to -o. */
-  char **rgszComment; /* Points to any comment strings after -o filename.  */
-  int cszComment;     /* The number of strings after -o that are comments. */
-  int cchCol;         /* The current column text charts are printing at.   */
-  int cchRow;         /* The current row text charts have scrolled to.     */
-  int nHTML;          /* HTML text output context mode for -kh.            */
-  int nHouseSystem;   /* Actual house system used to compute cusps for -c. */
-  int nWheelRows;     /* Actual number of rows per house to use for -w.    */
-  int cae;            /* Number of atlas entries of city locations loaded. */
-  int czcn;           /* Number of time zone change areas loaded.          */
-  int czce;           /* Total number of change entries in all zone areas. */
-  int crun;           /* Number of time zone Daylight rule categories.     */
-  int crue;           /* Total number of rule entries in all categories.   */
-  int cAlloc;         /* Number of memory allocations currently allocated. */
-  int cAllocTotal;    /* Total memory allocations allocated this session.  */
-  int cbAllocSize;    /* Total bytes in all memory allocations allocated.  */
-  real rSid;          /* Sidereal offset degrees to be added to locations. */
-  real JD;            /* Fractional Julian day for current chart.          */
-  real JDp;           /* Julian day that a progressed chart indicates.     */
-  real Tp;            /* Julian time used for progressed chart cusps.      */
-  real lonMC;         /* 0 longitude converted to equatorial coordinates.  */
-  real latMC;         /* 0 latitude converted to equatorial coordinates.   */
-  TRIE rgsTrieFun;    /* Trie tree of tokens for AstroExpression parsing.  */
-  AtlasEntry *rgae;   /* List of atlas entries for city coordinates.       */
-  ZoneChange *rgzc;   /* List of time zone change entries for zone areas.  */
-  RuleName *rgrun;    /* List of Daylight Saving change rule names.        */
-  RuleEntry *rgrue;   /* List of all Daylight Saving change rule entries.  */
-  FILE *fileIn;       /* The switch file currently being read from.        */
-  FILE *S;  /* File to write text to.   */
-  real T;   /* Julian time for chart.   */
-  real MC;  /* Midheaven at chart time. */
-  real Asc; /* Ascendant at chart time. */
-  real RA;  /* Right ascension at time. */
-  real OB;  /* Obliquity of ecliptic.   */
+  flag fHaveInfo;      // Do we need to prompt user for chart info?
+  flag fDst;           // Has Daylight Saving Time been autodetected?
+  flag fProgress;      // Are we doing a chart involving progression?
+  flag fReturn;        // Are we doing a transit chart for returns?
+  flag fMult;          // Have we already printed at least one text chart?
+  flag fSeconds;       // Do we print locations to nearest second?
+  flag fSzPersist;     // Are parameter strings persistent when processing?
+  flag fSzInteract;    // Are we in middle of chart so some setting fixed?
+  flag fNoEphFile;     // Have we already had a ephem file not found error?
+  flag fSwissPathSet;  // Has the Swiss Ephemeris path been set yet?
+  char *szProgName;    // The name and path of the executable running.
+  char *rgszLine[9];   // The command lines to run before each -Yq chart.
+  char *szFileScreen;  // The file to send text output to as passed to -os.
+  char *szFileOut;     // The output chart filename string as passed to -o.
+  char **rgszComment;  // Points to any comment strings after -o filename.
+  int nContext;        // Context of current or most recent chart cast.
+  int cszComment;      // The number of strings after -o that are comments.
+  int cchCol;          // The current column text charts are printing at.
+  int cchRow;          // The current row text charts have scrolled to.
+  int nHTML;           // HTML text output context mode for -kh.
+  int nHouseSystem;    // Actual house system used to compute cusps for -c.
+  int nWheelRows;      // Actual number of rows per house to use for -w.
+  int cae;             // Number of atlas entries of city locations loaded.
+  int czcn;            // Number of time zone change areas loaded.
+  int czce;            // Total number of change entries in all zone areas.
+  int crun;            // Number of time zone Daylight rule categories.
+  int crue;            // Total number of rule entries in all categories.
+  int cAlloc;          // Number of memory allocations currently allocated.
+  int cAllocTotal;     // Total memory allocations allocated this session.
+  int cbAllocSize;     // Total bytes in all memory allocations allocated.
+  real rOff;           // Offset between sidereal and tropical zodiacs.
+  real rSid;           // Sidereal offset degrees to be added to locations.
+  real JD;             // Fractional Julian day for current chart.
+  real JDp;            // Julian day that a progressed chart indicates.
+  real Tp;             // Julian time used for progressed chart cusps.
+  real lonMC;          // 0 longitude converted to equatorial coordinates.
+  real latMC;          // 0 latitude converted to equatorial coordinates.
+  TRIE rgsTrieFun;     // Trie tree of tokens for AstroExpression parsing.
+  AtlasEntry *rgae;    // List of atlas entries for city coordinates.
+  ZoneChange *rgzc;    // List of time zone change entries for zone areas.
+  RuleName *rgrun;     // List of Daylight Saving change rule names.
+  RuleEntry *rgrue;    // List of all Daylight Saving change rule entries.
+  real *rgzonCol;      // Cache of time zone offsets for each zone area.
+  FILE *fileIn;        // The switch file currently being read from.
+  FILE *S;             // File to write text to.
+  real T;              // Julian time for chart.
+  real MC;             // Midheaven at chart time.
+  real Asc;            // Ascendant at chart time.
+  real RA;             // Right ascension at time.
+  real OB;             // Obliquity of ecliptic.
 } IS;
 
 typedef struct _ChartInfo {
@@ -1652,134 +1695,137 @@ typedef struct _ExtraStar {
 
 #ifdef GRAPH
 typedef struct _GraphicsSettings {
-  int ft;           /* File type being created (-Xb, -Xp, -XM, or -X3). */
-  flag fPSComplete; /* Is PostScript file not encapsulated (-Xp0 set).  */
-  flag fColor;      /* Are we drawing a color chart (-Xm not set).      */
-  flag fInverse;    /* Are we drawing in reverse video (-Xr set).       */
-  flag fRoot;       /* Are we drawing on the X11 background (-XB set).  */
-  flag fText;       /* Are we printing chart info on chart (-XT set).   */
-  flag fFont;       /* Are we simulating fonts in charts (-XM0 set).    */
-  flag fAlt;        /* Are we drawing in alternate mode (-Xi set).      */
-  flag fBorder;     /* Are we drawing borders around charts (-Xu set).  */
-  flag fLabel;      /* Are we labeling objects in charts (-Xl not set). */
-  flag fLabelAsp;   /* Are we drawing aspect glyphs on lines (-XA set). */
-  flag fLabelCity;  /* Are we plotting cities on maps (-XL set).        */
-  flag fJetTrail;   /* Are we not clearing screen on updates (-Xj set). */
-  flag fConstel;    /* Are we drawing maps as constellations (-XF set). */
-  flag fSouth;      /* Are we focus on south hemisphere (-XX0/XP0 set). */
-  flag fMollewide;  /* Are we drawing maps scaled correctly (-XW0 set). */
-  flag fEquator;    /* Are we showing equator on maps/globes (-Xe set). */
-  flag fEcliptic;   /* Are we drawing oriented to ecliptic (-YXe set).  */
-  flag fAllStar;    /* Are we drawing all sefstars.txt stars (-XU set). */
-  flag fHouseExtra; /* Are we showing additional house info (-XC set).  */
-  flag fPrintMap;   /* Are we printing globe names on draw (-XPv set).  */
-  flag fKeepSquare; /* Are we preserving chart aspect ratio (-XQ set).  */
-  flag fAnimMap;    /* Are we animating map instead of time (-XN set).  */
-  int xWin;         /* Current hor. size of graphic chart (-Xw). */
-  int yWin;         /* Current ver. size of graphic chart (-Xw). */
-  int nAnim;        /* Current animation mode jump rate (-Xn).   */
-  int nScale;       /* Current character scale factor (-Xs).     */
-  int nScaleText;   /* Current graphics text scale factor (-XS). */
-  int nAllStar;     /* Extra star size and labelling (-XU).      */
-  int nAstLo;       /* Extra asteroid min ephemeris file (-XE).  */
-  int nAstHi;       /* Extra asteroid max ephemeris file (-XE).  */
-  int nAstLabel;    /* How extra asteroids get labeled (-XE).    */
-  int nLabelCity;   /* How city plottings get colored (-XL).     */
-  int objLeft;      /* Current object to place on Asc (-X1).     */
-  real rRot;        /* Current rotation degree of globe.         */
-  real rTilt;       /* Current vertical tilt of rotating globe.  */
-  char chBmpMode;   /* Current bitmap file type (-Xb).           */
-  int nOrient;      /* PostScript paper orientation indicator.   */
-  real xInch;       /* PostScript horizontal paper size inches.  */
-  real yInch;       /* PostScript vertical paper size inches.    */
-  char *szDisplay;  /* Current X11 display name (-Xd).           */
-  int nDecaType;    /* Type of wheel chart decoration (-YXv).    */
-  int nDecaSize;    /* Size of wheel chart decoration (-YXv).    */
-  int nDecaLine;    /* Lines in wheel chart decoration (-YXv).   */
-  int nGridCell;    /* Number of cells in -g grids (-YXg).       */
-  real rspace;      /* Radius in AU of -S orbit chart (-YXS).    */
-  int cspace;       /* Number of -S orbit trails allowed (-YXj). */
-  int zspace;       /* Height diff of each orbit trail (-YXj0).  */
-  int nRayWidth;    /* Column width in -7 esoteric chart (-YX7). */
-  int nGlyphs;      /* Settings for what gylphs to use (-YXG).   */
-  flag fColorSign;  /* More color for sign boundaries. (-YXk).   */
-  flag fColorHouse; /* More color for house boundaries. (-YXk0). */
-  int nDashMax;     /* Maximum dash allowed for lines (-YXA).    */
-  char *szStarsLin; /* Names of extra stars for linking (-YXU).  */
-  char *szStarsLnk; /* Indexes of star pairs to link up (-YXU).  */
+  int ft;            // File type being created (-Xb, -Xp, -XM, or -X3).
+  flag fPSComplete;  // Is PostScript file not encapsulated (-Xp0 set).
+  flag fColor;       // Are we drawing a color chart (-Xm not set).
+  flag fInverse;     // Are we drawing in reverse video (-Xr set).
+  flag fRoot;        // Are we drawing on the X11 background (-XB set).
+  flag fText;        // Are we printing chart info on chart (-XT set).
+  int nFont;         // Are we simulating fonts in charts (-YXf set).
+  flag fAlt;         // Are we drawing in alternate mode (-Xi set).
+  flag fBorder;      // Are we drawing borders around charts (-Xu set).
+  flag fLabel;       // Are we labeling objects in charts (-Xl not set).
+  flag fLabelAsp;    // Are we drawing aspect glyphs on lines (-XA set).
+  flag fLabelCity;   // Are we plotting cities on maps (-XL set).
+  flag fJetTrail;    // Are we not clearing screen on updates (-Xj set).
+  flag fConstel;     // Are we drawing maps as constellations (-XF set).
+  flag fSouth;       // Are we focus on south hemisphere (-XX0/XP0 set).
+  flag fMollewide;   // Are we drawing maps scaled correctly (-XW0 set).
+  flag fEquator;     // Are we showing equator on maps/globes (-Xe set).
+  flag fEcliptic;    // Are we drawing oriented to ecliptic (-YXe set).
+  flag fAllStar;     // Are we drawing all sefstars.txt stars (-XU set).
+  flag fHouseExtra;  // Are we showing additional house info (-XC set).
+  flag fPrintMap;    // Are we printing globe names on draw (-XPv set).
+  flag fKeepSquare;  // Are we preserving chart aspect ratio (-XQ set).
+  flag fAnimMap;     // Are we animating map instead of time (-XN set).
+  int xWin;          // Current hor. size of graphic chart (-Xw).
+  int yWin;          // Current ver. size of graphic chart (-Xw).
+  int nAnim;         // Current animation mode jump rate (-Xn).
+  int nScale;        // Current character scale factor (-Xs).
+  int nScaleText;    // Current graphics text scale factor (-XS).
+  int nAllStar;      // Extra star size and labelling (-XU).
+  int nAstLo;        // Extra asteroid min ephemeris file (-XE).
+  int nAstHi;        // Extra asteroid max ephemeris file (-XE).
+  int nAstLabel;     // How extra asteroids get labeled (-XE).
+  int nLabelCity;    // How city plottings get colored (-XL).
+  int objLeft;       // Current object to place on Asc (-X1).
+  real rRot;         // Current rotation degree of globe.
+  real rTilt;        // Current vertical tilt of rotating globe.
+  int objTrack;      // Comment me
+  char chBmpMode;    // Current bitmap file type (-Xb).
+  int nOrient;       // PostScript paper orientation indicator.
+  real xInch;        // PostScript horizontal paper size inches.
+  real yInch;        // PostScript vertical paper size inches.
+  char *szDisplay;   // Current X11 display name (-Xd).
+  int nDecaType;     // Type of wheel chart decoration (-YXv).
+  int nDecaSize;     // Size of wheel chart decoration (-YXv).
+  int nDecaLine;     // Lines in wheel chart decoration (-YXv).
+  int nGridCell;     // Number of cells in -g grids (-YXg).
+  real rspace;       // Radius in AU of -S orbit chart (-YXS).
+  int cspace;        // Number of -S orbit trails allowed (-YXj).
+  int zspace;        // Height diff of each orbit trail (-YXj0).
+  int nRayWidth;     // Column width in -7 esoteric chart (-YX7).
+  int nGlyphs;       // Settings for what gylphs to use (-YXG).
+  flag fColorSign;   // More color for sign boundaries. (-YXk).
+  flag fColorHouse;  // More color for house boundaries. (-YXk0).
+  int nDashMax;      // Maximum dash allowed for lines (-YXA).
+  char *szStarsLin;  // Names of extra stars for linking (-YXU).
+  char *szStarsLnk;  // Indexes of star pairs to link up (-YXU).
 } GS;
 
 typedef struct _GraphicsInternal {
-  int nMode;            /* Current type of chart to create.           */
-  flag fMono;           /* Is this a monochrome display.              */
-  int kiCur;            /* Current color drawing with.                */
-  pbyte bm;             /* Pointer to allocated memory.               */
-  int cbBmpRow;         /* Horizontal size of bitmap array in memory. */
-  char *szFileOut;      /* Current name of bitmap file (-Xo).         */
-  FILE *file;           /* Actual file handle writing graphics to.    */
-  real rAsc;            /* Degree to be at left edge in wheel charts. */
-  flag fFile;           /* Are we making a graphics file.             */
-  flag fDidSphere;      /* Has a chart sphere been drawn once yet?    */
-  int nScale;           /* Scale ratio, i.e. percentage / 100.        */
-  int nScaleText;       /* Text scale ratio, i.e. percentage / 100.   */
-  int nScaleT;          /* Relative scale to draw chart text at.      */
-  int nGridCell;        /* Actual number of cells in -g grids.        */
-  int nPenWid;          /* Pen width to use when creating metafiles.  */
-  KI kiOn;              /* Foreground color. */
-  KI kiOff;             /* Background color. */
-  KI kiLite;            /* Hilight color.    */
-  KI kiGray;            /* A "dim" color.    */
-  int xOffset;          /* Viewport origin.                           */
+  int nMode;          // Current type of chart to create.
+  flag fMono;         // Is this a monochrome display.
+  int kiCur;          // Current color drawing with.
+  pbyte bm;           // Pointer to allocated memory.
+  int cbBmpRow;       // Horizontal size of bitmap array in memory.
+  char *szFileOut;    // Current name of bitmap file (-Xo).
+  FILE *file;         // Actual file handle writing graphics to.
+  real rAsc;          // Degree to be at left edge in wheel charts.
+  flag fFile;         // Are we making a graphics file.
+  flag fDidSphere;    // Has a chart sphere been drawn once yet?
+  int nScale;         // Scale ratio, e.g. percentage / 100.
+  int nScaleText;     // Text scale ratio, i.e. percentage / 100.
+  int nScaleT;        // Internal units per pixel (1 for screen).
+  int nScaleTextT;    // Internal text scale, i.e. nScaleText * nScaleT.
+  int nGridCell;      // Actual number of cells in -g grids.
+  int nPenWid;        // Pen width to use when creating metafiles.
+  int nFontPrev;      // System fonts to restore when turning fonts on.
+  KI kiOn;            // Foreground color.
+  KI kiOff;           // Background color.
+  KI kiLite;          // Hilight color.
+  KI kiGray;          // A "dim" color.
+  int xOffset;        // Viewport origin.
   int yOffset;
-  int xTurtle;          /* Current coordinates of drawing pen.        */
+  int xTurtle;        // Current coordinates of drawing pen.
   int yTurtle;
-  int xPen;             /* Cached coordinates where last line ended.  */
+  int xPen;           // Cached coordinates where last line ended.
   int yPen;
-  PT3R *rgspace;        /* List of orbit trail coordinates (-S -X).   */
-  int ispace;           /* Index of most recent coordinate (-S -X).   */
-  int cspace;           /* Coordinates within table so far (-S -X).   */
-  int *rgzCalendar;     /* Aspect coordinates in calendar (-K -X).    */
+  PT3R *rgspace;      // List of orbit trail coordinates (-S -X).
+  int ispace;         // Index of most recent coordinate (-S -X).
+  int cspace;         // Coordinates within table so far (-S -X).
+  int *rgzCalendar;   // Aspect coordinates in calendar (-K -X).
 #ifdef SWISS
-  ES *rges;             /* List of extra star coordinates (-YXU).     */
-  int cStarsLin;        /* Count of extra star coordinates (-YXU).    */
+  ES *rges;           // List of extra star coordinates (-YXU).
+  int cStarsLin;      // Count of extra star coordinates (-YXU).
 #endif
 #ifdef X11
-  Display *disp;        /* The opened X11 display (-Xd). */
+  Display *disp;      // The opened X11 display (-Xd).
   GC gc, pmgc;
   Pixmap pmap, icon;
   Window wind, root;
   int screen;
-  int depth;            /* Number of active color bits.  */
+  int depth;          // Number of active color bits.
 #endif
-#ifdef PS               /* Variables used by the PostScript generator. */
-  flag fEps;            /* Are we doing Encapsulated PostScript.    */
-  int cStroke;          /* Number of items drawn without flushing.  */
-  flag fLineCap;        /* Are line ends rounded instead of square. */
-  int nDash;            /* How much long are dashes in lines drawn. */
-  int nFont;            /* What system font are we drawing text in. */
-  real rLineWid;        /* How wide are lines, et al, drawn with.   */
+#ifdef PS             // Variables used by the PostScript generator.
+  flag fEps;          // Are we doing Encapsulated PostScript.
+  int cStroke;        // Number of items drawn without flushing.
+  flag fLineCap;      // Are line ends rounded instead of square.
+  int nDash;          // How much long are dashes in lines drawn.
+  int nFontPS;        // What system font are we drawing text in.
+  real rLineWid;      // How wide are lines, et al, drawn with.
 #endif
-#ifdef META             /* Variables used by the metafile generator.  */
-  word *pwMetaCur;      /* Current mem position when making metafile. */
-  word *pwPoly;         /* Position for start of current polyline.    */
+#ifdef META           // Variables used by the metafile generator.
+  word *pwMetaCur;    // Current mem position when making metafile.
+  word *pwPoly;       // Position for start of current polyline.
   long cbMeta;
-  KI kiLineAct;         /* Desired and actual line color. */
+  KI kiLineAct;       // Desired and actual line color.
   KI kiLineDes;
-  KI kiFillAct;         /* Desired and actual fill color. */
+  KI kiFillAct;       // Desired and actual fill color.
   KI kiFillDes;
-  int nFontAct;         /* Desired and actual text font.  */
+  int nFontAct;       // Desired and actual text font.
   int nFontDes;
-  KI kiTextAct;         /* Desired and actual text color. */
+  KI kiTextAct;       // Desired and actual text color.
   KI kiTextDes;
-  int nAlignAct;        /* Desired/actual text alignment. */
+  int nAlignAct;      // Desired/actual text alignment.
   int nAlignDes;
 #endif
-#ifdef WIRE             /* Variables used by the wireframe generator. */
-  word *pwWireCur;      /* Current mem position when doing wireframe. */
+#ifdef WIRE           // Variables used by the wireframe generator.
+  word *pwWireCur;    // Current memory position when doing wireframe.
   long cbWire;
-  int cWire;            /* Number of lines in wireframe file.         */
-  KI kiInFile;          /* Actual line color currently in file.       */
-  int zDefault;         /* Default elevation for 2D drawing.          */
+  int cWire;          // Number of lines in wireframe file.
+  KI kiInFile;        // Actual line color currently in file.
+  int zDefault;       // Default elevation for 2D drawing.
 #endif
 #ifdef MACG
   WindowPtr wpAst;
@@ -1830,59 +1876,60 @@ typedef struct _OrbitalElements {
 #define szFileAutoCore "astrolog.bmp"
 
 typedef struct _WindowInternal {
-  HINSTANCE hinst; /* Instance of the Astrolog window class.    */
-  HWND hwndMain;   /* The outer created frame window.           */
-  HWND hwnd;       /* The current window being dealt with.      */
-  HMENU hmenu;     /* The Astrolog main menu bar.               */
-  HACCEL haccel;   /* Keyboard accelerator or shortcut table.   */
-  HDC hdc;         /* The current DC bring drawn upon.          */
-  HDC hdcPrint;    /* The current DC being printed upon.        */
-  HWND hwndAbort;  /* Window of the printing abort dialog.      */
-  HPEN hpen;       /* Pen with the current line color.          */
-  HBRUSH hbrush;   /* Fill if any with the current color.       */
-  HFONT hfont;     /* Font of current text size being printed.  */
-  HANDLE hMutex;   /* To ensure output file isn't already open. */
-  size_t lTimer;   /* Identifier for the animation timer.       */
-  short xScroll;   /* Horizontal & vertical scrollbar position. */
+  HINSTANCE hinst;   // Instance of the Astrolog window class.
+  HWND hwndMain;     // The outer created frame window.
+  HWND hwnd;         // The current window being dealt with.
+  HMENU hmenu;       // The Astrolog main menu bar.
+  HACCEL haccel;     // Keyboard accelerator or shortcut table.
+  HDC hdc;           // The current DC bring drawn upon.
+  HDC hdcPrint;      // The current DC being printed upon.
+  HWND hwndAbort;    // Window of the printing abort dialog.
+  HPEN hpen;         // Pen with the current line color.
+  HBRUSH hbrush;     // Fill if any with the current color.
+  HFONT hfont;       // Font of current text size being printed.
+  HANDLE hMutex;     // To ensure output file isn't already open.
+  size_t lTimer;     // Identifier for the animation timer.
+  short xScroll;     // Horizontal & vertical scrollbar position.
   short yScroll;
-  short xClient;   /* Horizontal & vertical window size. */
+  short xClient;     // Horizontal & vertical window size.
   short yClient;
-  int xChar;       /* Horizontal & vertical font character size. */
+  int xChar;         // Horizontal & vertical font character size.
   int yChar;
-  int xMouse;      /* Horizontal & vertical mouse position. */
+  int xMouse;        // Horizontal & vertical mouse position.
   int yMouse;
-  WORD wCmd;       /* The currently invoked menu command.        */
-  LPARAM lParamRC; /* Coordinates where right click originated.  */
-  int nMode;       /* New chart type to switch to if any.        */
-  int cmdCur;      /* Menu command for current chart type.       */
-  flag fMenu;      /* Do we need to repaint the menu bar?        */
-  flag fMenuAll;   /* Do we need to redetermine all menu checks? */
-  flag fRedraw;    /* Do we need to redraw the screen?           */
-  flag fCast;      /* Do we need to recast the chart positions?  */
-  flag fAbort;     /* Did the user cancel printing in progress?  */
-  flag fMoved;     /* Has mouse been dragged since down click?   */
-  int nDlgChart;   /* Which chart to set in Open or Info dialog. */
-  flag fWindowFull;/* Is the window in full screen mode?         */
-  RECT rcFull;     /* Former window coordinates if full screen.  */
-  flag fSaverExt;  /* Is executable .scr screen saver extension? */
-  flag fSaverCfg;  /* Is screen saver in configuration mode?     */
-
-  /* Window user settings. */
-  flag fPause;        /* Is animation paused?                   */
-  flag fBuffer;       /* Are we drawing updates off screen?     */
-  flag fHourglass;    /* Bring up hourglass cursor on redraws?  */
-  flag fChartWindow;  /* Does chart change cause window resize? */
-  flag fWindowChart;  /* Does window resize cause chart change? */
-  flag fNoUpdate;     /* Do we not automatically update screen? */
-  flag fNoPopup;      /* Do we not display warning messages?    */
-  flag fSaverRun;     /* Do we run Astrolog as a screen saver?  */
-  flag fAutoSave;     /* Are we saving chart after win draw?    */
-  flag fAutoSaveNum;  /* Autosave charts are incremental files? */
-  flag fAutoSaveWire; /* Autosave wireframe instead of bitmap?  */
-  int nAutoSaveNum;   /* Number of incremental bitmap save.     */
-  KI kiPen;           /* The current pen scribble color.        */
-  int nDir;           /* Animation step factor and direction.   */
-  UINT nTimerDelay;   /* Milliseconds between animation draws.  */
+  WORD wCmd;         // The currently invoked menu command.
+  LPARAM lParamRC;   // Coordinates where right click originated.
+  int nMode;         // New chart type to switch to if any.
+  int cmdCur;        // Menu command for current chart type.
+  flag fMenu;        // Do we need to repaint the menu bar?
+  flag fMenuAll;     // Do we need to redetermine all menu checks?
+  flag fRedraw;      // Do we need to redraw the screen?
+  flag fCast;        // Do we need to recast the chart positions?
+  flag fAbort;       // Did the user cancel printing in progress?
+  flag fMoved;       // Has mouse been dragged since down click?
+  flag fSkipSystem;  // If should suppress the next system command.
+  int nDlgChart;     // Which chart to set in Open or Info dialog.
+  flag fWindowFull;  // Is the window in full screen mode?
+  RECT rcFull;       // Former window coordinates if full screen.
+  flag fSaverExt;    // Is executable .scr screen saver extension?
+  flag fSaverCfg;    // Is screen saver in configuration mode?
+
+  // Window user settings.
+  flag fPause;         // Is animation paused?
+  flag fBuffer;        // Are we drawing updates off screen?
+  flag fHourglass;     // Bring up hourglass cursor on redraws?
+  flag fChartWindow;   // Does chart change cause window resize?
+  flag fWindowChart;   // Does window resize cause chart change?
+  flag fNoUpdate;      // Do we not automatically update screen?
+  flag fNoPopup;       // Do we not display warning messages?
+  flag fSaverRun;      // Do we run Astrolog as a screen saver?
+  flag fAutoSave;      // Are we saving chart after win draw?
+  flag fAutoSaveNum;   // Autosave charts are incremental files?
+  flag fAutoSaveWire;  // Autosave wireframe instead of bitmap?
+  int nAutoSaveNum;    // Number of incremental bitmap save.
+  KI kiPen;            // The current pen scribble color.
+  int nDir;            // Animation step factor and direction.
+  UINT nTimerDelay;    // Milliseconds between animation draws.
 } WI;
 #endif
 
@@ -1898,7 +1945,12 @@ typedef struct _WindowInternal {
   short yClient;
   flag fDoRedraw;
   flag fDoResize;
+  flag fDoCast;
   flag fWndclass;
+  int xMouse;       // Horizontal & vertical mouse position.
+  int yMouse;
+  LPARAM lParamRC;  // Coordinates where right click originated.
+  KI kiPen;         // The current pen scribble color.
 } WI;
 #endif
 
diff --git a/astrolog.htm b/astrolog.htm
index 4f82379..87d2110 100644
--- a/astrolog.htm
+++ b/astrolog.htm
@@ -2,7 +2,7 @@
 
 <head>
 <meta http-equiv=Content-Type content="text/html; charset=windows-1252">
-<title>Astrolog 7.00 Documentation</title>
+<title>Astrolog 7.10 Documentation</title>
 
 <style>
 <!--
@@ -339,11 +339,11 @@
 
 <p class=FA>&nbsp;</p>
 
-<p class=FA>                         **  VERSION 7.00  **</p>
+<p class=FA>                         **  VERSION 7.10  **</p>
 
 <p class=FA>&nbsp;</p>
 
-<p class=A>Documentation for Astrolog version 7.00 (June 2020):</p>
+<p class=A>Documentation for Astrolog version 7.10 (October 2020):</p>
 
 <p class=A>This file contains a complete list of all the features available in
 Astrolog, and documentation on how to use each option. The file is divided into
@@ -398,17 +398,17 @@
 
 </div>
 
-<p class=A>Astrolog 7.00 is a many featured and customizable astrology chart
+<p class=A>Astrolog 7.10 is a many featured and customizable astrology chart
 calculation program for Windows, Unix, Macintosh, and other platforms. It is
 100% freeware and requires no registration fee. :) The complete source code is
 available. Astrolog features: wheels, aspects, midpoints, relationship charts,
-transits, progressions, eclipses, interpretations, astrocartography, local horizon,
-constellations, planet orbits, dispositors, influence charts, Esoteric Astrology,
-biorhythms, different zodiacs, central planets, 22 house systems, 3D houses, city
-and time change atlas, 10800 year ephemeris, asteroids, Uranians, fixed stars,
-Arabic parts, script files and macros, interactive graphics, smooth animation
-of charts, graphic files in PostScript, Windows metafile, and bitmap formats,
-and more!</p>
+transits, progressions, eclipses, interpretations, astrocartography, local
+horizon, constellations, planet orbits, dispositors, influence charts, Esoteric
+Astrology, biorhythms, different zodiacs, central planets, 22 house systems, 3D
+houses, city and time change atlas, 10800 year ephemeris, asteroids, Uranians,
+fixed stars, Arabic parts, script files and macros, interactive graphics,
+smooth animation of charts, graphic files in PostScript, Windows metafile, and
+bitmap formats, and more!</p>
 
 <p class=A>Astrolog is relatively unique in astrology software for the
 following reasons:</p>
@@ -459,6 +459,8 @@
 <p class=N>Option to display any number of additional asteroids and minor
 bodies.</p>
 
+<p class=N>Option to display planetary moons.</p>
+
 <p class=N>Option to use any or all of the accurate 10800 year Swiss Ephemeris.</p>
 
 <p class=Section2>Computation features:</p>
@@ -600,6 +602,8 @@
 
 <p class=N>Autodetect whether Daylight Time is in effect for current moment now.</p>
 
+<p class=N>Graphic atlas to map cities within an area.</p>
+
 <p class=Section2>Interpretation features:</p>
 
 <p class=N>Influence charts sorting planets and signs by power.</p>
@@ -631,7 +635,7 @@
 <p class=N>Graphic local horizon, polar horizon, Gauquelin wheel, and orbit
 charts.</p>
 
-<p class=N>Graphic ephemeris tracking chart.</p>
+<p class=N>Graphic ephemeris chart plotting planet positions over time.</p>
 
 <p class=N>Graphic Esoteric Astrology Ray table.</p>
 
@@ -643,6 +647,8 @@
 
 <p class=N>Draw lines between stars to depict constellations.</p>
 
+<p class=N>Graphic telescope chart to zoom in on an area of sky.</p>
+
 <p class=N>Smoothly animate charts through time at varying rates.</p>
 
 <p class=N>Continuously update chart to current moment now.</p>
@@ -715,6 +721,8 @@
 
 <p class=N>Export text charts in HTML format.</p>
 
+<p class=N>Support five different fonts for signs, planets, and aspects.</p>
+
 <p class=N>Paging for when text charts fill more than a screen.</p>
 
 <p class=N>Access environment variables.</p>
@@ -736,7 +744,7 @@
 
 <p class=N>&nbsp;</p>
 
-<p class=N>Astrolog (version 7.00) command switches:</p>
+<p class=N>Astrolog (version 7.10) command switches:</p>
 
 <p class=N><span class=S> -H:</span> Display this help list.</p>
 
@@ -787,8 +795,8 @@
 
 <p class=N>Switches which determine the type of chart to display:</p>
 
-<p class=N><span class=S> -v:</span> Display list of object positions (chosen
-by default).</p>
+<p class=N><span class=S> -v:</span> Display list of object positions (chosen by
+default).</p>
 
 <p class=N><span class=S> -v0:</span> Like -v but express velocities relative
 to average speed.</p>
@@ -931,8 +939,8 @@
 <p class=N><span class=S> -t &lt;month&gt; &lt;year&gt;:</span> Compute all
 transits to natal planets in month.</p>
 
-<p class=N><span class=S> -tp &lt;month&gt; &lt;year&gt;:</span> Compute progressions
-to natal in month for chart.</p>
+<p class=N><span class=S> -tp &lt;month&gt; &lt;year&gt;:</span> Compute
+progressions to natal in month for chart.</p>
 
 <p class=N><span class=S> -tr &lt;month&gt; &lt;year&gt;:</span> Compute all
 returns in month for chart.</p>
@@ -1069,6 +1077,9 @@
 <p class=N><span class=S> -o0 &lt;file&gt; [..]:</span> Like -o but output
 planet/house positions.</p>
 
+<p class=N><span class=S> -od &lt;file&gt;:</span> Output program's current
+settings to switch file.</p>
+
 <p class=N><span class=S> -os &lt;file&gt;, &gt; &lt;file&gt;:</span> Redirect
 output of text charts to file.</p>
 
@@ -1118,6 +1129,9 @@
 <p class=N><span class=S> -Ap:</span> Orb limits apply to latitude as well as
 zodiac position.</p>
 
+<p class=N><span class=S> -AP:</span> Parallel aspects based on ecliptic not
+equatorial positions.</p>
+
 <p class=N><span class=S> -Ao &lt;aspect&gt; &lt;orb&gt;:</span> Specify
 maximum orb for an aspect.</p>
 
@@ -1233,8 +1247,8 @@
 <p class=N><span class=S> -Fm &lt;objnum&gt; &lt;obj1&gt; &lt;obj2&gt;:</span>
 Force object's position to midpoint.</p>
 
-<p class=N><span class=S> -+ [&lt;days&gt;]:</span> Cast chart for specified
-num of days in the future.</p>
+<p class=N><span class=S> -+ [&lt;days&gt;]:</span> Cast chart for specified num
+of days in the future.</p>
 
 <p class=N><span class=S> -- [&lt;days&gt;]:</span> Cast chart for specified
 num of days in the past.</p>
@@ -1325,8 +1339,8 @@
 <p class=N><span class=S> -Xm:</span> Create monochrome graphic instead of one
 in color.</p>
 
-<p class=N><span class=S> -Xr:</span> Create chart graphic in reversed colors (white
-background).</p>
+<p class=N><span class=S> -Xr:</span> Create chart graphic in reversed colors
+(white background).</p>
 
 <p class=N><span class=S> -Xw &lt;hor&gt; [&lt;ver&gt;], -ge[..]:</span> Change
 the size of chart graphic.</p>
@@ -1375,6 +1389,9 @@
 <p class=N><span class=S> -XL:</span> Plot city locations from atlas on world
 map.</p>
 
+<p class=N><span class=S> -XL[1-5]:</span> Like _XL but set how to color cities
+(when -XA is on).</p>
+
 <p class=N><span class=S> -XC:</span> Draw house boundaries or alternate info
 in certain charts.</p>
 
@@ -1401,6 +1418,9 @@
 <p class=N><span class=S> -XP[0] [&lt;degrees&gt;]:</span> Like -XG but create
 globe from polar projection.</p>
 
+<p class=N><span class=S> -XZ:</span> Display telescope chart zoomed in on part
+of sky.</p>
+
 <p class=N><span class=S> -XF:</span> Display maps as constellations on the
 celestial sphere.</p>
 
@@ -1438,6 +1458,9 @@
 <p class=N><span class=S> -Wt:</span> Don't display warning and error popup
 messages.</p>
 
+<p class=N><span class=S> -Ww &lt;hor&gt; &lt;ver&gt;:</span> Set upper left
+coordinates of window.</p>
+
 <p class=N><span class=S> -WB &lt;0-24&gt; &lt;0-24&gt;:</span> Set window
 scrollbar positions.</p>
 
@@ -1473,7 +1496,7 @@
 
 <p class=N>&nbsp;</p>
 
-<p class=N>Astrolog (version 7.00) obscure command switches:</p>
+<p class=N>Astrolog (version 7.10) obscure command switches:</p>
 
 <p class=N><span class=S> -Y:</span> Display this help list.</p>
 
@@ -1483,8 +1506,11 @@
 <p class=N><span class=S> -YV:</span> Compute topocentric positions instead of
 from center of body.</p>
 
-<p class=N><span class=S> -Yh:</span> Compute location of solar system barycenter
-instead of Sun.</p>
+<p class=N><span class=S> -Yh:</span> Compute location of solar system
+barycenter instead of Sun.</p>
+
+<p class=N><span class=S> -Ym:</span> Position planetary moons around current
+central object.</p>
 
 <p class=N><span class=S> -Ys:</span> Sidereal zodiac positions are in plane of
 solar system.</p>
@@ -1492,6 +1518,9 @@
 <p class=N><span class=S> -Yn:</span> Compute location of true instead of mean
 node.</p>
 
+<p class=N><span class=S> -Yn0:</span> Don't consider nutation in tropical
+zodiac positions.</p>
+
 <p class=N><span class=S> -Yu:</span> Display eclipse and occultation
 information in charts.</p>
 
@@ -1555,6 +1584,9 @@
 <p class=N><span class=S> -Yeb &lt;obj&gt; &lt;index&gt;:</span> Change orbit
 of Uranian to external ephemeris.</p>
 
+<p class=N><span class=S> -Yem &lt;obj&gt; &lt;index&gt;:</span> Change orbit
+of Uranian to planet moon ephemeris.</p>
+
 <p class=N><span class=S> -YeO &lt;obj1&gt; &lt;obj2&gt;:</span> Change orbit
 of Uranian to internal planet.</p>
 
@@ -1570,8 +1602,8 @@
 <p class=N><span class=S> -Ye[..]p &lt;obj&gt; &lt;index&gt;:</span> Change
 Uranian to perihelion of object.</p>
 
-<p class=N><span class=S> -Ye[..]HSBNTV &lt;obj&gt; &lt;index&gt;:</span>
-Toggle heliocentric, sidereal zodiac, barycentric, true node, true position, or
+<p class=N><span class=S> -Ye[..]HSBNTV &lt;obj&gt; &lt;index&gt;:</span> Toggle
+heliocentric, sidereal zodiac, barycentric, true node, true position, or
 topocentric for object.</p>
 
 <p class=N><span class=S> -YE &lt;obj&gt; &lt;semi-major axis&gt;
@@ -1633,8 +1665,8 @@
 <p class=N><span class=S> -YjC &lt;cusp1&gt; &lt;cusp2&gt;
 &lt;inf1&gt;..&lt;inf2&gt;:</span> Set influences for house cusps.</p>
 
-<p class=N><span class=S> -YjA &lt;asp1&gt; &lt;asp2&gt;
-&lt;inf1&gt;..&lt;inf2&gt;:</span> Set influences for aspect range.</p>
+<p class=N><span class=S> -YjA &lt;asp1&gt; &lt;asp2&gt; &lt;inf1&gt;..&lt;inf2&gt;:</span>
+Set influences for aspect range.</p>
 
 <p class=N><span class=S> -YjT &lt;obj1&gt; &lt;obj2&gt;
 &lt;inf1&gt;..&lt;inf2&gt;:</span> Set transit influences for range.</p>
@@ -1710,6 +1742,10 @@
 <p class=N><span class=S> -YD &lt;obj&gt; &lt;name&gt;:</span> Customize
 display name of object.</p>
 
+<p class=N>&nbsp;</p>
+
+<p class=N>Switches to access obscure graphics options:</p>
+
 <p class=N><span class=S> -YXG &lt;0-2&gt;&lt;0-2&gt;&lt;0-3&gt;&lt;0-2&gt;:</span>
 Select among different graphic glyphs for Capricorn, Uranus, Pluto, and Lilith.</p>
 
@@ -1754,8 +1790,8 @@
 <p class=N><span class=S> -YXU &lt;starlist&gt; &lt;linklist&gt;:</span> Define
 lines between extra stars.</p>
 
-<p class=N><span class=S> -YXf &lt;val&gt;:</span> Set usage of actual system
-fonts in graphic charts.</p>
+<p class=N><span class=S> -YXf &lt;0-4&gt;&lt;0-1&gt;&lt;0-3&gt;&lt;0-3&gt;:</span>
+Set usage of fonts in graphic charts.</p>
 
 <p class=N><span class=S> -YXp &lt;-1,0,1&gt;:</span> Set paper orientation for
 PostScript files.</p>
@@ -1763,6 +1799,10 @@
 <p class=N><span class=S> -YXp0 &lt;hor&gt; &lt;ver&gt;:</span> Set paper size
 for PostScript files.</p>
 
+<p class=N>&nbsp;</p>
+
+<p class=N>Switches to access obscure system options:</p>
+
 <p class=N><span class=S> -YB:</span> Make a beep sound at the time this switch
 is processed.</p>
 
@@ -1772,8 +1812,8 @@
 <p class=N><span class=S> -YY1 &lt;rules&gt; &lt;entries&gt;:</span> Load
 Daylight Time rules from current file.</p>
 
-<p class=N><span class=S> -YY2 &lt;zones&gt; &lt;entries&gt;:</span> Load time zone
-change lists from file.</p>
+<p class=N><span class=S> -YY2 &lt;zones&gt; &lt;entries&gt;:</span> Load time
+zone change lists from file.</p>
 
 <p class=N><span class=S> -YY3 &lt;rows&gt;:</span> Load atlas time zone to
 zone change mappings from file.</p>
@@ -1786,11 +1826,84 @@
 
 <p class=N>&nbsp;</p>
 
+<p class=N>Switches to define AstroExpressions:</p>
+
+<p class=N><span class=S> -~ &lt;string&gt;:</span> Display result of string
+parsed as AstroExpression.</p>
+
+<p class=N><span class=S> -~v &lt;string&gt;:</span> Set adjustment for object
+display ordering.</p>
+
+<p class=N><span class=S> -~g &lt;string&gt;:</span> Set filter for aspect
+configurations.</p>
+
+<p class=N><span class=S> -~a &lt;string&gt;:</span> Set adjustment for aspect
+list powers.</p>
+
+<p class=N><span class=S> -~a0 &lt;string&gt;:</span> Set notification for
+aspect list summary.</p>
+
+<p class=N><span class=S> -~m &lt;string&gt;:</span> Set filter for midpoint
+display.</p>
+
+<p class=N><span class=S> -~L &lt;string&gt;:</span> Set filter for astro-graph
+latitude crossings.</p>
+
+<p class=N><span class=S> -~E &lt;string&gt;:</span> Set filter for text
+ephemeris lines.</p>
+
+<p class=N><span class=S> -~P &lt;string&gt;:</span> Set filter for Arabic
+parts display.</p>
+
+<p class=N><span class=S> -~d &lt;string&gt;:</span> Set filter for transit to
+transit events.</p>
+
+<p class=N><span class=S> -~t &lt;string&gt;:</span> Set filter for transit to
+natal events.</p>
+
+<p class=N><span class=S> -~j &lt;string&gt;:</span> Set adjustment for object
+influence.</p>
+
+<p class=N><span class=S> -~O &lt;string&gt;:</span> Set adjustment for object
+calculations.</p>
+
+<p class=N><span class=S> -~C &lt;string&gt;:</span> Set adjustment for house
+cusp calculations.</p>
+
+<p class=N><span class=S> -~A &lt;string&gt;:</span> Set adjustment for aspect
+orbs.</p>
+
+<p class=N><span class=S> -~p[0] &lt;string&gt;:</span> Set adjustment for
+progression offset.</p>
+
+<p class=N><span class=S> -~kO &lt;string&gt;:</span> Set adjustment for object
+colors.</p>
+
+<p class=N><span class=S> -~kA &lt;string&gt;:</span> Set adjustment for aspect
+colors.</p>
+
+<p class=N><span class=S> -~q[1-2] &lt;string&gt;:</span> Set notification
+before/after chart cast.</p>
+
+<p class=N><span class=S> -~Q[1-2] &lt;string&gt;:</span> Set notification
+before/after chart displayed.</p>
+
+<p class=N><span class=S> -~M &lt;0-26&gt; &lt;string&gt;:</span> Define the
+specified AstroExpression macro.</p>
+
+<p class=N><span class=S> -~1 &lt;string&gt;:</span> Simply parse
+AstroExpression (don't show result).</p>
+
+<p class=N><span class=S> -~0: </span>Disable all automatic AstroExpression
+checks in the program.</p>
+
+<p class=N>&nbsp;</p>
+
 <p class=N>--</p>
 
 <p class=N>&nbsp;</p>
 
-<p class=N>Astrolog graphics screen key press options (version 7.00):</p>
+<p class=N>Astrolog graphics screen key press options (version 7.10):</p>
 
 <p class=N><span class=K> Press 'H' or '?'</span> to display this list of key
 options.</p>
@@ -1805,8 +1918,8 @@
 <p class=N><span class=K> Press 'i'</span> to toggle status of the minor chart
 modification.</p>
 
-<p class=N><span class=K> Press 't'</span> to toggle header info on current
-chart on screen.</p>
+<p class=N><span class=K> Press 't'</span> to toggle header info on current chart
+on screen.</p>
 
 <p class=N><span class=K> Press 'b'</span> to toggle drawing of a border around
 the chart.</p>
@@ -1860,7 +1973,7 @@
 time now.</p>
 
 <p class=N><span class=K> Press 'N'</span> to toggle animation status on or
-off. Charts will be updated to current status and globe will rotate.</p>
+off. Charts will be updated to current status and globes will rotate.</p>
 
 <p class=N><span class=K> Press '!'-'('</span> to begin updating current chart
 by adding times. !: seconds, @: minutes, #: hours, $: days, %: months, ^:
@@ -1873,10 +1986,10 @@
 degrees, etc.</p>
 
 <p class=N><span class=K> Press
-'V','A','Z','S','M','K','J','L','E','X','W','G','P'</span> to switch to normal
-(-v), grid (-g), local (-Z), space (-S), sector (-l), calendar (-K), dispositor
-(-j), astro-graph (-L), ephemeris (-E), sphere (-XX), world map (-XW), globe
-(-XG), polar (-XP) modes.</p>
+'V','A','Z','S','M','K','J','L','E','X','W','G','P', 'T'</span> to switch to
+normal (-v), grid (-g), local horizon (-Z), space (-S), sector (-l), calendar
+(-K), dispositor (-j), astro-graph (-L), ephemeris (-E), chart sphere (-XX),
+world map (-XW), globe (-XG), polar (-XP), and telescope (-XZ) modes.</p>
 
 <p class=N><span class=K> Press 'Y'</span> to switch to biorhythm relationship
 chart mode.</p>
@@ -1933,40 +2046,40 @@
 actually optional. For example, the command “astrolog -i chartfile -R -u -U -Z
 -Xs 300 -Xi -XB” can be done as “astrolog /i chartfile /r /u /U /Z /Xs 300”, or
 can be abbreviated as just “astrolog i chartfile R u U Z Xs 300 Xi XB”. (This
-is subject to a couple of minor limitations, in that one can't have the -1 or
--3 option follow a -R restriction list of numbers, since the “-1” will be parsed
+is subject to a couple of minor limitations, in that one can't have numeric switches
+like -1 follow a -R restriction list of numbers, since the “-1” will be parsed
 as a number.)</p>
 
 <p class=A>Many switches in their standard form are technically a “toggle” instead
 of a “set” for the particular feature in question. For example, “astrolog -v -g
 -g” will only result in the -v chart being printed. An aspect grid won't,
-because the first -g turned it on while the second -g turned it off again. This
-can be useful, in say the -e everything switch. If you want all of Astrolog’s
-charts except the astro-graph, you can do “astrolog -e -L”, where the -e turns
-everything on and the -L turns the astro-graph chart (already on because of -e)
-back off. In another example, to get a chart with only the fixed stars in it,
-one can do “astrolog -R0 -RU”, where the -R0 restricts everything, and the -RU
-unrestricts all the stars. The various -X switches which set a mode in graphics
-are also toggles. A combination like “-Xr -Xr” which with one instance will
-just go into reverse video mode, will remain out of it because the first -Xr
-put you in and the second toggled you back out.</p>
+because the first -g turned it on while the second -g turned it back off again.
+This can be useful, in say the -e everything switch. If you want all of
+Astrolog’s charts except the astro-graph, you can do “astrolog -e -L”, where
+the -e turns everything on and the -L turns the astro-graph chart (already on
+because of -e) back off. In another example, to get a chart with only the fixed
+stars in it, one can do “astrolog -R0 -RU”, where the -R0 restricts everything,
+and the -RU unrestricts all the stars. The various -X switches which set a mode
+in graphics are also toggles. A combination like “-Xr -Xr” which with one
+instance will just go into reverse video mode, will remain out of it because
+the first -Xr put you in and the second toggled you back out.</p>
 
 <p class=A>Command switch flags may actually be forced on or off regardless of
 their current setting with special character prefixes. Many switches (such as
--s) represent on/off flags and their setting is toggled when the switch is
-encountered. However, that alone doesn't allow one to force the setting to be a
-value, because we don't know if it needs to be toggled or not. Therefore,
-prefixing any flag switch with '_' will reset its state even if already off,
-while prefixing with '=' will always make it on. For example, putting “_s” on a
+-s) represent on/off flags and their setting is toggled when the switch is encountered.
+However, that alone doesn't allow one to force the setting to be a value,
+because we don't know if it needs to be toggled or not. Therefore, prefixing
+any flag switch with '_' will reset its state even if already off, while
+prefixing with '=' will always make it on. For example, putting “_s” on a
 command line will always set tropical zodiac, while “=s” will always set
 sidereal. The standard '-' and '/' prefixes, along with no prefix at all,
 always toggle the current setting. This is useful for configuration files where
 we want to set various flags to particular values. There’s one more obscure
-switch prefix of ':', which doesn't affect the setting at all, but still affects
-any subsetting parameters. For example, “:I 80” won't affect the interpretation
-setting at all, but will still set the default screen width to 80 columns. That
-is slightly simpler than the “-I 80 -I” double toggle that would have to be
-done to do such a thing otherwise.</p>
+switch prefix of ':', which doesn't affect the setting at all, but still
+affects any subsetting parameters. For example, “:I 80” won't affect the
+interpretation setting at all, but will still set the default screen width to
+80 columns. That is slightly simpler than the “-I 80 -I” double toggle that
+would have to be done to do such a thing otherwise.</p>
 
 <p class=A>The various static help listings that may be generated, such as the
 lists from -H, -HO, -HI, and so on, may be combined with each other and even
@@ -1975,8 +2088,8 @@
 e.g. just “-H” will print the help list and exit, but “-H -i file -g” will
 print the help list followed by an aspect grid chart.</p>
 
-<p class=A>In the command list below, greater than/less than symbols ('&lt;' and
-'&gt;') are used to denote a command switch parameter to be replaced by the
+<p class=A>In the command list below, greater than/less than symbols ('&lt;'
+and '&gt;') are used to denote a command switch parameter to be replaced by the
 appropriate value, brackets ('[' and ']') are used to denote an optional
 parameter, and commas are used to separate either/or choices. For example, the
 specification of the -I switch is “-I [&lt;columns&gt;]”, meaning that one can
@@ -2004,7 +2117,7 @@
 to be unambiguous. Aspects should be based on their formal abbreviations, e.g.
 “ssx” instead of “sem” for Semisextile.</p>
 
-<p class=Section2>Astrolog (version 7.00) command switches:</p>
+<p class=Section2>Astrolog (version 7.10) command switches:</p>
 
 <p class=A><span class=S>-H:</span> Display this help list.</p>
 
@@ -2073,13 +2186,22 @@
 This Lilith is the point in space of one focus of the Moon’s elliptical orbit
 around the Earth (Earth itself being in the other of the two), and not the
 asteroid (i.e. “1181 Lilith”) or hypothetical planet by the same name. Lilith
-is object number 18 in Astrolog, and in graphics charts its glyph is a small circle
-with a forward slash through it. If preferred, one can use the -YXG glyph
-selection switch (described later) to choose the “European” version of the
-glyph which is like the glyph for the Moon but smaller and flipped
+is object number 18 in Astrolog, and in graphics charts its glyph is a small
+circle with a forward slash through it. If preferred, one can use the -YXG
+glyph selection switch (described later) to choose the “European” version of
+the glyph which is like the glyph for the Moon but smaller and flipped
 horizontally. The -b ephemeris files switch setting needs to be in effect to
 get Lilith’s positions.</p>
 
+<p class=B>Astrolog can do the position of the Part of Fortune, which is a
+derived object determined by the formula (Asc-Sun+Moon). This formula may be
+reversed (i.e. Asc+Sun-Moon) for night charts, which Astrolog defines as when
+the Sun is in houses 1-6. The Part of Fortune is object number 19 in Astrolog,
+and its graphics glyph is a circle with an X through it, like a treasure X
+marking the spot. The Part of Fortune is normally placed at 0 ecliptic latitude,
+however if the 3D houses setting is on then the same formula used to derive it
+will be applied to set its ecliptic latitude as well.</p>
+
 <p class=B>Also, Astrolog can do the position of the Vertex, which is where the
 ecliptic intersects the prime vertical in the Western half of the celestial
 sphere. This is object number 20 in Astrolog, and its graphics glyph is a cross
@@ -2100,17 +2222,17 @@
 -A switch when changing the number of aspects used. Finally, it will print a
 brief description of what each aspect glyph looks like. This is useful if one
 doesn't know what aspects the various symbols in the graphic displays are
-referring to. If the parallel aspects mode is active, then this will instead list
-the parallel aspects, namely parallel and contraparallel.</p>
+referring to. If the parallel aspects mode is active, then this will instead
+list the parallel aspects, namely parallel and contraparallel.</p>
 
 <p class=A><span class=S>-HF:</span> Display names of astronomical
 constellations.</p>
 
 <p class=B>This will display a text table of all the constellations, listing
-their traditional names, their astronomical abbreviations as used in the graphics
-above, their English meanings, and even their genitive or possessive form (e.g.
-“Lyra” is the name of the constellation, but the star Vega in it is called
-Alpha “Lyrae”).</p>
+their traditional names, their astronomical abbreviations as used in the
+graphics above, their English meanings, and even their genitive or possessive
+form (e.g. “Lyra” is the name of the constellation, but the star Vega in it is
+called Alpha “Lyrae”).</p>
 
 <p class=A><span class=S>-HS:</span> Display information about planets in the
 solar system.</p>
@@ -2121,9 +2243,9 @@
 (AU), its orbital period in Earth years, its diameter relative to the Earth
 (Earth being 1), its rotational period (i.e. day) in hours, its mass relative
 to the Earth (Earth being 1), its average density with respect to water (water
-being 1), the tilt of its axis with respect to its orbit, and finally the number
-of primary moons or satellites it has. This table also includes Chiron and the
-four asteroids, the lunar nodes, and the Uranians, at least for the distance
+being 1), the tilt of its axis with respect to its orbit, and finally the
+number of primary moons or satellites it has. This table also includes Chiron
+and the four asteroids, the lunar nodes, and the Uranians, at least for the distance
 from Sun and length of year fields (and diameter field for the asteroids).
 Finally this table will include star objects if they’re unrestricted, in which the
 “Distance” column will measure light years (instead of Astronomical Units as is
@@ -2151,8 +2273,7 @@
 database the program uses to base its interpretations on (see the -I switch
 setting for charts later).</p>
 
-<p class=N><span class=S>-He:</span> Display all tables together
-(-Hc-H-Y-HX-HC-HO-HA-HF-HS-H7-HI).</p>
+<p class=N><span class=S>-He:</span> Display all tables together (-Hc-H-Y-HX-HC-HO-HA-HF-HS-H7-HI).</p>
 
 <p class=B>This switch will print out all 11 of Astrolog’s static table help
 listings, similar to what -e does for actual charts. Specifically, this will
@@ -2173,11 +2294,11 @@
 over from a slow disk. Auto-termination is also bad when automatically starting
 up the program in an X window or DOS box - once the program finishes, the
 container will exit right away too, not allowing reading of the text charts.
-The -Q switch causes the program to enter a looping mode environment where (after
-the first chart is displayed) the user will automatically be prompted to enter
-a new set of command switches (using the no SWITCHES interface described later)
-which will be processed. This will go on and the program will run until you
-enter “.” on a line for the switches to really terminate it.</p>
+The -Q switch causes the program to enter a looping mode environment where
+(after the first chart is displayed) the user will automatically be prompted to
+enter a new set of command switches (using the no SWITCHES interface described
+later) which will be processed. This will go on and the program will run until
+you enter “.” on a line for the switches to really terminate it.</p>
 
 <p class=B>Program errors which normally cause Astrolog to exit right away,
 will (unless “fatal” errors) return the user back to this outer loop. What’s
@@ -2271,11 +2392,11 @@
 default).</p>
 
 <p class=B>This is just a formal specification for the standard chart listing
-of the planetary positions. One will get this chart by default if they don't
-specify any other chart types, and they will get it along with everything else
-in the -e option (see below). Although it isn't necessary, it must be included
-if one wants this type of chart to be displayed along with some of the other
-chart types described below.</p>
+of the planetary positions. One will get this chart by default if they don't specify
+any other chart types, and they will get it along with everything else in the
+-e option (see below). Although it isn't necessary, it must be included if one
+wants this type of chart to be displayed along with some of the other chart
+types described below.</p>
 
 <p class=A><span class=S>-v0:</span> Like -v but express velocities relative to
 average speed.</p>
@@ -2288,10 +2409,10 @@
 retrograde, the same velocity value is normal for slow moving Pluto. Because it
 is useful to know when a planet is about to change direction, the -v0 switch
 will divide the actual velocity values by how fast each planet moves with
-respect to the Sun. That means all planets will have an average relative
-velocity value of 1.0, and in all cases a velocity of 2.0 means the planet is
-moving twice as fast as normal, and one of 0.01 means the planet is about to
-turn retrograde.</p>
+respect to the Sun. That means all planets will have an average relative velocity
+value of 1.0, and in all cases a velocity of 2.0 means the planet is moving
+twice as fast as normal, and one of 0.01 means the planet is about to turn
+retrograde.</p>
 
 <p class=B>Star velocities are accurate, and will be different for different
 stars based on their individual (very slow) proper motions. They will also vary
@@ -2328,21 +2449,22 @@
 chart being cast (like UTC/GMT in the 24 hour clock), (3) the sidereal time for
 the chart cast, where sidereal time is vaguely similar to UT except 0:00 for it
 is approximately when 0 Aries crosses the meridian, as opposed to when the Sun
-crosses the Nadir for UT, (4) whether the zodiac system is set to tropical or sidereal,
-and whether the planetary positions are geocentric, heliocentric, or centered
-around some other body, and (5) the Julian day corresponding to the date and
-time of the chart. This chart will automatically exclude a house object from
-being listed if its position is the same as the cusp composing the wheel.</p>
+crosses the Nadir for UT, (4) whether the zodiac system is set to tropical or
+sidereal, and whether the planetary positions are geocentric, heliocentric, or
+centered around some other body, and (5) the Julian day corresponding to the
+date and time of the chart. This chart will automatically exclude a house
+object from being listed if its position is the same as the cusp composing the
+wheel.</p>
 
 <p class=B>Note that this switch takes an optional parameter to specify the
 size in text rows of each house printed. By default this is four, but one may
 increase (realize this will make the chart require more than 24 lines to print)
 or decrease this value to their preference. The parameter may range from 0 to
 10, and with this you can nicely generate a text wheel chart with all 89
-objects in it, without overflowing all the houses. The number 0 means to automatically
-size to cover the house with the largest number of objects in it (houses will
-be printed with at least 4 rows, and won’t autosize until a 5th object is
-present in a house).</p>
+objects in it, without overflowing all the houses. The number 0 means to
+automatically size to cover the house with the largest number of objects in it
+(houses will be printed with at least 4 rows, and won’t autosize until a 5th
+object is present in a house).</p>
 
 <p class=A><span class=S>-w0 [..]:</span> Like -w but reverse order of objects
 in houses 4..9.</p>
@@ -2377,10 +2499,10 @@
 Rectangles, and Stelliums, with the -g0 option. In a Stellium, three or four objects
 must all be conjunct with each other. In a Cradle, four objects form three
 sextiles producing a chain of sextiles half way around the zodiac. In a Mystic
-Rectangle, there are two trines and two sextiles forming a rectangle. This
-option will produce the same aspect grid that -g displays, but afterwards it will
-go through the grid and list any of these aspect configurations and what
-objects are forming them. Note that for Yods, the Inconjunct aspect must be
+Rectangle, there are two trines and two sextiles forming a rectangle. This option
+will produce the same aspect grid that -g displays, but afterwards it will go
+through the grid and list any of these aspect configurations and what objects
+are forming them. Note that for Yods, the Inconjunct aspect must be
 unrestricted in order to see them (e.g. include -A 6). Note that for Stelliums,
 three and four planet conjunction Stelliums are listed separately, which means
 the three redundant three planet Stelliums within each four planet Stellium
@@ -2543,8 +2665,8 @@
 local horizon in terms of altitude and azimuth. For each object, the following
 is displayed: Its altitude on the local horizon from +90 degrees (straight up)
 to -90 degrees (straight down), and its azimuth from 0 to 360 degrees, where 0
-= due east, 90 = north, 180 = west, 270 = south. To make visualizing the azimuth
-easier, an “azimuth vector” with a N/S component and a W/E component is
+= due east, 90 = north, 180 = west, 270 = south. To make visualizing the
+azimuth easier, an “azimuth vector” with a N/S component and a W/E component is
 displayed, e.g. (1.00s 0.33w) means that the object is mainly south, with its
 true angle being formed by a vector component west that’s 1/3 the strength of
 the south component, i.e. the object is about 18 degrees west of south. This
@@ -2553,8 +2675,8 @@
 This data can also be used to see when planets rise and set. Also displayed are
 altitude and azimuth differences between each object and the Sun and Moon,
 first showing the number of degrees that the Sun/Moon is “ahead” (or farther
-east in the zodiac) of the object in question, and then the number of degrees
-that the Sun/Moon is above the object in question. This feature can be used to
+east in the zodiac) of the object in question, and then the number of degrees that
+the Sun/Moon is above the object in question. This feature can be used to
 roughly predict eclipses: Both the Sun and Moon span about 0.5 degrees in the
 sky, therefore if both the azimuth and altitude differences are &lt; 0.5 (or
 1.0 if the difference is between the Sun and Moon themselves) then the object
@@ -2594,9 +2716,9 @@
 entire month, year, or years.</p>
 
 <p class=B>The -Zd switch which supports scanning an entire month, year, or
-range of years. The -Zdm switch will scan the entire month, the -Zdy switch will
-scan the whole year, and the -ZdY &lt;years&gt; switch will scan the number of
-years specified starting with the current year.</p>
+range of years. The -Zdm switch will scan the entire month, the -Zdy switch
+will scan the whole year, and the -ZdY &lt;years&gt; switch will scan the
+number of years specified starting with the current year.</p>
 
 <p class=A><span class=S>-S:</span> Display x,y,z coordinate positions of
 planets in space.</p>
@@ -2621,8 +2743,8 @@
 as indicated by the x, y, z vectors. (The Earth and Sun are of course always
 about 1.0 AU from each other.) For star objects, the “Length” column will
 measure light years instead of AU. (Note that 1 light year is about 63000 AU,
-so the stars are actually more distant by this factor.) The -e everything option
-will include this chart in its listing of all the chart displays.</p>
+so the stars are actually more distant by this factor.) The -e everything
+option will include this chart in its listing of all the chart displays.</p>
 
 <p class=A><span class=S>-l:</span> Display Gauquelin sectors for each planet
 in chart.</p>
@@ -2646,8 +2768,8 @@
 listing. The chart info time and place will be displayed, after which, for each
 planet, the sector it’s in will be displayed, with a “+” indicating a plus
 zone, and a “-” indicating such is not the case (where with colored text active
-plus zones will be in red and minus dark green). Then as in the standard
-listing, the planet’s house, zodiac location, retrogradation status, equatorial
+plus zones will be in red and minus dark green). Then as in the standard listing,
+the planet’s house, zodiac location, retrogradation status, equatorial
 latitude, and velocity will be printed. Finally will be displayed two
 alternative sector locations assuming systems where sectors go from 1 to 18,
 and from 1 to 12 (where for example the beginning of sector 36 will map to
@@ -2684,10 +2806,10 @@
 itself, and the power of the aspects it makes with the other planets. In
 addition to each field, the total of these two areas is printed, as well as the
 relative percentage of the planet in question with respect to all the planets
-combined. Each planet gets a ranking for its positioning, aspects, and total
-power as well, with the strongest getting #1, the next strongest #2, etc. The
--e option will include this chart along with all the others as well in its
-listing of all the chart displays.</p>
+combined. Each planet gets a ranking for its positioning, aspects, and total power
+as well, with the strongest getting #1, the next strongest #2, etc. The -e
+option will include this chart along with all the others as well in its listing
+of all the chart displays.</p>
 
 <p class=B>To determine the strength of the positioning of a planet, various
 things are taken into account:<br>
@@ -2738,9 +2860,9 @@
 zodiac sign as well.</p>
 
 <p class=B>The -j planet influences in a chart feature can be expanded to
-include signs as well. Invoke it as -j0 instead of just -j, and in addition to getting
-the influence of each planet in a chart, one will get the influence of each
-sign in the chart as well. To determine sign influence, we use the planet
+include signs as well. Invoke it as -j0 instead of just -j, and in addition to
+getting the influence of each planet in a chart, one will get the influence of
+each sign in the chart as well. To determine sign influence, we use the planet
 powers already determined; a sign gets influence if:<br>
 (1) There is a planet in it.<br>
 (2) There is a planet in the house it corresponds to.<br>
@@ -2761,8 +2883,8 @@
 for chart.</p>
 
 <p class=B>A chart for Esoteric Astrology is available. It will list planets,
-showing the planet’s Ray, the planet’s position and the Ray(s) of its zodiac sign,
-and rulership information about the planet’s zodiac position and house
+showing the planet’s Ray, the planet’s position and the Ray(s) of its zodiac
+sign, and rulership information about the planet’s zodiac position and house
 position. That includes whether the planet exoterically rules or is debilitated
 in the sign (indicated with “R” or “d” characters), whether the planet
 esoterically rules or is debilitated in the sign (“S” or “s” characters),
@@ -2802,8 +2924,8 @@
 longitude of where the objects appeared on the ascendant and descendant is
 displayed. For text screens, one can pass an optional parameter to this -L (or
 -L0) option to change the default latitude step rate at which the Ascendant and
-Descendant lines are computed. Again, this value is by default 5 degrees,
-although one can may increase or decrease it to any integer.</p>
+Descendant lines are computed. Again, this value is by default 5 degrees, although
+one can may increase or decrease it to any integer.</p>
 
 <p class=A><span class=S>-L0 [..]:</span> Like -L but display list of latitude
 crossings too.</p>
@@ -2825,8 +2947,8 @@
 <p class=A><span class=S>-K:</span> Display a calendar for given month.</p>
 
 <p class=B>The -K switch generates a simple calendar for the month specified in
-the current chart. This is a standard type of chart generatable from a date so the
--e everything switch includes this -K chart along with all the others. Note
+the current chart. This is a standard type of chart generatable from a date so
+the -e everything switch includes this -K chart along with all the others. Note
 that this is technically a non-astrological chart, but generic calendars are
 useful and easy to generate with all of Astrolog’s date determination features,
 so the option to create them using Astrolog is included. The calendars are
@@ -2962,8 +3084,8 @@
 display the times of all aspects within your progressed chart for the next
 decade, do “astrolog -i yourchartfile -dpY 2020 10”.</p>
 
-<p class=A><span class=S>-dp[y]n:</span> Search for progressed aspects in
-current month/year.</p>
+<p class=A><span class=S>-dp[y]n:</span> Search for progressed aspects in current
+month/year.</p>
 
 <p class=B>The -dp progression event search option can be invoked as -dpn to
 search the current month, or -dpyn to search the entire current year. For
@@ -2974,25 +3096,25 @@
 instead of time.</p>
 
 <p class=B>This switch will display a chart listing all aspects in effect
-within the chart in question, in order by influence based on their power when
-transiting. This chart focuses upon and gives precedence to aspects of outer
-planets with each other, as opposed to common inner planet configurations. For
-example, at the time in early January 1994 the most influential aspects in
-effect were the Uranus Neptune conjunction and the Saturn Pluto square. This
-chart is very much like the format of the -a aspect list chart, except that we
-are using the transit as opposed to natal influences of the planets. The -a
-chart is most appropriate for a person’s natal chart, in that the inner planets
-are focused upon, such as a Sun Moon square will be near the top of the list.
-This -D chart is more appropriate for times as opposed to people, since it
-focuses upon rare outer planet configurations. This chart is also very similar
-to the -T transit influence chart, in that it shows the aspect, applying or
-separating orb, and power of the event with its present orb, except that this
-does influences of transiting planets among themselves as opposed to aspects to
-a natal chart. If you want to see what major events are coming up, and don't
-want things such as Uranus Neptune conjunctions to sneak by, use this chart and
-watch the configuration gradually rise to the top of the list as its orb
-narrows over time. This chart may be combined with others and is included in
-the -e everything switch.</p>
+within the chart in question, in order by influence based on their power when transiting.
+This chart focuses upon and gives precedence to aspects of outer planets with
+each other, as opposed to common inner planet configurations. For example, at
+the time in early January 1994 the most influential aspects in effect were the
+Uranus Neptune conjunction and the Saturn Pluto square. This chart is very much
+like the format of the -a aspect list chart, except that we are using the
+transit as opposed to natal influences of the planets. The -a chart is most
+appropriate for a person’s natal chart, in that the inner planets are focused
+upon, such as a Sun Moon square will be near the top of the list. This -D chart
+is more appropriate for times as opposed to people, since it focuses upon rare
+outer planet configurations. This chart is also very similar to the -T transit
+influence chart, in that it shows the aspect, applying or separating orb, and
+power of the event with its present orb, except that this does influences of
+transiting planets among themselves as opposed to aspects to a natal chart. If
+you want to see what major events are coming up, and don't want things such as
+Uranus Neptune conjunctions to sneak by, use this chart and watch the
+configuration gradually rise to the top of the list as its orb narrows over
+time. This chart may be combined with others and is included in the -e
+everything switch.</p>
 
 <p class=B>Like the -a aspect list, this chart will also print an aspect
 summary afterward, listing the total and average power of the aspects, along
@@ -3022,9 +3144,9 @@
 transit to transit, and transit to natal. Both forms can be displayed to show
 aspects within a single day, a single month, a single year, or a range of five
 years. Counting text mode and graphics mode versions of these charts, there are
-2x4x2 = 16 different transit graph chart types total! The transit to transit
-graph is accessed via the -B command switch, which is identical in syntax to
-the existing -d transit to transit times search, including all subswitches. The
+2x4x2 = 16 different transit graph chart types total! The transit to transit graph
+is accessed via the -B command switch, which is identical in syntax to the
+existing -d transit to transit times search, including all subswitches. The
 transit to natal graph is accessed via the -V command switch, which is nearly identical
 in syntax to the existing -t transit to natal times search, including all
 subswitches. (One difference is that -B defaults to covering one day unless the
@@ -3123,9 +3245,9 @@
 “m” for a step rate in months, “y” for a step rate in years, and “d” (or
 nothing) for a step rate in days. For example, “-E0 d2” will display positions
 every other day, “-Ey0 m3” will display positions once every three months, and
-“-EY0 1000 y10” will display positions once every ten years. Slower ephemeris step
-rates are useful when displaying very slow moving objects, such as fixed stars
-in the tropical zodiac or planetary nodes.</p>
+“-EY0 1000 y10” will display positions once every ten years. Slower ephemeris
+step rates are useful when displaying very slow moving objects, such as fixed
+stars in the tropical zodiac or planetary nodes.</p>
 
 <p class=A><span class=S>-e:</span> Print all charts together
 (-v-w-g-a-m-Z-S-l-j-7-L-K-Zd-d-D-B-E).</p>
@@ -3239,9 +3361,10 @@
 <p class=A><span class=S>-t[py]n:</span> Compute transits to natal planets for
 current time now.</p>
 
-<p class=B>This feature is a quick shorthand way to generate transits for the current
-month. For example, instead of “astrolog -i chartfile -t 1 2020”, one can do “astrolog
--i chartfile -tn”. To do transits for the entire current year, invoke it as “-tyn”.</p>
+<p class=B>This feature is a quick shorthand way to generate transits for the
+current month. For example, instead of “astrolog -i chartfile -t 1 2020”, one
+can do “astrolog -i chartfile -tn”. To do transits for the entire current year,
+invoke it as “-tyn”.</p>
 
 <p class=A><span class=S>-T &lt;month&gt; &lt;day&gt; &lt;year&gt;:</span>
 Display transits ordered by influence.</p>
@@ -3252,9 +3375,9 @@
 printed as a list of transits, sorted in order from most significant to least
 significant. For each transit in effect, the transiting and natal planets (and
 the signs they are in) are displayed, along with the aspect and the orb, and
-whether the transit is applying and going to happen in the future, or just
-passed exactness and the orb is separating. The computer computed power value
-of each transit will be printed too, in which anything over 100 is a very major
+whether the transit is applying and going to happen in the future, or just passed
+exactness and the orb is separating. The computer computed power value of each
+transit will be printed too, in which anything over 100 is a very major
 transit. Any transit that’s a return, i.e. a transiting planet conjuncting the
 same one in the natal chart, will be flagged with a capital “R” at the end of
 the line.</p>
@@ -3325,9 +3448,10 @@
 search) display all aspects between progressed planets and natal planets in
 influence order, if it’s invoked as -Tp instead of just -T. This works like -T
 in every way except that a switch combination like “-i mychart -Tp 12 31 2020” will
-display aspects between my natal planets, and those in my natal chart progressed
-to the end of the year, and their influence and orbs at that time, instead of
-between my natal planets and the actual positions of the planets at that time.</p>
+display aspects between my natal planets, and those in my natal chart
+progressed to the end of the year, and their influence and orbs at that time,
+instead of between my natal planets and the actual positions of the planets at that
+time.</p>
 
 <p class=A><span class=S>-T[p]n:</span> Display transits ordered by influence
 for current date.</p>
@@ -3365,7 +3489,7 @@
 is in; it may also be “R”, meaning the term is the location of the planet
 ruling the house the given object is in; it may be “D”, meaning the term is the
 location of the planet that’s the dispositor of the given object, i.e. ruler of
-its position; or it may be “&amp;”, meaning the term is 10 degrees beyond the
+its position; or it may be “+”, meaning the term is 10 degrees beyond the
 position of the given object.</p>
 
 <p class=B>The last column is the “type” of Arabic part. Most parts are normal
@@ -3402,14 +3526,14 @@
 where -Pf and -Pf0 sort differently giving different terms priority. Here’s how
 to conceptualize formulas: if the planets were rotated through the zodiac so
 that object2 is at the position of object1, then the new position of object3 is
-the part. For example, with the Part of Fortune being Asc - Sun + Moo for daytime
-charts, if you rotate your chart so that the Sun is on the Asc, then the Moon’s
-position is the POF, Mercury’s position is the Part of Commerce, its formula
-being Asc - Sun + Mer, and so on. The default -Pf sorting allows one to easily
-see, if one rotates this planet on the Asc, what parts indicate the positions
-of the other planets. The -Pf0 ordering allows one to easily see, where is the
-position of a particular planet, after all rotations where some other planet is
-on the Asc.</p>
+the part. For example, with the Part of Fortune being Asc - Sun + Moo for
+daytime charts, if you rotate your chart so that the Sun is on the Asc, then
+the Moon’s position is the POF, Mercury’s position is the Part of Commerce, its
+formula being Asc - Sun + Mer, and so on. The default -Pf sorting allows one to
+easily see, if one rotates this planet on the Asc, what parts indicate the
+positions of the other planets. The -Pf0 ordering allows one to easily see,
+where is the position of a particular planet, after all rotations where some
+other planet is on the Asc.</p>
 
 <p class=A><span class=S>-P[z,n,f]:</span> Order parts by position, name, or
 formula.</p>
@@ -3539,8 +3663,8 @@
 <p class=B>This interpretation toggle switch accepts an optional parameter to
 specify the number of screen columns in which to format the interpretation
 paragraphs, i.e. what column to break lines at when formatting and printing.
-One may change this from the default of 80 to accommodate narrower or wider
-screens or printers.</p>
+One may change this from the default of 80 to accommodate narrower or wider screens
+or printers.</p>
 
 <p class=Section2>Switches which affect how the chart parameters are obtained:</p>
 
@@ -3559,12 +3683,12 @@
 DEFAULT_ZONE constant set at compile time.</p>
 
 <p class=B>Note that the default time zone setting or passing values to -z,
-won't affect the positions of the planets, which is expected since they are where
-they are “now” no matter how time is expressed. The default zone is merely used
-to determine what to express the local time to when displaying the current
-time. It is important however to realize that the time zone setting on your
-system can affect the actual raw time the program gets internally for “now”. If
-the -n switch seems to always generate times an hour or more off to what you
+won't affect the positions of the planets, which is expected since they are
+where they are “now” no matter how time is expressed. The default zone is
+merely used to determine what to express the local time to when displaying the
+current time. It is important however to realize that the time zone setting on
+your system can affect the actual raw time the program gets internally for “now”.
+If the -n switch seems to always generate times an hour or more off to what you
 have your time zone set to, it’s likely that your time zone environment
 variable is uninitialized or set incorrectly. You will need to set the “TZ” environment
 variable, setting it to a value such as “xxxnyyy”, where 'n' is the hours your
@@ -3598,9 +3722,9 @@
 the local DST zone.</p>
 
 <p class=B>Normally the -z switch takes an argument which will then become the
-default time zone. If one, however, invokes it by itself, it will subtract one hour
-from whatever the default time zone presently is. This is useful since it is
-equivalent to adjusting any times printed to Daylight time, i.e. it will add
+default time zone. If one, however, invokes it by itself, it will subtract one
+hour from whatever the default time zone presently is. This is useful since it
+is equivalent to adjusting any times printed to Daylight time, i.e. it will add
 one hour to any times displayed. Again, this is archaic as it’s better to just
 use the -z0 switch below. Without the -z0 setting, when entering the birth time
 for charts, one would have to subtract one hour if Daylight time were in
@@ -3723,9 +3847,11 @@
 Saving Time is in effect or not) for any date/time at any location in the
 world. This switch takes one parameter for a city name, and will automatically
 look it up, and apply to the chart info the atlas coordinates, time zone, and
-whether Daylight Time is in effect. For example, “astrolog -qt Jun 5 2020
-12:12pm -zN Seattle” is a quick way to do a chart for that city given the date
-and local time.</p>
+whether Daylight Time is in effect. This switch will look at or take as “input”
+the current chart date and time fields, and as “output” will set the current and
+default chart location, time zone, and Daylight Time fields. For example,
+“astrolog -qt Jun 5 2020 12:12pm -zN Seattle” is a quick way to do a chart for
+that city given the date and local time.</p>
 
 <p class=A><span class=S>-q &lt;month&gt; &lt;date&gt; &lt;year&gt;
 &lt;time&gt;:</span> Compute chart with defaults.</p>
@@ -3832,9 +3958,10 @@
 
 <p class=C>The initial contents of the “previous” chart, i.e. what you get by
 directly doing something like “astrolog -i set” are initialized to the
-astrological “chart” for the release of this version 7.00 of the program
-itself, which is the time of the Full Moon Lunar Eclipse, specifically for 12:12:23pm
-PDT (7 hours before UTC) on Friday, June 5, 2020 for Seattle, WA (122W19:59, 47N36:35).</p>
+astrological “chart” for the release of this version 7.10 of the program
+itself, which is the time of the Libra/Aries Full Moon, specifically for 2:05:15pm
+PDT (7 hours before UTC) on Thursday, October 1, 2020 for Seattle, WA (122W19:59,
+47N36:35).</p>
 
 <p class=C>This is one more “virtual file” that’s obscure and only useful in
 certain circumstances, named “nul” which may be passed to the -i file input or
@@ -3894,10 +4021,10 @@
 <p class=A><span class=S>-o &lt;file&gt; [..]:</span> Write parameters of
 current chart to file.</p>
 
-<p class=B>The program supports directing chart information to, and reading
-output from, data files. The '-o' option will dump all the birth data (the date
-and location, not the planet positions) to the specified file. The '-i' option
-will cast the chart based on the info in the file. (This allows you to put your
+<p class=B>The program supports directing chart information to, and reading output
+from, data files. The '-o' option will dump all the birth data (the date and
+location, not the planet positions) to the specified file. The '-i' option will
+cast the chart based on the info in the file. (This allows you to put your
 birth data into a specific file, and cast your chart whenever you want to after
 that without having to reenter your birth data all the time.) Note that double
 quote characters in the name or location fields will be converted to single
@@ -3954,15 +4081,22 @@
 program will be able to read in both formats, leaving the Uranians
 uninitialized at 0Aries if they aren't also in the file.</p>
 
+<p class=A><span class=S>-od &lt;file&gt;:</span> Output program's current
+settings to switch file.</p>
+
+<p class=B>This switch will output program settings to the specified file, or
+in other words generate the contents of astrolog.as. It duplicates the effect
+of the “File / Save Settings” menu command in the Windows version.</p>
+
 <p class=A><span class=S>-os &lt;file&gt;, &gt; &lt;file&gt;:</span> Redirect
 output of text charts to file.</p>
 
 <p class=B>This switch, given a file, will output the contents of a text chart
 to that file. This is just like output redirection (i.e. “&gt; textfile” at the
-end of a command line) except that it’s implemented within the program. Hence
-unlike output redirection it will work from within a -Q loop, from the File Run
-menu in Microsoft Windows, and on systems whose shells don't allow redirection
-at all. This also has the advantage in that prompts and user messages won't be
+end of a command line) except that it’s implemented within the program. Hence unlike
+output redirection it will work from within a -Q loop, from the File Run menu
+in Microsoft Windows, and on systems whose shells don't allow redirection at
+all. This also has the advantage in that prompts and user messages won't be
 sent to the file, hence things can be done such as “astrolog -os textfile”,
 where the program will still prompt you on the screen for the chart info, but
 the chart itself will still go to the file.</p>
@@ -4009,8 +4143,8 @@
 useful if you are looking for just the transits/aspects of a few planets (e.g.
 -R0 6 7 will cause everything but Jupiter and Saturn to be ignored.) Combining
 all these methods can cause whatever you are looking for in transits and
-aspects to be quickly found without having to wade through lots of data you aren't
-interested in.</p>
+aspects to be quickly found without having to wade through lots of data you
+aren't interested in.</p>
 
 <p class=A><span class=S>-R1 [&lt;obj1&gt; ..]:</span> Like -R0 but unrestrict
 and show all objects.</p>
@@ -4166,10 +4300,9 @@
 to lowest.<br>
 -Un: Alphabetize the stars by name.<br>
 -Ub: Stars will be listed in order from brightest to dimmest.<br>
--Ud: Sort stars by distance from the viewer. Note that determining star
-distances requires Swiss Ephemeris to be the calculation method, and older
-calculation methods will assume all stars are exactly 100 light years away from
-our Sun.<br>
+-Ud: Sort stars by distance from the viewer. Note that determining star distances
+requires Swiss Ephemeris to be the calculation method, and older calculation
+methods will assume all stars are exactly 100 light years away from our Sun.<br>
 -Uv: Sort stars by their longitudinal velocity. Note that determining star velocities
 requires Swiss Ephemeris to be the calculation method, and older calculation
 methods will assume all stars never move.</p>
@@ -4180,8 +4313,8 @@
 <p class=B>If you like many aspects, or only desire the major ones, to be
 included in the aspect grids, specifying -A &lt;number&gt; will limit or extend
 the number of aspects (e.g. -A 2 will make charts with only conjunctions and
-oppositions listed in them, while -A 18 will include all 18 aspects that Astrolog
-supports.)</p>
+oppositions listed in them, while -A 18 will include all 18 aspects that
+Astrolog supports.)</p>
 
 <p class=A><span class=S>-A3:</span> Aspects calculated by latitude combined
 with zodiac position.</p>
@@ -4196,9 +4329,9 @@
 the 3D aspect orb between them may be up to 5 degrees. (If the Sun and Moon are
 conjunct in both zodiac position and latitude, then a solar eclipse is taking
 place.) For bodies with latitudes that can be widely different from the
-ecliptic, such as Pluto, asteroids, and especially fixed stars, the difference
-is more pronounced. For example, a body at 0Leo and -30 latitude will be Square
-a body at 0Leo and +60 latitude, even though they’re both at the same longitude
+ecliptic, such as Pluto, asteroids, and especially fixed stars, the difference is
+more pronounced. For example, a body at 0Leo and -30 latitude will be Square a
+body at 0Leo and +60 latitude, even though they’re both at the same longitude
 and would be considered Conjunct normally.</p>
 
 <p class=A><span class=S>-Ap:</span> Orb limits apply to latitude as well as
@@ -4214,6 +4347,15 @@
 planets both exactly at 15Libra longitude won’t be flagged if their latitudes
 are different by more than the orb for the Conjunction aspect.</p>
 
+<p class=A><span class=S>-AP:</span> Parallel aspects based on ecliptic not
+equatorial positions.</p>
+
+<p class=B>Parallel and contraparallel aspects are usually calculated relative
+to equatorial declination. This switch will instead calculate parallel aspects
+relative to ecliptic latitude. Note that since most planets are on or near the
+ecliptic, aspect orbs should be very narrow to avoid most everything being
+parallel to everything else.</p>
+
 <p class=A><span class=S>-Ao &lt;aspect&gt; &lt;orb&gt;:</span> Specify maximum
 orb for an aspect.</p>
 
@@ -4223,10 +4365,10 @@
 an orb value, the orb used for that particular aspect is updated accordingly.
 Non-integer orb values are allowed. A negative orb value will completely
 eliminate an aspect from ever appearing, although better to simply restrict the
-aspect if you want to do that. For example: astrolog -Ao 2 4 -Ao 4 -1 narrows
-the orb for Oppositions, and eliminates Trines, leaving all the other aspects
-at the default values. Note that for very wide orbs more than one aspect may
-apply for a particular angle, in which case the earlier or more fundamental
+aspect if you want to do that. For example: astrolog -Ao Opp 4 -Ao Tri -1
+narrows the orb for Oppositions, and eliminates Trines, leaving all the other
+aspects at the default values. Note that for very wide orbs more than one aspect
+may apply for a particular angle, in which case the earlier or more fundamental
 aspect is chosen.</p>
 
 <p class=A><span class=S>-Am &lt;planet&gt; &lt;orb&gt;:</span> Specify maximum
@@ -4239,13 +4381,13 @@
 indicate the index of the object, and the second to indicate what the maximum
 orb allowed to it will be. By default, the only objects with restriction are
 the Node, Part of Fortune, Vertex, and fixed stars, which allow a 2 degree max
-orb to them. With this option, one can change these limits or impose
-restrictions for other planets too. Note all stars use the maximum orb given to
-the first star (object #43), and object indexes beyond the first star aren’t
-allowed for this switch. The astrolog.as settings file will read in these
-default planet orbs for all objects.</p>
+orb to them. With this option, one can change these limits or impose restrictions
+for other planets too. Note all stars use the maximum orb given to the first
+star (object #43), and object indexes beyond the first star aren’t allowed for
+this switch. The astrolog.as settings file will read in these default planet
+orbs for all objects.</p>
 
-<p class=A>-<span class=S>Ad &lt;planet&gt; &lt;orb&gt;:</span> Specify orb
+<p class=A><span class=S>-Ad &lt;planet&gt; &lt;orb&gt;:</span> Specify orb
 addition given to a planet.</p>
 
 <p class=B>Ability to widen an aspect orb for any planet is supported with the
@@ -4256,13 +4398,16 @@
 default, the only objects which have orbs widened for them are the Sun and
 Moon, each of which adds one degree to the orb of any aspect to it. With this
 option, one can change these additions or allow other objects to have them,
-too. Note all stars use the orb addition given to the first star (object #43),
-and object indexes beyond the first star aren’t allowed for this switch. The
-astrolog.as file will also read in defaults for these orb additions for all
-planets. (Note that these object orb additions can be added to a negative orb
-for an aspect making it valid, so if you really want to restrict an aspect with
--Ao, it should be a large enough negative value so that the sum of any
-additions between two objects won't make it go positive.)</p>
+too. It can also be used for “moiety” type aspect orbs which vary based on
+planet instead of aspect. (To do this, set all aspect orbs to zero with -Ao,
+and then for each planet set -Ad to half its moiety orb). Note all stars use
+the orb addition given to the first star (object #43), and object indexes
+beyond the first star aren’t allowed for this switch. The astrolog.as file will
+also read in defaults for these orb additions for all planets. (Note that these
+object orb additions can be added to a negative orb for an aspect making it
+valid, so if you really want to restrict an aspect with -Ao, it should be a
+large enough negative value so that the sum of any additions between two
+objects won't make it go positive.)</p>
 
 <p class=A><span class=S>-Aa &lt;aspect&gt; &lt;angle&gt;:</span> Change the
 actual angle of an aspect.</p>
@@ -4283,9 +4428,10 @@
 <p class=B>Astrolog uses the accurate Swiss Ephemeris to compute the positions
 of objects. These include the planets, the Moon and its nodes and Lilith,
 Chiron and the asteroids, and the Uranians and Vulcan. Swiss Ephemeris is also
-used to compute fixed stars and house cusps. The Swiss Ephemeris (version 2.07.01)
-is a compressed version of NASA’s Jet Propulsion Laboratory (JPL) DE431
-ephemeris, and reproduces it with 0.001 arc seconds precision.</p>
+used to compute fixed stars and house cusps. The Swiss Ephemeris (version 2.09.03,
+with modifications to support planetary moons) is a compressed version of NASA’s
+Jet Propulsion Laboratory (JPL) DE431 ephemeris, and reproduces it with 0.001
+arc seconds precision.</p>
 
 <p class=B>The ephemeris files used by the Swiss Ephemeris cover 10,000 years.
 Three different files cover each date range, which are named “se*.se1”, in
@@ -4458,17 +4604,17 @@
 standard, as published in the Astronomical Almanac, for its computations as
 computed before 1984. (Since 1984 the standard has been the DE200 integrations
 by JPL.) The Sun’s position implements the Newcomb theory for all terms &gt;
-0.01&quot;, the positions of Mercury through Mars are done to all terms &gt;
-0.05&quot;, while “Brown’s improved lunar ephemeris” is used such that the Moon
-is within 3&quot; of DE200. For the asteroids, at the conclusion of the
-integration process computing their files, the uncertainty error had reached
-8.0E-11 AU after CPJV_29, and 4.9E-10 AU after CPJV_m2. Placalc’s fraction of
-second precision, is of course much more accurate when compared to the Matrix
-positions, which are only accurate to about one minute (and several degrees for
-Chiron, as well as the four asteroids) for the 20th century only. For example,
-at 1800 CE/AD, the Matrix positions for the outer planets are off by 2 degrees,
-and about 1 degree for 2100; by 1500 CE/AD, Matrix is off by 14 degrees for
-Pluto while Chiron is barely in the right hemisphere any more.</p>
+0.01&quot;, the positions of Mercury through Mars are done to all terms &gt; 0.05&quot;,
+while “Brown’s improved lunar ephemeris” is used such that the Moon is within 3&quot;
+of DE200. For the asteroids, at the conclusion of the integration process
+computing their files, the uncertainty error had reached 8.0E-11 AU after
+CPJV_29, and 4.9E-10 AU after CPJV_m2. Placalc’s fraction of second precision,
+is of course much more accurate when compared to the Matrix positions, which
+are only accurate to about one minute (and several degrees for Chiron, as well
+as the four asteroids) for the 20th century only. For example, at 1800 CE/AD,
+the Matrix positions for the outer planets are off by 2 degrees, and about 1
+degree for 2100; by 1500 CE/AD, Matrix is off by 14 degrees for Pluto while
+Chiron is barely in the right hemisphere any more.</p>
 
 <p class=B>Placalc uses ephemeris files for some planets which must be in a
 directory specified at compile time or covered by one of the environment
@@ -4618,8 +4764,8 @@
 conveniently output files in the Placalc format. Note that the requirements for
 use of those asteroid files are the same as that of the rest of Astrolog.</p>
 
-<p class=A><span class=S>-bm:</span> Use inaccurate Matrix formulas when ephemeris
-unavailable.</p>
+<p class=A><span class=S>-bm:</span> Use inaccurate Matrix formulas when
+ephemeris unavailable.</p>
 
 <p class=B>If the Swiss Ephemeris and Placalc are disabled or not compiled in,
 then Astrolog will use a very old set of formulas that don’t include external
@@ -4677,8 +4823,8 @@
 
 <p class=B>House indexes 12 and 13 are the Pullen sinusoidal systems of house
 division. They are relatively new systems similar to Porphyry houses, except they’re
-“smooth” around the zodiac with the MC/Asc ratio or difference being spread in a
-continuous sinusoidal manner from expanded to compressed quadrants. For more
+“smooth” around the zodiac with the MC/Asc ratio or difference being spread in
+a continuous sinusoidal manner from expanded to compressed quadrants. For more
 information about these systems and why they can be considered the “best
 looking” house systems for wheel charts, see: <a
 href="http://www.astrolog.org/astrolog/astsine.htm">http://www.astrolog.org/astrolog/astsine.htm</a>.</p>
@@ -4899,15 +5045,15 @@
 equator instead of the ecliptic i.e. Earth’s orbit. This is the way more
 commonly used in astronomy, and results in real right ascension notation,
 especially when combined with the -s sidereal zodiac and -sh hours and minutes
-display format. This switch makes the declination values in the standard -v listing
-also relative to the equator, instead of the ecliptic latitude displayed by
-default, where “Declination” will be printed at the head of the column instead
-of “Latitude”. (Without this the only way to get such information is from the
-zenith latitudes in the -L astro-graph chart which show the same thing.) Note
-that this setting isn't fully integrated with all of Astrolog’s charts;
-specifically it will distort the values in the -Z local horizon and -L
-astro-graph charts which assume ecliptic positions, and hence -sr shouldn't be
-combined with these options.</p>
+display format. This switch makes the declination values in the standard -v
+listing also relative to the equator, instead of the ecliptic latitude
+displayed by default, where “Declination” will be printed at the head of the
+column instead of “Latitude”. (Without this the only way to get such
+information is from the zenith latitudes in the -L astro-graph chart which show
+the same thing.) Note that this setting isn't fully integrated with all of
+Astrolog’s charts; specifically it will distort the values in the -Z local
+horizon and -L astro-graph charts which assume ecliptic positions, and hence
+-sr shouldn't be combined with these options.</p>
 
 <p class=A><span class=S>-sr0:</span> Like -sr but only display declinations
 instead of latitudes.</p>
@@ -4937,9 +5083,9 @@
 <p class=B>The -sd switch will cause zodiac positions to be displayed as a
 simple decimal degree number in the 360 degree circle. This setting will also apply
 to longitude and latitude values in charts, including the standard -v text
-chart listing and graphic wheel chart, and the -E text mode ephemeris when
-listing latitudes. To return to the default of displaying as degrees and
-minutes within a zodiac sign, use the -sz switch.</p>
+chart listing and graphic wheel chart, and the -E text mode ephemeris when listing
+latitudes. To return to the default of displaying as degrees and minutes within
+a zodiac sign, use the -sz switch.</p>
 
 <p class=A><span class=S>-h [&lt;objnum&gt;]:</span> Compute positions centered
 on specified object.</p>
@@ -4954,10 +5100,7 @@
 chart will always be very close to the Earth, since they’re relatively near
 together in space.) For bodies other than the Sun, this option takes a
 parameter to indicate which planet to center the chart on, e.g. do -h 5 to cast
-a Mars centered chart. Even Moon centered charts are allowed, however note that
-when the old Matrix formulas are being used, the -h option won't ever affect
-the Moon, which will always be displayed as seen from the Earth, no matter what
-the center body is set to, since it’s not a formal planet.</p>
+a Mars centered chart.</p>
 
 <p class=B>The -h central planet setting even supports star objects. This means
 you can cast a chart centered on another star, and see how the stars and
@@ -4971,6 +5114,15 @@
 the Andromeda galaxy is 2.5 million light years away, from its point of view
 all the other stars will appear very close together (within 3.5 arc minutes).</p>
 
+<p class=B>There are a few limitations for charts other than geocentric or
+heliocentric. Planet velocities will be the heliocentric position velocities,
+and apparent positions that take into account the speed of light will be based
+on heliocentric distances (which means using the -YT switch true positions
+setting is recommended). Moon centered charts are allowed, however note that
+when the old Matrix formulas are being used, the -h option won't ever affect
+the Moon, which will always be displayed as seen from the Earth, no matter what
+the center body is set to, since it’s not a formal planet.</p>
+
 <p class=A><span class=S>-p &lt;month&gt; &lt;day&gt; &lt;year&gt;:</span> Cast
 secondary progressed chart for date.</p>
 
@@ -4990,10 +5142,10 @@
 <p class=A><span class=S>-p0 &lt;month&gt; &lt;day&gt; &lt;year&gt;:</span>
 Cast solar arc chart for date.</p>
 
-<p class=B>Solar arc progressions are supported in addition to secondaries.
-Invoke the -p &lt;month&gt; &lt;day&gt; &lt;year&gt; switch as -p0 instead, and
-a chart will be generated with all planets and house cusps progressed forward
-an amount equal in degrees to the number of years that have passed between the
+<p class=B>Solar arc progressions are supported in addition to secondaries. Invoke
+the -p &lt;month&gt; &lt;day&gt; &lt;year&gt; switch as -p0 instead, and a
+chart will be generated with all planets and house cusps progressed forward an
+amount equal in degrees to the number of years that have passed between the
 specified date and the chart in question. The -pd option here (see below)
 specifies the number of days that have to pass per zodiac degree to progress
 forward; by default this is 365.24219. To generate a solar arc chart for the
@@ -5009,13 +5161,13 @@
 (Note that “p1” can be used in all switch contexts that “p” for secondary
 progressions can, and “p0” for solar arc progressions can.)</p>
 
-<p class=A><span class=S>-p[0]t &lt;month&gt; &lt;day&gt; &lt;year&gt;
-&lt;time&gt;:</span> Like -p but specify time too.</p>
+<p class=A><span class=S>-p[0]t &lt;month&gt; &lt;day&gt; &lt;year&gt; &lt;time&gt;:</span>
+Like -p but specify time too.</p>
 
 <p class=B>The -pt switch is just like -p, except in addition to month/day/year
 parameters for the date to progress to, it also takes a fourth parameter for
-the time within the date. Progressed charts usually move so slowly that one
-doesn’t care about time, but time can be specified for extra precision.</p>
+the time within the date. Progressed charts usually move so slowly that one doesn’t
+care about time, but time can be specified for extra precision.</p>
 
 <p class=A><span class=S>-p[0]n:</span> Cast progressed chart based on current
 date now.</p>
@@ -5178,13 +5330,13 @@
 charts. For example, this can be used to force the position of some minor
 thing, like the Vertex, to always be the location of whatever you prefer, like
 the 0 degrees Aries point, or an important midpoint. Then you can do an aspect
-grid, transit search, or whatever, and calculate aspects to midpoints or
-transits over midpoints. The -F switch takes three arguments: first is the
-index of the object to replace, next is the sign to force it to be, and third
-is the degree within the sign. For example, if I want to see if anything is
-making an exact aspect today with my Sun Moon midpoint at 6Sag28, I could do “astrolog
--n -d -F Nod Sag 6.4667”, which would replace the North Node with my Sun Moon
-midpoint in the aspect search.</p>
+grid, transit search, or whatever, and calculate aspects to midpoints or transits
+over midpoints. The -F switch takes three arguments: first is the index of the
+object to replace, next is the sign to force it to be, and third is the degree
+within the sign. For example, if I want to see if anything is making an exact
+aspect today with my Sun Moon midpoint at 6Sag28, I could do “astrolog -n -d -F
+Nod Sag 6.4667”, which would replace the North Node with my Sun Moon midpoint
+in the aspect search.</p>
 
 <p class=A><span class=S>-Fm &lt;objnum&gt; &lt;obj1&gt; &lt;obj2&gt;:</span>
 Force object's position to midpoint.</p>
@@ -5338,18 +5490,18 @@
 Although not directly related to Astrology, the concepts are similar, and
 adding this didn't require much extra code, and since some are interested in
 this, I felt I'd add it in. The biorhythm theory says that we have three main
-types of energy: Physical, Emotional, and Intellectual. These three run in
-continuous wave cycles from high to low, each of which repeats about every 30
-days or so. Therefore, a biorhythm chart for a particular day should describe
-how much energy one has or how they are feeling in this area. Now, Astrolog
-considers biorhythm charts as a type of relationship chart, because in order to
-generate one, two dates or charts are needed: the birth date of the person, and
-the date to cast their chart for. Technically the program will replace the
-standard -v listing of planet positions with the biorhythm chart when -rb is in
-effect. As an example, “-rb file1 file2” will cast the chart for the birthday
-signified by chart1 or chart2 (whichever is older) for the date in the other
-file. Remember that one can substitute the pseudo filename 'tty' to mean get
-the chart info from the terminal instead.</p>
+types of energy: Physical, Emotional, and Intellectual. These three run in continuous
+wave cycles from high to low, each of which repeats about every 30 days or so.
+Therefore, a biorhythm chart for a particular day should describe how much
+energy one has or how they are feeling in this area. Now, Astrolog considers
+biorhythm charts as a type of relationship chart, because in order to generate
+one, two dates or charts are needed: the birth date of the person, and the date
+to cast their chart for. Technically the program will replace the standard -v
+listing of planet positions with the biorhythm chart when -rb is in effect. As
+an example, “-rb file1 file2” will cast the chart for the birthday signified by
+chart1 or chart2 (whichever is older) for the date in the other file. Remember
+that one can substitute the pseudo filename 'tty' to mean get the chart info
+from the terminal instead.</p>
 
 <p class=B>The actual biorhythm chart itself will display, for the day in
 question, what the percentages of the physical, emotional, and intellectual
@@ -5440,9 +5592,9 @@
 like the standard and bi-wheel charts, but with a third and fourth ring of
 planets. The standard or first chart in memory is placed on the outer wheel,
 next in is the second chart in memory, where the third and fourth charts are on
-the inside. (Note this is different from the bi-wheel graphic which has the first
-chart on the inside and the second on the outside.) The house cusps and the
-graphic sidebar if showing will correspond to the info in the first ring. Lines
+the inside. (Note this is different from the bi-wheel graphic which has the
+first chart on the inside and the second on the outside.) The house cusps and
+the graphic sidebar if showing will correspond to the info in the first ring. Lines
 in the middle of the chart will show aspects between planets in any two
 different pairs of charts present. In other words, a bi-wheel shows aspects
 between chart #1 and chart #2, and a tri-wheel shows aspects between chart #1
@@ -5488,27 +5640,26 @@
 this reason, the default for this flag is off for non-Windows systems, although
 it can be made on all the time by setting the appropriate flag in the
 astrolog.as configuration file.) Include the -k switch on the command line, and
-the program will display all charts as before, but change the color
-appropriately for every part of any chart printed! Just try a -w chart, a -g
-grid, or a -t list and see the difference of how much easier it is to find a
-planet or aspect among a large chart! I highly recommend this setting be made on
-by default in the astrolog.as file if your system will support it, especially
-for those who display text charts on the screen more often than they print one
-out.</p>
+the program will display all charts as before, but change the color appropriately
+for every part of any chart printed! Just try a -w chart, a -g grid, or a -t
+list and see the difference of how much easier it is to find a planet or aspect
+among a large chart! I highly recommend this setting be made on by default in
+the astrolog.as file if your system will support it, especially for those who
+display text charts on the screen more often than they print one out.</p>
 
 <p class=B>Color isn't used randomly but is based on logic. Most colors are
 very similar to the ones chosen in the color X charts. In general, everything
 is based on the following rules for elements: By default, Fire is Red, Earth is
 Yellow, Air is Green, and Water is Blue. Zodiac signs and positions are printed
-in the color of their element. Houses are printed in the color of their
-corresponding sign. Planets are printed in the color of the sign they rule. As
-for the other objects, we have the following colors: Asteroids are in bright
-purple (magenta), Uranians are in dim purple, and non-physical points like the
-Node, Fortune, and Vertex are in a bluish gray (dark cyan). Stars are either
-orange if they are bright (magnitude &lt; 1.0) or a dark red if dimmer. For
-aspects we have the following: Conjunctions are Yellow, Oppositions are Blue,
-Squares are Red, Trines are Green, Sextiles are Light Blue (Cyan). For the
-minor aspects we have magenta for inconjunct/semisextile, orange for
+in the color of their element. Houses are printed in the color of their corresponding
+sign. Planets are printed in the color of the sign they rule. As for the other
+objects, we have the following colors: Asteroids are in bright purple
+(magenta), Uranians are in dim purple, and non-physical points like the Node,
+Fortune, and Vertex are in a bluish gray (dark cyan). Stars are either orange
+if they are bright (magnitude &lt; 1.0) or a dark red if dimmer. For aspects we
+have the following: Conjunctions are Yellow, Oppositions are Blue, Squares are
+Red, Trines are Green, Sextiles are Light Blue (Cyan). For the minor aspects we
+have magenta for inconjunct/semisextile, orange for
 semisquare/sesquiquadrature, dark cyan for all the quintiles, dark purple for
 all the septiles, and dark red for all the noviles.</p>
 
@@ -5529,10 +5680,11 @@
 intact. When this setting is on, in the Windows version the Save Chart Text
 Output command will produce HTML format files instead of plain text files, and
 the Copy Chart Text Output command will put “HTML Format” content on the
-Windows clipboard. Note that Web pages have a white background by default, which
-means that output will appear similar to Astrolog screen text when the reverse
-background setting (-Xr switch) is on. That means white text will be black in
-the HTML file, and light gray text will appear dark gray and vice versa.</p>
+Windows clipboard. Note that Web pages have a white background by default,
+which means that output will appear similar to Astrolog screen text when the
+reverse background setting (-Xr switch) is on. That means white text will be
+black in the HTML file, and light gray text will appear dark gray and vice
+versa.</p>
 
 <p class=A><span class=S>-X:</span> Create a graphics chart instead of
 displaying it as text.</p>
@@ -5607,20 +5759,20 @@
 to the -Xo switch. The type of file generated will be an encapsulated
 PostScript graphic (which are usually seen with a .eps extension) meaning that
 it’s made to be inserted into a document and scaled and so on and printed from
-there. A true independent PostScript file which can be sent directly to a
-printer can be generated by specifying -Xp as -Xp0 instead. As with bitmaps, it
-is recommended to include -Xm for a monochrome graphic unless you have a color
+there. A true independent PostScript file which can be sent directly to a printer
+can be generated by specifying -Xp as -Xp0 instead. As with bitmaps, it is
+recommended to include -Xm for a monochrome graphic unless you have a color
 printer, and to include -Xr so the chart is black on a white background (so
 that you don't cover 90% of the page with ink when printing)!</p>
 
 <p class=B>There is a compile time option #define PS in the astrolog.h which
 can be commented out to disable the -Xp switch and all PostScript features.
-Note that on an X window system one may directly print out a bitmap to a
-PostScript printer even without this internal support. One simply brings up an
-Astrolog chart in an X window, or creates a bitmap and displays that bitmap in
-a window using some other graphics program, and then uses the Unix command “xdpr”
-to print it, with a line such as “xdpr -P&lt;postscriptprintername&gt; -device
-ps”, and then clicking on the window to print it to the specified printer. Of
+Note that on an X window system one may directly print out a bitmap to a PostScript
+printer even without this internal support. One simply brings up an Astrolog
+chart in an X window, or creates a bitmap and displays that bitmap in a window
+using some other graphics program, and then uses the Unix command “xdpr” to
+print it, with a line such as “xdpr -P&lt;postscriptprintername&gt; -device ps”,
+and then clicking on the window to print it to the specified printer. Of
 course, the native PostScript charts will look much smoother.</p>
 
 <p class=B>Special thanks to Mr. Brian D. Willoughby who wrote the routines and
@@ -5654,30 +5806,30 @@
 many other drawing applications where one may modify the Astrolog chart, change
 colors, add text, and so on before printing!</p>
 
-<p class=B>Metafiles (and PostScript graphics) have the option to include
-actual system fonts for text, as well as even zodiac sign, planet, and aspect
-glyphs! This will look smoother than having Astrolog fake all the characters
-with 45 degree line segments. There is a setting in the astrolog.as file which
-when set by the user will always use system fonts instead of simulating them.
-If the -XM switch is invoked as -XM0 instead, the status of this flag will be
-toggled for the chart generated. (This switch can be used with PostScript
-charts by specifying “-XM0 -Xp”.) In the PostScript charts, the following
-printer fonts are used: Courier for text, Times Roman for house labels, and
-Astro for Sign, Planet, and Aspect glyphs.</p>
+<p class=B>Metafiles (and PostScript graphics) have the option to use system
+fonts for text, as well as zodiac signs, planets, and aspect glyphs. This will
+look smoother than having Astrolog draw all characters with 45 degree line
+segments. There is a setting in the astrolog.as file which when set by the user
+will always use system fonts instead of simulating them. If the -XM switch is
+invoked as -XM0 instead, the status of this flag will be toggled for the chart
+generated. (This switch can be used with PostScript charts by specifying “-XM0
+-Xp”.) In the PostScript charts, the following printer fonts are used: Courier
+for text, Times Roman for house labels, and Astro for sign, planet, and aspect
+glyphs.</p>
 
 <p class=B>For these metafiles, the following Windows TrueType fonts are used:
 Courier-New for text, Times New Roman for house labels, Wingdings for sign
-glyphs, and Astro for Planets and Aspect glyphs. All of these fonts should be
-installed in your system already except likely Astro. This font, created by
+glyphs, and Astro for planets and aspect glyphs. All of these fonts should be
+installed on your system already except likely Astro. This font, created by
 Kenneth Hirst, is available at <a href="http://www.ffonts.net/Astro.font">http://www.ffonts.net/Astro.font</a>.
 To install it on Windows, unzip this file, then go into the Windows Control
 Panel and select the Fonts icon. Click on the Add button and select the file “astro.ttf”
 that was in the zip archive, and the font will be installed on your system. If
 it’s not installed, the planet and aspect glyphs will appear as letters. (Note:
 If you can't get access to the Astro font, but still want all the other fonts
-to be included, one can set the value of the -YXf “use actual fonts” setting in
-astrolog.as to 2 instead of 1, which will cause only the planet and aspect
-glyphs to be simulated by Astrolog.)</p>
+to be included, then change the value of the -YXf font selection setting so
+none of its digits are 2, which will cause only the planet and aspect glyphs to
+be simulated by Astrolog.)</p>
 
 <p class=B>It is possible that a metafile using all the system fonts may print
 perfectly to a PostScript printer, but a PS file itself won't find the Astro
@@ -5706,8 +5858,8 @@
 These wireframe files are a vector format similar to the PostScript and Windows
 metafile formats, except they’re true 3D models formed of line segments with
 separate X, Y, and Z coordinates. Such wireframe files can be viewed from
-different angles, rendered in perspective, and even explored from inside. With the
-right software and hardware, one could potentially use a 3D printer with an
+different angles, rendered in perspective, and even explored from inside. With
+the right software and hardware, one could potentially use a 3D printer with an
 Astrolog wireframe, and have a physical 3D model of your chart! :)</p>
 
 <p class=B>Most charts in wireframe mode are just lines drawn within a 2D
@@ -5721,11 +5873,11 @@
 diamonds.</p>
 
 <p class=B>More specifically, Astrolog produces wireframe files in the Daedalus
-wireframe format. That is a plain text file format listing the numeric
-coordinates of each line segment, which is simple enough to be edited by hand
-or converted to other 3D formats. The easiest way to view and work with
-Daedalus wireframe files is by loading them into Daedalus, a graphics program
-by the same author. See <a href="http://www.astrolog.org/labyrnth/daedalus.htm">http://www.astrolog.org/labyrnth/daedalus.htm</a>
+wireframe format. That is a plain text file format listing the numeric coordinates
+of each line segment, which is simple enough to be edited by hand or converted
+to other 3D formats. The easiest way to view and work with Daedalus wireframe
+files is by loading them into Daedalus, a graphics program by the same author.
+See <a href="http://www.astrolog.org/labyrnth/daedalus.htm">http://www.astrolog.org/labyrnth/daedalus.htm</a>
 for more about the program Daedalus. Note that Daedalus versions 3.2 and before
 only support monochrome wireframes, so Astrolog needs to be in monochrome mode
 (-Xm switch off) in order for older versions of Daedalus to be able to properly
@@ -5878,9 +6030,10 @@
 <p class=B>For the -XX chart sphere display, it will show only one side of the
 sphere, making it appear as if you’re inside it.</p>
 
-<p class=B>For the -XW world map display, -XG globe display, and -XP polar globe
-display, it will make them show just the world map or globe itself, and not display
-the zenith locations of the chart’s planets or any astro-graph lines.</p>
+<p class=B>For the -XW world map display, -XG globe display, and -XP polar
+globe display, it will make them show just the world map or globe itself, and
+not display the zenith locations of the chart’s planets or any astro-graph
+lines.</p>
 
 <p class=C>Note there is a special case situation that can arise with the -XW,
 -XG, and -XP switches: These displays can be brought up in a window without
@@ -5889,7 +6042,8 @@
 initial values were already there, and if you’re curious, it’s set to be my own
 birth data: 11:01am PST (8 hours before UTC) on Friday, November 19, 1971 in
 Seattle, WA (122W19:59 47N36:35). This info can also be brought up by accessing
-the “-i nul” virtual chart straight from the command line before any other switches.</p>
+the “-i nul” virtual chart straight from the command line before any other
+switches.</p>
 
 <p class=A><span class=S>-Xt:</span> Inhibit display of chart info at bottom of
 graphic.</p>
@@ -5924,7 +6078,7 @@
 of wheel charts, as well as in solar system orbit charts and chart spheres)
 have the option to draw the aspect’s glyph over the middle of the line. This
 switch (and the “Show Glyphs On Aspect Lines” menu command on the “Graphics /
-Show Map Effects” submenu) will label aspect lines in this manner.</p>
+Map Effects” submenu) will label aspect lines in this manner.</p>
 
 <p class=A><span class=S>-Xj:</span> Don't clear screen between chart updates,
 drawing trails.</p>
@@ -5955,24 +6109,24 @@
 
 <p class=B>Astrolog supports displaying thousands of stars in its graphics
 charts. These extra stars will appear in the chart sphere, graphic local
-horizon chart, and constellation map charts. Unlike the actual 47 fixed star objects
-that Astrolog has supported for many versions, these extra stars don’t have
-object indexes, aren’t labeled by default, and can’t be individually restricted
-with the -R switch. In the Windows version and when saved to wireframe files
-they will be colored different shades of gray according to their brightness in
-the night sky. In contexts with a limited color palette these extra stars will
-be either dark gray, light gray, or white depending on their brightness. These
-stars are the complete set of stars from the Swiss Ephemeris file sefstars.txt
-that comes with Astrolog. Altogether there are 1100 stars total by default, and
-when displayed they allow one to see constellations in the sky such as the Big
-Dipper.</p>
+horizon chart, and constellation map charts. Unlike the actual 47 fixed star
+objects that Astrolog has supported for many versions, these extra stars don’t
+have object indexes, aren’t labeled by default, and can’t be individually
+restricted with the -R switch. In the Windows version and when saved to
+wireframe files they will be colored different shades of gray according to
+their brightness in the night sky. In contexts with a limited color palette
+these extra stars will be either dark gray, light gray, or white depending on
+their brightness. These stars are the complete set of stars from the Swiss
+Ephemeris file sefstars.txt that comes with Astrolog. Altogether there are 1100
+stars total by default, and when displayed they allow one to see constellations
+in the sky such as the Big Dipper.</p>
 
 <p class=B>The list of additional stars will only include physical stars and
 skip “virtual” bodies such as the galactic pole, if the “Graphs Include All
 Planets” setting is off (-B0/V0 switches). This will reduce the number of stars
-in the additional stars list from 1111 to 1100. Non-star points like this are apparent
-in the sefstars.txt star list file because they have non-standard magnitudes
-like 0.0 or 999.99.</p>
+in the additional stars list from 1111 to 1100. Non-star points like this are
+apparent in the sefstars.txt star list file because they have non-standard
+magnitudes like 0.0 or 999.99.</p>
 
 <p class=A><span class=S>-XU[0-3]:</span> Like -XU but set whether to show
 larger star dot and name.</p>
@@ -6020,10 +6174,15 @@
 <p class=B>Astrolog’s atlas is graphical! :) It can plot the location of all
 cities in its atlas on the graphic world map and globe displays. To show them,
 turn on this switch (which is also available as the “Show Cities” menu command
-on the “Graphics / Show Map Effects” submenu). Normally all cities are
-displayed in the same color. However, if the aspect line labeling setting (-XA
-switch) is also on, then cities will be colored differently. If the -XL switch
-is invoked with a trailing digit, it will affect how cities are colored:</p>
+on the “Graphics / Map Effects” submenu).</p>
+
+<p class=A><span class=S>-XL[1-5]:</span> Like _XL but set how to color cities
+(when -XA is on).</p>
+
+<p class=B>Normally all cities are displayed in the same color. However, if the
+aspect line labeling setting (-XA switch) is also on, then cities will be
+colored differently. If the -XL switch is invoked with a trailing digit, it
+will affect how cities are colored:</p>
 
 <p class=B>-XL1: Cities are colored one of the seven colors of the rainbow
 based on their country.<br>
@@ -6034,7 +6193,11 @@
 as India) are colored magenta instead.<br>
 -XL4: Like -XL3 but the correct offset (including Daylight Time) is calculated
 for each city based on the current chart time. For past times before a location
-started using time zones, cities are colored gray instead.</p>
+started using time zones, cities are colored gray instead. This Astrolog
+animation shows how time zones have changed and been introduced over 180 years:
+<a href="http://www.astrolog.org/astrolog/screen/timezone.gif">http://www.astrolog.org/astrolog/screen/timezone.gif</a><br>
+-XL5: Color each city an individual color, in one of seven colors of the
+rainbow.</p>
 
 <p class=A><span class=S>-XC:</span> Draw house boundaries or alternate info in
 certain charts.</p>
@@ -6092,10 +6255,10 @@
 Display chart sphere instead of wheel.</p>
 
 <p class=B>Astrolog supports chart spheres, which are like standard chart
-wheels but in 3D. Chart spheres make it easy to see the ecliptic latitude of planets
-in addition to their zodiac longitude. They are most similar to the -Z switch graphic
-local horizon charts, except instead of being a flat rectangular map, the
-celestial sphere is rendered like a globe.</p>
+wheels but in 3D. Chart spheres make it easy to see the ecliptic latitude of
+planets in addition to their zodiac longitude. They are most similar to the -Z
+switch graphic local horizon charts, except instead of being a flat rectangular
+map, the celestial sphere is rendered like a globe.</p>
 
 <p class=B>In a chart sphere, its equator marks the plane of the local horizon.
 Lines are drawn from the center in the four directions, which are labeled
@@ -6119,14 +6282,14 @@
 seen, in which houses 1-6 are below the horizon and houses 7-12 are above, and
 in which houses 1-3 and 10-12 are east of the meridian and houses 4-9 are west
 of the meridian. Display of the houses can be toggled with the show house
-details setting (-XC switch, or the Graphics / Show Map Effects / Show House
-Details command, or with the “d” key). These houses will show either 3D house
+details setting (-XC switch, or the Graphics / Map Effects / Show House Details
+command, or with the “d” key). These houses will show either 3D house
 boundaries or classic 2D house boundaries, based on the 3D houses flag (-c3
 switch, or the Setting / House Settings / 3D Houses command, or with the “a”
 key). Finally, the astronomical constellations will be displayed upon the
 surface of the sphere if the Show Constellations setting is on (-XF switch, or
-with the Graphics / Show Map Effects / Show Constellations command, or with the
-“F” key).</p>
+with the Graphics / Map Effects / Show Constellations command, or with the “F”
+key).</p>
 
 <p class=B>Planets will be plotted on the surface of the sphere based on their
 zodiac position and latitude locations. Most planets will be on or near the
@@ -6156,23 +6319,23 @@
 be rotated and tilted. Two optional parameters to the -XX switch indicate how
 much the sphere should be rotated around its axis, and how much it should be
 tilted toward or away from the viewer. While a window is up, the sphere can be
-rotated left and right with the “{“ and “}” keys (or the Graphics / Globe Tilt
-/ Rotate West and Rotate East menu commands), and can be tilted with the “[“
-and “]” keys (the Graphics / Globe Tilt / Tilt North and Tilt South commands).
-Rotating and tilting is a good way to better visualize the sphere and its
-contents.</p>
+rotated left and right with the “{“ and “}” keys (or the Graphics / Map
+Orientation / Rotate West and Rotate East menu commands), and can be tilted
+with the “[“ and “]” keys (the Graphics / Map Orientation / Tilt North and Tilt
+South commands). Rotating and tilting is a good way to better visualize the
+sphere and its contents.</p>
 
 <p class=A><span class=S>-XW:</span> Simply display an image of the world map.</p>
 
 <p class=B>The world map used by the astro-graph chart is something I
 painstakingly entered the data for by hand using an atlas during a long week. This
-rectangular world map (-XW switch) is very similar to Astrolog’s existing graphic
-astro-graph chart (-L -X switches), except for differences in how the lines are
-labeled. (Users may prefer one style to the other.) You can switch between the
-two styles of rectangular astro-graph chart with the “L” (for classic
-astro-graph chart) and “W” (for world map showing astro-graph lines) hotkeys.
-If you just want to see the map of the world by itself without any astro-graph
-lines on it, also include the -Xi switch.</p>
+rectangular world map (-XW switch) is very similar to Astrolog’s existing
+graphic astro-graph chart (-L -X switches), except for differences in how the
+lines are labeled. (Users may prefer one style to the other.) You can switch
+between the two styles of rectangular astro-graph chart with the “L” (for
+classic astro-graph chart) and “W” (for world map showing astro-graph lines)
+hotkeys. If you just want to see the map of the world by itself without any
+astro-graph lines on it, also include the -Xi switch.</p>
 
 <p class=B>If the 3D houses setting is active (-c3 switch), then overlaying the
 world map will be shown the Earth’s ley line locations. Ley lines are spiritual
@@ -6192,8 +6355,8 @@
 used for maps of the world, as opposed to the standard rectangular map
 projection used in -XW which distorts the polar regions of the globe across the
 top and bottom of the screen. (The Mollewide projection pinches the polar
-regions together, generating a elliptical map, which is similar to the -XG
-globe displays, but which shows the whole world instead of just half.)</p>
+regions together, generating a elliptical map, which is similar to the -XG globe
+displays, but which shows the whole world instead of just half.)</p>
 
 <p class=A><span class=S>-XG[0] [&lt;degrees&gt; [&lt;degrees&gt;]]:</span>
 Display image of world as a globe.</p>
@@ -6210,12 +6373,12 @@
 
 <p class=B>Note that the -XW and -XW0 maps can be animated like this -XG globe
 display can. By default animation of these maps are done by shifting the whole
-map to one side or the other, and won’t update the underlying chart data.
-Because the -XW world map and -XP polar globe displays can be animated just as
-the -XG general globe display can, the -XW and -XP switches accept optional
-parameters on the command line that will specify what degree (from 0 to 359) to
-start the map at, just like the -XG switch does. In addition, the -XG option
-itself accepts a second optional parameter, which is the starting angle for the
+map to one side or the other, and won’t update the underlying chart data. Because
+the -XW world map and -XP polar globe displays can be animated just as the -XG
+general globe display can, the -XW and -XP switches accept optional parameters
+on the command line that will specify what degree (from 0 to 359) to start the
+map at, just like the -XG switch does. In addition, the -XG option itself
+accepts a second optional parameter, which is the starting angle for the
 globe’s tilt, from -90 to +90 degrees.</p>
 
 <p class=B>This globe is a 3D graphic astro-graph chart, which is drawn on a
@@ -6268,37 +6431,88 @@
 this display with a keystroke: press 'P' in any Astrolog window and it will change
 to this display.</p>
 
+<p class=A><span class=S>-XZ:</span> Display telescope chart zoomed in on part
+of sky.</p>
+
+<p class=B>Astrolog features a new chart which shows a particular section of
+sky, like what a telescope presents. It’s similar to the local horizon chart,
+except zoomed in and with more detail. It shows planet disk sizes of the Sun
+and Moon (and planets if you zoom in enough). This is a great way to watch
+solar or lunar eclipses, or transits and occultations of other bodies. (For
+accurate solar eclipse viewing, have topocentric positions turned on to take
+into account where you are on the globe.) If the Earth is unrestricted in a
+geocentric chart, then the Earth will be drawn as its umbra and penumbra
+shadows at the Moon’s distance, for lunar eclipses. This chart also shows Moon
+phases, which means part of the Moon will be in shadow, and the phase
+percentage will be displayed at the bottom of the chart. Phases can be seen on
+other planets too (Mercury and Venus especially, along with outer planets
+although they’re always close to full). Show the telescope with this command
+switch, or the “Graphics / Draw Telescope” command in the Windows version.</p>
+
+<p class=B>In the Windows version, right clicking on the chart will bring up a
+context menu with a dozen commands, allowing one to toggle different settings
+which determine what things are shown in the chart. As with the local horizon
+chart (which shows the entire sky) the telescope chart allows you to toggle
+whether constellation boundaries, zodiac sign boundaries, 2D or 3D house
+boundaries, and the list of all stars are visible. In addition, one can toggle
+whether the Moon and other planets are drawn as crescents (in which the part in
+shadow will be drawn in dark blue) with the -XA switch setting, whether the
+boundaries of planets will always be visible (even when occulted or behind
+another planet) with the -L0 switch setting, whether the horizon line is drawn
+(with the -Xe switch setting), and whether a grid of dots covers the chart
+(with the -XL switch setting). The chart itself can reflect the local horizon
+(with axes of azimuth and altitude), or the ecliptic (with axes of zodiac
+position longitude and ecliptic latitude), determined with the -YXe switch
+setting.</p>
+
+<p class=B>The telescope can track a planet as it moves. An optional argument
+to the -XZ switch specifies the planet to keep in the middle of the chart. In
+the Windows version, the field “Telescope Focuses on This Object” in the
+Graphics Settings dialog controls this. If a planet is not being tracked, then
+the section of sky being looked upon is determined by the map rotation and tilt
+settings. Changing these settings will move the chart view to other areas of
+the sky, and stop any tracking that is in place. The viewing location can also
+be changed by pressing the square and curly bracket hotkeys, or in the Windows
+version by right clicking on the window and dragging.</p>
+
+<p class=B>The number of degrees of sky that’s visible is determined by the
+-YXS switch setting. In the Windows version, the “Graphics / Map Orientation /
+Zoom Out” and “Zoom In” commands will double or halve the number of degrees
+seen. These commands also zoom on other graphics charts, such as the solar
+system orbit and nearby cities charts.</p>
+
 <p class=A><span class=S>-XF:</span> Display maps as constellations on the
 celestial sphere.</p>
 
 <p class=B>A graphics chart showing all 88 of the astronomical constellations
 is available with the -XF switch. When this mode is active, the -XW world map
 and -XG and -XP globe chart modes will draw the outlines of the constellations
-on the celestial sphere instead of continents on the Earth. Pressing the 'F'
-key when a graphics screen is up will toggle this setting on. (If you aren't
-already in one of the map graphics modes, -XF and the 'F' key will switch to
-one.) The constellation maps may be rotated, tilted, and animated and can do
-everything else just like the world maps, and depict the sky as if you were
-looking up at it from Earth. In the -Xi display modification mode, the
-locations of the planets in the current chart will be shown among the
-constellations. The constellations are labeled with their correct
-abbreviations, and you can see the familiar image outlines such as the Great
-Bear, Cygnus, and all the others, as well as the constellations named after the
-twelve signs of the zodiac, and how these astrological signs compare with their
-corresponding constellations. I happen to have four planets in my own natal chart
-in the constellation Ophiuchus, while there are several other constellations
-very close to the ecliptic which planets (other than the Sun) sometimes enter,
-e.g. in my own chart my Pluto is in the constellation Coma Berenices
-(Berenice's Hair). As with Astrolog’s map of the world, I entered the data
-describing the irregular shape of each constellation myself, and the boundaries
-are accurate although rounded to the nearest degree. This is a unique feature
-that isn't in many astronomical programs much less astrological! For a demo of
-this, do “astrolog -i yourchartfile -XF -XG -Xn -XU” and see a rotating
-celestial sphere of the constellations and stars, and where the planets in your
-natal chart are located within them.</p>
-
-<p class=A><span class=S>-Xn [&lt;mode&gt;]:</span> Start up chart or globe display
-in animation mode.</p>
+on the celestial sphere instead of continents on the Earth. This mode will also
+draw constellations on the -XX chart sphere, -XZ telescope, and -Z -X local
+horizon chart views. Pressing the 'F' key when a graphics screen is up will
+toggle this setting on. (If you aren't already in one of the map graphics
+modes, -XF and the 'F' key will switch to one.) The constellation maps may be
+rotated, tilted, and animated and can do everything else just like the world
+maps, and depict the sky as if you were looking up at it from Earth. In the -Xi
+display modification mode, the locations of the planets in the current chart
+will be shown among the constellations. The constellations are labeled with
+their correct abbreviations, and you can see the familiar image outlines such
+as the Great Bear, Cygnus, and all the others, as well as the constellations
+named after the twelve signs of the zodiac, and how these astrological signs
+compare with their corresponding constellations. I happen to have four planets
+in my own natal chart in the constellation Ophiuchus, while there are several
+other constellations very close to the ecliptic which planets (other than the
+Sun) sometimes enter, e.g. in my own chart my Pluto is in the constellation Coma
+Berenices (Berenice's Hair). As with Astrolog’s map of the world, I entered the
+data describing the irregular shape of each constellation myself, and the
+boundaries are accurate although rounded to the nearest degree. This is a
+unique feature that isn't in many astronomical programs much less astrological!
+For a demo of this, do “astrolog -i yourchartfile -XF -XG -Xn -XU” and see a
+rotating celestial sphere of the constellations and stars, and where the
+planets in your natal chart are located within them.</p>
+
+<p class=A><span class=S>-Xn [&lt;mode&gt;]:</span> Start up chart or globe
+display in animation mode.</p>
 
 <p class=B>The -Xn [&lt;value&gt;] option can be used to start up an X window
 in animation mode. It a window, one would have to explicitly press 'N' or a
@@ -6325,9 +6539,9 @@
 <p class=B>The -XM2, -XM3, and -XM4 switches allow different graphics to be
 used for different rings in a bi-wheel, tri-wheel, or quad-wheel chart. The
 switches take 2, 3, or 4 string parameters respectively, and each string is a
-command line that gets automatically applied before drawing that ring. For
-example, you can do things such as have rings with different glyphs, different
-character scales, or different restrictions.</p>
+command line that gets automatically applied before drawing that ring. For example,
+you can do things such as have rings with different glyphs, different character
+scales, or different restrictions.</p>
 
 <p class=A><span class=S>-HX:</span> Display list of key press options for
 screen graphics.</p>
@@ -6345,11 +6559,11 @@
 
 <p class=B>For the Windows version only, this obscure switch allows one to
 invoke a menu command from a command line, taking one numeric parameter
-indicating the item to run. Values 40001 through 40266 are valid menu commands,
+indicating the item to run. Values 40001 through 40270 are valid menu commands,
 where the list of what number corresponds to what command is in the resource.h
-source file. An example use of this is to put “-W 40041” in your astrolog.as
+source file. An example use of this is to put “-W 40042” in your astrolog.as
 file which will start the program with the “Chart Resizes Window” setting on by
-default. Another example is having “-W 40239” on the command line of the
+default. Another example is having “-W 40241” on the command line of the
 program’s icon to have the Chart Info dialog come up on startup.</p>
 
 <p class=A><span class=S>-WN &lt;1-32000&gt;:</span> Set animation update delay
@@ -6407,6 +6621,13 @@
 href="http://www.astrolog.org/astrolog/screen/dipper2.gif">http://www.astrolog.org/astrolog/screen/dipper2.gif</a>
 covering a million years was generated with -Wt on.</p>
 
+<p class=A><span class=S>-Ww &lt;hor&gt; &lt;ver&gt;:</span> Set upper left
+coordinates of window.</p>
+
+<p class=B>In the Windows version, this switch (taking two parameters) will
+change the coordinates of the origin of the program’s window. This is a way to
+precisely or programmatically position or move the window.</p>
+
 <p class=A><span class=S>-WB &lt;0-24&gt; &lt;0-24&gt;:</span> Set window
 scrollbar positions.</p>
 
@@ -6506,10 +6727,10 @@
 mode. “Astrolog /c” and “Astrolog /a” (configure screen saver) will run in
 windowed mode. “Astrolog /p” (preview screen saver) will do nothing. One can
 invoke Astrolog with these switches to test its screen saver functionality, or
-use the -WZ switch, which will turn on the internal mode which makes the program
-exit on the next user action.</p>
+use the -WZ switch, which will turn on the internal mode which makes the
+program exit on the next user action.</p>
 
-<p class=Section2>Astrolog (version 7.00) obscure command switches:</p>
+<p class=Section2>Astrolog (version 7.10) obscure command switches:</p>
 
 <p class=A><span class=S>-Y:</span> Display help list of less commonly used
 command switches.</p>
@@ -6528,8 +6749,8 @@
 arc-minute ahead of apparent positions, e.g. light from the Sun takes about 8
 minutes to reach Earth, so the Sun has moved forward another 8 clock minutes
 through the zodiac. For the -S orbit chart, in which one is looking down at the
-solar system as a whole, it’s recommended to have true positions on (and topocentric
-positions off).</p>
+solar system as a whole, it’s recommended to have true positions on (and
+topocentric positions off).</p>
 
 <p class=A><span class=S>-YV:</span> Compute topocentric positions instead of
 from center of body.</p>
@@ -6546,10 +6767,9 @@
 Earth) and when planets are near the horizon, because in those cases parallax
 has the biggest opportunity to alter positioning. Topocentric positions require
 Swiss Ephemeris to be active (which it is by default) in order to work, and
-also for the chart to be geocentric. For the -Z local horizon chart, in which
-one is looking at points of light in the sky from their local position on
-Earth, it’s recommended to have topocentric positions on (and true positions
-off).</p>
+also for the chart to be geocentric. For the -Z local horizon chart, in which one
+is looking at points of light in the sky from their local position on Earth,
+it’s recommended to have topocentric positions on (and true positions off).</p>
 
 <p class=A><span class=S>-Yh:</span> Compute location of solar system
 barycenter instead of Sun.</p>
@@ -6565,6 +6785,22 @@
 position in geocentric charts by up to half a degree. In heliocentric charts,
 all positions will be relative to the barycenter instead of to the Sun.</p>
 
+<p class=N><span class=S>-Ym:</span> Position planetary moons around current central
+object.</p>
+
+<p class=B>This switch turns on a mode such that planetary moons and other
+objects orbiting planets are displayed as orbiting the central object instead.
+This will also affect Earth’s Moon, the Moon’s Nodes, and Lilith. (In addition,
+when another star is the central object, planets orbiting our Sun will instead
+be made to orbit the other star system.) Planetary moons are usually very close
+to the planet they orbit, making it necessary to do a planet centered chart to
+get a good look at the relative orientation of its moons. In other words, this
+option overlays planet centered moon positions with the standard natal chart.
+Because a planet is a mini-solar system, there can be sympathetic connections
+between moons around a planet, and planets around the Sun at the same relative
+angle (or even between moons around different planets that are at the same
+relative angles).</p>
+
 <p class=A><span class=S>-Ys:</span> Sidereal zodiac positions are in plane of
 solar system.</p>
 
@@ -6586,6 +6822,14 @@
 also affects whether Lilith (object number 18) is the mean or true Dark Moon. The
 mean node is the default, but toggling on the -Yn flag will do the true node.</p>
 
+<p class=A><span class=S>-Yn0:</span> Don't consider nutation in tropical
+zodiac positions.</p>
+
+<p class=B>Astrolog (and the Swiss Ephemeris that it uses) takes into account
+nutation, or the periodic subtle wobble of Earth’s axis. The new -Yn0 switch
+will turn nutation off for the tropical zodiac. (Nutation is always properly
+ignored in the fixed sidereal zodiac.)</p>
+
 <p class=A><span class=S>-Yu:</span> Display eclipse and occultation
 information in charts.</p>
 
@@ -6602,12 +6846,13 @@
 Moon is in the Earth’s shadow, i.e. some part of the Moon’s surface is
 experiencing a partial Solar eclipse), or total penumbral (a semi-rare
 condition in which all of the Moon is within the Earth’s penumbra, but no part
-of the Moon is in the full umbra). Note that for accurate Solar Eclipse times,
-such as detecting when totality begins and ends, your location on Earth is very
-important, so you should have topocentric positions on (-YV switch). Similarly,
-for Lunar Eclipses you want to consider the effect of Earth’s shadow from the
-geocentric middle of the planet, which means you should have topocentric
-positions off.</p>
+of the Moon is in the full umbra). Eclipses are marked as total or annular only
+if you’re in the eclipse’s path during the time of totality or annularity. Note
+that for accurate Solar Eclipse times, such as detecting when totality begins
+and ends, your location on Earth is very important, so you should have
+topocentric positions on (-YV switch). Similarly, for Lunar Eclipses you want
+to consider the effect of Earth’s shadow from the geocentric middle of the
+planet, which means you should have topocentric positions off.</p>
 
 <p class=B>If the print nearest minute setting (-b0 switch) is in effect, then
 any eclipses will include the percentage of the planet’s diameter involved. For
@@ -6620,10 +6865,10 @@
 
 <p class=B>The transit to transit graphs (-B switch) will graph the intensity
 of an eclipse over time. In the text mode transit graph, times during eclipses
-will be marked by special characters: Total eclipses or occultations are indicated
-by “T”, annular eclipses or transits are “A”, partial eclipses are “P”, and
-penumbral lunar eclipses are “p”. In graphics mode, a second graph will be
-drawn in dark blue overlapping the first. The height of this graph will
+will be marked by special characters: Total eclipses or occultations are
+indicated by “T”, annular eclipses or transits are “A”, partial eclipses are
+“P”, and penumbral lunar eclipses are “p”. In graphics mode, a second graph
+will be drawn in dark blue overlapping the first. The height of this graph will
 indicate the type of eclipse and its percentage progression: Penumbral eclipses
 will range from 1/12 to 3/12 height of the area, partial eclipses will range
 from 5/12 to 7/12, and annular or total from 9/12 to 11/12. These three “zones”
@@ -6704,13 +6949,13 @@
 can be used to prevent text from wrapping around the screen to the next line.
 By default, with all objects unrestricted, certain charts will have rows more
 than 80 columns wide, which can break up the chart making it difficult to read,
-e.g. the -r0 -g relationship aspect grid, the -E ephemeris listing, and the -L astro-graph
-columns when Uranians are included. With this option on however, these and any
-other charts that can go beyond column 80, will always be displayed on one
-line, with columns that would go beyond the 80th not getting printed. Note that
-this setting can actually clip at any column instead of just the 80th, where
-the screen width value used is the same as used for interpretation formatting,
-i.e. the optional parameter to the -I switch.</p>
+e.g. the -r0 -g relationship aspect grid, the -E ephemeris listing, and the -L
+astro-graph columns when Uranians are included. With this option on however,
+these and any other charts that can go beyond column 80, will always be
+displayed on one line, with columns that would go beyond the 80th not getting
+printed. Note that this setting can actually clip at any column instead of just
+the 80th, where the screen width value used is the same as used for
+interpretation formatting, i.e. the optional parameter to the -I switch.</p>
 
 <p class=A><span class=S>-YQ &lt;rows&gt;:</span> Pause text scrolling after a
 page full has printed.</p>
@@ -6775,15 +7020,19 @@
 <p class=A><span class=S>-Yc:</span> Angular cusp objects are house positions
 instead of angles.</p>
 
-<p class=B>This obscure switch determines whether the angular house cusp
-objects (i.e. object indexes 22, 25, 28, and 31) contain the position of their
-respective house cusps, or the positions of the Ascendant, Nadir, Descendant,
-and Midheaven. These positions are always the same except for certain house
-systems, e.g. in the Equal house system the position of the 10th cusp is
-different from the Midheaven. Normally the angular house objects always contain
-the positions of the Asc, MC, etc, however this feature gives the user the
-option to have the objects’ contents be the positions of the cusps as defined
-by the house system in use.</p>
+<p class=B>This switch determines whether the angular house cusp objects (i.e. object
+indexes 22, 25, 28, and 31) contain the position of their respective house
+cusps, or the positions of the Ascendant, Nadir, Descendant, and Midheaven.
+These positions are always the same except for certain house systems, e.g. in
+the Equal house system the position of the 10th cusp is different from the
+Midheaven. Normally the angular house objects always contain the positions of
+the Asc, MC, etc, however this feature gives the user the option to have the
+objects’ contents be the positions of the cusps as defined by the house system
+in use. Similarly, the default graphic glyphs for the Asc/MC/Des/IC objects are
+those letter abbreviations. When this setting is on, the default graphic glyphs
+will instead be the number of the house cusp, and also the display text used
+for the object will indicate the house number instead of the angle’s name. This
+will make it clearer what is actually being shown, transited over, and so on.</p>
 
 <p class=A><span class=S>-Yp:</span> Fix polar houses by preserving Ascendant
 instead of MC.</p>
@@ -6801,8 +7050,8 @@
 
 <p class=B>This obscure switch, taking one parameter for the number of minutes,
 allows one to offset forward or backward the time considered to be the current
-moment now. This is useful if your -n now charts always seem to be a few hours
-or whatever off, as seems to be the case on certain Mac or Amiga systems. For
+moment now. This is useful if your -n now charts always seem to be a few hours or
+whatever off, as seems to be the case on certain Mac or Amiga systems. For
 example, if -n says it’s 3:30pm when it’s really 1:30pm, doing “-Yz -120” will
 back up the clock appropriately (and change the planetary positions slightly
 too). It’s important that this switch be used as a last resort instead of
@@ -6825,8 +7074,8 @@
 no effect if the two parameters are the same (and the “0” part isn’t active).
 This general feature allows generating certain types of charts, such as Esoteric
 Astrology wheels and Draconic charts. A Draconic chart is where all planet
-positions are rotated such that the North Node is at 0Aries, which means “-Y1
-Nod Vul” (with “Vul” being a restricted object or one forced to be located at
+positions are rotated such that the North Node is at 0Aries, which means “-Y1 Nod
+Vul” (with “Vul” being a restricted object or one forced to be located at
 0Aries) will produce a Draconic chart.</p>
 
 <p class=A><span class=S>-Yl &lt;1-36&gt;:</span> Toggle plus zone status of
@@ -6895,6 +7144,26 @@
 for an index of which asteroids map to which numbers. You may also want to
 change the object’s name and graphic glyph to complete the customization.</p>
 
+<p class=N><span class=S>-Yem &lt;obj&gt; &lt;index&gt;:</span> Change orbit of
+Uranian to planet moon ephemeris.</p>
+
+<p class=B>Astrolog can access planetary moons whose positions are in Swiss
+Ephemeris format ephemeris files (such as Saturn’s Titan and Jupiter’s Ganymede)
+with the -Yem switch. This is like -Yeb, except it references a planetary moon
+ephemeris file instead of an asteroid ephemeris file. Planetary moon ephemeris
+files have filenames like “sepm9XYZ.se1”, in which “XYZ” is the designation for
+the moon. In this designation, “X” is the planet being orbited (4=Mars,
+5=Jupiter, 6=Saturn, 7=Uranus, 8=Neptune, 9=Pluto) and “YZ” is the moon in
+question. For example, “sepm9501.se1” defines Jupiter’s Moon Io. This moon can
+be assigned to Cupido’s object slot with “-Yem Cup 501”. Also, “moon” #99 is
+the true non-barycentric position of the planet, e.g. “sepm9599.se1” defines
+the actual position of Jupiter’s center of body taking into account the
+gravitational perturbations of its moons (in comparison to the standard Jupiter
+planet object which is the center of mass of the Jupiter system). For more
+about planetary moons, how to use and interpret them in astrology, and how to
+display them in Astrolog, see: <a
+href="http://www.astrolog.org/astrolog/astmoon.htm">http://www.astrolog.org/astrolog/astmoon.htm</a></p>
+
 <p class=A><span class=S>-YeO &lt;obj1&gt; &lt;obj2&gt;:</span> Change orbit of
 Uranian to internal planet.<br>
 <span class=S>-Ye[..]n &lt;obj&gt; &lt;index&gt;:</span> Change Uranian to
@@ -6906,25 +7175,25 @@
 <span class=S>-Ye[..]p &lt;obj&gt; &lt;index&gt;:</span> Change Uranian to
 perihelion of object.</p>
 
-<p class=B>Astrolog can access the nodes and helion points of planets, by defining
-them as custom bodies. The -Ye command switch can be invoked in four different
-ways to select these points: -Yen for the north or ascending node, -Yes for the
-south or descending node, -Yep for the perihelion point or point on its orbit
-nearest the Sun, and -Yea for the aphelion point or point farthest from the
-Sun. (For the Moon, -Yep and -Yea produce the perigee and apogee points nearest
-to and farthest from the Earth.) These four points exist in space, and the
-planet in question will pass through them along its orbit. As with the Moon’s
-nodes, Astrolog’s true node vs. mean node setting (-Yn switch) will influence
-these positions. The -Ye switch is invoked in one of three ways to indicate the
-type of object in question: -Ye by itself for fictitious bodies in seorbel.txt,
--Yeb for asteroids in custom ephemeris files, and -YeO for an existing planet
-in Astrolog’s standard list. For example, “-Yen Cup 9” redefines Cupido’s slot
-to be the north node of Transpluto or seorbel.txt object #9, “-Yebs Cup 9”
-redefines Cupido to be the south node of the asteroid Metis assuming
-se00009s.se1 has been downloaded, and “-YeOa Cup 9” redefines Cupido to be the
-aphelion point of Neptune or Astrolog object #9. (Warning: The -Yen example and
-others like it don’t actually work, because node and helion points of
-seorbel.txt objects aren’t implemented yet.)</p>
+<p class=B>Astrolog can access the nodes and helion points of planets, by
+defining them as custom bodies. The -Ye command switch can be invoked in four
+different ways to select these points: -Yen for the north or ascending node,
+-Yes for the south or descending node, -Yep for the perihelion point or point
+on its orbit nearest the Sun, and -Yea for the aphelion point or point farthest
+from the Sun. (For the Moon, -Yep and -Yea produce the perigee and apogee
+points nearest to and farthest from the Earth.) These four points exist in
+space, and the planet in question will pass through them along its orbit. As
+with the Moon’s nodes, Astrolog’s true node vs. mean node setting (-Yn switch)
+will influence these positions. The -Ye switch is invoked in one of three ways
+to indicate the type of object in question: -Ye by itself for fictitious bodies
+in seorbel.txt, -Yeb for asteroids in custom ephemeris files, and -YeO for an
+existing planet in Astrolog’s standard list. For example, “-Yen Cup 9”
+redefines Cupido’s slot to be the north node of Transpluto or seorbel.txt
+object #9, “-Yebs Cup 9” redefines Cupido to be the south node of the asteroid
+Metis assuming se00009s.se1 has been downloaded, and “-YeOa Cup 9” redefines
+Cupido to be the aphelion point of Neptune or Astrolog object #9. (Warning: The
+-Yen example and others like it don’t actually work, because node and helion
+points of seorbel.txt objects aren’t implemented yet.)</p>
 
 <p class=A><span class=S>-Ye[..]HSBNTV &lt;obj&gt; &lt;index&gt;:</span> Toggle
 heliocentric, sidereal zodiac, barycentric, true node, true position, or
@@ -6968,14 +7237,14 @@
 like only one is needed. The second and third values are used as linear and
 quadratic error factors to the first, and can be zero unless every last bit of
 accuracy that can be provided outside of ephemeris files is needed. Note that
-these parameters basically replace the same elements as used in the old Matrix
-formulas. This means the -YE switch settings are ignored when the -b ephemeris
-flag is in effect. Note also that the Matrix formulas have special error
-factors applied on top of their main elements for Jupiter through Pluto, hence
-it’s recommended to only redefine asteroids, Uranians, or inner planets. The
-following example will roughly move Venus into Earth’s orbit: “-YE 4 1 0 0 0 0
-0 0 0 0 0 0 0 0 0 0 23000”. Note this feature requires the old Matrix formulas
-(-bm switch) to be on in order to take effect.</p>
+these parameters basically replace the same elements as used in the old Matrix formulas.
+This means the -YE switch settings are ignored when the -b ephemeris flag is in
+effect. Note also that the Matrix formulas have special error factors applied
+on top of their main elements for Jupiter through Pluto, hence it’s recommended
+to only redefine asteroids, Uranians, or inner planets. The following example
+will roughly move Venus into Earth’s orbit: “-YE 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 23000”. Note this feature requires the old Matrix formulas (-bm switch) to be
+on in order to take effect.</p>
 
 <p class=A><span class=S>-YU &lt;obj&gt; &lt;name&gt;:</span> Change position
 of star to sefstars.txt entry.</p>
@@ -7014,8 +7283,8 @@
 (which is defined as the magnitude of the star when viewed from 10 parsecs or
 32.6 light years away).</p>
 
-<p class=A><span class=S>-YR &lt;obj1&gt; &lt;obj2&gt;
-&lt;flag1&gt;..&lt;flag2&gt;:</span> Set restrictions for object range.</p>
+<p class=A><span class=S>-YR &lt;obj1&gt; &lt;obj2&gt; &lt;flag1&gt;..&lt;flag2&gt;:</span>
+Set restrictions for object range.</p>
 
 <p class=B>This is like the -R switch except that it explicitly sets the
 restrictions for a range of Astrolog objects instead of just one. The first two
@@ -7023,8 +7292,8 @@
 or one flag parameters to clear or set the restriction status of each object
 within the range.</p>
 
-<p class=A><span class=S>-YRT &lt;obj1&gt; &lt;obj2&gt; &lt;flag1&gt;..&lt;flag2&gt;:</span>
-Transit restrictions for range.</p>
+<p class=A><span class=S>-YRT &lt;obj1&gt; &lt;obj2&gt;
+&lt;flag1&gt;..&lt;flag2&gt;:</span> Transit restrictions for range.</p>
 
 <p class=B>This behaves exactly like the -YR switch above except it affects
 transit restrictions, like how the -RT switch is to -R.</p>
@@ -7055,12 +7324,13 @@
 
 <p class=B>This switch controls what types of rulerships and exaltations are
 shown in charts. It takes five parameters, one for each of the five types of
-rulerships: Standard rulerships, esoteric rulerships, Hierarchical rulerships, exaltations,
-and Ray Rulerships. As with other restriction switches, a zero value means
-show, and non-zero means restrict. The astrolog.as default settings file
-contains a line for these variables. Rulership restrictions will affect what’s
-shown in the standard -v chart list, what’s shown in the -7 esoteric chart, and
-also what set of rulerships is used in the graphic -J switch dispositor chart.</p>
+rulerships: Standard rulerships, esoteric rulerships, Hierarchical rulerships,
+exaltations, and Ray Rulerships. As with other restriction switches, a zero
+value means show, and non-zero means restrict. The astrolog.as default settings
+file contains a line for these variables. Rulership restrictions will affect
+what’s shown in the standard -v chart list, what’s shown in the -7 esoteric
+chart, and also what set of rulerships is used in the graphic -J switch
+dispositor chart.</p>
 
 <p class=A><span class=S>-YRd &lt;div&gt;:</span> Set divisions within signs to
 search for degree changes.</p>
@@ -7097,9 +7367,9 @@
 -YRU switch will restrict certain stars from appearing, while the -YRU0 switch
 will make only certain stars appear and ignore all the rest. It takes one
 parameter, a comma separated list of strings indicating star names. For
-example, “-YRU0 Alkaid,Mizar,Alioth,Megrez,Phecda,Merak,Dubhe” will make the
-extra stars feature only show the seven stars of the Big Dipper, and skip all
-other stars.</p>
+example, “-YRU0 Alkaid,Mizar,Alioth,Megrez,Phecda,Merak,Dubhe” will make the extra
+stars feature only show the seven stars of the Big Dipper, and skip all other
+stars.</p>
 
 <p class=A><span class=S>-YAo &lt;asp1&gt; &lt;asp2&gt;
 &lt;orb1&gt;..&lt;orb2&gt;:</span> Set aspect orbs for range.</p>
@@ -7241,8 +7511,8 @@
 this switch. The first two parameters are the low and high sign indexes to
 change. The next parameters are the set of Rays for each sign within those
 indexes. Since a sign may be associated with more than one Ray, each setting
-change may be multiple digits, for example “-Y7C Cap Cap 137” will make Capricorn
-associated with Rays 1, 3, and 7.</p>
+change may be multiple digits, for example “-Y7C Cap Cap 137” will make
+Capricorn associated with Rays 1, 3, and 7.</p>
 
 <p class=A><span class=S>-YI &lt;obj&gt; &lt;string&gt;:</span> Customize
 interpretation for object.<br>
@@ -7312,7 +7582,7 @@
 <p class=B>Astrolog can customize the colors as used for almost anything in the
 program. A color may be set to any one of 16 values, represented by the numbers
 0 to 15, which are: 0 - Black, 1 - Maroon, 2 - DkGreen, 3 - Orange, 4 - DkBlue,
-5 - Purple, 6 - DkCyan, 7 - LtGray, 8 - DkGray, 9 - Red, 10 - Green, 11 - Yellow,
+5 - Purple, 6 - DkCyan, 7 - LtGray, 8 - Gray, 9 - Red, 10 - Green, 11 - Yellow,
 12 - Blue, 13 - Magenta, 14 - Cyan, 15 - White. When entering a color as a
 parameter, use the correct number above, or else type the color’s name as
 printed above (which may be abbreviated to the first three characters). The
@@ -7342,10 +7612,10 @@
 
 <p class=B>-YkA &lt;asp1&gt; &lt;asp2&gt; &lt;colors&gt; switch: This defines
 the colors used for a range of aspects. The first two parameters are the lower
-and upper indexes of the aspects to modify, and are followed by one color
-parameter for each aspect in the range. For example, to highlight Trines by
-making them white and all the other major aspects dark blue, do “-YkA 1 5 dkb
-dkb dkb whi dkb”.</p>
+and upper indexes of the aspects to modify, and are followed by one color parameter
+for each aspect in the range. For example, to highlight Trines by making them
+white and all the other major aspects dark blue, do “-YkA 1 5 dkb dkb dkb whi
+dkb”.</p>
 
 <p class=B>-Yk7 &lt;val1&gt; &lt;val2&gt; &lt;colors&gt; switch: This defines
 the colors of esoteric Rays. The first two parameters are the low and high Ray
@@ -7356,11 +7626,11 @@
 range of colors used other places in the program (excluding elements and
 aspects) whose default colors are one of the colors of the rainbow. The first
 two parameters are values from 1 to 7 indicating the lower and upper bounds of
-the default colors to redefine, and are followed by new actual colors to use
-instead. The seven indexes represent the colors Red, Orange, Yellow, Green,
-Cyan, Blue, and Purple. For example, if you want to change the color used for
-the Uranians from their default of purple to orange, do “-Yk0 7 7 orange” and
-you've effectively “redefined the color purple”.</p>
+the default colors to redefine, and are followed by new actual colors to use instead.
+The seven indexes represent the colors Red, Orange, Yellow, Green, Cyan, Blue,
+and Purple. For example, if you want to change the color used for the Uranians
+from their default of purple to orange, do “-Yk0 7 7 orange” and you've
+effectively “redefined the color purple”.</p>
 
 <p class=B>-Yk &lt;val1&gt; &lt;val2&gt; &lt;colors&gt; switch: Like -Yk0 above
 this also sets a range of colors as used many places in the program, except
@@ -7368,22 +7638,21 @@
 nine that aren't one of the rainbow colors covered above). Again the first two
 parameters indicate the range of colors to change which are from 0 to 8, and
 are followed by the new colors to use. The nine indexes represent in order the
-colors Black, White, LtGray, DkGray, Maroon, DkGreen, DkCyan, DkBlue, and
+colors Black, White, LtGray, Gray, Maroon, DkGreen, DkCyan, DkBlue, and
 Magenta. For example, to change the highlight color as used in graphics charts
 to draw borders and the like from LtGray to Yellow, do “-Yk 2 2 yellow”. (Note
-that you can use this to even “change” the colors Black and White to draw
-graphics on whatever background color you want.)</p>
+that you can use this to even “change” the colors Black and White to draw graphics
+on whatever background color you want.)</p>
 
 <p class=B>Note that colors can be specified as references to other colors, in
 command switches taking color values as well as in dialog dropdowns in the
-Windows version. For example, &quot;Fire&quot; (the current color of the
-element Fire), &quot;Jupiter&quot; (Jupiter’s current color),
-&quot;Conjunction&quot; (the aspect’s current color), and &quot;Ray3&quot;
-(that Ray’s current color) all work. Color references can be abbreviated by the
-first three characters, or however much is needed to be unique. Note that these
-are one time only input translations to the current value of a particular
-color, and aren’t persistent aliases that will update if the referenced color
-is later changed.</p>
+Windows version. For example, &quot;Fire&quot; (the current color of the element
+Fire), &quot;Jupiter&quot; (Jupiter’s current color), &quot;Conjunction&quot;
+(the aspect’s current color), and &quot;Ray3&quot; (that Ray’s current color)
+all work. Color references can be abbreviated by the first three characters, or
+however much is needed to be unique. Note that these are one time only input
+translations to the current value of a particular color, and aren’t persistent
+aliases that will update if the referenced color is later changed.</p>
 
 <p class=A><span class=S>-YkU &lt;starlist&gt;:</span> Customize list of extra
 star colors.</p>
@@ -7420,6 +7689,8 @@
 displayed in charts, which means command switches and such still need to refer
 to the object by its default name.</p>
 
+<p class=Section2>Switches to access obscure graphics options:</p>
+
 <p class=A><span class=S>-YXG &lt;0-2&gt;&lt;0-2&gt;&lt;0-3&gt;&lt;0-2&gt;:</span>
 Select among different graphic glyphs for Capricorn, Uranus, Pluto, and Lilith.</p>
 
@@ -7450,18 +7721,18 @@
 
 <p class=B>Astrolog can change the glyphs used to display objects in graphics
 charts. The -YXD switch takes three parameters: The object index to rename, and
-two strings which contain the small and large definitions to use for the object’s
-glyph. The small definition measures 9x9 units (and is used when drawing in the
-small 100% character scale), and the large definition measures 17x17 (and is
-used when drawing in the medium 200% character scale). If the large definition
-is the empty string then a double scale version of the small glyph will be used
-for it, and if the small definition is the empty string then the default glyph
-for that object will be used. Glyphs are drawn in vector format by moving a pen
-(similar to the “draw” command in the BASIC programming language) and drawing
-starts from the middle unit coordinate. Strings consist of a sequence of
-actions, each of which starts with a character indicating how to move the pen,
-following by a number indicating how many units to move in that direction (no
-number defaults to one unit).</p>
+two strings which contain the small and large definitions to use for the
+object’s glyph. The small definition measures 9x9 units (and is used when
+drawing in the small 100% character scale), and the large definition measures
+17x17 (and is used when drawing in the medium 200% character scale). If the
+large definition is the empty string then a double scale version of the small
+glyph will be used for it, and if the small definition is the empty string then
+the default glyph for that object will be used. Glyphs are drawn in vector
+format by moving a pen (similar to the “draw” command in the BASIC programming
+language) and drawing starts from the middle unit coordinate. Strings consist
+of a sequence of actions, each of which starts with a character indicating how
+to move the pen, following by a number indicating how many units to move in
+that direction (no number defaults to one unit).</p>
 
 <p class=B>The action characters “U”, “D”, “L”, and “R” move up, down, left,
 and right. Similarly, “E”, “F”, “G”, and “H” move 45 degrees up and to the
@@ -7497,8 +7768,8 @@
 of the wheel chart the decoration extends, as a percentage from 1 to 100. For
 example, if this is 50 then the patterns in each corner will just touch those
 in adjacent corners. Note that values too high will impede display because
-they’ll start overlapping the wheel itself. Parameter #3 is also optional, and indicates
-how many lines are used to compose the spider web pattern.</p>
+they’ll start overlapping the wheel itself. Parameter #3 is also optional, and
+indicates how many lines are used to compose the spider web pattern.</p>
 
 <p class=A><span class=S>-YXg &lt;cells&gt;:</span> Set number of cells for
 graphic aspect grid.</p>
@@ -7586,9 +7857,9 @@
 color to redefine, and the new RGB color value to use for that color index. The
 RGB color value can either be a three comma separated decimal numbers, or the
 “#” character followed by three two character hexadecimal numbers in sequence.
-For example, “-YXK Orange 255,127,0” or “-YXK Orange #ff7f00” will change the
-color “Orange” from the dark yellow that’s the default to an actual fiery
-orange color.</p>
+For example, “-YXK Orange 255,127,0” or “-YXK Orange #ff7f00” will change the color
+“Orange” from the dark yellow that’s the default to an actual fiery orange
+color.</p>
 
 <p class=A><span class=S>-YXe:</span> Align certain charts to plane of ecliptic.</p>
 
@@ -7603,9 +7874,9 @@
 
 <p class=B>In graphics charts, dashed lines are used when drawing aspect lines
 whose orbs aren’t exact, with more space between points indicating a wider orb.
-This switch indicates the maximum number of pixels allowed to be skipped
-between set pixels. Limits are useful to prevent very wide orbs from being hard
-to see. Images such as <a href="http://www.astrolog.org/astrolog/pic/orbit2.png">http://www.astrolog.org/astrolog/pic/orbit2.png</a>
+This switch indicates the maximum number of pixels allowed to be skipped between
+set pixels. Limits are useful to prevent very wide orbs from being hard to see.
+Images such as <a href="http://www.astrolog.org/astrolog/pic/orbit2.png">http://www.astrolog.org/astrolog/pic/orbit2.png</a>
 (which compares Earth’s to Venus’ orbit over time) are generated by having 360
 degree orbs, or always drawing a line between two planets (and never with any
 dashedness in them, so -YXa 0 is used).</p>
@@ -7637,16 +7908,23 @@
 That allows defining separate constellations without having to keep track of
 continually increasing index numbers.</p>
 
-<p class=A><span class=S>-YXf &lt;val&gt;:</span> Set usage of actual system
-fonts in graphic charts.</p>
-
-<p class=B>This sets whether or not actual system fonts (instead of Astrolog’s
-vector graphics) are used for text and sign, planet, and aspect glyphs in
-PostScript and Windows metafile graphics files, and on the screen in the
-Windows version. Zero means no system fonts, while one means use Courier,
-Wingdings for metafiles, and the Astro font. (This can also be set to the hack
-value of two if you don't have the Astro font, which means don't try to use
-this special font but do use all the others.)</p>
+<p class=A><span class=S>-YXf &lt;0-4&gt;&lt;0-1&gt;&lt;0-3&gt;&lt;0-3&gt;:</span>
+Set usage of fonts in graphic charts.</p>
+
+<p class=B>Astrolog supports five different fonts for display of signs, houses,
+planets, and aspects. They are Astrolog’s default internal vector drawing, the
+Wingdings font from Windows (for signs only), the Astro font by Kenneth Hirst,
+the EnigmaAstrology font by Jan Kampherbeek, and generic high Unicode
+characters. The -YXf switch takes a four digit number, which indicates which
+font to use for each area, in which 0=Astrolog, 1=Wingdings, 2=Astro, 3=Enigma,
+4=Unicode. For example, the default when the “use real system fonts in graphics
+charts” setting in the Display Settings dialog is turned on is 1022, which
+means Wingdings for signs, Astrolog for houses, and Astro for objects and
+aspects. In the Windows version, the Graphics Settings dialog has new radio
+button groups so one can select exactly which font they want to use for each
+area. For PostScript and Windows metafile graphics files, zero means no system
+fonts, while non-zero means use Courier and the Astro font, and Wingdings for
+metafiles.</p>
 
 <p class=A><span class=S>-YXp &lt;-1,0,1&gt;:</span> Set paper orientation for
 PostScript files.</p>
@@ -7661,8 +7939,8 @@
 sizes less than or equal to the vertical (e.g. aspect grids and wheel charts
 without sidebars) being in portrait.</p>
 
-<p class=A><span class=S>-YXp0 &lt;hor&gt; &lt;ver&gt;:</span> Set paper size
-for PostScript files.</p>
+<p class=A><span class=S>-YXp0 &lt;hor&gt; &lt;ver&gt;:</span> Set paper size for
+PostScript files.</p>
 
 <p class=B>One may also choose the paper size of full -Xp0 PostScript graphics
 charts. There are two parameters given which specify the horizontal and
@@ -7674,6 +7952,8 @@
 there’s no units, then it will be parsed based on the -Yv metric switch
 setting.</p>
 
+<p class=Section2>Switches to access obscure system options:</p>
+
 <p class=N><span class=S>-YB:</span> Make a beep sound at the time this switch
 is processed.</p>
 
@@ -7687,27 +7967,28 @@
 command switch text file like any other, and can easily be user modified or
 extended. The header of the file describes the format. The file consists of one
 instance of the new -YY command switch, which takes one parameter indicating
-the number of city location lines that follow in the file. This switch is only
-valid in switch files, and an error will be displayed if it’s seen on the
-command line.</p>
+the number of city location lines that follow in the file. (If you add or
+delete cities from the file, make sure to also update this number
+appropriately.) This switch is only valid in switch files, and an error will be
+displayed if it’s seen on the command line.</p>
 
 <p class=B>The default atlas.as file contains over 24,000 cities, or every city
 in the world with over 15,000 population. Similar to ephemeris files, you can
 download a larger atlas if you want more cities available. The file <a
 href="http://www.astrolog.org/ftp/atlas/atlasbig.as">http://www.astrolog.org/ftp/atlas/atlasbig.as</a>
-contains nearly 200,000 cities, or every city in the world with over 500 population.
-You can replace the default atlas.as with atlasbig.as, or just load the larger
-file into the program when needed. The information in these atlases was
-composed using data from <a href="https://www.geonames.org/">https://www.geonames.org/</a>,
+contains nearly 200,000 cities, or every city in the world with over 500
+population. You can replace the default atlas.as with atlasbig.as, or just load
+the larger file into the program when needed. The information in these atlases
+was composed using data from <a href="https://www.geonames.org/">https://www.geonames.org/</a>,
 available under the Creative Commons Attribution 4.0 License.</p>
 
 <p class=A><span class=S>-YY1 &lt;rules&gt; &lt;entries&gt;:</span> Load
 Daylight Time rules from current file.</p>
 
-<p class=B>Astrolog’s time zone change information is stored in the file
-timezone.as, which gets loaded the first time that such information is needed.
-This information was converted from the collaborative open source and public
-domain TZ database (sometimes called the “Olson database”) at <a
+<p class=B>Astrolog’s time zone change information is stored in the file timezone.as,
+which gets loaded the first time that such information is needed. This
+information was converted from version “2020a” of the collaborative open source
+and public domain TZ database (sometimes called the “Olson database”) at <a
 href="https://data.iana.org/time-zones/tz-link.html">https://data.iana.org/time-zones/tz-link.html</a>,
 which is used by many programs and operating systems for time zone and Daylight
 Saving Time determination. This database is fully accurate everywhere in the
@@ -7718,9 +7999,9 @@
 it, which contain instances of the -YY1, -YY2, and -YY3 switches.</p>
 
 <p class=B>The -YY1 switch reads in a new set of Daylight Saving Time change
-rules from the current switch file, consisting of the specified number of
-rules, each consisting of a sublist of rule entries. First parameter is number
-of rules, and second is the total number of rule entry lines in all rules. The
+rules from the current switch file, consisting of the specified number of rules,
+each consisting of a sublist of rule entries. First parameter is number of
+rules, and second is the total number of rule entry lines in all rules. The
 time zone areas read in by the -YY2 switch can specify different rules to apply
 at different times.</p>
 
@@ -7762,17 +8043,17 @@
 chart server, as a demo, or related situation. For example, if one set up
 Astrolog on a network to be able to receive chart requests including arbitrary
 command lines where the result is e-mailed back to the user, the administrator
-probably wants to prevent the client from using the -o switch to create or potentially
-overwrite files on the server, in which case -0o can be put in the astrolog.as
-file to prevent file output before the client gets a chance to do anything.
-Similarly, -0i can be used to prevent the client from using -i to read in
-private files on the server. If the server only e-mails text back to the user,
-you probably don't want the server copy of the program going into interactive
-graphics mode waiting for someone to pass it keystrokes, in which case -0X can
-be used. Finally, -0q might be useful in demo situations where people can play
-with the program but you don't want them exiting it. In this last case, the
-only way to stop the program is to kill the process (although a Control-C
-should stop command line or Unix versions).</p>
+probably wants to prevent the client from using the -o switch to create or
+potentially overwrite files on the server, in which case -0o can be put in the
+astrolog.as file to prevent file output before the client gets a chance to do
+anything. Similarly, -0i can be used to prevent the client from using -i to
+read in private files on the server. If the server only e-mails text back to
+the user, you probably don't want the server copy of the program going into
+interactive graphics mode waiting for someone to pass it keystrokes, in which
+case -0X can be used. Finally, -0q might be useful in demo situations where
+people can play with the program but you don't want them exiting it. In this
+last case, the only way to stop the program is to kill the process (although a
+Control-C should stop command line or Unix versions).</p>
 
 <p class=A><span class=S>-;:</span> Ignore rest of command line and treat it as
 a comment.</p>
@@ -7783,7 +8064,7 @@
 course) to be used to begin comments and for comment lines in the various
 command files.</p>
 
-<p class=Section2>Astrolog graphics screen key press options (version 7.00):</p>
+<p class=Section2>Astrolog graphics screen key press options (version 7.10):</p>
 
 <p class=B>(Note: When a graphics chart is up, pressing a key which doesn't do
 any of the operations below will sound a beep.)</p>
@@ -7802,8 +8083,8 @@
 paused with this key, the mouse (inactive for the purpose of scribbling during
 animation) will come active again. Related to this, the number keys which set
 the rate of animation, but for PC’s scroll the chart when not in animation
-mode, will do the scrolling instead of setting the rate when animation is paused
-then.</p>
+mode, will do the scrolling instead of setting the rate when animation is
+paused then.</p>
 
 <p class=A><span class=K>Press 'x'</span> to toggle foreground/background colors
 on screen.</p>
@@ -7838,7 +8119,8 @@
 will toggle whether or not a border is drawn around the graphic. Some charts,
 such as aspect grids, will always have a border regardless of the state of this
 flag, while others such as the globes will never have one. Most charts however,
-such as the wheel charts will look good either way and this key can be used to choose.</p>
+such as the wheel charts will look good either way and this key can be used to
+choose.</p>
 
 <p class=A><span class=K>Press 'l'</span> to toggle labeling of object points
 in chart.</p>
@@ -7905,12 +8187,12 @@
 <p class=B>Press the 's' key in the window to toggle whether or not the
 sidereal vs. tropical zodiac is used. Press the 'h' key to toggle to a
 heliocentric based chart or back again to a geocentric one. Press the 'a' key
-to toggle whether house placements take 3D latitude into account instead of just
-zodiac longitude. Press the 'f' key to toggle the status of whether or not the
-chart should be modified to correspond to the appropriate domal chart (where
-the house positions are represented as zodiac positions and vice versa). Press
-the 'g' key to toggle the status of whether or not the chart should be modified
-to correspond to a decan chart (where each sign is divided in thirds
+to toggle whether house placements take 3D latitude into account instead of
+just zodiac longitude. Press the 'f' key to toggle the status of whether or not
+the chart should be modified to correspond to the appropriate domal chart
+(where the house positions are represented as zodiac positions and vice versa).
+Press the 'g' key to toggle the status of whether or not the chart should be
+modified to correspond to a decan chart (where each sign is divided in thirds
 representing the two other signs in its element). Press the 'z' key to toggle
 whether wheel charts are displayed in Vedic format. Press the 'y' key to toggle
 whether charts are displayed in navamsa format or not. These keys of course
@@ -8027,13 +8309,13 @@
 time (note that now the house cusps are starting to move quickly, so you may
 want to switch to a different system of houses (such as the Equal to keep the
 Midheaven from flopping back and forth) and/or use -1 to put an object like the
-sun on the Ascendant.) Pressing '$' will have one day added each time (now you
-will probably want to start using -R to remove fast moving objects like the
-moon), and pressing '%' will have one month added for each update of the
-window. The final keys, shift 6..9 cause years, decades, centuries, and
-millennia to be added each time, and tend to only be used to look for long
-range actions (such as when will Neptune next enter Pisces). To exit these
-animation modes, press the 'N' key.</p>
+sun on the Ascendant.) Pressing '$' will have one day added each time (now you will
+probably want to start using -R to remove fast moving objects like the moon),
+and pressing '%' will have one month added for each update of the window. The
+final keys, shift 6..9 cause years, decades, centuries, and millennia to be
+added each time, and tend to only be used to look for long range actions (such
+as when will Neptune next enter Pisces). To exit these animation modes, press
+the 'N' key.</p>
 
 <p class=A><span class=K>Press 'r'</span> to reverse direction of time-lapse or
 animation.</p>
@@ -8048,17 +8330,16 @@
 degrees, etc.</p>
 
 <p class=B>The nine number keys are used to set the relative “rate” of
-animation to “n” units. For example, normally the “@” key means add one minute
-to the chart for each update, but press “5” and now we are adding 5 minutes
-each time. For the Globe animation, by default the Earth rotates one degree
-each time; however, the number keys can speed this up to nine degrees for each
+animation to “n” units. For example, normally the “@” key means add one minute to
+the chart for each update, but press “5” and now we are adding 5 minutes each
+time. For the Globe animation, by default the Earth rotates one degree each
+time; however, the number keys can speed this up to nine degrees for each
 update.</p>
 
-<p class=A><span class=K>Press
-'V','A','Z','S','M','K','J','L','E','X','W','G','P'</span> to switch to normal
-(-v), grid (-g), local (-Z), space (-S), sector (-l), calendar (-K), dispositor
-(-j), astro-graph (-L), ephemeris (-E), sphere (-XX), world map (-XW), globe
-(-XG), polar (-XP) modes.</p>
+<p class=A><span class=K>Press 'V','A','Z','S','M','K','J','L','E','X','W','G','P'</span>
+to switch to normal (-v), grid (-g), local (-Z), space (-S), sector (-l),
+calendar (-K), dispositor (-j), astro-graph (-L), ephemeris (-E), sphere (-XX),
+world map (-XW), globe (-XG), polar (-XP) modes.</p>
 
 <p class=B>There are basically 13 main modes in which the graphics screen can
 be in: There are the nine main charts (wheel, aspect grid, local sky, space
@@ -8106,8 +8387,8 @@
 local horizon, chart sphere, globe, and map displays. See the -XC switch which
 affects the same setting for complete info.</p>
 
-<p class=A><span class=K>Press 'F1'..'F12'</span> [plus Shift,Ctrl,Alt] to run
-macros 1..48.</p>
+<p class=A><span class=K>Press 'F1'-'F12'</span> [plus Shift,Ctrl,Alt] to run
+macros 1-48.</p>
 
 <p class=B>For PC’s, pressing the function keys F1 through F12 will execute
 macros when graphics are being displayed. Pressing F1 through F12 will run
@@ -8139,10 +8420,10 @@
 prompt you for a command line. This command line will be processed after which
 you will be returned back to the graphics state you left, allowing the changing
 on the fly of any setting that isn't already covered by pressing whatever key,
-without having to drop all the way back to a -Q loop or out of the program
-altogether. This can be used to redisplay the -H switch help list too. (There
-are a couple of rare things you can't do in the middle of graphics, e.g. you
-aren't allowed to suddenly switch to one of the graphics file modes.)</p>
+without having to drop all the way back to a -Q loop or out of the program altogether.
+This can be used to redisplay the -H switch help list too. (There are a couple
+of rare things you can't do in the middle of graphics, e.g. you aren't allowed
+to suddenly switch to one of the graphics file modes.)</p>
 
 <p class=A><span class=K>Press 'q'</span> to terminate the window and program.</p>
 
@@ -8167,10 +8448,10 @@
 astro-graph or -XW world map displays: Click to get the approximate longitude
 and latitude of the place on the map where the pointer is, printed in the main
 window (or have the current chart’s location set to this location in the MS
-Windows version). For the four scale sizes of 100, 200, 300, and 400 percent, the
-accuracy is to the nearest degree, 30 minutes, 20', and 15', respectively. So,
-if you want to cast a chart for southern Madagascar, Africa, but don't know the
-coordinates, click the middle button on the map for a good approximation!
+Windows version). For the four scale sizes of 100, 200, 300, and 400 percent,
+the accuracy is to the nearest degree, 30 minutes, 20', and 15', respectively.
+So, if you want to cast a chart for southern Madagascar, Africa, but don't know
+the coordinates, click the middle button on the map for a good approximation!
 Finally, the right button (middle button if any for PC’s) acts just like the
 'q' key, and will terminate the program.</p>
 
@@ -8190,7 +8471,7 @@
 scribbles are always in the gray highlight color. However, sixteen control keys
 can be pressed to change the pen to sixteen different colors, which are defined
 as follows: Ctrl-A is White, Ctrl-Z is Black, Ctrl-R is Red, Ctrl-G is Green,
-Ctrl-B is blue, Ctrl-Y is Yellow, Ctrl-O is Orange, Ctrl-L is Light gray,
+Ctrl-B is Blue, Ctrl-Y is Yellow, Ctrl-O is Orange, Ctrl-L is Light gray,
 Ctrl-D is Dark gray, Ctrl-V is Magenta (Valentine pink), Ctrl-U is Purple
 (pUrple), Ctrl-E is Maroon (Dark red, next to 'R' on keyboard), Ctrl-F is Dark
 Green (Forest green, next to 'G' on keyboard), Ctrl-N is Dark Blue (Navy blue,
@@ -8241,8 +8522,8 @@
 several formats and be parsed correctly:</p>
 
 <p class=A>Months may be entered as numbers from 1 to 12 or as their true
-names. Case doesn't matter, and month names may be abbreviated to their first three
-letters.</p>
+names. Case doesn't matter, and month names may be abbreviated to their first
+three letters.</p>
 
 <p class=A>Year values may be entered with an optional “BCE”/”BC” or “CE”/“AD” suffix.
 (Periods may be interspersed, e.g. “b.c.” is allowed.) Years BCE/BC may also be
@@ -8351,8 +8632,9 @@
 <p class=FB>Eastern Standard Time&nbsp;&nbsp;&nbsp; EST&nbsp; ET&nbsp; E&nbsp;
 + 5&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 75&nbsp; W</p>
 
-<p class=FB>Eastern Daylight Time&nbsp;&nbsp;&nbsp; EDT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-+ 4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 75&nbsp; W</p>
+<p class=FB>Eastern Daylight Time&nbsp;&nbsp;&nbsp;
+EDT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; +
+4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 75&nbsp; W</p>
 
 <p class=FB>Eastern War Time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 EWT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; +
@@ -8380,12 +8662,13 @@
 WAT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; +
 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 15&nbsp; W</p>
 
-<p class=FB>Universal Time Code      UTC  UT  U    0       0</p>
+<p class=FB>Universal Time Code      UTC  UT  U    0       0</p>
 
 <p class=FB>Greenwich Mean Time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GMT&nbsp;
 GT&nbsp; G&nbsp;&nbsp;&nbsp; 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0</p>
 
-<p class=FB>Western European Time&nbsp;&nbsp;&nbsp; WET&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+<p class=FB>Western European Time&nbsp;&nbsp;&nbsp;
+WET&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0</p>
 
 <p class=FB>Central European Time&nbsp;&nbsp;&nbsp;
@@ -8492,9 +8775,9 @@
 is debilitated in the sign (“S” or “s” characters), whether the planet
 Hierarchically rules or is debilitated in the sign (“H” or “h” characters), and
 whether the planet Ray rules or is Ray debilitated in the sign i.e. whether the
-planet’s Ray is the same as one of the sign’s Rays (“Y” or “z” characters). In case
-of multiple alignments applying, the order of priority is to show a standard
-exoteric rulership or debilitation, an exaltation or fall, an esoteric
+planet’s Ray is the same as one of the sign’s Rays (“Y” or “z” characters). In
+case of multiple alignments applying, the order of priority is to show a
+standard exoteric rulership or debilitation, an exaltation or fall, an esoteric
 rulership, a Hierarchical rulership, and finally a Ray rulership.</p>
 
 <p class=A>In this main display, an element table indicating the sum of the
@@ -8513,12 +8796,12 @@
 still included in the other object summaries) as they would skew things since
 they are always in a particular hemisphere. Finally we have a field indicating
 the division of objects into the first six and second six signs of the zodiac.
-The number of objects in the first six signs of the zodiac will be printed, labeled
-by the character “&lt;“. (The number in the second half isn't printed; just
-subtract from the total if you want to know.) According to a book on the
-Kaballah, the emphasis of the first six signs on the zodiac is on “what’s to
-learn”, and the emphasis on the second six signs is on “what’s to share”. Use
-or interpret this as you wish.</p>
+The number of objects in the first six signs of the zodiac will be printed,
+labeled by the character “&lt;“. (The number in the second half isn't printed;
+just subtract from the total if you want to know.) According to a book on the Kabbalah,
+the emphasis of the first six signs on the zodiac is on “what’s to learn”, and
+the emphasis on the second six signs is on “what’s to share”. Use or interpret
+this as you wish.</p>
 
 <p class=A>I have taken the liberty to define ruling and exalting signs for the
 asteroids (and the rest of the first 22 objects that don't already have them.)
@@ -8553,15 +8836,15 @@
 on the positions of the Sun, Moon, and Ascendant; if these three objects are in
 their ruling signs, then the Fortune will fall in Pisces, hence the Fortune
 should rule here. Similarly, if the Sun, Moon, and Ascendant are all in their
-exalting signs, then the Fortune will fall in Aquarius, hence the Fortune
-should exalt here. The Vertex, being always near the Descendant, corresponds to
-Libra, and hence has the same rulership and exaltation as Venus: Libra and
-Pisces. The East Point, being always near the Ascendant, corresponds to Mars,
-and hence has the same rulership and exaltation as Mars: Aries and Capricorn.
-Lilith has the rulership of Scorpio and exaltation in Pisces. House cusps and
-angles rule the sign corresponding to them, e.g. Aries for the Ascendant,
-Taurus for the 2nd Cusp, and so on. House cusp objects exalt in the next sign
-of the same element beyond the one they rule, e.g. Aries exalts in Leo.</p>
+exalting signs, then the Fortune will fall in Aquarius, hence the Fortune should
+exalt here. The Vertex, being always near the Descendant, corresponds to Libra,
+and hence has the same rulership and exaltation as Venus: Libra and Pisces. The
+  East Point, being always near the Ascendant, corresponds to Mars, and hence
+has the same rulership and exaltation as Mars: Aries and Capricorn. Lilith has
+the rulership of Scorpio and exaltation in Pisces. House cusps and angles rule
+the sign corresponding to them, e.g. Aries for the Ascendant, Taurus for the
+2nd Cusp, and so on. House cusp objects exalt in the next sign of the same
+element beyond the one they rule, e.g. Aries exalts in Leo.</p>
 
 <p class=A>Each Uranian also has been assigned its own ruling and exalting
 sign, meaning Uranians in their rulership, etc, will be flagged as such and
@@ -8580,9 +8863,11 @@
 value approximates how fast the planet is moving through the zodiac with
 respect to the Earth (or whatever the central body is set to) in degrees per
 day. This value of course, goes negative when a planet goes retrograde. This is
-useful not only to get a feel for how fast each planet moves through the zodiac,
-but to determine when a planet is about to go retrograde or direct - the value
-approaches zero when the planet changes direction.</p>
+useful not only to get a feel for how fast each planet moves through the
+zodiac, but to determine when a planet is about to go retrograde or direct, in
+which the value approaches zero when the planet is about to change direction.
+Velocities will also be displayed for house cusp and related objects like the
+Vertex and East Point.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -8612,8 +8897,8 @@
 files could set and a whole lot more. Attempting to use any old astrolog.dat
 file will cause the program to complain that it’s not in any valid format. If
 you have an old file, delete it and modify the one included with this release
-to correspond to your desired settings. Version 4.20 through 6.50 configuration
-files are however fully compatible with 7.00 and don't need to be changed.</p>
+to correspond to your desired settings. Version 4.20 through 7.00 configuration
+files are however fully compatible with 7.10 and don't need to be changed.</p>
 
 <p class=A>--</p>
 
@@ -8676,15 +8961,15 @@
 for potential backward compatibility issues in the future. All Astrolog command
 switch files start with a line beginning with “@A”, followed by a character
 identifying the file subtype (which is one of “IPDCZ”), followed by the program
-version number not counting the period (i.e. “700”). Specifically, Astrolog
-chart info files start with “@AI700”, chart position files chart with “@AP700”,
-and default settings files like “astrolog.as” start with “@AD700”. The city
-atlas file starts with “@AC700”, and the timezone change file starts with
-“@AZ700”. Note that the '@' happens to technically be a switch too, but is only
-dealt with internally by the program. If you make any of your own command files
-to read in with -i, just be sure there is a '@' character (better yet the
-sequence of characters “@AD700” to be like the default astrolog.as) at its very
-beginning and everything will work.</p>
+version number not counting the period (i.e. “710”). Specifically, Astrolog
+chart info files start with “@AI710”, chart position files chart with “@AP710”,
+and default settings files like “astrolog.as” start with “@AD710”. The city
+atlas file “atlas.as” starts with “@AC710”, and the time change file “timezone.as”
+starts with “@AZ710”. Note that the '@' happens to technically be a switch too,
+but is only dealt with internally by the program. If you make any of your own
+command files to read in with -i, just be sure there is a '@' character (better
+yet the sequence of characters “@AD710” to be like the default astrolog.as) at
+its very beginning and everything will work.</p>
 
 <p class=B>Before version 7.00, an older format was used: The first two digits
 after “@” indicated file type, in which “01” was a -o chart info file, “02” was
@@ -8697,7 +8982,7 @@
 pre-version 3.10 form. The astrolog.as file was “0309” because versions 1-7
 were all the different old fixed field versions of this dating back to when the
 config file was first introduced, and version 8 was the pre-version 6.00
-instance of it. Astrolog 7.00 and earlier versions can load each others’ files
+instance of it. Astrolog 7.10 and earlier versions can load each others’ files
 without problem.</p>
 
 <p class=A>Chart position files as generated with the -o0 switch are much
@@ -8744,20 +9029,20 @@
 in it. This is much easier to understand and modify than older files, and is
 the info for my own natal chart consisting of the three lines below:</p>
 
-<p class=FA>@0103&nbsp; ; Astrolog chart info.</p>
+<p class=FA>@AI710  ; Astrolog chart info.</p>
 
 <p class=FA>/qb Nov 19 1971 11:01am ST +8:00 122:19:59W 47:36:35N</p>
 
-<p class=FA>/zi &quot;Walter D. Pullen&quot; &quot;Seattle, WA&quot;</p>
+<p class=FA>/zi &quot;Walter D. Pullen&quot; &quot;Seattle, WA, USA&quot;</p>
 
 <p class=A>--</p>
 
 <p class=A>Astrolog has several environment variables which may be set to
-indicate directories where to find the various files it may look for. Without
-them, the only place the program will look for chart files, the astrolog.as
+indicate directories where to find the various files it may look for. Without them,
+the only place the program will look for chart files, the astrolog.as
 initialization file, and ephemeris files is in the current directory and
-default directories set at compile time. The program will look where all of these
-environment variables point, if they are defined. The three environment
+default directories set at compile time. The program will look where all of
+these environment variables point, if they are defined. The three environment
 variables are named “ASTROLOG”, “ASTR650”, and “ASTR”. On a PC you can set an
 environment variable from the DOS prompt with a command such as “set
 ASTROLOG=C:\PROGRAMS\ASTRO650\CHARTS”. This command can be put in your
@@ -8825,14 +9110,14 @@
 Astrolog’s functions have full Ansi prototypes, which can be turned off for
 older compilers by commenting out the PROTO #ifdef.</p>
 
-<p class=A>There is a special compile time variable dealing with graphics (in addition
-to the “X11” and “WIN” ones) called “GRAPH”. One comments out the #define GRAPH
-line if they don't want any graphics at all, and not just if they don't have X
-windows or PC screen graphics. In other words, one can generate most of
-Astrolog’s graphics charts even if they don't have X windows or a PC with
-graphics abilities. When GRAPH is defined, but X11 or WIN aren't, the program
-will generate the charts, but just never try to bring up a window; it will
-simply always assume that you are writing a bitmap file. The bitmap file will
+<p class=A>There is a special compile time variable dealing with graphics (in
+addition to the “X11” and “WIN” ones) called “GRAPH”. One comments out the
+#define GRAPH line if they don't want any graphics at all, and not just if they
+don't have X windows or PC screen graphics. In other words, one can generate
+most of Astrolog’s graphics charts even if they don't have X windows or a PC
+with graphics abilities. When GRAPH is defined, but X11 or WIN aren't, the
+program will generate the charts, but just never try to bring up a window; it
+will simply always assume that you are writing a bitmap file. The bitmap file will
 contain a (unfortunately always black and white for the X bitmap format) image
 of what would normally be in the window, just as the -Xb switch does. One can
 then use various graphics utilities to convert the image into something they
@@ -8843,14 +9128,14 @@
 <p class=A>A bitmap output mode other than the Windows .bmp bitmaps and
 standard ones that can be read with the Unix X11 xsetroot command is allowed in
 the graphics routines. If one changes the BITMAPMODE compile time option in
-astrolog.h to the character 'A' when compiling, or invokes the -Xb switch as -Xba,
-then all bitmaps output will be in a straight Ascii form, with one character
-corresponding to each pixel. This format is identical to the result produced by
-the Unix command bmtoa (when the chart is monochrome), and it can be converted
-back into a bitmap with the Unix command atobm. Although not as efficient
-spacewise, this is a simpler format, and is recommended for those without
-screen capabilities who still want to use Astrolog’s graphics, if they want to
-write their own conversion program.</p>
+astrolog.h to the character 'A' when compiling, or invokes the -Xb switch as
+-Xba, then all bitmaps output will be in a straight Ascii form, with one
+character corresponding to each pixel. This format is identical to the result
+produced by the Unix command bmtoa (when the chart is monochrome), and it can
+be converted back into a bitmap with the Unix command atobm. Although not as
+efficient spacewise, this is a simpler format, and is recommended for those
+without screen capabilities who still want to use Astrolog’s graphics, if they
+want to write their own conversion program.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -8900,9 +9185,9 @@
 instead of every 5th degree being marked in dark gray on the outer circle
 (every 5th degree being white). Aspects lines are colored too, as follows:
 Conjunctions = Yellow, Sextiles = Light Blue, Squares = Red, Trines = Green,
-Oppositions = Dark Blue. For the minor aspects we have: Inconjuncts/Semisextiles
-= Pink, Semisquares/ Sesquiquadratures = Orange, (Bi/Semi)Quintiles = Blue Gray,
-(Bi/Tri)Septiles = Maroon, (Bi/Quatro)Noviles = Violet.</p>
+Oppositions = Dark Blue. For the minor aspects we have:
+Inconjuncts/Semisextiles = Pink, Semisquares/ Sesquiquadratures = Orange, (Bi/Semi)Quintiles = Blue Gray, (Bi/Tri)Septiles = Maroon, (Bi/Quatro)Noviles =
+Violet.</p>
 
 <p class=A>For color terminals, the -XG globe display and -XW world map display
 are done with the continents in different colors, also making them look much
@@ -8956,15 +9241,15 @@
 some house systems have the Ascendant different from the 1st house, or the
 Midheaven different from the 10th, which means it’s important to list them.</p>
 
-<p class=B>The sidebar will also include additional lines to indicate less common
-chart types, which makes it easier to see when a particular mode is in effect.
-Included will be whether the chart is progressed (and if so what date it’s
-progressed to), if the harmonic chart factor has been set, along with special
-indicators if the decan, dwad, domal, navamsa, or geodetic houses settings are
-on. Solar charts will be indicated too, and will mention how the planet
-positions are being rotated. It will indicate what planet is being rotated to
-what position, and whether the rotating is to the start of sign, e.g. “Sun on
-Ascendant” or “Moon’s sign on Midheaven”.</p>
+<p class=B>The sidebar will also include additional lines to indicate less
+common chart types, which makes it easier to see when a particular mode is in
+effect. Included will be whether the chart is progressed (and if so what date
+it’s progressed to), if the harmonic chart factor has been set, along with
+special indicators if the decan, dwad, domal, navamsa, or geodetic houses
+settings are on. Solar charts will be indicated too, and will mention how the
+planet positions are being rotated. It will indicate what planet is being
+rotated to what position, and whether the rotating is to the start of sign,
+e.g. “Sun on Ascendant” or “Moon’s sign on Midheaven”.</p>
 
 <p class=B>This sidebar supports relationship charts involving two or more
 charts, and for a relationship chart will list both sets of chart information (or
@@ -8988,39 +9273,40 @@
 the circle any more). When graphics are displayed on the screen, the '0' key
 will toggle between the two forms of wheel chart.</p>
 
-<p class=A><span class=S>-L -X:</span> The graphical astro-graph charts are organized
-as follows: A map of the world is shown. The edges of the map are labeled with
-ruler lines that are 5 degrees apart (with longer ruler lines for more
-important longitudes and latitudes, like those that are multiples of 10, 30,
-etc.) The equator is labeled with a dashed line. The polar regions of the world
-aren't shown; the map shown ranges from 60 degrees S latitude to 75 degrees N
-latitude. Note that each pixel on the screen represents exactly one half a
-degree on the world. (For -Xs 100 the ratio is one pixel to one degree, and for
--Xs 400 the ratio is one pixel to 1/4 degree.) On this map are drawn the lines
-indicating where on the world the various planets are angular at the time in
-question. (Note: you might want to -R restrict some objects because otherwise
-the map tends to get pretty cluttered with lines.) As expected, Midheaven and
-Nadir lines are vertical, and the Ascendant and Descendant lines are curved.
-Little square boxes on the Midheaven lines indicate the exact zenith latitude
-location. Each line is labeled at the top or the bottom of the screen, showing
-what planet is in question and (sometimes) what angle is in question. All
-Ascendant and Midheaven lines are labeled at the bottom of the screen, and all
-Descendant and Nadir lines are labeled at the top. Each line goes a bit beyond
-to the top or bottom of the world map, and then another pointer segment (which
-is again dashed of the object in question is retrograde) goes and points to the
-planet glyph. The glyph for the Ascendant or Midheaven is under each of the
-glyphs at the bottom of the screen, explicitly indicating whether the line is
-an Ascendant or Midheaven line. At the top of the screen, however, there are
-only the glyphs, but one can still determine whether these lines are Descendant
-or Nadir lines based on whether they are curved or not. Note that not all the
-Descendant lines are labeled; this is because some of the Ascendant/Descendant
-lines actually connect near the top of the screen and don't actually cross it. (Where
-the Ascendant and Descendant lines meet, those points are intersected by the
-planet’s Midheaven or Nadir lines.) This graphic astro-graph chart will display
-a small purple dot at the precise point on the world map for which the chart in
-question is being generated. This is useful to help see how close the various
-planetary lines are to you, if you live in the middle of the continent or
-someplace not easily determinable on the compact map of the world.</p>
+<p class=A><span class=S>-L -X:</span> The graphical astro-graph charts are
+organized as follows: A map of the world is shown. The edges of the map are
+labeled with ruler lines that are 5 degrees apart (with longer ruler lines for
+more important longitudes and latitudes, like those that are multiples of 10,
+30, etc.) The equator is labeled with a dashed line. The polar regions of the
+world aren't shown; the map shown ranges from 60 degrees S latitude to 75
+degrees N latitude. Note that each pixel on the screen represents exactly one
+half a degree on the world. (For -Xs 100 the ratio is one pixel to one degree, and
+for -Xs 400 the ratio is one pixel to 1/4 degree.) On this map are drawn the
+lines indicating where on the world the various planets are angular at the time
+in question. (Note: you might want to -R restrict some objects because
+otherwise the map tends to get pretty cluttered with lines.) As expected,
+Midheaven and Nadir lines are vertical, and the Ascendant and Descendant lines
+are curved. Little square boxes on the Midheaven lines indicate the exact
+zenith latitude location. Each line is labeled at the top or the bottom of the
+screen, showing what planet is in question and (sometimes) what angle is in
+question. All Ascendant and Midheaven lines are labeled at the bottom of the
+screen, and all Descendant and Nadir lines are labeled at the top. Each line goes
+a bit beyond to the top or bottom of the world map, and then another pointer
+segment (which is again dashed of the object in question is retrograde) goes
+and points to the planet glyph. The glyph for the Ascendant or Midheaven is
+under each of the glyphs at the bottom of the screen, explicitly indicating
+whether the line is an Ascendant or Midheaven line. At the top of the screen,
+however, there are only the glyphs, but one can still determine whether these
+lines are Descendant or Nadir lines based on whether they are curved or not.
+Note that not all the Descendant lines are labeled; this is because some of the
+Ascendant/Descendant lines actually connect near the top of the screen and
+don't actually cross it. (Where the Ascendant and Descendant lines meet, those points
+are intersected by the planet’s Midheaven or Nadir lines.) This graphic
+astro-graph chart will display a small purple dot at the precise point on the
+world map for which the chart in question is being generated. This is useful to
+help see how close the various planetary lines are to you, if you live in the
+middle of the continent or someplace not easily determinable on the compact map
+of the world.</p>
 
 <p class=A><span class=S>-L0 -X:</span> Graphic astro-graph charts will be done
 slightly differently if done by combining -L0 with -X. A thin horizontal line
@@ -9038,20 +9324,20 @@
 -X option (astrolog -g -X). Both the split aspect/midpoint grids labeled down
 the diagonal, as well as the relationship aspect grids between two charts
 (astrolog -r0 &lt;file1&gt; &lt;file2&gt; -g -X) are supported. The aspect
-glyphs, objects, and the signs in the grids are in their colors as defined
-earlier. Like the astro-graph windows, these charts can't be resized in the
-normal way unless one uses the '&gt;' and '&lt;' keys. For anything less than
-the larger scale sizes (achieved with the switch -Xs 300, or by pressing '&gt;'
-within a window) all that will be displayed in each aspect grid cell is the
-glyphs of the aspect in effect, the planet being aspected, or the sign of the
-midpoint. However, once the largest scale size is reached, there is room in
-each cell to display the aspect orb to the nearest minute off of exact (with a
-plus or minus sign indicating whether the actual angle is slightly greater than
-or less than exact, or an 'a' or 's' if applying vs. separating orbs are to be
-shown instead); the degree and minute in addition to the sign for midpoints;
-and the degree and sign location for each planet that’s in the grid, as with
-the -g text charts. This chart will show the nearest arc second of orbs and
-midpoints when the -b0 print nearest second setting is on, and when the -Xs character
+glyphs, objects, and the signs in the grids are in their colors as defined earlier.
+Like the astro-graph windows, these charts can't be resized in the normal way
+unless one uses the '&gt;' and '&lt;' keys. For anything less than the larger
+scale sizes (achieved with the switch -Xs 300, or by pressing '&gt;' within a
+window) all that will be displayed in each aspect grid cell is the glyphs of
+the aspect in effect, the planet being aspected, or the sign of the midpoint.
+However, once the largest scale size is reached, there is room in each cell to
+display the aspect orb to the nearest minute off of exact (with a plus or minus
+sign indicating whether the actual angle is slightly greater than or less than
+exact, or an 'a' or 's' if applying vs. separating orbs are to be shown
+instead); the degree and minute in addition to the sign for midpoints; and the
+degree and sign location for each planet that’s in the grid, as with the -g
+text charts. This chart will show the nearest arc second of orbs and midpoints
+when the -b0 print nearest second setting is on, and when the -Xs character
 scale factor is 400 (so that there’s enough room to include seconds).</p>
 
 <p class=A><span class=S>-m -X:</span> Combining the -m switch with -X will
@@ -9066,7 +9352,7 @@
 displayed in an X window as well (e.g. astrolog -Z -X), in which all the
 planets will be displayed in a window depicting the sky. The small dot above or
 below each glyph indicates exactly where each planet is. (Some of the glyphs
-may be overlapping, although the program tries to cut down on this.) There is a
+may be overlapping, although the program tries to avoid this.) There is a
 horizontal line dividing the window representing the local horizon; planets
 above this line are visible, while planets below it are set. There are three
 vertical lines dividing the window as well: The middle line represents the due
@@ -9163,9 +9449,9 @@
 minus in dark green, and aspects will be indicated in the middle of the wheel.
 This chart also has the plus or minus zone status of each sector indicated by a
 small plus or minus sign around the outside border of the wheel. The sidebar in
-this graphic Gauquelin sector wheel chart will to the right of each planet
-position show the sector number the planet falls in. (Normally this is just the
-glyph for the object in question like it is for the other wheels.)</p>
+this graphic Gauquelin sector wheel chart will to the right of each planet position
+show the sector number the planet falls in. (Normally this is just the glyph
+for the object in question like it is for the other wheels.)</p>
 
 <p class=A><span class=S>-j -X:</span> Graphic dispositor charts are available
 by combining the -j influence switch with -X. This is a another graphics chart
@@ -9174,20 +9460,20 @@
 located in. For example, if you have Venus in Aries, the dispositor for your
 Venus is Mars. A graph can be made showing an arrow from each planet to its
 dispositor. A final dispositor is a planet who is its own dispositor, i.e. in
-its ruling sign with no arrows pointing away from it. There can also be two planets
-in what’s called mutual reception (or a reception loop of more than two) if
-they are each other’s dispositor, e.g. Venus in Aries and Mars in Libra.
-Astrolog’s dispositor chart will show four subgraphs, one in each quadrant.
-Both a sign dispositor graph, as described above, and a house dispositor graph,
-where each planet is linked to the planet ruling the house it’s in, are shown.
-In addition, both types have the same information displayed in two different
-useful formats: a wheel with the planets around the perimeter, and in a
-hierarchy with final dispositors at the top and the other planets stacked based
-on how many levels they are from final ones. Final dispositors are circled in
-white, while those in reception loops are circled in gray, and dispositor
-arrows within the top level (i.e. in reception loops) are in white too instead
-of the color of the planet for easy identification. For a demo of the
-dispositors in your own chart, do “astrolog -i yourchartfile -j -X”.</p>
+its ruling sign with no arrows pointing away from it. There can also be two
+planets in what’s called mutual reception (or a reception loop of more than
+two) if they are each other’s dispositor, e.g. Venus in Aries and Mars in
+Libra. Astrolog’s dispositor chart will show four subgraphs, one in each
+quadrant. Both a sign dispositor graph, as described above, and a house
+dispositor graph, where each planet is linked to the planet ruling the house it’s
+in, are shown. In addition, both types have the same information displayed in
+two different useful formats: a wheel with the planets around the perimeter,
+and in a hierarchy with final dispositors at the top and the other planets
+stacked based on how many levels they are from final ones. Final dispositors
+are circled in white, while those in reception loops are circled in gray, and
+dispositor arrows within the top level (i.e. in reception loops) are in white
+too instead of the color of the planet for easy identification. For a demo of
+the dispositors in your own chart, do “astrolog -i yourchartfile -j -X”.</p>
 
 <p class=B>This chart normally graphs standard rulership dispositors, and will
 include all non-star and non-cusp objects within it. However, if standard
@@ -9279,6 +9565,18 @@
 include, e.g. “-YX7 100” shows +/- 10 degrees on either side of 0 degrees
 latitude, “-YX7 50” shows +/- 5 degrees, and so on.</p>
 
+<p class=A><span class=S>-Nl -X:</span> Astrolog can display a graphical
+version of its atlas, which plots the location of nearby cities on a map. This
+chart also draws directional lines toward where on Earth each planet is at its
+zenith. (This local space compass view is used in locational astrology, and its
+lines are somewhat related to the angle lines in astrocartography.) Show this
+chart by combining the -Nl nearest cities chart switch with -X, or in the
+Windows version by selecting the new “Chart / Nearest Cities” command. As with
+the telescope chart, you can pan and zoom the part of the earth viewed with the
+rotation and zoom commands and hotkeys. Right clicking on the chart will bring
+up a context menu allowing one to toggle different settings which determine what
+things are shown in the chart.</p>
+
 <p class=A><span class=S>-r0 -X:</span> True relationship wheel charts can be
 displayed in a window, i.e. where the planets of both charts are displayed in
 separate rings of the same wheel. Use the -r0 option to display this comparison
@@ -9286,8 +9584,8 @@
 following is displayed: The signs and houses as in person1’s chart are drawn in
 the outermost part of the wheel. Inside this is a ring of person2’s planets as
 displayed in person1’s houses, and inside of this are person1’s own planets.
-Finally at the very middle is an aspect grid, which shows those aspects that are
-occurring between the objects in the two charts. Basically this is just the
+Finally at the very middle is an aspect grid, which shows those aspects that
+are occurring between the objects in the two charts. Basically this is just the
 standard wheel chart for person1, except that person2’s planets are in an outer
 ring of objects and the aspect grid shows the aspects of the relationship.
 Putting such a chart in animation mode only affects person2’s planets, so this
@@ -9298,12 +9596,12 @@
 <p class=A><span class=S>-rb -X:</span> Graphical biorhythm charts are
 available by combining the -rb (or -yb) switch with -X. This will make a graph
 of one’s biorhythm for the two weeks before and after the specified time, with
-days on the horizontal axis and the Physical, Emotional, and Intellectual
-percentages on the vertical. When any graphics chart is up, one may press the
-'Y' key to revert to a biorhythm chart. (Note that as this is a relationship
-comparison chart, if you go to it from a graphics mode only showing one chart,
-it will show the biorhythm for them at their birth, and you will want to then
-animate or adjust it to get a useful display.)</p>
+days on the horizontal axis and the Physical, Emotional, and Intellectual percentages
+on the vertical. When any graphics chart is up, one may press the 'Y' key to
+revert to a biorhythm chart. (Note that as this is a relationship comparison
+chart, if you go to it from a graphics mode only showing one chart, it will
+show the biorhythm for them at their birth, and you will want to then animate
+or adjust it to get a useful display.)</p>
 
 <p class=A>--</p>
 
@@ -9316,14 +9614,14 @@
 -Xo 'file'. Astrolog includes its own appropriate X bitmap (the same ringed
 planet with moons seen in the Windows version) if one iconifies its X window.</p>
 
-<p class=A>For X windows, one can animate a graphics chart on the root
-background by combining -XB with the -Xn switch. This will be just like the
-animations done in windows except the root is being used instead. Astrolog can
-be run in the background this way to continually update your root to the
-current chart representing the present moment. Limitations with this are that
-since there’s no window, no keypresses can be processed so the program must be
-manually terminated, and that the continual updates will be as CPU intensive as
-the window animations are.</p>
+<p class=A>For X windows, one can animate a graphics chart on the root background
+by combining -XB with the -Xn switch. This will be just like the animations
+done in windows except the root is being used instead. Astrolog can be run in
+the background this way to continually update your root to the current chart
+representing the present moment. Limitations with this are that since there’s
+no window, no keypresses can be processed so the program must be manually
+terminated, and that the continual updates will be as CPU intensive as the
+window animations are.</p>
 
 <p class=A>Text in graphics charts is done using Astrolog’s own internal font.
 This font includes glyphs for the high-Ansi 128-255 character range. These
@@ -9351,16 +9649,16 @@
 
 <p class=A>Not counting the About box and the standard Windows open file, save
 file, and printing items, Astrolog contains 16 dialogs, a couple of which are
-also shared by more than one command. There are nine top level menus not counting
-the system menu, which have among them 123 different options, or 266 counting
-all second level submenus! In using the dialogs, one should specify or enter
-the appropriate settings, and then press “OK” for them to take effect, or “Cancel”
-to discard any changes made. On pressing “OK”, the program will check all the
-fields for validity, and display an appropriate error message and not close the
-dialog if anything is out of range, giving a chance to correct or cancel. For
-numeric controls, note that if the existing value is displayed with a decimal
-point in it, floating point numbers are legal, while if there isn't one then
-integers are required.</p>
+also shared by more than one command. There are nine top level menus not
+counting the system menu, which have among them 121 different options, or 270
+counting all second level submenus! In using the dialogs, one should specify or
+enter the appropriate settings, and then press “OK” for them to take effect, or
+“Cancel” to discard any changes made. On pressing “OK”, the program will check
+all the fields for validity, and display an appropriate error message and not
+close the dialog if anything is out of range, giving a chance to correct or
+cancel. For numeric controls, note that if the existing value is displayed with
+a decimal point in it, floating point numbers are legal, while if there isn't
+one then integers are required.</p>
 
 <p class=A>Every menu command has an accelerator, i.e. an underscore below a
 letter, where when the menu is displayed one may press that letter to select
@@ -9389,8 +9687,8 @@
 scribble lines. Doing a Shift+click will draw a straight line from the location
 you last clicked to the current position. Doing a Control+click will draw a
 rectangle with opposite corners at the location last clicked and the current
-position. Doing Control+Shift+click will draw an ellipse with opposite corners at
-the two positions clicked. Finally, when the current display is either the
+position. Doing Control+Shift+click will draw an ellipse with opposite corners
+at the two positions clicked. Finally, when the current display is either the
 world map or an astro-graph chart, one may do Alt+click on the map to relocate
 the chart to the spot on the world clicked upon, which will change the
 longitude and latitude of the current chart info in memory. For the right mouse
@@ -9502,15 +9800,15 @@
 default settings file. This command has the program automatically generate a
 new astrolog.as file for you based on the current state of the program. The
 standard Windows Save dialog will be brought up as with all the other Save
-commands. The default filename to save to will of course be astrolog.as, to
-replace the existing settings file. You can select a different name to save the
-file to if you like, where the file will be a command switch file like any
-other except it won't be read in automatically on startup like astrolog.as.
-Note this feature won't save every possible program setting, such as the active
-chart being displayed, but it will save most things; see the astrolog.as file
-itself for what exactly is saved. One can start the program, immediately do
-File Save Settings, and create an astrolog.as file virtually identical to the
-one that was just read in.</p>
+commands. The default filename to save to will of course be astrolog.as, to replace
+the existing settings file. You can select a different name to save the file to
+if you like, where the file will be a command switch file like any other except
+it won't be read in automatically on startup like astrolog.as. Note this
+feature won't save every possible program setting, such as the active chart
+being displayed, but it will save most things; see the astrolog.as file itself
+for what exactly is saved. One can start the program, immediately do File Save
+Settings, and create an astrolog.as file virtually identical to the one that
+was just read in.</p>
 
 <p class=A><span class=M>Save As Wallpaper:</span> This submenu allows one to
 easily set an Astrolog graphics chart to be the background bitmap for the
@@ -9578,16 +9876,18 @@
 landscape mode. This dialog is also accessible from the Print dialog itself via
 the “Setup...” button, but is also made available separately here.</p>
 
-<p class=A><span class=M>Exit:</span> This terminates the program. Note that
-pressing Control+C or “q” will also quit in addition to this and the command’s
-“Escape” shortcut key.</p>
+<p class=A><span class=M>Exit:</span> This terminates the program. Note that pressing
+Control+C or “q” will also quit in addition to this and the command’s “Escape” shortcut
+key.</p>
 
 <p class=Section2>Edit menu commands:</p>
 
 <p class=A><span class=M>Enter Command Line...:</span> This brings up a dialog
 with one edit control, in which one may enter a command line. This gives access
 to obscure program features that don't have their own menu options yet, as well
-as easy access to the command switches for those of us who like them.</p>
+as easy access to the command switches for those who work with them. This
+dialog also has a “Enable AstroExpression Hooks” checkbox, which can be used to
+enable, disable, or check the status of that feature area.</p>
 
 <p class=A><span class=M>Run Macro (Normal Set):</span> This, along with the
 next three menu items of “Run Macro (Shift Set)”, “Run Macro (Control Set)”,
@@ -9600,9 +9900,9 @@
 “Help / Open Documentation” command. That’s assuming macro #1 hasn’t been
 defined (if macro #1 has been defined, F1 will still invoke that macro).
 Similarly, pressing Alt+F4 will follow the Windows standard and close the
-program (instead of first displaying an error about macro #40 not being
-defined, and then closing). If macro #40 has been defined, Alt+F4 will still
-only invoke that macro.</p>
+program (instead of first displaying an error about macro #40 not being defined,
+and then closing). If macro #40 has been defined, Alt+F4 will still only invoke
+that macro.</p>
 
 <p class=A><span class=M>Copy Chart Text Output:</span> This is like the File
 Save Chart Text Output command except the text will be copied to the Windows
@@ -9662,12 +9962,12 @@
 <p class=A><span class=M>Chart Resizes Window:</span> This option on the Window
 Settings submenu toggles whether the window will resize when the chart size
 increases or decreases. For example, if displaying a graphic aspect grid which
-is a square chart, and one switches to the rectangular shaped astro-graph map chart,
-this setting when on, will resize the window to be the new rectangular shape.
-When off, the chart will either not fill up the whole window or will overlap
-its edges, in which case the scrollbars may be used to view all parts of the
-graphic. Note that when the window size changes in this way, the program will
-automatically move the window’s location appropriately if the new size would
+is a square chart, and one switches to the rectangular shaped astro-graph map
+chart, this setting when on, will resize the window to be the new rectangular
+shape. When off, the chart will either not fill up the whole window or will
+overlap its edges, in which case the scrollbars may be used to view all parts
+of the graphic. Note that when the window size changes in this way, the program
+will automatically move the window’s location appropriately if the new size would
 make the window appear partially off the screen edge.</p>
 
 <p class=A><span class=M>Window Resizes Chart:</span> This option on the Window
@@ -9817,13 +10117,13 @@
 
 <p class=A><span class=M>Default Chart Info...:</span> This brings up the
 Default Chart Info dialog, in which one may specify the default Daylight
-setting, time zone, the correction factor to add to “now” charts, longitude, latitude,
-elevation above sea level, and name and location strings. These settings are
-used in commands such as “Chart For Now”, in which the current time obtained
-needs to be combined with some location to make a complete chart. [The eight
-controls in this dialog correspond respectively to the -z0, -z, -Yz, the two
-parameters passed to the -zl, the -zv, and the two parameters passed to the -zj
-switches.]</p>
+setting, time zone, the correction factor to add to “now” charts, longitude,
+latitude, elevation above sea level, and name and location strings. These
+settings are used in commands such as “Chart For Now”, in which the current time
+obtained needs to be combined with some location to make a complete chart. [The
+eight controls in this dialog correspond respectively to the -z0, -z, -Yz, the
+two parameters passed to the -zl, the -zv, and the two parameters passed to the
+-zj switches.]</p>
 
 <p class=A><span class=M>Set Chart #2 Info...:</span> This brings up a dialog
 identical to the standard Chart Info dialog, except here the chart settings
@@ -9831,7 +10131,7 @@
 This command is to “Set Chart Info”, as the “Open Chart #2” command is to “Open
 Chart”. [This does the same as the -i2 switch.]</p>
 
-<p class=A><span class=M>Charts #3 And #4...:</span> This brings up a dialog
+<p class=A><span class=M>Charts #3 and #4...:</span> This brings up a dialog
 giving one access to all four chart slots, with buttons which will bring up the
 file open dialogs to load chart info into each slot, and buttons allowing
 access to the chart info dialogs to view or change the info in each slot. This
@@ -9876,12 +10176,12 @@
 chart, for a person born at the time in the earlier of the two charts, for the
 time in the other chart. [This does the same as the -rb switch.]</p>
 
-<p class=A><span class=M>Transit And Natal:</span> This sets a mode identical
+<p class=A><span class=M>Transit and Natal:</span> This sets a mode identical
 to “Comparison Chart” above except that the transit restrictions will apply to
 the second chart and the natal restrictions to the first, instead of the natal
 restriction set to both. [This does the same as the -rt switch.]</p>
 
-<p class=A><span class=M>Progressed And Natal:</span> This sets a mode like “Transit
+<p class=A><span class=M>Progressed and Natal:</span> This sets a mode like “Transit
 And Natal” above, except that the second chart actually shown (outer ring in
 wheel charts) will be a chart made by progressing the first chart to the time
 in the second. [This does the same as the -rp switch.]</p>
@@ -9923,9 +10223,9 @@
 the planet positions are adjusted to put each object in the sign corresponding
 to its dwad. [This does the same as the -4 switch.]</p>
 
-<p class=B><span class=M>Flip Signs With Houses:</span> This option toggles whether
-or not planet and house positions are swapped with respect to each other for a
-Domal chart. [This does the same as the -f switch.]</p>
+<p class=B><span class=M>Flip Signs With Houses:</span> This option toggles
+whether or not planet and house positions are swapped with respect to each
+other for a Domal chart. [This does the same as the -f switch.]</p>
 
 <p class=B><span class=M>Geodetic Houses:</span> This option toggles whether or
 not house cusps are only computed based on the chart’s longitude for geodetic
@@ -9939,17 +10239,17 @@
 not the planet positions are adjusted to generate a navamsa chart. [This does
 the same as the -9 switch.]</p>
 
-<p class=A><span class=M>Aspect Settings...:</span> This brings up the Aspect
-Settings dialog, allowing one to set various things related to each aspect. For
-each of the 18 aspects, there is: (1) A checkbox for whether the aspect is to
-be included in charts at all, (2) an edit control specifying the aspect’s
-maximum orb, (3) an edit control specifying the aspect’s actual angle, (4) an
-edit control specifying the aspect’s relative power for influence charts, and
-(5) an control specifying the color to use when displaying the aspect. In
-addition there are three buttons: (1) “Restrict All” which automatically checks
-all aspects, (2) “Unrestrict All” which unchecks them all, and (3) “Toggle
-Majors” which inverts the status of the first five aspects. [The checkboxes do
-the same as the -A and -RA switches. The orb fields do the same as the -Ao or -YAo switches. The angle fields do the same as the -Aa switch. The influence fields do the
+<p class=A><span class=M>Aspect Settings...:</span> This brings up the Aspect Settings
+dialog, allowing one to set various things related to each aspect. For each of
+the 18 aspects, there is: (1) A checkbox for whether the aspect is to be
+included in charts at all, (2) an edit control specifying the aspect’s maximum
+orb, (3) an edit control specifying the aspect’s actual angle, (4) an edit
+control specifying the aspect’s relative power for influence charts, and (5) an
+control specifying the color to use when displaying the aspect. In addition
+there are three buttons: (1) “Restrict All” which automatically checks all
+aspects, (2) “Unrestrict All” which unchecks them all, and (3) “Toggle Majors” which
+inverts the status of the first five aspects. [The checkboxes do the same as
+the -A and -RA switches. The orb fields do the same as the -Ao or -YAo switches. The angle fields do the same as the -Aa switch. The influence fields do the
 same as the -YjA switch. The color fields do the same as the -YkA switch.]</p>
 
 <p class=A><span class=M>Object Settings...:</span> This brings up the Object
@@ -9992,13 +10292,13 @@
 Restrictions dialog, which is similar to the standard Restrictions dialog
 except it deals with the fixed star or other deep space objects. Each of the 47
 fixed stars has a checkbox, where in addition there are two buttons: (1)
-“Restrict All” which automatically checks all the star objects, and (2) “Unrestrict
-All” which unchecks them all. [The “Restrict All” and “Unrestrict All” buttons
-do the same as the -RU0 and -RU1 switches.]</p>
+“Restrict All” which automatically checks all the star objects, and (2)
+“Unrestrict All” which unchecks them all. [The “Restrict All” and “Unrestrict
+All” buttons do the same as the -RU0 and -RU1 switches.]</p>
 
 <p class=A><span class=M>Include Minors:</span> This toggles whether or not the
-asteroids and other minor objects are included in charts. [This does the same as
-the -R switch when invoked without any parameters.]</p>
+asteroids and other minor objects are included in charts. [This does the same
+as the -R switch when invoked without any parameters.]</p>
 
 <p class=A><span class=M>Include Cusps:</span> This toggles whether or not
 house cusps are included as objects in charts such as aspect grids and transit
@@ -10020,8 +10320,8 @@
 derivatives.]</p>
 
 <p class=A><span class=M>Calculation Settings...:</span> This brings up the
-Calculation Settings dialog, used to set various settings which affect zodiac positions
-of objects. They are:</p>
+Calculation Settings dialog, used to set various settings which affect zodiac
+positions of objects. They are:</p>
 
 <p class=B>(1) A dropdown for the calculation method, which (depending on
 what’s been compiled into the program) will allow one to calculate planet
@@ -10196,11 +10496,16 @@
 be a list of the positions of all Arabian part items for the given time, and is
 a text mode only chart. [This does the same as the -P switch.]</p>
 
-<p class=A><span class=M>Rising And Setting:</span> This sets the current
+<p class=A><span class=M>Rising and Setting:</span> This sets the current
 display to be a list of the times during the day any planet rises, sets, and
-crosses the meridian and nadir, and is a text mode only chart. [This does the
+crosses the meridian and nadir. This is a text mode only chart. [This does the
 same as the -Zd switch.]</p>
 
+<p class=A><span class=M>Nearest Cities:</span> This sets the current display
+to be a list of the nearest cities to the chart location in text mode, or will
+draw a map of the local area of the world labeling visible cities in graphics
+mode. [This does the same as the -Nl switch.]</p>
+
 <p class=A><span class=M>Transits...:</span> This brings up the Transits
 dialog, used to create various transit lists. The first thing to do when using
 this dialog is to set the type of chart desired in the “transit type” radio
@@ -10215,9 +10520,8 @@
 orb strength over a range of time [same as -B switch].<br>
 (4) “Transit to natal times”, which will display exact times of aspects made to
 natal planets from transiting planets over a range of time [same as -t switch].<br>
-(5) “Transit to natal influence”, which will display all aspects between
-transiting and natal objects for a given time ordered by significance [same as
--T switch].<br>
+(5) “Transit to natal influence”, which will display all aspects between transiting
+and natal objects for a given time ordered by significance [same as -T switch].<br>
 (6) “Transit to natal graph”, which will for each transit to natal aspect show
 a graph of its orb strength over a range of time [same as -V switch].<br>
 (7) “None”, which gets out of any transit chart mode.</p>
@@ -10288,12 +10592,12 @@
 <p class=B>Next, you may set the values in the “Progression Type” control group
 to define the type of progression to do. There is a radio button group which
 one may use to select between “Secondary (Calculated Cusps)”, “Secondary (Solar
-Arc Cusps)” [same as -p1 switch], or “Solar Arc” [same as -p0 switch]. Also
-there is a “Degrees Per Day” combo control which one may use to set the
-progression speed [same as -pd switch]. A number may be typed in, or one of
-several common values for this setting may be selected from the dropdown: The
-number 365.24219 here gives the standard “year for a day” rate, the number 131487.188
-does primary directions or a year per four minutes, while other values will do
+Arc Cusps)” [same as -p1 switch], or “Solar Arc” [same as -p0 switch]. Also there
+is a “Degrees Per Day” combo control which one may use to set the progression
+speed [same as -pd switch]. A number may be typed in, or one of several common
+values for this setting may be selected from the dropdown: The number 365.24219
+here gives the standard “year for a day” rate, the number 131487.188 does
+primary directions or a year per four minutes, while other values will do
 tertiary progressions. Finally there is a “Cusp Move Ratio” field to define the
 slowness factor to apply to progressed house cusps [same as -pC switch].</p>
 
@@ -10345,8 +10649,8 @@
 (19) A radio button group which determines in what order to sort the fixed star
 objects for charts such as the standard text listing [same as the letter if any
 included with the -U switch].<br>
-(20) A radio button group which determines in what order to sort the parts in
-the Arabic part chart [same as the letter if any included with the -P switch].</p>
+(20) A radio button group which determines in what order to sort the parts in the
+Arabic part chart [same as the letter if any included with the -P switch].</p>
 
 <p class=Section2>Graphics menu commands:</p>
 
@@ -10368,37 +10672,9 @@
 to be the map of the world shown in polar projection with the North (or South)
 pole in the center. [This does the same as the -XP switch.]</p>
 
-<p class=A><span class=M>Show Map Effects:</span> This submenu allows one to
-toggle various settings which control things on the sphere, map, and globe
-displays. The four commands here are:</p>
-
-<p class=B><span class=M>Show Constellations:</span> This toggles whether or
-not the map displays show in them the astronomical constellations instead of
-the continents of the world. [This does the same as the -XF switch.]</p>
-
-<p class=B><span class=M>Show All Stars:</span> This toggles whether or not the
-map displays show in them every fixed star defined in the sefstars.txt file.
-[This does the same as the -XU switch.]</p>
-
-<p class=B><span class=M>Show House Details:</span> This toggles whether or not
-the map displays show in them the boundaries of the 12 houses. [This does the
-same as the -XC switch.]</p>
-
-<p class=B><span class=M>Show Equator:</span> This toggles whether or not the
-map displays show in them the location of the Earth’s equator. [This does the
-same as the -Xe switch.]</p>
-
-<p class=B><span class=M>Show Cities:</span> This toggles whether or not the
-map displays plot in them the location of every city in the atlas. [This does
-the same as the -XL switch.]</p>
-
-<p class=B><span class=M>Show Glyphs On Aspect Lines:</span> This toggles
-whether or not aspect lines between planets show aspect glyphs on them. [This
-does the same as the -XA switch.]</p>
-
-<p class=B><span class=M>Use Ecliptic Axis:</span> This toggles whether the
-chart sphere, globe, and local horizon displays are aligned with the ecliptic.
-[This does the same as the -YXe switch.]</p>
+<p class=A><span class=M>Draw Telescope:</span> This sets the current display
+to be a telescope view of a part of the sky, which may be focused upon a
+particular planet. [This does the same as the -XZ switch.]</p>
 
 <p class=A><span class=M>Reverse Background:</span> This toggles whether or not
 graphics charts are displayed black on a white background as opposed to the
@@ -10411,25 +10687,6 @@
 opposed to in the standard selection of 16 VGA colors. [This does the same as
 the -Xm switch.]</p>
 
-<p class=A><span class=M>Show Border:</span> This toggles whether or not
-graphics charts are displayed with borders around them. [This does the same as
-the -Xu switch.]</p>
-
-<p class=A><span class=M>Show Chart Info:</span> This toggles whether or not
-graphics displays have the time and location of the chart in question printed
-at their base. [This does the same as the -Xt switch.]</p>
-
-<p class=A><span class=M>Show Info Sidebar:</span> This toggles whether or not
-wheel charts are displayed with an information sidebar to their right, listing
-the positions of the houses and objects along with element table summaries.
-[This does the same as the -v0 switch.]</p>
-
-<p class=A><span class=M>Show Glyph Labels:</span> This toggles whether or not
-glyphs are drawn for planets and objects in graphics charts. Pretty much the
-only time it’s useful to ever turn this off is for the local horizon and orbit
-charts, especially when doing a timed exposure animation of them. [This does
-the same as the -Xl switch.]</p>
-
 <p class=A><span class=M>Square Screen:</span> This resizes both the graphics
 chart and the window to be square shaped, and is useful for charts such as the
 wheel or globes if they ever appear oblong and not circular shaped as they
@@ -10446,12 +10703,68 @@
 be passed to the -Xs switch.] Important note: I've found that some systems,
 when changing the size of characters for text charts, don't seem to be able to
 load the correct new font; if you notice characters overlapping each other at
-small scales and the same size characters with lots of space between them at
-large scales, opening up a DOS prompt seems to fix the problem.</p>
+small scales and the same size characters with lots of space between them at large
+scales, opening up a DOS prompt seems to fix the problem.</p>
+
+<p class=A><span class=M>Chart Effects:</span> This submenu allows one to
+toggle various settings which determine whether things are displayed on the
+almost all graphics charts. The five commands here are:</p>
+
+<p class=B><span class=M>Show Border:</span> This toggles whether or not
+graphics charts are displayed with borders around them. [This does the same as
+the -Xu switch.]</p>
+
+<p class=B><span class=M>Show Chart Info:</span> This toggles whether or not
+graphics displays have the time and location of the chart in question printed
+at their base. [This does the same as the -Xt switch.]</p>
+
+<p class=B><span class=M>Show Info Sidebar:</span> This toggles whether or not
+wheel charts are displayed with an information sidebar to their right, listing
+the positions of the houses and objects along with element table summaries.
+[This does the same as the -v0 switch.]</p>
+
+<p class=B><span class=M>Show Glyph Labels:</span> This toggles whether or not
+glyphs are drawn for planets and objects in graphics charts. Pretty much the
+only time it’s useful to ever turn this off is for the local horizon and orbit
+charts, especially when doing a timed exposure animation of them. [This does
+the same as the -Xl switch.]</p>
 
-<p class=A><span class=M>Globe Tilt:</span> This submenu allows one to change
-the angle of rotation and tilt of the Earth in the globe charts. The first three
-menu options here are: “Tilt North”, which pulls the globe down one degree (or
+<p class=B><span class=M>Show Glyphs On Aspect Lines:</span> This toggles
+whether or not aspect lines between planets show aspect glyphs on them. [This
+does the same as the -XA switch.]</p>
+
+<p class=A><span class=M>Map Effects:</span> This submenu allows one to toggle
+various settings which control things on the sphere, map, and globe displays.
+The six commands here are:</p>
+
+<p class=B><span class=M>Show Constellations:</span> This toggles whether or
+not the map displays show in them the astronomical constellations instead of
+the continents of the world. [This does the same as the -XF switch.]</p>
+
+<p class=B><span class=M>Show All Stars:</span> This toggles whether or not the
+map displays show in them every fixed star defined in the sefstars.txt file.
+[This does the same as the -XU switch.]</p>
+
+<p class=B><span class=M>Show House Details:</span> This toggles whether or not
+the map displays show in them the boundaries of the 12 houses. [This does the
+same as the -XC switch.]</p>
+
+<p class=B><span class=M>Show Equator:</span> This toggles whether or not the
+map displays show in them the location of the Earth’s equator. [This does the
+same as the -Xe switch.]</p>
+
+<p class=B><span class=M>Show Cities:</span> This toggles whether or not the
+map displays plot in them the location of every city in the atlas. [This does
+the same as the -XL switch.]</p>
+
+<p class=B><span class=M>Use Ecliptic Axis:</span> This toggles whether the
+chart sphere, globe, and local horizon displays are aligned with the ecliptic.
+[This does the same as the -YXe switch.]</p>
+
+<p class=A><span class=M>Map Orientation:</span> This submenu allows one to
+change the angle of rotation and tilt of the Earth in the globe and related charts,
+along with the zoom level which applies to certain charts. The first three menu
+options here are: “Tilt North”, which pulls the globe down one degree (or
 rather a number of degrees equal to the animation jump factor); “Tilt South”,
 which pulls the globe up one degree; and “Set to Zero”, which returns the globe
 to the standard zero degree angle with the equator edge on. [This affects the
@@ -10459,7 +10772,10 @@
 next two menu options are: “Rotate West”, which rotates the globe to the right
 one degree (or rather a number of degrees equal to the animation jump factor);
 and “Rotate East”, which rotates the globe to the left one degree. [This
-affects the same setting as the first optional parameter to the -XG switch.]</p>
+affects the same setting as the first optional parameter to the -XG switch.]
+The final two menu options are: “Zoom Out” and “Zoom In” which double or halve
+the amount of space visible in the solar system, nearest cities, and telescope
+charts. [This affects the same setting as the -YXS switch.]</p>
 
 <p class=A><span class=M>Modify Display:</span> This toggles whether or not
 each graphics chart is displayed in a slightly modified form, e.g. for the map
@@ -10520,18 +10836,23 @@
 (10) A checkbox indicating whether animation mode affects the orientation of
 map displays, instead of the time of the chart within the map [same as the -XN
 switch].<br>
-(11) A checkbox indicating whether the graphics screen doesn't automatically update
+(11) An edit control specifying the planet to track and keep in the center of
+the display (if any) in the telescope chart [same as the optional parameter
+passed to the -XZ switch].<br>
+(12) A checkbox indicating whether the graphics screen doesn't automatically update
 and redraw after setting changes or window expose events, requiring the user to
 manually force redraws [same as the -Wn switch].<br>
-(12) A radio button group specifying the “wheel chart rotation”, i.e. whether
+(13) A radio button group specifying the “wheel chart rotation”, i.e. whether
 to rotate the entire wheel so an object is at the left edge or at the top edge
 of the chart, and an edit control specifying which object to use when active
 [all this does the same as the -X1 and -X2 switches].<br>
-(13) Four radio button pairs allowing one to select between different glyphs to
-use for Capricorn, Uranus, Pluto, and Lilith [same as -YXG switch].<br>
 (14) A radio button group allowing one to select the decoration for the corners
 of wheel charts, along with an edit control for how much of the image to cover
-with it [same as the -YXv switch].</p>
+with it [same as the -YXv switch].<br>
+(15) Four radio button groups allowing one to select between different glyphs
+to use for Capricorn, Uranus, Pluto, and Lilith [same as -YXG switch].<br>
+(16) Four radio button groups allowing one to select which font to use for
+signs, houses, objects, and aspects [same as -YXf switch].</p>
 
 <p class=Section2>Animate menu commands:</p>
 
@@ -10583,9 +10904,9 @@
 current chart forward one day, or rather the number of units set in the “Jump
 Rate” and “Jump Factor” menus. [This is similar to the -+ switch.]</p>
 
-<p class=A><span class=M>Step Backward:</span> This moves the time of the current
-chart backward one day, or rather the number of units set in the “Jump Rate” and
-“Jump Factor” menus. [This is similar to the -- switch.]</p>
+<p class=A><span class=M>Step Backward:</span> This moves the time of the
+current chart backward one day, or rather the number of units set in the “Jump
+Rate” and “Jump Factor” menus. [This is similar to the -- switch.]</p>
 
 <p class=A><span class=M>Store Chart Info:</span> This copies the time and
 location of the current chart being displayed and remembers it in a special
@@ -10731,10 +11052,11 @@
 “True” (which always evaluates to 1), and “Signs” (the number of signs in the
 zodiac, which is 12). Indexes into the alphabet can be indicated by “%a”
 (number 1) through “%z” (26). Also, there are lists of constants available for
-months, objects, aspects, house systems, signs of the zodiac, color indexes,
-and days of the week. These constants start with a letter and an underscore,
-followed by at least three letters (or enough to be unique). For example, “M_January”,
-“O_Jupiter”, “A_Trine”, “H_Placidus”, “S_Leo”, “K_Green”, and “W_Sunday”.</p>
+months (1-12), objects, aspects, house systems, signs of the zodiac (1-12),
+color indexes, and days of the week (0-6). These constants start with a letter
+and an underscore, followed by at least three letters (or enough to be unique).
+For example, “M_January”, “O_Jupiter”, “A_Trine”, “H_Placidus”, “S_Leo”,
+“K_Green”, and “W_Sunday”.</p>
 
 <p class=B><span class=X>Variable:</span> A numeric value stored somewhere,
 which can change. For example, “Mon” is the month of the current chart.</p>
@@ -10760,11 +11082,12 @@
 
 <p class=B><span class=X>Type:</span> The type of data contained in a parameter
 or variable. All parameters and variables contain either integers or real
-numbers. Integers are signed 32 bit numbers. Real numbers are floating point numbers,
-and real constants always contain decimal points (e.g. “1.0” is real number 1,
-while “1” is integer 1). Boolean values are no different from integers, in
-which False is represented by 0, and True is represented by 1 or any non-zero
-number.</p>
+numbers. Integers are signed 32 bit numbers. Real numbers are floating point
+numbers, and real constants always contain decimal points (e.g. “1.0” is real
+number 1, while “1” is integer 1). Boolean values are no different from
+integers, in which False is represented by 0, and True is represented by 1 or
+any non-zero number. A hexadecimal integer can be specified with the “#”
+prefix, and a binary integer can be specified with the “##” prefix.</p>
 
 <p class=B><span class=X>Function:</span> A type of parameter, which evaluates
 to a number. Functions are followed by zero or more nested parameters. An
@@ -10809,11 +11132,14 @@
 <p class=B><span class=W>Real:</span> Real(Num): Real. Converts a number to
 real. Like the “(float)” cast operator in C.</p>
 
+<p class=B><span class=W>Type:</span> Bool(Num): Is real. Returns the type of
+Num, which means 0 if it’s integer and 1 if it’s real.</p>
+
 <p class=B><span class=W>Add:</span> Num(Num, Num): Addition. Adds two integer
 or two real numbers together.</p>
 
-<p class=B><span class=W>Sub:</span> Num(Num1, Num2): Subtraction. Subtracts Num2
-from Num1.</p>
+<p class=B><span class=W>Sub:</span> Num(Num1, Num2): Subtraction. Subtracts
+Num2 from Num1.</p>
 
 <p class=B><span class=W>Mul:</span> Num(Num, Num): Multiplication. Multiplies
 two numbers together.</p>
@@ -10889,6 +11215,9 @@
 <p class=B><span class=W>Sgn:</span> Num(Num): Sign. Returns the sign of a
 number (-1 if negative, 0 if zero, and 1 if positive).</p>
 
+<p class=B><span class=W>Sgn2:</span> Num(Num): Sign. Returns the sign of a
+number (-1 if negative, and 1 if non-negative).</p>
+
 <p class=B><span class=W>Min:</span> Num(Num1, Num2): Minimum. Returns the
 lower of Num1 and Num2.</p>
 
@@ -10908,6 +11237,12 @@
 <p class=B><span class=W>Dist:</span> Real(Real, Real): Distance. Return the
 distance from the origin to a pair of real coordinates.</p>
 
+<p class=B><span class=W>Ln:</span> Real(Real): Logarithm. Returns the natural
+or base “e” logarithm of a real number.</p>
+
+<p class=B><span class=W>Log10:</span> Real(Real): Logarithm. Returns the base
+10 logarithm of a real number.</p>
+
 <p class=B><span class=W>Sin:</span> Real(Real): Sine. Return the trigonometric
 sine of a real number, specified in radians.</p>
 
@@ -10993,19 +11328,20 @@
 <p class=B><span class=W>Lon:</span> Real: Longitude: Returns the longitude of
 the current chart in degrees West of GMT (-180.0 to 180.0).</p>
 
-<p class=B><span class=W>Lat:</span> Real: Latitude: Returns the latitude of
-the current chart in degrees North of the equator (-90.0 to 90.0).</p>
+<p class=B><span class=W>Lat:</span> Real: Latitude: Returns the latitude of the
+current chart in degrees North of the equator (-90.0 to 90.0).</p>
 
 <p class=B><span class=W>Mon2, Day2, Yea2, Tim2, Dst2, Zon2, Lon2, Lat2:</span>
-Int or Real: Second chart. Like above but returns chart info for chart slot #2.</p>
+Int or Real: Second chart. Like above but returns chart info for chart slot #2.
+There are similar functions for chart slots #1, #3, and #4. Note the difference
+between Mon1 which always references chart slot #1, and just Mon which is the
+current chart being worked with (e.g. for the current chart row in an ephemeris
+table).</p>
 
 <p class=B><span class=W>MonT, DayT, YeaT, TimT:</span> Int or Real: Transit
 chart. Like above but returns chart info for the time to transit over or
 progress to.</p>
 
-<p class=B><span class=W>DayWeek:</span> Int(Int1, Int2, Int3): Day of week.
-Returns the day of the week it is on month Int1, day Int2, year Int3.</p>
-
 <p class=B><span class=W>ObjLon:</span> Real(Int): Object longitude. Returns
 the zodiac position of an object.</p>
 
@@ -11021,6 +11357,11 @@
 <p class=B><span class=W>ObjHouse:</span> Int(Int): Object house. Returns the
 house placement of an object (i.e. 1-12).</p>
 
+<p class=B><span class=W>ObjLon2, ObjLat2, ObjDir2, ObjDirY2, ObjHouse2:</span>
+Int or Real: Second chart. Like above but returns the zodiac position
+longitude, ecliptic latitude, etc, for chart slot #2. There are similar
+functions for chart slots #1, #3, and #4.</p>
+
 <p class=B><span class=W>ObjX:</span> Real(Int): Object X. Returns the X
 coordinate of an object in space, in AU.</p>
 
@@ -11091,6 +11432,13 @@
 <p class=B><span class=W>LonDeg:</span> Real(Real): Longitude degree. Returns
 the degree within a sign of a 0-360 degree zodiac position (0.0 to 30.0).</p>
 
+<p class=B><span class=W>LonHouse:</span> Int(Real): Longitude house. Returns
+the house placement of a 0-360 degree zodiac position (i.e. 1-12).</p>
+
+<p class=B><span class=W>LonHou3D:</span> Real(Real, Real): Longitude 3D house.
+Returns the 3D house placement of a 0-360 degree zodiac position and ecliptic
+latitude, as a decimal value, e.g. 0.0-30.0 for 1st house.</p>
+
 <p class=B><span class=W>LonDist:</span> Real(Real, Real): Returns the minimum
 distance between two 0-360 degree zodiac positions, in degrees (ranging from
 0.0 to 180.0).</p>
@@ -11102,12 +11450,23 @@
 <p class=B><span class=W>LonMid:</span> Real(Real, Real): Returns the midpoint
 of two 0-360 degree zodiac positions.</p>
 
+<p class=B><span class=W>DayWeek:</span> Int(Int1, Int2, Int3): Day of week.
+Returns the day of the week it is on month Int1, day Int2, year Int3.</p>
+
 <p class=B><span class=W>PolDist:</span> Real(RealX1, RealY1, RealX2, RealY2):
 Polar distance. Returns the distance between two sets of longitude and latitude
 coordinates on a globe, in degrees.</p>
 
+<p class=B><span class=W>Oblique:</span> Real: Obliquity. Returns the obliquity
+of the ecliptic of the most recently cast chart, which is usually about 23.5
+degrees.</p>
+
+<p class=B><span class=W>SidDiff:</span> Real: Sidereal offset. Returns the
+precessional offset from the tropical to sidereal zodiacs for the time of the
+most recently cast chart, which for current dates is about -25.0.</p>
+
 <p class=B><span class=W>HouseSys:</span> Int: House system. Returns the index
-of the current house system.</p>
+of the current house system. Same as the _c function.</p>
 
 <p class=B><span class=W>GridNam:</span> Int(IntX, IntY): Grid name. Returns
 the aspect present in the current aspect grid, or sign of the midpoint if a
@@ -11120,6 +11479,17 @@
 coordinates on the main diagonal of a single chart grid. Either way, return
 value is number of arc-seconds.</p>
 
+<p class=B><span class=W>Context:</span> Int: Chart context. Returns what the
+current or most recently cast chart was cast for. This is usually 1-4 to
+indicate which chart in a relationship or wheel is being cast. It can also be 0
+for special case charts (like the chart cast for a progressed time), or -1 for
+one of many charts cast in sequence (like each interval during a transit
+search). This is designed for use in the ~q notification or hooks like ~O that
+take place during chart casting.</p>
+
+<p class=B><span class=W>Version:</span> Real: Program Version. Returns the
+version of Astrolog running, which is 7.10.</p>
+
 <p class=A>Programming functions (which are related to programming and control
 flow):</p>
 
@@ -11168,9 +11538,21 @@
 custom variable pointed to by the value of @a loop. Similar to the “for” loop
 in various languages.</p>
 
-<p class=B><span class=W>Macro: </span>Num(Int). Macro expression. Run and return
-the result of custom expression that was defined in slot Int with the ~M
-command switch.</p>
+<p class=B><span class=W>Macro: </span>Num(Int). Macro expression. Run and
+return the result of custom expression that was defined in slot Int with the ~M
+command switch. AstroExpression macros will evaluate all expressions in
+sequence and return the result of the last one, similar to AstroExpression
+strings assigned to command switch hooks.</p>
+
+<p class=B><span class=W>Switch:</span> Int(Int): Switch macro. Runs the
+command switch macro, as defined with the -M0 switch. Returns whether running
+that macro succeeded. Remember that a command switch macro (running a saved
+command line) is different from an AstroExpression macro (which evaluates a
+defined AstroExpression).</p>
+
+<p class=B><span class=W>RndSeed:</span> Int(Int): Random seed. Initializes the
+random number generation seed used by the Rnd function to an integer. Returns 0
+always.</p>
 
 <p class=B><span class=W>Assign:</span> Num(Int, Num): Variable assignment.
 Assigns Num to the custom variable Int, and also returns that number. Can also
@@ -11180,28 +11562,96 @@
 custom variable “A”, and also returns that number. Can also use functions “=b”
 through “=z” to assign to them.</p>
 
-<p class=A>There are several command switches which allow one to define
+<p class=B><span class=W>_A3, _Ap, _AP0, _b, _b0, _c, _c3, _s, _s0, _sr, _sr0,
+_h, _p, _p0, _pd, _pC, _x, _1, _3, _4, _f, _G, _J, _9, _YT, _YV, _Yh, _Ym, _Ys,
+_Yn, _Yn0, _Yu, _Yr, _YC, _YO, _Yc, _Yp:</span> Bool or Int or Real: Program
+setting. This list of functions queries the Astrolog program setting that’s set
+with the identically named command switch. There are only a few exceptions or
+alternate behaviors: Function _AP0 is a Boolean for the -AP switch setting, and
+includes a “0” in its name to avoid a case insensitive name conflict with _Ap.
+Function _s is a boolean for the -s switch sidereal setting, while _s0 is a
+real for the zodiac offset ayanamsa. Function _1 is non-zero if either the -1
+or -2 solar chart switches are set, and contains (1+object focused upon) if -1
+switch, and (-1-object) if -2 switch.</p>
+
+<p class=A>There are various command switches which allow one to define
 AstroExpression “hooks” into areas of chart calculation or display, to modify
 or filter their results. All AstroExpression related command switches start
-with the tilde (~) character:</p>
+with the tilde “~” character. Note on Unix systems the shell automatically
+expands “~” to your $HOME directory, so on them specify “-~” (dash tilde) or
+“/~” (slash tilde) instead of just “~”, to make it work.</p>
 
-<p class=B><span class=V>1. ~ &lt;string&gt;:</span> Parse AstroExpression. The
+<p class=B><span class=V>~ &lt;string&gt;:</span> Display AstroExpression. The
 passed in string will be parsed and evaluated, and the return value displayed.
 This is useful for debugging expressions, or querying the value of custom
-variables. For example, “<span class=Y>~ 'Sqr Div 9.0 4.0'</span>” will
-evaluate and display the expression “SquareRoot(9.0 / 4.0)” which is 1.5.</p>
-
-<p class=B><span class=V>2. ~a &lt;string&gt;:</span> Adjust aspect powers.
-Called during the -a switch aspect list chart, and allows one to adjust each
-aspect’s power. On entry, custom variables @w and @y are the two objects
-forming aspect, @x is the aspect, and @z is the current power (in thousandths,
-e.g. a power of 1.234 is integer 1234). Return value is ignored, although if @z
-is changed it will be the new power to use. For example, to triple the power of
-any aspect involving an object in the sign Sagittarius, do: <span class=Y>~a
-&quot;If Or Equ LonSign ObjLon @w S_Sag Equ LonSign ObjLon @y S_Sag =z Mul @z
-3&quot;</span></p>
-
-<p class=B><span class=V>3. ~E &lt;string&gt;:</span> Filter ephemeris output.
+variables. It can also be used to debug complex command lines, by inserting
+instances of “~” at appropriate points to display the current values of chart
+information or other internal variables. For example, “<span class=Y>~ 'Sqr Div
+9.0 4.0'</span>” will evaluate and display the expression “SquareRoot(9.0 /
+4.0)” which is 1.5.</p>
+
+<p class=B><span class=V>~v &lt;string&gt;:</span> Adjust object ordering.
+Called each time a chart is cast, and allows changing the order in which
+objects are listed in charts. This affects all lists of objects, including
+aspect grids. On entry, custom variable @z is both the object index and its
+default ordering. Return value is ignored, although if @z is changed it will be
+the new ordering to use (ties are broken in favor of the object with the earlier
+index). For example, to always display Ceres between Mars and Jupiter (instead
+of after all the main planets) do: <span class=Y>~v &quot;If Equ @z O_Cer =z
+O_Mar&quot;</span></p>
+
+<p class=B><span class=V>~g &lt;string&gt;:</span> Filter aspect
+configurations. Called for each aspect configuration in the -g0 aspect chart.
+Return value is whether to display that aspect configuration. On entry, @v is
+the aspect configuration (0=3 planet Stellium, 1=Grand Trine, 2=T-Square,
+3=Yod, 4=Grand Cross, 5=Cradle, 6=Mystic Rectangle, 7=4 planet Stellium). Also,
+@w through @z are the four planets involved (@z will be -1 if the configuration
+only involves 3 planets). For example, to only display grand crosses and grand
+trines, do: <span class=Y>~g &quot;Or Equ @v 1 Equ @v 4&quot;</span></p>
+
+<p class=B><span class=V>~a &lt;string&gt;:</span> Adjust aspect powers. Called
+during the -a switch aspect list chart, and allows one to adjust each aspect’s
+power. On entry, custom variables @w and @y are the two objects forming aspect,
+@x is the aspect, and @z is the current power (in thousandths, e.g. a power of
+1.234 is integer 1234). Return value is ignored, although if @z is changed it
+will be the new power to use. For example, to triple the power of any aspect
+involving an object in the sign Sagittarius, do: <span class=Y>~a &quot;If Or Equ
+LonSign ObjLon @w S_Sag Equ LonSign ObjLon @y S_Sag =z Mul @z 3&quot;</span></p>
+
+<p class=B><span class=V>~a0 &lt;string&gt;:</span> Notify aspect list summary.
+Called once after the -a0 aspect list summary is displayed. On entry, @y is the
+total number of aspects that were displayed, and @z is the total power of all
+aspects. Return value is ignored. For example, if you animate a bunch of aspect
+list charts, you can keep track of the highest total power displayed (i.e.
+store it in custom variable @a) with: <span class=Y>~a0 &quot;If Gt @z @a =a
+@z&quot;</span></p>
+
+<p class=B><span class=V>~m &lt;string&gt;:</span> Filter midpoints. Called for
+each midpoint in the -m midpoint chart. On entry, @w and @x are the two objects
+forming the midpoint, @y is the position of the midpoint, and @z is the angular
+difference between their positions. Returns value is whether to display that
+midpoint. For example, to only display midpoints located within 30 degrees of
+the Sun’s position, do: <span class=Y>~m &quot;Lt LonDist @y ObjLon O_Sun
+30.0&quot;</span></p>
+
+<p class=B><span class=V>~ma &lt;string&gt;:</span> Filter aspects to
+midpoints. Called for each aspect made to a midpoint (or Arabic part) in the
+-ma midpoint list. On entry, @v is the zodiac degree position of the midpoint,
+@w is its velocity, @x is the aspect being made, @y is the object being
+aspected, and @z is the orb between them. Return value is whether to display
+that aspect. For example, to only display tight aspects to the Sun or Moon, do:
+<span class=Y>~ma &quot;And Lt Abs @z 2.0 Lte @y O_Moo&quot;</span></p>
+
+<p class=B><span class=V>~L &lt;string&gt;:</span> Filter latitude crossings.
+Called for each latitude crossing in the -L0 astrocartography chart. On entry,
+@u and @v are the longitude and latitude of the crossing point, @w and @y are
+the two planets whose lines are involved, and @x and @z are object indexes for
+angles indicating which lines are involved. For example, to only display
+latitude crossings involving the Ascendant within 10 degrees of the current
+chart’s latitude do: <span class=Y>~L &quot;And Lt Abs Sub @v Lat1 10 Or Equ @x
+O_Asc Equ @z O_Asc&quot;</span></p>
+
+<p class=B><span class=V>~E &lt;string&gt;:</span> Filter ephemeris output.
 Called for each line in the text ephemeris chart. Return value is whether to
 display the line. For example, to do a stellium search and only display
 ephemeris lines in which there are at least 5 planets in the same sign, do: <span
@@ -11209,32 +11659,35 @@
 @m = LonSign ObjLon @m Inc Var LonSign ObjLon @m =n 0 For %m 1 Signs =n Max @n
 Var @m Gte @n 5&quot;</span></p>
 
-<p class=B><span class=V>4. ~d &lt;string&gt;:</span> Filter transit to transit
-events. Called for each event in the -d switch chart. On entry, @q is the first
-object forming the event, @r is the object’s zodiac position, @s is the
-object’s retrogradation (negative for retrograde), @t is the aspect or other
-event (-1: sign change, -2: direction change, -3: degree change), @u is the
-second object forming the event (or new sign if that event), @v is the second
-object’s zodiac position, @w is the second object’s retrogradation, @x is Moon
-void of course indicator for how many seconds it will be v/c (-1 for not going
-v/c in this event), @y is the eclipse type (-1: eclipse detection turned off,
-0: no eclipse, 1: penumbral, 2: total penumbral, 3: partial, 4: annular, 5:
-total), and @z is the eclipse percentage (if any). Return value is whether to
-display the event. For example, to display eclipses for this year (at least
-those in effect when corresponding aspect is exact) do: <span class=Y>astrolog
--n -dy =Yu ~d &quot;Gt @y 0&quot;</span></p>
-
-<p class=B><span class=V>5. ~t &lt;string&gt;:</span> Filter transit to natal
-events. Called for each event in the -t switch chart. On entry, @t is the first
-object forming the event, @u is the object’s zodiac position, @v is the
-object’s retrogradation (negative for retrograde), @w is the aspect (or -4 for
-3D house change), @x is the second object forming the event (or destination
-house if 3D house change), @y is the second object’s zodiac position, and @z is
-the second object’s retrogradation. Return value is whether to display the
-transit. For example, to only display transit events taking place on weekends,
-do: <span class=Y>~t &quot;=a DayWeek Mon Day Yea Or Equ @a 0 Equ @a 6&quot;</span></p>
-
-<p class=B><span class=V>6. ~j &lt;string&gt;: </span>Filter influence powers.
+<p class=B><span class=V>~P &lt;string&gt;:</span> Filter Arabic parts. Called
+for each Arabic part in the -P parts list chart. On entry, @y is the index of
+the Arabic part (independent of the current sorting order), and @z is the
+zodiac position of that part. Return value is whether to display that part. If
+@z is changed, the part’s position will be updated. For example, to only
+display parts that lie in the 10th house, do: <span class=Y>~P &quot;Equ
+LonHouse @z 10&quot;</span></p>
+
+<p class=B><span class=V>~d &lt;string&gt;:</span> Filter transit to transit
+events. Called for each event in the -d switch chart. On entry, @u is the first
+object forming the event, @v is the aspect or other event (-1: sign change, -2:
+direction change, -3: degree change), @w is the second object forming the event
+(or new sign if that event), @x is Moon void of course indicator for how many
+seconds it will be v/c (-1 for not going v/c in this event), @y is the eclipse
+type (-1: eclipse detection turned off, 0: no eclipse, 1: penumbral, 2: total
+penumbral, 3: partial, 4: annular, 5: total), and @z is the eclipse percentage
+(if any). Return value is whether to display the event. For example, to display
+eclipses for this year (at least those in effect when corresponding aspect is
+exact) do: <span class=Y>astrolog -n -dy =Yu ~d &quot;Gt @y 0&quot;</span></p>
+
+<p class=B><span class=V>~t &lt;string&gt;:</span> Filter transit to natal
+events. Called for each event in the -t switch chart. On entry, @x is the first
+object forming the event, @y is the aspect (or -4 for 3D house change), @z is
+the second object forming the event (or destination house if 3D house change).
+Return value is whether to display the transit. For example, to only display
+transit events taking place on weekends, do: <span class=Y>~t &quot;=a DayWeek
+Mon Day Yea Or Equ @a 0 Equ @a 6&quot;</span></p>
+
+<p class=B><span class=V>~j &lt;string&gt;: </span>Filter influence powers.
 Called when a chart’s object and aspect powers are computed in the text mode -j
 influence and -7 esoteric charts. On entry, @x is the object, @y is its power
 due to positioning, and @z is its power due to aspects. Return value is
@@ -11243,7 +11696,7 @@
 class=Y>~j &quot;=n 0 For %i 0 Objs If And Neq @i @x GridNam Min @i @x Max @i
 @x =n Inc @n If Lte @n 0 =z Add @z 100.0&quot;</span></p>
 
-<p class=B><span class=V>7. ~O &lt;string&gt;:</span> Adjust object position.
+<p class=B><span class=V>~O &lt;string&gt;:</span> Adjust object position.
 Called each time a chart is cast, and allows changing objects’ positions. On
 entry, @v is the object index, @w is the object’s zodiac position, @x is the
 object’s ecliptic latitude, @y is the object’s zodiac position velocity
@@ -11253,26 +11706,40 @@
 degrees for locations south of the equator, do: <span class=Y>~O &quot;=w Add
 @w 180.0 Lt Lat 0.0&quot;</span></p>
 
-<p class=B><span class=V>8. ~C &lt;string&gt;:</span> Adjust house cusp
-position. Called each time a chart is cast, and allows changing house cusp
-positions. On entry, @x is the house cusp (1-12), @y is the cusp’s zodiac
-position, and @z is the cusp’s 3D house position. Return value is ignored,
-although if @y and @z are changed the cusp’s positions will be updated. For
-example, Astrolog supports Null houses or the “0 Aries” system, an equal house
-system in which the 1st house cusp is always 0Aries. Suppose you want a “0 Leo”
-house system in which the 1st house cusp is always 0Leo? This can be done with:
-<span class=Y>~C &quot;=y Mul Sub Add S_Leo @x 2 30.0&quot;</span></p>
-
-<p class=B><span class=V>9. ~A &lt;string&gt;:</span> Redefine aspect orb.
-Called for each cell whenever the aspect grid is internally composed. On entry,
-@v and @x are the two objects potentially being aspected, @w is the aspect, @y
-is the difference in angle between them (negative for applying and positive for
+<p class=B><span class=V>~C &lt;string&gt;:</span> Adjust house cusp position.
+Called each time a chart is cast, and allows changing house cusp positions. On
+entry, @x is the house cusp (1-12), @y is the cusp’s zodiac position, and @z is
+the cusp’s 3D house position. Return value is ignored, although if @y and @z
+are changed the cusp’s positions will be updated. For example, Astrolog
+supports Null houses or the “0 Aries” system, an equal house system in which
+the 1st house cusp is always 0Aries. Suppose you want a “0 Leo” house system in
+which the 1st house cusp is always 0Leo? This can be done with: <span class=Y>~C
+&quot;=y Mul Sub Add S_Leo @x 2 30.0&quot;</span></p>
+
+<p class=B><span class=V>~A &lt;string&gt;:</span> Redefine aspect orb. Called
+for each cell whenever the aspect grid is internally composed. On entry, @v and
+@x are the two objects potentially being aspected, @w is the aspect, @y is the
+difference in angle between them (negative for applying and positive for
 separating), and @z is the default max orb. Return value is ignored, although
 if @z is changed it will be the new max orb to use. For example, to have
 separating aspects have 70% the orb of applying aspects, do: <span class=Y>~A
 &quot;If Gt @y 0.0 =z Mul @z 0.70&quot;</span></p>
 
-<p class=B><span class=V>10. ~kO &lt;string&gt;:</span> Customize object color.
+<p class=B><span class=V>~p[0] &lt;string&gt;:</span> Adjust progression. The
+~p string AstroExpression is called whenever a chart is about to be secondary
+progressed, and the ~p0 string is called whenever a chart is about to be solar
+arc progressed. (Mixed progressions that do solar arc for cusps and secondary
+for planets will call both.) On entry, @x is the Julian time of the natal
+chart, @y is the Julian time to use for progressed house cusps (which may be
+different from planets if the -pC switch cusp move ratio is set), and @z is the
+Julian time to use for progressed planets. Return value is ignored, although @z
+(and also @y for ~p) can be modified to change the progressed results. For
+example, to have progressions move at a logarithmic rate (fast early in life,
+and continually slowing down over time) in the manner presented by A.T. Mann,
+do: <span class=Y>~p0 &quot;If Gte @x @y =z Sub Mul Log10 Add Div Div Sub @x @y
+365.25 0.076661459 10 120 120&quot;</span></p>
+
+<p class=B><span class=V>~kO &lt;string&gt;:</span> Customize object color.
 Called each time an object glyph is displayed, and allows one to change its
 color. On entry, @y is the object, and @z is the default color. Return value is
 ignored, although if @z is changed it will be the new color to use. For
@@ -11280,32 +11747,54 @@
 within, do: <span class=Y>~kO &quot;=z ObjCol Dec Add O_Asc LonSign ObjLon
 @y&quot;</span></p>
 
-<p class=B><span class=V>11. ~kA &lt;string&gt;:</span> Customize aspect color.
+<p class=B><span class=V>~kA &lt;string&gt;:</span> Customize aspect color.
 Called each time an aspect line is drawn between two planets in a wheel chart,
 and allows one to change its color. On entry, @w and @y are the two objects
 being aspected, @x is the aspect, and @z is the default color. Return value is
 ignored, although if @z is changed it will be the new color to use. For
-example, to change the color of aspect lines involving the Sun or Moon to magenta,
-do: <span class=Y>~kA &quot;If Or Lte @w O_Moo Lte @y O_Moo =z K_Mag&quot;</span></p>
-
-<p class=B><span class=V>12. ~M &lt;0-26&gt; &lt;string&gt;:</span> Define
+example, to change the color of aspect lines involving the Sun or Moon to
+magenta, do: <span class=Y>~kA &quot;If Or Lte @w O_Moo Lte @y O_Moo =z K_Mag&quot;</span></p>
+
+<p class=B><span class=V>~q[1-2] &lt;string&gt;:</span> Notify chart cast. The
+~q1 string AstroExpression is called whenever a chart is about to be cast, and
+the ~q2 string is called whenever a chart has just been cast. This is designed
+to be used along with other AstroExpression hooks that adjust chart casting,
+when there’s initialization or finalization code needed. (For example, when the
+~O hook is called, it can’t tell whether it’s the first or last object being
+adjusted.) </p>
+
+<p class=B><span class=V>~Q[1-2] &lt;string&gt;:</span> Notify chart display.
+The ~Q1 string AstroExpression is called whenever a chart is about to be
+displayed, and the ~Q2 string is called whenever a chart has just been
+displayed. This is designed to be used along with other AstroExpression hooks
+that adjust chart display, when there’s initialization or finalization code
+needed.</p>
+
+<p class=B><span class=V>~M &lt;0-26&gt; &lt;string&gt;:</span> Define
 AstroExpression macro: Similar to command switch macros, you can define custom
 AstroExpression macro functions. The first parameter is the macro slot to fill,
 and the second is the AstroExpression to place within it. Macros can be called
 in AstroExpressions with the “Macro &lt;arg&gt;” function, in which parameter
 &lt;arg&gt; is the macro index to call.</p>
 
-<p class=B><span class=V>13. ~0:</span> Disable AstroExpressions.
-AstroExpressions are often hooks inserted into program operation, which means
-they may be evaluated on every screen update. Therefore, they automatically get
-disabled if there’s an error parsing one, to avoid a continuous stream of
-errors. The ~0 switch disables all AstroExpression hooks in the current program
-session, which means “_~0” can be used to reenable them. This setting will also
-disable the display of the result when using the ~ switch, although not any
-side effects of its evaluation (which is useful to e.g. initialize custom
-variables in switch files without getting popup windows). In the Windows
-version, the “Enter Command Line” dialog has a new “Enable AstroExpression
-Hooks” checkbox, which can be used to enable, disable, or check their status.</p>
+<p class=B><span class=V>~1 &lt;string&gt;:</span> Run expression. This simply
+parses the string as an AstroExpression, and does nothing else. This is very
+similar to the “~” switch except that also displays the final result. This
+switch is good to use in a command switch file (to for example initialize
+custom AstroExpression variables) when you don’t want popup messages
+interrupting anything.</p>
+
+<p class=B><span class=V>~0:</span> Disable AstroExpressions. AstroExpressions
+are often hooks inserted into program operation, which means they may be
+evaluated on every screen update. Therefore, they automatically get disabled if
+there’s an error parsing one, to avoid a continuous stream of errors. The ~0
+switch disables all AstroExpression hooks in the current program session, which
+means “_~0” can be used to reenable them. This setting will also disable the
+display of the result when using the ~ switch, although not any side effects of
+its evaluation (which is useful to e.g. initialize custom variables in switch
+files without getting popup windows). In the Windows version, the “Enter
+Command Line” dialog has a “Enable AstroExpression Hooks” checkbox, which can
+be used to enable, disable, or check their status.</p>
 
 <p class=N>One final feature is that parsing of many dialog fields and command
 switches can use AstroExpressions. If the parameter starts with a tilde (~)
@@ -11354,8 +11843,8 @@
 be on, such as INTERPRET, as well as some of the system settings like TIME,
 because there are menu options that deal with them that won't automatically
 disappear if they’re disabled. The included file Astrolog.vcproj may be used as
-a project file or makefile. Ensure “Project / Astrolog Properties / Configuration
-Properties / Linker / System / Subsystem” is set to “Windows
+a project file or makefile. Ensure “Project / Astrolog Properties /
+Configuration Properties / Linker / System / Subsystem” is set to “Windows
 (/SUBSYSTEM:WINDOWS)” so it will be compiled as a Windows program. Also
 manually add shlwapi.lib to the “Project / Astrolog Properties / Configuration
 Properties / Linker / Command Line / Additional Options” area, because it may
@@ -11382,11 +11871,11 @@
 up a generic window with the -X switch, when the WCLI #define is uncommented
 when compiling. This is different from the standard Windows version (which is a
 full windowed program and not a command line program). The WCLI window won’t
-have a menu bar, but it will still accept keypresses. It’s basically a Windows
-version of the X11 and Mac graphics versions, just compiled for Windows instead
-of those alternate platforms. The WCLI version is more limited, but useful for
-testing the generic window source code of the program without having to go to
-different platforms.</p>
+have a menu bar, but it will still accept keypresses and mouse clicks. It’s
+basically a Windows version of the X11 and Mac graphics versions, just compiled
+for Windows instead of those alternate platforms. The WCLI version is more
+limited, but useful for testing the generic window source code of the program
+without having to go to different platforms.</p>
 
 <p class=A>--</p>
 
@@ -11414,16 +11903,16 @@
 program terminates, the window title will prompt you to press return one more
 time to exit before the window actually goes away.</p>
 
-<p class=A>The program can read from the default settings file, and will use
-ephemeris files for accurate calculations if -b is in effect. These and chart
-info files are the same and fully compatible with such files from PC and Unix
-versions. All files must however be in the Astrolog folder for the program to
-find them. The -n chart for now switch will work accurately provided the
-current time and zone are set up correctly in the Control Panels. The -k Ansi
-text feature does exist in Mac Astrolog, but the terminal won't be able to
-display the control codes properly, so this isn't really useful unless the
-output is sent to a file and later displayed in an environment that understands
-the codes and can show the colored text.</p>
+<p class=A>The program can read from the default settings file, and will use ephemeris
+files for accurate calculations if -b is in effect. These and chart info files
+are the same and fully compatible with such files from PC and Unix versions.
+All files must however be in the Astrolog folder for the program to find them.
+The -n chart for now switch will work accurately provided the current time and
+zone are set up correctly in the Control Panels. The -k Ansi text feature does
+exist in Mac Astrolog, but the terminal won't be able to display the control
+codes properly, so this isn't really useful unless the output is sent to a file
+and later displayed in an environment that understands the codes and can show
+the colored text.</p>
 
 <p class=A>Astrolog’s source code can be compiled and run on the classic
 Macintosh perfectly with no special modifications needed. In making the
@@ -11444,11 +11933,11 @@
 displayed in it, and can press keys while the window is up to change or alter
 the display. This makes the Mac version more or less equivalent in
 functionality to the X Windows version, although a few things such as mouse
-scribbles on the screen and flicker free updates aren't available. In the source
-code, there’s a compile time option in the astrolog.h file called MACG. When
-set, it will compile in the Mac screen graphics. When commented out, it will be
-like before. The MACG define is like the X11 compile time variable which turns
-on screen graphics for a different platform.</p>
+scribbles on the screen and flicker free updates aren't available. In the
+source code, there’s a compile time option in the astrolog.h file called MACG.
+When set, it will compile in the Mac screen graphics. When commented out, it
+will be like before. The MACG define is like the X11 compile time variable
+which turns on screen graphics for a different platform.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -11458,7 +11947,7 @@
 
 </div>
 
-<p class=A>This is a comprehensive history list of the 32 versions of Astrolog
+<p class=A>This is a comprehensive history list of the 33 versions of Astrolog
 that have been released since its beginning. Below is a listing of all versions
 of Astrolog that have been released, after which for each version, is listed
 the description of the new features and changes added to that version.</p>
@@ -11514,10 +12003,11 @@
 
 <p class=FA>18  4.30  Mon 28 Nov 94  9:35:33 UTC  Parallel aspects, bug fixes</p>
 
-<p class=FA>19  4.40  Sun 12 Feb 95  4:28:11 UTC  Macintosh support, Arabic
+<p class=FA>19  4.40  Sun 12 Feb 95  4:28:11 UTC  Macintosh support, Arabic
 parts</p>
 
-<p class=FA>20  5.00  Mon 24 Jul 95 10:55:53 UTC  Windows interface, asteroid ephemeris</p>
+<p class=FA>20  5.00  Mon 24 Jul 95 10:55:53 UTC  Windows interface, Placalc asteroid
+ephemeris</p>
 
 <p class=FA>21  5.05  Sun 20 Aug 95  9:29:49 UTC  Bug fixes over v5.00</p>
 
@@ -11540,7 +12030,7 @@
 
 <p class=FA>28  6.20  Mon 20 Mar 17 10:28:39 UTC  3D houses, bug fixes</p>
 
-<p class=FA>29  6.30  Mon 23 Oct 17  5:26:42 UTC  Chart spheres, transit
+<p class=FA>29  6.30  Mon 23 Oct 17  5:26:42 UTC  Chart spheres, 3D aspects, transit
 graphs, Swiss Ephemeris stars</p>
 
 <p class=FA>30  6.40  Sun 22 Jul 18 21:00:21 UTC  3D wireframes, 3D orbs,
@@ -11552,6 +12042,9 @@
 <p class=FA>32  7.00  Tue  5 Jun 20 19:12:23 UTC  Atlas, eclipses, many
 asteroids, context menus, AstroExpressions</p>
 
+<p class=FA>33  7.10  Tue  1 Oct 20 21:05:15 UTC  Telescope chart, nearest
+cities chart, planetary moons, more fonts</p>
+
 <p class=A>All of the above versions of Astrolog except 2.25, 3.05, and 5.05
 and those after it, were posted in direct source file, shell archive, and/or
 zip archive form to the Usenet newsgroup alt.astrology. Versions 2.10, 2.25,
@@ -11576,8 +12069,8 @@
 by Walter D. Pullen (<a href="mailto:Astara@msn.com">Astara@msn.com</a>, <a
 href="http://www.astrolog.org/astrolog.htm">http://www.astrolog.org/astrolog.htm</a>).
 Permission is granted to freely use, modify, and distribute these routines
-provided these credits and notices remain unmodified with any altered or distributed
-versions of the program.</p>
+provided these credits and notices remain unmodified with any altered or
+distributed versions of the program.</p>
 
 <p class=A>The main ephemeris databases and calculation routines are from the
 library SWISS EPHEMERIS and are programmed and copyright 1997-2008 by
@@ -11624,7 +12117,7 @@
 &quot;Cruiser1&quot; Pullen :)       !       <a href="mailto:Astara@msn.com">Astara@msn.com</a>      
 <span style='background:silver'>*</span></p>
 
-<p class=FA><span style='background:silver'>O</span>  Astrolog 7.00 homepage: <a
+<p class=FA><span style='background:silver'>O</span>  Astrolog 7.10 homepage: <a
 href="http://www.magitech.com/astrolog/astrolog.htm">http://www.magitech.com/astrolog/astrolog.htm</a>
  <span style='background:silver'>O</span></p>
 
diff --git a/astrolog.rc b/astrolog.rc
index 822627c..64560e4 100644
--- a/astrolog.rc
+++ b/astrolog.rc
@@ -205,7 +205,7 @@ BEGIN
         MENUITEM "D&efault Chart Info...\tAlt+d", cmdDefaultInfo
         MENUITEM SEPARATOR
         MENUITEM "Set Chart #&2 Info...\tAlt+Z", cmdSetInfo2
-        MENUITEM "Charts #&3 And #4...\tCtrl+Z", cmdSetInfoAll
+        MENUITEM "Charts #&3 and #4...\tCtrl+Z", cmdSetInfoAll
         MENUITEM SEPARATOR
         MENUITEM "No &Relationship Chart\tc",   cmdRelNo
         MENUITEM "Com&parison Chart\tc",        cmdRelComparison
@@ -215,8 +215,8 @@ BEGIN
         MENUITEM SEPARATOR
         MENUITEM "Date &Difference Chart\tD",   cmdRelDate
         MENUITEM "&Biorhythm Chart\tY",         cmdRelBiorhythm
-        MENUITEM "&Transit And Natal\tAlt+N",   cmdRelTransit
-        MENUITEM "&Progressed And Natal\tAlt+D", cmdRelProgressed
+        MENUITEM "&Transit and Natal\tAlt+N",   cmdRelTransit
+        MENUITEM "&Progressed and Natal\tAlt+D", cmdRelProgressed
     END
     POPUP "&Setting"
     BEGIN
@@ -293,7 +293,8 @@ BEGIN
         MENUITEM "Astro-Grap&h\tL",             cmdChartAstroGraph
         MENUITEM "&Ephemeris\tE",               cmdChartEphemeris
         MENUITEM "A&rabic Parts\tAlt+p",        cmdChartArabic
-        MENUITEM "Risi&ng And Setting\tAlt+L",  cmdChartRising
+        MENUITEM "Risi&ng and Setting\tI",      cmdChartRising
+        MENUITEM "Nearest Cities\tAlt+L",       cmdChartLocal
         MENUITEM SEPARATOR
         MENUITEM "&Transits...\tAlt+T",         cmdTransit
         MENUITEM "&Progressions...\tAlt+P",     cmdProgress
@@ -306,23 +307,10 @@ BEGIN
         MENUITEM "Draw &World Map\tW",          cmdChartMap
         MENUITEM "Draw &Globe\tG",              cmdChartGlobe
         MENUITEM "Draw &Polar Globe\tP",        cmdChartPolar
-        POPUP "Show Map &Effects"
-        BEGIN
-            MENUITEM "Show &Constellations\tF",     cmdConstellation
-            MENUITEM "Show All &Stars\tCtrl+s",     cmdGraphicsAllStar
-            MENUITEM "Show &House Details\td",      cmdGraphicsHouse
-            MENUITEM "Show &Equator\te",            cmdGraphicsEquator
-            MENUITEM "Show C&ities\tCtrl+c",        cmdGraphicsCity
-            MENUITEM "Show &Glyphs On Aspect Lines\tk", cmdGraphicsAspect
-            MENUITEM "Use Ecliptic &Axis\tCtrl+x",  cmdGraphicsAxis
-        END
+        MENUITEM "Draw &Telescope\tT",          cmdChartTelescope
         MENUITEM SEPARATOR
         MENUITEM "&Reverse Background\tx",      cmdGraphicsReverse
         MENUITEM "&Monochrome\tm",              cmdGraphicsMonochrome
-        MENUITEM "Show &Border\tb",             cmdGraphicsBorder
-        MENUITEM "Show Chart &Info\tt",         cmdGraphicsText
-        MENUITEM "Show I&nfo Sidebar\tAlt+t",   cmdGraphicsSidebar
-        MENUITEM "Show Glyph &Labels\tl",       cmdGraphicsLabel
         MENUITEM "S&quare Screen\tQ",           cmdGraphicsSquare
         POPUP "Character &Scale"
         BEGIN
@@ -334,7 +322,24 @@ BEGIN
             MENUITEM "&Decrease\t<",                cmdScaleDecrease
             MENUITEM "&Increase\t>",                cmdScaleIncrease
         END
-        POPUP "Globe &Tilt"
+        POPUP "&Chart Effects"
+        BEGIN
+            MENUITEM "Show &Border\tb",             cmdGraphicsBorder
+            MENUITEM "Show Chart &Info\tt",         cmdGraphicsText
+            MENUITEM "Show Info &Sidebar\tAlt+t",   cmdGraphicsSidebar
+            MENUITEM "Show Glyph &Labels\tl",       cmdGraphicsLabel
+            MENUITEM "Show Glyphs On &Aspect Lines\tk", cmdGraphicsAspect
+        END
+        POPUP "Map &Effects"
+        BEGIN
+            MENUITEM "Show &Constellations\tF",     cmdConstellation
+            MENUITEM "Show All &Stars\tCtrl+s",     cmdGraphicsAllStar
+            MENUITEM "Show &House Details\td",      cmdGraphicsHouse
+            MENUITEM "Show &Equator\te",            cmdGraphicsEquator
+            MENUITEM "Show C&ities\tCtrl+c",        cmdGraphicsCity
+            MENUITEM "Use Ecliptic &Axis\tCtrl+x",  cmdGraphicsAxis
+        END
+        POPUP "Map &Orientation"
         BEGIN
             MENUITEM "Set Tilt to &Zero\tAlt+E",    cmdTiltZero
             MENUITEM SEPARATOR
@@ -343,6 +348,9 @@ BEGIN
             MENUITEM SEPARATOR
             MENUITEM "Rotate &West\t{",             cmdRotateWest
             MENUITEM "Rotate &East\t}",             cmdRotateEast
+            MENUITEM SEPARATOR
+            MENUITEM "Zoom &Out\tCtrl+[",           cmdZoomOut
+            MENUITEM "Zoom &In\tCtrl+]",            cmdZoomIn
         END
         MENUITEM SEPARATOR
         MENUITEM "Modify &Display\ti",          cmdGraphicsModify
@@ -436,7 +444,7 @@ BEGIN
         MENUITEM "List &Constellations\tAlt+5", cmdHelpConstellation
         MENUITEM "List &Planet Info\tAlt+6",    cmdHelpPlanetInfo
         MENUITEM "List &Rays\tAlt+&&",          cmdHelpRay
-        MENUITEM "List &General Meanings\tI",   cmdHelpMeaning
+        MENUITEM "List &General Meanings\tCtrl+i", cmdHelpMeaning
         MENUITEM "List S&witches\tAlt+8",       cmdHelpSwitch
         MENUITEM "List O&bscure Switches\tAlt+9", cmdHelpObscure
         MENUITEM "List &Keystrokes\t?",         cmdHelpKeystroke
@@ -469,7 +477,7 @@ BEGIN
         MENUITEM "&Applying Aspects\tAlt+X",    cmdApplying
         MENUITEM SEPARATOR
         MENUITEM "&Transpose Grid\ti",          cmdGraphicsModify
-        MENUITEM "&Highlight Main Diagonal\tk", cmdGraphicsAspect
+        MENUITEM "&Highlight Main Axis\tk",     cmdGraphicsAspect
     END
 END
 
@@ -479,6 +487,7 @@ BEGIN
     BEGIN
         MENUITEM "Use &Polar Projection\t0",    cmdChartModify
         MENUITEM SEPARATOR
+        MENUITEM "Show &Constellations\tF",     cmdConstellation
         MENUITEM "Show Sign &Boundaries\tz",    cmdHouseSetVedic
         MENUITEM "Show &House Boundaries\td",   cmdGraphicsHouse
         MENUITEM "House Boundaries Are &3D\ta", cmdHouseSet3D
@@ -536,7 +545,7 @@ BEGIN
     BEGIN
         MENUITEM "&Circle Final Dispositors\ti", cmdGraphicsModify
         MENUITEM "&Planets Arranged Clockwise\tz", cmdHouseSetVedic
-        MENUITEM "Sun At &Top Of Wheels\td",    cmdGraphicsHouse
+        MENUITEM "Sun at &Top of Wheels\td",    cmdGraphicsHouse
     END
 END
 
@@ -577,6 +586,20 @@ BEGIN
     END
 END
 
+menuN MENU
+BEGIN
+    POPUP "Local"
+    BEGIN
+        MENUITEM "Show Lines to &Planets\tz",   cmdHouseSetVedic
+        MENUITEM "Show &Equator\te",            cmdGraphicsEquator
+        MENUITEM "Show &Degree Grid\td",        cmdGraphicsHouse
+        MENUITEM SEPARATOR
+        MENUITEM "&Label Cities\tCtrl+c",       cmdGraphicsCity
+        MENUITEM "&Color Cities\tk",            cmdGraphicsAspect
+        MENUITEM "Show &Big City Dots\ti",      cmdGraphicsModify
+    END
+END
+
 menuD MENU
 BEGIN
     POPUP "Transits"
@@ -586,12 +609,12 @@ BEGIN
     END
 END
 
-menuX MENU
+menuXX MENU
 BEGIN
     POPUP "Sphere"
     BEGIN
-        MENUITEM "Show &Other Half Of Sphere\t0", cmdChartModify
-        MENUITEM "Show Just Half Of S&phere\ti", cmdGraphicsModify
+        MENUITEM "Show &Other Half of Sphere\t0", cmdChartModify
+        MENUITEM "Show Just Half of S&phere\ti", cmdGraphicsModify
         MENUITEM SEPARATOR
         MENUITEM "Show Sign &Boundaries\tz",    cmdHouseSetVedic
         MENUITEM "Show &House Boundaries\td",   cmdGraphicsHouse
@@ -605,7 +628,7 @@ BEGIN
     END
 END
 
-menuG MENU
+menuXG MENU
 BEGIN
     POPUP "Globe"
     BEGIN
@@ -622,6 +645,27 @@ BEGIN
     END
 END
 
+menuXZ MENU
+BEGIN
+    POPUP "Telescope"
+    BEGIN
+        MENUITEM "Show &Constellations\tF",     cmdConstellation
+        MENUITEM "Show Sign &Boundaries\tz",    cmdHouseSetVedic
+        MENUITEM "Show &House Boundaries\td",   cmdGraphicsHouse
+        MENUITEM "House Boundaries Are &3D\ta", cmdHouseSet3D
+        MENUITEM "Show Horizon &Line\te",       cmdGraphicsEquator
+        MENUITEM SEPARATOR
+        MENUITEM "Show &Moon Phases\tk",        cmdGraphicsAspect
+        MENUITEM "&Outline Occulted Planets\t0", cmdChartModify
+        MENUITEM "Label &Planets\tl",           cmdGraphicsLabel
+        MENUITEM "Show Bi&g Planet Dots\ti",    cmdGraphicsModify
+        MENUITEM "Show All &Stars\tCtrl+s",     cmdGraphicsAllStar
+        MENUITEM "Show &Degree Grid\tCtrl+c",   cmdGraphicsCity
+        MENUITEM SEPARATOR
+        MENUITEM "Use &Ecliptic Axis\tCtrl+x",  cmdGraphicsAxis
+    END
+END
+
 
 /////////////////////////////////////////////////////////////////////////////
 //
@@ -1039,9 +1083,9 @@ BEGIN
     CONTROL         "Given &Day",dr08,"Button",BS_AUTORADIOBUTTON | WS_GROUP,131,15,65,10
     CONTROL         "Given &Month",dr09,"Button",BS_AUTORADIOBUTTON,131,25,65,10
     CONTROL         "Given &Year",dr10,"Button",BS_AUTORADIOBUTTON,131,35,65,10
-    CONTROL         "&Range Of Years",dr11,"Button",BS_AUTORADIOBUTTON,131,45,65,10
+    CONTROL         "&Range of Years",dr11,"Button",BS_AUTORADIOBUTTON,131,45,65,10
     EDITTEXT        deTr_tY,185,55,30,13,ES_AUTOHSCROLL
-    CONTROL         "&Progress Instead Of Transit",dxTr_p,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,120,75,105,10
+    CONTROL         "&Progress Instead of Transit",dxTr_p,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,120,75,105,10
     CONTROL         "Display Transit R&eturns Only",dxTr_r,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,120,85,105,10
     CONTROL         "Grap&hs Include All Planets",dxTr_g,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,120,95,105,10
     EDITTEXT        deTr_d,190,105,30,13,ES_AUTOHSCROLL
@@ -1054,7 +1098,7 @@ BEGIN
     LTEXT           "Searching Divisions:",IDC_STATIC,120,105,70,8
     GROUPBOX        "Transit Type",IDC_STATIC,5,5,110,90
     GROUPBOX        "Transit To Natal Info",IDC_STATIC,5,100,105,80
-    GROUPBOX        "Times And Graph Cover",IDC_STATIC,125,5,95,65
+    GROUPBOX        "Times and Graph Cover",IDC_STATIC,125,5,95,65
     ICON            icon2,IDC_STATIC,130,135,20,20
 END
 
@@ -1070,18 +1114,18 @@ BEGIN
     EDITTEXT        deSe_h,65,35,40,13,ES_AUTOHSCROLL
     EDITTEXT        deSe_x,85,50,20,13,ES_AUTOHSCROLL
     EDITTEXT        deSe_4,85,65,20,13,ES_AUTOHSCROLL
-    CONTROL         "Compute Solar System Bar&ycenter Instead Of Sun",dxSe_Yh,
+    CONTROL         "Compute Solar System Bar&ycenter Instead of Sun",dxSe_Yh,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,80,180,10
-    CONTROL         "Compute True N&ode Instead Of Mean Node",dxSe_Yn,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,90,180,10
-    CONTROL         "&Cusp Objects Are House Positions Instead Of Angles",dxSe_Yc0,
+    CONTROL         "Compute True N&ode Instead of Mean Node",dxSe_Yn,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,90,180,10
+    CONTROL         "&Cusp Objects Are House Positions Instead of Angles",dxSe_Yc0,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,100,180,10
-    CONTROL         "Sidereal Zodiac Relative To Plane Of So&lar System",dxSe_ys,
+    CONTROL         "Sidereal Zodiac Relative To Plane of So&lar System",dxSe_ys,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,110,180,10
     CONTROL         "&None",dr01,"Button",BS_AUTORADIOBUTTON | WS_GROUP,10,130,35,10
     CONTROL         "Object On &Ascendant",dr02,"Button",BS_AUTORADIOBUTTON,10,140,90,10
     CONTROL         "Object On &Midheaven",dr03,"Button",BS_AUTORADIOBUTTON,10,149,90,10
     EDITTEXT        deSe_1,65,160,40,13,ES_AUTOHSCROLL
-    CONTROL         "Use &Start Of Planet's Sign",dxSe_10,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,10,175,95,10
+    CONTROL         "Use &Start of Planet's Sign",dxSe_10,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,10,175,95,10
     CONTROL         "&Equatorial Latitudes",dxSe_sr0,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,115,40,80,10
     CONTROL         "E&quatorial Longitudes",dxSe_sr,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,115,50,80,10
     CONTROL         "&True Space Positions",dxSe_yt,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,115,60,80,10
@@ -1148,7 +1192,7 @@ BEGIN
     LTEXT           "Text House Wheel Rows:",IDC_STATIC,5,15,82,8
     LTEXT           "Text Astro-Graph Degree Step Rate:",IDC_STATIC,5,130,120,8
     LTEXT           "Number of Arabic Parts To Display:",IDC_STATIC,5,165,120,8
-    LTEXT           "Number Of Days Biorhythm Chart Covers:",IDC_STATIC,5,190,130,8
+    LTEXT           "Number of Days Biorhythm Chart Covers:",IDC_STATIC,5,190,130,8
     GROUPBOX        "Fixed Star Ordering",IDC_STATIC,185,5,75,85
     GROUPBOX        "Arabic Part Ordering",IDC_STATIC,185,95,75,55
     ICON            icon3,IDC_STATIC,170,155,21,20
@@ -1161,29 +1205,29 @@ FONT 8, "MS Sans Serif", 0, 0, 0x0
 BEGIN
     DEFPUSHBUTTON   "OK",IDOK,215,205,50,14
     PUSHBUTTON      "Cancel",IDCANCEL,160,205,50,14
-    CONTROL         "Round Positions To &Nearest Unit Instead Of Crop",dxDi_Yr,
+    CONTROL         "Round Positions To &Nearest Unit Instead of Crop",dxDi_Yr,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,5,175,10
-    CONTROL         "Display &Dates In D/M/Y Instead Of M/D/Y Format",dxDi_Yd,
+    CONTROL         "Display &Dates in D/M/Y Instead of M/D/Y Format",dxDi_Yd,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,15,175,10
-    CONTROL         "Display &Times In 24 Hour Instead Of am/pm Format",dxDi_Yt,
+    CONTROL         "Display &Times in 24 Hour Instead of am/pm Format",dxDi_Yt,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,25,175,10
-    CONTROL         "Display &Lengths In Metric Instead Of Imperial Format",dxDi_Yv,
+    CONTROL         "Display &Lengths in Metric Instead of Imperial Format",dxDi_Yv,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,35,175,10
     CONTROL         "Ignore Insignificant House &Cusp Aspects",dxDi_YC,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,45,175,10
-    CONTROL         "Clip Text Charts At Rightmost (e.g. &80th) Column",dxDi_Y8,
+    CONTROL         "Clip Text Charts at Rightmost (e.g. &80th) Column",dxDi_Y8,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,55,175,10
-    CONTROL         "Restrict &Sign Change Events In Searches",dxDi_YR0_s,
+    CONTROL         "Restrict &Sign Change Events in Searches",dxDi_YR0_s,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,65,175,10
-    CONTROL         "Restrict Di&rection Change Events In Searches",dxDi_YR0_d,
+    CONTROL         "Restrict Di&rection Change Events in Searches",dxDi_YR0_d,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,75,175,10
     EDITTEXT        deDi_RO,115,85,45,13,ES_AUTOHSCROLL
-    CONTROL         "&Export Text And Print In Intuitive Manner",dxDi_YO,
+    CONTROL         "&Export Text and Print in Intuitive Manner",dxDi_YO,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,100,155,10
-    CONTROL         "E&xport Text Files In HTML Format",dxDi_kh,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,110,155,10
-    CONTROL         "&Output Chart Data Files In Old Style Format",dxDi_Yo,
+    CONTROL         "E&xport Text Files in HTML Format",dxDi_kh,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,110,155,10
+    CONTROL         "&Output Chart Data Files in Old Style Format",1318,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,120,155,10
-    CONTROL         "Use Real System &Fonts In Graphic Charts",dxDi_YXf,
+    CONTROL         "Use Real System &Fonts in Graphic Charts",dxDi_YXf,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,131,155,10
     EDITTEXT        deDi_YXp0_x,115,145,25,13,ES_AUTOHSCROLL
     EDITTEXT        deDi_YXp0_y,115,161,25,13,ES_AUTOHSCROLL
@@ -1213,17 +1257,17 @@ BEGIN
     GROUPBOX        "PostScript Paper Orientation",IDC_STATIC,5,175,115,45
     GROUPBOX        "Display Format",IDC_STATIC,185,0,80,45
     GROUPBOX        "Rulership Restrictions",IDC_STATIC,185,45,80,65
-    GROUPBOX        "Rising And Setting Restrictions",IDC_STATIC,150,156,115,35
+    GROUPBOX        "Rising and Setting Restrictions",IDC_STATIC,150,156,115,35
     ICON            icon3,IDC_STATIC,130,195,20,20
 END
 
-dlgGraphics DIALOGEX 32, 32, 237, 226
+dlgGraphics DIALOGEX 32, 32, 301, 232
 STYLE DS_SETFONT | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
 CAPTION "Graphics Settings"
 FONT 8, "MS Sans Serif", 0, 0, 0x0
 BEGIN
-    DEFPUSHBUTTON   "OK",IDOK,185,205,50,14
-    PUSHBUTTON      "Cancel",IDCANCEL,185,185,50,14
+    DEFPUSHBUTTON   "OK",IDOK,245,215,50,14
+    PUSHBUTTON      "Cancel",IDCANCEL,190,215,50,14
     EDITTEXT        deGr_Xw_x,80,5,30,13,ES_AUTOHSCROLL
     EDITTEXT        deGr_Xw_y,80,20,30,13,ES_AUTOHSCROLL
     COMBOBOX        dcGr_Xs,60,35,30,50,CBS_DROPDOWN | CBS_SORT | WS_VSCROLL | WS_TABSTOP
@@ -1234,14 +1278,19 @@ BEGIN
     EDITTEXT        deGr_XG,115,90,30,13,ES_AUTOHSCROLL
     CONTROL         "Globe Halves Focus On &South Hemisphere",dxGr_XP0,
                     "Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,105,160,10
-    CONTROL         "&World Map In Mollewide Projection",dxGr_XW0,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,115,125,10
+    CONTROL         "&World Map in Mollewide Projection",dxGr_XW0,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,115,125,10
     EDITTEXT        deGr_WN,90,125,30,13,ES_AUTOHSCROLL
-    CONTROL         "Animate &Map Instead Of Time",dxGr_XN,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,140,125,10
-    CONTROL         "Don't &Automatically Redraw Screen",dxGr_Wn,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,150,125,10
-    CONTROL         "&None",dr01,"Button",BS_AUTORADIOBUTTON | WS_GROUP,10,170,35,10
-    CONTROL         "Object At &Left Edge",dr02,"Button",BS_AUTORADIOBUTTON,10,180,85,10
-    CONTROL         "Object At &Top Edge",dr03,"Button",BS_AUTORADIOBUTTON,10,190,85,10
-    EDITTEXT        deGr_X1,65,200,35,13,ES_AUTOHSCROLL
+    CONTROL         "Animate &Map Instead of Time",dxGr_XN,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,140,120,10
+    EDITTEXT        deGr_XZ,125,145,35,13,ES_AUTOHSCROLL
+    CONTROL         "Don't &Automatically Redraw Screen",dxGr_Wn,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,5,160,125,10
+    CONTROL         "&None",dr01,"Button",BS_AUTORADIOBUTTON | WS_GROUP,10,180,35,10
+    CONTROL         "Object at &Left Edge",dr02,"Button",BS_AUTORADIOBUTTON,10,190,85,10
+    CONTROL         "Object at &Top Edge",dr03,"Button",BS_AUTORADIOBUTTON,10,200,85,10
+    EDITTEXT        deGr_X1,65,210,35,13,ES_AUTOHSCROLL
+    CONTROL         "None",dr13,"Button",BS_AUTORADIOBUTTON | WS_GROUP,115,180,55,10
+    CONTROL         "Spider Web",dr14,"Button",BS_AUTORADIOBUTTON,115,190,55,10
+    CONTROL         "Moire Pattern",dr15,"Button",BS_AUTORADIOBUTTON,115,200,55,10
+    EDITTEXT        deGr_YXv,150,210,25,13,ES_AUTOHSCROLL
     CONTROL         "American",dr04,"Button",BS_AUTORADIOBUTTON | WS_GROUP,175,10,50,10
     CONTROL         "European",dr05,"Button",BS_AUTORADIOBUTTON,175,20,50,10
     CONTROL         "Herschel's",dr06,"Button",BS_AUTORADIOBUTTON | WS_GROUP,175,45,50,10
@@ -1251,27 +1300,43 @@ BEGIN
     CONTROL         "Esoteric",dr10,"Button",BS_AUTORADIOBUTTON,175,100,53,10
     CONTROL         "American",dr11,"Button",BS_AUTORADIOBUTTON | WS_GROUP,175,125,50,10
     CONTROL         "European",dr12,"Button",BS_AUTORADIOBUTTON,175,135,50,10
-    CONTROL         "None",dr13,"Button",BS_AUTORADIOBUTTON | WS_GROUP,115,170,55,10
-    CONTROL         "Spider Web",dr14,"Button",BS_AUTORADIOBUTTON,115,180,55,10
-    CONTROL         "Moire Pattern",dr15,"Button",BS_AUTORADIOBUTTON,115,190,55,10
-    EDITTEXT        deGr_YXv,150,200,25,13,ES_AUTOHSCROLL
+    CONTROL         "Astrolog",dr16,"Button",BS_AUTORADIOBUTTON | WS_GROUP,245,10,45,10
+    CONTROL         "WingDings",dr17,"Button",BS_AUTORADIOBUTTON,245,20,47,10
+    CONTROL         "Astro",dr18,"Button",BS_AUTORADIOBUTTON,245,30,45,10
+    CONTROL         "Enigma",dr19,"Button",BS_AUTORADIOBUTTON,245,40,45,10
+    CONTROL         "Unicode",dr20,"Button",BS_AUTORADIOBUTTON,245,50,45,10
+    CONTROL         "Astrolog",dr21,"Button",BS_AUTORADIOBUTTON | WS_GROUP,245,75,45,10
+    CONTROL         "Unicode",dr22,"Button",BS_AUTORADIOBUTTON,245,85,45,10
+    CONTROL         "Astrolog",dr23,"Button",BS_AUTORADIOBUTTON | WS_GROUP,245,110,45,10
+    CONTROL         "Astro",dr24,"Button",BS_AUTORADIOBUTTON,245,120,45,10
+    CONTROL         "Enigma",dr25,"Button",BS_AUTORADIOBUTTON,245,130,45,10
+    CONTROL         "Unicode",dr26,"Button",BS_AUTORADIOBUTTON,245,140,45,10
+    CONTROL         "Astrolog",dr27,"Button",BS_AUTORADIOBUTTON | WS_GROUP,245,165,45,10
+    CONTROL         "Astro",dr28,"Button",BS_AUTORADIOBUTTON,245,175,45,10
+    CONTROL         "Enigma",dr29,"Button",BS_AUTORADIOBUTTON,245,185,45,10
+    CONTROL         "Unicode",dr30,"Button",BS_AUTORADIOBUTTON,245,195,45,10
     LTEXT           "Horizontal Chart Size:",IDC_STATIC,5,5,70,8
     LTEXT           "Vertical Chart Size:",IDC_STATIC,5,20,70,8
     LTEXT           "Character Scale:",IDC_STATIC,5,35,53,8
     LTEXT           "Text Scale:",IDC_STATIC,95,35,40,8
-    LTEXT           "Number Of Cells In Graphics Aspect Grid:",IDC_STATIC,5,60,130,8
+    LTEXT           "Number of Cells in Graphics Aspect Grid:",IDC_STATIC,5,60,130,8
     LTEXT           "Horizontal Map Degree Rotation:",IDC_STATIC,5,75,108,8
     LTEXT           "Vertical Globe Degree Tilt:",IDC_STATIC,5,90,105,8
-    LTEXT           "Animation Delay In Msec:",IDC_STATIC,5,125,80,8
-    LTEXT           "Use This Planet:",IDC_STATIC,10,200,55,8
-    LTEXT           "Coverage:",IDC_STATIC,115,200,33,8
-    GROUPBOX        "Wheel Chart Rotation",IDC_STATIC,5,160,100,60
+    LTEXT           "Animation Delay in Msec:",IDC_STATIC,5,125,80,8
+    LTEXT           "Telescope Focuses On This Object:",IDC_STATIC,5,150,120,8
+    LTEXT           "Use This Planet:",IDC_STATIC,10,210,55,8
+    LTEXT           "Coverage:",IDC_STATIC,115,210,33,8
+    GROUPBOX        "Wheel Chart Rotation",IDC_STATIC,5,170,100,58
+    GROUPBOX        "Wheel Corners",IDC_STATIC,110,170,70,58
     GROUPBOX        "Capricorn Glyph",IDC_STATIC,170,0,65,35
     GROUPBOX        "Uranus Glyph",IDC_STATIC,170,35,65,35
     GROUPBOX        "Pluto Glyph",IDC_STATIC,170,70,65,45
     GROUPBOX        "Lilith Glyph",IDC_STATIC,170,115,65,35
-    GROUPBOX        "Wheel Corners",IDC_STATIC,110,160,70,60
-    ICON            icon2,IDC_STATIC,200,160,21,20
+    GROUPBOX        "Sign Font",IDC_STATIC,240,0,55,65
+    GROUPBOX        "House Font",IDC_STATIC,240,65,55,35
+    GROUPBOX        "Object Font",IDC_STATIC,240,100,55,55
+    GROUPBOX        "Aspect Font",IDC_STATIC,240,155,55,55
+    ICON            icon2,IDC_STATIC,200,170,21,20
 END
 
 dlgStar DIALOG 32, 32, 297, 130
@@ -1600,7 +1665,7 @@ END
 
 dlgInfoAll DIALOG 32, 32, 143, 151
 STYLE DS_SETFONT | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
-CAPTION "Charts #3 And #4"
+CAPTION "Charts #3 and #4"
 FONT 8, "MS Sans Serif"
 BEGIN
     DEFPUSHBUTTON   "OK",IDOK,90,130,50,14
@@ -1684,8 +1749,6 @@ BEGIN
     ">",            cmdScaleIncrease,       ASCII,  NOINVERT
     "?",            cmdHelpKeystroke,       ASCII,  NOINVERT
     "@",            cmdAnimateNo2,          ASCII,  NOINVERT
-    "[",            cmdTiltNorth,           ASCII,  NOINVERT
-    "]",            cmdTiltSouth,           ASCII,  NOINVERT
     94,             cmdAnimateNo6,          ASCII,  NOINVERT
     "A",            cmdHouseSet3D,          VIRTKEY, NOINVERT
     "A",            cmdPen15,               VIRTKEY, CONTROL, NOINVERT
@@ -1733,7 +1796,8 @@ BEGIN
     "H",            cmdHouse17,             VIRTKEY, SHIFT, CONTROL, NOINVERT
     "H",            cmdHouseSetGeodetic,    VIRTKEY, SHIFT, ALT, NOINVERT
     "I",            cmdGraphicsModify,      VIRTKEY, NOINVERT
-    "I",            cmdHelpMeaning,         VIRTKEY, SHIFT, NOINVERT
+    "I",            cmdHelpMeaning,         VIRTKEY, CONTROL, NOINVERT
+    "I",            cmdChartRising,         VIRTKEY, SHIFT, NOINVERT
     "I",            cmdHouse16,             VIRTKEY, SHIFT, CONTROL, NOINVERT
     "I",            cmdInterpret,           VIRTKEY, SHIFT, ALT, NOINVERT
     "J",            cmdTimedExposure,       VIRTKEY, NOINVERT
@@ -1753,7 +1817,7 @@ BEGIN
     "L",            cmdChartAspect,         VIRTKEY, ALT, NOINVERT
     "L",            cmdSaveWallFill,        VIRTKEY, CONTROL, ALT, NOINVERT
     "L",            cmdChartAstroGraph,     VIRTKEY, SHIFT, NOINVERT
-    "L",            cmdChartRising,         VIRTKEY, SHIFT, ALT, NOINVERT
+    "L",            cmdChartLocal,          VIRTKEY, SHIFT, ALT, NOINVERT
     "M",            cmdGraphicsMonochrome,  VIRTKEY, NOINVERT
     "M",            cmdChartMidpoint,       VIRTKEY, ALT, NOINVERT
     "M",            cmdChartSector,         VIRTKEY, SHIFT, NOINVERT
@@ -1798,6 +1862,7 @@ BEGIN
     "T",            cmdGraphicsText,        VIRTKEY, NOINVERT
     "T",            cmdGraphicsSidebar,     VIRTKEY, ALT, NOINVERT
     "T",            cmdSaveWallTile,        VIRTKEY, CONTROL, ALT, NOINVERT
+    "T",            cmdChartTelescope,      VIRTKEY, SHIFT, NOINVERT
     "T",            cmdHouse08,             VIRTKEY, SHIFT, CONTROL, NOINVERT
     "T",            cmdTransit,             VIRTKEY, SHIFT, ALT, NOINVERT
     "U",            cmdResUranian,          VIRTKEY, NOINVERT
@@ -1865,7 +1930,11 @@ BEGIN
     VK_F9,          cmdMacro21,             VIRTKEY, SHIFT, NOINVERT
     VK_HOME,        cmdScrollHome,          VIRTKEY, NOINVERT
     VK_NEXT,        cmdScrollPageDown,      VIRTKEY, NOINVERT
+    VK_OEM_4,       cmdTiltNorth,           VIRTKEY, NOINVERT
+    VK_OEM_4,       cmdZoomOut,             VIRTKEY, CONTROL, NOINVERT
     VK_OEM_4,       cmdRotateWest,          VIRTKEY, SHIFT, NOINVERT
+    VK_OEM_6,       cmdTiltSouth,           VIRTKEY, NOINVERT
+    VK_OEM_6,       cmdZoomIn,              VIRTKEY, CONTROL, NOINVERT
     VK_OEM_6,       cmdRotateEast,          VIRTKEY, SHIFT, NOINVERT
     VK_OEM_MINUS,   cmdSaveWire,            VIRTKEY, CONTROL, NOINVERT
     VK_OEM_MINUS,   cmdCopyWire,            VIRTKEY, SHIFT, CONTROL, NOINVERT
@@ -1907,8 +1976,8 @@ END
 //
 
 VS_VERSION_INFO VERSIONINFO
- FILEVERSION 7,0,0,0
- PRODUCTVERSION 7,0,0,0
+ FILEVERSION 7,1,0,0
+ PRODUCTVERSION 7,1,0,0
  FILEFLAGSMASK 0x3fL
 #ifdef _DEBUG
  FILEFLAGS 0x1L
@@ -1924,13 +1993,13 @@ BEGIN
         BLOCK "040904b0"
         BEGIN
             VALUE "CompanyName", "astrolog.org"
-            VALUE "FileDescription", "Astrolog 7.00 for Windows"
-            VALUE "FileVersion", "7, 0, 0, 0"
+            VALUE "FileDescription", "Astrolog 7.10 for Windows"
+            VALUE "FileVersion", "7, 1, 0, 0"
             VALUE "InternalName", "Astrolog"
             VALUE "LegalCopyright", "Copyright (c) 2020"
             VALUE "OriginalFilename", "astrolog.exe"
             VALUE "ProductName", "Astrolog"
-            VALUE "ProductVersion", "7, 0, 0, 0"
+            VALUE "ProductVersion", "7, 1, 0, 0"
         END
     END
     BLOCK "VarFileInfo"
@@ -1980,8 +2049,8 @@ BEGIN
 
     dlgGraphics, DIALOG
     BEGIN
-        RIGHTMARGIN, 170
-        BOTTOMMARGIN, 216
+        RIGHTMARGIN, 234
+        BOTTOMMARGIN, 222
     END
 
     dlgObject, DIALOG
@@ -2020,6 +2089,11 @@ BEGIN
     0
 END
 
+dlgGraphics AFX_DIALOG_LAYOUT
+BEGIN
+    0
+END
+
 #endif    // English (United States) resources
 /////////////////////////////////////////////////////////////////////////////
 
diff --git a/atlas.as b/atlas.as
index 1737b4e..9f63feb 100644
--- a/atlas.as
+++ b/atlas.as
@@ -1,4 +1,4 @@
-@AC700  ; Astrolog 7.00 city list atlas.
+@AC710  ; Astrolog 7.10 city list atlas.
 
 ; Atlas composed using data from: https://www.geonames.org/
 ; From "Free Gazetteer Data" download Readme:
diff --git a/atlas.cpp b/atlas.cpp
index 2d62822..63a81a3 100644
--- a/atlas.cpp
+++ b/atlas.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: atlas.cpp
+** Astrolog (Version 7.10) File: atlas.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -1220,6 +1220,14 @@ flag FLoadZoneRules(FILE *file, int irunMax, int irueMax)
     }
   }
 
+  // Sanity check results.
+  if (is.rgrun[irunMax].irue != irueMax) {
+    sprintf(szErr, "Zone rule error: The %d rules have %d entries, "
+      "which differs from total rule entry limit of %d\n",
+      irunMax, is.rgrun[irunMax].irue, irueMax);
+    PrintError(szErr);
+    return fFalse;
+  }
   is.crun = irunMax;
   is.crue = irueMax;
   return fTrue;
@@ -1236,6 +1244,7 @@ flag FLoadZoneChanges(FILE *file, int izcnMax, int izceMax)
 {
   char szLine[cchSzMax], szErr[cchSzMax], *pch, *pchT;
   int i, j, izn, czn, n;
+  flag rgfUsed[iznMax];
   ZoneChange *pzc;
 
   // Free previous zone change entry list if present, and allocate new list.
@@ -1248,6 +1257,7 @@ flag FLoadZoneChanges(FILE *file, int izcnMax, int izceMax)
   if (is.rgzc == NULL)
     return fFalse;
   ClearB((pbyte)is.rgzc, sizeof(ZoneChange) * izceMax);
+  ClearB((pbyte)rgfUsed, sizeof(rgfUsed));
   rgznChange[0] = 0;
 
   // Read in each zone change area.
@@ -1301,6 +1311,7 @@ flag FLoadZoneChanges(FILE *file, int izcnMax, int izceMax)
       for (n = 0; n < is.crun; n++)
         if (NCompareSz(pchT, is.rgrun[n].szNam) == 0) {
           pzc->irun = n;
+          rgfUsed[n] = fTrue;
           break;
         }
       if (pzc->irun < 0) {
@@ -1369,6 +1380,21 @@ flag FLoadZoneChanges(FILE *file, int izcnMax, int izceMax)
     }
   }
 
+  // Sanity check results.
+  for (i = 0; i < is.crun; i++)
+    if (!rgfUsed[i]) {
+      sprintf(szErr, "Zone change error: Rule %d (%s) is never used "
+        "by any zone change entry.\n", i, is.rgrun[i].szNam);
+      PrintError(szErr);
+      return fFalse;
+    }
+  if (rgizcChange[izcnMax] != izceMax) {
+    sprintf(szErr, "Zone change error: The %d zones have %d entries, "
+      "which differs from total entry limit of %d\n",
+      izcnMax, rgizcChange[izcnMax], izceMax);
+    PrintError(szErr);
+    return fFalse;
+  }
   is.czcn = izcnMax;
   is.czce = izceMax;
   return fTrue;
@@ -1425,6 +1451,17 @@ flag FLoadZoneLinks(FILE *file, int czl)
       return fFalse;
     }
 
+    // Ensure "from" string zone hasn't been defined with zone change entries.
+    for (izc = 0; izc < is.czcn; izc++)
+      if (iznFrom == rgznChange[izc])
+        break;
+    if (izc < is.czcn) {
+      sprintf(szErr, "Zone link error: Link %d redirects defined: '%s'\n",
+        i, rgszzn[iznFrom]);
+      PrintError(szErr);
+      return fFalse;
+    }
+
     // Ensure "to" string zone has been defined with zone change entries.
     for (izc = 0; izc < is.czcn; izc++)
       if (iznTo == rgznChange[izc])
@@ -1660,7 +1697,7 @@ flag DisplayAtlasNearby(real lon, real lat, size_t lDialog, int *piae)
   // Loop over all cities in atlas, computing their distance to location.
   for (iae = 0; iae < is.cae; iae++) {
     pae = &is.rgae[iae];
-    rDist = PolarDistance(lon, lat, pae->lon, pae->lat) / 360.0 *
+    rDist = SphDistance(lon, lat, pae->lon, pae->lat) / 360.0 *
       (us.fEuroDist ? 40075.0 : 24901.0);
     nDist = (int)rDist;
     for (i = 0; i < clist; i++)
@@ -1826,7 +1863,7 @@ flag FSetDstZon(CI *ci, int izn,
 
 flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
 {
-  char sz[cchSzMax*2], sz1[cchSzMax], sz2[cchSzDef];
+  char sz[cchSzMax*2], sz1[cchSzMax], sz2[cchSzDef], sz3[cchSzDef];
   int rgmon[ichngMax], rgday[ichngMax], rgtim[ichngMax], rgiru[ichngMax],
     izn, izcn, izce, czce,
     mon, day, yea, tim, dst, zon, off, doff,
@@ -1880,7 +1917,7 @@ flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
     pzc = &is.rgzc[izce + i];
     pzc2 = &pzc[1];
     mon = pzc->mon; day = pzc->day; yea = pzc->yea; tim = pzc->tim;
-    dst = pzc->dst < nLarge ? pzc->dst : 0;
+    dst = pzc2->dst < nLarge ? pzc2->dst : 0;
     zon = pzc2->zon;
     if (pzc->timtype == 1)
       tim += dst;
@@ -1891,7 +1928,7 @@ flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
       continue;
     off = zon - dst;
     doff = offPrev - off;
-    if (doff == 0 && zon == zonPrev)
+    if (doff == 0 && dst == dstPrev && zon == zonPrev)
       goto LSkip;
     cn++;
     if (ci != NULL && lDialog == 0) {
@@ -1914,12 +1951,14 @@ flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
       sprintf(sz1, "Change clock %s to", SzHMS(doff));
     else
       sprintf(sz1, "Define clock to be");
-    sz2[0] = chNull;
+    sz2[0] = sz3[0] = chNull;
     if (dst != 0 && (dst != 3600 || us.fSeconds))
       sprintf(sz2, " %s", SzHMS(dst));
-    sprintf(sz, "%s %s: %s: %s%s & Zone %s", SzDate(mon, day, yea, fFalse),
+    if (zon != zonPrev)
+      sprintf(sz3, " & Zone %s", SzZone(RTim(zon)));
+    sprintf(sz, "%s %s: %s: %s%s%s", SzDate(mon, day, yea, fFalse),
       SzTime(tim / 3600, tim / 60 % 60, us.fSeconds ? tim % 60 : -1),
-      sz1, dst == 0 ? "ST" : "DT", sz2, SzZone(RTim(zon)));
+      sz1, dst == 0 ? "ST" : "DT", sz2, sz3);
 #ifdef WIN
     if (lDialog != 0) {
       sprintf(sz1, "%.3s %s", szDay[DayOfWeek(mon, day, yea)], sz);
@@ -1991,12 +2030,12 @@ flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
         k = yea;
         AdjustTime(&mon, &day, &k, &tim);
         // Rule doesn't apply if it's outside ZoneChange endpoint times.
-        /*if (yea == pzc->yea && (mon < pzc->mon || (mon == pzc->mon &&
+        if (yea == pzc->yea && (mon < pzc->mon || (mon == pzc->mon &&
           (day < pzc->day || (day == pzc->day && tim < pzc->tim)))))
           continue;
         if (yea == pzc2->yea && (mon > pzc2->mon || (mon == pzc2->mon &&
-          (day > pzc2->day || (day == pzc2->day && tim > pzc2->tim)))))
-          continue;*/
+          (day > pzc2->day || (day == pzc2->day && tim >= pzc2->tim)))))
+          continue;
         rgmon[ici] = mon; rgday[ici] = day; rgtim[ici] = tim;
         rgiru[ici] = irue + j;
         ici++;
@@ -2019,7 +2058,7 @@ flag DisplayTimezoneChanges(int iznIn, size_t lDialog, CI *ci)
       // Loop over the list of Daylight Saving changes found.
       for (j = 0; j < ici; j++) {
         monPrev = mon; dayPrev = day; yeaPrev = yea; timPrev = tim;
-        dstPrev = dst;
+        dstPrev = dst; zonPrev = zon;
         offPrev = off; doffPrev = doff;
         pru = &is.rgrue[rgiru[j]];
         mon = rgmon[j]; day = rgday[j]; tim = rgtim[j];
diff --git a/calc.cpp b/calc.cpp
index 2668881..6c5b412 100644
--- a/calc.cpp
+++ b/calc.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: calc.cpp
+** Astrolog (Version 7.10) File: calc.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -92,7 +92,7 @@ long MdyToJulian(int mon, int day, int yea)
     ;
   return (long)RFloor(jd);
 #else
-  return 0;         /* Shouldn't ever be reached. */
+  return 0;         // Shouldn't ever be reached.
 #endif /* EPHEM */
 }
 
@@ -171,10 +171,12 @@ real RHousePlaceIn3D(real rLon, real rLat)
   real deg, rRet;
   int i;
 
+  // Campanus houses are equal sized in 3D, and so a simple case to handle.
   deg = RHousePlaceIn3DCore(rLon, rLat);
   if (us.nHouseSystem == hsCampanus)
     return deg;
 
+  // Determine which 3D house the prime vertical degree falls within.
   i = 0;
   do {
     i++;
@@ -196,11 +198,11 @@ int NHousePlaceIn(real rLon, real rLat)
 {
   int i, di;
 
-  /* Special processing for 3D houses. */
+  // Special processing for 3D houses.
   if (us.fHouse3D && rLat != 0.0)
     return SFromZ(RHousePlaceIn3D(rLon, rLat));
 
-  /* This loop also works when house positions decrease through the zodiac. */
+  // This loop also works when house positions decrease through the zodiac.
   rLon = Mod(rLon + rSmall);
   di = MinDifference(chouse[1], chouse[2]) >= 0.0 ? 1 : -1;
   i = 0;
@@ -222,26 +224,26 @@ void ComputeInHouses(void)
 {
   int i;
 
-  /* First determine 3D house cusp offsets. */
+  // First determine 3D house cusp offsets.
   if (us.nHouseSystem != hsCampanus) {
     for (i = 1; i <= cSign; i++)
       chouse3[i] = RHousePlaceIn3DCore(chouse[i], 0.0);
   } else {
-    /* 3D Campanus cusps are always equally sized and distributed. */
+    // 3D Campanus cusps are always equally sized and distributed.
     for (i = 1; i <= cSign; i++)
       chouse3[i] = ZFromS(i);
   }
 
-  /* Loop over each object and place it. */
+  // Loop over each object and place it.
   for (i = 0; i <= cObj; i++)
     inhouse[i] = NHousePlaceIn(planet[i], planetalt[i]);
 
   if (us.fHouse3D) {
-    /* 3D Campanus cusps should always be in the corresponding house. */
+    // 3D Campanus cusps should always be in the corresponding house.
     if (us.nHouseSystem == hsCampanus) {
       for (i = cuspLo; i <= cuspHi; i++)
         inhouse[i] = i - cuspLo + 1;
-    /* 3D angles should always be in the corresponding house. */
+    // 3D angles should always be in the corresponding house.
     } else if (us.fHouseAngle) {
       for (i = cuspLo; i <= cuspHi; i += 3)
         inhouse[i] = i - cuspLo + 1;
@@ -316,7 +318,7 @@ void HouseAlcabitius(void)
   chouse[sPis] = DFromR(is.RA) + rSda*2.0/3.0;
   for (i = sLib; i <= sPis; i++) {
     r = RFromD(Mod(chouse[i]));
-    /* The transformation below is also done in CuspMidheaven(). */
+    // The transformation below is also done in CuspMidheaven().
     rLon = RAtn(RTan(r)/RCosD(is.OB));
     if (rLon < 0.0)
       rLon += rPi;
@@ -340,7 +342,7 @@ void HousePullenSinusoidalDelta(void)
   real rQuad, rDelta;
   int iHouse;
 
-  /* Solve equations: x+n + x + x+n = q, x+3n + x+4n + x+3n = 180-q. */
+  // Solve equations: x+n + x + x+n = q, x+3n + x+4n + x+3n = 180-q.
   rQuad = MinDistance(is.MC, is.Asc);
   rDelta = (rQuad - rDegQuad)/4.0;
   chouse[sLib] = Mod(is.Asc+rDegHalf); chouse[sCap] = is.MC;
@@ -367,15 +369,15 @@ void HousePullenSinusoidalRatio(void)
   real qSmall, rRatio, rRatio3, rRatio4, xHouse, rLo, rHi;
   int iHouse, dir;
 
-  /* Start by determining the quadrant sizes. */
+  // Start by determining the quadrant sizes.
   qSmall = MinDistance(is.MC, is.Asc);
   dir = qSmall <= rDegQuad ? 1 : -1;
   if (dir < 0)
     qSmall = rDegHalf - qSmall;
 
 #if TRUE
-  /* Solve equations: rx + x + rx = q, xr^3 + xr^4 + xr^3 = 180-q. Solve */
-  /* quartic for r, then compute x given 1st equation: x = q / (2r + 1). */
+  // Solve equations: rx + x + rx = q, xr^3 + xr^4 + xr^3 = 180-q. Solve
+  // quartic for r, then compute x given 1st equation: x = q / (2r + 1).
   if (qSmall > 0.0) {
     rLo = (2.0*pow(qSmall*qSmall - 270.0*qSmall + 16200.0, 1.0/3.0)) /
       pow(qSmall, 2.0/3.0);
@@ -388,10 +390,10 @@ void HousePullenSinusoidalRatio(void)
   xHouse = qSmall / (2.0 * rRatio + 1.0);
 
 #else
-  /* Can also solve equations empirically. Given candidate for r, compute x */
-  /* given 1st equation: x = q / (2r + 1), then compare both against 2nd:   */
-  /* 2xr^3 + xr^4 = 180-q, to see whether current r is too large or small.  */
-  /* Before binary searching, first keep doubling rHi until too large.      */
+  // Can also solve equations empirically. Given candidate for r, compute x
+  // given 1st equation: x = q / (2r + 1), then compare both against 2nd:
+  // 2xr^3 + xr^4 = 180-q, to see whether current r is too large or small.
+  // Before binary searching, first keep doubling rHi until too large.
 
   real qLarge = rDegHalf - qSmall;
   flag fBinarySearch = fFalse;
@@ -411,7 +413,7 @@ void HousePullenSinusoidalRatio(void)
   }
 #endif
 
-  /* xHouse and rRatio have been calculated. Fill in the house cusps. */
+  // xHouse and rRatio have been calculated. Fill in the house cusps.
   if (dir < 0)
     neg(xHouse);
   chouse[sAri] = is.Asc; chouse[sCap] = is.MC;
@@ -465,7 +467,7 @@ void ComputeHouses(int housesystem)
 {
   char sz[cchSzDef];
 
-  /* Don't allow polar latitudes if system not defined in polar zones. */
+  // Don't allow polar latitudes if system not defined in polar zones.
   if ((housesystem == hsPlacidus || housesystem == hsKoch) &&
     RAbs(AA) >= rDegQuad - is.OB) {
     sprintf(sz,
@@ -475,7 +477,7 @@ void ComputeHouses(int housesystem)
     housesystem = hsPorphyry;
   }
 
-  /* Flip the Ascendant or MC if it falls in the wrong half of the zodiac. */
+  // Flip the Ascendant or MC if it falls in the wrong half of the zodiac.
   if (MinDifference(is.MC, is.Asc) < 0.0) {
     if (us.fPolarAsc)
       is.MC = Mod(is.MC + rDegHalf);
@@ -534,7 +536,7 @@ void ComputeStars(real t, real Off)
   real x, y, z;
 #endif
 
-  /* Read in star positions. */
+  // Read in star positions.
 
 #ifdef SWISS
   if (FCmSwissStar())
@@ -551,20 +553,56 @@ void ComputeStars(real t, real Off)
         neg(y); neg(z);
       }
       planetalt[oNorm+i] = x + y/60.0 + z/60.0/60.0;
-      /* Convert to ecliptic zodiac coordinates. */
+      // Convert to ecliptic zodiac coordinates.
       EquToEcl(&planet[oNorm+i], &planetalt[oNorm+i]);
       planet[oNorm+i] = Mod(planet[oNorm+i] + rEpoch2000 + Off);
       if (!us.fSidereal)
         ret[oNorm+i] = !us.fVelocity ? rDegMax/25765.0/rDayInYear : 1.0;
       SphToRec(rStarDist[i], planet[oNorm+i], planetalt[oNorm+i],
         &space[oNorm+i].x, &space[oNorm+i].y, &space[oNorm+i].z);
-      starname[i] = i;
     }
 #endif
   }
 }
 
 
+/* Given the list of computed planet positions, sort and compose the final   */
+/* index list based on what order the planets are supposed to be printed in. */
+
+void SortPlanets()
+{
+  int i;
+#ifdef EXPRESS
+  real rgrSort[oNorm1];
+  int j;
+#endif
+
+  // By default, objects are displayed in object index order.
+  for (i = 0; i <= cObj; i++)
+    rgobjList[i] = i;
+
+#ifdef EXPRESS
+  // Adjust indexes used for display with AstroExpressions.
+  if (!FSzSet(us.szExpSort))
+    return;
+  for (i = 0; i <= oNorm; i++) {
+    ExpSetN(iLetterZ, i);
+    ParseExpression(us.szExpSort);
+    rgrSort[i] = RExpGet(iLetterZ);
+  }
+
+  // Sort adjusted list to determine final display ordering.
+  for (i = 1; i <= oNorm; i++) {
+    j = i-1;
+    while (j >= 0 && rgrSort[rgobjList[j]] > rgrSort[rgobjList[j+1]]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
+      j--;
+    }
+  }
+#endif
+}
+
+
 /* Given the list of computed star positions, sort and compose the final   */
 /* index list based on what order the stars are supposed to be printed in. */
 
@@ -572,53 +610,47 @@ void SortStars()
 {
   int i, j;
 
-  /* Sort the index list if one of the special -U subswitches is in effect. */
+  // Sort the index list if one of the special -U subswitches is in effect.
 
   if (us.nStar <= 1)
     return;
-  for (i = 2; i <= cStar; i++) {
+  for (i = starLo+1; i <= starHi; i++) {
     j = i-1;
 
-    /* Compare star names for -Un switch. */
-
-    if (us.nStar == 'n') while (j > 0 && NCompareSz(
-      szObjDisp[oNorm+starname[j]], szObjDisp[oNorm+starname[j+1]]) > 0) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star names for -Un switch.
+    if (us.nStar == 'n') while (j >= starLo && NCompareSz(
+      szObjDisp[rgobjList[j]], szObjDisp[rgobjList[j+1]]) > 0) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
 
-    /* Compare star brightnesses for -Ub switch. */
-
-    } else if (us.nStar == 'b') while (j > 0 &&
-      rStarBright[starname[j]] > rStarBright[starname[j+1]]) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star brightnesses for -Ub switch.
+    } else if (us.nStar == 'b') while (j >= starLo &&
+      rStarBright[rgobjList[j]-oNorm] > rStarBright[rgobjList[j+1]-oNorm]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
 
-    /* Compare star zodiac locations for -Uz switch. */
-
-    } else if (us.nStar == 'z') while (j > 0 &&
-      planet[oNorm+starname[j]] > planet[oNorm+starname[j+1]]) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star zodiac locations for -Uz switch.
+    } else if (us.nStar == 'z') while (j >= starLo &&
+      planet[rgobjList[j]] > planet[rgobjList[j+1]]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
 
-    /* Compare star latitudes for -Ul switch. */
-
-    } else if (us.nStar == 'l') while (j > 0 &&
-      planetalt[oNorm+starname[j]] < planetalt[oNorm+starname[j+1]]) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star latitudes for -Ul switch.
+    } else if (us.nStar == 'l') while (j >= starLo &&
+      planetalt[rgobjList[j]] < planetalt[rgobjList[j+1]]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
 
-    /* Compare star distances for -Ud switch. */
-
-    } else if (us.nStar == 'd') while (j > 0 &&
-      rStarDist[starname[j]] > rStarDist[starname[j+1]]) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star distances for -Ud switch.
+    } else if (us.nStar == 'd') while (j >= starLo &&
+      rStarDist[rgobjList[j]-oNorm] > rStarDist[rgobjList[j+1]-oNorm]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
 
-    /* Compare star velocities for -Uv switch. */
-
-    } else if (us.nStar == 'v') while (j > 0 &&
-      ret[oNorm+starname[j]] < ret[oNorm+starname[j+1]]) {
-      SwapN(starname[j], starname[j+1]);
+    // Compare star velocities for -Uv switch.
+    } else if (us.nStar == 'v') while (j >= starLo &&
+      ret[rgobjList[j]] < ret[rgobjList[j+1]]) {
+      SwapN(rgobjList[j], rgobjList[j+1]);
       j--;
     }
   }
@@ -686,7 +718,7 @@ real Navamsa(real deg)
 void RecToPol(real x, real y, real *a, real *r)
 {
   *r = RLength2(x, y);
-  *a = Angle(x, y);
+  *a = RAngle(x, y);
 }
 
 
@@ -711,8 +743,8 @@ void RecToSph3(real rx, real ry, real rz, real *azi, real *alt)
 
   RecToPol(rx, ry, &ang, &rad);
   *azi = DFromR(ang);
-  ang = DFromR(Angle(rad, rz));
-  /* Ensure latitude is from -90 to +90 degrees. */
+  ang = RAngleD(rad, rz);
+  // Ensure latitude is from -90 to +90 degrees.
   while (ang > rDegQuad)
     ang -= rDegHalf;
   while (ang < -rDegQuad)
@@ -739,15 +771,15 @@ void CoorXform(real *azi, real *alt, real tilt)
 
   x = cosalt * sinazi * costilt - sinalt * sintilt;
   y = cosalt * RCos(*azi);
-  l1 = Angle(y, x);
+  l1 = RAngle(y, x);
   a1 = cosalt * sinazi * sintilt + sinalt * costilt;
   a1 = RAsin(a1);
   *azi = DFromR(l1); *alt = DFromR(a1);
 }
 
 
-/* Another subprocedure of the ComputeEphem() routine. Convert the final   */
-/* rectangular coordinates of a planet to zodiac position and declination. */
+/* Another subprocedure of the ComputeEphem() routine. Convert the final */
+/* rectangular coordinates of a planet to zodiac position and latitude.  */
 
 void ProcessPlanet(int ind, real aber)
 {
@@ -759,7 +791,8 @@ void ProcessPlanet(int ind, real aber)
   if (us.objCenter == oSun && ind == oSun)
     ang = 0.0;
   ang = DFromR(ang);
-  while (ang > rDegQuad)    /* Ensure latitude is from -90 to +90 degrees. */
+  // Ensure latitude is from -90 to +90 degrees.
+  while (ang > rDegQuad)
     ang -= rDegHalf;
   while (ang < -rDegQuad)
     ang += rDegHalf;
@@ -777,11 +810,11 @@ void ProcessPlanet(int ind, real aber)
 
 void ComputeEphem(real t)
 {
-  int i;
+  int i, j;
   real r1, r2, r3, r4, r5, dist1, dist2;
 
-  /* We can compute the positions of Sun through Pluto, Chiron, the four */
-  /* asteroids, Lilith, and the North Node using ephemeris files.        */
+  // Can compute the positions of Sun through Pluto, Chiron, the four
+  // asteroids, Lilith, and the North Node using ephemeris files.
 
   for (i = oSun; i <= uranHi; i++) {
     if ((ignore[i] &&
@@ -819,13 +852,13 @@ void ComputeEphem(real t)
     } else
       r4 = 0.0;
 
-    /* Compute x,y,z coordinates from azimuth, altitude, and distance. */
+    // Compute x,y,z coordinates from azimuth, altitude, and distance.
 
     SphToRec(r4, planet[i], planetalt[i],
       &space[i].x, &space[i].y, &space[i].z);
   }
 
-  /* If heliocentric, move Earth position to object slot zero. */
+  // If heliocentric, move Earth position to object slot zero.
 
   if (!ignore[oSou]) {
     space[oSou].x = -space[oNod].x;
@@ -842,7 +875,7 @@ void ComputeEphem(real t)
       planet[oSun] = Mod(planet[oSun] + rDegHalf);
       planetalt[oSun] = -planetalt[oSun];
     }
-    return;
+    goto LDone;
   }
   planet[oEar] = planet[oSun];
   planetalt[oEar] = planetalt[oSun];
@@ -859,28 +892,43 @@ void ComputeEphem(real t)
     ret[i] = ret[oEar];
   }
   if (us.objCenter == oSun)
-    return;
+    goto LDone;
 
-  /* If other planet centered, shift all positions by central planet. */
+  // If other planet centered, shift all positions by central planet.
 
   for (i = 0; i <= cObj; i++)
     if ((!ignore[i] || i == oSun) && i != us.objCenter) {
-    if (us.fStarMagDist && FStar(i))
-      dist1 = RLength3(space[i].x, space[i].y, space[i].z);
-    space[i].x -= space[us.objCenter].x;
-    space[i].y -= space[us.objCenter].y;
-    space[i].z -= space[us.objCenter].z;
-    if (us.fStarMagDist && FStar(i)) {
-      dist2 = us.fStarMagAbs ? 10.0 * rPCToAU :
-        RLength3(space[i].x, space[i].y, space[i].z);
-      rStarBright[i-oNorm] =
-        RStarBright(rStarBrightDef[i-oNorm], dist1, dist2);
-      kObjA[i] = KStarA(rStarBright[i-oNorm]);
+      if (us.fStarMagDist && FStar(i))
+        dist1 = RLength3(space[i].x, space[i].y, space[i].z);
+      space[i].x -= space[us.objCenter].x;
+      space[i].y -= space[us.objCenter].y;
+      space[i].z -= space[us.objCenter].z;
+      if (us.fStarMagDist && FStar(i)) {
+        dist2 = us.fStarMagAbs ? 10.0 * rPCToAU :
+          RLength3(space[i].x, space[i].y, space[i].z);
+        rStarBright[i-oNorm] =
+          RStarBright(rStarBrightDef[i-oNorm], dist1, dist2);
+        kObjA[i] = KStarA(rStarBright[i-oNorm]);
+      }
+      ProcessPlanet(i, us.objCenter > oSun && us.fSidereal ? is.rSid : 0.0);
     }
-    ProcessPlanet(i, us.objCenter > oSun && us.fSidereal ? is.rSid : 0.0);
-  }
   planet[us.objCenter] = planetalt[us.objCenter] = space[us.objCenter].x =
     space[us.objCenter].y = space[us.objCenter].z = 0.0;
+
+LDone:
+  // Potentially relocate objects so they orbit the central planet.
+  if (!us.fMoonMove)
+    return;
+  for (i = oMoo; i <= oNorm; i++)
+    if (!ignore[i]) {
+      j = ObjOrbit(i);
+      if (j < 0 || j == us.objCenter || (j == oSun && us.objCenter < starLo))
+        continue;
+      space[i].x -= space[j].x;
+      space[i].y -= space[j].y;
+      space[i].z -= space[j].z;
+      ProcessPlanet(i, us.objCenter > oSun && us.fSidereal ? is.rSid : 0.0);
+    };
 }
 #endif
 
@@ -890,14 +938,21 @@ void ComputeEphem(real t)
 /* cusps, based on the current chart information, and saves them for use  */
 /* by any of the display routines.                                        */
 
-real CastChart(flag fDate)
+real CastChart(int nContext)
 {
   CI ciSav;
-  real housetemp[cSign+1], Off = 0.0, vtx = 0.0, ep = 0.0, r, r2;
+  real housetemp[cSign+1], vtx = 0.0, ep = 0.0, r, r2;
   int i, k, k2;
 
-  /* Hack: If month is negative, then know chart was read in through a */
-  /* -o0 position file, so planet positions are already in the arrays. */
+  is.nContext = nContext;
+#ifdef EXPRESS
+  // Notify AstroExpression a chart is about to be cast.
+  if (!us.fExpOff && FSzSet(us.szExpCast1))
+    ParseExpression(us.szExpCast1);
+#endif
+
+  // Hack: If month is negative, then know chart was read in through a -o0
+  // position file, so planet positions are already in the arrays.
 
   if (FNoTimeOrSpace(ciCore)) {
     is.MC = planet[oMC]; is.Asc = planet[oAsc];
@@ -905,9 +960,9 @@ real CastChart(flag fDate)
     return 0.0;
   }
 
-  /* Hack: Time zone 24 means to have the time of day be in Local Mean    */
-  /* Time (LMT). This is done by making the time zone value reflect the   */
-  /* logical offset from UTC as indicated by the chart's longitude value. */
+  // Hack: Time zone 24 means to have the time of day be in Local Mean Time
+  // (LMT). This is done by making the time zone value reflect the logical
+  // offset from UTC as indicated by the chart's longitude value.
 
   ciSav = ciCore;
   if (ZZ == zonLMT)
@@ -915,54 +970,62 @@ real CastChart(flag fDate)
   if (SS == dstAuto)
     SS = (real)is.fDst;
   TT = RSgn(TT)*RFloor(RAbs(TT))+RFract(RAbs(TT)) + (ZZ - SS);
-  AA = Min(AA, rDegQuad-rSmall);     /* Make sure chart isn't being cast */
-  AA = Max(AA, -(rDegQuad-rSmall));  /* on precise North or South Pole.  */
+  AA = Min(AA, rDegQuad-rSmall);     // Make sure chart isn't being cast on
+  AA = Max(AA, -(rDegQuad-rSmall));  // precise North or South Pole.
 
-  ClearB((pbyte)&cp0, sizeof(CP));     /* On ecliptic unless we say so.  */
+  ClearB((pbyte)&cp0, sizeof(CP));     // On ecliptic unless say otherwise.
   ClearB((pbyte)space, sizeof(space));
 
-  /* If parameter 'fDate' isn't set, then we can assume that the true time */
-  /* has already been determined (as in a -rm switch time midpoint chart). */
+  is.JD = (real)MdyToJulian(MM, DD, YY);
+  is.T = (is.JD + TT/24.0);
+  if (us.fProgress && us.nProgress != ptSolarArc) {
 
-  if (fDate) {
-    is.JD = (real)MdyToJulian(MM, DD, YY);
-    is.T = (is.JD + TT/24.0);
-    if (us.fProgress && us.nProgress != ptSolarArc) {
+    // For ptCast, is.Tp is time that progressed chart cusps cast for.
+    // For ptMixed, is.Tp is base chart time to solar arc cusps from.
+    is.Tp = is.T;
+    if (us.nProgress == ptCast)
+      is.Tp += ((is.JDp - is.Tp) / (us.rProgDay * us.rProgCusp));
+    is.Tp = (is.Tp - 2415020.5) / 36525.0;
 
-      /* For ptCast, is.Tp is time that progressed chart cusps cast for. */
-      /* For ptMixed, is.Tp is base chart time to solar arc cusps from.  */
-      is.Tp = is.T;
-      if (us.nProgress == ptCast)
-        is.Tp += ((is.JDp - is.Tp) / (us.rProgDay * us.rProgCusp));
-      is.Tp = (is.Tp - 2415020.5) / 36525.0;
+    // Determine actual time that a progressed chart is to be cast for.
+    is.T += ((is.JDp - is.T) / us.rProgDay);
 
-      /* Determine actual time that a progressed chart is to be cast for. */
-      is.T += ((is.JDp - is.T) / us.rProgDay);
+#ifdef EXPRESS
+    // Adjust progression times with AstroExpressions.
+    if (!us.fExpOff && FSzSet(us.szExpProg)) {
+      ExpSetR(iLetterX, is.JDp);
+      ExpSetR(iLetterY, is.Tp);
+      ExpSetR(iLetterZ, is.T);
+      ParseExpression(us.szExpProg);
+      is.Tp = RExpGet(iLetterY);
+      is.T  = RExpGet(iLetterZ);
     }
-    is.T = (is.T - 2415020.5) / 36525.0;
+#endif
   }
+  is.T = (is.T - 2415020.5) / 36525.0;
 
 #ifdef SWISS
   if (FCmSwissAny()) {
-    SwissHouse(us.fProgress && us.nProgress != ptSolarArc ? is.Tp : is.T, OO,
-      AA, us.nHouseSystem, &is.Asc, &is.MC, &is.RA, &vtx, &ep, &is.OB, &Off);
+    SwissHouse(us.fProgress && us.nProgress != ptSolarArc ? is.Tp : is.T,
+      OO, AA, us.nHouseSystem,
+      &is.Asc, &is.MC, &is.RA, &vtx, &ep, &is.OB, &is.rOff);
   } else
 #endif
   {
 #ifdef MATRIX
-    Off = ProcessInput(fDate);
+    is.rOff = ProcessInput();
     ComputeVariables(&vtx);
-    if (us.fGeodetic)               /* Check for -G geodetic chart. */
+    if (us.fGeodetic)                // Check for -G geodetic chart.
       is.RA = RFromD(Mod(-OO));
-    is.MC  = CuspMidheaven();       /* Calculate Ascendant & Midheaven. */
+    is.MC  = CuspMidheaven();        // Calculate Ascendant & Midheaven.
     is.Asc = CuspAscendant();
     ep = CuspEastPoint();
-    ComputeHouses(us.nHouseSystem);    /* Go calculate house cusps. */
+    ComputeHouses(us.nHouseSystem);  // Go calculate house cusps.
 #endif
   }
 
 #ifdef MATRIX
-  /* Go calculate planet, Moon, and North Node positions. */
+  // Go calculate planet, Moon, and North Node positions.
 
   if (FCmMatrix() || (FCmPlacalc() && us.fUranian)) {
     ComputePlanets();
@@ -974,19 +1037,19 @@ real CastChart(flag fDate)
   }
 #endif
 
-  /* Go calculate star positions if -U switch in effect. */
+  // Go calculate star positions if -U switch in effect.
 
   if (us.nStar || FStar(us.objCenter))
-    ComputeStars(is.T, (us.fSidereal ? 0.0 : -Off) + us.rZodiacOffset);
+    ComputeStars(is.T, (us.fSidereal ? 0.0 : -is.rOff) + us.rZodiacOffset);
 
 #ifdef EPHEM
-  /* Compute more accurate ephemeris positions for certain objects. */
+  // Compute more accurate ephemeris positions for certain objects.
 
   if (us.fEphemFiles)
     ComputeEphem(is.T);
 #endif
 
-  /* Certain objects are positioned directly opposite to other objects. */
+  // Certain objects are positioned directly opposite to other objects.
 
   i = us.objCenter == oEar ? oSun : oEar;
   planet[us.objCenter] = Mod(planet[i] + rDegHalf);
@@ -1001,22 +1064,27 @@ real CastChart(flag fDate)
       ret[oNod] = ret[oSou] = ret[oMoo] = 1.0;
   }
 
-  /* Calculate position of Part of Fortune. */
+  // Calculate position of Part of Fortune.
 
   if (!ignore[oFor]) {
-    r = planet[oMoo] - planet[oSun];
-    /* Invert formula for night charts. Note since planet positions still */
-    /* being computed, house placements haven't been determined yet.      */
+    r = MinDifference(planet[oSun], planet[oMoo]);
+    r2 = ret[oMoo] - ret[oSun];
+    planetalt[oFor] = us.fHouse3D ? planetalt[oMoo] - planetalt[oSun] : 0.0;
+    retalt[oFor] = us.fHouse3D ? retalt[oMoo] - retalt[oSun] : 0.0;
+    // Invert formula for night charts. Note since planet positions are still
+    // being computed, house placements haven't been determined yet.
     i = us.nHouseSystem; us.nHouseSystem = hsCampanus;
     if (us.nArabicNight < 0 || (us.nArabicNight == 0 &&
-      NHousePlaceIn(planet[oSun], planetalt[oSun]) < sLib))
-      neg(r);
+      NHousePlaceIn(planet[oSun], planetalt[oSun]) < sLib)) {
+      neg(r); neg(r2);
+      neg(planetalt[oFor]); neg(retalt[oFor]);
+    }
     us.nHouseSystem = i;
-    r = RAbs(r) < rDegQuad ? r : r - RSgn(r)*rDegMax;
     planet[oFor] = Mod(r + is.Asc);
+    ret[oFor] += r2;                 // Already contains ret[oAsc].
   }
 
-  /* Fill in "planet" positions corresponding to house cusps. */
+  // Fill in "planet" positions corresponding to house cusps.
 
   planet[oVtx] = vtx; planet[oEP] = ep;
   for (i = 1; i <= cSign; i++)
@@ -1026,10 +1094,14 @@ real CastChart(flag fDate)
     planet[oDes] = Mod(is.Asc + rDegHalf);
     planet[oNad] = Mod(is.MC + rDegHalf);
   }
-  for (i = oFor; i <= cuspHi; i++)
-    ret[i] = !us.fVelocity ? rDegMax + 1.0 : 1.0;
+  for (i = oFor; i <= cuspHi; i++) {
+    r = FCmSwissAny() ? ret[i] : (rDegMax + 1.0);
+    if (us.fVelocity)
+      r /= (rDegMax + 1.0);
+    ret[i] = r;
+  }
 
-  /* Transform ecliptic to equatorial coordinates if -sr in effect. */
+  // Transform ecliptic to equatorial coordinates if -sr in effect.
 
   if (us.fEquator || us.fEquator2)
     for (i = 0; i <= cObj; i++) if (!ignore[i]) {
@@ -1041,14 +1113,24 @@ real CastChart(flag fDate)
         planetalt[i] = r2;
     }
 
-  /* Now, we may have to modify the base positions we calculated above */
-  /* based on what type of chart we are generating. To begin with:     */
-  /* Solar arc progressions apply an offset to planets and/or houses.  */
+  // Now, may have to modify the base positions calculated above based on what
+  // type of chart is being generated. To begin with: Solar arc progressions
+  // apply an offset to planets and/or houses.
 
   if (us.fProgress && us.nProgress != ptCast) {
-    r = (us.nProgress == ptSolarArc ? is.T : is.Tp);
-    r = (is.JDp - JulianDayFromTime(r) - 0.5) / us.rProgDay;
-    /* Full solar arc progressions apply offset to all planets. */
+    r2 = JulianDayFromTime(us.nProgress == ptSolarArc ? is.T : is.Tp);
+    r = (is.JDp - r2 - 0.5) / us.rProgDay;
+#ifdef EXPRESS
+    // Adjust progression arc with AstroExpression.
+    if (!us.fExpOff && FSzSet(us.szExpProg0)) {
+      ExpSetR(iLetterX, is.JDp);
+      ExpSetR(iLetterY, r2);
+      ExpSetR(iLetterZ, r);
+      ParseExpression(us.szExpProg0);
+      r = RExpGet(iLetterZ);
+    }
+#endif
+    // Full solar arc progressions apply offset to all planets.
     if (us.nProgress == ptSolarArc) {
       for (i = 0; i <= cObj; i++) {
         if (i == oFor)
@@ -1056,7 +1138,7 @@ real CastChart(flag fDate)
         planet[i] = Mod(planet[i] + r);
       }
     }
-    /* Mixed solar arc progressions only apply offset to house cusps. */
+    // Mixed solar arc progressions only apply offset to house cusps.
     r /= us.rProgCusp;
     for (i = oFor; i <= cuspHi; i++)
       planet[i] = Mod(planet[i] + r);
@@ -1064,13 +1146,13 @@ real CastChart(flag fDate)
       chouse[i] = Mod(chouse[i] + r);
   }
 
-  /* If -x harmonic chart in effect, then multiply all planet positions. */
+  // If -x harmonic chart in effect, then multiply all planet positions.
 
   if (us.rHarmonic != 1.0)
     for (i = 0; i <= cObj; i++)
       planet[i] = Mod(planet[i] * us.rHarmonic);
 
-  /* If -Y1 chart rotation in effect, then rotate the planets accordingly. */
+  // If -Y1 chart rotation in effect, then rotate the planets accordingly.
 
   if (us.objRot1 != us.objRot2 || us.fObjRotWhole) {
     r = planet[us.objRot2];
@@ -1081,7 +1163,7 @@ real CastChart(flag fDate)
       planet[i] = Mod(planet[i] + r);
   }
 
-  /* If -1 or -2 solar chart in effect, then rotate the houses accordingly. */
+  // If -1 or -2 solar chart in effect, then rotate the houses accordingly.
 
   if (us.objOnAsc) {
     r = planet[NAbs(us.objOnAsc)-1];
@@ -1092,16 +1174,16 @@ real CastChart(flag fDate)
       chouse[i] = Mod(chouse[i] + r + rSmall);
   }
 
-  /* Check to see if we are -F forcing any objects to be particular values. */
+  // Check to see if are -F forcing any objects to be particular values.
 
   for (i = 0; i <= cObj; i++)
     if (force[i] != 0.0) {
       if (force[i] > 0.0) {
-        /* Force to a specific zodiac position. */
+        // Force to a specific zodiac position.
         planet[i] = force[i]-rDegMax;
         planetalt[i] = ret[i] = 0.0;
       } else {
-        /* Force to a midpoint of two other positions. */
+        // Force to a midpoint of two other positions.
         k = (-(int)force[i])-1;
         k2 = k % cObj; k /= cObj;
         planet[i] = Midpoint(planet[k], planet[k2]);
@@ -1110,7 +1192,7 @@ real CastChart(flag fDate)
       }
     }
 
-  /* If -f domal chart switch in effect, switch planet and house positions. */
+  // If -f domal chart switch in effect, switch planet and house positions.
 
   if (us.fFlip) {
     ComputeInHouses();
@@ -1129,62 +1211,66 @@ real CastChart(flag fDate)
       chouse[i] = housetemp[i];
   }
 
-  /* If -3 decan chart switch in effect, edit planet positions accordingly. */
+  // If -3 decan chart switch in effect, edit planet positions accordingly.
 
   if (us.fDecan)
     for (i = 0; i <= cObj; i++)
       planet[i] = Decan(planet[i]);
 
-  /* If -4 dwad chart switch in effect, edit planet positions accordingly. */
+  // If -4 dwad chart switch in effect, edit planet positions accordingly.
 
   if (us.nDwad > 0)
     for (k = 0; k < us.nDwad; k++)
       for (i = 0; i <= cObj; i++)
         planet[i] = Dwad(planet[i]);
 
-  /* If -9 navamsa chart switch in effect, edit positions accordingly. */
+  // If -9 navamsa chart switch in effect, edit planet positions accordingly.
 
   if (us.fNavamsa)
     for (i = 0; i <= cObj; i++)
       planet[i] = Navamsa(planet[i]);
 
-  /* Sort star positions now that all positions are finalized. */
+  // Sort star positions now that all positions are finalized.
 
+  SortPlanets();
   if (us.nStar || FStar(us.objCenter))
     SortStars();
 
 #ifdef EXPRESS
-  /* Adjust final planet and house positions with AstroExpressions. */
+  // Adjust final planet and house positions with AstroExpressions.
 
   if (!us.fExpOff) {
     if (FSzSet(us.szExpObj))
-      for (i = 0; i <= cObj; i++) {
+      for (i = 0; i <= cObj; i++) if (!ignore[i] || FCusp(i)) {
         ExpSetN(iLetterV, i);
         ExpSetR(iLetterW, planet[i]);
         ExpSetR(iLetterX, planetalt[i]);
         ExpSetR(iLetterY, ret[i]);
         ExpSetR(iLetterZ, retalt[i]);
-        if (NParseExpression(us.szExpObj)) {
-          planet[i]    = Mod(RExpGet(iLetterW));
-          planetalt[i] = RExpGet(iLetterX);
-          ret[i]       = RExpGet(iLetterY);
-          retalt[i]    = RExpGet(iLetterZ);
-        }
+        ParseExpression(us.szExpObj);
+        planet[i]    = Mod(RExpGet(iLetterW));
+        planetalt[i] = RExpGet(iLetterX);
+        ret[i]       = RExpGet(iLetterY);
+        retalt[i]    = RExpGet(iLetterZ);
       }
     if (FSzSet(us.szExpHou))
       for (i = 1; i <= cSign; i++) {
         ExpSetN(iLetterX, i);
         ExpSetR(iLetterY, chouse[i]);
         ExpSetR(iLetterZ, chouse3[i]);
-        if (NParseExpression(us.szExpHou)) {
-          chouse[i]  = Mod(RExpGet(iLetterY));
-          chouse3[i] = Mod(RExpGet(iLetterZ));
-        }
+        ParseExpression(us.szExpHou);
+        chouse[i]  = Mod(RExpGet(iLetterY));
+        chouse3[i] = Mod(RExpGet(iLetterZ));
       }
   }
 #endif
 
-  ComputeInHouses();        /* Figure out what house everything falls in. */
+  ComputeInHouses();    // Figure out what house everything falls in.
+#ifdef EXPRESS
+  // Notify AstroExpression a chart has just been cast.
+  if (!us.fExpOff && FSzSet(us.szExpCast2))
+    ParseExpression(us.szExpCast2);
+#endif
   ciCore = ciSav;
   return is.T;
 }
@@ -1201,44 +1287,44 @@ void CastSectors()
   real time[MAXINDAY], rgalt1[objMax], rgalt2[objMax],
     azi1, azi2, alt1, alt2, mc1, mc2, d, k;
 
-  /* If the -l0 approximate sectors flag is set, we can quickly get rough   */
-  /* positions by having each position be the location of the planet as     */
-  /* mapped into Placidus houses. The -f flip houses flag does this for us. */
+  // If the -l0 approximate sectors flag is set, we can quickly get rough
+  // positions by having each position be the location of the planet as mapped
+  // into Placidus houses. The -f flip houses flag does this for us.
 
   if (us.fSectorApprox) {
     ihouse = us.nHouseSystem; us.nHouseSystem = hsPlacidus;
     inv(us.fFlip);
-    CastChart(fTrue);
+    CastChart(0);
     inv(us.fFlip);
     us.nHouseSystem = ihouse;
     return;
   }
 
-  /* If not approximating sectors, then they need to be computed the formal */
-  /* way: based on a planet's nearest rising and setting times. The code    */
-  /* below is similar to ChartInDayHorizon() accessed by the -Zd switch.    */
+  // If not approximating sectors, then they need to be computed the formal
+  // way: based on a planet's nearest rising and setting times. The code below
+  // is similar to ChartInDayHorizon() accessed by the -Zd switch.
 
   fT = us.fSidereal; us.fSidereal = fFalse;
   division = us.nDivision * 4;
   occurcount = 0;
 
-  /* Start scanning from 18 hours before to 18 hours after the time of the */
-  /* chart in question, to find the closest rising and setting times.      */
+  // Start scanning from 18 hours before to 18 hours after the time of the
+  // chart in question, to find the closest rising and setting times.
 
   ciCore = ciMain; ciCore.tim -= 18.0;
   if (ciCore.tim < 0.0) {
     ciCore.tim += 24.0;
     ciCore.day--;
   }
-  CastChart(fTrue);
+  CastChart(0);
   mc2 = planet[oMC]; k = planetalt[oMC];
   EclToEqu(&mc2, &k);
   cp2 = cp0;
   for (i = 0; i <= cObj; i++)
     rgalt2[i] = planetalt[i];
 
-  /* Loop through 36 hours, dividing it into a certain number of segments. */
-  /* For each segment we get the planet positions at its endpoints.        */
+  // Loop through 36 hours, dividing it into a certain number of segments.
+  // For each segment we get the planet positions at its endpoints.
 
   for (div = 1; div <= division; div++) {
     ciCore = ciMain;
@@ -1250,7 +1336,7 @@ void CastSectors()
       ciCore.tim -= 24.0;
       ciCore.day++;
     }
-    CastChart(fTrue);
+    CastChart(-1);
     mc1 = mc2;
     mc2 = planet[oMC]; k = planetalt[oMC];
     EclToEqu(&mc2, &k);
@@ -1259,7 +1345,7 @@ void CastSectors()
       rgalt1[i] = rgalt2[i]; rgalt2[i] = planetalt[i];
     }
 
-    /* During our segment, check to see if each planet rises or sets. */
+    // During our segment, check to see if each planet rises or sets.
 
     for (i = 0; i <= cObj; i++) if (!FIgnore(i) && FThing(i)) {
       EclToHorizon(&azi1, &alt1, cp1.obj[i], rgalt1[i], mc1, Lat);
@@ -1279,7 +1365,7 @@ void CastSectors()
     }
   }
 
-  /* Sort each event in order of time when it happens during the day. */
+  // Sort each event in order of time when it happens during the day.
 
   for (i = 1; i < occurcount; i++) {
     j = i-1;
@@ -1291,40 +1377,40 @@ void CastSectors()
     }
   }
 
-  /* Now fill out the planet array with the appropriate sector location. */
+  // Now fill out the planet array with the appropriate sector location.
 
   for (i = 0; i <= cObj; i++) if (!ignore[i] && FThing(i)) {
     planet[i] = 0.0;
-    /* Search for the first rising or setting event of our planet. */
+    // Search for the first rising or setting event of our planet.
     for (s2 = 0; s2 < occurcount && source[s2] != i; s2++)
       ;
     if (s2 == occurcount) {
 LFail:
-      /* If we failed to find a rising/setting bracket around our time, */
-      /* automatically restrict that planet so it doesn't show up.      */
+      // If we failed to find a rising/setting bracket around our time,
+      // automatically restrict that planet so it doesn't show up.
       ignore[i] = fTrue;
       continue;
     }
 LRetry:
-    /* One rising or setting event was found. Now search for the next one. */
+    // One rising or setting event was found. Now search for the next one.
     s1 = s2;
     for (s2 = s1 + 1; s2 < occurcount && source[s2] != i; s2++)
       ;
     if (s2 == occurcount)
       goto LFail;
-    /* Reject the two events if either (1) they're both the same, i.e. both */
-    /* rising or both setting, or (2) they don't bracket the chart's time.  */
+    // Reject the two events if either (1) they're both the same, i.e. both
+    // rising or both setting, or (2) they don't bracket the chart's time.
     if (type[s2] == type[s1] || time[s1] > 18.0*60.0 || time[s2] < 18.0*60.0)
       goto LRetry;
-    /* Cool, we've found our rising/setting bracket. The sector position is */
-    /* the proportion the chart time is between the two event times.        */
+    // Cool, found the rising/setting bracket. The sector position is the
+    // proportion the chart time is between the two event times.
     planet[i] = (18.0*60.0 - time[s1])/(time[s2] - time[s1])*rDegHalf;
     if (type[s1] == 2)
       planet[i] += rDegHalf;
     planet[i] = Mod(rDegMax - planet[i]);
   }
 
-  /* Restore original chart info as we've overwritten it. */
+  // Restore original chart info as have overwritten it.
 
   ciCore = ciMain;
   us.fSidereal = fT;
@@ -1356,19 +1442,19 @@ flag FAcceptAspect(int obj1, int asp, int obj2)
   int oCen;
   flag fSupp, fTrans;
 
-  /* Negative aspect means context is a transit to transit consideration. */
+  // Negative aspect means context is a transit to transit consideration.
   fTrans = (asp < 0);
   if (fTrans)
     neg(asp);
 
-  /* If the aspect restricted, reject immediately. */
+  // If the aspect restricted, reject immediately.
   if (FIgnoreA(asp))
     return fFalse;
   if (us.objRequire >= 0 && obj1 != us.objRequire && obj2 != us.objRequire)
     return fFalse;
 
-  /* Transits always need to prevent aspects involving continually opposite */
-  /* objects, to prevent exact aspect events numerous times per day.        */
+  // Transits always need to prevent aspects involving continually opposite
+  // objects, to prevent exact aspect events numerous times per day.
   oCen = us.objCenter == oSun ? oEar : us.objCenter;
   if (!us.fSmartCusp) {
     if (!fTrans)
@@ -1381,18 +1467,18 @@ flag FAcceptAspect(int obj1, int asp, int obj2)
     return fTrue;
   }
 
-  /* Allow only conjunctions to the minor house cusps. */
+  // Allow only conjunctions to the minor house cusps.
   if ((FMinor(obj1) || FMinor(obj2)) && asp > aCon)
     return fFalse;
 
-  /* Is this a weak aspect supplemental to a stronger one present? */
+  // Is this a weak aspect supplemental to a stronger one present?
   fSupp = (asp == aOpp && !FIgnoreA(aCon)) ||
     (asp == aSex && !FIgnoreA(aTri)) || (asp == aSSx && !FIgnoreA(aInc)) ||
     (asp == aSes && !FIgnoreA(aSSq));
 
-  /* Prevent any simultaneous aspects to opposing angle cusps,     */
-  /* e.g. if conjunct one, don't be opposite the other; if trine   */
-  /* one, don't sextile the other; don't square both at once, etc. */
+  // Prevent any simultaneous aspects to opposing angle cusps, e.g. if
+  // conjunct one, don't be opposite the other; if trine one, don't sextile
+  // the other; don't square both at once, etc.
   if (!ignore[oMC] && !ignore[oNad] &&
     (((obj1 == oMC || obj2 == oMC) && fSupp) ||
     ((obj1 == oNad || obj2 == oNad) && (fSupp || asp == aSqu))))
@@ -1402,13 +1488,13 @@ flag FAcceptAspect(int obj1, int asp, int obj2)
     ((obj1 == oDes || obj2 == oDes) && (fSupp || asp == aSqu))))
     return fFalse;
 
-  /* Prevent any simultaneous aspects to the North and South Node. */
+  // Prevent any simultaneous aspects to the North and South Node.
   if (us.objCenter == oEar && !ignore[oNod] && !ignore[oSou] &&
     (((obj1 == oNod || obj2 == oNod) && fSupp) ||
     ((obj1 == oSou || obj2 == oSou) && (fSupp || asp == aSqu))))
     return fFalse;
 
-  /* Prevent any simultaneous aspects to the Sun and central planet. */
+  // Prevent any simultaneous aspects to the Sun and central planet.
   if (!ignore[oCen] && !ignore[oSun] &&
     (((obj1 == oSun || obj2 == oSun) && fSupp) ||
     ((obj1 == oCen || obj2 == oCen) && (fSupp || asp == aSqu))))
@@ -1428,24 +1514,24 @@ void GetAspect(real *planet1, real *planet2,
   int asp;
   real rAngle, rAngle3D, rDiff, rOrb, ret1a;
 
-  /* Compute the angle between the two planets. */
+  // Compute the angle between the two planets.
   grid->v[i][j] = grid->n[i][j] = 0;
   rAngle = MinDistance(planet2[i], planet1[j]);
   if (us.fAspect3D || us.fAspectLat)
-    rAngle3D = PolarDistance(planet2[i], planetalt2[i],
+    rAngle3D = SphDistance(planet2[i], planetalt2[i],
       planet1[j], planetalt1[j]);
 
-  /* Check each aspect angle to see if it applies. */
+  // Check each aspect angle to see if it applies.
   for (asp = 1; asp <= us.nAsp; asp++) {
     if (!FAcceptAspect(i, asp, j))
       continue;
     rDiff = (!us.fAspect3D ? rAngle : rAngle3D) - rAspAngle[asp];
     rOrb = GetOrb(i, j, asp);
 
-    /* If -ga switch in effect, then change the sign of the orb to    */
-    /* correspond to whether the aspect is applying or separating.    */
-    /* To do this, we check the velocity vectors to see if the        */
-    /* planets are moving toward, away, or are overtaking each other. */
+    // If -ga switch in effect, then change the sign of the orb to correspond
+    // to whether the aspect is applying or separating. To do this, check the
+    // velocity vectors to see if the planets are moving toward, away, or are
+    // overtaking each other.
 
     if (us.fAppSep) {
       ret1a = us.nRel > rcTransit ? ret1[j] : 0.0;
@@ -1454,19 +1540,20 @@ void GetAspect(real *planet1, real *planet2,
     }
 
 #ifdef EXPRESS
-    /* Adjust orb with AstroExpression, if one defined. */
+    // Adjust orb with AstroExpression, if one defined.
     if (!us.fExpOff && FSzSet(us.szExpAsp)) {
       ExpSetN(iLetterV, i);
       ExpSetN(iLetterW, asp);
       ExpSetN(iLetterX, j);
       ExpSetR(iLetterY, rDiff);
       ExpSetR(iLetterZ, rOrb);
-      RParseExpression(us.szExpAsp);
+      ParseExpression(us.szExpAsp);
+      rDiff = RExpGet(iLetterY);
       rOrb = RExpGet(iLetterZ);
     }
 #endif
 
-    /* If aspect within orb, add it to aspect grid. */
+    // If aspect within orb, add it to aspect grid.
     if (RAbs(rDiff) < rOrb) {
       if (us.fAspectLat &&
         !(RAbs((!us.fAspect3D ? rAngle3D : rAngle) - rAspAngle[asp]) < rOrb))
@@ -1490,18 +1577,23 @@ void GetParallel(real *planet1, real *planet2, real *planetalt1,
   int asp;
   real rDiff, azi, alt1, alt2, retalt1a;
 
-  /* Compute the declination of the two planets. */
+  // Compute the declination of the two planets.
   alt1 = planetalt1[j];
   alt2 = planetalt2[i];
-  if (!us.fEquator2) {
+  if (!us.fEquator2 && !us.fParallel2) {
     azi = planet1[j];
     EclToEqu(&azi, &alt1);
     azi = planet2[i];
     EclToEqu(&azi, &alt2);
+  } else if (us.fEquator2 && us.fParallel2) {
+    azi = planet1[j];
+    EquToEcl(&azi, &alt1);
+    azi = planet2[i];
+    EquToEcl(&azi, &alt2);
   }
   grid->v[i][j] = grid->n[i][j] = 0;
 
-  /* Check each aspect type to see if it applies. */
+  // Check each aspect type to see if it applies.
   for (asp = 1; asp <= Min(us.nAsp, aOpp); asp++) {
     if (!FAcceptAspect(i, asp, j))
       continue;
@@ -1512,7 +1604,7 @@ void GetParallel(real *planet1, real *planet2, real *planetalt1,
           retalt1a = us.nRel > rcTransit ? retalt1[j] : 0.0;
           rDiff *= RSgn2(retalt1a - retalt2[i]);
         } else {
-          /* If no declination velocity, make aspect separating. */
+          // If no declination velocity, make aspect separating.
           rDiff = RAbs(rDiff);
         }
       }
@@ -1539,8 +1631,8 @@ flag FCreateGrid(flag fFlip)
   for (j = 0; j <= cObj; j++) if (!FIgnore(j))
     for (i = 0; i <= cObj; i++) if (!FIgnore(i))
 
-      /* The parameter 'flip' determines what half of the grid is filled in */
-      /* with the aspects and what half is filled in with the midpoints.    */
+      // The parameter 'flip' determines what half of the grid is filled in
+      // with the aspects and what half is filled in with the midpoints.
 
       if (fFlip ? i > j : i < j) {
         if (!us.fParallel)
@@ -1549,8 +1641,8 @@ flag FCreateGrid(flag fFlip)
           GetParallel(planet, planet, planetalt, planetalt, retalt, retalt,
             i, j);
       } else if (fFlip ? i < j : i > j) {
-        l = Mod(Midpoint(planet[i], planet[j])); k = (int)l;  /* Calculate */
-        grid->n[i][j] = k/30+1;                               /* midpoint. */
+        l = Mod(Midpoint(planet[i], planet[j])); k = (int)l;  // Calculate
+        grid->n[i][j] = k/30+1;                               // midpoint.
         grid->v[i][j] = (int)(l*3600.0) % (30*3600);
       } else {
         grid->n[i][j] = SFromZ(planet[j]);
@@ -1583,8 +1675,8 @@ flag FCreateGridRelation(flag fMidpoint)
           GetParallel(cp1.obj, cp2.obj, cp1.alt, cp2.alt, cp1.dir, cp2.dir,
             i, j);
       } else {
-        l = Mod(Midpoint(cp2.obj[i], cp1.obj[j])); k = (int)l; /* Calculate */
-        grid->n[i][j] = k/30+1;                                /* midpoint. */
+        l = Mod(Midpoint(cp2.obj[i], cp1.obj[j])); k = (int)l;  // Calculate
+        grid->n[i][j] = k/30+1;                                 // midpoint.
         grid->v[i][j] = (int)(l*3600.0) % (30*3600);
       }
   return fTrue;
@@ -1610,7 +1702,7 @@ int NCheckEclipse(int obj1, int obj2, real *prPct)
     return etNone;
 
   // Calculate angular distance between center points of the two objects.
-  angDiff = PolarDistance(planet[obj1], planetalt[obj1],
+  angDiff = SphDistance(planet[obj1], planetalt[obj1],
     planet[obj2], planetalt[obj2]);
   if (us.objCenter == oEar && angDiff > 0.75)
     return etNone;
@@ -1637,9 +1729,9 @@ int NCheckEclipse(int obj1, int obj2, real *prPct)
 }
 
 
-/* Check whether a lunar eclipse is taking place as seen from the Earth,   */
-/* and if so by what percentage of distance overlap. Detections penumbral, */
-/* total penumbral, partial, and total lunar eclipses.                     */
+/* Check whether a lunar eclipse is taking place as seen from the Earth, */
+/* and if so by what percentage of distance overlap. Detects penumbral,  */
+/* total penumbral, partial, and total lunar eclipses.                   */
 
 int NCheckEclipseLunar(real *prPct)
 {
@@ -1647,7 +1739,7 @@ int NCheckEclipseLunar(real *prPct)
     angDiff, angM, angU, angP, theta;
 
   // Calculate angular distance between the Moon and point opposite the Sun.
-  angDiff = PolarDistance(Mod(planet[oSun] + rDegHalf), -planetalt[oSun],
+  angDiff = SphDistance(Mod(planet[oSun] + rDegHalf), -planetalt[oSun],
     planet[oMoo], planetalt[oMoo]);
   if (angDiff > 2.0)
     return etNone;
@@ -1742,7 +1834,7 @@ void CreateElemTable(ET *pet)
 #include "swephexp.h"
 #include "swephlib.h"
 
-/* Set up path for Swiss Ephemeris to search in for ephemeris files. */
+// Set up path for Swiss Ephemeris to search in for ephemeris files.
 
 void SwissEnsurePath()
 {
@@ -1753,16 +1845,16 @@ void SwissEnsurePath()
   int i;
 
   if (!is.fSwissPathSet) {
-    /* First look for the file in the current directory. */
+    // First look for the file in the current directory.
     sprintf(szPath, ".");
-    /* Next look in the directories indicated by the -Yi switch. */
+    // Next look in the directories indicated by the -Yi switch.
     for (i = 0; i < 10; i++)
       if (us.rgszPath[i] && *us.rgszPath[i])
         sprintf(szPath + CchSz(szPath), "%s%s", PATH_SEPARATOR,
           us.rgszPath[i]);
 #ifdef ENVIRON
-    /* Next look for the file in the directory indicated by the version */
-    /* specific system environment variable.                            */
+    // Next look for the file in the directory indicated by the version
+    // specific system environment variable.
     sprintf(szT, "%s%s", ENVIRONVER, szVersionCore);
     for (pch = szT; *pch && *pch != '.'; pch++)
       ;
@@ -1771,16 +1863,16 @@ void SwissEnsurePath()
     env = getenv(szT);
     if (env && *env)
       sprintf(szPath + CchSz(szPath), "%s%s", PATH_SEPARATOR, env);
-    /* Next look in the directory in the general environment variable. */
+    // Next look in the directory in the general environment variable.
     env = getenv(ENVIRONALL);
     if (env && *env)
       sprintf(szPath + CchSz(szPath), "%s%s", PATH_SEPARATOR, env);
-    /* Next look in directory in the version prefix environment variable. */
+    // Next look in the directory in the version prefix environment variable.
     env = getenv(ENVIRONVER);
     if (env && *env)
       sprintf(szPath + CchSz(szPath), "%s%s", PATH_SEPARATOR, env);
 #endif
-    /* Finally look in a directory specified at compile time. */
+    // Finally look in a directory specified at compile time.
     sprintf(szPath + CchSz(szPath), "%s%s", PATH_SEPARATOR, EPHE_DIR);
     swe_set_ephe_path(szPath);
     is.fSwissPathSet = fTrue;
@@ -1813,13 +1905,13 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
   char serr[AS_MAXCH];
   static flag fSwissMosh = fFalse;
 
-  /* Reset Swiss Ephemeris if changing computation method. */
+  // Reset Swiss Ephemeris if changing computation method.
   if (us.fSwissMosh != fSwissMosh)
     swe_close();
   fSwissMosh = us.fSwissMosh;
   SwissEnsurePath();
 
-  /* Convert Astrolog object index to Swiss Ephemeris index. */
+  // Convert Astrolog object index to Swiss Ephemeris index.
   if (ind == oSun && (fHelio || us.fBarycenter))
     iobj = SE_EARTH;
   else if (ind <= oPlu)
@@ -1839,8 +1931,9 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
     nTyp = rgTypSwiss[ind - uranLo];
     nPnt = rgPntSwiss[ind - uranLo];
     nFlg = rgFlgSwiss[ind - uranLo];
-    if (nTyp < 2)
-      iobj += (nTyp <= 0 ? SE_FICT_OFFSET_1 : SE_AST_OFFSET);
+    if (nTyp != 2)
+      iobj += (nTyp <= 0 ? SE_FICT_OFFSET_1 : (nTyp == 1 ? SE_AST_OFFSET :
+        SE_PLMOON_OFFSET));
     else {
       if (iobj <= oEar)
         iobj = SE_EARTH;
@@ -1874,7 +1967,7 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
   } else
     iobj = ind;
 
-  /* Convert Astrolog calculation settings to Swiss Ephemeris flags. */
+  // Convert Astrolog calculation settings to Swiss Ephemeris flags.
   iflag = SEFLG_SPEED;
   iflag |= (us.fSwissMosh ? SEFLG_MOSEPH : SEFLG_SWIEPH);
   if (us.fSidereal) {
@@ -1886,6 +1979,8 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
     iflag |= (us.fBarycenter ? SEFLG_BARYCTR : SEFLG_HELCTR);
   if (!fHelio && ind == oSun && us.fBarycenter)
     iflag |= SEFLG_BARYCTR;
+  if (us.fNoNutation)
+    iflag |= SEFLG_NONUT;
   if (us.fTruePos)
     iflag |= SEFLG_TRUEPOS;
   if (us.fTopoPos && !fHelio) {
@@ -1893,7 +1988,7 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
     iflag |= SEFLG_TOPOCTR;
   }
 
-  /* Compute position of planet or node/helion. */
+  // Compute position of planet or node/helion.
   jde = jd + swe_deltat(jd);
   if (nPnt == 0)
     nRet = swe_calc(jde, iobj, iflag, xx, serr);
@@ -1910,7 +2005,7 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
       xx[ix] = px[ix];
   }
 
-  /* Clean up and return position. */
+  // Clean up and return position.
   if (nFlg > 0) {
     if (nFlg & 2)
       inv(us.fSidereal);
@@ -1951,12 +2046,12 @@ flag FSwissPlanet(int ind, real jd, flag fHelio,
 void SwissHouse(real jd, real lon, real lat, int housesystem,
   real *asc, real *mc, real *ra, real *vtx, real *ep, real *ob, real *off)
 {
-  double cusp[cSign+1], ascmc[10];
+  double cusp[cSign+1], ascmc[11], cuspr[cSign+1], ascmcr[11];
   int i;
-  char ch;
+  char serr[AS_MAXCH], ch;
 
-  /* Translate Astrolog house index to Swiss Ephemeris house character. */
-  /* Don't do hsWhole houses ('W') yet, until after is.rSid computed.   */
+  // Translate Astrolog house index to Swiss Ephemeris house character.
+  // Don't do hsWhole houses ('W') yet, until after is.rSid computed.
   switch (housesystem) {
   case hsPlacidus:      ch = 'P'; break;
   case hsKoch:          ch = 'K'; break;
@@ -1982,7 +2077,7 @@ void SwissHouse(real jd, real lon, real lat, int housesystem,
   jd = JulianDayFromTime(jd);
   lon = -lon;
 
-  /* The following is largely copied from swe_houses(). */
+  // The following is largely copied from swe_houses().
   double armc, eps, nutlo[2];
   double tjde = jd + swe_deltat(jd);
   eps = swi_epsiln(tjde, 0) * RADTODEG;
@@ -1993,16 +2088,17 @@ void SwissHouse(real jd, real lon, real lat, int housesystem,
     armc = swe_degnorm(swe_sidtime0(jd, eps + nutlo[1], nutlo[0]) * 15 + lon);
   else
     armc = lon;
-  if (ch == 'I') {  /* Sun declination for Sunshine houses. */
+  if (ch == 'I') {  // Sun declination for Sunshine houses.
     int flags = SEFLG_SPEED | SEFLG_EQUATORIAL;
     double xp[6];
     int result = swe_calc_ut(jd, SE_SUN, flags, xp, NULL);
     ascmc[9] = xp[1];
   }
-  if (swe_houses_armc(armc, lat, eps + nutlo[1], ch, cusp, ascmc))
+  if (swe_houses_armc_ex2(armc, lat, eps + nutlo[1], ch, cusp, ascmc,
+    cuspr, ascmcr, serr))
     housesystem = hsPorphyry;
 
-  /* Fill out return parameters for cusp array, Ascendant, etc. */
+  // Fill out return parameters for cusp array, Ascendant, etc.
   *off = -swe_get_ayanamsa(tjde);
   is.rSid = us.rZodiacOffset + (us.fSidereal ? *off : 0.0);
 
@@ -2012,16 +2108,25 @@ void SwissHouse(real jd, real lon, real lat, int housesystem,
   *vtx = Mod(ascmc[SE_VERTEX] + is.rSid);
   *ep  = Mod(ascmc[SE_EQUASC] + is.rSid);
   *ob  = eps;
-  for (i = 1; i <= cSign; i++)
+  for (i = 1; i <= cSign; i++) {
     chouse[i] = Mod(cusp[i] + is.rSid);
+    ret[cuspLo-1+i] = cuspr[i];
+  }
+  ret[oFor] = ascmcr[SE_ASC];
+  ret[oVtx] = ascmcr[SE_VERTEX];
+  ret[oEP]  = ascmcr[SE_EQUASC];
+  if (!us.fHouseAngle) {
+    ret[oAsc] = ret[oDes] = ascmcr[SE_ASC];
+    ret[oMC]  = ret[oNad] = ascmcr[SE_MC];
+  }
 
-  /* Want generic MC. Undo if house system flipped it 180 degrees. */
+  // Want generic MC. Undo if house system flipped it 180 degrees.
   if ((housesystem == hsCampanus || housesystem == hsRegiomontanus ||
     housesystem == hsTopocentric || housesystem == hsAPC ||
     housesystem == hsSunshine) && MinDifference(*mc, *asc) < 0.0)
     *mc = Mod(*mc + rDegHalf);
 
-  /* Have Astrolog compute the houses if Swiss Ephemeris didn't do so. */
+  // Have Astrolog compute the houses if Swiss Ephemeris didn't do so.
   if (ch == 'A')
     ComputeHouses(housesystem);
   else
@@ -2053,28 +2158,30 @@ void SwissComputeStars(real jd, flag fInitBright)
       iflag |= (us.fBarycenter ? SEFLG_BARYCTR : SEFLG_HELCTR);
     if (us.fTruePos)
       iflag |= SEFLG_TRUEPOS;
+    if (us.fNoNutation)
+      iflag |= SEFLG_NONUT;
   } else {
     jd = rJD2000;
     iflag = SEFLG_SPEED | SEFLG_SWIEPH | SEFLG_HELCTR;
   }
   for (i = 1; i <= cStar; i++) {
 
-    /* In most cases Astrolog's star name is the same as Swiss Ephemeris,  */
-    /* however for a few stars we need to translate to a different string. */
+    // In most cases Astrolog's star name is the same as Swiss Ephemeris,
+    // however for a few stars we need to translate to a different string.
     if (szStarCustom[i] == NULL || szStarCustom[i][0] == chNull) {
-      if      (i == 3)  sprintf(sz, ",ze-1Ret");         /* Zeta Retic. */
-      else if (i == 4)  sprintf(sz, "Pleione");          /* Pleiades    */
-      else if (i == 10) sprintf(sz, "Alnilam");          /* Orion       */
-      else if (i == 30) sprintf(sz, ",beCru");           /* Becrux      */
-      else if (i == 36) sprintf(sz, "Rigil Kentaurus");  /* Rigil Kent. */
-      else if (i == 40) sprintf(sz, "Kaus Australis");   /* Kaus Austr. */
-      else if (i == 47) sprintf(sz, ",M31");             /* Andromeda   */
+      if      (i == 3)  sprintf(sz, ",ze-1Ret");         // Zeta Retic.
+      else if (i == 4)  sprintf(sz, "Pleione");          // Pleiades
+      else if (i == 10) sprintf(sz, "Alnilam");          // Orion
+      else if (i == 30) sprintf(sz, ",beCru");           // Becrux
+      else if (i == 36) sprintf(sz, "Rigil Kentaurus");  // Rigil Kent.
+      else if (i == 40) sprintf(sz, "Kaus Australis");   // Kaus Austr.
+      else if (i == 47) sprintf(sz, ",M31");             // Andromeda
       else
         sprintf(sz, "%s", szObjName[oNorm + i]);
     } else
       sprintf(sz, "%s", szStarCustom[i]);
 
-    /* Compute the star location or get the star's brightness. */
+    // Compute the star location or get the star's brightness.
     swe_fixstar2(sz, jd, iflag, xx, serr);
     if (!fInitBright) {
       planet[oNorm+i] = Mod(xx[0] + us.rZodiacOffset);
@@ -2091,7 +2198,6 @@ void SwissComputeStars(real jd, flag fInitBright)
         rStarBright[i] = rStarBrightDef[i];
       rStarDist[i] = xx[2];
       kObjA[oNorm+i] = KStarA(rStarBright[i]);
-      starname[i] = i;
     } else {
       rStarDistDef[i] = rStarDist[i] = xx[2];
       swe_fixstar2_mag(sz, &mag, serr);
@@ -2112,7 +2218,7 @@ flag SwissComputeStar(real jd, ES *pes)
   static real lonPrev = 0.0, latPrev = 0.0;
   static int istar = 1;
 
-  /* Calling with empty parameters means initialize to first star. */
+  // Calling with empty parameters means initialize to first star.
   if (pes == NULL) {
     istar = 1;
 #ifdef GRAPH
@@ -2122,7 +2228,7 @@ flag SwissComputeStar(real jd, ES *pes)
     return fTrue;
   }
 
-  /* Determine Swiss Ephemeris flags. */
+  // Determine Swiss Ephemeris flags.
   jd = JulianDayFromTime(jd);
   iflag = SEFLG_SPEED;
   iflag |= (us.fSwissMosh ? SEFLG_MOSEPH : SEFLG_SWIEPH);
@@ -2135,10 +2241,12 @@ flag SwissComputeStar(real jd, ES *pes)
     iflag |= (us.fBarycenter ? SEFLG_BARYCTR : SEFLG_HELCTR);
   if (us.fTruePos)
     iflag |= SEFLG_TRUEPOS;
+  if (us.fNoNutation)
+    iflag |= SEFLG_NONUT;
 LNext:
   sprintf(pes->sz, "%d", istar);
 
-  /* Compute the star coordinates and get the star's brightness. */
+  // Compute the star coordinates and get the star's brightness.
   if (us.fStarMagDist) {
     if (swe_fixstar2(pes->sz, rJD2000,
       SEFLG_SPEED | SEFLG_SWIEPH | SEFLG_HELCTR, xx, serr) < 0)
@@ -2153,7 +2261,7 @@ flag SwissComputeStar(real jd, ES *pes)
     dist2 = xx[2];
   pes->dir = xx[3];
 
-  /* Store star data. */
+  // Store star data.
   SphToRec(xx[2], pes->lon, pes->lat,
     &pes->space.x, &pes->space.y, &pes->space.z);
   if (us.objCenter > oSun) {
@@ -2172,7 +2280,7 @@ flag SwissComputeStar(real jd, ES *pes)
   else if (us.fStarMagDist && pes->mag != rStarNot)
     pes->mag = RStarBright(pes->mag, dist1, dist2);
 
-  /* Adjust star coordinates if needed. */
+  // Adjust star coordinates if needed.
   if (us.rHarmonic != 1.0)
     pes->lon = Mod(pes->lon * us.rHarmonic);
   if (us.fDecan)
@@ -2183,14 +2291,14 @@ flag SwissComputeStar(real jd, ES *pes)
   if (us.fNavamsa)
     pes->lon = Navamsa(pes->lon);
 
-  /* Skip over effectively duplicate stars, or non-stars. */
+  // Skip over effectively duplicate stars, or non-stars.
   istar++;
   if ((pes->lon == lonPrev && pes->lat == latPrev) ||
     (pes->mag == rStarNot && !us.fGraphAll))
     goto LNext;
   lonPrev = pes->lon; latPrev = pes->lat;
 
-  /* Parse star name. */
+  // Parse star name.
   pes->pchNam = pes->sz;
   for (pch = pes->sz; *pch && *pch != ','; pch++)
     ;
@@ -2203,7 +2311,7 @@ flag SwissComputeStar(real jd, ES *pes)
     pes->pchBest = pes->pchNam;
   }
 
-  /* Check for if should do anything special with this star? */
+  // Check for if should do anything special with this star?
   if (*us.szStarsList &&
     ((*pes->pchDes && SzInList(pes->pchDes, us.szStarsList, NULL) != NULL) ||
     (*pes->pchNam && SzInList(pes->pchNam, us.szStarsList, NULL) != NULL)) !=
@@ -2236,14 +2344,14 @@ flag SwissComputeAsteroid(real jd, ES *pes, flag fBack)
   char sz[cchSzDef], *pch;
   static int iast = 1;
 
-  /* Calling with empty parameters means initialize to first asteroid. */
+  // Calling with empty parameters means initialize to first asteroid.
   if (pes == NULL) {
     iast = fBack ? gs.nAstHi : gs.nAstLo;
     return fTrue;
   } else if (iast < Max(gs.nAstLo, 1) || iast > gs.nAstHi)
     return fFalse;
 
-  /* Determine Swiss Ephemeris flags. */
+  // Determine Swiss Ephemeris flags.
   jd = JulianDayFromTime(jd);
   iflag = SEFLG_SPEED;
   iflag |= (us.fSwissMosh ? SEFLG_MOSEPH : SEFLG_SWIEPH);
@@ -2256,8 +2364,10 @@ flag SwissComputeAsteroid(real jd, ES *pes, flag fBack)
     iflag |= (us.fBarycenter ? SEFLG_BARYCTR : SEFLG_HELCTR);
   if (us.fTruePos)
     iflag |= SEFLG_TRUEPOS;
+  if (us.fNoNutation)
+    iflag |= SEFLG_NONUT;
 
-  /* Compute the asteroid coordinates. */
+  // Compute the asteroid coordinates.
   if (!FSwissPlanet(iast + SE_AST_OFFSET, jd, us.objCenter != oEar,
     &r1, &r2, &r3, &r4, &r5))
     return fFalse;
@@ -2273,7 +2383,7 @@ flag SwissComputeAsteroid(real jd, ES *pes, flag fBack)
     RecToSph3(pes->space.x, pes->space.y, pes->space.z, &pes->lon, &pes->lat);
   }
 
-  /* Adjust asteroid coordinates if needed. */
+  // Adjust asteroid coordinates if needed.
   if (us.rHarmonic != 1.0)
     pes->lon = Mod(pes->lon * us.rHarmonic);
   if (us.fDecan)
@@ -2284,7 +2394,7 @@ flag SwissComputeAsteroid(real jd, ES *pes, flag fBack)
   if (us.fNavamsa)
     pes->lon = Navamsa(pes->lon);
 
-  /* Determine asteroid display name. */
+  // Determine asteroid display name.
   pch = pes->sz;
   *pch = chNull;
   if (FOdd(gs.nAstLabel))
@@ -2297,14 +2407,14 @@ flag SwissComputeAsteroid(real jd, ES *pes, flag fBack)
   }
   if (gs.nAstLabel & 2) {
     swe_get_planet_name(iast + SE_AST_OFFSET, pch);
-    /* This check only needed for old style ephemeris files. */
+    // This check only needed for old style ephemeris files.
     if (*pch == '?' && pch[1] == ' ')
       while (*pch = pch[2])
         pch++;
   }
   pes->pchBest = pes->sz;
 
-  /* Determine asteroid coloring. */
+  // Determine asteroid coloring.
   rDiff = gs.nAstHi <= gs.nAstLo ? 1.0 : (real)(gs.nAstHi - gs.nAstLo);
   pes->mag = ((real)(iast - gs.nAstLo) / rDiff * rStarSpan) + rStarLite;
   pes->ki = kDefault;
diff --git a/changes.doc b/changes.doc
index 3dd4b680d9a4ee929bee72228e1dfe8f079ed3c3..033d9c40619bb8ad31e681970a145d322b5bf012 100644
GIT binary patch
literal 83968
zcmeFa2Vhi1_y4^?L{uUcK<rmU4VZ)k5CjDY5FkJRAt1%JNjAyCCL4A)Ku}PzV?)8t
zW1*<12zC?|6r`vis0fM$Q4z(0ih_#re$JUYcXtC=p5OEQ-~aD@-Q>Hs&7C`Q+MGEv
zb9dDnhitg-u_HhB)%bMu?c@7>*Z#gb3Fm9E|1W!du+Mid`zhe}UAuP4>AS#Gz~Mii
z|0NXoYUWG6{Vv(Rw$HcY&;`OopAXLRsq6DSF~R3M$X7VLaQM8#=N+zRlfL$^-N={u
zqR;o<ID;p~CSBg`VArnt-nqT)+XT<(PUimRShgb@nf*W7Hn6v|6$Z%R74Cg|+CI<q
z9BS4&AzfN0pD%`3S8@JT&Y#(suRquxd4$h5l<P6JlFx%|k7oP8nLeLr%q+I@`77I|
zq??-K^G)N%j$M7eyE$IL{S7698XrrC#XN6MA1Rl7?AE5UTgf-^WAn3HTW_02j@NUr
zk^6+CB~sWuY$gAj_l@(*=2J6Yp-<w+=9hTxuk73U>@7dZ_gFH@J=y1TS@~D8{nIoz
zk)M2Q{j9vr{r%~ys&9Ws45NOm+zmR;=erWVp38kGm-m?r9Yk(-u+3sC@+Y4F>C)N0
zj~vM7{o{SU&g3e`qN4Kr|3rOekxx&_-+hieOFougKXCnCbivZuZY{s;vE7=x_x^3u
z)!bTnwA;PsV6Gf{g3s5(qw?NU*L;pWwsf|~d)wNaEq`ln|Ll6r^#7@2%dfqadvE7$
zdH?QqZ~2LB-oKvD*A^qy9)9fWJCtu}QU3Y--%kN2M?Map0rFv6U_Or1Uq5oGuYB0{
zmIM9RGfsE;q-q8Z-;#m-F3|n{_FFO_tAt#<Gu`#lZrSKr=Wk?_s+G~|*xHbXn}My3
z_f)So-Wke~Tpd#aQ>l14v`XGhd(4I#cdJg#Y#hnw?_}e#C|)Topyp#))LTE2vwOy6
zQK}~0(^vE6jx#8?|A4%{eVn$L*;$U$ym@MB|3E0<j|QBIa4ZmYO2QE*CmM@{L*Y_q
zR3H)!hAT|sw7x~LaA6?gw9IOm)vSGL4}WE4wbQLC6ms&zBnptaI$RMr-f7>=DJTn)
zS1=TCiUZN2NU)HsV`TxSBoYXW_D2Ga-+e~46AhQd^i*XeTpID0@8$9Siek;dUtAoF
zQK+aRXG(%&$hq8K9B^V`Cm2h2!W2UjRz?D&g5j!YLM^hgoY7^$qB3W+Kk7tGy~!h7
z6>-YL6|pk%EG3r;r)O0~K<k-FO#<Z4xma1SqBJU3*^4?=mBs!T^^m$a6@k%CjQpZS
z;mUwhROXMwoM>5iG<O){RF*;FXgW!Y!sV6zsFb<VOHvW=M+&Q*A}U60q+Z3rNTA46
zlX_K#{1t&1x0@Y*q?+<V@@Q3MWjI2m<(Bd=MJb^g_H<@yYM<P*oo=}~1q1u%4oK}0
zkg@_PZJdncpTy@_nLp-?CT+#ZF{y1$I!4>4W<!?b+P05#tt8-&RYjy8`XECLLv|sF
zoUepF!J?{=KjK79HJxyY6CF{V?u3FP0x*dp_!B5f8KQxTSTxhgi`^V`qQUZ@+)U9$
zs6yc)f5<5dM}lJ^ias#i35+QURK}dK;c$7NSn44(8Xb(48A25YV*X%A@>4EEUD87M
z=m_#3OZh31<UXLv+^a&KCb_umaDpXHb+}3&ArA;tgsV!+nu*9DAN>2B(g?&r+N!0f
zqx~^NFB+DTqh+D03U&fTp<tzo2B%^Xe?>GHGa?W!f<iIB5dz8*rZ5qwFkFm`WIAcx
zNbe^}M5NGU>gMH)3I;^-(w#E@DA9|`a1q3d1dE)?Fxji}z@iH10=<NYeuy5dV2>Qb
zRfy1No)ysAiNHuIC{Y?h|1+C8d4@2#aIsA4SycghB>$L8X{R*cJ<??d_nS=2U894T
zjY6zL#6KGHLN01uRbCkJE1xO@73LsX<}X&6iD?Oh2k;*z#rzdTfpj%j$%J&tZ^X_Y
ziiTbOD*LP&8gVQSKyDRA%WF+!%LYr$<Bfg^1@wNWG7u4h`b&{iTaREAsi>y@@LN(A
zhGVgCxy@Hglj-zRE8rCQE2Qqx03?C5hOt(tV&Slpmd_Ka&~lNsLC_-V1frFJqM$z%
zLPz|eFm^>{Ib0P(DD1udP^?U3P)bmJvuJw=*^4?wp)dv>_Lg9+5zqnXp_Vdkvotp;
zxEP0w!9&GPmCNI!Tq!EUt{SU4xqHN4i4Bc9Eu5|}FK!5?c(*_}$?5E1h4Rj|E}5x$
zdpw`+M1rMdF$x(h8X*SLl{UjcL*R&<uc}0&iZF12F)^ncsu&XZo#OCVDCrhhjBF@m
zOfRjGig&oQR9d27Nr{*>G(HfEkz>?t4X_1)NO_RNYIs~jFM=-yt3q^J>f<sohug%A
z$f-S89w#l))=46sh&31U)~p86t&mdOs4AQ2qA4s2$h{G%Zxk+t)D9q3RTahl2o@k6
zvr`=O7h$VPk*0+6ExQV@T6M)BR>AeeOTterHu@u?385S`DT2YFfTM!ZU|}eLO++Kz
zRu;ZP77^GQ<&tbvTO`k936{J(y)MEuh_XbTG{|U3Blk)ZAcQp<7S|)S2b`ytBb>re
zRiIg%+8Kj$TyeA<Ocz6?bdo&dRh7zFrBDfS6#=btYw4unuSkJJ2i4MwHN?IKXy(yk
zydfdK$t1B1y|ezX47L>ti8x^!4I$DziOCp@B&bT+Iy5up#a2WbjUYuSL9C%#k@z#l
zcQVqFm{sqZS&8wp{s$H{5GqmLMFJ%u+SxsbtjWzUPL#;Q*kE}TqAfhdmIPx}#Q}=v
zs=hWawA)Cy$iKbGl|$RKpc56PdZ%XN-6Rt1=I7~~+aL??GKTC%n9NkEOx#4N6h{0-
zBgBJHkH|C}H0YzGNz8$hmD0N54EQ6ZRhS5>Y+MAfXqN0^NK3@glIOY^k!(aDP-#`Y
zJXl<e#egJ|##MaOLXK*fwRAlxR+BtK#m?loXVfiRga$&{3gZ&=EgTLPrr3vgmUMtM
zM<}$o-D2Z#z@>mead}{jEhiF%WFn<v5OEiZMg)qr1g31s-jtgx6b_RL^GP{GBCWM6
zcJMi+M&gP_!p7B5rp1DxxRK0sx|I20sXVX@H_Xbdm_h7^5MOgK;wip|5Z$N`rhvBH
zC8PRx+N9u;@Ejg46)+joY*IE9ABGfRg9<2@>&K{-6~3x0Ym<&1^SFvqszn{dJB+&J
zbD|@w!~n^2XhK8P4n74`ieV08BLdYJPQ;n#?17b%*Ph!V+$owe%@l<$6=E3a6gLGk
zA=(<i*)wWHMakYTo~pGrd!#!uKfsepBLixD_fWLBlqEL6`7o|8tpUD>(x-(p6nEF@
zTZNDb0VeBVUWL~*yF4onS7GRd5M}<5%f8)fBL0ao0-oE(6|;axB~EqRbD`5_JOY&f
z2pp}#&xP+&5966et7*izB~mC|G%1=~6QxP+`WP814A3BErnby<`XqIX^lCy+Lkt40
zAQFS8gxS<$p!~Kw16S0Uj)nY`%CtR|A+f6RbZNVlY9vc81(N0$rI5<QI8!LCxL9*>
zKi$q5&k{RNeqnmBSTpsSx!pLq0Y7wb4Gj5+i1TcG70f3dyk>4Zh-f83FGSX^q3RGf
zU_7+vVoNG^&32m&6(v7Y0+IPBT^;pc=-SdNfXK%9p(t?Mq(kyGk0RP%>26n+RpZgS
z4xv|B>5PWU3xgF_t1|k8lt}pbwwr3m;u=+L5i$n<iE_~(Nq5g!5@rA7F4|Xap`4b?
zyJ#QS6IiTzg1eQ_7RYVs>NANHR05GI6-;5Sx)-k9L566qgs70jYlxE!p57OiadL94
zMW)mL-*ry^t6peoD|!>!2HIdiG(j=kxIokyFgi%6A-A$DP#%cDU7|bXh+!apf)I@f
z`jpeP!c>cf3WE~eAAC2f(gUP#FI}*LAU!apdC#iKApSGwx?|JnYzMRp?Diyvp!Tke
z@O<svXAB7xdj0cYj6jUK<wX?4wsW>pHA;%z#*X;aJCdh!5DDWfCD*4WWolfGnr^WK
zrz-sAJX8xcIU1-eZ#Q_z(9CEcdrG>r5XN9k<{VA7u^9xjaJP-wkVu(`nh?%4+oVcJ
zk?u?$?A_^_0n>0Rl@Z3Y)*bTkzSEskJGfL#ciMC?G){Ngb{I%Jpo+_<b?8GZgP2sh
z)2>6mP*p74%-HvYqDe8N)FZ1<BO1$0M<N7)G5+$(5ciq-otl-c^`n?2YPjOeQ)fOe
z?AkodO*D&^mS`1~Hs+)Y%q|YY>#+JVP84%$bZRneEqA!?@Q^9!Ee!>am5io1C$wv4
zNf?V%AsXR|j6#@PGcI9W1w$=_B(pTr7QJ1&<f04h{Y9}VtfJ?8qVe$>N#>?)CTK#7
z>{nMKDa;{xU<5}Y%tABCDiA@!3-wSv7csF?3Dbd56OAT8YuC6+B!bRLv3;;L_%4Br
z5V_(LFHyOK0A2g!me?_kB+4U<(`cTb9!<>6(5eLDpuP97G!H5T)F=?a2U7pOTx6g|
zE8(WMO(m7qR5@;2LW3O$w0913dJO58+rM{SpI%OrvRJILeTx>OM~}|5nPr9}r7i4%
z><Cpd%VOnCoCbd<dBfD!yJ@I&a%jcdtJ|j$h#{WY5Q77)s1-yZ&a0+KgOo-}Ji;h3
zjNLNC=Pql`Oj6U&b?JaWi*IUEh$yHyA_Ok)Tx;X1gxinA{qYk=pf{zBJgSfn9gKe_
zdz|P)F=3N5NWFt0)7a-xey>lhy-wT3ln%I6j^qN^cyB@}B~&c|NiB@EhUln`fNOQs
zEEz&*=0>n+=KCeL7~1QvilRZd$#8&1-v)|=8ir<)S+(`t%3U3b(RgF8qe6T1pctCi
z<VMCJuJI4JT8d=io`u83_*`LnZ>A%vPD&8(len$t!J-nL!l_X;)fgR)6hl$z54n9j
zjq@WiUf|Yyu85^)5fYpSPf@Yo@K}qN>2wYh`Bjl@`FR3@hUb%!=(;L@aj{&J7_G)r
zgD}z?rnd$$#C$}tma)+i)sr%aut`|PBaM-WxFqUDA+$!A4N;=BNHQ{k{ed#ZaZ3|B
zF2RaD<{pn~*_>53v=6k`JfqDrQ%}uwawYgIb--Oh2m&FTh<@&_im&!W{q`#QLf;vC
zD4AQiA@nYhd~r9ua>Mih-LM#(h0?_m12B!IsFLd#<n*(CL6R(c*?DF1o|=@sExAxi
z!V2^i7{5Y7kS_Xyc+=%!+(}ClDKTOJCB@ZO1+kF{*rL@E8E0sLs2RO@2^5J!5TcJr
ztP}wsC7y<6sv}*<B5smt&piT3#pOP85qbtPQ`=CqD$~9sxM(_%pv<q~qG=8AiX?JC
zypYJebc>|`ZfL&3&CH9-&}0RP1riFZDvaUij}8}V@2<qNQ2sFzNAO5Lq{53~Dec9=
zIyPHcr4kLROW_DZR0d^m#RPfiwAiYM#d3pcjN4HJObA{AV^G><k(*^~j`(q~n4oJs
zi)N{9i73dpNJ1n*oUsJskEQVX6@(aQ1S_Q-bjJt1=q*H%=V)Y{;ERj~imL;YX#*1s
z2NtLzpyMQxTx1%1gCQZV;x>Uaa$*W_>A0VeB|_zPQgD>~48z2O9y+Kg<A>o2s_Y-d
zD3V{vz2}gE*WZ}jjlvN$A0T5gHsTZS=cJyN=|+}3+eH!DODt9jz1N^q#@VASt<qc%
zCpMZ9L$tVD0zJr(@)&bRxJ2_R3S&)0A(1TC1wm1XY1ku|(6nSG?jfQByVWwfV_CQx
zMM1iA(lS`a(6bO(;auDw6Gz4kFt~Z8X6QiV$zo=sRg5v9Wo{|5Pt!i3+YfWArQ#nS
zUDR=F)sa6QqRc>s&JbR8Y%lSU1o`2~1cs8w0gxnD;N+If)Qp^diI&hcdxebQ()VDb
z&srae#U)reTkj}23?ACv>FNe2YV=#Rn`-n#nktEeLjj^j+%}|~2fL$muJuZAa7=?@
zi=XT*$jud5JTxo=w@A5aUR<x?Zw+<!_$1{O@BIuMpN`HM1iJ!bpc{R2ks0GtP(taB
z1nCn%E!Q{Dw$|%?kqgpz1|e`V!3>fGf==KO^WcO6B~q#+(ep%N{3z!P89}Tlb?@;P
z53j<*L{HTgxel52V95lVCo#B;@ufBHgn{DqOYh9J>yV-(SSkah(niZY{;V1|!AC;E
zZagUA){qR8xKb)NLZYN%COnLgab*}oZ6i{e+`sqqZe7IA*k%>F+FZ1lz4v~%8m<hD
z-#E4j#BhZ*4yrfz+xyKq5r3g+^s$0&Ii$Fi!?Mn;aaRpKsAZ5~tF)yhC0Js)Z{)D-
zjFvU;Od@Han${Nn5@C&T42!6O+<ex*bF*9MK(XYIoml1|-CYb2z3PB58o6Ukc$gBW
z6{~8<pdP+T6tj*S)PvS(PsXUV+9Dlh^a4YoLc1GdQQjQ4Au&^B{(^l%w@~|<aj(?w
zHkMj*bT#qH-ow6sAyr;QYHIG_g4{k`bGte@eY!e%`ThF$9mIh*Q6z_u2y#!gpk@U7
zEqW+HPQnRX5RvsJc|ek+y2qox(v4F;$P8_Y=Uf5d=__cP7{<%;a#4cGTnc6%go-O}
zMvKDuR;E2hlXVnZ6YX9C`UZ>?5<W+?NFr{s+^4fta@;N#?uX2b*<*~XL_F=d7p>{k
ze0bId+l*_Y9dGf<yl$Cs=w0nq{|biyN7E972GqI_+DDi8!YCYQDkOnq=xDl)XR}9x
z%y_g;-zkX@UFVz*o~P-f)!ASqPNYwBHz^6z_6pGZAiUWl7>N=Pl?1sJ!P0WSEkw1K
zv?sLbML38cbzvYd!jxWJBaA^AVNPdYMX*S^*rK6?R`4E}D`4grDMjMBYwy4&Hzbpq
zE6>F%!&jgI5IbS~PKG+5B8(>@&LjwUM1O{H`~XdjiBroI6hBX)gIkO<LJw1iR&3lJ
za)^D#8!!<Sr4$k=eK#@K8f&Kr{)Et7RtHOjbSJxmN9A;<rMZyqwCZ4pmF~3e;MS%_
z+)S!$nW)`%IWbwDs!pvtuwf{GE~rJ8*%4~wqEoEjs2zN7$_>=X&T84x*3HaA@ye(5
zaV5@HK+oxbz8hGuQoz`gM&fX%q^oH>l|LRu@@$OtLLs=0I|^fjgAspm5cR8K28+}v
zTvbWGh#@_9CV+|JOK7nuhOJHHhlC17`^~WHZk*8(o!-fFwP=uWj-&-+&-4IX66*L&
zjagkzTE<W&r(h)#=cY(MNi2&O^-gG7g<EtVWb8xinH-8|6o019AdqPYWRQHtNt4tW
zgS%O|rL_~=*DQ&bnG%W5(E%1S-=Z{BU0LQ<#R`tClDVe5l)Q7IMJ@8XwCEa$w#e%e
z=OcQ=G#(@@WQ>}>uu!Hly6%f}ww*~enbGCSq}xmhJTH`PP(rwzF`xu_Ov@NThfx($
zE98c-w1MN%R;ZHt=5&gs*zx>bie^V+En3IQTC@e(Sr{Wz4k;c{QzIY7z%u_6+qTC{
zG}fUbz(s^$Wx}P&#b_7-i+IJg=!O}>3mbjgBei#nl*z;6W1VsoFRg3PWr$NQ*ako+
z93jp!Rn)`|Tz}N1j<HO7i^<E)KY{#`oz{>xK}H?KDpGXKfS?*vMR1OphZ~_0(;+-A
zn&37XW`YbNq7r8`a|ER$f`v6DR^`l;xN06|a#XNbg5u03l~KG<IO0m9##IORKGn*z
z=@&`@V?Ff-+6XbVHV?g;CYlegqrow5hE|s%@To97S_gb6vHa^qEc`Exk$b&gui4HR
z+&ddeVN_^uIB4yb#xv|%Vx5`fPKWh+T{<%{Qr#jFC{_OxRs@NbG3S#W8_}$OZbzyc
zQ(|TQu2>Zb4H>gi^Q!Wb1|&W+h(1jbWF>%<74PBMOeDTEnzp6Hn^^^eG^nJFu5k=C
zdWVdZ6A+V@Nn1AQs^DS3;4~CIgJ9n&5+`>1<ublfSs9Y(1%<)HX#CUbVA{uH*_o3Y
z3TZfLK#h=*+tMaPm&6?M{M`ot-K0*-%&c~qS*>gf<Y)S`9rH`_`G};2AR+cY!42@H
zosMFlUZn=%h-;B)iZog$QtCEOI?5($FbMSyjM3&Q*N>aoPkK!<&g)J(_rzW+ph16`
zu2XCs3iV56hN?{D)=_!vwit}$LYf|`*LTj8uv5WM=9R_#B2n)A?czAm&`eLBr1_Sv
zZ?HnRsg^hHwwRgU$}ftTl&K}}WSJxHpCWVKJPXXZ>~@7y+=5F4NhQR1t5$<VM{Oq3
z9ODsj#trNhg$Y}@k!ES_lQ@O+j6&;V!n?RZs)<5w+~W}4B*IIbO>^RUVF3c0Vi~%)
zZK*bq<{IoS6_ItFYLgNU(K|KsY`oc3YC@zjh5e%$gkVmOy=K%SFh(NA^wV?}6JsED
zUKXaJ&~K(Lc@2ti)@7?rrVl_ztouhsIdWq>Bk2{uItUdC!zjeqbi-X6Y%}nBjG{?0
zgd~2V#~Y2S7!?$nNsL$~BZ${t8i-`3wj*SjNT+g{T50Txb=0j-qI9$@Oyg`N5v7EA
z2WNNbore|G(?;NgZ5l$9IIL(4wjs%%A=+f7NeR>K{3C5{v>X&u4@N^Iu~DjN!Vjs6
zE?ux?9GK?`S8<prbE&Cx{kr$h$#=T+$m!FaH3B&*Z$|oM$Qxq_DI}mIlIix>ypb&0
zUS>>I(H+!f7&_ftJ$pMG<tep<?X0me?yha+r60&(XjQpR-7`{C5ytyN|00NVC<xE<
zC6@1wy@;2lG38_hNEe4ys?3TK=CA1hkEpQM@-VZLf!=ULB*^w}Nsb1Wgk{38=c>3B
zhQmyk7ON~aT34tbpH&sOQKm<$)m0rP!jQDo#EYxCkyKX8uw)`%rYuW16s^nKV<bVF
zl1M<sS?KM~j>*;WMseP%3N;{sTQ0oy9C<m(z4WZrD9W_~A^@E=P?l~Ex@g294~yoW
zkX>g0q+}%CJ=I;DSEsk18CY&VL-WzoQKxSOR$BC#VNIF!<chpIp~5hp>S1k|x}~*6
zbZ~b5xW3M0eTD=zcB`n@RWuo?&7GW>5@zZ=1F7=l?y^3?DIfqCC)Hkaut8QV2Gc#v
zkdZiH;#Jx1n>&c0Q3YN6;1b1a6?dORgmsa2TC9xBqC~|y5A5!A%Nv}y00)&()iGlf
z7**zMn5c*~9BnhR&=-Q~ahn*|F1H=PRG|5yS!P9!I74o`CHBP~CKCOmkz>w?#^>qG
z#-t6A=Dx(~>aPyz{3b>v<Wzy=F<M8!WHOnwhqMJaB`95qX|4#a>39<bmX3&*gSMS!
zTtr+bDZ1Y7`qcP1GAUC0NC_K?u*%Wsh&Ud4ugR81n$vn>4{fk1nhu6q=Nw*`W|908
z=0^7!>pGU^`JN*>xj?FjE?^tbD7TaAT2MN~a*4p4>W1kSGu0+xSp^0Fhb~kt)DmAp
zjW1cM7Yfs5{D3YnZHzHOrfjMa`ee6K>hrnr=09SP5<>F+L$0`;SRrUa@#6PNw*|*u
z`~p`(M36NYEBBO0>?qDjR~8aNze*mMDmKZo$usS)xY!2A<%VIQmORmkk`_$mMpVr(
z;Sabbh5L6HMp<MSR(x(Podgu^QW#HIgat+<m5*-Elv+yTpxydJhFNhdWj;qyS$t>*
zB~m)Od`+xt8d5;S8P>^k`HTdKbbFEiPSt8Er!7}PAuuhpgcPiZZdQdX<kTTtw=Lk=
z-aU|4yDSMe(?Dtb0dWa4iZ1Git5)-=We^YLFRs#sIn}sJt~uDN2)b&|<PKewpsc51
zFQ5oYe$&TwOD6sj#B)W-wCpm}#$deYEptmO7q!!y$fraGh-r}7Z!y<ZtJzFL2#qz%
zswhUU#o5zQVr#oR2}S-ByAIY!t3!`xi^#~}mQdaJ>sGQ=@6;JLUcQsvt}SL=d@_BY
zj{T{#kW<3)IX|tL?FH#Lr!-zQ3Rj#|676Pa=QrODKQXYYs{)JM*;IB!Nh*V3OUtkm
ztLT8Lq1SP2D-t%fM*D@C))n?g2p0ut29#-@Na)RloX4ml6XH7IHnaG~TWBc5v{vFw
zi^Y79V7W%*Bjwg7lwk%u5oYt~z_Rr33j?es7DwMc7=M+y6a!?slpO$c!rCPXSJ01f
zqedF6(YlIAN*__3J$EvK-t6{BJ=1`%uU?JRS0_w)*}EY>s5a0B%T#7@8ns?>hd$67
z15IZZY!!1b=>`bBi1kZHqlAS_x?V95WtIx8c3VZ^cEU_-!y_|QgGWdwAYL|T?iEMO
zsJ4QJMWY=CP*rpiM!N{V=?X-5tkf&Nbc7SeMYQ-)#_eg*k^-=ZfGo6=OWsTk2;nVR
zaOFpAYeEo1r@vs~BbbhE*cxvFYLYEB6X@J1nu&@UitHhkRMC!*y6rSlny@^_Mpvbv
zG8NO4^j;Dxwq06=`sf1}nCO{_(=%Y|k7COUgp2M4{1P)iOmn4AkTJ+o&ea#aNn~6K
z#>xUn6qhPuJQc;nI0MDZc=Lz+V_5U2lH$6I>aqoCUTXFz-J;~XJ#5#tMs{gGY^T}U
zVYdYF?yIZ4;*(&vwZATYiS1%B)GF(vq?#GI)d_QdWVNVRRkKzqDSN{XsbYqW6U*`#
z*M1wzVakE3%5+}a$8_VhIKDXp3i|iW9o&z#=laTlf&IGX6i6Raq&_aF>IqNQld||J
z;ldP(M!4Bb`zhBhvJvXwSPjXz9aP#_WH7=!3|VH0{m{;}5JQUZ-frr%dlypZWrv|8
z)}!rajo}5?EXPZRQLadc!`M)lWttT^Gtpf8MK)#xS8VGc7G9X5dab$H9<Dc!ibdbB
zU%Kj2L;P=QL~^eiPSawRA(<YmR9TE2ooKvoan@>(I$mxg4bnN23hUsRt&>D?B^Oy(
zX7a^s!+IfRteV#waD&XzWWuq`8>5HLgl;iNk|5y5do-oCY?73AfhWm$A`vlWT~$;Q
z@9LxDdkCF$*8R4BLdhlIEgcRB<t}2$GjSM+HuRUNWHgHv0Tvq27ELCbDXa#TmD~aR
zEExorLQ)BQ46FpT5dTXBo$!>&S0^yIS)>+_zCC^AaERG$<<01vOXd8$9H75eQN%1>
zb&}Xd%RDtpY(Y?BP;R(LiIMG{)vQtnlvcECFLidGF#skfKR`zOgtojk!7M6E%g{_J
z0;Nd%C?=)}k<BUe&7Q`t^``j~x}?b$<?kIXC8QK9D^Gp^c8y6e^eBnhNCb3pU<zRt
zH>r8Dl+}Ga*@jE$TK<)sH9OuX@<+MlhbywvrIW$;kbs|W+%`EAjqyEHul6?I{#dp|
zNbsl(zuP<Aw1=XtdM3dK#!JXfb7PG_jMh|QKSm(kzPmKKtam2|<M-%7g%jk(71B1T
zVX<$Ku!1kc?}^Ey&Iv7Hy&0-Ffx(qNW`?P_GiD_@vrO%rT&bSxZ@4{;gk>#BMKFAn
z=}l4z_a4Mmgv^`SrM{Z+iDiC+IK<M4NYe!oQq0{`%RE)gix@O-c@MGf5X*5=`xXv2
zw3Qvmo9?jFH5l=BhM2t`64(55;+yO=6LQ-F3#4>=T^CGxJAW>OWXlkZn?*AHo&OoT
zklzZekIGV9H|*+UOajw$lXP59$=tRgo$_LIA}ga+n=Ha6vb=M*N~Hxe$s;=>yQS!%
zKCo5S1f5A&^--O)&$TP_lOJu*{;j8rLD&N=F^{|y!S%A$K0{wwNt2aHW%yD-XVlgV
z+K70Bg7~ba+{~BMLxvBNix{@2g)YKj@6qnDPL8Jir4N7+mkC}*`K-M}$nC6gv$CaS
ztIShf%HrG;itLJF*-}VkQtgpD(JYBm(oHb)(8QpbkdimH>`imTnKPkc5*cwcIxdCR
zKJQ;FxXPtFXO!M5-4v=~s*ut0)Xc2R)GjiqcuY)1O(#y$)uO49b8#ZNZ<mOxIeNS|
znwbu;kdTLq)#8Z>^vlj@Eg>{JEaF-bV`sz&U<^gK2$h!wnIj;B%7H*gaxg|kXWvQB
zRXidcM5E0$av^;onYJ%pquU{I(!9|-^9bdwP=#e5;-0|@Oq7t+ye@#2ORkFd0*Q58
zNN>bAOO+^L6n9O!L~hpVfk^uqL0)ZKfj0oTUU`%VLs8<Zb?7S6T=GnLj5tPQDO?>t
z5@$4FE+<#ZSaaeo@*CfmL_~P>eK)G+_EGU_;Y4Mo4l;9>tSI(#XP&#K;~bSoT7Qm;
zs=Gxa=tQb2Wa(^z;H$TnIshv!(IXnSG=N<&XCM)iH_5jOH%2l|b|uYa8V;RMMwcLA
zJSijJI`r{k!E7>#*kYJU>my|7tH^bo`eWpD^}4>43MP58?oHA(w-zut%A|FPx|nG<
z(kanNBeoqxNM&9JqNEf^aFpGgOh-H*wn)`S%#$oYEUtM2R<wUb@c>GgNTmLhjr>`r
zhR2u3@@eE#U(qC_LPX@E>omDj{Uv}P$=xwl<Gqrz=K+iMP+k!^8R7GcOO_ib%uGE$
zhvD(_b1LPlA5ok0S+sh7q3je1<RVej^P_SmN-v);*=1ny{7QiwRN{S}U)hDPF@QGq
ze7UVPC;{C;PtXnwDUh#0@+CP8!O1*-h~z&6KZh^LZ3u%r=MRxb4UsH|^p!6u%#cds
zzlx$GR&l?{3a%SCaP5c&L=e}w<AW~BOJ!8_JRx>_PF~c(9cd*m<BSOLvC+KU#?1Pc
z-b7qTOeaX5X#Fj-U_u8N&C9vOJV{xJuLmNs9s%QI#^@L^>gIN_l=^CK)kVkASDlxK
zGfUs?o7*xP-^v@F@jH{Vrif{fPKb7PgzLJH2bmZ9#u#uwUb!X1-I@TSUBYmyTSeGU
z7{e=xvHQGdCd^cwgmMs>QN@n8HZH-{01!SwN=y~BK@*!L<##<KxB2o{`zb+`AYlA~
zc>5F_Z+|Qcoux-%yEsz&Y@uC7OZOEE#)6r0z)3$&E`=}zk(S6W6C~2IPYIiayCwQ=
z67yCNbh$*bGdG)C=zL_Dq~<D*(JE?x(>l-+?D3nPrnL=T0o;Ln8ClhK0LmMkuc`9R
zWVO)3C*ckh(te}0$Yyn!=rgr-106cn$zsr8iLO6!XW>KAAU01Yb`$Q%p<7wg9PPEI
zE+L!*v1aUsX|QSIn`r~6Q(<+CEoq%Xj;>K~C%8~LcTIxRg+45bpiP>389L}f_V7}g
zKSN*=$(S?M^xmyv@(_77#543ayfi&>xu%5Ca1QyIrKoJFtm*or*Y151c$C>Y5*9E4
zG{RoNVs7nAAAwiQ@G3DkNa#&L=rmSJ$;->k`>kAI!Od`I?1&=Sd3Ny{n|`tz3gCV>
zfI&s=$Qc4=vex=S9SQWg?@kj{kYI()PfW8k>1pO|hzMI@gg4me>h=<}S6{axH@T(L
zo{=2mBruUmR)0}kA`IO~>ct;Lw#?hmY^<AzF^b}K;Pf?Ev=DYVcH-O}Ggc-<mgnf4
z3fu>ICu1|hGwmh(+9Z$lb|b5#ntjhFYo~+ku)M#CjD{yIQ|V@wsJJ{4i<7WC#fpy@
z2{WnL1gDddi5y5tGD>N$-0RY1wCz}&71k9H^|PyybXLb6a!nMBPNPH+<QX>q#9}&W
zSshy0ML+{&0#H!GBH107k^l({7#5;W*Rn%F#sGaCkIb|l5~eY1?WX7=OI75(2VIzK
zEQ|Kqbjar&F-%17PtY8dkaKN2w66IKxM~LcJIVAG(=~_UV(p}?I(^*b3^W=Q=Iu7T
zW`Pt|*i1}C(k2sB8z=XUsAKCU(@twjQPOw`QDW+=3va~evTx4FS|(X3pu$n=H0c{L
z!ZC^fj!MZWr*#vVI-I-~i3o$(G?(PsPTSQ-RxV^zE@A98gSAY1NG{BC`7J(ET;V$r
z!!>-3@x~_`?9raCN`zd)LrxyGF&4`xu#nE&TFEG@>Z0g{DFe1;FSeit9kB<p+=KOG
z%u1j>1aK-Cs=;_AR>qjR_-kJD6<zcRcm)_Kr6jU!L1t<tmdL9&!A9wwGYo=wU~t5E
znn97cz4OaF%or}YFhX>=drVZgli%s!XQzows!dw<<tnc?P{zzK>W`Fp3TrQUN?PtM
z>oUeWi67>zQk|F(>B_Jy-?WyWJXwlv0@*g(bSKV3JIrRu5l<tc7-tv?rEgoc4tql2
z3M$fS+KfB~vVKDYy9mqPOo)A04c205l2pVdqYox;T!K<UaCp(mMpd-E7j7~)mN2R<
zi>p25PLtj-Vwx3Q2}(=d`)V)?<0|XsC7jVjX8(>aPh4!5WMYx&#FcfsG0YV?J84ap
z|GR7XWa)jvYB^jX*Y5H#FOjHe5=%YP={k6B?8w$@cV=PCptH2Cc1A5s9%B{NEuQJP
zOCb{_z-<G~MUzrO-pTA|1*g}}LFe+_wRCShHaY$YhhsX0$Rt%-ySx;SO{O|qM*5v5
zIfy0P%weTH(#b4jjsnWm^GVr626)FOE_-zOD6tHQ6DBNi+>ML7rSX`>D;sgU_At_#
z#5J)-=*%cj5kpBYGW4={EstGnX{MXP5?7JU5-_2FuERE70y?A%I;2t1{B7Iha>`7H
zh9Y7FT$ZXALvpbz+8`n!W)YNF1Us}{Gs8b&l~)T}e92UrNo!@8qAr7|bRu0XC9I$D
zYCEY{Qji*b_43rlu6GiX2UHabNqZA>X2}yTt23?N7_^rs#T_ONn#jQP_{3$aF7p!<
z5c5>i+9q7}7~apFSfLH5HX=!!_L@NB*SZW%%n0AFIKT`S>D^j&wbhQYyg;a>?yCFp
z&bXzm8THo8X;2vg`y1YwNlj~HGIpJ2x;>Czt|eGW&$Drd82>~7<Zic($5*x#i?7;o
zb+w<<MBEe`LYH!6V`mvbuenOt?FHE|ARV<#>GPA0hF7Nt)$D{}>Lg$w4FNL<b)r^6
z56Og8G1vqo&4d$~!*8><woM2zzLLn7dBoqyQeVF<lS<-Q@>+|0eOHA&rGW|cgII=Y
zUIQa{h$iAdu&7BaMZ9ow-a4J?XG-<76U94s5?n9OqW7!{={kCuis(w8nRKACnrPk=
zQ$iEz7U|RCL02<oVT$FhwJPU*h)~Zq_HJ~}mJruVsFzXM#YQdUX7io~T_Z2;4xxkH
zMElRn;yz;c=4JN|Ap(^qRMglrjk?rod?o#D;wqF~JNNFQ7$f~g_T%;T`uW|sGqIPa
z^JJ4asjr|w2mSE@N;(=k)hn%pmO(p?G69S(bP27iluJS;!3y(gB*qSzThDw?7GSx*
zFCdX_t2{(bdA$hor0=LltQjoN$t++BG#6ZbLR5`&Nn<xg+B<rOVjJ_BVXot>G9`!i
zMT}CY)zoCI+MJr%@>ChPY1^hvo9x!7wi7d&-BQs+W|1T<e<yw{L-3TuF1;0ACaj4U
z)t5<5s+clPv|Gs5RA1&CNF*IUt<=%?*my$_#C(`ypZo^?$>W)EO@o08@4k0mwMUuj
zy5r`_1byjr7~YAUkm8y9*wa@;xl#@@b_+|F$lTgA5{R(4EQbj;9BiHYn)b#z`|>Ij
znX)V$4>M;(m#S8VD|u-h6P=^H&|R8Cf{~FbRwGbzW-2HNGE-%)#_lgVaQkbjwi?@U
zZQn?OY5!B>7Y`Mwu^UMQ?oW-KOc>OWWu0^)Ik-fIy55k9v8|XA(LR}eEiJt})x9R|
z%;1S(rU`e&>k5G+z6nJspsrf*c%eg2;{GYW-RU~$6ds(NxS>B_;OVW+#$kv?o+&oS
zG!jIybd-t-FuKr)l=3*v(g+G=%<N^JrE{^8{b4OK9pGk8YBpp4yT5EAiGi-9x;#AV
zKfpt;D{8b#8F|*<XQY?Se~FuJ{{KEV-E~8W3(|-!>Lg!+An>NfA|ZFg5z*03m)onV
zDSSA?{`RT4-fRZ+AKetabRWbZQGqxDxkhH<*M-m-xizL{GVCWWYSI>3rdAr)BdQbE
z<&{b5sv|`#esRip%cx9OQZvNN3Ryje)se<Qrub6~WRE5#63_)bW*Apus%8{Lm!vU#
zW?Bm!|8yrwo3$0XHh?y&xQd=QBUeQCS+{2&syUk}cA_oPdsSyh#z5uJjeCh9#7`9?
zWnYBJEGO1|Fou>eH;YP`_j0+!V$^7S7bB138QC+|*XVhC-4zd#_pFn<yxY&Ug2qq?
zZOv306C%*1eVoKKslh-ux-C5hor>xiVk`kG8Kb<AT!Yh65qFG*alIH}X|hwRQhl?8
zmQ2_d66mT4D8LF}-ngj?v2dS~3X|F;`B@@)49J_4HOfc%&B{As92hW}W9L~gp2F{-
z1Zk_ZbL-CEmbx2zQ!^`>ua0kxQO)Ev8i)!@kO_9k&vhs}^~EOYmC2yE`y!m=qMDvz
z@=Q1xY(oZV(aGFcRcZXhG@ACQCe2k7_(=^N1yNOz@qI@AEA$muWa3W5GZ6zb<R7n=
zdam$8WJ+WrGc{jErg4nQ-FKwA3ubGM@!H9w8v3yVy(&O1d*aVXbWr-Bhg_*<HnSNU
z*22b9s0Mm-1w<YbvNM&m9<(w45_e8;PHM8rG@(!$2g$zEHhJhut1U|-d*^k@?K2=Z
zmG|TH?O%}7r@-mcw}5l;6~kIRA+Bi?T`S6~^s8_lq@!<?(>PH$Qw+L@s%s2P-*Ik6
zr`7t=-l@;Z?_Ws_pi8*2+DKknmu4&*XvZ6tSW+ym<=Hx1>U3qnJL?wEleDBaw=y^p
ziiO)#ad_RSJX(=S{dh%d@`;A&fA4*-fAKx9lB^*y^M3MsD&{p&;@1%*cV}|S?|(5j
z2<L-k5ITToED^NBb~1}k<M@~okBCr3RtD(wQqJ>oK7Rkp&=!&g<*m^eVMaI6SFhKg
z9*x>XG1c6R&cq+#EhYB?k1pxWWLnKEK8H@0r^p0H^Gp;(Uw0`3l3p2wW8UneP>^37
zz(pQ#cHV#iPHw**x%s*M^9C4cAffv#87ns(4a;e`+!iipou(ZK=mC8goF-b<-MA#u
z`?K+cC@;#P?NFBr60<T?ep^DC3Q;shu({Lp73Fw9jW-5#leuiU=7-c^fcFwZTC^l#
zs`*}Dk);+i8BF)7ENkMV?Dpc{qy!CJcZDBCbA{P(%qhq4N$*1Jq45%wL#8p+{*&;I
z>bgUHaplNNO<20HHy&Xj<qZrlERipJ<eciB#}lVt@0>0<y}Rs<S2eZrw07yDn)20Z
zccy7BIiWD6FNpAi9mSzNt13=-Fxts449_frstuA)h&~m-!@tITnnrmWt41)?x023i
zf-DVX$(AgB7ts^RumU99u*BfUA?P17sRph3Z?I5mW8OGPU(mQ+qA+`85Vh7d6ByCB
zg-l!u>x!1EO;RPd4HqZF)t7`@rJa^JcNih*U&<tNoeYlR@CqIi8u9d6-vmm|(6A@%
zCU16D>qQn4Su_PZnO?rUZiRch=&D<Uwx5|Vrb9Q<Tq^^Z7sj(rX0CFzlMfI4xS6?;
zko;7exRss`sv*huV-CkS1Ki(6MC|29EGTd}qX;~>N`LPpzHo6jt&O^G@8*}-WL`^D
z-`?%Mse6yt8d{?vjt{;s<k7dZ%FGxlRxWdOa$?3vi}7nMv3p}?kP(Sw>0(dU>91MR
z%0!t;T*9`8_l`^Pq-L4K$oyJvnMIKy*+*N%#%AF8jF5&Vlu(_&l)j<<pin=!KY*X4
z<i`P3_@%9IC0`|m*2?^xi6;hPMrv5?nwFql%M5D-I^$EaE?Qpa$`lV?a|6Hk*hCjf
z!qJ_u<P}WH80~i(>OGyt2BhYTIE!h+<IuHz2~y3jw5-G`&2MR*?)@@`G?!k}N>3WS
zZ-GRbwpY5=hS{Pww3Ovui`c!-K&QLDHaCQyp$5U_HolXi?2Jlhgv!ai+MrlzWyqXd
z)d-z#XDnGgYiX6t%}slUX|y{;Ww7@85(xQmgK8O8KnmUaTr=cyL81fkYPt47UgX5W
z5B0XGmmToOfXHhc#NIIjsxm13N3&kw?7V^=eFqls62u|S**X3D<KhiDUHdq)Sj1ai
zC($#BMDhj*@niIDwY2E+#*BiT&UwA_3WkV#(Jil_4-1`~Zhianf{A`P{qYqC_Ri_=
z^c&c}U*7?_nGUlWl~#X1S}_*70GCzz_;K`|#Ypipt5_E^;zP|{VRik}%pL{#(j^tU
zr|;@<=Z0FFV@&-YH0-4nRf)#I+6{BIVQSyz|FOSRet%X!aTm5pmq-=w5sqXxvED2{
z9&0|wyW1qwwioX<rKWr9-rGEtpWU^TFz@CpV{u+3k-j|`9=Gb{eqKKqC@NE5#xHFr
zrrZ1F1LFxNc|L!BLqmS0m)bWuyNs??xs#X9%gkVj?4BtFbn@6w*KhHQG99P0EX<RB
zsW>rmB`2S=Inru}9jTT?G0SN*iIGTapYG&Wi`%WgOwgN`Scs0OPT7;9qO|Eupdphy
zPd}tw>Ml!$$e$UHA&KmyyPaTB@!Se`T$ux%`=}{JS~HtC8BX`UU8P+AL1{_-zyC+I
z|2LJeuFsbO>VN}4eQ+o^0vrX72PcB&AOmEAw%`oV3FLxqpgZUd@<CtF4-5o@z%XzQ
z@Pk573d+E6FalJ9ksu0U;36;%OaPaGE5McDT5uh>9^3#XgDK!va2uEgrh^B;Ebu6p
z10Dm9gJ-}z@En*A7J<cJId~Pk4pxAbU=3IYJ^-J9Pr(=9Tkt*j0qg)jgI~c;P<wx$
zZ(nc#I1r?QgTTR{0cZ#sfuq3DpeZ;J?A-R>{S$GlU$6PW4a-hxceJmOe%CRZ3w)GY
z_$M@#dP^D40n@=3;7ic>0OSFj1-2dN^Zf{F)q~&QvV(oTCmZ;D{SSx6jeWj1j)G5)
z&v!^upRf8vpKszxKHo2i`tV;o_%ZQ0Ne5dKuk8I`OJcH3i3cAi9=xA;uy(HpN%!pi
z;LXGgl9G8BYS;Ib7B4D$0TFA!-k7>ayL;z#ti_&Oy=&B$?q1==z1TaHbC1QIa?g#)
zf*iFEk$b&8kp*94k-z5P6p#h7L2Ga-Xb0MZGeIZN8FT@?KyPps=no3OKrj>x10p}?
zf<jOP0-ywp03k3EM8Ie;23!QjflI)p;7V{6xCTrFH-pLGc5nx{3rq#~foVWwbq1IP
z9s;w$<6s_m7Q6@+fW_byunepKtH4_D9{31+0ycyC$oawG5O654@_!QhXMhf%BRCUu
z26>=2=mSJY{v+DFb>~+*H-EZQHXGhwx6{f3dRtbfGxoYsS?)nk>eheU1l>M8E~Hy!
zG1q^nen5}cHr>2e{V$O6o((PlelP-5fcfBg@B(-d)I#U?0ky%t;0SOeI2N1;nu83G
z4O)WMpba<;<ba`I7^nv0!D8?}_!xW!egKKKr75=ML~s%~8MFgEf!LhB;Cyfacmccu
zPQ@+g1V(@r;Aij)=y{OOcQLpeyaZkWZ-dRCS$)b2P6s=8Y*Siq-YI{d?%44Dr|Uj_
zd)>}eukT#9Y~2p9`1Murf-^f`eCn~;vt}=wJ#*HwSu>Z-G!TwdHu_#EKIx#Jb$i}O
zziw4IF~4%XQJEZN^*oYx!rY<z+-><bzqF3t^=rjNx>Ysi`a|tZZoi&7U(e6Yy-Bwp
zho}qJBX!bro5Xj{&pNcfo*#K^nQkxdZ%TLVfy;e4QukcY3rqmlg4@8I;6<<i>;$#3
z^JyR*6algOQ^8S((2ju~VAx@t1Dn7#v<Y{DC&0B0eZGgmlVBcb-^k}10ImR6foWg{
zm;)Ap^`I{8NmFn#I15PoG75|XLuqG<z+`Y6kap)OupGP!-U1(j=12H^tw1j535J6x
zxD8AP3&0w%5&Q~vg8ksj{=yqj2#UbY9Xq#e-M00Mtvk2w*!tPWTR+(P*$1C}@a_j3
zaemE?H9Pr}?bdBO^zZdW3+8_?f5-f16gxlI`3#u9K&juS0%{7k#fY=DvT?gJJW)1~
z7IWsZqhdx{NGtntk2Cy2-A)Zo(ruIQ6y0ibP_JQ`$Xz4-mef`Xt#n%X5-IH=^(zJe
z@C>+*_WL2Q5=dMACfEo*0S+Z@3Qh!PfDjlB#)8JjU=u*yV|~7Q;2_Wtv;uv>AP@$X
zpbCrw<G~uR8GH-A1K)#`<Iq>|AeaRn2Csqd!Ep{gDQE&R!BB7xI2T+4CW31L`n>h4
ztvfz>@11RLY<q3#wuReX+xGmn=jChOlXIV(`^ek}XFNFLkr{LEop<lN+vnXh@Aj*2
zf5(U2M@#cFpx%TYqoF&}20dlpoblD)XE>?cqk(l(pzkrmHYoLHpK`9@!eL`{`^<Uy
zx-A)weIi}Tk>~<j$xXJxU&+0A<O1@u@^IBfXX{nvl6O_o$UVCCWJ8YBdU$6NrNv5#
zl@9v^l{oSe{+}wex&h1t_k%~l<KQjuF{pFA&v!UD8aUu|FdkeCo(4<6a<CGt2b;iG
zAf*Xy2G|GO1ZILK!7E@DSPRyHkH7}-8Q2UCKLJ?+MW7gb4#byi08RoY1Mw@zf-As{
zU=nx`%mz<_r@#RG&Y?j3&uhW;U^3YL&6k@t^7o<qz4y+C{JqK7d;0g<hw;CcpMUwC
z=bxDKu>L(T=lSh-`)YnXs&8#Nz|+yPQ$otAIl(o$?b>0nN|kIImC3iY{o>GB?wPCJ
z8TkHA%eADJZ{fSuS#<(AwlZX|Tg#v_#dYPiS3WtiPfE5brwdJ{g8RTUFdaM$=75*M
ztDxb@@E+U)?gjUO>ELPb3|InIfVE&f*a&_ByTHD*NsT~bPzA<;YrwT&I+y`wg5}^<
z@GbZS)Nh7A0kXkaAPl15YH&Yz2)qJ50o%XX{^cfNE8p+G#r_+5By8Te>9wVc7Q8n9
zwZ|V`I_<98_`cz)%WCpbDO{bmO0`k8jmq>0`gJ~jj(e2V6AK7sl>_icw(b$>;zyc}
z>*h}R7Ml`3viaCnd}$ajg?yh4ouym7gX4jNZ_{HdKgoO(-$9<KTqU)YI*~-lExA?k
z<kOP~>w{#8eh5!3PlWzLccHh?S?GIQbJ_<m6}$ruIE8)yh=9kyH{kempKl1b6|4h|
zGtf<NKUfGhfnO2{|Kndf*qWH^KYOqxG3)>L50VJ7DY0yOKS)f)e(gr|@G{3hYTZ+j
z(mfR>?I*_fR78#x{%!^-@KyNS5_AW`?<z1J2;XM`;r%B-_}>_a4D<sc2bX}!K;+>?
zATseQ5V^<(rvs6X5kO?*K_GJS84y{?0@)x4h69nE12fS`a0(a%ia;?4fD%v&wr~CF
zllRxXv1~EUmi|5Zz;xZ2>K@-d<@QOpUw8Y}myW9*H)$M1LOZlaBwEsUo$9=FnH!a9
z$C<O%-&R6$Y&F%kn@U17T*w>OTh(LE%C?byi{8hNtlleAxDvnHUiqsQNG-%)urR}#
zzOS{DZKE<h;<@o7d2S2Q%S1YV4^1y`39nkg>r-i;+t6Qbi+r@ho`Vjj(;l3GO$R4|
zi#zyy<sIqApGmt6E(0Hei*w*<7kJ#YhTeadD6?NB9(<m7u<@@Qe2|z7X2w5B8N3xg
zPxG|bgO!O_{>NqeA7@}9J0@ZyF`gbHG486x_xhf2_s(q7*WFX`)T=cjKy@4V>R;~j
zod-&bjsA<B(7nc@LqSjpUIt6SR`4AVS@;puX+ggT)XKsa1BZj-z<6*Om<W1g6T1N?
zBRi*n%YewyRbU2K0$vAigN<MdI2;*k3<d*{w{t)kRDvtOjbK=7`Wav;SP8xa--F-4
zzQ|`PXa+LDMj$f#8xXnO0Dc8akzbMF<={2&3HbTPpTGP0>n}E}ed~>7Z!CUe;bOkn
zY*_pJ!o|-od>(L#orTZO<6z$N^A^urxZ%l1XWn<$qZ`&r>nkkCl3pbiLfL_C$<|(>
z|LLV-pH#{!wqK7e*5l$spU|zfE82#m*ZD;|$VI;8F1!8tWaO4-NG^@a<S45r`FdyM
zyq@76>DkM@)}rk<1kL4mO5uGq>|F<;#iyXxX~gls2=Fp^53C2Df-T@%unYLeNo+wa
zP#ZJ`M*w-kIiLbW!S6uqg|9tnK||0891a=-2b>6Q0}p`Z;23Pn89;1IM=$_P2M>Yg
z!9uVIECcU>^`HSZ$l9Y5U7K_=+fJY>C;}l+1;zvVh5XSqq;t4=<GZVNzP?QUHom*y
z=>?l#f1JM^k8^&<<2yE+zegXMe$PX9J#^1Qw^12r_<Mt}ZrkNg(d}UejZ~Tz)w&+O
z*tWxNFF9+crc&N|yb_)!b5CTza!=KqCn@K>d;WmqHRR07Q-f1z*U9JN#!Yl<`wUhN
zCCAf+CKrQCz@=aUcpe;pT|Ww(0K~>$0w#c~z;)nya07S%Yytgg1Ed`o2W|s*frr7X
zU=3IYJ_5aI8wP^WK-!Dzz`fv6FbB*9kAZdIJ+L0U52Q``82ko)2m5y-HVYbp5D0_I
zf$$gJZr%!SUtP82<rklO`LUN@oXy|MFV1>#_STsave|myw)?i;e&g(GubOq$Wmox>
zI<~)dhVzIy9(T2BmmJ%e-7yJg<a}07&OqVmhn%h3em(rUop<v7x>ZiV!Nx<bBoFzv
z7USSv%QVF+gUnX0NlvQe@Y74n-ICU7{1I9Lb4Kpf{5<}1l{~CuE;#plJ+`uF{TM63
z;sv!5n%w}_f#1PCwA<}LDF^{+$0vY)fxE#y;C=8RIHWWB42}ocpe;BZoB{fPVc-t%
z74YE;><118hkzD9{DW4Y59kXn0hfc}_zYEGEfD`<J@_5$0(a*kFJL`*AAAIU0NX&_
zZul~wCs+(#0n5NgU<3FC{0{nc$JT*G;5G0a*a7zMf!u>sa3YYnAK0<wGXn7IwyoQ_
zjjwHQuiCk48&TkOTiz!wjJV0p+x%^zr#XMYj`?iW$cUj?x8?B!nK3rn$jqi-UFD9I
z1m!&3Hu7e)-K6~dkn1$1)mtl7H6#-$n1jr!OnUhwN~x7fIVW-=sk;e%g^ofisrx>8
zw7XzrPyBi?5xm=rSbsjU0M>(+ec%=N4cFuQe%RQvh!6EAegMuJK>u+d?KhY;2)RHr
z@`l#%0e?guyw5M*9y?nT50b9z{a{PtJ)8D=@Nwdm_Y)72uKYU(YyS`BMw2V!f2rsH
z?(W@o#HH@uskwKvCtl)rg^03_|Cv2Gr=p`*RqS+6#pno;^OHa}XbD<_j^KN+1Jptm
zL?-HhBf(MNG;lh&0f?;J3}%A+K|AE-4A2GSgGwNBGyz-#?gEd4C%{wSS+D_gK*nwX
zw*ry3@4%1Xm)`gn$ehUEvEVq64+ewt!FV8Yc^SAI+ybNx5WU^GWg{WJ_ug?g@4fTp
zJ8!Ohb>*9j-dwrh)i+nZx!}#GXV02BYr%bY-F!nL2kkyOq69{pguLcRTWNGnuGkiP
zbiT3w$^`Cu_u{Wr>&;zq)wcHL%q_z&_wJ4KEK>jBh{lKT1Z5dHoLu^o(NQ;wXwTcW
z{ZFjMAL_s8z39IPMQfqgdqDL1Ly(PLi+;BSr-63hVj%i{BbWnT1#f^4!6r}#JFp)Z
z4lV*ufLFk4;0>@7h^;sPTagBugLLp65c}~9*a_NUN5qx{fkeZe0Sm!V*cGuaO<f!F
z5Zjl)_8$oPz5C^wO=}o%nWukGE|5QtA6>Ly&CIErZn^Ht2^UVdaO$S1NrnM0TX@u{
zOjQY5=oYTZHknu68SkEC?#fZ}9scG4bB6qu)avMQTJ0~n2*(+%6Tb6g-NLW<S(}?V
zlPD{)FCPEyQe-7Cxon=~@f?-p`exg?c}iuON_nQx@my@S*zEu)0b{|S0(=0l1iS&#
zvFBpfTZ2<UZ*VyfJAW;>4$J^8vH53#bHIZ@+JL#>F(7S0M{p+S3HpNpU=TPP3<KwY
z3xFS#fKo6Vi~toN45A<g#(-)t4vYtvf(hUXa3#0~Oa#}18^BHAW^fC*72E;t1Uq+p
zyJ^SHjXOWwxns?y9jo<g<LZqomcIDhV-G(z?N9$a?j>@*XGITBE(|9d44UZ4g36o6
zNl(TSB@mujpH%INmpV}*Y@2?Ze@B93>@Jg%lgbsjs*JF0mHNA{lhprT;BGJtOa~8u
z2f-s?Hh2s?4xR?jfcfBg@Dg|#ECEZwYv6UT3akcez&qeQupWE_J_TDqox%86APsZ|
zd0-ImgSnvn5PU+=9}ENMfFAe};!AWM#+WYX0nP&b!4Oaef?znf4V-%}vJ5T+j1lbR
z@3W6T`1oB$bNO5I@w@!3hVf6Werz^_{4=LcRyBe4LgD0ofH^bsnBh>?cxtjQI&H`Q
zt+k%ov7K_~)v^=F!|>wBgfo)PjtWT{8`ZZ~-^zi=l;m$)2jx1)e`Z5G$=gj*+gW-F
zji#KB&G$3st&q077+ENR&e(}HBhcA$2oc6kRMKXHuSXI$j*vcvA76!TgLdGg(fHhB
zunA)sU%&8={JyQWnU(F{54QZZWP8tG?^lwVgum$bB{`036U+8y;=zi4;~?=C*;g;k
zME_(qSK%pH?l}!As3%x3b^+(aC)5TY?$_zLmK{+f-FrH9lDjA3WpY;GI$ZcZ9$X40
zf@{Ie;2tmwYyxAEi^)Lb<2G<7m;q*jhrvr=BlsLNyMR6&xB)y57K1NA9ptJJI1)IZ
zDL4_d0d0ZE-RYns=njU0dC1}WK;&@)_!?Y_TyFmcoqhL%HLI5`cy{h*AFTf1kq7yk
zA^$TTx$EY;ZoY=oAJ4e?n#;zH@+ExG6eS5-AOtZ-R`2AB?t8j^czV1yWpur$>p4c(
zy)+W>v)V6LMLXZmouFH}Catx3mdOpR$HvQ<<YyTRaEzum&pPvrDPGR9FF9NLl4Msn
zulB)vQlfn^&-Uz#m&TSLUFa#g{s5Q-9sy5*r@=4aSI{WHTu@L4dvFBE2JOL6PzXxF
z2yh>m2E=a60QZAg;Bl}F_)761uqWA|3+M{OzVrZnz}a8~2!R{G6!0WC7^`{+7=RtB
z0NcOYvhm$Dt5?Y1a`|5P%)&>%+cNXrH7oAB{l?p`l&cfQPZ&FX`S_armwF2&ryeWy
zX;gMc^PhD4&2f(=(0+Gr997t`2Ir@q8}|4k`*BVuQrqxycS&lL_fC!cJlUdDR)Qpz
zl+sGppYeH*GKReEF5BkJF}`%6=V&knRD*F~0+<M{1=oWcz>VN-AZ@`q@E-USd<Hgy
zZQw`nGe`^3UVt2s2l{{^;2huwWgrS-pc+g8_k!u*QLq$rq`i?grwhmhJwX8&2+jc|
zpbRVki@>*XT*3SRa3k0Sq`j&QB-X!q<NN$=erp8-g+D&?#2oqiQNA8F`%lbyV8#5q
z=Rb4jt<TJPV9w1q+<e0WE1>*A6-M)<1y#9`mYnmdk)Ae*G}$)W>ZawPl{A$w?))<z
zdeXB;JK;$ZSFdY)v5_J6<!LtZV`NSw+gc_o<tqL3K#Wz8@6&`nb-;n3A!r1S0Vjaw
zART0ZmY_Ab8e9in1dG5DaBijX3+AyE-(V$p8>|8Efc4-*us=RSV{kmk1RcS9;6v~g
z5TBwJKE*zuHmC~@0QJB@;9$@I91fa-R-iW+0?q@)APQn&Hh3I-4#ZFS8ECtKgSY16
z)obK$#p>m&7d^M=x#g>$Ue4}vzUMw5JFBrOx|zOQ{#O4hp%L+Rq537qt@mgw`(guR
zYyHF{)Y_X=?8E)r>%NeX%Ilwbc{SElwl`;G$jX$JCG{t*6#fO7^5oN#SSw}ig)YB>
zo!~bh{#*}`2j+prAkn{Dgpc<MSP$L@yMPZXdl0A(4grUPt{@i#!Eo?3e&KH*72og(
zkOrE8Q$c@F00x3VAPQpO%4)_Nz)bKUcnCZUWDb`M+`YAIF#~i@E`0J)px+NId}!e`
zMr$TbyK36Pi!Y2_c(G*{QtwpB=$w2DCv@x0=9434^Fg0eE|PgyzYk4;vxlP-wd!7K
zru@~Zn_|wBj@%@LIgZZ>lyhcIpzKLY-?~p5laKc#Ib+h;dE9bFN~8`RIg87OY`G&x
z?T7rVSJl<?<V%iJyLpDUPaalsRARi;hTF!wF!E_65Bo3ld=@+h&c<IK48(8$5PSsc
zTtsXKIN*422e=d551s+@z*}Gqcn9n=4&4R&g7M&D@F184UH~tG-f$%!q+Ei&gA+hg
z&<3;xr-94B<=_hNEO-ul06qjCfv>?g;79Ni*e>{X%ja7@S^vrUHS0fFvHWHJRy@1n
zlP!;Jp%=g90kfTc7k`tdUp@Ka$?QO()vdmR+OilTf#3VWJ>|EYhg%-^?6Iz<5r!qL
zrV%dg>e=s)InOh@)}6?WE6#AtGvT@Hn=_J!9L1$djwl119vKt=6RGsdBWH{>$)4P6
zXOXK^dFkTv{XyqXd6FDUPA!Gk!mF2n(EW0uBbab0b{rguFIxg02Ty=sd<mZ)6ZU;c
z2U`=b{ErW|B<7ZMka*#r{Wt~owALq~KPh7ZDli8MuXli-!7pGRcwQUq3+jMF!C~My
z&>QpteL+7k4vYsEgG<1rK;-5!@H$ulM26k~jgg%rfXLHPpcn*z$kt=P%GdTEzWrg#
z51;?=(YNcqUGdT4kG}n3d-C7HXMO*>KWMvH5o0(+V;|Uemih!sTaM&x!HKseTB7$;
zTuUV9(RA*XJ(DhO2i&XVW=DDL95=ZlPmyQ3s{rG6%XdP$FMCp1%5ig7wQ%Nc=y3ep
zy8AT&Crr9`-=^Tixp-T1SJi3^>P=cz>wh=p|0(_M6p)s#>+Yxj-kDX)zpVcGxs``p
zH^KLiuh*;tMNVj?e8++^UyQ#><^i?fZ?yhp`ux5qXCw5`GJQpSmvb%3wIJV7Ux4)V
z`+XZ~<XiAR%&&UzrQ1$F=Hec6(kGm|_==MmfWf(Zn282#|7%33Pv$vVT|X7}`#MqC
zsIS7S`0mw|qLh;|=nFxlFr@qA`}bC@-2WzTGb!Yrc`HRPrSLKMSVWpQhvQriQLR#V
zUh_<*=1E_EH{R0^`L8~2Z$#v=|9t+Tz&{lDhXVgl;2#S7LxF!N@DBz4p};>B_=f`j
zU!cHwwH@D~z7*eqDfNB(c@?THuZ2<^#P*Ni-SS`Bk!Sy({7Ak3&gbu@m%J@)|ITy%
zzn->b9b&{(a^XJA9|Rk~R^Y2mY!o;k3v>egzy+WZTmmM6z1=7IrV)=?M=WGBa7g>_
z<n#ac`%Z&)gTW3^7kV}ZgTQ#u05+Z9Bc*nEkNs;`fGCIok=ahL>bqUF*w&L|`l;jV
zL-;46F)pTh_{aj@cj?(!bMdp4oNO*beJPz%NHbJ(m~+7dQt$8UL2$|MD<;fTK_JQT
zWpnmm>{y+qDTmG2>T59L3}2^{2tb}%_tGvs9bc~=j<0XeTE4TuIdv~RkBy(xH9uW_
zITw7t>pp^k_4c*b8gUfxmGHDGjmJ5@e(XymuT;M!RO$G-QKJe%Uh?Trseah?1lxEn
z^?U`~QAiE}QYY8{Xy4&KA?mH)spCsIV4slL*_ShZIbF+lAbF<wMmXDcy~Nh%m25xF
z$MN;%c@j>QwDqI_zLR{v_f7GA&$b>^S#ll|ub@p1-v{{W`wpA23<53VsGINi`qO+V
zDcwj{-%WQQ=^U18m1!;Gdw;~EES~qB@6ePieZF~KEpj(cJcK7AC7>=$*as%;<Lk^F
zhxnSLbk;kLY<m->+0QpXLxwTxBh+NXh_-2;rYTK}o2K|u`YaK{xvObPiqFq61f%rd
z`C6v5PIzi<U!DdYC4|UxeFvPxlCTu70Gt)teCO+&BD87fd*i~6oJ*lRLK|5ry{guE
zfEg;}UMuCSluXh!aMK+~x;RDRd)$ny3C#;rj@8l})JW)?0*8bvjreBRztc3|$dop|
zdT7QY>B29O<7$H40VFA;vOI#b^?V(hr*v*!OXleB@^vKNX}(KSI%>Wz`umb1#dkK}
zO+~spH$SkZ=5XI7%%X6$Q0hC)cazqa@%8YbdjDX)>zVrxsw}&N^yWGD)p*Vz(z(y6
zwTI_WzU1dT=00b@39a=xL*vh>$8#uHH{T%NG~Y`ibI@T;_0Oa@MD-^G4Z;ip1kme0
zpv!(HA5-4dHOf0AUfw#pmv<LeZFy-2;BZdL_pa0)-$f)rq}Is7ah}k`rM6$MeV9*M
zM_cgYeG?`=f0&GiAC0se#&%d2ejScq`#Ha$x-t+wH*-vR=#iUV8@?#(;N0z3{C?T0
zr`JWEOPjfF<+Qxf<I>-(-}uwVGKSxHdF%a`e>D25dHtTNn-M$V;KG%6TsZL28$Y@C
zpvIGbDEMOFd1Y4=kNf1ohqwLuO|$uHn`igi=dzO@*|z`W^VY6C`?GHvWHr0v{(>*=
zZg)oG$)OuhnDPF8O{;_Bj=uD>BTqkU;rLEhZF)NGo9ljD++*r@i&s_s-2A|<YwsO<
z*|HW{6PM1tck8b|*K2yo?FSBicxfyD&}nZT{PKqMxm~mN8$Nz>tB;;uS@_A<;~NA!
zUUvAp6}4L}IOl>N&-}8*=XHjytN+N;-M`p)&c%z5|1D#E{}Gv!qrbmBe^O@S%-f!M
z(!XiJ>@(5KUAy-2C6j9AI}d!m5E8ZFs+hC$Bm8<?i%j{x{KhvRQN63az2b$-R*yUD
z%|(q*9Mxjxq%JL{kMn(;c5zvgqt+j_WqseJbq<(c_wpIvZlBfR_eZb&`Qs^{JB{vq
zsLrB|UCw;1?Bh`#7F;}G`4uxBII-@qF_l+Nzi|Ci=Re<X_4G4VWFIxN$J1H299sYC
zcl$oy|IyCHtCt`AX3yO9tqYr8{J>2k&tH4o?ROusp-u0%er(i#ZQBbTz45{2yPjB-
z_4?g?U%Gfs`e(VdE80%!9sIQLz6V=;GT?<t4+b83``A@a&HMSC-}YG15!JUgx{L}k
zUC_sXtB<!Lmj_xTeDk{iyk<Hg!cp(_`~wy_2Y32-+<l`bz1y~Eep+tf<F7qB|0iFU
zsYm84z4y&~*025Slgrw!{HVd2yLzP#NuRo3>cqf`%&VW-dQtiVM?LsnkE35n4}H9}
z;ifOfG+zGX^@n|ww=8<rxD(b)x?=WIA2{zkb;_FKzfJ$(yl0yZ?{IDRvp2uBz1hax
zEvKAxK&{jET=-j`n!WK>9HxFpF%fW2h0m5^e>J3Uczv4&3+k`qM|#3VCyzREzp9Dr
z9=j_e|ER?kR~;L?=GJxnrgeHVZ`@JueR4_4qUZcqHC$JIm4Dc!jn>Wlwe`F0L&vO|
zGq-#Hn_n4x-py^+O`P4a>7hS=^6Rc+kDK-I+HaQDJLb^ioArI~yx$@#x-|W+y3^#j
zUw?4yPc3Fw_h>$~_U+$Y{^SeIZu;=4>$iV2f8yGKT?;2%Fs{kkk?XIW(sS)?x6Y`)
zXz+QPn&n+k@p|rc4WFM_+3esQbvG{w1)m)>?A(dj`DaYo(0JL0N8UKA@2Y;2x3!6E
z>`-UUH8+o4SXy{*-eILzyi{kus_Q2WcsEe%n8J5{x}@*I8?XHI#qSSZ)c>Wf>mR=3
zo@bsMS+)P1(ra%YI``=(9}SOx_qk9`<=oJiiIoLev$r2L`;=k(j@##g;m5As^5b(a
zjLmt&H}~7i?jLk(%N5-&p8etS;H{m08hQ7qXWn__)N?Mn=J!{pzCOFp18;=_j}M+!
zr}(&|qC1{?Z+KDk-ItD<^h(>$w_d-p<eB+jZb)6W@$ApH{&vdjHCJBS_TH;ke|o_|
zvyXZ2+tRlWTz2~tU-#T`<ifSXkGSZ{31w;1dOgwjhprhDpKAQkC)4WtQi}(#u01Q*
zbIH1^(!SX^rfJ$c^|rQuY3329fBM?9$FDdr@BCE-PrXooK)oZfr*HrA=k0UuJ~MY|
z{kxAjbH^7uK3??6erFEtyz-&)sh58?u*HJkzItQnansMdd;AaIuReUum?2Ac{j%uf
z1v__EpL+0{r6;Ytw#7X=fBI_qwR1ZD_S^jK4Y%fB+C8vi(vq&z?)tRu*FQ9F&}z`g
z6Hh*2<ckd#)qU&xi7T2;Iqju8d+qz%-4l=AwxU_d9ixwK*M9L+8;(i&Z2AFX#zo#Z
zWX!?WTr;iV)X~${rF;`v+5Vh@q5keaG{2+zw7i#xZz}A+<m;k~2EQ`@+QXJEcp>kA
zs#f)Tb^orS>(SZU8~15&P+sQ-Z$@`sGU<S?zv=(wx~kiLnb51_pv{@N$MilWzvYY*
zPQJ6`+NXo{#@{jMi+aD03O#Y*epRPE{N~tekAAMlvIAake)(~SZo2)u_IIZpefCX9
zZ@m4M)baZ~{9w;zFBR+voYS}Y)>x0m-Cww*$B?Hs-Rc|HtItO-^?R)O2QR*M|6|uS
zn0Rc#>gO+Q*W!d{cI32udF0S5j#<^TdC{4Z_B(i5<F7{!-1no;Dz4l-dh0%Y8a?;x
zK_}iYzwewn&jdGL-TJ_TJG46Fz1#Xd^sfVse(Te3U(KH0@5b_a=bY2-%33=%Zduy!
zrXQbfv@w6(<cC`Nf9?A7xtE_lBsTw?+S|UK^X#xOH-B|V-5-9w{_}H}k2^c^!mf*!
zpF8D^(u^mcc<+F~+1pc}Zq_Cv^8DN`#|~IhXZWkjQiFFE@BeGpRafP_uyX1_c_RyZ
zo-pS1FQ2>Yz<t|{n6%-`6CRqDbNPU>xm)f&>CjiNi>00Q>WN2x^?K!r<=0<z(z)*z
z`3D@=IMiX%;IF@5c+i~9AMZS;-=ysM`DF*)({6gh{0)!1KIqZnt~p<?^$%Lx`CoSo
z`{3%5p8r}jyWbHPoi^vldX3(>yiV<$^|c0_cf}9SmZa`?*y}y+{kmfNhwo=BIq>i=
znjG=*CB+@z9Q($v4^~W_vUK9J`(Ltd*4CRke)_M%rw)DQ){}m%^Zv?>Gg{7HQft(+
z+do{~tGf0Z&(HYbr>^ZEpD}f6dQSK9Icv_T7`tp~aQ#t>?r3!ECk>v@ta{_BA$1S$
z^5UUwzUrG_GWoMs;in_7yx;V}MW<fz)UQ)t?sH6!D+-1U?$)OD>jjN!rLUg)$j;aD
zv$o_myWoW1PMtA$$YmGoSUbaa`g4z-_(}G61K)jj<{{;$|9a;w{X3r3wcfN1b+2F7
z^{b-F1qTgWb@IK3K6+B`+*K_qZ@hnY`Tg&2oO<H9KmYXVhObU5310q0<lzCW-zYw?
zZS^_JF8HwL#!D-1dHkr)R?eB2_w#}MXCA#|SF3^B#@A}Q?<tr5bV>cS^J<;&uQ}y6
z9@uc?gPnt2e|zzgB`>{w(AACRU3*2aZu5D)+w9u6-P^m$R}MMyq}d-YeBh_x)wQqq
ztw-*JNgdL9o%Bne;|IO*Q)aK51DE&idduQlW;ML9>p}Y;_2rTC9@;*te(u3v-hXFt
zVBv;7OYZsg?!c<FxAXh7`)KNs{l9vl&3?asv2y82t<pYw$N$!<Pk(CB^^tW0zaIO<
z86REv+QiM*47qE~vL|ZYe#_Gn2HpD8oMtb#duHgc$2PS-uVT~7mmdE4saL)<?f9M_
zzqsEQXU^Sq*2k@W4Rj7a*yY9gPc?k$syg}gUam9kmz&Gan3OqbRAue!Cm-|VOEdC@
zyj3!L^3y|K9CCi;1H-m<@P{(q9kO#=pQ6K8-0|AV<*!`ZdQ^#j={uuB_sx3giIWF3
zxN^zQIZIAka?zX3FRt1+{lX2KGv<ACPu7X~SueFc@zVQ#Jo@%CF8TDCqgT9n{Q}yl
z-TjT!)syadnkz@qNS|DzB{RN<HpvN%vFnTEAMkQkgUh#17+p6Ue(Sk|Z#wCNt5?l_
zd!NfcJvFt>nN837>g&`;)9Yql<$v*x;QZVEwfwN6mLF!9J#=K<_FvpG^3Ipa=Y4fU
zr~ZxlT=VYf#d9y1a6`E5*9}W=>Xnv%Qq%rvnc25T4m!E#<f*GB7W{n4qo+;3anPqt
zrr)2lZ2qbq+pEUi``ukB7roN-g~Ed`T;n_9)_!;Hdg8a!j=ZL{#c_?!{r#+*=(|_!
zn>KC9>l;qE>!IGYUmf<`bBjOns-99SgFedM{8Ex7eD>g__Uo0LK}~Nhe)lQRGr@PO
zd1FoQCw^lCeB=Z#$aq8v<gb}iO;;qI)9O9tq>f3=JZcI-JP&z;cw%Y(KqUJ0+82*V
zdfof_&ZYLZ9w0|&oQWf3e}$$)lkCi_Cj5*aKODr*$aH8ju%KJUX-)WHUVdIieoHsd
zp-FWh+T_fRsRx|lZ(kIO<ohcfGN_2Q_jhRG{+e2pAJ;7R^NURUz&zLVCw*e(2bzi_
ze)*;8@=yzY2d+&E`2nsbPGM<whbEyIKamm}!(Q<S_6kc|%DI+uj=ka$?D>m|=#!Ab
z-LYr5Zq9gVTG=zL{-5^F1H7tY>-+!ogoIR*kU-#&282{dPauR;NC>GUkc9LG=>?Kd
zBfW_f5s|8Rr3(ns6s`qnQbZ6GML<L^%?RifrF{Q&P7VU%ef9dj_xry0$<Fi3>^*1i
znc1^vX75=uvzGcCZ?%uN+Q&!j<D>TRRr~nbD~iPk6YoeIdzuX?jaGT6_v}5SkA*iH
zmA!yHvj2da^ru7-eFF1V6jF;);+YDS!q%_4bKRJ`N@<rUE1J|-rJO|+7rc|GTEH!f
z7@P7{i^G%)eyUp*3QSN<T9yu7IEf&UB#K0n{v?JlC}l@oy4IY%O~DNpn~`LaLZq`T
z9cJlVN{2R`WRPJ*(k@CgMUkE;Q;`L=GO1c7ONa620VI|r5a~=aspvvUX9k&0&XzF`
zh%x0IW+a@HkZzTXo79jgRb2c)c9L^7oX$zvfr7k9P7$p-3gXCW@;1?^=cIb#OLmfT
z<T^2L;N)F0mdG=(NNe}Na)R>ztVjM&`i=kZp2LUL?9V%5nws15zb12o^^*dMUy<X!
z==8lQT|R61j|med;GZI~Gl6FFJbIZzznRynF4X2sRcJMP^4J90&E1s#2F(({lba^m
zD6a#r5y6<8-;b_&i@yf_WdI`yhRvP0yO$|5#bHSw9`L_Dw6$3B5TZp16J4`rxj^<F
zJdk>?N6DW^8fz*2tLC0AsaHyv$|<GLRZeirQOY0-phfv!9i@VL%5y4}=gV|PJ*8|X
zkG|zRD!>nv>KU=fSb1~(n;-R~Fu`6d0^9gVWRut>(|DTPmh!$dxzmH!IP;o`yk-Wk
z33%ihDPjXj3Xx(a62D@?(gT(nJVT^kI+M&I^T`6Tk-Sc}lO5zBIYfRUcSsv1#*oO1
zv?K8*K190teMtgIB(mNmo#c`{GJ=$nF=Q;6LZ*^M<VCWQyiC@Rwd8%Wk4&R<U<O%X
z#Pxt=w;BCOh&g9bl2Prr9+}J}&yq;?Q{zZ3DIjyn67o7r<7Tp+4}BxC><lQ#8S)uv
zR#5i{d94f6Kos_@GQ^2=BVl9!DI~>YI4L8Qq=p=I;JO!bkY5)^$(Q63xkBy`(Zz2@
z#*=4=F`F?9a*UiLqAPVFF>|Fq`H&nXlRP+{L5{HSA0wi7?|YISz_gH81DR&h6vXFA
zN<vtEh=OgKBN4q=Uyx0atm4EinsP1@OA<*k8A@)FpUGYFfV|9hY7IF`J|jgjyk|0-
zh3Yvnmn<M_;utpBLbj1N$xfm*i1$qVNC3$sS)`GSA#2DwvXN{eJIF3_ntVz=C+Em{
za*2FPu9BDprkmumU>A`Qq>|K<2GTT`c}AL2=@PZRk8VS_ev#}Q$~B7Q5IIghBA<{;
zY{RdSMQq1kBFo7tGL3EeOfrWoAkULUWC>YG4rcMW5U*_31>!?`6SG`CM>08&VUUI7
zMY5W#Bge_d<asvVONrEVJ#_dF(2;Tc-^T9$fi(Pg<-zaWi~3ngJhHK|0vi_P%Rip3
zw74&jpU7PzEoc~#7PF9OYqFIf9EgVjQMY*N7EIk@EwSfIpL{|L92f?vBGqIQ*-WmJ
z8${vAR*g83bdpIHk;Np;mmfsrCR>+4wk)dyS>uSbBu>Pej3blDbRwGeE|DLJ7h9G9
z(uc&8@nkL8NbK2~^k`{W<O{1k$t7i^n#?C1*usoqYch^V3nQ(|tK=&pEsL}&2T3Qk
z0G){^5$!*9#E`W%i;QAz9YgH1*<zFaB!+|+@U1{}ide(QxnkCIGPsIEk>vXZY78W{
ztbv(CRTF#hsr_#Q-1@OZ^(WJf_|!>+8Q*IpriB;izCuosi{uw_m*}zh8jzJ1e6r-A
zHTC<DA4uo+s!!M%bkFh~b%|V+cNH1$qv9F5!c;PgJWF09r7UqTkTXPd^w#^S$YZJK
z$WpPIPu+`8TRwSr5&6W`u2X%wj^k64r=`WOqW=v48*^|=OPT-A<e)q$J!rts)1c1T
z<ML?>JTQ6uPe$#zT*y@NTD2962RBQWFBy+Do3!Y@<p(;@IIgKHW3$;j9yCCM<H#DQ
z=!U7R+<fUq%ZKy!W@TW{iH~Yi2WF!TY=zFlz*gumuoXJ0z*K|M!#FVgM1U2l)IB9Y
zRq87B9|l;d&j2g+RRL-<b=pq`_S)~JP8C>R!-s+OHDq9Y4gbQeni@Y0%+#2HnHvAa
zTRm_3Fu?Ps4Dh_^U%1sx77qj4WWm5TS^R}tonZAaunATSY=YHayw!M{hXKahFu-`5
z|MFI)fUC=#xFXkhAU#awzPRQ%ls+L?3kKRcM1wqSpKUdZoPoA3yMTSU*QT9nPaEZ>
z=h<Os*)%ly`)B?7d8j?0^l=DUmGZbx*Ye1rkNaHIQFSZz>HT%fPZ#Ky+nHS#qV2}+
zU@ukIA<|3(Y1SHW_R_$qXbp&7gL(NHIMb-XuCyki_{HLCstISx_vW~3Lf=ypVuh-6
zoF;mW(8OswE&S}Kg>C^_XpYo^W2F{OvM+nvL>rFg+8A!9jd@PmaOIq=UD4V|%FxEP
zdTqR8rh~t^>tLO)4sHkQAiuW`KB(0}^mrY(y6IwEjxNL|&g;dxxT>Rv8^L<G8l?x%
zVS3nB!47zcKEiYLA?i+F9ifkvW(G7PWdPBa_Y*PqGr-*<11ue9fLOaWa2U`AR;GqD
z6=sM`+OiArFhqc#A-+#C#K2rbETP@H*`p0{N!JLcjg9bjdn0z+j5vwN2x8yq#Tp|F
zG;fOvMO&mLw#Cq4ZDE(y7JYKtVm~cHY|t=9tfn!H9F5WJW{i*hjd3#87-GB4r`#AH
znVKLw!~`|5CP+*%fmjKPtTsVr7gHQhG(}yCDL6ESq55VRZDt117CNdk-L7UR?r(;u
zd^0Q^ZibCI<|yc44n2Q!<y4OVKMQOPv7q`?3lzj#Kx|M=>(vgQgtbFE6HDATw?svf
zB|4;7;#RsPnlrgiT}P!AmRLX15^vjD;oS%;R7G3CFxv_XhFf7%nH6fxtg%F4jWdqc
zX!f+m{3vT|PO`=qMb=n1&KiRZ+rz@PJ!XZqN1uW1acM|<OfPDW^~LScx2`?jw6MX;
zwl*kqv%#nFHdH%fgQMeZ&}d}~_j+42G}_|2GwoBjbwId(2Z#luP}`1J>(mjweL6x`
zGbaw{2(5&URA1Q<OS3!DmZcq1-0TqE%MOk4cF@VR!{{<QM31tgN;*6E*mOdIeJ8m4
zc0zDqC;Tm{6RI6MV}eU(O7A-J4bqwFY&#=4tuxAq)v(TJFrn@RYXyFBP~bw40-}o{
zqmKf!6BP(8P+*No7i_TYf=NzYQ19La%^LO)ee2J3w8z_l_81mqk8deQSUu1lOGepa
zs;2|)g*)KZ0FvbZQO8zl<w$XWBkqzZ5sp|*@@pLNc4sH5LUqFD^-d@<cSg0FGj>Ee
z!zS7pyW^cPbfhza8hPx{6&@a4u`jMGzD($f(Sy4}Yynz#?uM;ByWyjnZa6lo8?q^j
z2-fKi(F;G*qdPKuyW@kz?x@P@ju~US!^hEuW!(ig$GcE0(gPiP_rNzHJy4U=gDReS
z;L^ArxNYl-6TYq(o8XFwOjnpUx?<f>H|!hc2KQ<=1dXCw?}ig5?y$6VN1qPvnD6Kg
ze}8x62D(!<usif}-C<qh&S{w*m_zp1dtiK;2Zri-Vp2y>$nx|ia>Lt`dFBZRO)vat
z;f0eqUU2d1iK5`1D2?fb*?GM%tGE}EjlAJt?v3|5dPAli)j4@%aEv#uBzPmP$Q#oP
zeBf{EgXSJS2#)rF^H3i&Wcna8#|K9=ec|8E7v{FUFjM%_#DOn%_wj{KDEHYrIvVAR
zrvAPVZ5lc0zL=-$2R$o4Y;Es{(W%_e_CsdAAFS*Au!?LL=?9~Z{wTHghmVUtZg}})
z{!o7`&GSc(vHmzkdkIY)0#MR30HVd`YFYrqI)f%<I|qvcpwTuE+7^Luvk%1WK7ojc
z4n&Vkx^;or*cgaH!yx3C1YvrIAZ+L!gqvPLc-AinyJLdjsTGX9w!ujC2*$hpf?=2z
zj4v{RvAj4KGxU4oK=<Cb6WkluDtaSwTyKbO+FO==Q0UzUGWkiS!u?<tf|o5qFyAf&
zR-Pfa+&cvOlR~g<L<sC_Lhwm#2<n_E%^lkpZ4E;)!88;%!$Z*&7Ygr!P%NwsMLSOF
z6WunxUHientshLX`k^2BqNE?L8-<~;T^Q`W!Z0#83=2Ai!%z{9jU&P_yF46m4dL)M
zi-3`91imARkO<5Ri$Ho*1XVsqp#7i->}0Q0p&g0a29e08zV~}=BQd>4Bu@H9!Y?cm
zpOUfFoMu)RiA(j7h-rv~yHONI*+${4A`0a$Q7{UOf+#?IX>1g};8?)%z-XM0iH1vD
zG;$~>6HS{pYNK(kE*fJ;M<ab~f4mnz0C!6VV75sNdbE$hOZGAN*(C;{{xN(%#h^={
z7{o-<EslZ7h!`9m8w0Vxq2m>c?1)%IG{hp&Xdt?K4n&#%K!|<7uA>JcPBRVzI>e!G
zK^#sN$HBiQ4kxH{`7j1yt?3|KZ#M{{tN9-ZByA963ZOl8DGzTOkJ}yN5g8T_(K?fr
z5Ra*K@vzfRKvwqziir~t6_tQ%DG3m3L(f+vKx~1Y4NgSgA&J<Yo`~)>iLj#0FtHH!
zVb>(g?w*7pL%E-ogg(><e2e;k#U4eJQ!<A1OUB@YWE>iu3=fkOtfVerr~WChPELW%
z;1sMWPr+56!FVokFs?)nhEvgCWROI|RCX~_X%;3GE&-`<jZTH=A3B<!3bA%LKr0O$
zjnmMd`e0uTOoQmATbq|gk?{~5)Et7e?nCfZ*bp438-gayp}1x;6eeav@pb4>7{m>Q
z&WNGV*GNY{>Vx&9K3LtM>9DFw$DA?gG$)>c6XqEh<Cp=_qL<!31D{uAK$M?Y>t^Cs
zhfG9u%0!ROnON(b39;cgBs3FiqBHSDawbM;48zYIhT&cNVbHA}hM4+c9QDb9drTJk
z+h^lsMmCI#voWGH8~R>35F4$(kof2ve3zC3vAsD(GZz=Ma`A~>E;@SUvR&ge;E-JC
zCg-BLOCHsu=izjI9u5u9gW;$=TyM-nibg)otmY$sa6XUo(cY{8qQz^CBL^d>U%Doy
z0GkFDz++qiR%;X@D7p}ud4;%`Ux*!rg=nW=1OqcpQ1&UpGl50e9#VwH<Rax1-<L~^
z@Rdn1#@iM{Y{Gu&P>lKB#W<K!jPKi*AR(g!fmtOe%r3z%l_h9fQ-X;W!y(!y#R^?s
z&~U5|AC9xJ!_ie^1itneL6yoQAT~};QP*E|YANig*H7#b@28$Vw~{jSY%IfMcMh3^
zmE-4xazvMxqpev5#1_S&^a_Xu#kF}AIBr`BV~0xW2CGEp<Vr-PRU$I45*IlP_5$_C
z9cx<!vAD9rt_nLHsu1K=g@eIWxJRA~sX|z46=EsnnOs|iId;|f!mFAhkQ#nR)zGY2
z4X54KV7g}w%mQlgN?;Av)YU+2C(3l(ecrXmj;h6_IBG7)twl^tEi&qBah8KRgUsr%
z$E6N2VRg6`RfjLr>oB6W4*9wx5zt{IhIAc?v)xDHM9+~hG#!P0R-+*HR$@v<!LNE0
zzNjCCFvEHbv#3WK>v~-6QBSjH_2@mY0fUD%piPHH-0Recy{?UD2xbqxuo0i@k4BW)
zXdH|jjVrmMA@)3bQy*8B;TVi=HwJ?&$6#Lc7#xTjgUF;Yn3+BXvxbd<*bTnmI2MT|
zV=-yeSj3GUi&Hw|pl3S{zO~~ZdIN|1jK?Cs@rW2Y9$j<CBfV@qLK`Nq9yP&KzlkPt
zn{csn6Gn7zLSS$cRe3kTt*8kGBbqRsdVjRqK7)T!kB``%KIr`ng8ZJL8Hr~g)AK*+
zG7+PlCt`2LL^xzmL_qmOoES9`F~*ayru`(u4w!^*5+>ob>`7D?ItilB+OorBBzK;S
z&ypr1J#RA73MQl7sLAj#oPu?pQy}(Gb`(#+#&J{NXfh4Qou^@t%QT2S#1q4(L3G+5
zA{{iRBgJDnzVn(+Ri)GMW94+TYn+ZgCNp5xa|YkLGqAMR3>c)$farAecbthi&NE@?
zITJhlXJTu~On6t$#39<;5W5?TTxa2M{47-0%|gJqS=dIz(vOSIY#6kgjqR?pksUM}
zyZX(BW!!9ZE1!*8?PoDt?^*P8dKQ-=pGEVyXOY}v4l>>6pjYS|Oo^R?V;OT$P&o&p
zgHf#bcB+4lYPg<byFM4w9p~ay*SVPEG8Zy2UhF(?89o=UkDQCVv2(G{ZXQ04n1`<`
z=OMJid;~ep$4005NQ;;cn?dtwT6F>5@>+l+J_{gvDzC;afY^i?k-PwD84K`I<^t3f
zF5rms0*Gzc&0`i|xyAFiRq{NRSuezv(1jSBvJf{@7vf&pLIl(-glG|pc6kBAy<dQ9
z?-%fSG_?`YLS@mY7ci{dBAV@7goPf9@QU9eGzKlglBh-SZu273{~|h$d=Yc&U&M0l
z#mF^UjQfs@F|PY!Omtn0Q@t1CmHvydD0wk#3wb<zF`CL3<F3w2h;w@h%L8A6PUuVM
zXt)GxjhA4V=@OW`Ex{@OB{U1L1pgee1RHXeU{L-NT+~>K{J5o<HE1cWWi7?u3zniw
z(Nc^tTZWZ(%OG0R3nG_cK+-ZK4_<~f*~<{0y9^VsoYQreV|)AM7#Fr2uSYNEu+?%5
z$)Ovy0%H<ap#SI<2-I7NDM>3KR<tJ8t;DqYl`yq<8Cr^$kr(hXUdrV(`?jy}+vODw
z@4tfga$Z4W-Yd8>{uQk0xC*)5R$;owD$MX*h1Y^tVQ#`Iq}HrLQHNJy(eYITyS$3@
zL9fEb`EM}k`8S$0e+~UyUxRD-YjDbXjY8|!V6L+ov-DP@pYv+`;<g&yf>&c_;c7Gv
zUk%YCrO;o4m`-aD>AnVy9%~RCwFaA_*I?`LHCR@?2JSX%Q9?Gjuf<OuYq271E#^h7
z#q)J*@uTrNTsB{acY3TtY|nL=RkjXZmg^z*Vy-%@$K<H>XdJvAyEE2fXZ3mnHP8Z5
z<9aN!*??gl8!&_HO4<PZlnwC9+yK#d>fo>u7m1PQMtoxYI>dJ2GLP5c+xvAG#lDWw
zDX+uAU=!j@HX*prCitan!u;Y*Nb0&73xYNyCvr2UMsG$z!)6XaZ$Xm57JSfs3yuYD
zfqn88yqU5Ef!SN|*6=O(aKsj*)@@;%y#*_%d-<Z?8;Cb}17c^*dhi<%op(d^w_>T`
zRzw(YrK#bq2<W#J4M|(Ef;ePs#mb_s*jKd`wvOAd&}kbyBevnffNc;PN;93`#BTpL
z;WGA3c<XP6w!?OWyKaZ2$97EUwH+(^ZpWa6?TF6Yjy=WO@t$G_zVEUF2~Im;=(+>%
zdF;UcUOR9zcnA9D?qD6<fkhp5qTFsLPW9M{bJ;sFqF^Vcl<&k6(zALe%xZUHlFlyJ
z81KTT*1OQbW*0uL+J&OJUASVi8;2ctLo|N<Gi)~;qjtkIVK<Hp-i@>6yK%4GTS#?!
z3v*-Ng6JI;d$GO^Z{rQ^J&0?&2VQo2D5BqksS$hdVay&ZjopK-273`=xff;bd-0{$
zUWkQh(J%Qr`P=xt7&+wc@X~$<TLRyKkKVf|)qfYGo!*6+`@5Kv{4VNi-$TQ=_i)+o
zeTe1S4Sn86L-_kN{qjDZPk0~SroWFW>|@_=ABQ6L;gan>WcS(!yO@0lj@yTZf_;4c
z`=DF14_E5;;mz(J;9A6fln&ZYa{&8ck+~m6<@>R(Vn629?q@&X06x|`0CW8Va5q1I
z6cTB10J8i>&*1<*3^@R?m9lRz&nZ5DU5y8Dbld@mg}ia82k~yzK^z--kn)#9_{9GZ
zK8rZS0jon89(M@0#va0C!^0d3IgB^04`Wt5_tOsJ=ZeGlso^l%5Bw0{lzxar&m)-I
z^9c3?9>MjjBj{Ro1lP#Qsw42MJ%SG#k08J8Q8beqE=Muj`zX#uA4Oy8QS`$x1REX0
zJC?^VWAHJgG#taWvB%)1aU9#Nj^jOt<Is0Gj{NB35c{AvijPA>`y*`a^bvAAKEkY;
zkMNDv35<?Bf$;-Q;1yyv;sg#`evBZukFh%cV^r6EjQQg~#+V)_;p%r1pOv0O*V>b~
z+Wr*gq@6-s!6}GV;xxTa&_o=aK7nYSK4*0r-`Jdn*qA=(dm5!fPh-f4)7Vma8eb^R
zz}o8!dik7zOZXXxCDoUc&S2}{GZ;GN49qk>MXcMWSdc;LKBb!2PvH^!8I~7*hPP@z
zL%i)-h$d1;hqIXKe3s^<`IXiEEXMUZi@>pGaYXBL4p@E;5B)DVZR8w2bU25NmFHk>
z^(Ab(eTk($U*g&LFR`coON=u)kG^5&QJZugVvF56^E~QCpGTI~1^lRU0pWTVaM<7i
zoGdP&zvBg@23^3$-WM=A?E>1SUqDLj1(+CK#6;(doVsxl3;i$RL$WREBJ2|{qA~3v
zRbOAkTLxc25%3i{_xlRZrG5q7g0C>K^edQXUcxoUOV~2-5;iwn!V$}_Ve0-h+@rt7
z<(`*uw9jRjM_-0j+GXSwUdHCq%kXRW4L<e%25kp^gDmZDA=>&90>6bx=C_zs_ALfm
z{R8@ne_(gwKk$6YKe!^}3aZ_&AT;I*+6=jZMO9ZIT3ufqb%pKyReoz+<v{LLel}ml
z<+j&2#pD|Hxm<%;-)qP#z6QhEYe;Q(9RV)aq3?Yip^?{-MZV6sj$4h_AvQrw4R0X8
z>IPnNzkzukH*hom24|GrKt;n1v~~CnlRdwKP3Cv7&i@WKHJY(hyBRMzG-IzvGy8MR
zSflqno^|*hH~qfH<dK965G$>2VuI664DEFjVvjDe<R)q~Z(*I;Ev)Wz3)9_h@!fHY
z{iR!&Q+W%^^ltMz@HW3qZ^K~hZQLGzn^T#7z^jTMAev3jdj9~?X1(9zN9gta5pRV3
z2(g9{IpUvqb<968#^xs&_xcHQgMWfi>Q4||*kVVqyy_=hYWN9anZv;34n8!ygBLp7
z!Cb{1B)gM7cQ7gO4$Y3-!Re|y%4KP~&OgH`>Ss(%`5C3{enCROFE|nW3l_WHr8&I2
za8I}k(b8*Qd>6ON?_#gXJ$&hX4|aX-;X>v;xYXane53miJ1c`i?&G!4`#2tbA7bt0
z3bCrZPxaRK@g2$Q^nm74A3($Vfl?wbv-4!AQ#Khpc+gj4f(CoPoajQJ7;O-s5ul;m
z=b_rwR1c!b<!Lg}t*;D3NC0}A8CH%FL{`|9D}7}EK)wAsR3UTETBhkSE$V$;o*32X
zIR>SvsjH=<t)r=>{lFdP)9dkfgO)&AMmsodvV?1U*-3@0bS+?f3QnmMC4Vwgj&o)h
zjwW<;G&D8zbTuixS8eLV%h3e+m&CP^Wt>x2!TEF4_U*2W-B4FsQ?}oYJ(TnAN*I$|
z6Vh9Gjh>c)rlyXjw(^>=r=&QHamf6>5~jBLVX8S9)mWKQNz9|$Z&I4dD`g$BdOdOt
z&kj}PmbMOaOIM5O)y4S-j%@K&ll!ooc_~{M(<*nVO0|Ns_+++WF@Le=ICqu)wDxE|
zu6apYHITV#Rkxx^ZD&lCD>rM69K!h*9Hr0W>DpYuDgU)h&(VF{SA1l1;wX$Hz9nj<
zU+cd=nga`Y;#U4OHTCqC%4NgnEo+oHFNO6@_$!;#Yt?4dYhr>tCw)A)_q$I@e_*_v
zt>65>L_=RAgtIWTm4lAsIqLXSq}gThz?PO+9(TI%mnS#Vj;gt*D*t*qf_huQA;Sj`
zSooBiB~&^pMWv@oxuXJpTtn@}RkjM2aam0+HAGqk{okA`L6~xywbWWs8!2@#oL4J2
z9a~o2%c^+_jGj2-(ce_5c>KSVbZNI#dC18xt=n&M;6B@UUCm$1p85pIv-6Xe-@G%Z
z*mT`oee~%1#;2b2o5mm1Eyy$;%azX&EwYJ7F?ye{aNs<V#{C*mzH4}`yerz%m2%@q
zw+-EJy7F}5>9(btLD!hBw0I_TE9pv{^>i)h@=d6WS4w;*9&=^~LThTPD@rSh6n^er
zo{F&IobsXqX@%u?30wU;ca?seI*inu(%OP*MYy{nzOJ;iKweGC-_%t>eQjJtby-fS
zdwxZ2neul@OUtznFO+lTx&Ut<<vEh3fhBp>6*U!wwTeN7g(Z0fiqwkgeERn#2v5rz
z&x9%Wp%r%itz#O>{p_a7hDD!fNPbFq;!0aCuC(&vwr;IC(3%6SInbH|tvS$|1FbpG
znggvl(3%6SInbH|tvT>#bKv*-|I)A5Jay#M688?K^Iu^9-}TPMaQf*y;TOxkxIU3S
zHXWthQrTyhbBV|ZL<S==0xm1UBEls^9H3Px0$WX2`qP_;^zC;LEAn?DvVa3b!oETz
zP3k_sT$9t%=XbBDF5;oGZ+x!B?bG6lR8G}rHiDs?#O?RoP7GA;LE=}-3m%sz81W2A
zh4l92u98b?OJ&`+>N?I-f7m})wD|ecl`HzT9Lv7kPgZ>Y@T}<A{&6u$5AQ3K{<qob
z??+d{)PkMTmDtq%esLvVI}>;EKWTzR;*k8H_1`uU?+{Az#qB_zmLAEsKV!G%$?$V2
zEtGIYcJj3FMP~E#`z@k$u#Wj5T1CaIj4FQ~O?x&&lrSxSCv1v3pGdn}B45tC?n|kq
zj1b70{~E?KijqpTS)1R+6+x+`#3eGWr`^Y+&#k7#FjBr!>Mx<n*hRTAeD&RkK1>-;
zaYG|hQLdDsdQeW<NFTM<NVVadQpWjYzM69EN75nn@@eU@rN25~)#*_iY7&X9#3^GG
zBD?)pd8}Zaknp8^KP{f$mJgBlR`Bj>n8UxC0+O7isOvZPF^tMPBwUdpJ}rEyC+hq7
zcg#&anQwNii4u?0^ryw=^atWo$-;llwO{X2{fnfyj3NE@e%19&;(l8Ezs*mT4F31*
zOg(vjVbm1yXt<IFIaaqXTnF@D=BN5D)MfR_`%{~ED&upOa-=S&64#^Yk>l2_H3wRA
zpfv|tbD%W`T63T^2U>IBe?AAKk0gCk`R<ePX8HD$?_C+U*C+C=Eo1c3XO{1J>66RY
zy!0ic4=#Or>E}q_UHWIzzmo4#>Ela3PG-kQ|3dnV(#NtR@|`Z<ehSis*b@ihNaUN^
znRF%HNO$5wdJtD4-=xxil0Kd%@ghA*FTzPV@FBj0YDFM@?*I}=f=DpwP5O`!(wBsi
zek6>Dd?SKHk|+{Q`jY`9hQyMAB#sOs@g#vHk|dH$WcB@El1kDDCulvUGBA_J!$=mn
z&#5{&baP1_$tMM*kcdD-elMXroQxo)q>Pl43Q|d`NHwV;wWN-WB%??@X&@AVU^E#+
z#*%SlJefe6$TMUjnM5X&DP$^{My8V)MA9;g?ricbnM0l<bICj+zb~NsJXuIyAdAS0
zWHFK7@3pXu$IDy%#Q)`%eeSky|KS{vd6^X~ISQ71v0qZHEHQi_e{i#cj)pqPTD(Tr
zKvQ|;-&NO3ReHFY9)4@8%xzgIK5{a*aQ6Fa$-ld`f#$>bB^`exoNPJCRCT5oYpvQY
zi^}KE{WoUosliLsdGJTBF6K$sq_N?a%G|GJ%@3!W$J#4W7PTE2)fxZ#zb)^-4NuV_
zfAsz(ME5=NU#?41#wv0<dG`God!aH-;`6H|7S-9m{on21$p4uVOiTXj{N~R8TzdQ&
zzcz#WGx<ONk@yF)<*ayE3X^!p@;sy!{$rahpT0V7z2CXyxohi{<$lxsH<j+Ar-frb
zj^G38+>GbmXLtuExqpT}$s~^Nr%=kkQ~7Hs-(B+ddVK2%jfdr5|M8z59{sEMf3=qL
z@bo{mqpp7jyz0-Czi(S&iDzzCv{=BA(k3#-KeJh}{;Bi-kH#<MB}FPNHx0h|WoCLM
z-{`r@H?7M5kN!7j`I8n;m;BNArM}90`M+!Xv-kgKypj!)erb;7T`cX0+>4ZDDNpiT
z#ow^SeKfAt{r~@SAUHQLsiLkrub@VeR8U%wS6h&uRNGKWjpZ4k@uBW%NwM|{rAJ&&
z89nKzh%70rEmlP2m(-S2l-sxHG0*)Yddw@7(_q6Z^6JW{l3b<CJhvpbw4|b_I;XO@
zp(U{YmZ16sdpx`~>Ro5?ed_k76}gvJsPwq!*97M0)N%;2qPn1eZ9$oW9wl`9hxfK0
z9qRAv>(|dS!Ywj1GQiC{)ZfpopMOArTdx5Ba8FOqP%qzJVPn-<mtXVm-f&(Wqc2M<
zE4A+v%;;4b<P!@DYaTz8q}5fI{JXI{_Jll`uTMlJ$B$)2pQq;Z(><wD?12`aj?|<l
zza6{slBdq0Rs{IDQ4@YIg}NvyyQl+`WPUZhl;0Mz@2>vc-5<9Dwn$&8b$dJq{tq?K
BI`jYl

literal 146432
zcmeFaOLJUln%~E<<jaHv%a*2QY=y!;Q=@i+Jp>4ltQ)7gr%)uTiru^gfhrbjBv&MW
z1eiqtiOvLyWZACp#$TYpl@wuz9N`FWE#DO0IQ$8$mBW{fz4OB1wO4BY{{QEB-*Zl8
zf@JmdSXP8M(*+>&ocHqFZ}0Q|<Nxtr|KI<?fAKf}j|(&Zes<w6UHB)z{@n}zQs?u(
z#P5IbJNd!CcHzR`<ahn~Pk#ODU+dG~<Bzxa-|zE3KKkeX{uzM4|Mj2!4;TLB|L}MJ
z@`Vfk&tL!V1GQk5fB(vb3qShccP{*^7q-9I{^lS3!9V(g__F)o-~G$Ke_{3S{mzB|
z^*^}a|NUrP)Nua4U;p~A)i2Ncy*%*W`j^$;jlcEtm%ksszv}1jmDl+x;Oo!-DBoN3
z^KY@>f56TTI?rAE;=+X!K41DbE?oHA{9OMxHOl!v|LWhoaN#Sy-{a>se*Qgv{w;p~
zm!Ds_@GtQ5zvid@y~)qN&2#_xqYD@QQ(pWzgZ{_-{lD=3TN+^IUxCAa!+eYWX<hnP
zewOFTPmSCCSH>$p%f8Dq`ul(5kN=zZ1k&ci_-6K}#{Y+Zy~S4<XLek{r~9vr)BWsC
zelPnuZ#<3rZ!yrXe|F&lDE+Pd`^BHeP-TCG-v05W|M{=|dw=pjRaPi;_hbc}{uLxB
z@4;O4-+uxeM7Mt#x?AI?=uiLtZJxWt&;JuT(7%89{)G$w9i!@Rv8d+%ZR}@<aTvPJ
zqq+32;Op=6J&b;#z`6V^_$q&wpYitj|1HnW{w(xZex5%<d~<O9!iE2;LizlsXXhz@
z7dV%{&-+<MF8H1O`MU3CpZ{(BUFhPxb)WZnS?>@1dER)E&A<CsFI;%<tqT{fgO7jl
z!e8gV(kTD@-~az1&}`^m!@o`a<L6fVYnq4tr?2koA3yKt5C1ElG@t6<k_Tw`uLdap
z-SY1b%YQWhLv==}pM2`C=7#a7%?}u6$(!+Z%5E4V2PnI#v)0|zPgqBPJF$Y;RJ#su
zslK#u7+##)&g?La#`z(`R1~$F@&Y|hLD3!m)5!TrqG-vFF8a?;e$q5w+<Lfq`~JP=
zz16j~ruoTFmX;n44~B#3usIr^45!WBc+zZ4PbTAo@qY8|a55c@kK*CwpPwELn=5Nq
z)-GOO`fPA~{G$2f^x&YmJLZWyr$>WHb8F{dbj(mgUVJe=8vbE({bIBAWW=zegJH8f
zobF6U+stzEWZ3LYhQnur$*>vZbT69ec<;m?9Z$yllfmIRD;XT^dW6C5?&yT|O&fi(
zH+s&<hlAZ=b24s5CzqNr%kYE8li|0c@#(Z~=-t(K)|zKeMmtZMXM<@o2@vcy{QP!!
z)EthFPM$F8KI0rUKR-Qq!M@i&SY<CmX5h1vC!?eNslMg6X>)qKJ2+t{+RafjI5}X@
z<<Zg3!Rao~H7BFPVe=gT@j`D7UL1_}pPV#X`grHb;AnryNI?E@pzU0|)C?1lyTg;=
zjy}88?2e|#2ZI;Qc&|A+JseK79U#Xqqg{SGX~su8!%NMh(b4Ys*|gbV3&ZCp&EfFq
zbb872o*A#Vo&$}k&^mpYAkeZC;)jE65VdnUJsBU4zVmW~Er#D6AN}eCNd5A3#N(6U
z&iL?nbl}|qlze@4Y3bgrN6ja<Hnu*0cx!X%v!Niu|Bi;wnigH)r$<_z;2F;z{rE&M
zoyFJm`qKJpvth9A4F@Nu?BIG!97p44%@ZJAK+kp$4#v;4Ho=_PAn*}LJQ$Cko*tVd
z4#r3OqmxsJMYMCkPW=ba-GQct(^W`!=}tV)CoirW_u9tFy=MAsbRyCjLH-&O{Cm)y
z(+PVx(GV}1WmYsDdOsrfDG+0(;{kLHRw2x>-&y%?l;c6LL9S<a#ybZ6ONe@Sup4AH
zY;HUmOir5HPzuyAfI+7hSDTMtz*l>N(}NQacjZb0gMs$}D})~e{3M;>t^jlLWPG~+
z#Lwn7P6khTP>>oQi`E7QomEO6JORFkgQFMCM3lw4j}a9|CoBP&=HQo-mJT7&i78qz
z8N)Ygt1Q{`71~VPU-E|nDH}FoZUDEJ&GzZZ2_nV3wP@1;_uT;B6lgLIxQ0OXfGhHY
zeZCl<HapM*e6;hFy?H9uJb6*Z4G8+dXM-c81xPB-3twK>#_=&*6vXSY*b}mkPxa8w
zcszl_;eEr!9~ntv=hbG}vd?5PIGFZdgi>}u*<#7CIrvu88`wV?k3rnDiqBmz40(h5
z$GOYt@o;Cf_oDd*zHJ6Uen$Yt6m^O~=CkqP;XnxCm+cX_hJ>H^^HV|P@?^LV>KnZ!
zG8~<-p=aafV0a>09c*t)gqkRU)ENFpXph*ybU2v63Vh_r&B-y=YV!#LeZIM24!bcp
z8te`(HPaIVOH7B%V3#`<+Ar8s6WbUKMes<r!LEdz7K2DlQLl*t@Lu+6Ba-o|r$H8`
z`(}E&t@R<I3tbus%mHma^#qm{$E@La!oDQdkB)|uSoHAu;PChW@QwCNARW13);_zn
zJ3M+B^vkn=A*S``mzsMwkgSpo%(pk1Od+nlu_O``ZwKM9z-N$7(|w!GdVuD^WH6eH
znEvj)m?X%zZYpO(C<_$ZVD9LMy<Q#yR0bI|9vY~5xNisA$)`iK%h3zQ3tb79Ck?m5
zCdVC)c6U(%?MP=2hwOJ}02zKf8GJW7c)7ZC54=mx01u>PS2`Z_#A8ugTIo^mor=m7
zn&(L54vQ@kc4f@J5IOf-k!=N1P%4nBa^we#x24d39YdkP@<35ff}R7y&!9MvXA@*~
zP|1IP2tyx?F^<A?GFgW732S9$*rOpR-<83`9Q;3`v|5E0C6HQCA2KsM>A~o!)G0O!
zYncS4NeHL*g&UAX6RfM<5t0pBok0I+lALMSJb~wV0Ls&57TJupk-`r1*XY#gXv*Gr
zM;c6mV}ML4V_0E7ejMVjuDJ+>R`a!L8T)A@?JKiQG<$lu9ZNFjAEah(uzV!*Wf=u;
z7rmloCEOA~fNy*Rv%!cX>+<|uPo`-mAWbH~qlk^FvL%8>C%=*@fqF_sRxqGNtS)V_
z%whr*ya(`P1Y)f+zbxS^*DkGL^asaUHP}uMb&=$V<iOsrZty$n@A#eL@$u<_rT=QP
zIXWC2VC*A_hsRHbn4)Yj_fpg@Cg_o<4Ozsa`%Iox7V=aI7c#&!iN!R7ZwHKt>DfW;
z-)KI2{NUEZJGbxsqIvtt$;t8c%a@-$dj?U5cd|O3>|fqHIlk<n<G<UZeZGIY`Mn?X
z{9BMm0!rcpRAIIJa9F(qaJzsi+Icd>aEByCPIGt)H7v_E)^5C5l^T9}Cn0EhA04Fv
zOoJP%3$kdrwdY7ANlO1~0_auF4#aajp2B{oQxQ3i%K%?&eAvtZe3}s7A7T_9ViODE
z3EYL>y#>z~Og5+Rb=b2vCfMwwZ?WYtLgcP(oS>XB^JH;cTU~4JjCO`cQ%Ly=`0qGH
z3v7MK6WRMR|Eld&-K4J51!REUq^a&!8daV^QVpKl+mjIn-{JgTwC^kNC138cM~A!h
zLFM``m)JuH1JTchBiB`h-&Idxk)V-f-LuuCn8Q{)#rpzcJJ!*5Fh(c%7#JLw>ZYUC
z#t$)@CTSW+)dcmk!FnA%$~Xmd@%9|3=3q2q7o8O*Y*v1Gf`fe2yyM6~vwr3J`jz9u
zW`(_Pg7uSw;Y;g}2EP$Y{2A^66b$y*x|b<1Sd3b}?n5SF?Sw-ONCf-?ulUuD#MuI4
z{WVH<c_5F$Cf*d+A5ut!m><&W!_2|CnqDkUzF5-m`D)Ig@0#ry9I%6r*9L-$sd@0?
zQnL*^q5xy7?GA0684yU)U%@e5li0}g%%YS#MHAUcm|~IPlm#TGWBEj&INZMh2LJvk
z@dBBls2GPmASieMvPWbQ4UpF_yvQ>>w0n@;6TI<yCYm7-0H5f`1sm@?oi=BCP&519
zdHT|t8aEV8f7IL?f7`5IGWB3@ALa7aufOvF@t?}Og&@0j^!oL+HJ;f-;qT(~87YuR
zsF*2)CK#e)w#O62WSX<}>sNW<Wrv~y1AMnT04dh9r$<kbFIq>457Xx1aDdo~_xp>o
zyv{FrE0M|MJ)$?|S5))KEMClFZ1urJ#=EvYJ;jq6G*dzmaR2y-m-r*JZFy{=fgrV;
z8*UUvi7oG*$^$ahh*G_n{lRgQp9dWj>`ZZkcz7Ta3@0Ip#D?GKC@dFIR1nya3<r@k
z+ET_%!SVKRXCQYI;<CXxeLCWq-PNU=8NBik^Mdl;cg2|O0|$cXzG3ne`}xC&r=eQV
zXgJf;W5O%mZwNuWGN~L38O$d!6~YcX%D!?qnTAa#+7dn^#tcChQ<9ONpYD!_Q-#37
z)k7^f>X14%G%SKu>bSRN@G8QuOHMx(V|aXea(t@zkbT`?PHjf6C#;-bW7rnbVH>v3
zo{b1wNpDMv$YO$%Lzwo!7uH>8G2(Fe*}|>ISq99rA<G0n<DDI%Wm40&E&A{t@9jCJ
zb%MOytN4%rvocTA=9;{k2nKmh4Hb@ug?k;ozK-oaIjNQjoKRT1La$lQsBOB}M~dxD
z4o0>#;JEeoue}%R{`Bsa%^fVJ$$0m4XShqiWJ~50{zB;433`h#!stNK=N)tMo@nNU
z$vSj{)?8@FtBwVj0RX$18*vUEgDL!hxa5dI-(S<5Vw(g^weQ7k+Nl`xn8nMIzvQJA
zmR+F#B*bF-6)8C`2$cIAhP%Rb^#OB9Vy!Gf>ccTT$s0W>1RMkt_lWn^3fB=b@9u_U
z*nb}1wgV&>0yQQ32f+e}&+%|Y658CGIk~~e+V9Nht?A5E-S5IwK0?q5PnCXm2;>aV
zC@c?386U&$Q#2Xoy`Xx0x=p|l^TtVnt*<JVHp^1VS~IMQJYYxx{_H+s!K3=r%Zozs
zLOWdSzB(d^W+Pk!t!Vet%O~HhKs--ZpPU>XbZqlCdLDbd3VP(Wqf-v_rgtIn4~;^g
zY!~vHzCctRMv_QNSdi1`8rj8~Fe=4-fLQC2*b-*<NFTju20Mh!6@jz7LMWiW5Sju{
zc%w2})<1Y}&5PL{l2}4Ge>~*lVSMhTRO04S(n#P17KE!Do}2EB2w=fsVpN5S2wjaJ
zF`;3sFdbl57VM<?VC_eBMOt!(Av8r&o6XrjPdH>Y4ieLl9}vY$JxH;5|91IG)+|10
z10d`|J2`nm9!=SWc$+ts`U<qBTMHN@Nfl`=p%sTCL)7SXv2qD2M0A3f-qOnB$Lr09
zlT*SJKWjcz^qc_J&#pHQu@P+E4*a4N0^?SV(j|ewO5-s)Oq3zNP9WqG^E;HIMdd16
zRozBmJQ4}A0j%7A19c(p1Bbk>$C_L*rm2Fkoume|H#edvJ##dCE$TZNpCA?c4|+@-
zLI^7$fX?)i0*M`_z%Z#U0D!zwP~@~k>`ciMJW!{M0zwdDcycmH>vtLz1K*>3Xs&+)
zbhJw;oYBg#-yHnysL-Cmi?2h3mYdq|4e>EI#p^LMJIM@!ywoCphI__c7#~%Jg@!cV
z4>4`Nm6$GxSxj=mgSg{_z_5DRch6pmkqY8ktS#h+pcSF=Dx5_+?Ob+h!65ODuvCaf
zWLc7ozX9{qF>^Ra2CP5@W0?d-=i%TONXSL+0#+NBeJB<~Zl;I|(ne;%k12#^Agy7;
zt;T+>E5M8{leC`&Y)O=9pC!Vjh)=rW1F4S;%`pEjPbJ3DpH*bSHeM!+Ctey{Tyd;D
zR-|m{;}+|@Xvc|BGbqFoj#ihht~Q(6K*TBAoHJXAunMw*N`+&5>cN4_9d45oVa3M>
zxYpW6HExkgas*-|floQM7=$h8(Htn%9ssh&+dmkiG16fqFTKUyv?Sg*#Njx_xy|<-
z?Edmj@ukvKW`&V_tdTj8sOiqUvm2R~P@zE80Xg8=r?ItZb2-3pmo?pT&<tY_ajTaw
zaqmehS(mpP1P^7=EwwmXiwQNxA^wbf7}k}OY+BAhLJ>6#dtz3T;<Uv<{!u@dSH8p-
z4l*kWvE)Imkd<ClnFJ%@j(Shk*!F}hqVnd!i}db>%}NU|0EMeNR(enb1<{_6i1RXb
zM-&SvKoDaNB5v3chBa|cgWmk|&iZv_CQ+B&Z*1)s-NxQos6bJ*GP50RgV}CyXf)xW
z$aVe|#=UZ#U@0*`O<`k3`Bjv=640XW8&0!!QmaCP(Z2`?8u99@RyrL$f3r1~xOU6S
z#Zzn<YP>rD?g<vrKVJL3W$MxRXvN`)`a0z^5e=~py^Uu-z&2(tWgCZseboEFrVZxE
zs<v{i1<q9iM`Y#TfP%c?xpt~@da~f6s0bdGkhj5)(HXi;3Fa<FssKho5ZKd_BlvYJ
z`%!;Ru_$ewlKm*2ao@FV_leyzPbUZh)hReGu)1_@wH8*@KzA#NENzMnjX52UlnSDt
z3S4?Zm^Q<481TpmF`>KJqLr7O(1XFzP<bW<%~Qd`D$h*4qfC&Pa6q^a^V}lH<rgCc
znG-;diA4pYzL@|jMPs*Hx9=s&cewL(d;DB-Qdlejq|J~ATBZtMkUfvY@Dc1mEw@ot
z>F)^=)<K9&>fupjR1eefo71DTnZ-EcW8$D-LKe8_EGw`iZ@aPy3@@)>X?lYcY9%nG
zE$gqQfaR54zShX~^Y#(^%!5-oBn)=*VsE7>=P|6wsxqo+FhyfY1)^SZc`*Z@BmK(O
z9K{UVbr}rva0mT@XZQv}`u2GD1q>1aCuql*7ReaTUjLC9)C1L>%#UGuA&d->@Fk`S
z`90~oI#5!R@-wsZw}d7-JCIq>c@G71xIMuRZ{O4l8eMeZ;zJ8=|9OkAo<PLYCj(ND
z2<%mO)8X*hm-Nu-WKVfHULQWk$CZm{GB32>Y>s8|C9DAl;0(ax_LpTr48z0G$|Qsn
zg31<2-KJFj%vz;f_+HB|>n-DDB#8>E^Y<vPx$*4Qyd~%_FS&?;TzKIu%Opx~99~u(
zk&6n!mAT(LvXE0DNeB#b@~}2xWg=5Wf?*SQxq=snLO_v6oZwfY7$HB$pb_GvkDm+(
zjhu{+$7J<XC8QKXvKE6ZuRQ*uFc8*N#J80b(GGfbq*D*-WHFpzZ?B{jOXhB`f-q3t
zn#m+B%k*tQi(pPN7D-oJ<cRFQ;o|r9R+q>xcoYTj;8M_zOdw@)3L@}?(^}bHD_az}
zz;-M+?Gxn`i-0KtO0}Y4u|kSkISQ^&PAu8NnLMmgRx(uZQV4{60@P}~l0caJ)J{;W
zmQEyg{YTBRlgzbvNV3N4e^I}E@IiTC`otxtl}JQoM-~c@3<Rj@^8<b=oFb>WZtk49
zi_CFh0xTcJV_uBsUte2e0kQ4ruK=$qlF&)Ri4wMwQ~(IanF52bvTaxvGRtKZrh5Hy
zEJX|t4=W)s%bA^Jd5f$e`M6ATF)A?@h<n@hSTrjiSE8_1^5>=|1%suO4eM6CX9cq@
zjN2hGqNsN)QVBgCUIT<>wUfD>3V+Xo`*1jz$gZXO%%KNGdr^<5O)9)8-s&R_ly+1`
z=)<BxJ;vGAOKG0a4RtPF%QeL-XB#{<M~#w`XAk^7@zN?s4_rWA$MRFhFCBn3m_|F)
zcC&5fm7l3n+5lhK;qGKW)(%c17x=W<M!y!~Iu<^~v(7z)LVq%J1-2zK4B8p0Y}9X@
zyf`)!=DJMba@#sAYBx0ss;@T>>VE1@yuL2$U0%N;7Q3pS-DNnOM`&RVVzVQ>lOw#x
z&oBTADue-}(!qic^11bOe(|;myGFS1%u%G5kOjU3JW43Xd3ia_%Mv0fQLwq29%jNT
z*LH!aD}+RMu?lMw20P^Q3^26#WyfV>{OVP%F1@3)=)Bh_Gd|*LwG=BXAQ{#t&s+$#
z{SAVk<0ZH}Dz$1W?^)6?NL}_Wes4)~@#NIXJwn=O_H9<4CZpt7823{OoDlFAQ>8&e
zQ6en_ir`Enu{Nah{=tjmCkYiEZI>b9lV2OO7j8OkTUyB$n>^usihc4=HPE!VuPC#@
zV|air$V>JbG5T6O@Mb=GXc@cJT}L}3lyE?nzb?Itv+*1@<|$-@&KAtL8pS}3GXm{n
z<_+78GAr?X1@Gx8n$gUMAG`T%G@UlL+L|%PvS*9P0@T|=a;YLy;X1yyb8fq14T!yQ
zIz6>_k|z>MV)uo<PNO+CfK1pOeLLFq<6R8gDi|<>m3<+72O<Uxx;QeR={WUZb6qxV
zfeW$;-Q(JMRZ2tMp_{V;h;m<p<OzaC_5n;4`Ya>L)$0#viK43e=@%7e({g1$AW&xt
zXfmPxgeoi4AcMiPQ947R2jt=5>sqBI<9x^rPG&0j76N~cA|RHi*A|kJ=c<rS9+D7=
zwBnQTWQ4du{e4x`pA1G>);;E1UfFEF=lMwfI7~RlkRfn#>Q*I2^gl%dc_wlI%PXJV
zFT>6lOJZ%fmg+b1z#Car2<Vj<a_+IXD(g`U*nuWG%o0PyHsC0Z3?DdnlYtV_*XPrC
zi|Q8{(?_i?b218OUM_R2?vM6fQO5YH*WOy{GjI*2MUi%y!ExLsE9|OGU&>7+quJ2#
zIYg*Uu6+4<<rdcuCA$DVyb(RB07r@w8Nz%1d-Wu1gGm%T-x(guSc90`m-DPhm#?6x
z2z=P{?o6yg^)#@}u^ELc8&b%c3U!Dg99-U9ccgS$&PD8wG5h%#y_+G>@-AfHlMfb<
z5;r_`HP|kzFa56QkZ-PazClPSC`h=_?@FPi(DUD63F*WYmL;-71)wMbTTzUZ{(#`O
z@@17riXUUMy)qbS4OFYO6p3`E6SK7JDW=XHtu{9;IGJTVbb*~T$|wAQHhk+!S4ntF
zT2~oPAc|V(<>Bi7D%DhLFL8-^@9Jyc)1i`l>$4a8qv1er1~6}3n|pg3EmG#vL&i*<
zv?(L3&eC}VQ#(fy9zUH0sgvB$wvAv8%w+tPPgJ&4y{E|Z5P|9H!St3z>H>Fx3yP<D
zeHDd{CPq-Iqb3|@D{7)RpqA~{=?o+#qUd8uV`k~mG3P-d62&V02gG69C_F|GL-=Ax
z9}b^K;H9pQUG<Ni7@QfB@cu<gW&0ykj$FFxQJ$>`itk+F2*@Sm;K$h2FOz^!Y;lgU
zfTB5j$8r?>iVf|afj=mvAWa|3G;fbCIW|2RIt!XL(y>5la!qc3++A;(sU{6NTmvA%
zL^lKoGhisV^rO5OOtC$bOiR|#n*0ptNAl0?pV*pNgVA}e=fwwTHo(zfI52>MG`m3Z
z_RwTcSC`%+RtbXU4rg9J_jsJmn7(4Q<Qh=5G{PcrwfS*ah2B95j%_rO&X;lm4~K6e
zPiMsk;k0WstJs>;ku1gL5XwyM*80^pLDCr+J1*oYf*!I*y>oDqagyrO?&4^}chIfX
z1{$!x=y@wfY;B(->w$eF1a^#&Er8~8C8-!nwuZ`75r`xpcV&|i<z>MNF|v~hRwb3=
z?}Il5#zK$URXiWC0zg>XtU9q0uWwonpJQp?BDhB;EU;MfUmWz@p|m1uXsg&Hxi;E6
z`Qxp@_DgKnlc&QM7lUn1#{2s!wq*$-9iOufWI$lR59XutPfYAUUuQpIyYc}Hy)9)M
zc577v8j_RD7%zn1ur+r$n-Ou?-elp~XrU&2#F_V8Sn5UCfHhYpk56$vN5(@6ca~7&
zFkVai<-MIV3!#~%4~Y7CN@`XKB+mF3NKIrHR#{<|SYA8}2trnY2p&S9l0O-961}^_
z)!}nlF2kMEFab@JS;tdAzRIX#XoooKOfGMN3v@JdOoX#dU=(lT#`VAR==Qyv_aANk
zoz2IaTet3By~38Z1bGJ(+IJBcT9jnI=~yO5xJRBF<)VlW+}Pcpg^XnIeI*B6wxe1x
zTQzl+QK^2msbWbbW=l%sGUqE)?0C>TAi{aTS2xp3;GqCGr8&dNOFIkH<LhLgqPOD4
zV^!zJ332i&96T=N2H}Q0QkLa`&VUYeiV-5Uw_mbaMp$<vHf&_<_+WDJtxO~^GF8v5
zV{XgQMrNI}lsFtxGp8tPx>9MHBYY6mI_Jwk8F@uekgknDS?BavJ*PmC!%JuaYqqsf
zWtFt}Vhdg3sFoQcy9}$WJrB_daYBGjWn{4xR-2_`Fn8Je_7F>Jq=fh5IIT+wvGtT{
zPw|kRqR^*PR0LUP0l6$fHYNqCt_@!RUg1piRk5F^rl0wkzRp*a0_7k&Xpj}laM4>1
zm$sfx3Ios*T4AX!LbdQRtd(I4w(Md#R$K@(>{Z~K25}f!m?b4*5dn{K=FI>FB~(Bk
z9uCRpoeULJbvmy>UJ3wiRS@*1Wgp_(I$xs@6S40~ugzu9yR3TN?($ON>SI`aUYvGb
z-+5^+=zM|=vrL$AkE0VP$Mc5`kg-NZCwogeW(0RKptx?q``}3FF?6ZeokTSV3J|t5
zP}B*#F2J*nRn9?i$nLOmW1Y}M7pvAC9u>3%H%FWv75BRktP#*n-zo|{(eZz6C8=5w
z!jNR89>*w4E5cbyW>M-%8e(;6o#XzSMMc%b51V|wHePvD;^U#&#3fpNKp6jn-KOf3
zQO&A)VV7#u>zxcbC>J44LF)N9RXap?X{*i0Ai_pa*qj-?TwCGDq(~<id`%Ro!4HOe
zC}_o6kDKA{K04@%T|#{qYJe~CVmQT>-)jwodwIVq%v8P+Bm{0WxVZI8&V3LqVbQya
zAJbO=n9k_OB1`L*GOE-$-z7#RVzpo_Wl`;1+ezRl^%(&&*uv2OqtHg~G=-Q{oDXfu
zdq*<P)*MYICEe9gnKMO4I{40eX@Z`0_IfAhhJ_O-H?j^x>ahyAn(^N%Au;UnszuYG
z8IyionG#uob9SDT-DqN23tgym;U&k<UgtSy(3e#<oIx-0Q1p8tz;TMPsrChucOV7C
zL6YAQ`W&<gPeNeXW<;$zwrI!!LqfHXwltn3D+gsTV$J=|zd4|?r_3v2lTHn$0Y~#H
zvOxWm?k^n_cQ(`WUz)R@0*tT0PdaS`BGf4aICtJ|7ingx^Aw^0<$dgR-mRcZg@kue
zu)Md|o1|bFS|=MJ>!sN?w-D;b-rH6FP3r#o+;<RTvA+n`(dGw+9w@<sw(6eMmO@5M
zP#ScUtzF=^sC7lNr0HTK!`VF}BxK{`&$rv~7D_l=_goZ$XJ)aza-f{G*eoIipFnS|
z88)Q~hOq;anw1TCPbMO3ya;Qj|09?x_<;Q`<G`|J?-aN~JkIjL#VL~{a<qVHTI~~@
z4#0!LZVmXdB7hu51MaqJ=UeD2!=djuL`5SJht<6*4g%RQ%XL-R1t*17VZfAA0ckBe
zu!LczDXL~KRh7J1mg5=QHNYRAc;DH2qwI_dfyoGJ2VgB?SJqdry(_!0O$?;y(Ak~l
z>ia&u?LD|0hEr}*Qh-H_r7*3H6#PZ6HdZlIT#iQ={GIp0Di+xT;TSZ}g!kUu^$zux
z)5m|jwz{THMN}h(1#Ha=byfLjrR%g?yLI`tKm|emf)#|Z7o<GcCQz=*g1Yr6LSap#
zBgL<=jyvO|5HwccjUnkb8h6;4tWa-#ni7g+LT$26QK}9+jA7Vi9fCP{-=tuXNkIC_
z>bpd%6m7^;Q+V!V!q-(eE3WyLRy9<(k=UM4yJ0)Pp9eGG!^+;1kHOAC;SP$LD##KE
zNSW(*c_7e1Dyc{;#N$CbMX{EGr$7HTS=vct?XVcClAov+V<=Mqjs|@EqWL11i;v`9
zNLrI#J^RFB$4kGTJ0SvqpC}!baKGV#z!`-FEUv9K53$(XFGu0>OlEc>l@B-i1cI2J
zd%Uz0f)Qq-^eYeBw;h}>ufy?7m!J-c=53^Rx_*`u5f|QQ)>bcet8uhzQ}4qK!su3~
zVV0d9mEq075e#j2^{QpI1O4X9Tz|iblX)vFS(HW++4)k%8x>r4rBT3k<?)v{y-0p3
z`Bu3f-GG)IbTu>zb}+Uxd=&{@YkN+BLG6WTB`Xt&5RuR1_f1hfEC5bb7VQ-{jR4{l
zC3Bv*E~6$eWA%8qGDW(|>C2nzbr%JM808AuK?$4|btuD81|~&hX+@Mtz->gDYGTq`
zXjkP`#5A!ue-JoEAk938<xI4IZMPMcR8cRjlP{(}9tYEuy+qu=@~YAA7_H7YrVsHc
z6~8iYJ5Ps@KH?;-RgFNKvQVa?#$u;FrhlKHjC!%qlZ5}hpS2HK=j;ju{&+JBae0W-
z)VJZ(?J0^{&KB)3kfr!thn8MZWwu}}1V9#>9k3Q?ATYaNCuklWMD1X1M3^)<2exx}
zoRv|O_*o4oo*9x(t5q#CdgNR3&dOX$G^#&g+Bks_ZAwfl$F9;CV%8#FkeFXqEa%%1
zp$cTBLm6jZe@%oZgT)MGtrtN|qrI3ixLebyi##;%jD9{_`Q>hN7j&;T>+jL|WQEOA
z5LA)_E&*J)pop8u8s}{`$l-qtfOvA~U^jZ?WWOpX>^;sG;6YPbC@(lpAa=-WdP?Q4
zOm83E1qRq1;p@ptMZtI9Gcc%;c8~;8ma)LJMKQR(A_Tu|UX1<(Qgnx?8mLAzT-33&
zveR6lF#qmom(%k~!iRnM=*bxN^Ze8VpgN*WLHA>a^M$u{th`t$@g{vR?P7I0+OJAx
zV~QEJOV#D-D<^D6Uc<G0v!Uw-1STkUUegq#60fIJ;;_)z*R2-Zg?4=aqQ5<eS0B_}
zgjR}om+#)7(nk22AE4buj?gaF@V`0_|1StC?aaf!`*DR*T~AT?;g=W9UePlT^o7IS
zy>ZSsbsHS#gK9Xj@bQ3pR8FVc`%iLp2}vM85zgl}{R_a`rAk&-FeK4+vA`J{Ohm(b
z0pb!3)+|~tVwS#!YK#Dc?F|>qX`XehoSGl1v&~m3*mZIZO+#1?BeRUhKxH;UrzMOm
z2<mmubCBsB$Xr3#G(bD!#CjGD!!i^uQ?z%u^W;d!u87BAWzw5&5hNoK5*99yyUfU-
z_86nbUa%HDgX;CdFU3wEPOpZeOu1cVkTqR87+G+&<!6FpDIxixMIZ#>FB`gVTK>^{
z;VqNYJ1rc#k_G|P_U&2-DVf8+8O?R)kvRaWL1{~;^Wty;->FI;TR=`@nB0};LPX3G
zdUw(~T>H@ca8OQ%MtZLo3?~Wqi3EHGz2>^Et`VKv?;N^jc6wnblUZ1Fj&VY$1<$|R
z;rXuc_>06)cb+f^&>`5o4hDtyB8x(aL)Kn3XsC_i-$y(O`B42VhpD2En>%|&hDCN;
z?@eN;;-0I|uaX!>y)z+kz*LPzr6YBS)_QUF$t=j|XDlTe6cC$;Mi(;N2BdT3Ypd~v
zARZwJeVWIT>&Bw!m1w?7kaWz;^))q|(W&67L`z-~&lz&W<ZTPQDt*}vui~JKcfxxZ
zEu^D2l-=!gTTYv$^NB6^46FY+8!rch%Eok(9&cM~&lsutK4LH)3ih+<n3|c=H`LH8
zdFsRquB{@Jm`h+!cIhw*)UzQ3-=YKZPzm`(*{05?s(n(A01~U-FJ%UDD`%h+iE9=)
zySO5R<wu20Wa>Lx`JU{`?qEs-lhMKMkm%879{8Od`IBrIUA^_Ru*3nT5Gkzj4ka|G
z1bYrcLJ$W~?6wl|P}U)gyW(EfKNcNR-$gln9E*VLuEvID7cMd8rKpj*yRF+ndv%v<
zdQ1OV91H)u6hUYAX-5_6F&reT<0%Xu$G4YO?j3aAx|uoOax^867na9`PlxmB!5%h8
z|D|@?GJqhiaAPJlF$a;$`rC)XMMqwk7Q+xHe|G$Lcds`ex^+732{`M?e-#trg!>KX
zN>MDrpgwwNFjogv$3mCXFz!Q*#p7k;3LDjR%Lq|MNV8w6=eUFJ3vd{QP<J^6O5|H6
zynAn^OWDn<XhSs@a?nPnIca>oxvApraPdnNz>ZLUB)i`LiO4APQu_5F^)c*O1;1><
zBShUluo^H^bZTcq{UDcL{<F1}tADrov(;7MT?c%>W<af8TShHHg$`f3W=W&X7RYIo
zI~+jJv2)W$fl2qMznrdGR?8bC+&)y2i&gsvDoE2g3A`XxrXCcJz9O_DUXPOi^k0J@
zyJ^V4h?9hEc5o#Bp0^*L0+=LFrx_47LTu-_30RS!a@s@KuMj4RiU@U@z>=UF_=Koy
zQBWJltYLbv@0h$+KrA-4*@>G<#+9&rH*Pu~e$@!n!+i(_6tom=XRmx!_=6U3-LD%&
zqUnscUVL0zKHPC{RQIzlZ!JPvam3}ddw_-QSUgzoFmt!x%G?-Nngu;XJVwji09}_7
zXl+S9bqQ_Xiq0n5Hvy&PLykcCwvONQ2l>AFQ0DW|zStzGp|wTgs|YeH%r>hk0L1r$
z&IlseHhUDJB~DEkw8tDAF!;X*ZFO3`#FiA$aU2Dlbq*q!y*1D7D_+UtS8O=NnhWqx
zgz4{3-snAYdw4G@+mE-tnR#nwR}p;_e~|mal+i@@-{=*bB%f=SLf2b2Uj0_+ZhLF9
zZ*IK$%@mK+#(SQpZ@9d|A>TiJv+*lSeSg=I>s<s`MeR*jSlc4Z3KYx=YvR`QBH2N3
zOQ1j)K!QFh;81O8y*l@XPo#$uMCqs1wtBu*U@OM~rL+v{yCvF`X$Xl7FYkvK3SUr%
zRZ9`u965zviz^zJK0Uvahib@F800AW+^M5CdGiJ__u+JD>DHH9x9;7%b+g&HceA;D
z_rb&aU+_o04P>K=NTSv>|95?&ElgKt$!{nfe<k^QKxr*aS&w+C5-K{jE1OpZVi>8m
z3{?S8N3qG}r*tq`-5Yr<V#2oI+cMMn6{u=g9-U-_tEb{UUqy2DX5YZ=#3Qwq8k0OE
z**+pbU!5FqeO6wczNF*>BA`mS#L&7{vv=idO;91-2AAdi9F(hJ+A{_CrKske(PT#v
z<Tw*qV=%j<%r~)VpHTdw_=iLnw5*Tm;8H)vNYKYJAQX@C=^Y(Qj6;9;QocaM#mQH0
zMo=dmcZE~{m(pSpaVez)VV%!4wtMA?7{xYJ#mdR8=?{sAbl-U^)PbBJr<KKPfbT&L
z8%V^7{MZ@sOD)OSXiPLBK6vK_0}QxJM+pF-up4OOG%NHP@p{9hqR7#ph?r&arxQM)
zRUlq#lq>E~)k(4)h{u^jg5I^CuT7x*yhbDH@xyw)D&`mJsuwHAn+t_(W9f(h#VH)b
zY9FlrY(7}LtvD6WF4UQYxGs}HFC`F=17I>i6J&RtlwjH#<Es?cE(9y@a;8pdD6x$W
z)^%jbo|B4rioCIY4XGh(+t~=o2<<R{1k|eq@BBNJCF&t=$+6-ro-?41Tedt(jYzeE
zOR_1V0+Gx_l|cIwYI7tsOEWRpLY28&F5+SDO4l=x8j+gk^H9iSoD;{YZC$Y7I05K|
z$fnUbQ~{f0fwt3r+vXUFgte(wRXdizS|7ujM$|W$UA6Y2IJ!b=$<ncFNT8S!l$ef`
zCd6p(uEArT`@ZIH2Pnsmh_1M!3j2`+QmA(s^r=b_I`ZGh8xo6z7IrAvm&abjp4Z+3
zn{u1geAk57qcBJ~7oH(Vv`3#^>B-UHAoKr^sk8^_1?1UbYlmCw#Wv<t%9IMhv=k}_
zsow-FMU7NnOR-(}nUC|70kurZgLPpX0%dvSPNpY)TnXs|DIX9e&I%%dedj=8f5*jB
zMN|bUqBmNUmG4n^p2uEaW!zL%U2T5W<#$EEnRJH{;}i&x48JlugD3}v7Ru%wf=SOk
zZ)LbbgS5=T46qQ7Ti76=07ISb!FYN?p(^E%mX2lJwAUCoNvi)Oy={oKu+ESh)^AaC
zq9X!cz1s|%DRj$6){O{_=@yrbNu*P-q$kfl$MJnQWc!<O=HL@SPzmZ!i=B4EP?)Vl
z!B&;rX)V5}id0jTFX;m0WOK^UJRUi-2$Vi{FBK^p;Ul5rowe^t$6PVCRi^X{!Tf^5
zP&tcg#w`3QfMY<r^XxIsBg+nO$(n34kZkQpzz0y$-3hfB+D|s!nMpZnBP6i8p%#_e
zM16o1Dn&O0syi*=TwBREk*McO@PO5=d#=I`ncI*}MPZ`aeZ`6E_;a!Hyy1$5P6fUk
zrgUkQlu`0~=B`lYlQC7l?JXGWS<|ptQB$f7EDD1z%PexIb_4+lFtboK<U-=PeFsH;
zqN;B>lrL6<#<8@b1CoI5CML%ijJmw;W;EnE)QNk|pHmcs+86ox=#Uir3odTl1syl4
z0rKgo`ipDG2OLkpQ7-fkPPd6kiYr`@!N9UzX`RJ}+|fGK^WmRH0=b+n7USbxVHwL7
z2f{9ZE3sl<q(K$WT^Y+OuC*)ps>jo#o@ef3h~QSAB#VskqfNEHqd09=9!pf{8*BAW
zp^R)@wv_hq%B{!kKy^h~@0Rr)ZB?Dio)tb<I61L@_Lxbgs-fP*hI~onp>wO>RtbtG
zE9W~!Af=a>%vM?|D|wQa^2OGK<azK!L$6hJb=c6Qb;6J8fjCqojiBBV$nEmg<vf6@
zr?Tus-3hCS1G$PvIZ6Q;w!=UuD1Z2;{U}CmWwKmrX9~{Pj;k{`ZxIh+ib+;yj;&6i
zsA3$4Wi_nc6_wRqBB~UdDT8#xgANOZhzMEx$Cp<yy(yq5nw988?8yR$F@aqa_2_g|
zr|pu@7g*uYgQzqYf_0o4Kmq{;-^AA_BUtP8ebV!ba^RrUKL!Dpzr??EmG#*0-r?9~
zgpt}3CJU5mUA~iD#iU^YrD_K$=g4{iNEd~(=tvR*#H|=gVyg~l+e@K{{8B~9+r?Tn
zs}tYANF(Bz-FONHmRD-AtIY~sW3i>ga*=pJLOC(!1;!#Zu7_CH*;#9bKD(lyCXQH@
z!k12cTCxFoq)Wlh%q)76Y(ZFp>gX=u+AK&l-4oP4tV8*U!0#InC@&<DC!MPXW}v$i
z0Q%ekIkmo65?J%W0=;kg(y6a7VG7x=0AD?{IOxtFHk8XW2_*A1Qr8IR`vjk`sCrhr
zghN`5oJj|+B;-U7Bix~#snXz@?Q`S~?qCT^0ZuQPz#RuPRdLnXP9isLydq~h55#`O
z8E%b=@XXTbNZPV;1dg7U@zRpY&x=Z}IFbz-mxu^eof%>XMDk$5!qpos`+WEY6O%(n
zyt`*AebfkIJoR^(#FYovR%dsHKX(Hb65&}Oe4QA~^`E!qVIhLLWEYuhKdL+jV{r*a
z`cRpU)M28G1;l%u-Q*)WcSLTP6IQ7+kkX}*WF{qpAd4;2ejTVqUEVbASGH!YxZr8&
z=`iC;lGB<#?o?GcJrz8vu^g=`GShMPvV#=M5Sp{|)!H&z^pNeqoJzzf;M6aRPzTw5
zF63m25om0t{JAVO$qU-6=1JL&GXa6(Ui(f>?Yd06lw}|v8NjfEgbA(r1gm5Wf|DZ|
zI(gVT4ueS2>Q@G}2s`NmRB;yIJ~jphZ%Gm)3l$8p#mEB8*qVsdwB@x#N1Hh%6E;cr
zFWc6wg?e0HD|V2iz04dbzh1^wfsDF6fXYg8oJe${l(+<&u&d8Fu|oueD~>VaI>x=6
z{kU$yVl@wc>>)nrkrrdLW`N*CsAF_^iiupS#yIq86CkILKUlZUka!6)j6?XHeTs2^
zr0g$srZy3DYZqWiNtt}13N$DWyWxJA-x-2;Bq^){c^oSz<afXg*@Kd{mNE6S1Y#Nq
zd_t9K0wrszc?s+~(qtP-(A$^{w(*qFy2Tgne!|q!bWWKoT;#wm!XQo=oN!!37z%P{
zgz72)1-~hSAq^%+*ScyT4GH5gLR8?h&nL1L1NvF})>)27rHJM-2m3k9GC7(1&>+wr
zl!_sZbQY#UsipIHsd#uYm)afXW$wO}{#;00sN9M%Jywn016@GPj;qd<+{I-E&^n~=
zP=u^cAJcWtSdOfFru9D6lFBAqa%rudSa6gl6*;kA7&;9np{=M^3FqF88o8*4bx}ED
zZxytP=q)=hVwBkD{J<6|QT$blL;l>v$WRPIXB=98-EfYSVaWQNr-M(!a_?Y3JvLHW
zO|aq_1ZNiObX>*Km&eUB^ttY!0o|FMCydr{(aGNz-Y8gv%m^^EL>##LZ4*6=lI(Ag
z8c7LOA1hwa`KthYvri6!ccDws1UC;KDtVE-UJ~2o5%`Cyfo6H;2<D}%lyJTWJwBOU
zj-CO;FFGpL(#td+M}Ui&fG#EuB@3<C8xn$D?z24MOj4(wpqRQzEnI-6a}ryELF`pE
z4qXsE(kyWXu%$^q3ioO6nQsh{RCe5sRq7>b({vvcFeRZO!00ye3-}{~!p1mkg|c_9
zIjR#NT9Tp<Nt_}*?&hsFPXyR}&kh&o$Qfb?&a7I%scok2#@czRVdNaL^=#Fhi`N&`
zJ8uhpz5CdB>7=Gp8pLz7!myiS4#QYO>$un;uMP&#92fXBVrb{U`u1F?F)i!P%38>3
z6`DGaa|iTdWMKyKcd%Ta3%y=dS5W9(kA|D)PDVmXsm%f8Duck}R>9y_Ev`yK^VLV@
z&;0yXDEFCw!VTl#wn!}0VBFae&W|_%8t^S{RpZF`h_VgAvUAnCVp09O-;?<q!C*_f
zG>1`}#zIaC@cgQFfX1STTQ#LW<gz1LX2t_P9qp4SLlf?kD}a7rQFMran9&jbQj^kW
zVRv{NGh=3?m&x2#N>z|2W3lrId#4v;=ALP)B0VwMb5Nv0z={*8%g@r@TIrojP25ac
zLSe!t76ck!%@(Bo2c>d=SV!%`zu?{z;UD`Y&P;X?5$#JXdkc9$7Pw*?FSyg;aLU~$
z;eNb^D!z&n==TG~m+R}ZMADXo%mtIh|3NLK_m=D@4B|m9#Xe(~PCyV6Fm~fys4zB9
zBU^zrS^5fHMsEqu(;iAM(GSYk_zA(~F4q3EaF=k%Nf|n-AU}Y*`je!4pRjCm<;5Oa
zx+0HBB#vz+11==5-FFM#@^MQ9X(L9zyN)TX+?6gyFWxN|HL5(|>@zaJ(G~B>JI`Lq
z_7VWf;f6ClEBZt{r+Grp7fd7NBa9MhNQ~d0O`XQT3(5Vu+}c->1OkXPLxLp~3w@|6
z{jxZ`tcL4&uU>oSU9X6P1)XD`Xa4Fs-^s5k#(n6}3@<UU$(?4dSUZYz6Re?X24W~`
zz@F0ncpPU&P|<mhtRSlEoaO)6D8S!QNi8ChY(t5gkhA!v*b@<=DZ38%k$l)k-y>TI
z*+C{bNQ$70LMVDhxcZf5MK5U~%iHZ`%VIbfm@ZsrJ?tRbxeA#_!+mVaZ;2$8!{5bn
za28%cxVW-Y%Zw;}u@+p4VPb_K(*3`MfgcAvVFGWhjgFPljZ`!-4AQ1pJCnh#Ps4{_
zW6wBMdTr(bEh$PeRJn_q-n3Wj#hEsHaZdJqJIW@ygcEtPAgipw%FN1FUZneLi+s!0
zo;^{mc=2Qv3)Bf`7maHQ2g3V?QXtux0F2RA`o`yFT!pbp(|^hOgb-6hQTSXpYQ?4P
zvd9>Pndt++8Ingj5KN;7iz=eTjwNiBDW>jLBt>e`PI*gM>&$?-L5-A3k)BD2JS*u&
zAmwCDIVB;ZpsPXA^;hs=ZcvFwzoP@YEH)vma8wkPK}EJQ({eT8R*wlsfk8QY;F2E8
z1?|=D05s&lJJzfELnPT3{b#;UvEyid+$>N!ZRq(hh0(#Zl|*8-{V5&Lu~UuY!nedB
zad?57FjSj|x2`xI9W1b(+_qKylS|FAeKEn$My7%jajBz`r0Qu!m2+yJtAd>OB1yw=
zvrs6Dl9}0pR17tzD~7{kkt<dOkdf)gtqlyPB6A&IuxjvLb9Uhh&+CgkI~!Gps%H14
zO&Jm@BFi3fZDeWPlP0krw^l4UonkeG5<s3Alo$p<x`3J^+#)|u8O=^e>V2XJK@>7w
zYTo8j!{OV_vanr*Lp+|M110Js4SJ4tt8f4O^q9>4gje#nj#TlBdI-8K_u}N(;X5vP
zR));m4+k%<`av+m?{klt098pRk_T*Ilc{>OYP!lDty&E`KTqvo&63U`BA*^y5SvW~
zi)QO%m>tfGwwTJZ>#%{04WN^8E76%1yak#I(nEFy4;o=zSVo5#v5-SLdHbIMl>w2E
zu!Om$*h?aB8gD848Z(;%PLJ(~r3+oDLkTkhL*4_$Q+AsOY2zne!Hq6d;^NUxrDTY>
z@@?iQT8{%=Ksgx!1~dfF;5<Ei=&Dsqq++sU_B=cs-)|7zP}BRFyHdm>h!*LM=D5lo
zc1u}8C?NY9s9+k?Uuw?6^VoFLd_R(&Sb2agpXqhAf~P&xkd9A`^V#qqo0uAAWgilw
zv1qB8<PZtCZqJ_=ze3Z%K#}=hU0R~%^wWnMcbglZZQT3x*5=X%#h}@>v|vW6@yAFQ
zJ}(LCV#~U^Z~K%wRN8%HPaWF|hXdWXL69#?L42a8SV2*WR8DoM0G0gl>7he=usADJ
zpJk4zfoWf*P7F(~cuEint~{>Q!8YWs^B<6;a_mlvL{WaNSZF&7wuQAp@6qzNmO$l(
zL&<9wu*!g#KB{$3O$g=fNa@<scV=-e6IN`Dj6+;>73_x3xdNBSV253MzI&3#VkOq(
zq1sMz7e~lKzMg+K2}I$$_MR*o_F2wj!Dt_s7xhdhAnuW+*<daH|4>bcIL#J8Vo9t5
z1hqqK7o<@l4(|bAa1;ptbLc$kesfT-?+MN<ZmVNM{Xx#Q5*8cGbx-yEkT_KTU_vor
zMDRP`Y>!qLV~AnAyh0BLt#4&gV)%~yVeY8VG`qq*sP`z5NE^{9>vnMAj7$jcrQ2ey
zzNjE<|7NutuW$sb&EV<aGib+1Av`JeDPzGZ-P!J7)tqpf5$vrk^}ee8(C|BoEhW*+
zg<Yadz^~k196!(AXp-kR;3d21gdEOH0ZJ$JZu2LJtLT4^D3Y0p3&LMvc0wk&>EUTY
z_t}Zs<!xXME(U?6brJ9`s@h?nk|>^Gj|?bP+T@g!3&%qCVsJpQ46M+pr3%U;lmJAa
z&|nGY$wYNZz^-)0n|N34hC6~kR;h=JKM9BPCpA*VPmvyzqsTQzka~?j$SY>p68;Ir
zRtNE{*d6H}^*=|cScD6Bc~DP7`%Iz<Fh~<lAw)z=6Ew0_YPd&lxB_#VoR7#HOF3;Z
z2~13NorR)ER8*;pde8&dd?<^Us3Sm&3-2P~kd6if?mUQB0i6977sh=;&^^P6u0@n$
z4%Lg0#%7Fwk<lLphMfecq;rg;5J|cst|e?O@E~%mJqLkw8R-Vra#bx0U$(t$qZWXB
z^7iU3TjOUR>AIzEvv&|vY^SEXbfL*5j#%b~TU)#&dSoAGw;$ZR@s*nNcgNFvAQLz0
zuvADCGhH<|PTz{r{2ayRL<N?80pA(zU0$l**B+l*HmG|<yI;$4hr|O=oxQTF+j^Vh
z*nY~Xb+z1zC*#Ai{|E7;WKPN3W|{(`Qz`|(akR4E6u3XxO$`x5W&tP4jyrk-V)9zT
zw`f?}jdnt9T5pJ#x(DDEz4ld^1ks~+rpQsEQ&nH#i6A4mR0Pu!r&HN+v{kUQ{fO#E
z=eE2D%;y9|h+S5snkT}&5i;t$sl}#^jU>;AlJ7r`Z&W!fhRRD9*47CgB3%O7Eux?g
z!CLQR5s=bY3x})Ls(TtmV!>XQT@=eWOQAYHbBXc9)5@6*rsE@mOPE4ba*g(&A?$5V
z@4z};i_GgGVXHn&g+{~C2x)PkbC;gYz8Pg*K^H|?K;A^K4t+D#4I~5GqeOnFFeox$
zlNJ?y>pWStYboZ_bOOF%isf)sDRU3YSx6_`F#q*K4EN`pYTu@!2?=MoCdj2J*nH-K
zCFc}ZP~a<s9Ag>_WhPq{6<;Ot5uq{|F)Covgzwqt9wsk__VUx1$GG2A4*Ah|f_cj|
z&~RjY@~N(;<}Yh{Kl8wM`^4u(UB;ffympg#5^+iS?BGN~M=zWA5UU7$MF&ntQ@n&y
zyKP{=%IYb@X%<mkX`?D%FVn~QRLOM;F0s;&t;ex|0<o@&{IVfn;X}qD=27rpRumWQ
z9`;m<K3rVCl4vy8)x<`L9O%^%Io6_R3H)c3)DlgOh)UH}yRBCsuPyF=jyeMznis@R
zmp=ad)8>=gU*gAnrv1uf$2+l?62S%Pd$|NX7{Bn?yQ}Z0n-(essD`MpWp76&uR{*b
zQd<IB@()_`)Vbv_<yn2XQ4|GOjC_=B{@Q(1^1%?oG;s)!dg)@xl0SEVEVa04%-k-v
zO9)X>(LCecSg!icG$k%IGEWL6(*wcPo#!nUiO6CRD*m?3nG&7;DVvd+IM7AnF>po*
zkGspP(Ps^yc&U1>9;(Tl@Y>mr+sR2UKxbU#6}O$^A?O_f1R*v$#WM9>03AFWAP6yp
zMWfcLP$K90bf0DCHgrwgWna05-1d-&WUK1O&NB`yloc`yMo<;2W!O9&QnjJp(I%kX
zkSC>BPXn$T7tTni1W!w~>+9lUR98k=ehH(x&}NC4CVu>=-nr_6!!F=eTVR^UFR-wP
zTEtv*mj9YgnT=#p=l<4N%U#j|KBHMGd5&5e^rSnza{_ELEN(0G7vv=!lP+W!<W?*S
zm`DmUZ(|GYGJ$FHj@ZkQQv|;%N_B`)W8dI;8;^I=^=VJ5!LLDiB_w+=`-r_3%~FMW
zBwF%7Pmm9XbvorJJ$Bk2?^Cl{j>m<4-7dP+Z{!wSG-=<q8=8-r4+Ee?;UljUe<28T
zvCunfv3I;ASGT9#7~v0dZ8T?=m{-{fv8*rphZP9MTRa3rT!u1poS~d_NH#B`Mkam{
zK+c{OsFav#kuiJZnZyf_txi|U%a5>C2rGFDK-x3!yYuO{mv=hun(LAMZN3H#u@sW8
zBX|YfF0D&Z8ly0D9m)<|v3=e4LUu~Bnu#t#1`@jw%jnLLOT(1%r)({+*iqGbd}*3v
zA?-4@amSv*$9qDHA0mq29HhjaD~b3*TKS!IJ*BmhJEdA2%%~bAz^O$Sl>6+LJ)tV@
z^|eZp9ZP~eFoiIXN^*lCR~~M8l9k8&()V0^LZ}E<MNE)lY{8gAJ!UOZMQf>qtU-}W
zB{qf3rN#t#Dfa~8ihhHtmd=;UDsv}IErZdf>lsu?1oU^w9zs!NKrJY>HZ2m#vawW2
zdyg%37m$@0f>E4}T#+&h*IQXhs6fE&AdG2->f!;%u1f|D@TU9DgOXYj`nt?XJP}wU
zGvT(Fk(LDRm^Nw^UsK!|t8IEMOA8zy$aeIXs}#z#IglCPjO2i1Uwolh1i=fc&Q{j1
zuV10^(&EPthn1?7v!j(oS!9J(0go?ngekcKA-~DAwO?GJ18A5jF)+YbyMFEcTDLFl
zYTJKgbsME0P=a!ViU<%LYU<JyC}jX4zNX)`YKmmy#_MnaV<Ry4+=I{XR8{r=*=7*-
zy|1>SG$sHQlB-5c`nkR4Gs3E)QM09h%JOGhAy)6<;(f(gKk;IG!<Z1GEIOyiKsexc
z7dZnYW^#ZEmRqjm1pcMhCXj(-pkp}>fGf+Zv+Sh=gP2V%cZn3lKNHn16uaEHo6t@r
z-J@gSs)al<?T%X%+#Mo{4cMR`rJLHUq%!uVSE!=e4T5(P{uwDgZbxVZlh7niW3n4|
zfm}(|&Rddq@~5lw!gyz_{Us$k6r0#5P4%7eVcp~LNCt+Oxo8SPDaSa(dAb+=Y!Cg~
zl}F~y94AM%k4|Kml}k!vZ)rYFsP}Z{3+Aw+ro9}Y9CW@!Zv<m_FR2njkItolZc~~J
z1iYeMDAAQ}YMPwDL^CPAC?K7cq2cl_NIXk=XfWT(m-o`Hguhf6pMEEDu=I@%t1dXK
zfTn)CyfS<E)L2!YN6l2Ld%dPox1{xjz7|Huy6tj8cv*$;-yvTt*wExeUAePv%pi8Z
z^p@{<5%}Ul7hUsWWvlPNpYP7Qndey&lrfQ~Ue=p>G}74Nps@sp9^~q99`vHa0C8WF
zQ3Qc{d2&9WXvaSHTyRpnB(w%D-~jmH=A;4-=f043A9zK#rpo04`pYX{%$!J?fnu@1
z!x&9Ipv5wzV36Rl9N9e*(DDw-kfLQWJ0^nT0rVgk=wu6(O7KgjaTL3dDsB;iZeXV&
z%1vr*F=eekDK@``0V+IS!Kzu>lU&nd5~08dmju?0UP-!V)*1C`j(Y}TS^0hN!SYHe
zNGkRuL8{i9dOA9Wb~Kb0Au8IJPZLL9w4?86@-~yF*Mmss@DW(Cq<*XE<udMb2CIrF
z4URszva)`)Ct%iBd}~Vda8>x!kQF3{Q?lK<{j+T0y~1ZXYVmjWxz}2!8#|ZRXGA{H
zoVYccL(|=5hk$6;4S28hQd6xPRUzET(X`)|y7A@qmYxK)Txp5!<hUdj)nRo{tCpA#
z0%gAwUywY<Ob=JpieEwjCV?`teLFjHTB(8>qN5v-;8@z!K#|=mYdU7tRJS=&rH@b1
zH&y_yZvOEwb8AgUDV8z!Z2<*Vi0hAVeZc0Ci&R;N34d-0>R~G4gTJE7dHVzw9JDn!
zKtk-Q7p=5RPvdnEa)6od6dj1fO{4!xv;<18CtoXPDa5Mnd61$V%K?!nHY(KDJ=9^@
z(&HdmvJVE6%Qub@W#O3B`VWVVAVpXu`r=TGa{2zTFW5tI&cSbv0>atPm_SzhS~Pf~
zxJ^zToWbOF5X4kF6)!gOnJ}}gfJW!0J39C-*N+XK5s*P+tAHV!CUiS*hzvDn`zYq?
zHw1YUjY>t)(eg9Wm$`<FD{z}G(K_`dE1jN9a5ihvqtgAzr7`Rc&67x=T`9Z4W!TJU
zQgOudI9drZ<pNXrB9^+>G-6;9WdofD<aVQVl6}MC3>CU?pkrAsX^3i8qRkX@T)$hU
za#$7x0+BMXDm>IOrckfO818aHL$cmgGI67mdF5y&<m~5Jz1VrbxUxnuZdj6eLqJs3
z6lgb1xQG#ixSmi_&QPcQwD?0A)a6c}0xU6YLPO4zlX41!YJ(V#m;+TP??IY;v%K=W
z%4Y8j&^RiKC;&fr9XDLDSRq<v>B?gOh)t-XnGoxaJaX|Y`RRI&VtTq4g)1dj6mFFQ
zG$>3Kkkw->5mCvQpKY4d;!4`u^Su{IlO>}aBUKJc4m~B84I-eFo~;FIk>YFzbN-gE
z&~`is_|RDfe8>{s0z@feMBk<ubQ#xe$Fo?ArTDR<9pEH%7d-3s5d)k}S*UuWEJ2_z
zQMp)EwK^QRLrrvbm<q!;cCpmtueGpVu^?Fa;|lR2@+lJn(OH_vy0PRe8a-`XG?rRe
zBl6Y^d&e0Fp0366P?*hVK~XIo1sS>gPgSev$HP|uUFM&3T4XO0IMA{+clLNmSC1gL
z?x3nJLX}nV3G^SCVXlq>l+-}#iWP{XRG>!+LS}+exDpAPC-y?4R<e`i;#4*XDDyHo
zcgSXK&2TbdBnJ{}OiXbF-`@e6bT13h?oV1;1VPRnBU&8i(0)82xS~dVZH;WRL?;eE
zuL={$6+ILdRXzD1+D}x<%8HX!2GH{k%V~BO5#OzSehBB0dL@lQWhbw@D76H;OE(}D
z=zMv%@~)k;=!OPcsdG<2N2!Cb`}JuPw~4N7QWd*RRTxfCx&>632<;g#5&)3mnE!Gp
zW$iecU-+ZipYC!qP~r$`!EzOTYL*i`MZ6vf>1dSHE_G#5nWzPa$rx)=K9>a|c1edG
zO#6-Zom3c*1XZE(BdSODR0`j3K@}`~^(J0Q|9jQ(a7iBsFYAvKl~P`87`pW-X7J(V
zAy+ICik2h3L4iemx0pyke^jAgyUPKr2nEuH&<(PZI;aSu(;ajUt$=wXGG|I;d9dC&
zm)Z*p^pWgB&~c(HYl5xkL^@&H0P?mnM>$A+)jt=Oj0n%DGoqpgkVc#2>cY$O8dIKJ
za?^(i@GrFVPSg45{gt+D)o9|&y0l()AP=+;>l!d~=?Uao<`$g-e_MfGWW*LjwkVx_
zhD>i#IyAC->T=V#;wpr9=hjtg!;+H-A?31A*bs5ufn4rO4t61e{<K{CM3)MP8!?f$
z!#U0&gDU-(ghh5vbP;Wv#Z5ZAuCw5Z7IYH4+0gKkb+<hTEi93kERFh;>^Y_&^gvXk
zv)Li|geJ_@<&I*#SZjKS>~S405f^w_UYdvjBLMQZa)~nt#i}U#im-j9hm4uCaVRpQ
z6-Y&`u{hhd)RI1vh$GOhbPR%Uo2cVcP>&(oLZldf!Nd}_NP*{=y}B8zl*GbvGrn+9
z?GnfBU<pI!z`QJS6A;Ety-hpUX8Ek<yUNoN3c_aHc)T8>J`RJ07L?I|6(T7Luk7y|
z0~Vge7$`Mr1+o#np*K$)MP(99jIt09)Q*1^EA*u~DsQ->YkqG*m-^$OZwV`ZZH-j`
zf%HB5*w_4KOx#S&*_*t28<=3ym0h}=y9Ed3CC3~dgobpYE&2ew9x~B@!X!|8Z*uiC
z<<}+oLhScpxi&nki_+4sETn>4v2q!)j`<+6k(9B>s9f&(8oR2}=zfdcrT0rN&=w``
zw2U$~MeV}I=GMdex4wMv@Yd$$?fdsSZGh!bwY``_adW{0RDdp^_DJSJAw$Kx;4<Ej
zym4gK9$9IYY>NpN<7$ggZSBA>BUcm&(fCqtbsm697Of=};6F=Oa>PA=qR7GSw{f4;
zZ*WV;LTHfGLo@*Tl(JD0D8ltOM<`6EDs)+$+^*7%7)ce6POmTBkg~xE!C@wFrwe?0
z8KxP7kRs|+<!efro4Yg*CF_x=Hn`Wb^z3X?(K8;EOl<A)h^b{%E2;;I36FWSeg#YF
zcAjafHO+$qdgpPNs#N8d;HD2?p8ZJI!RG|)O1wl9<g*`r$LCkxtu<Aw0}u!d@@ecK
zS(~wU==@uf(>@|8mEmwPkV}^p1s7oor7q+TSLGDDN$8i|<N=b{MOc3JM)I*|!{Jl2
zh8*hzJ~>yFFWMkM4CdKY2~+IJs5Zpb#BJ#oeWH9K_Zp{h;w8*sHqeHuFbm@74RH8G
z-;_g2XLrB;IZcxZKS+k&|2j_|>5q-C-S0xbe)jbPLO$yAtiLwDzB3%_mtTDSDd$;_
z_*H8>d-OFf9D5|k@<rZ}D01o%5<6rEcoO9@se*Pn^Qd4-wB}Yw%L|oWih?47pCGJ<
zs$|BkE~RJQPJJJ%fJf0M5DmZVbAPbHu(~KmNUlr~w+*%-51FH=h;qc2mN8jWo7QfG
zDzsw3Rh);PhJMECh|(&Vv)U&L5{5u-YVnj$L1gm#3i!1v27!>N-GG;ntOw(<u4Cw=
zIiOPS0#TlXNRUWYQVZ8|AEjd|y;JVmIcpQ>${sRvjZ4!qEQ^?tERgt^9G&o*`xKEn
z$^i0|xkk+^;O8@m>0?8REfk7^w?#+jh;yDT<Rik@TPg<-xxdJu>@GK|Tv%W`ve$-*
z=S$<yTO-1)EHj=grf51RtW{eK?KHDIY{W6rAefN{13`Zj#TvSmsQpZKTN2(pK6s<Z
zp+EYdz_A`+=+tO@BrT2D&H9j!)}$vs`T%Clu`9_of3)6?dF5RXY99qkoE`Zi$_i2p
ze)OGEH<?{*`zBy{<4s5Cvm8?mNg9&fuBwGQBGo+pk;H8MQi!sJFA=6bAK)*&sj^}g
zOgfQ>a!`r{!tsbR`l4wPQ98R<+GgREVv$E2R_CyStdY8suUIzlP8}y~k|CZO%vI&*
zrTUh{Hf`K;Jf+*y<O3x3&{YVbQzfDH%!&2o?yKqe7wVMkOg+b8z%6R9(?(Y{cG*%3
z3^bfiC&uPAZrPUDqsKu4Z~2m9v4CfjJJjJ64yQQ^<TzhwI`(zDd?V%;pg_UZD~(R$
z*JmCoGMImv^Y$pSb{Hjc3i(yAl7}yF0nBl=URjSkcWNsM>ae6z&vdr#1ieCcbt2sw
z8zSwD;&ccpx6nWi&BtTzjDx4sJJixCwQWnM%%f$`vT`*P*2^c5y36n<!!&C{V5piF
z@X0FCR5RaFU8VH;3+9Nxbi!hF>64@nQKjqY!C)0?MKcwATga8*B1)>zRzMVQic{7W
zUy6Ne%0p=Y8b-;*tfQI~y9(fp_$C@OHmHlCnMbF$vcRW((OXQZ2Nf$s$r(oIsFJy9
z+m}m6qO&urUrt>1HY65~bez0`-~(6FSKes-+B3udrNP-M$1rrFYUdYUKOFA9>;Wg}
z2Xv_~N3OfwRM~ixD9$LMU~;gZ(lMetrF90~h#ebVZ>~`Fx!qiAuD&c<0wA98y{`6n
zu?&Ehp~fqiq&$aXzH_pC?NW2~;ze)eY<a!;W4>(=zt@@-KF5G*eGt(GK8Tev5gmmJ
z0$2M(7@)wC@*PoNL61&EDD(<{Vu19NmsqP<o}IkFcB|izU0?-sAxov|9AbnisS%yd
zj`@VW5WrBb{&0Du!Xf45Sdpr*X5`HRwSL-NL=iy{Z;Es*QWa;&dKCA`)Zuy^lxUZI
z+V6rIbDH9F1nA(=GihIFMREaaOQcG=^pqL=t7NJ6lU7S16V=M*P#3Z1x(HB-WgBuw
zLu<sDVYqgS`;`>JhchL0v<QnP7&Z!Tg~d*~it3hfF;k*l8_FOk3xo+vHWIXTnrU`M
zF2SP`ZnP*PV1#4O;TDw!$l#N_P-s<u#K2JuN?efjrpd1_!*AjJIh(Dc?(|Bjv55nU
zMYRI^$ldkb2&SwePzk-R(PYxr10a_~DHI`LY2QhYw%qJqbVyo6{5`kkQE-)o_FFGu
zs=x$b%Oj183KIydsW9D+hH4tX5gmqkNmN5!a8ngpPO}Mog<S&iPzFYTA~cflF|K1(
zWe6BBM&TXpp}R3Nnv<Y<IUeimMik-|b>8#zEprVB`zbzO)Z47{qU03<YV{ogP=bU{
z6;xFy<H9-<1)6J7221k4qe`uKa@ki`DFz^>HRjlIfJJL7h|kTXS7DQ(Szd#7CaF64
zW!-;DRbrQYDwhbIT?TL!afuVi?Bx`-0`B4?3unb=#3BQQW%%O-2hFV&xHFeUsrN=$
zR0O%gKrfJK)*xhNef@*$t4p^PiQqrW;Qyk3llg-=9CX75Q-=$J2~Kz9<W?9b7KG1Y
zs~D7$20i3(hLU})TwVRZ<_W*Vy^ezC8OL%@&<@5{glT{r()Y&dk_h6u$s!l056)Sc
zX6_AZ!|R-ZA(iW58x2c8Xm6a)xVcLmy7?^(gWRpSWdWTa6A^B!ODMWJ7`l(qt^miP
z{ybv&W9o0?&=$`DeKco%xvV6$Dd+lPJ>~D#T;WiTD7CEM=IGlxNV@_)<vts2NWbZ%
ziKdi~swFb@7$AU{W&X!o{8#Jd)6)YknW{7u40$*ZiDouaFUWk^^|&^~^ftc7_*vph
zm|{@<(5QSNnksbaZ*|Pe`LC$&@S{;awz_n0$Uza7nRw^VgoS?-ARrx?;Nq4-prYlS
z?rZ$1Gfa*I2&Yok)__Nrn5#=ShrQ?dvpnBoOfT6;Zl}5RORnw|4|eH?59xWr{jYVG
zHRBdGrja&4&Z*+!Kzsb<{3y4N{Ouc!Bfl!gx&sfF1+^4#M@QpTKRLf9lY;b9c_fMA
z(}e>Odm^}^(8{aE+V4D-!`(SaAtXpGSeRHVwlD{^`4yIDg+soD-acJCe0RBTFhg(M
z^ONArCvYKhXjyQUM+Nxj;aZ49>_I`r9i6eZnEOKvV5$hzs3E1>#!<_EW<SQhGv3#c
zaLN64Y`yPZYBJQiv;;>gJDy?yTZ>7HdU2jpYgApIQ+2)x@3aj@AsQ}OvB}bLy$dF%
zZ+;GEV8(?ZEtXYGT2Gvq)_n34yBqy?<~DkNQsvC-K51iC5r5t`9mM>nyvq}`X?K(V
z{@f<N9G}0-;d9Ewrn;x+P4?S;x`*GEnEu_l>2DvQ0-#R`^9~)2Wcvv}Me<hqlqsiF
zs!PhEQ{TaebSZS#&cnUpGerC0hjp4(XKcD4)E)WjM66@o_F{h$*N(C)*H81z71y_*
zZrVvd{P1jc)}L`XZf<UNRwp&v{k>+|NP#Y%_h&zwoA<u#gq#?t@@G3!k?u%>Q3QtU
z(W8+tE00paY;03hh^$II#-Cj8L2S^DWIL8fzuvE0oy>wO$Jg{oxId7QEG(4+>cf~y
zbNdhyRE9~iPhD9%?Iwz{KiRD6q@)LpzE_91#5FGbsqjj8zy7w&k2QOD)Xvb#bv{);
z`~F<fBOlqtg4S)(@{8<`!SlMv&Jcs=-66b1_rcS7p4lP(^m>c{iflZ!!`$AxEMLJv
z0lpP@#KS6AP%PU60apMRx2Lop>omciLy(H4X8f8qs4&5fnczyHmL<z2M`=yoCH_CX
zKF4yKvNk%%#Cn)ij;_W}Gxg_0N;iLrB$73?tp7l^48R+@jH@av&mC|0^Dv{(-z9j7
zZA9dxGfvoYjHb_(R4qvMP>OEr!}b<Su1cjOA<V7gfouH2(dyJ_vsRH&Z><Ejdm|GL
z+8-b3V2koev?a_$Q)jJ2&7zqKa)l|?^9?7KEY%q1>kiHbv%~NBqjvj_fYuSV1~bd!
z15#UkFtTxdcHS5p%-LVY#$<<m_qUmXdS-+D)oifXxsev^sf_jNy=}1WxzQHwuMGFP
zeI8-5S7=vq+0b2;J&Xb_vTx9TDHAT`V{bw-eTV?Yo1IBT>$8CU;q()&gM)r%MqdEz
zg+Q)D0MD5r7D0G1Wa}WJpqWvAAPKcYvE2Eg7Hq2^{ngtO4b2a?Xp3dM*KPG^zdPPv
zC>2$pd_pF8Mr8UUs8;6%pwo`9!JK|(v1Z+?5OwG`8UU+WC-nYI;@_hw{t@Y!6%JXF
z5K(ZvPrUxf9($N;p&|4fA0nEq_RTn*1;G)kFqoo)ggo#rrWtrg8b)%bAB>@x!1J{0
zSzG;pSWCwnX>F{BI3gsI%eHb^KK7;0i{VoenrPb4@ceQ`teSQ&f<7elPW4ZE;jhW?
zAgTj9O(kbTUov74e~c_H=l3F1A{an8QYxsV;v`>W<kTv%?3)oyxK#DBbbtGsG9JGY
zY&~zp!!Suo*g8_w(rq%yvRom?eV;t?(gqy@a-IA-KW+fi0x-TVEo&)JEG-3QN9QD*
z3;c{wQr#RMe_vLZ&JP$O{H8YAfuMlM`2`%=icH7o806;QMGnGm{UN9@(K@x!UIj?A
zyuNZ($!6|y%y)IGWB+AcAGGjof|H}epnNjAR9yDobHV$<S%C`SXF^}gYpVu=jw@>i
z#ZtjKDYpr1`gDtCaqWWlF!QD7W`({u;WZPMPSBbd9wUfM;C+b;C%XIa+4%mH-i&*o
zz0o|6)b5$3e9F=9<ua#EI|k1A$#(Cwv-0b{4+HgQRe#kuBXr)jQusB!30KzNPr&*Y
zO*KdnMQDNuoKDHj%#@!lM6|52GSNMXh26eh#H5f<oB{eEC)7{ogN%_I;EDf2QT!MB
z&?i&L6Tr=X*|YvTIJsid6FOveAQfm}h`4s{CvED1?|RW`r%BR*zhz-u2%=bh{HY?8
z=8qf`J=*g8{FnLpFY|BB%(DeIas}cKn@HO>F~GZ}VA+RDScHX$194nO%;q0au;w{C
zp;<>xuFC!no{XZlE_Ls=%&ISSk^--XD&G(UlFh{Jc_@Ul*^^(dS`t>8$^b%0L^tX+
z*840v(}YOK#|@6OUJO_0W@fmgmi}n<#3@RkQf+^{o1>zjSusG!<?V9d!pgBfVDDzp
zx~^t9!pQi~k<Ni6EWOE<$EBmI7o`-K>v3>(fAMv)=J6X$mkCOtUFo-o>OCJ}Rx-tB
zDr&44ZujGCXn$~j6vsdn$?k!=FUJ}8%SG${vOnOLWbSH*lrG}Ltv)Vp8++q(uXG_K
zX7>O12aWjEqBVZiU*lIlXvF&nVF$l^w4uaDVUJF%W*oU^I3vqi9Fb6*lsvn9OfscZ
z{Z)t3ak7<%dEmw{xqpO2STtc_>^GcPN<Ku1vWU9!w7UqQqX>$!G|WJZl)1%i^;S0_
z9c4eP501%pyR6DwzoHFdS~mk5BS_P2MeI~yV>&2S^4zQ&huvA7QJbH2P?Kr}6*_w4
z9(FMwriuzci)}@qTIXs@;{}BcCfmwvlNo*Of~b}RTRTsTq}xY(i@<>3k0u8#FvOzu
z!p^#sc`!dNM?lK>P{I6;3(DSjB5ECUh%X3%Q2e5adkDUv+%LH8ODC5G^*7Zii|&by
z1v5Oo--TT#^wXoE66I;9DHooWZ+i2z!62PCRh9HD;+9-G<(?IJlga2rSI=?u@_>eU
znCnQSr=tVKdk9>I2*QqB1ZgR-`IWTy<XFKmskJW3FbcjZf<<^<gH6NNuQ1lGL1S4r
zM}stC`-mX;<i)p36M>aadjK+nb$7clJ$AgLw_QF&$-yL@KuTEnZ6t--M?du%mZd&B
zIfOy)&j^Z~2blDiUIYYR6v<%I2}r)tq@<tPNoUzICw&8MiMbZg?l%;TwG+&6M~?qS
z+;Q#<Pum$N5<c!>$Ew`t_4`m;WFmE{oqC8;J^k_3-msjG+~LFin6wV37`>Vkr5egK
zrSqI&E9kxc@LuCA<YVEl1$+!T2X@i)%HwZtRM2BU$}11aB(aE9!)NJ+$QAGJMW4jN
z*H*5+t4rfa!|LKaIE7OH*><9D;V|A!6$V)9&dm`c^k>OYArJLdh5X-e*7QoQhF79_
z&xwW?wI+CQeB8JBR$*AeB1+o6YL}F=vAS3*&TZe>PuEYLS@?c8>Au*30Y<$*p(=~T
zi-}&1#OBL#W?(#x_ich`BnCWpHM1U~d{O$Pbe2;?cKyX<OBK1JuLFk4NDgM;{bla*
zasK=g4^V4;9K|IEL>dazX9%DqCd%eDJx4XHXbviU%KWO{M{6J3eHxVW)Gbt0i-`rl
z`Jx1Rf|=r!QhxyvEz-WBkP<|B(mB*b6~kn-dr!(FmHL<V^&W#zedF4~{+J=CssYQo
zx`XGp`@HMSVWIgT(L@9~m@B1Ar<;Y(7E5^#%Q!BAP@%vKa6IThkQoig(-5STOQAG|
zg8boKYxLOV7jn}V?{Yy#R0=1Op~X~x%})E={zLYC{+qvDC^Wa?7zGDCYAQ0esQj&i
z#|GeJXC*sOzzq>%M7nSlPpyP62LhGYYon(bj`XvlX#yfD9#mxb8Rdgt$dbB8Iy%fc
z{`BcA9ff*&I-_i2St&V%=0XL;l~FO>Ge!h0#x+F=hcbis@|K1mu50S7InhkLG9szE
znv5mudUkW{@<14i9*)=+ey{8pnWQsOy&ZMHQQLCf-g{|DcE;JemlS&X8WrfK)_=E0
zLHV*)(2WTu2{8OGH{fk3;IeodSxqM(Yr9!e+HQ!j%FQu4ebJyE`r7M;E(eMj;p*J*
z*C=*F3utt3=>Zw<HbHN7J&c++{^Gkf^=*)sWVBvwr3!zzp1>(`7uiz0bg$kVrmtO7
zTN==nQAoJ<Ch4ZKM_{6^Mk<Ah&f9yp$jbNE-4e{XN&EiF1@jiryxykq%eqVg?K4nU
zyBRKdDpgsW6y^{rC)bsBFO<faQ`M|{t1A9Opt1k9av>l=Wp$aXS26=UF1t*5e)BiS
zH^?UuP-VC-*6wf+k@i4^TRLU^g1e%WLgP`D4svLm*C+=R3Lb-D=zV)o)`m-!>$m^q
zq7Gc4XoI;=yrJ#^+v1UqMb53xpZc(5yT++k1c%}Sw99p|MO0aoVa+8*M)Et2kCkWn
zg<ASx@5P=a*#Hd9s@uT|>9+R*L=D!%5E%?d4cc$G)8^4&a>S(Yc0FEE?n8;~Zovo*
zols5moMaFde7ID!r=znW(?T-;VW)VBLl*}e*Pf;Oo8!g6y*a+@H|F3g%+JC%g+L2i
zk;Uvo9VE<f&Hi9S!Cx?s(C}LXd6(^Xb4&9;Kq6P|57)AK#3uhmy0Klv7Y`&LHg)#A
zuVj!QzU&V5LkTmlaXQln8er}~nm<F2wl%Gc=jzgYl8FlNG-JY(EM-*vdeFj4seMdh
zp$d@$o*|COiU3iY$D%@C%mLsPYA1iAo{_Q~IT_@m?krQzxqA8Nt#a}(N8@~s4%B!0
z=bmx$b5$p2M0NC@c8jlR``(Xe0&zmC4tj;L0H4>v*7AY|zJfXKlGX>aF!WhMAjp#P
zta9DkN0eh&5N)PV<QWZd#v)$ER*~UaJjN@=G8dB2K$BR=-2pvBs@Nbc<_|io3`pUi
zj?~t$acE1zDc9IxefQ5$3(<0viHV(}0sgS0JI)WA@9$y^_*$Ckgl_o!YF$gAt7_+T
z&$q_2A)s=rv(RF?U>G0!4Rs>AfOkR~a~45S5W3;%Y<hF{Q)~|%m~g%A4p}E)r&b&?
zMM3G(Psx@-c%>T9p9>df8+<#npxMRn%nw>jQD@NCPq$yP>g>|+Q@S)TWq?Azferdw
zZPkNXQwcg1g3)=T4`8SoX{FW{K2eqB^ns+g6H-2PMmvg;51mcuS#M;kfdCxR9`yo3
zxNbBsQy*74Yev&6K8*ugS{`BGAQv>p2K99_XBYVr-%Vy|j~rMnVwl+~#h_uZAeX<t
zXvf4Ih<xMA_sxfK?2t0k2fD3$c81`_JU%UABvF74C})$fZFP`A6kg;@9#RZScg0~a
zT5eT223Hv(uF~EWsc^f=X>{^wxq;vS-{??uIj@#ZQOi0-q5z&xc((00@qP1SssVNW
zqxpb10@?B(r%o&D^rCZ70(FON=|17Y!H3ihF6;Hn8sH)Wm<Cw+Iwz!-5Wn9KIsn|*
zbt}%|qw3%X>$(BS0HWPf15OjIz$Rcu)D!_uH$Jq-Sm+$5CFH2+HHP&8yLf@zg~RsT
z)QuH_p92BSFwM02h)dx?%SYT7g-xe<6#xjQPCZ#B;VNbD^rPptmU$|sh=qLgUHP>5
z?~yLx<Pswy4VmHO33&326P&Nqo<;2It5>dG)4TA14pq@@<?1yAWZE!65&GH<#6>a(
z*{KyPGG+xHzDfzBtx%gbA>NE>01X5*gLrZEgaf(hdX@F)q*el(daUt*`+v3pac?J&
z)oc!k+`&EEuTIh!@eYpP#-X@R5dW8_itKGFly-mn8-5j(H^1hUh2Oo%?|%AS!$~IX
z>+0LOBIo;C9jf`nr!$)&ebIE=0%-U39F=gy9mc)df&tG!rOL0`S4=ze&@IV7fYK#&
z4Kxon4og6n>IFB#0-F-;7lA@Sb_dG)?VK9Lws<fFxPi<>YUqgQ74uGQcU|C1e!zjq
z0Bkwl*Q^{hE4N+<EN_d8e{{(CK>>N%{IvP#kb>;|bWKpl0tXq}-$43&_tQCq9AaJU
zG$_6W-~9Bb9js1qgxY@Ie01b@7?Ptk`s<yym#%@T-FZ}%M3-qT3L<nsMAm&Wd&QYQ
zFGyP{X}VHB(Q@xczbuRv$4i1uE0>D!J=CS<Bi|RT58@eQ!Aw+>XTVEXarGHgcx3!3
zG=OZEOU1nPbp28{gntx%bCm>=!O>zhHbcGq^@t`1hhAz{h#<5j0`*fu02y40k2Lma
zSy<i_c-}tkvx(Im%0edC^zZ^S%(n}NSqKW6^9Cq-GxBKNv?0QvmVmx`XXY}ZG{1p^
z@ai<K<Vl99RBciO6t@WZJb|85PP^VM6ePe(>K3?eKGx+L5EQS^{2I9BlU*`_(Wyjg
z6dgh#6~_~<Gj#MSpHkHiGB`eqhm7Gu`+@6N5_GQYeg+;;(<k)Oxzt>{4oe^D0Q{xq
zoqQI6T2WM4U*_+0h}V&L_PjuXpCe<u&jmsz?@GuitcSoYpm5G|xylZ-fzLaaw(U+8
zx6PAegA{oVP@iMbT(q$6$rSpZ|Mc;xc=+v4PoxRg-qvkY-=Dmar@27KVT3o~=#!$!
zQv!E5y0X!0Il3}M<<@zQt`uLN>C^8kIlA&df=mhNm20NvHg{%qE9R<}K#ybQWs!N5
z!?pBy3850PeJEwYpq1QvgD&FOJ}u5Z-rw~btGpE1^90#bZbh)0c;U{0?~2Gq^t$nF
z_>`0C#Vj~!-u~%8MQJKp<Mi;63)CLdsPKN63iy?4whQ>>-M4ky*7x7cQ(nzOhFQ}p
z5tDrOXa-OzDg~ZIqs^c=v8Wz=oUZaI5a|YY5W%6q*!%|BQ?9qr%Pa5A+!eu$9kQ+1
zkNKbnqs}cDY)$PFA42n$JSCjil^=7@#afx;VT7+<ZTjhU@91A`!&Ua{cQSa|J|)^+
zwE^uy;84gusJ1_g+t-OhN9aIlv%a?0nv8-J?dyh=9G@P=;s9H8kuI412FzAVVFVKI
zr`fT=f;ha~d^8f9C`U#1ifa=vMf`~k3IE3XGDEN<uvRz=tl!oe3_;3;v?tcIiZr5G
z>i73MG?6Yu;<~`N+7-3~UDZ)~cOyB~KOj(G=adh`%94;V4A<M1f%>SPktxs#E#g3U
z6&LaTA|`ExM1960ooc_DO)RAIDqDq=KD}CXz49w8lD<T!6V_^gGRAK}W8BnSo0o~s
zTBE9h%*rvR7%2{*4jXF8cdRRJ77(8gd=Q@Gu^Bmz-}rvX_lN2$jcRe&G5cq$gwy}H
z4>>*y!g;0<a7gc*s0^5M*3b~mWxu~MPeUP%aSOTXG;0ceQ#x8ORG*Tn(C9o#p*%(Q
zT_Vt077<e)zxh<vA?@PdNP@`U4Y46#BrH#&exNo7F5|rplMc106Umf&k0{|*ybP3j
zhe%_!1R(CU)@;yFkYG<_z{Q6dcnwg*$1?w_o7AimDeV9X7S03bYaWY=6U~VEBWb8W
zDvlWwsUK#(_rpfz#XpUhOX-v32rbb>oZA}^*9*I+G=4CVx$~yv+m%LDAa5^y0D*0E
z2#oGq^by1vO+Dngsaelw2S?Hcekjv`RX(kpxNKiV1}3C25X6$n>Mh$-MBfG;pDzqw
z9Fw3UZQ{4%ikl+JyYeeO>ylvU{zgp*C_zjTD5&)jIN&p4s9wDwk_y5>vB<ig4wcqb
zd%HRF8Q=_bAp+H7Dzke-sr1^QM-C_5yD;qG%F%XNiJZKX{Jpgwg?OW|fbdMaFNc4M
z-rI1XBTZ$bOdGdYTYV2g(4}_YQ!v@a3~xA7!7XaVJjrsiq=t^Zs)erZc`gE|0l}W~
z%Ft>suFrPmkR2PP8k3<5y7q^dvLK*W`j(+X5#DbUbMj#40^e7Wq!9r*A4KN{*3!N1
zCbfZGTGr`18?68^K%&|p1wJ5t8`$69{^kZ14D@C(U*7+kJ51+-8ZST#_k4U$rQRa6
zB-14*7NI4di0Ben;X-z`oISzXCDug9uxv{VBaWs4zP+6vjJ8(>B<Hxe>XgF8eKqk<
z0m(^|)+Iu*IjKZ&BN$dfi+V<dwLIjA0!({I&WQG<1;xQ@_lZ);IDFRJ|C$Hmj~Dp|
zB=C!`?+*6CutLpun-AAkuDtuR4xVp@9JZ=z6S_?0yi_Nh)z1&a18}_*jC2CPlsrd6
zs<>t0aJ5JP&A-L&!mE`Kbj@#xW_apIS+Qpl83Y}KH~}PmIapAC&CbH(;b{dc!1|d_
zlZERh$UBJpaB*hdl`7BF*jc3DKBS?`&$@*TRROmv_A~u;N68v1(Nx@BbQQ1@Z@D>|
zx?lI~w8~r&R%;<2&e(WQm)4iweA8$_=VVYhGg&KfO3T68Wlgsl>DIP3ouYG0(xC*L
z$ksA&7@o!gg-J*nXLB)odYz7`?~#Pnx?QRQ$R|UrFWD!)od-auR!!Mjr=JFndbwLI
zYVB01PBu5xy*qiKPh$T2aszo8U-rv<YO3tt$gb&ws2hM3+}W|e{j;yXr|=+=jgE7&
zR$Dgk*}!3@j<Q2`nBvYs=1x6V>J=?pbe8E>d(*U{VaNLP`wZMboh9?2fSu!dDz=K-
z0<rVr=CMo~Idoc+K$*URT%7(O8!n4P$}kzJW~XFqWXcDYuoDsO1i@0a$UWv}=V#C#
zi65eDw<F9yb60~A-JIQ$<wTdd$N=Agb6<jrfo#<$PQuDR=BY(A+kB>GltB5(aOWx4
zj}{EfKs{iNtO^QpBF?V}cqAoN<w2{orTa*YC`KtaHJH0`O)7cqLDA}y7Yp1Q4G-u?
zCXvvWNdQG_0H$+H1vmngE$=$LnQX6nt>?0v22}u2M~DKCK`=0v76*9=SVyzd%|{d1
zV5B%TlFmt)f<gfH?h!BMh_Xf;oO=8FpKh0YgF->*^KSBj*wMJ*38F*9k^JRH+ix!|
z-MM|^*1gSJOSkVnxc_i#<K9+t@BS8_(EwG_MraoJ#B<ieLK2dbi@0zhos{v{r4_Zv
zS^;8p;9}3)INV$#uI)pV4!stsB!}t7`1nP%3R=E#v04A%gY}gwYgg7(Gw}#cf$nb7
zAR9*rLA3lgn$I3Txb^VP?R&py-lk99!O8eKYeXk}bT~a)1;KAOzt{iZtxHYsttTfZ
z$JZ}ke)jCy>L7QwI-cxbu75l^(I9W~*jw<;18xA}rYZ3$gt$*Vx%Mnggd9=GM<Me_
zw1-{-cA%7FvIMobR1a}cfCyC7JJ70&&yl@!Nes#bq}%|i6oQ%q5=Zig>ML(OByu;b
z_y7Z-or2!mq=Z?V<%+~mf<C&hdayRZrpD#lE~qiLbP5OR8ig?*jMrEPBXR(!iOom1
zH#eJG4?eqf_twMPn?Wo*m~-ixpJ2a&X|VhrSYCTySO#5OvN9UdQ=r-SG<3a~($W;Z
zCQdQId)iTK5fIaIK@9{1;#dRs?(wu-B>lbl3~V&FYHsrr(7<InZZ`=6>P;97{7SMA
zEnP-}(#8Gw$=l8E%n?NIfwxjm>{Mb7j8O{9uEY??fUxF_A@In7WLH-ScWl?TU6(m%
zZjcB1lpCn~>Eno9Q*0}#(!~q5MD6ZdF=yVZIB6c-*|@QB=f-)sn&ry(Ke!~;)PJtd
zBh9019E?HF)`a_CcMle`DjH)n{m7iQx&u^yum6GgX$u^_8TM)L#MYHu)WJ%KV}_Q#
zqW)or+vh}jqKra7!bSnc={7esk;V}t{6(NpyNOmi%8*gW#qEDE%t8dQ>v;)jAKO=T
zR?<pt(w5QyU~8b?`~n7wa8*%P-o|AcD<y##=SDo-kv#~T5Y{i6pJQJWdb0Fli0G;;
zi2eBPfGbse>Ht$f(f>*Fpj$8x3!0fx7)YHTbDs!t9&j+gfx9))4YsoUS{}3@xjR4{
zKIiU_y_089F=T%tf`<JZp@A4=LHSMvKR?H{)0F1>L(W97bW8J;;0wQdi#=Ir>>^0j
zXmyYmFcN8DV;te1HXA1)q$Ss>#G&fcZ$KkD7Um`s!On9lJ?_#}v-OpiE~$EbUf^hX
z+Sw{iv<6<cLhUOWetP-jyA@pIr>p3rgU)u|==rzYT>AkPlH4se;;L2?fBHGW3{VW(
z>X`Z>)Jjo75+gHGdsY&Bz!l*s1U}|S134&NHAa!z>HZV&y--DO>%nIqA<0Q*tv(y1
zqF(edGJwt$l4iQ|kXW5AqUcaHze=;B6@p&=q`H(+msPcrB8TrULy@6-l`{`yYxhv@
zVbzGA-ut{M4Wl0f@)FxJ*No2TlaSSV*9xUjD|sMBwGjG~(#gB<*_Fa%Ihsvc<(u(=
zk@mjpOxKURQ2qic%=c0Z6)tAK?Y2@rsKGn;a=1dFQwx9q@nH_+9Tl#}Bb9%}oj#9l
zZ+&+E^Q~s%-s9%c#>0o0c#r?YrUQs~g@7d_H>e!grWj0Q$G9I28vVv+Jiqbr?K`)(
z9?QJ=<o4D*?pA9)x&M$$1RiWW#8&+L&c?&$!RHSj+~2%KI2i;9R<8i9^tEr2pymKO
zj?jRF)UoHR{!WVNv`<$*+qx?UUvkfPL8tXoWKM|sS19)VqtmW%C~_k{eQW9dPkw9v
zxAc=H{<S9T+czes^kAN>zg?`^>lgE(Kg^#!(RPk?`#ZDdZNB@HrTa~lzRi29WFVh#
zviq1A&;r4eTPH#^qT=I;Z5gX&ME8s(+_QXM|H4~MbD!P6{pbnRT~tP0qF@}9=+{5h
z0-M|XPAR%RK@+bw&Bu@+jP}g6T>56?E}w2lYmb}%m%aM{h$34TwY?evQBXhy5kV0#
zD_~Z{oG|AcQBhO`#hfvZIgVq_Suu=R%mFcD1T$vLsHmu@_x-B73GQ+3+%tRM`=9d<
z#nTnKs=9jRT3uZ&Z%g`&dQoXg6-9Ym*rncJX?Ay&R$yKEp=|PqmZyvhC5uw0(^<k!
zY9*b6$#H4TW!WL=Py3ueS_d*wnBqac6(PyCdSLP;rO97Mkksn#$}efuY*0;(>))7K
zGN}K-e-=vVV2<>#MkZuKcH}}H6hslYqcprx3Dr>pHBlG!&;Sk549(F7ZQ+Yf=mvlE
zKu`2WAM`~(48w4Y#u$vlcud9=OvN<J#vIJWZ&-nqScmo4j4jxP-?1Beun%E4hT}Me
z(>RNBIFGA{#%(;nLp;T6yu~{t;1j+e5vJ*sGDCV;A_FqQ23cSSdt`?b+>i%}@&DOD
zQm?gDK^r^&LS>zlz4mCXA9Yk5x5S@>sl0DF#<p0Ar+5a3^rQ#WM>i|t4*hWmCCD5N
zGAVU5vr;$glv?dToM%(&UUuRzhf<$YW}W}w%=?tDlWHa|<ugB@d7g5$$0=v-rJT9-
z)0wE0&!n13wS!A3S38$-=ErH%EUH@<zlubPHr2T+N2N`TsJhfJH7r{KQ`W5atVVOg
zRHu=3n99VmZT)r{mJRYGNK9>6mOLeCL1mTnR}h8ZiJ~Zhk|+x=R753IK~>a2T{J>t
zG(|JCMjJ@_X@^ee3_o;5PXwS3f-w+-Fbu;Hf>9Wc37CjUn1$Jxhxu5DMOcm%khHoA
z>#+f$_#Jz&7YA_&$8iD?IEP3?;Rf#F0b*fII=6u>GQpVs^D^y?@~D7{sDc`(g*uQt
z(iH!e937V!m-r%<hq%OtF}D(<Ng?Fh$(E<IvA=m0ZCpL$4sCodAfq<kH9SBYYf;Vm
zQEst6&Hv5hSbHJ>127ojIEe_HLIz99F<8R}Zpec|D2CGTLIqSr6;wra)JHe?!-Vo8
zCkmr0QkEsZF+UIUu>hNJ08+*r#YtSmCESE3<xX)(`BMok(FKVK@p17l7-B)7ML)dq
zF!n`!<k|R$<A)>mpN-U>jEvvDVfo_uzs_9z%h>r^z9XEp%tRq6V|#zeZl1LrwUDe+
zqmDMt*Xx`%p4aD@Hr6s7TP*E*gDui_EUn)nX^A|q?IUT)a@%xCdo{+-^kHqZy}6jy
z(8d=s^wGv&0*7g1EgN%u)d$zr=C@X#sf~^Cy>Cc_HXm%BUmI^I>#L2mcxSuynHp>J
z#&pvshrc!-R;QdQE@2jcd!(IQ*2F6=ApvP^l*)lTa7QuR#|z}QCHyf0Q*jAbP@lR$
z>Vx(;0Uh;13mk#e5r?uUbr@&y8DH=fW_F}EoWWO^*i&G^0%cGZKG=reaS+e(60eXw
zD|ITIQ34O(N?nv2wNVG8jl}qbM8ohhL8hO^JiWybofv&3Q5zypMP6Yza$whiBcVqk
z*F?rIiC^+#(X5}hPSZms?ENKOG_%lI+4)P+Y_B~k;(S)aPt1ii%uAeeJUlPc`X!Q+
zWlkmSMdtK-v1k^`TJk7sX~jKb<NT#kg|+2BPp?{4!K+C+wbveHKR>44Zr;U|mxN0f
z_+co<U=^euUx)43j{`V^3n)bW?v2K1f@Y99zdL#$7z1zuH}C-OQJ>t@0&UO{-QbVz
z=!rlK#b#{531p!iQ3YGD3o)>z;>rv=XUb-zr=4Mg&KQbekhaGxoWnKT#K+gqA3l$X
zIv;iZ^z+l<r;mmo+_^1uedy}Y@X+O<i<ip~ifyYILZ2Ik^>dDHTg?8A<$}b9v0Nz7
z`?(eqT6hz}J|oSvd97SvUaPzr-*$;ku?Lwm?m^0olyPh<X)JVYv@NDJyh{wGELrqR
z<ay&h3iNHPr7ely<XF~XJ1K1$QYi1jrteV0T9PKcBwW5DO-{lU*${>kxPgbL;X=C}
ztFRs$@jGJi3?{kQ9+}~STquXC@I_Z_!d5JHRcZ;oA#HBz1B}F4tj7jy#BMyqV?03?
zH{u(kaTPaEJP&ytB~c6Ou?5fY0?y>FTquUpD1%yP3SSJsXe<R~LxNV(Qsc(GKq3#?
z5SN$`8yB1KFd-&7=3-2AM0CRO0}KhVGVDDbyK{5whBdKklopSr%5TxeS{@|_u4ocX
zXv?F-vT>ZD%{?u~@|R7+v+^j<YGYz(dCRmcmE3JCHS{%-mfw?NROTox*iKu{c<1m7
z+J2g4($@#YhV;_rjj7a_I*sLtq{GURPb5By69z}~QI;1_s#GEJV-e1iJScNZQa+GI
z=XfcV&zmy0qEeTu&`zsPo2drvGat?ish7IdCmb7ajz(GxY_8Oh7Mwq|{ImA|dqOPf
z@8>gdN$W5{c1!+C^~~es<y2-VXHu<}YUWnT)l$u*S}oN~RLX5GrJPB%TB@0Ie{Hpt
zYss|MuD@t=nkhLG$f6_IwPiN$j||JCFwj4nXtvNW^(<SMVM<E~Db5aLFIvLX_NNs}
zStad%hC6Xz1|2a7!*B%QIEiRnN80?f2~Y#g&=XT&Lb~aO-WY}Pn1Y#@g?X5d8U?8X
z&;~uw6UT7^B}sRZ_R69<YM?&+;Ex`7g6GIg9hd`c&=&JB9}c8jNA!TC;p@18Z0@{2
z1Yta8U=|i(FZSaCBGHd@KLGQw7m^PSK*|WM1@SWBX}k=H@sEC(Pq=mY!kL7V31^OJ
zL!#j^@l4{OGmp+3Iumv#@l3**TjbX3Wu9ocb9(Q0+SpiU7<2P%t8dzJt%jgf_*qS0
zV=*eJCNSpkKQ4WYWs|XdkkY8Oyst?3d(sZX3A{n}qSW&!jj~vX6|gQ&SmG4UBYg?N
z9F<TT?a&du(FemY9OE$&Q!o{CQIoP|C-#@3F9zpv4V@`(q|E7sDVU9Uh`~#^m*IQ^
z<xl|?Q5S*egZ|is>SZavuo7$W7Vq#GiBObj8ITc~kp;6MW!-Psgivh8c7)^OyVviY
zzkBlT$%E(GaQA_6xcT6wOh0FM{p2}ARPu27`Q-=tLAH8w`eXRfgGZ&ze^_Ih7RzVr
z9Q=dWmN+-o@^&7(wKb&GE?XMYPt%;^w0SMtvs^0(7~5qxESHV}=Bt&-{s%3JI`W<}
zvPWA?!z`qyoOeWCNSR*{UMPna=!0PxjdeJHlZb*%dBPFi7>-G}k0<C*fpmt=*oJdR
zLw#a~Ovs7+D2KWTLT~gzFm_-kp5hs#E=p60!VVws1<NZF->{*u%z{gh`syj3f!04+
zHZlJB{W~|VUE=@R`D^i~c`yn;dj4oQO~YLWcWvDjzjo#6^QYs*f;-Cim(&(aYL^kd
z+SyprGcu>eTzY%|P1SnnYx1PJTbAhSZkdwU(Ta4&S|QKaJ(x0!v0tZt+PH4VKH7Mw
zt*tix<MfhrJW1t6$`oWQVOrLs?q=VT_R2|^yvGNWsj5_E)Ilrwp)1013s3P0<*E_C
zD39u>f!b(;E*OHL7>jY3h^d%{0=#x(G)D`xL|e2&5A;M3dLsnV&KQd+n2!Zmh;z7t
z>sVYvsXLJN$bCG(JH*4PChbNPMj(RF8-p<f6Mgh;m{0GG!yB1;`RUE4_b=bPfAgNH
zmya3lYme`*N1lv4b|{Sh-Pboq9@`MMJ8buw-D|?goD!z4O@G(MsoU=<TkFPHFvfJK
zE~B<Z>T+Jz($Y^-O#XS?&UE>twJ0Us+4~z)i*amBU0NEYRjOZ09xF@xZ7QZ=0T$vA
z4&wyEaS~r)UW-0@3`8U@B7JS@19+e~hG8<MVjAXP0oEZ5v2d!(xjCfWI0JL>ydG(-
zzP=sVlW_n-Fbbow0&8#>M{ySCFrfkaz!FINb0zknO+)G-m^Gr#LUV-R6rN)e?Nn*2
zPR9mp#K%{U?%lqA`|9nB=M2NCi|0=1r>~y6dht5L$5)40Y5(m#+OYrQmW}&2?$L(*
zA0H*PJ4p$t%UhW<mgGxp7HKiArG%vT?P5M4X$@npH>MHiIw!O(jPYpeLM_Q_$Tl)g
zop$~;r6i@lq*pVR3svNOJ2#;%g`99fE)<6s%3)<w&fTyVukadQP^}sH9|7o#P1u2*
zIEk}}MK5X~IVT9lL`*^);*qHZbuR`(&KX8vHs)XvmZMBd${UQv7(_wNEnXuI>09x6
z3tFHh_Tm(tBMxt2(wg=vnxi#>&>MZ*ke)FcPY?&ow&W#PL+dSy=gjaaL!3N3lIcf@
zk7(&VN_Z6aNSb_1Bs@C9<jG@k42Sf?-pdz`B^=wCurn?}UphQ#G?t^a*V=N%)G(#0
zgBFMNGG)-l5;GE~(mV54;?@|GvaY4gK&=#zlLmW#?bLy##`I=vYZyx)dA_EEqlC#G
z-fNq7^pmuw&EA1?Z(qvp&cvM`ZLDt83s{XC$nH=79+u)U3Up^43vmybdr&7}EDpoG
z=MU$B?~OI7j8o0TrF`bUGV?s;4j%t>CMl=N8b6=8m2wBER{QxgsaE^<&ZImVI!C*8
zDcvrV=8sG@Yxx^f@<~wg)SFH<4QGN2+s!dNt3|%Ho|f>kNgB7oZb%x~kMp>I$9RLc
zNI*H#M{7tr$xS*bj3T&!@5n*AsezVgk6suDNl%;c6=yrrj>j9kMIyez%a=9>`k_At
zU?8?*2kzqmbe%X~#0fZ&K64{K%EAlfP#ta11>G?gE3gvbNZ*Cmg$Zff7G4N|r1jC@
zJdc_n;da9HgsbrhR~fEf)rN$t=dYem#MRSR6OLXzy8mdx)kKEViTWYo{OPM&y^yd)
zX@8Wr5()O&qcO*)wJ)ue0-f@&`k`GYOZ4qRt?!1KT9(*rkCMM-PR3evGM?^k@@HiP
zC5@CS#@99Gd#w~Qlnd45{m#Q7NIq|kHjuo&4U*rVK=OQkNWLEm$@?21`TsexlJ6ZL
zWkC_NgOmwDkaA%?q-=NuDIfAc%7{9Ua^e@PfRq;}AZ3OXe9!_R7=<aAio-aH8!!!E
zeK;crs-ij?;}=Xq;`_umFW)@WhMQL&zPWi~?}>-M8y3jo^($U#&;I^q{+n5E=JT%~
z5s$>fkebVg2Q6z6r?v95G|YL{&aOS5(Z3^0<WYKxljn@j?<x>(+}_^aU$U({Q_^Bo
zm4d1_!Kc0}Cp&HVPoCu%WGnr%@*2r=+H0_+Syq>nM@0;4$HQ1VZuXGP!Im|&Vu7VH
zE-T?IVJu-Q;VI!LVJBgB2C5fr0rbRjTtWIk>V5=cC9c3Oh<L(zd`H>doX4XJ#-Mhe
zAL@Y5>^tf2fAmbM3hpny(-%oW!^D%6Gxt-@7^b!I{D;r|EwU(US{v<=vQE&~4oNkJ
zqr~%ELtIB2;yVLzEOA~567Pc`alaW7|MwtiAS)ytG=ijs5J-C121ygK_y|cG*<efy
zn@JC0*pCA^h(kDn2sn~fa>56-AZe!_+QT0Kn2Xc6jvKg%M|g{Oh{woa(jLa*7>?uP
zyFVJ9Jz(+OX!+ppO7vO!_>Ujnr+qZEe6@avm>)6U5ZFm)@o8I?HI&xIk~P@<nN}Wa
zXMf}{`CM4?s{Zp~dGwUeA}N=XrdiAQxvUm}%*%eIl%LaSxi&U_j=Qiyv{u&0dejAS
znFniWpAM6^Lu@J=a=*M{@|;#Wu%5B(N?l5nlQ4OY4{+|wxpY6yr4Wm!c!4)~iv)au
zNq_oXP!L|2kL@^$-~rV4n1hqJfC;opUn3rk22n1f89JdewqhSL3?a1Of?TMH+L(-)
zn2SsJ{Pxwe$ItG|srZpS_n+-}w)NT8S6eqRyxO{M>D*b<UQHV}Y|ykp)A~*0X!U=D
zK*HcNT8QOtyF-f=IrFynmpLs~2sQl@X&7ls*d~2;UXQVPFzuV9HDoUJHu^Ix2W?$r
zYIsroq&8nOqrR5b8eHr{=2N5qQiCip?oa=0(lI2hFMCbBPRiHRQX0oODsX}Jn#Po<
zrKKNJEUzfb<<q6YlD8zDB~B##mky(yHk^DvlD^+j^Z}3NTxtyMvT>|4f%elc<lBk#
z<xS#TZ8Bxk6w=F7&iSU3HfFHiEY_Jr{qZY(`M>?;GXK3Xo@AVACNAYO&r{B%dgkXd
zsZIh?t@b(P-crrnOZm*LpU$M(Ce=(-%573Tb1CIB=Tgr6IIWfHPbwBNwA@?E$CcW$
zm^wa&Deck`ZCPl6a)xF5d`t~fULAioOle6^TTe^;+LV?|vr2xt440vlv3LbD(tsyw
zU@B%}A(lYW#|j+6VH`sa(u+TOArX>(97oV*ga^uED28D?X5x43#{rZltyMq|NV*F_
z=@7~mNE$4Ix@e9T2*Y6<K|#`|q|w4ChT^D!Sy%$;@0HJU8Dj5Vi{(<POL4KME}b~S
za6ldp9C@*0>-w!bmi_kP$bs3+EStLQ$ZX<*Tw>oor#{b-vt&BC1W1`b^`%C5;{y71
zDT~)z=OTw|!Oxc3IH~NAIb-Q!Ea_!iDP?93qLN8kGm7&U<C-#^{LH_WSplu1lGfFt
zn7wI{&Uo;MW7^(>2EWqA#&S@$DJ@~N2a?Cn;2fSH7Ur}aY*2{2?}3i!g1(UQU;qYT
zA|@deTW}RO@Di`_ems3ClpUGT2vUwTMRNoq2$Qi4o3RB?F^aNgG*)6gPC&|^2%N?Z
z#NsKQ;Ty71HswG86hu*!L`NhhyncN9x}4SF`s=fF;vNdSirw3HA9}sv_VqPkGF)Z2
z{(8gW4O}3`<gW~pH3>;$$^MhtfHhjT&yXUXq%=0h;FEx}+CGBaNJp$`EUC5ZniS_U
zXDsFQ=}Pu!+=rG1*;b3$q;38rEhep#GSwMVTS)QU%1gqfE4m>Fy)h6Au^3^H^8O$W
z<1(%w9*HPTJ<tyAA$7uFl%-y%1gReu;W2fD)Dsre6GJfuzhDs-L+Xze*nyq+g74D^
za_W?Hu*D8Y9kUmwa2jXud4|5;v74!{d!)aPPiYeppWnZJRqMq~JbpO-@bSavWOR<v
z?(JL7#jjhnF7f!n-HE>?PUC=o_#=e1A~q@XWX>1|v&>7Uh~cDKnQdM)YoxW$WNesY
zX#+b-$e+g<&uB$=(rd|_@wJRs1~%?aiOQNkNq0%x%6h3&Ps(^VrXFL;lVdL~_4Oc3
z!#P|;Zi+v5c%TOQVFpa8*K;Ee7U2Y>u0M?!NS!|g8}SOCk&iY&2}oO@47^YawGoLZ
zsCo43zyj%!2gT70t<V~6F$y<v8!wQN(lQIiU@BH)4c1`;j-k;4${Fm%N3Gd-=h>b6
zGTgZK@!Y9n`*uBMIQB90+WM5k>c^|sFK4)R?Bl#Sk9lu@8iQKt%o-zGdT47d8f^KK
zG@@1K#FvciwMQ+!sB2`2G2XSRJ}FjZ&iIV61aiwnCC@9m4|3GTPwX#g<3jDcwDC{U
zRMI}BY>|C>NxVpyJtlmfNEo5vB0fJ~Oxd}V&w!Vc7FJVsuO$y+Cl0}J9qXgR2HNl&
zsS`HQe%wr)ZlV8Y8)f$Iv<bHV(EfX$GNYwxiak&HOsW>!y_C<Snz@zona@9+iAwp*
zUwqM@@9pQ$5CO@5=aMIX2!o&RAmt`9t#7ZH6g5n>^rI@(mW^}gq*|LQU((6AUZxU;
zDec7Y53m21-eIlk(6-f*QdY?qk6?`d4@^rMNPz7^&fQT0<xv9-&=8H#7)>x0H}L}T
zko40XJ+Kgqk%shSj-8OSbp==P7GGhpgx7;Ns$d9~!jm*8>980|fU7T6HAuS5hXSa8
z7Z|;Q_5jkXl)64X?&+hrdvTBA_(<>i?YOH<pN%+9O>jJdv3}TpJYrYquF&<nmi;z+
zI!zFA)GVK2S`PBA?XHc}R{EfgT?YqfdD^<CoPEojXYFh$mdJ8#3H#8Zg}j!VNYT$}
z&ydUI8RJ^#YnIaXe4@_|ZG3ysKy55rNn209wLBWPIMnW~wuZ4s;9Hg;ZN6+heF>F0
zV;`*s>TEKV*EL=@ZXAa+O4QaiwhN`yDk))Qioz&@V(5U*n2DEogQ!*Xw^I%jfs_Xx
zD2giBfP<*8hHG)q5RK3t9k3rqk$^;`qx`Uilqp$Yk36W1I+%m)kn$!1x9|+l@d7WA
zg|f#1QVuzz1S+5+h<mxjBko09?8CS_S0%PzXv5(M8SY%&9s447d+e5tTh?w_xn=2=
zxl<?5;*dXL=%rOv!rNJkflJozgroGBq+TM+wI#&$O4}Bx;>39MeM28#ZMiY@yB8~)
zB32~}8)LO#(PG+~3y0U##<!JEiZx|UTk~I2#1H97OE(;mRy;7?*t&?ezfU=NXUuz8
z+}6g%6fWtmgoIZmG(mgxL4S<FB<w^Oq^y4ill9~;6hbSk!CIWgQzRk{bwWB6gExFo
z8%@z1?IHC>Cj_A%hF~a$;T~S%E55;u`XxQwQ6HTkbxv0d!*Hy{CLG2wd_)fFq#CG=
zAoPaRQv)y!r*Ixm@Ep=|jMG|=Pwpfp++gY&!zHc}Vn}#$=WO_$#A|Wa;<$F};L*4}
zcM{`o@MV*OJRXeSvt{FrjW@JJqz`SaxF*hIY_C0PDTX*3+(deuNMXc@u?+C8ur+n+
zV?BA!xZbOxWwiAr<;iwhs!Q5?$`q=9J=vdeTVtESr`>LC+pz<OYh&4}ioEYyp@b_s
z!4Lg00Soa4Z}ATA@db&Hy50uvm`t5N0}HSW(gwJQ%Xo#?$jSS2MOD;6L#)Dj?87xg
z;|6ZyF$&X;khX+7JmCW!?FuVoMK;t#0HnRK3Tv<%S8x?Ka1(bCgKV@(xW0$0d$_(w
z8=i0>7{imulLz;0zqVbx*|Po3_BZ>UM6Ow}L>px4nl>0?SjNOdzpna{x6SZcTAtO1
zzRVdze@wswtxT5C=NkfsIMBvP@h5ZI`bkT&44J53@<V#j&M|o1+|n#aT3hC{?O8i%
z+L%fhOPMA|tEEZ$Cq9i_X-Jda5+2UT0ap}5H%Qy92Ldn}W00A8Dl2+n3Z`N@W?};}
z?&Nw7oWliN#1rUtQEtE#X^|Dq$cOr9g4Sq@?&yU;48RzS!z#q#4c_5BEJ@F0&>bFo
zsE<$qRnZVl(E%ON3mdQnqxaH31c!a32WaPviLYYs-i(Tmiof|PRxbII$0!-Xwc)5X
zb(F<><?=v=S6er1U9)0M;+jNbd@#;bI-Qn}Wo(R5nbtp(dP&N1K&B;zj#jtV#+LnF
zq=;Xc)3#-e#UpqH##&q^r2v^TrhugV{*W4sX-7+|>_N(fN)pc!j}m7Rwi0d<CMCj%
zv;CZxAD~V+NPT;Vx)+v5I5#`WbH^z&@%04Xr3k0YI7#^$!Md1);ivhm|15ROxgXlU
z?^EWWxRf)`Q_iGX?eR~ax%bm&e!fkrU8j1{pU<S)Ce_See4Se<4>T&}%%z{sBt4;B
zudlzFL)!5ADfxzP@-jK0`|*rHOH^80UrSEOt$uAvOF#}1*Ul)3ySN8S;yxoJ4U|DM
zNLp|}F4BV=Bweh;Dy+d?9KsPC#Th)nL%hUy*piMiBRgEt44ok9t1tRv3M8%B!vT5V
zjq(UaUr0K9g*beM?l9>L)e(ZvZ(crS_#7h_<6roE;`9DJJNBH}v-J$05basV)Ctx&
z@p<XOTMQ>Y&zd-H)3`s&bxFBQa*Qz_YBhG!Gb!s^EnvxC4z<VwjEz@v8SCNABgUu5
z+cIa&x%#tmXKkylS@dPL7O}jJjOi=V&fE2CnEO$)Bprdw8IP@ey}{Z({`a*+2??(i
z*n$0sz&U({j=Y`@=^^<(1FVr7p*V_TNJDubWkN}mMgy$C5k%k=Jdg1l24gs+{4j+%
z^58hmK+2Stcnuw8i!*NG9$w=E5+UWzcj&@NFDQvpXpat%GO08C5P~L@Pt73Z)Ibcz
zbV!+{KVOiBpVR?~H>0QmWUL?b(^4ITCo)h29MC3S#qNkojCvKjaji=FBerk1^-d8h
zGN;8#QamNq&q+%TI9MgcoJ>oaNtb16ioM93F>bXuWeqKJC+*`8%Y4fJl<CEo{<Ok?
zJxKbjB=5h_DbD2~W%hVOxqa18b~mK_z7<J(4BIdASpoW9rrnLHSLwRLu4}a65Qe=s
zC<pKWv9P+y`@m>S#&1}Swb+E~xQ{q|gQB1`MLjgaBuv8vT!z_g(j;1<EtX?7qHzlr
zcX&-yL{*H#L|nubINl{qp*wmZ1alC9v$%_R6p5idf$kWKahQlT*oPB1iz`TfkFpJ1
zV`Ti&pnm-LMdEF3xR!X0vHnrN<c}UNuuifIOw(4I<?)JquNCynh59Zs&Jp+T>?#=M
zjJ=4mp7Ctaqpo}_J!uJB|LgTXjir8;_?5Voc$GMn_;ifsyo~sh_>{Pmc$7Gk_>s7g
zc#$}f_>j1ec#t@d@RzWcaF;Nb@RqQa@Rcx?aQw_}lK%eoOsd*A)y&`C_5Xk!B!#n~
zb)auC$TtDCDJMy{y%2~#7=`87hd6vh<NK7KXn}4B#v*LO4qU_~T*EzlhRFjy2Z9&M
zqX9aj8zx{fwqPr^;{<Nt4!$GJL(UJ7AB9mGb<qN?(GDHa4gTnkUKoTmh`~d=M!H9|
zJ5UjoP#INF1LH6e5jcbUc!f96J?1!I4hLj|BbuN!+Mqi&A{5(j8~5P$guY2k#HaT!
z4BswEJx)EByp~Ko(mc|}FPOfQYLF!_-lr}Pn7h$L`Wm!|{nyfg5?_0U^^(h!mg8dd
zaWC;JaVYU6aU$U^VJhJ$VI|=tVI=QU-lM!fd2f%AKbG@E?1Jf2&bttSywBJNHscd~
zXkX7qM$T>i2V|}Po^L@4gyi!HXNkk9hIo8th|9u;`0Qhd(=bE4rZdECOGEsgGsJNr
zLp%o>;(CW6zP}sdyuKmcml)zc3-Lb|laTo({Q=m4eK31PeTsJIgb18PhS$`wsD*k6
z!B||tW%zI^Sr-R!6b0T;-(Wr>knJsPP%OeKSij>O1MT65&DaIUc+O2Q9OH2nH;|8-
zr7#9#1kT_h%6%Yz;5uT^;3IvUXn`0!K`bgIaEz#hefXoR5dZeF7w<l5|3oplymt2b
z#?ru;_y46-XeW75;zHsf*bomA2NM1g_7d(A<`Ui#))LMV#uB~~wi2!qrV^eKmJ*H<
zh7x`fb`ow9W)fZ!RuWEsG2^gB^50+F=AYGm2;Srn)b|ejSpQ3WNSc+jDrr>Grqd_-
z%21imoClLHoHHRBUWxSe;x(FlrLPqp-`Ebdzw?<LswkbBhJHGo3N_KG1T;#cQ?{l$
z)fN9l(hrgJ7X#$Kk|F+g@h|ax#1Q9h#CaY=-2cvayCDtKGNgm$hP05*kRC=D(!^cH
zF^05J(U3mo8q!FDA)T}_q?Ln)^itZ8W{w)tO(R3vS!+l?bqr}}t|1)_BP~ffN;IUU
zriS!nXGl{$7@t4{+L-CoAPhzb8ky@<e+<9~*r(MgCzL@IREIBmpeKT{3hNMth88;R
zQK{n|mFyF{a1v+m1>cc1olZH!9gRU*t}l&^*PA~wPW;LE4$p~?@1jx+$#YVw-`6cR
zmg>wkwrr7N?s55wDdzr4`QJ?PqlBA;m4uIkjl9nRyoY+0Iu(sURyvhAgHBmx)Tz4G
zIyKr>r;23ODP2~b8k$X~rf1iw%g#Dg!bPXbyXw@H+=Njc*2$++4GQYiib6WI5`Qt7
z{|8t5ujHWr;NkqmT~pmA|Ivo}3x8S<ul9kzseIQ%U+O3K9VeatIZ9gX4~g#~SdF6y
z$7!6$HQYu#67U7)=}Gg*4kt9nc+A2QEX8uHz)l=OUDA@Isiu&0br+JhhC<SoBVzF!
zukae5@dc9Z+MqaTuQbZS3*IP?N@#_)=#LQ?1xc$jF(s2u6(-F}y7fkky^e;bJ`LM2
zu1z`~0!h!4;YOOykExgjN#jefopgQ)lHTvbhBTiQ#ZVlQ2U4EN8Sg4!9P7{A9=yMC
zh2gznEYtcqSz?sDgem&+Bod8%iFIp_HRN>Tl1x62la@GYeTP5v4jJ2ksmhS1a=caH
zM80)FZWMthydn9yK30*Z*JBedL-P0|Ody|6!8B~b7VL!N|8tNspai-XqI^Y91fUm|
zVL6QD!$zh{7AAgC5B1Rp!3e=9jKNs!!fxEeEp%|#ac>`;8i~nRfQ49#;|Rycch4R&
zP`oBRYI7go-F$eHMdwe-6~WsNZ4ZU^xc<=kL(A7MSf4t_5rW@ZQ&eh?$@lM*W%_S#
z%9LD7Qlh?mf}fSvvGGoUvP8d*@$Q|nM0$KX74p<t?Q&O0dw(tKI;8yesP<h!^WOf{
zk6P@?_jyvJi9b&t#<-{bpE{j*Nx3ZHKCcM*$wQ~Udg@fsVmdXjIO(~BPHiZqQy<X1
zH2EKu$`Id(hFe*k%7awJSgIoSFV3VY;C{YMs-o|2&(MjH{FiDbdGUX<sXw~IuT~TE
z>DSiK|EItIuY7i>B{&<&7bg*cM|g|`(!nQWB`r9@3C<{l!Z=lwx&e|-8ln*fVK8Q4
zHY`a$R&YQ86hw8@gb(^-03@Bo;SC%~Z`t7iPaG^sy@9@@zkc`?bFmKVA!#%I#e)}j
zqb{Gl9Ca+}?xDM3+r!AcVXK!fU|2nKb=cjBcPEaScz2|JJk$`O<Ol8c$Be(%ZusYU
zl{{0;ViI}noVQ#DMs6nm%d~!p<XxFd&f_vi9w$diu&2)dvP7T%wJ2d*EkbyW+f^R2
zN0<KFlU_rn^-JV6WG?wNWKO>yt^8p7Lc^k1TS}hPuV^Th>`W|1=?fuq3!Q#FwpSh!
zhVLPH{38mH#|xtY8ln+8pd-4$A5s?dKu-jqKL%hR24O75VI~gZFpl6TULy`~@D}eN
z<;r_hpiHR<DPt;Q5+*~+o2j^lC`j3pn{vlk{z!xQ`Ma3sQO~uu^W}FJ7*1Y3e0k@|
zO(!pF%Tjc$tXux?&DEra<lCxCOszGez92?U7VATdG|lsyK1TF0aEqEjivd|q46wCK
z>DNn+U&FKP&3LV+ERnrlEdGYI<rTGf*6-EKxK~-uUX$t@!#w+uDZ^dhCFdI!cotSg
zXZY)KZjJPC*&0(m*H(+PuE;%OnVB2%Y^9O3HPXZZRx=_^{=Fgh&))vuhk&G<YJc}I
zB2PUV{Au5L+bN^f232RhrKA(eNtFZssvkpd?zQK^Fi;!Zm9Of{(qI*&+*M~Dd+}Uf
zp6kwIU**U8{%jlb!+x9o&HW8-IV!%K^GKg9g-5qLJ}zHpcBfWv<l<(=|FJ-@X6Kc)
zx9iIr_EnX5vwc-y(i{KRw<(9xi#5Be00Jq9p!@UffA+Sj|0m<torC=2xRpci#=-X^
z9y_y6attTOdH`>$8*%>Q5_fH%z1a7Uao_Jh{CYnNL|*ovzkfpDpAh&b1pWzue?s7&
z5cnqq{t1D9Lg1ee_$LJZCxk$IQx}y<(O;{xR%w&okg5DEpe7^ZKa;e{e`rEp`~T*j
zyzl>$zyH(qW#7iI{Xcn~|LN-%Gv^vx-sIsle18-%h=Vev*Ap)AL?tvtNAyMrX5eSr
z$$s<G9~DhsNGx1f_rJ2A|G#fXm%D0-1XvKB4rq=M$U-!A@X?v}@=0eJh`#6tNwbxR
zsyE+F7+c9|+Ml_qPxnu-*2fjV5_Un{SLJpjvKL>*vM1wSS}R>89qY8#_OPYnXx2{0
zm*V~CJnBL>Qy?8lE~+R?Z79dg-E^5(#i=Z-yj7*VbU^a4Y1P^;s*aC~YEaumH9}j9
zQSBM|viQfpYN~R_x8Il38E9o@e9oRZKh>32>#z04xu}LrOHW=m?NPcaT~rO;Q6ODj
z^4FN7diQ-h<K(?qsithvi9PtScIx-<q_Tb>sh7BBu5{_s1n4KsSmG;-O_U}3%&&U7
z#D71+SS1}<T5UfrsxGf5-Kny!l^lS|tG+eh^A*Ncgi3h(ZY<+76&}+oYn6Fb1OXJm
zTn+WjdWF*IYOtQQVLeOMb5T`!SMn~Cr~WLCJbAr0DwEDrdwu=unXq^LE86mkq!L&V
z32BIgG+ZP2t%0p_<u{Gwh#gDM<T0&kqIDVe<NZiza&;+nQyMp&TNgL3)TkdW1?P7+
zt_1UCo&e+M->71`5-DEQRMpZt9;FMB*H!8BD$5#NzGOH6mP**XQB`yjHg@X5&<ZT$
zIxrs7laj5+Mw+w--#TaSCb~vCch<{dSkIF6l0zhUij7HY66T$BIkcn6XfNT*H4Hp*
zyGI`R;J?xe)kjxKS&=g~6_)stbUc{OZa+dgKugO#S!$&!6x3BIXd*WT{;n#p-xX?<
zu7bATgT4(|L#JBs=%&Acu;q_AhwVc6Hjg0}%KKfRW@_)3?@<J0(zb8Oqm_R9jJ^Fs
zSYQ7-%YS&C=B#IU9g{zJ9gZ*c>ufW;PLtdvwAX2!{5n>=4hL34HCHRt5lM4|!_~oD
zWJpX&{s~|R;zIyG^7WsDOIrPY^v8SghvRLPe7xrWdc1P+gz<Q(2Z-Uyy0?Z@o2#m%
z1WC2}w2(6?(IltZhIP_#?Yy~GgXdDCC+*KH*FHFrS~4?kQ#B~CpI>0V4owI5_Uqfu
zeNeA}O*7B*IOb_n{o}ZAV<LA&2k*<jI{N&IS_6j{zGUt2a9fcc)5n%bck1rI7ke7+
zvnbLpw@s(>^M^LuJpIA4j1IHkHGSHwz5lo_!yl~M82{x}fv~88MH{9WlW$Xey4mfc
zqFOw9mBq8b{54IVE-CBnFgsv+?p3$ax()6=+-cM!$8wnukEk@^@vi)@ro2Dyv*^w7
z$o`)ST2_l%He^hMhv%e|TbIRs`DEo5GS9N*#*@W;Td%leb2O&#)@q(<dyI%Jes|aT
zP7hv=$kM&Sn5@y~Op70C+wpzHXC6<?+eBM$+Ew%E{k9{I=lWXYX5*gjv-^I#5;nu#
z!Tq=0JA5A>3av=a{Qf<SN*z?IudRJ@m>}X4X015u5bPJw*TY>N$4<XM5Lr!lJ?_Am
zi^CgTI_8jPfXC_?RXtV?SNHOd^momEGyC(K4NjV;53?A%>h;I<<-cv7{OR7DCoc92
zHkco~U$x>H|9b<<9~wFO)VNh^^H{VQ)O-BOp*MGS*x&HtO7C+;v#<8q<@swS>tC)n
z*xz__l`a=g*<7k!{bq?yZX?&u?9(AC=e#A^VoKG${NBECROybJr>{Hpefu%bvr8Hr
z8M&qKqw1!CrRUV`{;<>Xbsi6z9GJ1rZ^M-wkvsQ%y7u)C-)PUlbM43QMkj#}Topf9
z-^<S<#bZ6+K;LeD!IC(v&eltR%*CeCz2VCT&bVH>b6EcBoqj*FIqZX~y2!Ee$z_+8
z-i&(mU`*-rce7kwSSLfP!i&;onB;fP{g>Tw!wRp>zV3#P(}}_X_fFb9emcnE)Q+i{
z@79Xw+h}<1t24%h?!4`CZD*mYxn38(-F~lIkMfgiwurs_vB3T6&kN;EZ&K!u4}R{>
z(ED>~Fg481mm~h@;ET#(zi8DU=w_)bhpeLqy7UX`oNs_*+WwQGw=FDEFZ=Pp2|2n?
zoEzP6MWsu%hG)O=AVha;pYH^_=w1_i+l;c0Uj3!Sb*}*D$SqrIHlB5&W&2sBq9=t`
zaLe@R!I$qja<1PP_3EURbEaGc8r*3AHTYarw>N_;&EER*c8(7op@V%2E;60>X6%jw
z1!msaIrZb+ut`zPs&yLOaky(#pPQ5C)Q<XX?kekJE!#gXP^)9$+3Hj5_D||vz$U>W
zHawvF-sWxEO)6T?drpi)#2v@!>l;KioE={(_<niwEfZ%AIoz$&vRawDjXPqVw*S-_
zO|JWyICr}CA*8|K>Ej<Bd~0*8@sVmbH_l(Wdq<!C>9%y6Jg@cET{|`hjkvxqpmOi6
z0fQ#>Zt5BOF?(pCHfF=qbnKBM>iPS92ZmI>ptimqv!?mnV&`g%483!z``k(&`Yai+
z``V_GZHG<#c6!m-(E4jH2l)Noa)o)9oZ0&(?7Y#VbKmPnvd=hC`bpf>^Idm`J&VZ@
zalgfrxUYpmua2Kwdf6`*A9l<b>U`sMw=0$r^R~aNo#1#lsz<hA<461FUr}ef!@Ful
zChc^%`(TB&%Fw0dMbq`&YllZq$p7m8Ah-P2tm3?mtj<>M;hDX;&RN##5ZQF+0qZ7K
z*@~|G`0UfiElVm^KWV+hxnjc8gnP#xq^;Px%J~hw7L9$>%;V747Z*<ETv>6+h<9%<
zX1zM7RrvSM$MPLYOdMR&=2Ex3=O=qCP5kiU)Z{G{zJ3j>X%|;-R87Bx8R6AdEPQD3
z@|{DL;?4Wy$(Os&LAzrXm)}l0=QgLzkp*?kzAl;M6o0Nj*ZBjT%6c8&8RM*bv@-pm
z;lUSd2iZ)VxWaDHz!lNDSHb7K+BR+NTk~DP`Gd>UI@;rLr^ewgI}dAlB5ZQzlZOt}
zO5eY@b)A}T0;@R{{pe6XOU7DNvRvw$7&0UM%U6w`Mfd;h^XNJin#a0VcdlEgUa?iV
z^DXE)c~^I<5%ZfrwfZ(7VEfRt{mX2;G-R^VKA(v6XA6$and$MoH(pEfJGGeUbbsEj
z8AhbpxUP1@k){cLZ5tGf>*wQ8^FWACtDTSMs^N9&-#yZBTfy50&#c)tIm@IRO)u^r
zRn{Z-?u5#vkM?Oj&N<SpVCRZ6(%P(Wc-g0!+1*Eh<6{TLrKxYf?@Pu!)502TG2h)i
z_LmZtHsy=k-uSKIhQ;ZfE<b#Iy6DP=(|cL9ZCiG{Ny7c-C+%jw-(`QlUi9n@#eBb1
z`_yi1xmNwc+M33{+_JaLpjj_$E#7^a`lQ{d;Vps>d>?kI-JA>EitN~aBfVdXj~R9q
zC{-kQ|JJHGnuMG8I31Cp`+_d%zEq2xQ2D_5MHy@L=~O%SptH~Rjj=Q<)pJJ7v)mh2
zR36*Jf9vxlc{81!(l39b(|Md;ob8>b*VGAl+g<PM+a#w$K=~OhU%ow@aZBvI#I_A*
z6b-BApK)o~m3H-FHl1z0xl6UmFQa^$M^#xozs>Dmy4GHNEVN;^VP&>BTG?M4Yi?Tk
zrb+Ym<KFG<njvlGvp&mS27bJAt4O$I)~Bx7?uB%zaB0YeFY5vq%{e(~Z@Q4^^>H&R
zJY3vqXQthA^L{bEb^iXUVqxJX1NMHrbG*)A(+m4oz57tj>-SZQ78R~sv)7iZZ3Bly
zoa}xx`?2}<IUZ!$@818ygjN<=s~*f$>P3TkU1vWk9<(d?#4WdV$4ZXd`DM}3`p!P%
znzm_Kqg08rP3=tzUtF{)@k~9>=hX{z%>A|Gs+O(BbWGq@XXW;7&hwz?n`YOqueR+~
z?#qH-8&_yl&1yxA#nk9(FFN-=l(AW4zGay<=dD{k(xdnEHKD!M+`7LgPrFYaPRG0`
z)3y89?ZF$Hl(^8vvh?7#5gqT;zCSAP*Wa^0I=^L7txuMXS38A&FWxMEgh^?$LZd!}
zSV!$K$-Q_>uj!U{eb!a!UhV6_knkf{GX7$}XY#o276tdzE%n{3?3M4m&bM;R8+z~X
z+7I1-F&+2Sr~2p_<@49c`?-Fu<`+J=*O}!vwr;gwkN>*fZfLcP>9Rj_+_T~10PE^D
z&(<vH;&(Wve)!TaOZ+19U#VBW?A=9<jb9unmG;}y^C$Bb&;RI}@8!scA3UmUif;CD
z$ae3$L(fc#o!DyO)rjpT^M2hmy7}A>TM8U4ySsIpZI4T|4}5%dRMsaY#~)ddtM<Kv
zX`fcy`n}P;;$Qr#1g)!j(0ZrckqPGYtd5$m_&lqZ_YC(L1A3cIo$b8i$f{bcE_V%`
zy{q-XRvmh;Z4+1CH=xM%R*A#wcg}il{+aWqPE0N_psVl6YXbt7uRpRqUz053!#`CH
zFB3lOQo)h^@2?yh6I*1@-KCy+>Ukb1ooCeY_fGS?LmuvSI(KR6A?m4rZEs|_IAiH9
zp5cmZmG6g|OyBm<s^k=vv7s$eFa1%^EMq^89%vC1ba|i6%)GaMi447xX6(a~8A?@j
zYxLq}hRua7+$Z=RoZmg{x5cM2cP@6PsQ(5>3$LfY_E~VG*Pa*CDmAvRKk<6GE?YZ}
zo)%R4rCqm~b@JEC>()5Gd(nBp8S~Yiy(n^0(@!Cr%dDK<{Gsd0HI*a6B7HvgAHM9(
zLfx<vZU;Kq485wd&26~g`}VJ894B`3$Z6m1TcgT-ua7g!zaso>Ozwpn>YAQzvv1$=
zyGd_dXHtZ7l%KUrSuMriAGA^%)=9mCA6sk5TXUtbO3`-val;>5Kgk<rp^coP6{K$w
zr3n5X_w-{^BzaF4|7cHI!{o<({Fn%m_pvZt>ZAFSB+;;r87(3?>o!yEc=vPD%ba&b
z8bU4u{DS*-4+<>rTGZXs)x|Hcb5NJ=f!)fxHfvg=NEug`zWsayyZ8nK1^ShD9qiZF
zwPJ+~>AiiuItK*T^X=`z4g&jn`IdL}@7J%lmxo8+&NLN$`??49_6y{>u0g@QeETsQ
z+|8p)u<t;2+$+GNn5Snck6ymr16^G@bt_ulHK1QnSC@W+nCjA#sZQOB$+BXyjHxa?
zney%2nR61>FiaSi@VtIW(mKVBONtxUDPdev!nmZQaY;$zl2XPcrCeS71G)$H<Q>V#
z)un4tfRBEGamv+0&aqS;E*_>+V*$ZQ-u?bv&ZqJaB~1z2E*ZE%96f>Z!{qYg#PS2R
z;a>V5@01@alpm~<AFUegM<biwBl!Ufxrx2p$Xsq_EjKilo0`gvE#>Bha)Ud$$(h{f
zDCDsIhA+1F^j}_=FTcqbVB|{>av`)_3@aD3FXp(GVi}fW1=yWhjWt*ccCFT919%A)
ziY?%ZN%cE;Nwotzu^W4^7aWEP!vP$GlwU`14B?2tDV)JsNZ81abjuI5$&dBO4>rh6
zd*#Mma`TRHG5Rmm%NIH2%Up6nzr2SfY`O{?u^HPSCE|V@#!(!{37o`fY@@gRC9-qP
znyU@3g)Z2@`M_gj;f$tFY2Fu}VgP5`+i@Rbdhj0b9`)#+>4OlA!7kjyg1lU8jz>t~
zOCe7Ax!@QL3v%HwX2Fu<uZjMMgCk$=@IYVU=U1#lAudjDhz=NwBX|u-SD9O8`ED2T
zFOO5SB|m!{n__+aI{H1NT;H$`K@(Soup&0%9C$P#eoPokS~imTN-D=2f{ygf1KlJc
zAtCCc^if(XlQ_~SQx<V-tKW#85Nnkt&Xaj-Wg3@XTb?dXcJSk$iAt|+r`X1fCuRLA
zj58UQ>sT%y*)&m>aikk{h@-MmXXMz_cOEU2X&UmHs+fj8HO97avVlx}|8CA>TKYPr
zZ?zx&oxx0*W02OT7D&I0xpqmPuh#48r_#`)*`I#UwAwnowe{r!&a_%@R%ez5GUuoK
zd5JFmd>fuOzLT8Q=P(&6w@&3F!sJgLCD779jz->Be<sGT%}2I5#5R)-lbBO%Q<rt>
zp&6P(`Z!sg-Zb`)(HMitn1b1u1IY}MQFlW!rDQfq{0aC3zNp5hVfv<n6Jx%Jp!gDk
zl8%i^XoSX)@A$MqCv-+n1Yj73V>~8c9_C{?R$x6g;5bfTK5up*yor=5n1)~R9$(>|
zo{LlAj~;ks$z8DUn1b>Zrja7&ViDG&uPtGR`k4q9NQYk^EV8GNM5H5yD=Iki&3-%}
zkvv0y3)>=#D?JxDfMYmHYCns2Uc4^KdUH(ZhF<s`@(a*S%X8NQv_uf(mzxJ;a%GMY
z@(aVdsuajR6f#Jt#kZj0Tt_JvWFkUy;7xsA3$+@OhS9GH1q~+P7c_3lYrz+t(FNUL
z*ODG;_`x4(D3r{RzYTY|!u0mMe>_D3Zg${KCUEM=>tY#J;4R{D)|WdT;7BLp3bi_O
zhY8e2Gwka^+Cjgr93Q?R1BuWR74af~_X59O#2Xd`k_K=qh&#kU5~>+uNURSKJ&5Ch
z?GP#}JRD9OW7{Yy4pjSv^p28~NQan%-{3ZxCN7r!%JE|zHo$TrojB-*AOtVtSP{CC
zI78{RqyYqMBz<59_G0E%@(M2D3a0(eGRR$3_d)KgdJSc^b7vnkM;qkbNmwH@wT#^1
zv)vxvJNoS<FT!FU;e)hc^gLtle)2Vn9VCz8!C}H41CH~{T^NHYn1SE05Ua5soAEpL
z;s{P*L^yXc!SS=q!}A<>r9&dppXbg-n2utRT#t=Hm$-8Q4&ykU;w7vuQ>MZeS<nal
zFcmW}=?c?Gf0g%xmS}_JScQt$$j7J#AB@8<n1pG#itBKUBJCjuT+tl?2t+U<a0cga
z5yhgZ_)!{On1rdAhMAa+xd_J@1Yf5dzyJ)!P>et*wxP)l;tnm*25r#+zUYFrkUJVj
z;RbHv4l3Lv{ICPNQREh3jiM-l7(77aZSKs1S9pWaJ2Z}P8!-roAq!vx#$gxsAp#d+
zdXF>%d$^z}S|9>vk@r5o@Ph8>h0WNGBZ$B!e1p{k$_DtL9@;?eoH!qgG4>&iL41el
zBhoMI;ehN2!$Fum=JOg@A|pDZE6yPjnV#@EsE<atfJ^X+r9q2RPdRR6dq$auoXCwl
zC;+*Ojt7dO1QuZ>R%0EkpR<2BAt&0S3wk0Do3R67I0(lV+^rM&Q3%5^4ig}E-kFSP
zxQgqD!2{%b$@(aUk{FEP7>fxwgGgM$HALYC%Dp08peky@2X$~Ackvic(cm@ZC)%O|
zV(=I*5r>j-q;XV2P1HvtY{oY1!(qr>eoi19r(pAjxPudNqafrCKpU_Pdk}`oZ#gzJ
zKx53qGOWc0e8eZ1yd(WV?rf6@0SLrE498eZz*$^CH0~e<5AYCA;2uw$qB?xA2utxA
zAMp*k_q<osMiaC~TXeu~9Dv6M@;~<B2x@<%qaI7K22~PRhPr5gY4{btVF4CmDVAe3
z`hB8Iz;J|M6vkl!CL`f9cl(C!3;6=)5{Y*_#S7H`O1xk&Mq(U(!Ah*bfN$&@V=x|D
zu^qX-Q)i(Hs$&)8t{;791rEXpjKWErMpi!Wb;MANK+81T2>^Q#hKG29e5QQM6iv-^
zsxuDZJaU=yl}J3tE96VdH&;=f6TeER3?I}&12jQPv_f07Ll^j=CxXxqgD@0RXfV#f
zd@O|A>EIYn;w&!VI&L5av3QObc!zj=h7*m>oXCy5NPxMOPNnD08xDxcsJ}bHOU80%
zgapXl5l&n4jYu4};r*hKEyoXk^h6)@gH>j}vW{XXj#BVK6;ww}_@FMDpcPu9GrFKZ
z1|h2h@qygPkL$Q6^NyT=!4t(%1=X;cKDf2mgx?W{!#IKnoWcbxrLnyhvz$56!+b2k
zQmnulY{VAqz*RhiTMk|ilQ18#cn+(aI%SR4E_`DZ+prgJa_OjWIZ@25Q?3|>5RAn{
z%*SG+Ey(s5Scp4AK+aXts_g$4IPn_Jkn!L3@7mAbJ&u32|NC+IPZ<6ahX162|9)w}
zlyY4DG9ef0q9JDEH_#YUG^n&5rm9p<(xcQBrY4+eAQzkGfw2cDT}E2FC}~Yk42(TI
z_cGH3o`u$~E8V;(pNG~sDtOZ}M2GVFo*BnV>=RY1a4eWvgDz}TtI63B5;(v_7<*zu
znsK&-%Xo)r&1p45E<(!&ANWIVGBOO=+p&M#=%DXmS=LeCv$DvS7AVei;cN?Z460%%
zjvnZVWmt~OxPo+DInzc}R6`#adt6pBeHjJ(Ib*@9KD0bBra!GwydS{(!0&@N!-ug)
zWy45%0O38E7AP7|<F||u^ebo0=(Cu!yd}v!CLd3-9~3{uaX{{g-U_-)oE0Jx_wfmq
zm-Rgdc8uN78KL+c2N4akE4(k{KwUIObM(eUOvh|&#(7*pG+x8>s=ntTBV#wTKs$88
zcuc_>Y`{K5;WqB!Ez(}2*8;Y1MFmJtMJ=?)SV&LBbgV%nq{re0-XdF+zQ-ar;|lPH
z^jP%89GryoSX{yf6pq&STu84)ZTO=*#zJ~9r1zrnb<W@+Jr>eiF%@AbO>aYENDqbd
zP7KFR?7~Gz&xG_!NRLDnEX8_A&%_>Ny+t~N^iW9egg5*Vh+zDJyLg1BsCk<+R`_Bp
zCSe*PZ~+VMaQ24Zu?zR{1O@MMc7|z~jpv9%kr>`Pf-w;LaRlk_aaM^|Xpi%_jKcRh
zP6VMJc48kCy%c7UduTVsQmld<Jr<6bj2Vy~3n!d}>0{ywZPDrpXK0v-^Dy>I9HTel
zB#b=|($laWS?N8HUWO8Ahpv!bhS3PcE=VuKWxPjjdJUwPL3$RXS79lx;3lM3p$NSL
z(wi_6(u*KH2hwX03zt{qDM)XDFAm@yq_?02y#dlo5DV!YFyk!W4YeS>0)bcz=?Rct
zfE)OZJe=jr*?(oM$9Blsf9<#Wv;MA(f5QsMS$`NF!+7SO{+<4;e<Wi$%U^^r$eF#I
z)hEC?o*oLwS$zvk$8V6c`;B;oPmr^FyZ5|*6h~vonSDnb!g1V&`v-bdQ69$-fyN)%
zH`XB(9TLbJkTZHYo8OMUpY&(&a`wIegFo}B0pzUR0S(a%tze%>dO=SF;S}Voe$-d}
z*}LsGdQdPDa@Owro&19`Xn`S0e|Ely@qWk|`A8fx;fxM)Pfj^IZ;v3vK+evGaaJAz
zIrA<CFV331u@SdmJfoF+`Bld%*k$7WoSapbMJp`9k7tzAIs2Q5zPY*o5F+w%whcLB
zdx*~5tI7{kZ~^)=xZ>2t|M({i{z(J>ebRumppEfGeW)Io>B$8PPS*O175r@I54NQi
z!0k+WSu)cyz!vO6nyj>ZFfuzOKjgv&J11&3lys()&Y{;W7p*Z&&r8jUSy+U<*pHx!
zJP-MNa|jaK(qG(;&p}WWW#NSYl<z=)F4~}dM`}krMgd<+*-q2~kk7_Ny}r~Ou<oa~
zYX~(L-jATKbtJEQnAb%gtf0h`izo_n0fk&NA*G&N3=sz@>C*5?`oB}!zr8=j-~X3m
z?*C<sxe;UkiCFu4DIhJid}+^g{quS}j>@dQTc;l6`*ySz$#=#-e_6nvodfBYZ&BHf
zo%hWy+)U{rP0Zz6RUMgcP@6t#1m#x~Nb)qpeQ2(z-ErE^X2=r#pK)i|w4E(8OWN5o
zGj_JjOusYz*U8%Rm9igp7^FYCKiHxE=z3cu?Xb56JM3+t-=Qf-XZqvL*8cS9^gF9$
znY6P?mh7yO<==R#HW`z4W|NVf*<}2iZ#BjyX@@a3>@ddWZ@ks5nUi+5H8VTgn)z?M
z)e!rnorT!5vk?2g`BocdOWI+>Z0xXMw*T#0l>}}~b264I62E`fr)2#&lRDid#5;{j
zXKDr={%G2SZRI(0WuhuEl|GApDvi2PrHV(=E9gvkK6klQ%~CJP7g(cp>Lo*|<V;y)
z0nX^OzacE^l#^2nm=@u~!Qz}=k$+ld<wGNikgGmAC3pOs)rAj*hR`(U)oRj*RM^Hu
z<>eaO>Fy@V!qY_MtZ$-<_cT#a&S})=(rHxwvT0OYjWo)wcN%rY#8kywn<}?VrmBat
zshX9?l-s_Vs(n7Ds!3Z@wR4cEI$~?4*0`Igjit;~ytkR^Qr=93_cK#IBh6IdBIas@
zuesXdZ?2x3rB$!I)2in+(<;yQY1PgkE)}b2p{jMVP^)`dsO7fl)W)3YsL0YO`JL3n
zZt0Z#!f9RS^eT7l^vd4GQdQ4psoE8^R24leRoT*(>P-_%Rj-q!S~S>FO&w~f9-3RJ
zsEk%hemgI7VJp7aYo+G*wNmvmWl%vb8C1*08C2``8B~Q%8I=4UUR{%n%E~RHiYt;)
zT`rSRU8$Q<-3!R5N(N?B7j3Ln$BNdfZ(VEExS6%85p1p6<+4$cjcru_W;Tkir>NEz
zwrZ%Yt&(3;8<>-EK3nBq%U0FwVyhPSuvMGQGAX}8nN->`nY6E4mMxuG?WmYpIo8Xp
z{2FFf*Q#bwS*-2Uw@h{_sEM7*-po$DYh$P4+S#dqAUm~bfSo$vXs?d)Td;k6?3HCl
zdo`zrz1rH#o{PJ(szokYRkT}H73Y~%&90eMZEKQM-R_oEZ5)wRHL!G0nH?RJ{Kk8Q
zdJgJgD+e{Pn}gcq@1QF6cc2lJO|5Xurn(l%rmi>4rtE{Vsq-VVsUh}`%6*Wd8a%{N
zz08|kc@)X6s+GyEDmyx<4SAfD{BFJ6L9}sgCzYm=lWNz*NiFW^q#W`%t7b)<Rkh;I
zYDhz8W!BDF4ejNud<HtJh(XS(WVRftk!ud+UMh$3_R68w)XbrR-Eyjsf;rXWB01Ic
zS~*qImN``~*tgHA23xx*`CaNSxn0z~axO~lrQ5cGi<;WlMOF55QR}U9sZhsUYLI&_
z6{mBh;pVCic)6<f<y=*4ZCACfo~v3k&{a+F%&opw%dOtkMu*%gz}`*GF65>XF}}K+
zT8A!u-PD1cc~tjCdDN{zc~rMdc~x+cylPL4yegYdUKQ3buWCIYuPQf$`P})Ghetkj
zqJBPgw^2Sdw0S-iY@T0b&6!{AD3)Jc?3-U*7?@vm9GPEvn-x%#JqoC{r3$F<#syTL
z4h7Vt;RRGlw}PbGg6i$af@*E9LdvOpA@!tUA=THnkc#bDNIe`;NX0uAR+mZ@R>K<=
zR@K`TR+)wrR`NUUC)yWL?!iS=xq(HL{06w4qr0k*-CfOgb5~``xT{WH?#jEiyGq;1
zU1ja-&Mgl-)N~wl^-v>QdZ^ZEJ=ItzPbIg09femVJP9XHCBG*5A#+i6#kZ)E-=UY^
zDh;SpTutp<Tut#Wu9{kvQ1ZL-$DK+j`ATp9JS9}~IwjPzMkQ4JZY9(&=}M|HjwQKL
zx1{p+DXH?dE~y5$E2-M~mQ?3VN~tngN~uharIf8pDfPWfDHT?slqy-7>FTAF{J#09
zTBVfS!PvJ=DK*Qyv`TAVTJ3Nst%kN>x?^e8u1jf^wSQ@~3ZVl^D=VimD!{djDp|0M
zlHWw1-MWlg+_{Xp>QGjV%3fA=FIHAPZ&_BQZB<s8bS<k+`Il9?3|`7Kvlq9u_fqi{
zyi|1`FIA`=<NjW1^AIo9)v}!OwJxV7W-q5g3zSoDi<VQ<N|#e%b;>EvG~Vivqql0|
z;jNBV@m7{Cy_Ni?=Td)fHOZp9iYQQCeey1^UU0=@jS=OQ+;hKci3&=-Oe|k5e{Wk+
zt;k$a&35LOIXo*W`Gt;?O)9FLJu52Lz7^HAeic>!yp>dr;gwVd%gQRmrm}ilt+E<b
zzp^UfS6R*NS6OA@OY(BJ_)__*sB}fDDC-VYR2AIrUPZ|-d&@7yx)!af26+Fk_Ra&W
zifdiNA00&n>?N8V1q({GfQSX@f)wcjg7jWD(ly2sdvCEDHHuxLu^vq<$6jJIYD{dg
zB=)FD?B4I+u#JVBtGT()z2`X$&&!&<W>))W&6?GJCroMP3<HHTR;4&&Y`QbN3!Krx
z*abD(x!^WYba%ldCl_|}yC9^u3mW>kVADX_Yr9gtgDYYUT=BG~D@L|;#qmzAuyu09
zX;PBSW!t%~xRmb-&jMFi)Nn&yV>g^pxFOxl4K?iDAo>YrmAK&tF5W(B?~e1H?lALq
zNB=(VxTSQ**<5#&6uCq6Pw({Yg(s=KFxJo$Z5w)GR&!50GV|oN&z}62c;bU@p73;~
zndk|_6i*x|@kI0>Pv}^CA<D%IE(KobQ=>Q9SoKDlU2n81>J4vAZ-~y59&z3{p6Cs`
z9B&*O<jtA%K3HbtgPV1I@UtHY@qsL(Z(iLO$u)g(|2<#0I{89&0+00b#mBk6XsYjr
z$Tof$V(SMtH$RB(?5P=kD6QQGXB_&VM`#~x2<wA3Iek#y#2*J+`D1Jwe}wksd89wO
z#rfl2yg%Gb0}$FX06~5M*k2R?OT$1c=nx1~k3cjC2t=cxK$NBj;(Es*Ot24v=x8-f
z2tqg!-7X7_gVEL|7-pS=(T?LRhhu}$ODhEL)e3=!X$ThEhhSMu2qzndVxMLxLfVAl
zN2gHi%?-t1&Azx{*cXPzeR0{bFRFR>g-%Le=xc<br+XNz{KBByHw^W&!Z5x#3`+fQ
z9IG9UVv}%$d4%KptZ>LK<qdQraF1g;Zp|Xl_WcMfYZ-x1#|V_VM<7q5A09R7haJuP
zK{vY}JoEdZA0lDl83~W(Q8*qRg<6SGNJ))?zIA^r>)aoYiLZNq+z#oF;hNF7pcRd8
zn?~b3>u8os+#;iUG;{-^ap!{=oQ#dZ{^S@K<i+4-VGIH_Vi98$i`bx8G&GJwsYx7i
zJmavYcN{DS#$l;OJi55YLo+5G7h~hGF+Lu3^%GFdn45KUOu$F>3E05dxrG4<s_ia5
zO-;a$hKU%|I1yRR5^=6YA|`i8#J<2p{L(N9e&I>5k4!>*R1zL%CZT3d5{A@CMogDv
ztZ+`o8Lwot(n!JOjwzTLoPrbHsT>YVMe~AGd{L5$J@IKUPfCMLVH$>6a00zkIv)9@
z!#zD6HH|aytZoMDmKl788Jw7%iCQf(*)x!d_X9HF7Lp0qm`q&E$;9+(SvXQN3w3H`
zVSdvrY-*8(F4kGt=a7Y`WJ32WI0a|HD=G`alvx<xG#fuyXQQWP4(l&Da5Kx{mJ>M`
zX_W)x&N*0UpM%m|u~TAq2PLB1l(^*09ebmd@XS#nJYR`3oZ9bWoQrK{x$tz##SOPy
zoD0iEiZU0mx&zR;$pD158h|rx2H=>@02mnMp=bR(cqZk+Ham}#ne*UekdNvO@^QUw
zJ{p?mLo`zd^(#R2CWUy~tPtDV6{5g_Jsk0c_+GyVZpKB}=URko(M9O0TZ~A9VieUa
zhEKg>OmZ*AUhiVK`WIt#STV-*E5_sWVq7pOL7$`&49zQncTovW=nRBj<ALa;9EjwO
zgD}H(5M25WLaXRO2um9T$AS;}4h)8o{$N~ue=t(o42HeKU@Q$94D*D+sFpGqBTEKD
ztL8`ey~#(|*Wn{{vHb|L^~|>)3_(%LA=n;11TCV5pmX{V9LpO5&ssxK+HfdDFUwWG
zp;!_%6raWqMZG4&5b*vmh-S{Pm|+mz;C1tcp`*cYEVmktjfuk{8o*5qN8o775mc8n
z0>_d^V1LO7G|?Q1K+BQ1Z9Ni=;z#1Q%#o;DI1=3qN5R-;6u)(&FsJ<}R0|vhJI(?h
z-*PkztVUy_-Ds>!8jTK_qp{z33}&<&g9E-}kexdQod=G=dJ>~K7G^qQA)2K(v>S`4
zE@QE|=UCM99*frLW1-X@hp~F&U}HKCmt4o;&cJa9XgeP59miw1*LWNWACI`q@o1Jm
z0XiiUSe8!2NRx>;(P|>bn@v=0=(5ITBFd5{V)cNDh$)$f-AyOq8<$DAoH+@OO(vs@
z$z-fDos1Bd$!O#=87G@h!B*=jIMi_pu6s>E=iXD05-<fJ;ZraxVhV?Sr(kXI6wIqL
z759>+Vs3+JD07^KpulOk8$1n9L#Cl~&NRqQ`R-=Zk=$WA+I5|d@7=l6KDDJJ<V{Dv
zx-)RQ^$bk2oPmY5Gf>!N24=g>K!@s|FwURgy#b$KV*V$Xr#%zVHD=<O$xIAvGm~m(
zX5vKGnONvC6Egy4qH#QbC(p#-^qF{~GYj74voOzo7IYkEaU$PrEUPsebB$)Bw)t$F
zu$zr0eP-kL(Ag0E%|5ZSAzHj*z2{(z&m7!{oP#gp=HP>bIVd)siv>;RBF=R#dil>q
zK+s&2M$Lt9^jv(%HEE;BhKBPn&}kl4yU#<R&pd?or|C8y#eL?(qi8<t^%h{b{{l>j
zUcjO71sIXP07i8_g_hz|#B}}?v!b~jOwEO?6D;Id)I#j+zYv8n3-NH!LX^I@2+^$<
zVWj0EjOw%qOB@zqqTeC}=PW`(lf|g>-eNeIEk>BnVl-;`84PVcL&us+(6ikVv~ykp
z)5s;Lt+Nzk^p>J$%cXd1z7(w;mSR)<QWPdHh3H05=$FE?St(pCN>ON83U{|stZ^^J
zy5v&K%`Qb!qh(lWv5aa+mSMirGE8z?hN-#B@LR3rxKevLzG}N1UN*}yCT%&a>#e}`
z7Ar8!Z3PO0R$xo`3T(<=fi49rU{$yRa~rKhKg*REMK=4dgnr;k*hZ{Gix#VJk<_qS
zg>P%E#$3zQ=+t#JYIv<iQQ&ISskR2*hHK!^Z4GP#*I;tu8u+(biz!{!qQC1}eC)m!
zaRqC+zPOANM$7QeHf1<sUxwxZW%wen4E9lF*qU61gDGVQ&MjkkT84{ypToD>=V-tc
z6QaMPul_pBF<1weTI<lD#X5)%_xYqn_&O{|SclzN>(JO_J*Jtihn35ET<EnPYnAIU
zy5$$xV)q3)=x=~_iw$sYw*mDmH{iqe8!*4e2Ke}GfP2ISY)jmLor;Z|@VF6vrW;|<
zZX<SDZp5DU8*$fRBRrxv@}1g<8BI1Jz3C>LXuAn#qc(9G#wH9;-^2wgn_!c@3C3K(
zF;r(W8r9m2(+xJG371lSleHNMxtnpV(H0yq*@EAlw!p+~3yl1>;84&OoJrq;r**d?
z*mNr<dTm9gf`8z1?QQU`xeeA$x8b9X+wif=HXQWahB;o_u&&y6bg#D^X%^dY&U!mm
z7jDOAgSK;p;g_)1{t9LGU!kMk4y5YuK#}PV7+dVX_<$YASMEf?z@4~ay9+D3?LvX`
zE{yE83se1e;is@&$m06O)|$IHthgJO8t+C_``uh{v>OiIyHOCgo6mJObaQs&TJCOq
z(dM7H;j#y*K6~I3x(9V4_Mk@k9_-H8gGtIgtRwHmH+p+fTYoPsYVSoLajml#velDb
zi@iA5o!1igVsqhM93HqAqYd_9VDLWd$l8Y^1NO0RVLw%v?8kR5`_a&2Ka#!o<6g;r
z3^O<Yz1j!xMS}wv<ID4q19+5i01pZdpkeQWxSDzpeYl!sqRk;}vp<BJk%!PK?GSE|
z1zCq+r96a#g@?Fu_Au^{TV{tbw!>kZbw7;4;KSU`=m;EY9Kl!hj$l;K5d;<-!TORT
zFxNPW4fT&=XN#lIH#>@0_oKL#coZ7iUt?XfuhHM~Yh0~=3`MTTFsRotEF{J$$8dmi
zTe_HkgQc<GAe$>=CJ*`s#chvMZOn0emwFtnl*e(s;R%fA${6ps6A0m)lflHq^jn;*
ze-c+Yhh$%;lSu7*5}_$4QI>iVKPXP2f%Pf0?|2Gk&ZjWT=M+BmKZSKcr_i_f6pS@a
z!^`|Mri7E+(|Arqzx}-U@32+*9ef*~!N)DnU|}oPTH2h!!1iZgUvdVAw7!R>{tsM;
zcNPa*oW-ilvuIHN92&PihdCY3VVv(dY|B4~frjVN!|6O1o1I64i1WxTI*&-L3;0dv
z0-W_O;6SwtFs*X|9wrwM+~opRb-jRLAs0|H>;eLn7hq^`5kp#D#5B8$Tr77H>)kG*
zd7q0Y47rHoDHpM|+K*6BANu<}f5e2~AEC<?C__?zgrVjo+%UO>vfh`lw%`&D)w>KM
zi_5TZzl<w3S8%x76{s|Jg<L^Q{1vQCy#m|1S8>|zDr)w=ib(CBAR1!)?0<q`#7`KS
z_7j5Y{|tS_&)CxEXG{(JnY;O1L$<{=IC@?~_0VgWk#!A=^RBTBzRvIab=<YP&MN11
zE-1W#<85wWx7iIC_qc(W#2YYB-av5Oo9JwI6Z#!)!qN36BFW|Oo48ka6GjHN(7FCC
zs#?1R(JFp7_7;}r-a<yfE!1pr8^f$_qfx|dG>E;8yBc>eNBa(DwYY=rmUocX`wmL=
ze!)1d*0^i?3x*9K+_dgP)4S-~{w}sh+=Xk>UF2{j#&Y9(Sla9!Mw;Jad47-WhkF>G
zc@J~-?z4V%pLM+Zs79T`_XpkQLeO8aSn(@Fv(lLkzhVzpPU!Xc4WB#x2G^9|vAFnm
z6gPT+TJ0ZTqQe8!2!4R{tOvMM@Bq~eAL5|#Lrib-5EB&-5nw^OJ;ceZhpMg0bXz`x
zsoNub9QX*Sbsxj8^J5%yc#N6to?wpS6Il2?f#_~)p7;d!)1P3w;ZvOJ@DxqEJ;jBH
zr!dQZipe#e!KeE(EOC5>qwddeE%F)aXFfyq>}R-5Vwye2P@Ct_=<r<C=PRq4WoSqa
z`Tx9!)`#W8eKO<+ql276!3jok{*tMw9+na3A+iLxhjeYrO?n7KI#P)2wwA84l}={$
z@ki&ktjc|^iiP}FpX>5Qw`LRQm8PbymX5ZLrk3_|3!D$j$CuSAJgMkEM*w%VO9LBe
zP;f82IEJU-zKEjmMb;2=)Rq2dLPtkKQ$tTzlfA{|hdT1|>qGhH&wcXJxY}5DiQ`Nf
z3svX_y4sp@{AuWpT#=l_ki<>*t|~WrTGcc)bu_hAZk#HKu@l3PmCs3xZT5>;bA3}S
zRZJx^FCTBjG?*@BPfGRPlpM~5W4W}nbto-eEyh<D=bxLfWEP?Fm`7R4;l#K~D$8T7
z;QD4+hn>hP%{dg1r9Yw}?i|&;q+LEVwrEl7gq*g+mx#+GElq#UzT%L;Of3#VU>5B-
z{%h2R{=aG~HgcG<$6q2}5wyy#>fhT+U>a{+$G^dYZ92%y)rilVGw#SJE3QQ$|C6KQ
z5z&hp?T7fubJEB2r+@0Fes5n1P5;hwLk)e6?wqBjts2G}#Br=jks_7ZL$y)GoALaB
zS6)AiI75PCPZdW#O+kIk=cVV*Iq5=m)Pp16_j2`4<%)h3u!RMz_@`hVmz_oB4Utko
z|BZXa3nNY~mbX?^2+2F>OxFs|nU)<`Wd~Jup1gL)%h$?d@#=rc=~8Z$%dp0)7ypBQ
zJ!849tNBNMQ;S06bbi>pyAOR5jh0W;N847PpSGgi2wqT^8YB2yTuvZbWDSw5vx`Vx
zIZvcO=M+#rXC8Db-v>_RQ_Y1pp;?{3ooUJw@ugXlW;jhw?17YWoZN#<ni6I{%{nys
z^;3l_xttSr!1)1i%u!}%q-G>2Y%Q#;6i$i#(-Y#P<dy5<xB5CyRd#i02KP@@#$_v<
zEfl`Fsi|@DIZ|CyXMeR@Z`q0`)gm@SnWnlfaj9_o!lB$N?(A&atL~9F^-hY(&dAA#
zS1Nqs<C9|I6u}wUv9#|&sMK)!41<buXgQtVdPGBIUwgfFQI~HuM4lomF{S(#Q%ZI*
ztBxuOR7s#p0#y>Il0cONsw7Y)fhq}9NuWvsRT8L@z`IJ|&)WaeuGc(q=)`P`CPtH|
zv;E)h;VNg^>AYs=#kROUkv29BRbQp5%`W#6=_8PS7wIG5!W_&XT!4f5gw0>oHmcH|
zUPGj9zme1@UlQpH*h|E3E=zr-%`a~HSG4(Mk6iv#wT-2BQ`*SV|0$;Q#Fe+1YpBAb
z)t{Qp=&7VZ!dLefyxN~ogLjBzq_r=p3P@6>$}X4{{YvcQC=UxzRM^?k6c;@ze#^O}
zC(_r$Inv$B!`svUMY<emzmXj#Q8dLLE$#v%CY%2%lZMI^xxP;<$p5AaZV5x=!8KGh
zB_5&dy%*Drh$)Ad>iCG<-bHWu>;6Ymi<9`*s={9yulO&0HkGG0fjxq`l!s`Q61C#x
z@_9M#QS?dtHmUHF#w&iad-Jupt9#+ond%<wsgzLx*#R|&;pDM*Qmxkf&9Ge9Qz>D6
zP!R@=SHgPvx#dv1yCwf(>7!ERtBhBqtIpJ^5q(H9hGNbYxS|(H`b{l)cOh-mT7%Sz
z(^DDN>vA>Xc#p(Ka;=zhh^c;Vjd`w?t2#b;Ok*C?D7~~2ri@ESxc^GV3ceHKFBjES
z8qS;fL;83#n7SNF_zzX^BH2Xx@p?M?Q8$nHFMVs3r9;xEPDi;^)v0*ZZy9~EWSDuX
zkY#^b(c$%GcuhG#BjMEhlkiO6BE0hc??0sWM@-aLB*tm<>CN!f@0;|iSC-y4<yqeE
zUap<22Yt=qll$|0>c<=*{z`dWng2Gl|L^3fPK7$JzMeiy$~KA5Q_NI8;~4&m<(niq
zDS_wl4CD3ZT!1#J_((ZfS-j-^{`=w;$4Mf&j9KbSF?usj9_)dZxTyPNd8+!Yeup~#
zEpf`Bd}PmM8R4+3cq3#4MBb6ue;Ge@nIm7N%4GI`Rpv-sDvQtGRpw|R;uZfH+$+!J
z<#hj9neciZj^`Vhsgl1^m1m{2mC{-AZw^OilbCZYROhee6A8QOsFFaH1ga!ZC4njl
z{5wcM+DOtSm2b3+UrT*P>JTz+&*rSEz9VDw(pH!Hn6$}j5vemu8(iA-Qa_cpyR^@w
zt}OLZY2!;hU1r3{w_e%=(#C2^q@FHyJ_V6BQghORNZU;6)Gdj$0b7$cMB1BeNjoBK
zVfm&@9ngwc6RD@RC!B}_sfTqUwnW<Aoryi^LL5j}(v5T{J%}UeNt}rEZ@3Uw;zrzw
z2kAvTi5KZjyonF-C4Qt2@h1T!kOYxn5<)^rUlK;bNd)OfB1shKPohZ-i6wC)o+J=y
zlO&O3l0s66v=q`w2FWB@B%9<ACCMcNNFK>21*DJ^kz!Ip29iPKLo%3rM23)|WEdGv
zJ|-i`NHU6yCS%B0GLDQV6Uam|iA*L_$W$_oOeZtQCuAm>MP`#ZWG<OU=92~FQ?igO
zB8$mqWC>YHO35;^oU9-#$ttp%tRZVj8Tp*7BkRc*WCPhqHj&L_3)xEkLAH_Y<V*4u
z*+F)aU1T@;C)q>xl6_=9IY17QL*yB!RUM&ulzdH&k#ERxa)QY9lQd6})8spHhI~(c
zAZN)ra-Liu7s-$061hySkgMb;@-w+cu9F+&Cb>m!lRM-Wa+lmA_sOs1H}X4qKpv7u
z<S}_do|0$eIg!pCZr=q>qD3U$Iy7~O9+7@MnOj<&7!bM6ji|v*r(sBph%u>6xG}Wq
z`cvMcM&|i6s<0Qg?^T@hwCebOA_19;o57Mp!IDq(muIU=49OgCchrZDhB_%)bfQ~L
zQ|0i>a_6q)M*07vwSF*^xlP>c`$ePBnI)j~d;Qg;I&-f&d@<j~pTlyKQTd(LEVb2o
z+26+P>-W^+*He<Cj>GHMEBpN|Eg$qPzY<L8XS3vYrWwQ1TYA~ldgLo}`?_6YroTEZ
zb;#SMU;MC`DX|uJ{;E)=-&UTz2Sbln#Yt@b(8R8~xsrda|APFrCFlzI>%5WjcZ-i5
z!`G&F?;?M0s{bPV-u!ZAFb?Ip(4Q%m=Mh&)N-MW&%%`soTd(q4V3og4mG6(XJEbyT
zzRim@kYLsncJOQS9lt_>{0edD4!<LZ`9_|?x2&1Cu!iHwuT57~?d4_HQuon#k^l8y
zz4YSOzY5=jDUPe?e|+KK9ZuBmUp2aUm;5K+HaUDL?F`mrq?b!_oAfci%Tb^2pIZKJ
z8@}Y1!1C<Rrzi9M(-;FE*29wDC1};XwVD5<#M32j8@{}+1uEBn&%bv~|I49@7$p8u
zcB{VsG$k#PmnA>Ra}|4o3iIW#s?PuYCEyTk@1K#I9TS(M@Q+K4i&4hK`YQ`ksj)QN
z(bv%;#NVsALS^CIKaG~OQ@AF@D-#tiu}MnmK5bs1$29tF^q6L-ra?Pr#N?(?C26@b
z)99q=)TE4r?EaaF1r?tCEnanVuzZm;>Rn~_t@L<jMXu=?<$7FWbL?aLD>($6ksaru
zj7w9{B8jGlbJylYc8;BGtvcE`nLD<(b20DGv!ji9PZ#G-<}TLl?VRmwtgW4FdX}g~
z7n}1}6C9Jv;L}3VQk!>kVDRM{Wc$R$=e+t;qL!PT^jAZ9<q26*uCE0pzh4nWw@M{l
zxh1zNd#=T&BX82{b;nk8Qt2FeMQ2-cYQk-=P-i98GJ@XzGQXZys=9@oTd1#F*x`QX
MvaHIZ@E>jaUzHM>_y7O^

diff --git a/changes.htm b/changes.htm
index 6e8693e..0ebbf1d 100644
--- a/changes.htm
+++ b/changes.htm
@@ -2,7 +2,7 @@
 
 <head>
 <meta http-equiv=Content-Type content="text/html; charset=windows-1252">
-<title>Astrolog 7.00 Changes</title>
+<title>Astrolog 7.10 Changes</title>
 <style>
 <!--
  /* Font Definitions */
@@ -195,19 +195,18 @@
 
 <p class=FA>&nbsp;</p>
 
-<p class=FA>                         **  VERSION 7.00  **</p>
+<p class=FA>                         **  VERSION 7.10  **</p>
 
 <p class=FA>&nbsp;</p>
 
-<p class=A>Release notes for Astrolog version 7.00 (June 2020):</p>
+<p class=A>Release notes for Astrolog version 7.10 (October 2020):</p>
 
-<p class=A>Happy Full Moon Lunar Eclipse everyone! :) This file describes the
-freeware astrology software program Astrolog version 7.00 and the additions and
-fixes made to it, over the previous version 6.50 which was released eleven
-months ago in July 2019. The main things in this update are an atlas (including
-time zone and Daylight Time change information), eclipse detection, display of
-numerous asteroids at once, Windows context menus, and “AstroExpressions” which
-are programmable customizations that don’t require recompiling the program.</p>
+<p class=A>Happy Full Moon everyone! :) This file describes the freeware
+astrology software program Astrolog version 7.10 and the additions and fixes
+made to it, over the previous version 7.00 which was released four months ago in
+June 2020. The main things in this update are a new telescope chart showing Moon
+phases, a compass map showing nearby cities and directions to planets,
+planetary moon support, and more font support.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -217,490 +216,188 @@
 
 </div>
 
-<p class=A>Here are new additions to version 7.00 that weren't in previous
+<p class=A>Here are new additions to version 7.10 that weren't in previous
 versions:</p>
 
-<p class=A><span class=V>1. Atlas features:</span> Astrolog now has an atlas,
-allowing one to easily lookup the longitude and latitude of cities. :)</p>
-
-<p class=B><span class=V>Lookup city:</span> The new -N switch will look up the
-current city (as set in the second parameter to the -zi switch, or the
-“Location” field in the Chart Info dialogs). By default the 22 best matches are
-displayed, although the switch takes one optional parameter for how many rows
-to potentially display, which may range up to 200. In the Windows version, the
-new “Lookup City” button in the Chart Info dialogs will do the same thing.
-Afterward, you can click on the entry in the dialog you want, then click the
-new “Apply Info” button to apply the coordinates to the chart info. (This will
-also apply the correct time zone and Daylight Saving field too, as described
-below). You can specify just a city name, or use a comma to combine with a
-country/region name or its two letter abbreviation, to restrict search to just
-that region. For USA and Canada, states and provinces may be specified instead
-of or in addition to the country. City names will match substrings, which will
-be ranked in an appropriate manner. For example, if you lookup the city “Eden”,
-the exact match “Eden, NC” will be first, followed by the subword exact match
-of “Eden Prairie, MN”, then the substring match at the beginning/end of a word
-in “Edenvale, Germany”, and finally the substring in the middle of a word
-“Redencao, Brazil”.</p>
-
-<p class=B><span class=V>Nearest cities:</span> The new -Nl switch will display
-the nearest cities to the current longitude and latitude coordinates. By
-default the 22 nearest are displayed, although the switch takes one optional
-parameter for how many rows to display, which may range up to 200. In the
-Windows version, the new “Nearest Cities” button in the Chart Info dialogs will
-do the same thing.</p>
-
-<p class=B>Atlas information is stored in the new file atlas.as, which gets
-loaded the first time atlas information is needed. This is an Astrolog command
-switch text file like any other, and can easily be user modified or extended.
-The header of the file describes the format. The file consists of one instance
-of the new -YY command switch, which takes one parameter indicating the number
-of city location lines that follow in the file. This switch is only valid in
-switch files, and an error will be displayed if it’s seen on the command line.</p>
-
-<p class=B>The default atlas.as file contains over 24,000 cities, or every city
-in the world with over 15,000 population. Similar to ephemeris files, you can
-download a larger atlas if you want more cities available. The file <a
-href="http://www.astrolog.org/ftp/atlas/atlasbig.as">http://www.astrolog.org/ftp/atlas/atlasbig.as</a>
-contains nearly 200,000 cities, or every city in the world with over 500
-population. You can replace the default atlas.as with atlasbig.as, or just load
-the larger file into the program when needed. The information in these atlases
-was composed using data from <a href="https://www.geonames.org/">https://www.geonames.org/</a>,
-available under the Creative Commons Attribution 4.0 License.</p>
-
-<p class=A><span class=V>2. Time change features:</span> Astrolog can now do
-time zone detection (including whether Daylight Saving Time is in effect or
-not) for any date/time at any location in the world. :)</p>
-
-<p class=B><span class=V>Apply time changes:</span> The new -zN switch takes
-one parameter for a city name, and will automatically look it up, take the best
-match, and apply to the chart info the atlas coordinates, time zone, and
-whether Daylight Time is in effect. For example, “astrolog -qt Jun 5 2020 12:12pm
--zN Seattle” is a quick way to do a chart for that city given the date and
-local time. In the Windows version, the “Apply Info” button in the Chart Info
-dialogs will (after you select a city from lookup results) update the Time Zone
-and Daylight Saving fields in the chart appropriately, based on the local time
-and city you’ve specified in the Time and Location fields.</p>
-
-<p class=B>Note that some times are ambiguous, for which it is not possible to
-determine whether or not Daylight Saving Time is in effect. For example, in
-Seattle clocks “fall back” one hour on Nov 1, 2020, in which 1:59am Daylight
-Time is followed by 1:00am Standard Time. If you say you’re born at “1:30am”
-local time on that day, it’s unknown whether that means 1:30am Daylight Time,
-or 1:30am Standard Time an hour later. Astrolog will display a warning in such
-a situation. A similar warning will be displayed if you say you were born
-during the one hour gap during which clocks “spring ahead”, which is an invalid
-time that never appears on clocks because it gets skipped.</p>
-
-<p class=B><span class=V>Display time changes:</span> The new -Nz switch will
-display all time changes for the time zone area corresponding to the active
-chart’s city, as specified in the “Location” string field. If that string
-doesn’t match anything in the atlas, then time changes in all time zones will
-be output instead, for a complete output of Astrolog’s worldwide database. This
-chart will display every time change to or from Daylight Time, as well as
-occasions when the time zone offset itself for the location changes. This will
-range from the first date when the location started using a standard time zone
-(which will be no earlier than 1847 when GMT was introduced). The list will run
-until 2025, or five years after the chart’s date (whichever is later, but never
-later than 2080). Time changes will be printed one per line, listing the date
-and local time at which the time changes, along with how the time zone offset
-changes and how much the local clock time changes. In the Windows version, the
-new “Time Changes” button in the Chart Info dialogs will do the same thing.</p>
-
-<p class=B>Time change information is stored in the new file timezone.as, which
-gets loaded the first time that such information is needed. This information
-was converted from the collaborative open source and public domain TZ database (sometimes
-called the “Olson database”) at <a
-href="https://data.iana.org/time-zones/tz-link.html">https://data.iana.org/time-zones/tz-link.html</a>,
-which is used by many programs and operating systems for time zone and Daylight
-Saving Time determination. This database is fully accurate everywhere in the
-world for 1970 and beyond. Before 1970 time changes are often an inexact science,
-but are estimated to be at least 90% accurate. The file timezone.as is an
-Astrolog command switch text file like any other, and can be user modified. The
-sections within the file describe the format. There are three sections in it,
-which contain instances of the following three new command switches:</p>
-
-<p class=B>-YY1 &lt;rules&gt; &lt;entries&gt;: Reads in a new set of Daylight
-Saving Time change rules from the current switch file, consisting of the
-specified number of rules, each consisting of a sublist of rule entries. First
-parameter is number of rules, and second is the total number of rule entry
-lines in all rules. The time zone areas in the -YY2 section can specify
-different rules to apply at different times.</p>
-
-<p class=B>-YY2 &lt;zones&gt; &lt;entries&gt;: Reads in a new set of time zone
-changes from the current switch file, consisting of the specified number of time
-zone areas, each consisting of a sublist of zone change entries. First
-parameter is number of time zone areas, and second is the total number of zone
-change entry lines in all areas. This defines when time zone offsets themselves
-change in a particular area, as well as when to apply different Daylight Saving
-Time rules.</p>
-
-<p class=B>-YY3 &lt;rows&gt;: Reads in a new set of time zone links from the
-current switch file, consisting of the specified number of time zones from
-atlas.as, and how each maps to a zone change area as listed in the -YY2 switch
-section. This defines how a city’s time zone maps to a time zone area, so the
-program can lookup a date/time in question within that area to see the time zone
-and Daylight Time offsets that were in effect then.</p>
-
-<p class=A><span class=V>3. Show cities:</span> Astrolog’s atlas is graphical! :)
-It can plot the location of all cities in its atlas on the graphic world map
-and globe displays. To show them, turn on the new -XL switch (which is also
-available as the “Show Cities” menu command on the “Graphics / Show Map
-Effects” submenu). Normally all cities are displayed in the same color. However,
-if the aspect line labeling setting (-XA switch described below) is also on,
-then cities will be colored differently. If the -XL switch is invoked with a
-trailing digit, it will affect how cities are colored:</p>
-
-<p class=B>-XL1: Cities are colored one of the seven colors of the rainbow
-based on their country.<br>
--XL2: Like -XL1 but USA states and Canada provinces are also colored
-differently.<br>
--XL3: Cities are colored one of six colors of the rainbow based on their
-default time zone offset in effect today. Cities in irregular non-hour time
-zones (such as in India) are colored magenta instead.<br>
--XL4: Like -XL3 but the correct offset (including Daylight Time) is calculated
-for each city based on the current chart time. For past times before a location
-started using time zones, cities are colored gray instead.</p>
-
-<p class=A><span class=V>4. Eclipse detection: </span>Astrolog can accurately
-detect eclipses and occultations/transits, or when one planet’s disk is
-partially covering another. To do this, turn on the new -Yu switch (which is
-also available as the “Show Eclipse Information” checkbox in the Display
-Settings dialog). When active, appropriate charts will indicate whether
-conjunctions and oppositions are eclipses. The aspect list (-a switch), transit
-to transit times (-d), and transit to transit influence (-D) charts will
-display next to each aspect if it’s an eclipse, and if so whether it’s total
-(or an occultation in which one body completely covers another), annular (or a
-transit in which one body is passing in front of another), partial (in which
-one body partially overlaps another), penumbral (in which part of the Moon is
-in the Earth’s shadow, i.e. some part of the Moon’s surface is experiencing a
-partial Solar eclipse), or total penumbral (a semi-rare condition in which all
-of the Moon is within the Earth’s penumbra, but no part of the Moon is in the full
-umbra). Note that for accurate Solar Eclipse times, such as detecting when
-totality begins and ends, your location on Earth is very important, so you
-should have topocentric positions on (-YV switch). Similarly, for Lunar
-Eclipses you want to consider the effect of Earth’s shadow from the geocentric
-middle of the planet, which means you should have topocentric positions off.</p>
-
-<p class=B>If the print nearest minute setting (-b0 switch) is in effect, then
-any eclipses will include the percentage of the planet’s diameter involved. For
-example, for partial eclipses it will range from 1% (just beginning to cover)
-to 99% (just shy of totality or annularity). For annular and total eclipses it
-will range from 1% (complete overlap just begin) to 100% (planets’ middles
-perfectly centered at the same position). For penumbral eclipses it will range
-from 1% (Moon just entering Earth’s penumbra) to 100% (totally within
-penumbra).</p>
-
-<p class=B>The transit to transit graphs (-B switch) will graph the intensity
-of an eclipse over time. In the text mode transit graph, times during eclipses
-will be marked by special characters: Total eclipses or occultations are indicated
-by “T”, annular eclipses or transits are “A”, partial eclipses are “P”, and
-penumbral lunar eclipses are “p”. In graphics mode, a second graph will be
-drawn in dark blue overlapping the first. The height of this graph will
-indicate the type of eclipse and its percentage progression: Penumbral eclipses
-will range from 1/12 to 3/12 height of the area, partial eclipses will range
-from 5/12 to 7/12, and annular or total from 9/12 to 11/12. These three “zones”
-make it easy to see (for example) a lunar eclipse progressing over time, and
-when it moves from penumbral to partial to total.</p>
-
-<p class=A><span class=V>5. Aspect line labeling:</span> Lines indicating
-aspects between objects (such as seen in the middle of wheel charts, as well as
-in solar system orbit charts and chart spheres) have the option to draw the
-aspect’s glyph over the middle of the line. The new -XA switch (and the new
-“Show Glyphs On Aspect Lines” menu command on the “Graphics / Show Map Effects”
-submenu) will label aspect lines in this manner.</p>
-
-<p class=A><span class=V>6. Extra asteroids:</span> Astrolog can display custom
-asteroids and other bodies, assuming their Swiss Ephemeris format ephemeris
-files have been downloaded, however doing so usually requires specifying each
-asteroid individually. The new -XE switch will display an arbitrarily long sequence
-of asteroids. It takes two parameters: The low and high minor planet numbers of
-the bodies to calculate and list. This is a quick way to display hundreds or even
-thousands of asteroids at once, assuming their ephemeris files have been
-downloaded. Extra asteroids may be seen in the graphics charts for local
-horizon (-Z switch), solar system orbit (-S switch), on world maps and chart
-spheres, and in the text mode list objects table (-HO switch). For example, here’s
-a fun Astrolog animation in which 10,000 asteroids are orbiting around the Sun
-at once: <a href="http://www.astrolog.org/astrolog/screen/asteroid.gif">http://www.astrolog.org/astrolog/screen/asteroid.gif</a></p>
-
-<p class=B><span class=V>Extra asteroid labeling:</span> The asteroid list
-feature is very similar to the existing -XU switch which displays all the stars
-in the sefstars.txt file, except this displays a range of asteroids instead.
-The -XU switch subsetting will affect asteroids too, in which -XU1 shows just a
-dot, -XU2 has the asteroid’s name labeled, -XU3 is a larger dot, and -XU4 is a
-large dot with label. Assuming labels are present as defined by -XU, then the -XE
-switch can be invoked with a trailing digit to determine how exactly asteroids
-are labeled. Doing -XE1 will have no label, -XE2 will label with the asteroid’s
-number (e.g. “10”), -XE3 will label with the asteroid’s name (e.g. “Hygiea”),
-and -XE4 will label with both number and name (e.g. “10 Hygiea”).</p>
-
-<p class=B><span class=V>Extra asteroid colors:</span> The new -YkE switch can
-be used to specify colors to use for particular extra asteroids when the show
-asteroids setting (-XE switch) is active. It takes one parameter, which is a
-comma separated list of string pairs. These pairs indicate the numeric index of
-an asteroid followed by the name of the color to use for it. For example, “-YkE
-5,Red,10,Blue” will highlight asteroid “5 Astrea” in red and “10 Hygiea” in blue.
-You can also reference the name or number+name of the asteroid, if the -XE
-switch is set appropriately so that asteroids are being labeled in that format.
-For example, if -XE2 is in effect, then “-YkE Astraea,Red,Hygiea,Blue” will
-also work.</p>
-
-<p class=A><span class=V>7. Windows context menus:</span> In the Windows
-version, each graphics chart has a unique popup menu that can be brought up by
-right-clicking on the window. There are 13 different popup menus, which allow
-changing settings specialized to that graphics chart. This is a quick and easy
-way to modify charts in ways that may not be readily apparent otherwise.</p>
-
-<p class=A><span class=V>8. Full screen mode:</span> In the Windows version, the
-new “Size Window Full Screen” menu command on the “Edit / Window” submenu
-(accessible with the “Shift+Tab” hotkey) will toggle the Astrolog window into
-or out of full screen mode. The scrollbars will determine the relative
-placement of the Astrolog chart within the screen, if they have different
-proportions (e.g. scrollbars centered will center the chart within the screen).
-</p>
-
-<p class=A><span class=V>9. Screen saver:</span> Astrolog can act as a Windows
-screen saver. To use it as one, copy the Astrolog.exe executable to the file Astrolog.scr
-in your Windows system directory (which is usually C:\WINDOWS\SYSTEM32). The
-right directory is the one that has other .scr extension screen savers in it.
-Once installed, in Windows select “Start / Settings / Control Panel / Display /
-Screen Saver” or equivalent, and pick “Astrolog” from the list. When Previewed
-or when started as a screen saver, the default display will be a wheel chart starting
-from the current moment now and animating forward a minute at a time. If the
-file “astrolog.as” exists in the same directory as Astrolog.scr, then that file
-will be loaded on startup, which can change the default behavior. You can’t set
-an unlock password when Astrolog is running as a screen saver, and the Settings
-button won’t do anything other than show the same animation within a window.</p>
-
-<p class=B>Astrolog knows to act as a screen saver when Windows invokes it with
-specific command switches, and will exit immediately when a key is pressed or
-the mouse is moved. “Astrolog /s” (run screen saver) will run in full screen
-mode. “Astrolog /c” and “Astrolog /a” (configure screen saver) will run in
-windowed mode. “Astrolog /p” (preview screen saver) will do nothing. One can
-invoke Astrolog with these switches to test its screen saver functionality, or
-use the new -WZ switch, which will turn on the internal mode which makes the
-program exit on the next user action.</p>
-
-<p class=A><span class=V>10. Scrollbar positioning:</span> In the Windows
-version, the new -WB switch will set the window’s scrollbars. Its two
-parameters specify the horizontal and vertical scrollbar positioning. Both are
-numbers from 0-24, in which 0 is the left or top edge, 24 is the right or
-bottom edge, and 12 is centered in the middle.</p>
-
-<p class=A><span class=V>11. Equatorial declination:</span> Astrolog can
-display vertical planet coordinates as equatorial declination (instead of as
-ecliptic latitude, which is the default). To do this, turn on the new -sr0 switch
-(which is also available by turning on “Equatorial Latitudes” in the
-Calculation Settings dialog). This is an extension of the old -sr switch, which
-turns on equatorial coordinates for both longitude and latitude (but may be
-less useful since it distorts zodiac position longitudes). These two settings
-together can cover all four combinations of ecliptic versus equatorial
-coordinates. For example “=sr _sr0” will result in equatorial longitudes and
-ecliptic latitudes, by turning on equatorial for both and then turning off
-equatorial latitudes.</p>
-
-<p class=A><span class=V>12. Star brightness adjustment:</span> Star brightness
-is usually a fixed value indicating the star’s magnitude as currently viewed
-from Earth. The new -YUb switch when active adjusts star brightness based on
-the star’s current distance from the central object. This is useful when doing
-charts for extreme past or future times (in which the stars have drifted to
-different distances and therefore brightnesses) and especially when casting
-charts centered on other star systems (which have a more immediate effect on
-distance and brightness). For example, the star Sirius is magnitude -1.46 now,
-however in the year 38,000 when it’s closer to our Sun it will have brightened
-to -1.57, and by the year 300,000 it will have dimmed to just +0.01. Also, the
-new -YUb0 switch will make brightness be displayed as a star’s absolute
-magnitude, or the inherent brightness of the star independent of distance
-(which is defined as the magnitude of the star when viewed from 10 parsecs or
-32.6 light years away).</p>
-
-<p class=A><span class=V>13. Star velocity ordering:</span> Star objects when
-listed in certain charts may be ordered by their longitudinal velocity with the
-new -Uv switch. In the Windows version, there’s a new “By Velocity” option in
-the “Fixed Star Ordering” section of the Chart Settings dialog.</p>
-
-<p class=A><span class=V>14. Restrict all aspects:</span> The new -RA0 switch
-will restrict all aspects. (This is similar to the -R0 switch which restricts
-all objects, and is equivalent to doing -A 0.) Similarly, the new -RA1 switch
-will unrestrict and show all aspects. (This is similar to the -R1 switch which
-restricts all objects, and is equivalent to doing -A 18 after -A 0).</p>
-
-<p class=A><span class=V>15. Glyph redefinition:</span> The -YXD and -YXA
-switches, which allow one to redefine the graphic glyphs used for objects and
-aspects, take two parameters for the small and large sized glyphs, which
-requires defining both. The new -YXD1 and -YXA1 switches are simpler in that
-they take a single parameter for the small glyph. The large glyph will be the
-small glyph scaled appropriately.</p>
-
-<p class=A><span class=V>16. Julian calendar date:</span> Astrolog assumes the
-Gregorian calendar when inputting and displaying dates after October 15, 1582,
-and the Julian calendar for dates before then. In obscure cases, one might want
-the Julian calendar in effect later or the Gregorian calendar earlier. The new -ig
-switch is like -i, but will read chart data into variables which indicate the
-date to use for the start of the Gregorian calendar. The virtual file “__g” can
-be used to access the current crossover date. For example, “-qd Mar 1 1700 -ig
-nul” will have the Gregorian calendar start on March 1, 1700, as it did in
-Germany.</p>
-
-<p class=A><span class=V>17. New house systems:</span> Astrolog supports five theoretical
-equal house systems. They don’t appear as Windows menu options, but can be
-selected by the command line.</p>
-
-<p class=B>-c 22: Midheaven based Whole houses: Standard Whole houses has the
-1st house at the start of the sign of the Ascendant. Midheaven based Whole
-houses has the 10th house at the start of the sign of the Midheaven. This is
-similar to the difference between standard Equal houses which ties the 1st
-house to the Ascendant, and Equal (MC) houses which ties the 10th house to the
-Midheaven.</p>
-
-<p class=B>-c 23: Midheaven based Vedic houses: Standard Vedic houses has the Ascendant
-in the middle of the 1st house. Midheaven based Vedic houses has the MC in the
-middle of the 10th house.</p>
-
-<p class=B>-c 24: Balanced Equal houses: This is a mixture between Ascendant
-and Midheaven based Equal houses. Here the difference between the Asc and MC is
-applied to both the 1st and 10th cusps equally, so the amount the Asc is
-different from the 1st cusp is always the same as the amount the MC is
-different from the 10th. On a technical level, Balanced Equal houses places the
-Asc/MC midpoint in the middle of the 11th house, which ensures a balanced
-distribution, as seen in this animation: <a
-href="http://www.astrolog.org/astrolog/pic/equal.gif">http://www.astrolog.org/astrolog/pic/equal.gif</a></p>
-
-<p class=B>-c 25 Balanced Whole houses: Similar to Balanced Equal houses, this
-is a mixture between Ascendant and Midheaven based Whole houses. Just as
-Ascendant based Whole houses has the Ascendant somewhere in the 1st house, and
-Midheaven based Whole houses has the Midheaven somewhere in the 10th, Balanced
-Whole houses ensures the Asc/MC midpoint is always in the 30 degree section half
-way between the 1st and 10th houses.</p>
-
-<p class=B>-c 26: Balanced Vedic houses: Similar to Balanced Equal houses, this
-is a mixture between Ascendant and Midheaven based Vedic houses. The end result
-of these five theoretical house systems combined with the four more common
-existing house systems, is a 3x3 grid of nine house systems total. There’s
-Equal, Whole, and Vedic along one axis. Along the other axis, each of these three
-concepts can be centered around the Ascendant, centered around the Midheaven,
-or balanced between the two.</p>
-
-<p class=A><span class=V>18. AstroExpressions:</span> AstroExpressions are programmable
-customizations that don’t require recompiling the program, and can be
-considered an extended form of command switches. You can compose expressions to
-do a variety of operations, such as create your own house systems. There are 13
-new AstroExpression related command switches, which all start with “-~” (dash
-tilde). See the AstroExpression Features section at the end of this document
-for details about them.</p>
-
-<p class=A>--</p>
-
-<p class=A>Here's a summary of the 33 new command switches in Astrolog 7.00
+<p class=A><span class=V>1. Telescope chart:</span> Astrolog features a new
+chart which shows a particular section of sky, like what a telescope presents.
+It’s similar to the local horizon chart, except zoomed in and with more detail.
+It shows planet disk sizes of the Sun and Moon (and planets if you zoom in
+enough). This is a great way to watch solar or lunar eclipses, or transits and
+occultations of other bodies. (For accurate solar eclipse viewing, have topocentric
+positions turned on to take into account where you are on the globe.) If the
+Earth is unrestricted in a geocentric chart, then the Earth will be drawn as
+its umbra and penumbra shadows at the Moon’s distance, for lunar eclipses. This
+chart also shows Moon phases, which means part of the Moon will be in shadow,
+and the phase percentage will be displayed at the bottom of the chart. Phases can
+be seen on other planets too (Mercury and Venus especially, along with outer
+planets although they’re always close to full). Show the telescope with the new
+-XZ command switch, or the “Graphics / Draw Telescope” command in the Windows
+version.</p>
+
+<p class=B>In the Windows version, right clicking on the chart will bring up a
+context menu with a dozen commands, allowing one to toggle different settings
+which determine what things are shown in the chart. As with the local horizon
+chart (which shows the entire sky) the telescope chart allows you to toggle
+whether constellation boundaries, zodiac sign boundaries, 2D or 3D house boundaries,
+and the list of all stars are visible. In addition, one can toggle whether the
+Moon and other planets are drawn as crescents (in which the part in shadow will
+be drawn in dark blue) with the -XA switch setting, whether the boundaries of
+planets will always be visible (even when occulted or behind another planet)
+with the -L0 switch setting, whether the horizon line is drawn (with the -Xe
+switch setting), and whether a grid of dots covers the chart (with the -XL
+switch setting). The chart itself can reflect the local horizon (with axes of
+azimuth and altitude), or the ecliptic (with axes of zodiac position longitude
+and ecliptic latitude), determined with the -YXe switch setting.</p>
+
+<p class=B>The telescope can track a planet as it moves. An optional argument
+to the -XZ switch specifies the planet to keep in the middle of the chart. In
+the Windows version, the new field “Telescope Focuses on This Object” in the
+Graphics Settings dialog controls this. If a planet is not being tracked, then
+the section of sky being looked upon is determined by the map rotation and tilt
+settings. Changing these settings will move the chart view to other areas of
+the sky, and stop any tracking that is in place. The viewing location can also
+be changed by pressing the square and curly bracket hotkeys, or in the Windows
+version by right clicking on the window and dragging.</p>
+
+<p class=B>The number of degrees of sky that’s visible is determined by the
+-YXS switch setting. In the Windows version, the new “Graphics / Map
+Orientation / Zoom Out” and “Zoom In” commands will double or halve the number
+of degrees seen. These commands also zoom on other graphics charts, such as the
+solar system orbit, and the new nearby cities chart below.</p>
+
+<p class=A><span class=V>2. Nearby cities chart:</span> Astrolog can display a
+graphical version of its atlas, which plots the location of nearby cities on a
+map. This chart also draws directional lines toward where on Earth each planet
+is at its zenith. (This local space compass view is used in locational
+astrology, and its lines are somewhat related to the angle lines in astrocartography.)
+Show this chart by combining the -Nl nearest cities chart switch with -X, or in
+the Windows version by selecting the new “Chart / Nearest Cities” command. As
+with the telescope chart, you can pan and zoom the part of the earth viewed
+with the rotation and zoom commands and hotkeys. Right clicking on the chart
+will bring up a context menu allowing one to toggle different settings which determine
+what things are shown in the chart.</p>
+
+<p class=A><span class=V>3. Planetary moons:</span> Astrolog supports Swiss Ephemeris
+format ephemeris files for moons orbiting other planets (such as Saturn’s Titan
+and Jupiter’s Ganymede). The new -Yem switch is like -Yeb, except it references
+a planetary moon ephemeris file instead of an asteroid ephemeris file.
+Planetary moon ephemeris files have filenames like “sepm9XYZ.se1”, in which
+“XYZ” is the designation for the moon. In this designation, “X” is the planet
+being orbited (4=Mars, 5=Jupiter, 6=Saturn, 7=Uranus, 8=Neptune, 9=Pluto) and
+“YZ” is the moon in question. For example, “sepm9501.se1” defines Jupiter’s
+Moon Io. This moon can be assigned to Cupido’s object slot with “-Yem Cup 501”.
+Also, “moon” #99 is the true non-barycentric position of the planet, e.g.
+“sepm9599.se1” defines the actual position of Jupiter’s center of body taking
+into account the gravitational perturbations of its moons (in comparison to the
+standard Jupiter planet object which is the center of mass of the Jupiter
+system). For more about planetary moons, how to use and interpret them in
+astrology, and how to display them in Astrolog, see: <a
+href="http://www.astrolog.org/astrolog/astmoon.htm">http://www.astrolog.org/astrolog/astmoon.htm</a></p>
+
+<p class=A><span class=V>4. Planetary moon overlay:</span> The new -Ym switch
+turns on a mode such that planetary moons and other objects orbiting planets are
+displayed as orbiting the central object instead. This will also affect Earth’s
+Moon, the Moon’s Nodes, and Lilith. (In addition, when another star is the
+central object, planets orbiting our Sun will instead be made to orbit the
+other star system.) Planetary moons are usually very close to the planet they
+orbit, making it necessary to do a planet centered chart to get a good look at
+the relative orientation of its moons. In other words, this option overlays
+planet centered moon positions with the standard natal chart. Because a planet
+is a mini-solar system, there can be sympathetic connections between moons
+around a planet, and planets around the Sun at the same relative angle (or even
+between moons around different planets that are at the same relative angles).</p>
+
+<p class=A><span class=V>5. Ecliptic parallels:</span> Parallel and
+contraparallel aspects are usually calculated relative to equatorial
+declination. The new -AP switch will instead calculate parallel aspects
+relative to ecliptic latitude. Note that since most planets are on or near the
+ecliptic, aspect orbs should be very narrow to avoid most everything being
+parallel to everything else.</p>
+
+<p class=A><span class=V>6. Nutation:</span> Astrolog (and the Swiss Ephemeris that
+it uses) takes into account nutation, or the periodic subtle wobble of Earth’s
+axis. The new -Yn0 switch will turn nutation off for the tropical zodiac.
+(Nutation is always properly ignored in the fixed sidereal zodiac.)</p>
+
+<p class=A><span class=V>7. Create settings file:</span> The new -od switch
+will output program settings to the specified file, or in other words generate
+the contents of astrolog.as. Before, creating the default settings file was
+only available on the Windows version with the “File / Save Settings” command.</p>
+
+<p class=A><span class=V>8. Window positioning:</span> In the Windows version,
+the new -Ww switch (taking two parameters) will change the coordinates of the
+origin of the program’s window. This is a way to precisely or programmatically
+position or move the window.</p>
+
+<p class=A>-</p>
+
+<p class=A>Here's a summary of the 18 new command switches in Astrolog 7.10
 that weren't in previous versions:</p>
 
-<p class=N><span class=Z>-N [&lt;rows&gt;]:</span> Lookup chart location as
-city in atlas.</p>
-
-<p class=N><span class=Z>-Nl [&lt;rows&gt;]:</span> Display nearest cities in
-atlas to chart location.</p>
-
-<p class=N><span class=Z>-Nz [&lt;rows&gt;]:</span> Display all time changes in
-time zone of chart city.</p>
-
-<p class=N><span class=Z>-t[p]d: &lt;month&gt; &lt;day&gt; &lt;year&gt;:</span>
-Compute transits for a single day.</p>
-
-<p class=N><span class=Z>-zN &lt;city&gt;:</span> Lookup city in atlas and set
-zone, Daylight, and location.</p>
-
-<p class=N><span class=Z>-sr0:</span><span class=Z><span style='color:windowtext;
-font-weight:normal'> Like -sr but only display declinations instead of
-latitudes.</span></span></p>
-
-<p class=N><span class=Z>-XA:</span> Draw aspect glyphs over aspect lines in
-charts.</p>
-
-<p class=N><span class=Z>-XE &lt;low&gt; &lt;high&gt;:</span> Draw range of
-asteroids in certain charts.</p>
-
-<p class=N><span class=Z>-XE[0-3] [..]:</span> Like _XE but set whether to
-label ast number and name.</p>
-
-<p class=N><span class=Z>-XL:</span> Plot city locations from atlas on world
-map.</p>
-
-<p class=N><span class=Z>-WB &lt;0-24&gt; &lt;0-24&gt;:</span> Set window
-scrollbar positions.</p>
-
-<p class=N><span class=Z>-WZ: </span>Treat program as screen saver, and exit
-next user input.</p>
-
-<p class=N><span class=Z>-Yu:</span> Display eclipse and occultation
-information in charts.</p>
-
-<p class=N><span class=Z>-YUb:</span> Adjust star brightness to apparent
-magnitude based on distance.</p>
-
-<p class=N><span class=Z>-YUb0:</span> Set brightness to distance independent
-absolute magnitude.</p>
+<p class=N><span class=Z>-od &lt;file&gt;:</span> Output program's current
+settings to switch file.</p>
 
-<p class=N><span class=Z>-YkE &lt;astlist&gt;:</span> Customize list of extra
-asteroid colors.</p>
+<p class=N><span class=Z>-AP:</span> Parallel aspects based on ecliptic not
+equatorial positions.</p>
 
-<p class=N><span class=Z>-YY &lt;rows&gt;:</span> Load atlas list of city
-locations from current file.</p>
+<p class=N><span class=Z>-XZ:</span> Display telescope chart zoomed in on part
+of sky.</p>
 
-<p class=N><span class=Z>-YY1 &lt;rules&gt; &lt;entries&gt;: </span>Load
-Daylight Time rules from current file.</p>
+<p class=N><span class=Z>-Ym:</span> Position planetary moons around current
+central object.</p>
 
-<p class=N><span class=Z>-YY2 &lt;zones&gt; &lt;entries&gt;:</span> Load time
-zone change lists from file.</p>
+<p class=N><span class=Z>-Yn0:</span> Don't consider nutation in tropical
+zodiac positions.</p>
 
-<p class=N><span class=Z>-YY3 &lt;rows&gt;: </span>Load atlas time zone to zone
-change mappings from file.</p>
+<p class=N><span class=Z>-Yem &lt;obj&gt; &lt;index&gt;:</span> Change orbit of
+Uranian to planet moon ephemeris.</p>
 
-<p class=N><span class=Z>-~ &lt;string&gt;:</span> Display result of string
-parsed as AstroExpression.</p>
+<p class=N><span class=Z>-Ww &lt;hor&gt; &lt;ver&gt;:</span> Set upper left
+coordinates of window.</p>
 
-<p class=N><span class=Z>-~a &lt;string&gt;:</span> Set adjustment for aspect
-list powers.</p>
+<p class=N><span class=Z>-~v &lt;string&gt;:</span> Set adjustment for object
+display ordering.</p>
 
-<p class=N><span class=Z>-~E &lt;string&gt;:</span> Set filter for text
-ephemeris lines.</p>
+<p class=N><span class=Z>-~g &lt;string&gt;:</span> Set filter for aspect configurations.</p>
 
-<p class=N><span class=Z>-~d &lt;string&gt;:</span> Set filter for transit to
-transit events.</p>
+<p class=N><span class=Z>-~a0 &lt;string&gt;:</span> Set notification for
+aspect list summary.</p>
 
-<p class=N><span class=Z>-~t &lt;string&gt;:</span> Set filter for transit to
-natal events.</p>
+<p class=N><span class=Z>-~m &lt;string&gt;:</span> Set filter for midpoint
+display.</p>
 
-<p class=N><span class=Z>-~j &lt;string&gt;:</span> Set adjustment for object
-influence.</p>
+<p class=N><span class=Z>-~ma &lt;string&gt;:</span> Set filter for displaying
+aspects to midpoints.</p>
 
-<p class=N><span class=Z>-~O &lt;string&gt;:</span> Set adjustment for object
-calculations.</p>
+<p class=N><span class=Z>-~L &lt;string&gt;:</span> Set filter for astro-graph
+latitude crossings.</p>
 
-<p class=N><span class=Z>-~C &lt;string&gt;:</span> Set adjustment for house
-cusp calculations.</p>
+<p class=N><span class=Z>-~P &lt;string&gt;:</span> Set filter for Arabic parts
+display.</p>
 
-<p class=N><span class=Z>-~A &lt;string&gt;:</span> Set adjustment for aspect
-orbs.</p>
+<p class=N><span class=Z>-~p[0] &lt;string&gt;:</span> Set adjustment for
+progression offset.</p>
 
-<p class=N><span class=Z>-~kO &lt;string&gt;:</span> Set adjustment for object
-colors.</p>
+<p class=N><span class=Z>-~q[1-2] &lt;string&gt;:</span> Set notification
+before/after chart cast.</p>
 
-<p class=N><span class=Z>-~kA &lt;string&gt;:</span> Set adjustment for aspect
-colors.</p>
+<p class=N><span class=Z>-~Q[1-2] &lt;string&gt;:</span> Set notification
+before/after chart displayed.</p>
 
-<p class=N><span class=Z>-~M &lt;0-26&gt; &lt;string&gt;:</span> Define the specified
-AstroExpression macro.</p>
+<p class=N><span class=Z>-~1 &lt;string&gt;:</span> Simply parse AstroExpression
+(don't show result).</p>
 
-<p class=N><span class=Z>-~0:</span> Disable all automatic AstroExpression
-checks in the program.</p>
+<p class=A>Here's a summary of the 4 new menu commands in the Windows version
+of Astrolog 7.10 that weren't in previous versions:</p>
 
-<p class=A>Here's a summary of the 3 new menu commands in the Windows version
-of Astrolog 7.00 that weren't in previous versions:</p>
+<p class=N>Chart / Nearest Cities</p>
 
-<p class=N>View / Window Settings / Size Window Full Screen</p>
+<p class=N>Graphics / Draw Telescope</p>
 
-<p class=N>Graphics / Show Map Effects / Show Glyphs On Aspect Lines</p>
+<p class=N>Graphics / Map Orientation / Zoom Out</p>
 
-<p class=N>Graphics / Show Map Effects / Show Cities</p>
+<p class=N>Graphics / Map Orientation / Zoom In</p>
 
 <p class=B style='margin-left:0in'>&nbsp;</p>
 
@@ -710,195 +407,70 @@
 
 </div>
 
-<p class=A>A list of improvements to existing features in Astrolog 7.00, such
+<p class=A>A list of improvements to existing features in Astrolog 7.10, such
 as new things you can now do with old features that you couldn’t do before, or
 ways that existing features work better than before:</p>
 
-<p class=A><span class=W>1. 3D house systems:</span> Astrolog now supports
-multiple systems of “3D houses”. Every standard house system now has a
-corresponding 3D house system, defined by great circles drawn from the due
-South point to the due North point on the local horizon, passing through each
-2D cusp where it intersects the ecliptic. See <a
-href="http://www.astrolog.org/astrolog/pic/placidus.gif">http://www.astrolog.org/astrolog/pic/placidus.gif</a>
-for an example of 3D Placidus houses. Before, Astrolog only supported 3D
-Campanus or “3D Equal houses”, in which each 3D house is an equal sized 30
-degree slice of the celestial sphere. Note that chart spheres always draw the
-horizon (which the Ascendant is on) and meridian (which the Midheaven is on),
-which means 3D non-quadrant systems (which disassociate the 1st cusp from the
-Ascendant and/or the 10th cusp from the Midheaven) will show 13 or 14 lines
-crossing the sphere instead of just 12.</p>
-
-<p class=A><span class=W>2. Astro-graph all cusps:</span> Astrolog’s world map
-displays can show astrocartography lines on it. These displays will now show
-astro-graph lines for the minor cusps as well, when the minor cusp objects are
-unrestricted. Just as the Ascendant line in astrocartography shows where on the
-world an object is rising, a minor cusp line shows where on the world the
-object is exactly conjunct that cusp (or its 3D cusp to be precise). Standard
-astro-graph lines are based on the angles, and that means non-quadrant house
-systems (which disassociate the 1st cusp from the Ascendant and/or the 10th
-cusp from the Midheaven) will show 13 or 14 lines on the world instead of just
-12. Note that this addition is only for the world map and globe displays which
-can show astro-graph lines, while the actual astro-graph chart (-L switch) is
-still limited to the classic view of the angles.</p>
-
-<p class=A><span class=W>3. Screen fonts:</span> The Windows version of
-Astrolog can now display real fonts in graphics charts on screen, for sign,
-planet, and aspect glyphs. Before, one could only include actual fonts in
-PostScript and Windows metafile files, and Astrolog’s internal vector font was
-the only option for screen graphics. Now, the “Use Real System Fonts In
-Graphics Charts” option in the Display Settings dialog (-YXf switch) will
-affect screen graphics too.</p>
-
-<p class=A><span class=W>4. Aspect calendar:</span> Astrolog’s graphic calendar
-chart (-K -X switches) will include aspect and other events times within each day’s
-box, if the new “show glyphs on aspect lines” setting is active (-XA switch).
-This effectively combines the graphic calendar with the existing transit to
-transit times search (-d switch). Depending on the amount of room available in
-the boxes, displayed will be the aspect event, its exact time, and markers for
-void of course Moon and Moon phases. Do you miss the aspect calendars in Jim
-Maynard’s Celestial Guide and Pocket Astrologer books, after they stopped
-printing them? This feature can allow you to make your own. :)</p>
-
-<p class=A><span class=W>5. Multi-year graphic ephemeris:</span> The graphic
-ephemeris (-E -X switches) can now graph multiple years instead of just one
-year. The parameter passed to the -EY multiple ephemeris years switch (which is
-also present in the “Years To Span” field in the Transits dialog in the Windows
-version) will determine how many years the graphic ephemeris covers.</p>
-
-<p class=A><span class=W>6. Applying parallel aspects:</span> Applying/separating
-indicators will now be shown for parallel and contraparallel aspects. Before,
-all such “vertical” aspects would always be shown as separating. Also, when the
-applying aspects setting is not active, the +/- sign for the orb will show
-whether the average of the two planets’ positions is above or below 0
-declination.</p>
-
-<p class=A><span class=W>7. Vertical velocity:</span> The velocity of a
-planet’s motion along the vertical latitude axis (which is used to compute
-applying/separating parallel aspects) will be displayed in the standard text
-mode chart (-v switch) when the print nearest second setting (-b0 switch) is
-on. This will be shown in the last column if the parallel aspects setting is
-off (otherwise the decan position will be shown there, which was the only
-option available in previous versions).</p>
-
-<p class=A><span class=W>8. Dispositor objects extended:</span> The graphic
-dispositor chart (-j -X switches) will include all non-star and non-cusp
-objects in the graphs, when unrestricted. For example, you can include
-asteroids, Nodes, Lilith, and Uranians in these charts.</p>
-
-<p class=A><span class=W>9. New dispositor settings:</span> The graphic
-dispositor chart is affected by the Vedic wheel display setting (-J switch),
-which will cause the dispositor wheel to arrange objects clockwise instead of
-counterclockwise around it. Also, the dispositor chart is affected by the show
-house details setting, which will cause the depositor wheel to have the Sun or
-first object at the top of the wheel instead of at the left.</p>
-
-<p class=A><span class=W>10. Transit influence summary:</span> The transit
-influence charts (-D and -T switches) will print an aspect summary afterward,
-listing the total and average power of the aspects, along with the count of
-each aspect and the count of aspects to each planet. This is similar to the
-summary displayed after the aspect list chart (-a switch), and like that
-summary it’s on by default can be removed by turning off the -a0 switch
-setting.</p>
-
-<p class=A><span class=W>11. One day transits:</span> The transit to natal
-times search (-t switch) and progressed to progressed times search (-dp switch)
-can now be done for a single day. The default is to search over a month, since
-these are slower events that often only have a few per month. Before, the
-minimum amount they would search would be a month, even when “Given Day” was
-selected in the Transits dialog. On the command line, the new -td &lt;day&gt;
-&lt;month&gt; &lt;year&gt; switch will search over a single day.</p>
-
-<p class=A><span class=W>12. Aspects to Arabic parts:</span> The Arabic parts
-list chart now has an option to, for each part, display a list of aspects from
-unrestricted planets to it. This is similar to how the midpoint list chart can
-display aspects to midpoints, and as a result the “text midpoint list includes
-aspects to midpoints” chart setting (-ma switch) will affect the Arabic parts
-chart too.</p>
-
-<p class=A><span class=W>13. Mystic rectangle configuration:</span> Aspect
-configurations as displayed in the text mode aspect grid chart (-g0 switch)
-will now include instances of the Mystic Rectangle aspect configuration (a
-rectangle composed of two Trines and two Sextiles).</p>
-
-<p class=A><span class=W>14. Aspect list events:</span> The aspect list chart
-will flag notable aspects such as Moon phases (e.g. “Full Moon”) and eclipses
-(if the new -Yu switch setting is on).</p>
-
-<p class=A><span class=W>15. Orbit chart extension:</span> The text mode solar
-system orbit chart (-S switch) will now display the azimuth in the current
-display format (zodiac position, number, or hours/minutes) instead of only as a
-number. Also, when star objects are unrestricted, their brightness will be
-included.</p>
-
-<p class=A><span class=W>16. Text chart info extension:</span> When doing text
-mode charts, the program will display chart information (such as date and time)
-above most of them. Before, only the standard listing would have a header,
-which would often leave other chart types lacking context. When displaying
-multiple different text charts at once, only the first chart will contain a
-header.</p>
-
-<p class=A><span class=W>17. Graphic chart info extension:</span> In graphics
-charts, when displaying chart info at the bottom of the chart, this line of
-text will now include the chart’s name and location strings.</p>
-
-<p class=A><span class=W>18. Time zone details:</span> In the Windows version,
-the “Time Zone” field in the Chart Info dialogs lists the hour offset for each
-time zone in addition to its abbreviation, in the field’s dropdown. Before
-you’d have to select and apply an abbreviation, then display a chart or go back
-into the dialog to see what offset an abbreviation actually referred to. Although
-improved, specifying time zones is less important now, given Astrolog’s new
-ability to automatically detect a city’s time zone and Daylight offset for a
-time and location.</p>
-
-<p class=A><span class=W>19. Ayanamsa details:</span> In the Windows version,
-the “Zodiac Offset / Ayanamsa” field in the Calculation Settings dialog lists
-the name of common ayanamsas in addition to their offset, in the field’s
-dropdown. That of course makes it much easier to select a common ayanamsa
-without having to know which offset corresponds to it.</p>
-
-<p class=A><span class=W>20. Time parsing extended:</span> When parsing time
-zones, the number can now be preceded by the letter “H”, e.g. “h5w” is the same
-as “5w”. Also, for times and locations, seconds can be specified by having four
-digits in a row after the degree/hour, e.g. “12:3456” is equivalent to
-“12:34:56”. These are formats used by Astrodienst on astro.com, which it’s good
-to be able to parse.</p>
-
-<p class=A><span class=W>21. Orbit trails extended:</span> The -YXj switch
-which specifies the length of orbit trails in the graphics mode solar system
-orbit chart (-S -X switches) has been extended. If the -YXj switch parameter is
-negative, it will instead draw complete orbits for objects circling the Sun or
-Earth. These orbits will be circles of the object’s current radius in the plane
-of the ecliptic, so aren’t fully accurate, but are still visually useful. Orbit
-circles will only be drawn for objects whose transit restrictions are also
-unrestricted, which allows specifying which objects you want to see orbits for.</p>
-
-<p class=A><span class=W>22. Customize star glyphs:</span> The -YXD switch to
-customize the graphic glyphs for objects now supports customizing star glyphs
-too. Before, star objects could only be marked with text abbreviations.</p>
-
-<p class=A><span class=W>23. Constellation lines improved:</span> The -YXU
-switch which allows defining lines between points in the list of all stars has
-been improved. The second parameter usually has number indexes separated with
-commas, however a semicolon will treat subsequent numbers as starting one
-beyond the highest number seen so far. That allows defining separate
-constellations without having to keep track of continually increasing index
-numbers.</p>
-
-<p class=A><span class=W>24. Virtual colors:</span> Colors can be specified as
-references to other colors, in Windows dropdowns and in command switches taking
-color values. For example, &quot;Fire&quot; (the current color of the element
-Fire), &quot;Jupiter&quot; (Jupiter’s current color), &quot;Conjunction&quot; (the
-aspect’s current color), and &quot;Ray3&quot; (that Ray’s current color) all
-work. Color references can be abbreviated by the first three characters, or
-however much is needed to be unique. Note that these are one time only input translations
-to the current value of a particular color, and aren’t persistent aliases that
-will update if the referenced color is later changed.</p>
-
-<p class=A><span class=W>25. Windows menu improvement:</span> The Windows
-version will now place a radio button check mark by the active chart type being
-displayed. For example, checking “Aspect List” on the Charts menu, “Chart
-Sphere” on Graphics menu, or “List Switches” on Help menu will place a mark by those
-commands indicating they’re in effect.</p>
+<p class=A><span class=W>1. Additional fonts:</span> Astrolog supports five
+different fonts for display of signs, houses, planets, and aspects. They are
+Astrolog’s default internal vector drawing, the Wingdings font from Windows
+(signs only), the Astro font by Kenneth Hirst, the EnigmaAstrology font by Jan
+Kampherbeek, and generic high Unicode characters. Support for the Enigma and
+Unicode fonts are new to this version. The -YXf switch has been extended to
+take a four digit number, which indicates which font to use for each area, in
+which 0=Astrolog, 1=Wingdings, 2=Astro, 3=Enigma, 4=Unicode. For example, the
+default when the “use real system fonts in graphics charts” setting is turned
+on is 1022, which means Wingdings for signs, Astrolog for houses, and Astro for
+objects and aspects. In the Windows version, the Graphics Settings dialog has new
+radio button groups so one can select exactly which font they want to use for
+each area.</p>
+
+<p class=A><span class=W>2. Local horizon constellations:</span> The graphic
+local horizon chart (-Z -X command switches) now supports displaying the outline
+of the constellations, when show constellations (the -XF switch setting) is
+turned on.</p>
+
+<p class=A><span class=W>3. Angle house glyphs:</span> The default graphic glyphs
+for the Asc/MC/Des/IC objects are those letter abbreviations. When the “cusp
+objects are house positions instead of angles” setting (-Yc switch) is on, then
+these objects will instead be the positions of the 1st/4th/7th/10th house cusps
+(which differ from the positions of the angles in certain house systems). When the
+-Yc setting is on, the default graphic glyph will instead be the number of the
+house cusp, and also the display text used for the object will indicate the
+house number instead of the angle’s name. This will make it clearer what is
+actually being shown, transited over, and so on.</p>
+
+<p class=A><span class=W>4. Individual city colors:</span> The new -XL5 switch
+will color each city an individual color (one of six colors of the rainbow).
+This is in comparison with the existing -XL1 through -XL4 switches which color
+all cities based on country/region or time zone.</p>
+
+<p class=A><span class=W>5. Part of Fortune latitude:</span> The Part of
+Fortune used to always be placed at 0 ecliptic latitude. Now, if 3D houses are
+on, then the same formula used to derive it (Asc-Sun+Moon) will be applied to
+set its ecliptic latitude as well.</p>
+
+<p class=A><span class=W>6. Swiss Ephemeris version:</span> Astrolog now uses
+Swiss Ephemeris version 2.09.03, which among other improvements includes
+support for accurate velocity of house cusps and related objects like the
+Vertex and East Point. Astrolog actually uses a modified version of it which
+also contains support for planetary moons.</p>
+
+<p class=A><span class=W>7. TZ database updated:</span> Astrolog’s time zone
+change information has been updated to use TZ database version “2020a” (instead
+of “2019b” which was used before). This new version has a few subtle
+corrections and improvements to various areas in the world.</p>
+
+<p class=A><span class=W>8. Better switch errors:</span> Command line switches
+give better errors. A missing argument will tell how many arguments are
+expected. If an argument is bad, the position of which argument will be
+indicated. A bad argument that’s a floating point number will be displayed as
+such, instead of rounded to the nearest integer.</p>
+
+<p class=A><span class=W>9. Command line mouse:</span> The Windows command line
+version (compiled with the WCLI compile time variable turned on) now supports clicking
+and dragging the mouse in the window, like how the main Windows UI version
+does.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -909,59 +481,20 @@
 </div>
 
 <p class=A>A few changes that aren't new feature additions or bug fixes have
-been made to Astrolog 7.00, which means certain old assumptions are no longer
+been made to Astrolog 7.10, which means certain old assumptions are no longer
 valid. Most can be considered improvements, but they still change existing
 behavior. A list of these follows (which aren't useful to be aware of unless
 you have used previous versions of the program):</p>
 
-<p class=A><span class=X>1. Animate transit times:</span> In the Windows
-version, animating charts forward or backward will adjust the time of the
-transiting chart or the progressed chart. This is more expected and useful than
-animating the natal chart, as was done before. This will happen when animating
-the “Transit And Natal” or “Progressed And Natal” bi-wheels (-rt and -rp
-switches).</p>
-
-<p class=A><span class=X>2. Equatorial Positions split:</span> In the Windows
-version, the “Equatorial Positions” checkbox in the Calculation Settings dialog
-has been split into the two new checkboxes “Equatorial Latitudes” and “Equatorial
-Longitudes”. Before, one had to change both together. Now, you can show
-equatorial declinations in charts without changing zodiac positions, which is a
-common preference.</p>
-
-<p class=A><span class=X>3. Prompt ordering:</span> In command line versions of
-the program, when the program interactively prompts one to enter chart
-information for each field, this process will now prompt for location before
-(instead of after) the Daylight Time, time zone, and location fields. If the
-location field matches a city in the atlas, then the appropriate values for
-Daylight Time, time zone, and location will be displayed. The user still has to
-type in those values, but they can now just follow the recommendations.</p>
-
-<p class=A><span class=X>4. File headers changed:</span> The identifying line
-at the start of Astrolog command switch files has been changed slightly. All
-Astrolog command switch files start with a line beginning with “@A”, followed
-by a character identifying the file subtype (which is one of “IPDCZ”), followed
-by the program version number not counting the period (i.e. “700”).
-Specifically, Astrolog chart info files start with “@AI700”, chart position
-files chart with “@AP700”, and default settings files like “astrolog.as” start
-with “@AD700”. The new city atlas file starts with “@AC700”, and the new
-timezone change file starts with “@AZ700”. This new scheme is more easily
-understood than before, in which all files started with “@” and then four digits,
-in which the first two digits were the file type (e.g. “01” for chart info
-files), and the second two digits were the file version which would increment
-each time the file changed in a reasonably significant way. Astrolog 7.00 and
-earlier versions can still load each others’ files without problem.</p>
-
-<p class=A><span class=X>5. Commands renamed:</span> Some Windows menu commands
-have been renamed. “Chart / Standard List” is now “Chart / Standard Radix” (because
-the chart is only a list in text mode, but is the standard wheel chart in graphics
-mode). Also, on the Graphics menu the “Show Chart Sphere”, “Show World Map”,
-“Show Globe”, and “Show Polar Globe” commands now start with “Draw” instead of
-“Show”. That distinguishes actual charts from mere settings that affect charts
-such as the “Show Border” command.</p>
-
-<p class=A><span class=X>6. X icon changed:</span> In X Windows versions, the program’s
-icon is now the same ringed planet as seen in the Windows version. It’s no
-longer a rainbow over an eye.</p>
+<p class=A><span class=X>1. Menu moves:</span> In the Windows version, there’s
+a new “Chart Effects” submenu on the Graphics menu, to which the Show Border,
+Show Chart Info, Show Info Sidebar, Show Glyph Labels, and Show Glyphs On
+Aspect Lines commands have been moved.</p>
+
+<p class=A><span class=X>2. Menu renames:</span> In the Windows version, the “Show
+Map Effects” submenu has been renamed to “Map Effects”. Also, the “Globe Tilt”
+submenu has been renamed to “Map Positioning”, since it covers charts other
+than globes, and includes rotation and zoom as well as tilt.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -971,770 +504,276 @@
 
 </div>
 
-<p class=A>Here are bugs or other issues with version 6.50, all of which have
-been corrected in 7.00:</p>
-
-<p class=A><span class=Y>1. Progressed event times inaccurate:</span> Transit
-to transit event times for progressions (-dp switch) would display the time
-within the day wrong (most often being much earlier in the day than it should
-be).</p>
-
-<p class=A><span class=Y>2. Progression label wrong:</span> The -p progression
-switch wouldn’t remember the progression date. That normally wasn’t a problem,
-since the progressed chart would still be cast correctly. However, the wheel
-chart sidebar which shows the date progressed to would incorrectly show a default
-date. This only affected the -p command switch, and not the Windows “Progressions”
-dialog.</p>
-
-<p class=A><span class=Y>3. Heliocentric Nodes wrong:</span> The Moon’s nodes
-and Lilith would always have their geocentric zodiac positions displayed, even
-when heliocentric mode is active. They’d also display wrong positions when
-bodies other than the Earth or Sun were the central planet.</p>
-
-<p class=A><span class=Y>4. Latitude crossing bug:</span> The list of latitude
-crossings in the text mode astro-graph chart (-L0 switch) would display bogus
-crossings for the Earth (if the Earth object was unrestricted) and when objects
-after object index 50 were present (which means most fixed stars).</p>
-
-<p class=A><span class=Y>5. Void of course omission:</span> The Moon void of
-course markers in the transit to transit times chart (-d switch) would fail to
-notice an aspect event as the Moon going v/c, when the last Moon aspect is in a
-different month than the Moon entering the next sign. This also happened if the
-Moon aspect event and Moon changing sign event were in different blocks of 50
-events (e.g. on lines 50 and 51 of the output).</p>
-
-<p class=A><span class=Y>6. Transiting objects limitation:</span> Transiting
-cusps (when enabled with the -RT and -YRT command switches) wouldn’t appear in
-charts such as transit to natal bi-wheels, unless at least one standard
-non-transiting cusp object (such as the Ascendant) was unrestricted too. A
-similar issue would affect Uranian and fixed star objects, which also required
-at least one standard object in their category to be unrestricted before they’d
-show up in transits.</p>
-
-<p class=A><span class=Y>7. Negative coordinate parsing:</span> Specifying a
-time or longitude/latitude offset as a negative numeric value such as “-1:12” would
-negate the hour but not the minutes, which maps to 12 minutes after hour -1,
-which would be 0:48e, which probably isn’t what one wanted. Now “-1:12” will be
-the same as “1:12e” (just like “1:12” is the same as “1:12w”).</p>
-
-<p class=A><span class=Y>8. HST and NZT zone offset:</span> The time zone
-abbreviations Hawaii Time (HT) and New Zealand Time (NZT) were treated as half
-hour offsets, when (at least in modern times) they’re full hour offsets.
-Although updated, specifying time zones is less important now, given Astrolog’s
-new ability to automatically detect a city’s time zone and Daylight offset for
-a time and location.</p>
-
-<p class=A><span class=Y>9. LMT zone display:</span> Specifying the time zone
-of Local Mean Time would work, however it would be displayed as offset “24.0”
-in charts and in the Chart Info time zone dropdown, instead of as “LMT”.</p>
-
-<p class=A><span class=Y>10. Astro-graph animation:</span> When showing the
-graphic globe or world map with astro-graph lines on it, animation would always
-rotate the world and never animate the time of the chart being displayed. In
-other words, this case would ignore the “animate map instead of time setting”
-(-XN switch).</p>
-
-<p class=A><span class=Y>11. Graphic calendar display:</span> The graphic
-calendar (-K -X switches) would sometimes display the name of the month in too
-large a size, such that it goes over the left and right edges of the window.
-Display of the month name (and the numbers within each day box) now won’t ever
-be larger than will fit within their area.</p>
-
-<p class=A><span class=Y>12. Transit graph display:</span> The graphic transit
-charts (-B/-V -X switches) would sometimes have the text in the upper left
-corner that indicates the transit date overlap the top row, if the text was too
-large to fit. Now this text will only be displayed if it fits within the
-available space.</p>
-
-<p class=A><span class=Y>13. Influence ranking bug:</span> The text influence
-chart (-j switch) would incorrectly skip a rank if a sign’s power was zero. For
-example, if all planets were restricted, signs would be ranked 2-13, instead of
-1-12. Similarly, the text esoteric chart (-7 switch) would display garbage
-percentage values in the corner case of all planets being restricted.</p>
-
-<p class=A><span class=Y>14. Equatorial positions bug:</span> The equatorial
-positions setting (-sr switch) wouldn’t work right if the parallel aspects
-setting (-gp switch) was on at the same time. The effect of both would be to do
-the ecliptic to equatorial coordinate shift twice, which would distort the
-parallel aspects present. The parallel aspects setting is now smart enough to
-only coordinate shift once if vertical coordinates are already being displayed as
-equatorial latitudes.</p>
-
-<p class=A><span class=Y>15. Midpoint aspect display:</span> Aspects to
-midpoints in the midpoint list chart (-ma switch) would incorrectly show
-Par/Cpr aspect abbreviations in place of Con/Opp, when parallel aspects (-gp
-switch) was active, even though the aspects present are actually Conjunction
-and Opposition.</p>
-
-<p class=A><span class=Y>16. Astro-graph Mollewide glitch:</span> Astro-graph
-lines on the Mollewide projection of the world map would sometimes stretch to
-the edge of the window, instead of just to the edge of the world’s oval
-boundary.</p>
-
-<p class=A><span class=Y>17. Sidebar omissions:</span> The sidebar of the
-graphics wheel chart should include house cusp objects in the list (even if
-it’s the same as the corresponding house cusp already listed) if its latitude
-is non-zero. Usually house cusp objects are at latitude 0, but having
-equatorial latitudes on (-sr switch) can move them. Also, the sidebar now
-includes a line for the harmonic chart factor (-x switch) if it’s been set.</p>
-
-<p class=A><span class=Y>18. Custom objects bug:</span> The -Ye switches wouldn’t
-accept multiple suffixes before, which meant for example that -YeHS to toggle both
-the heliocentric and sidereal zodiac settings of an object wouldn’t work.</p>
-
-<p class=A><span class=Y>19. Extra stars limitation:</span> The display of list
-extra stars (-XU switch) wouldn’t properly make another star object the central
-object, if the Sun was restricted.</p>
-
-<p class=A><span class=Y>20. Add time bug:</span> The -- and -+ switches, which
-add a number of days to the current chart time, would sometimes apply their
-offset more than once. They’d keep applying that same offset every time the
-screen updated.</p>
-
-<p class=A><span class=Y>21. Animation glitch:</span> Animating a chart by
-minutes or seconds over a period of time would occasionally result in roundoff
-error when entering a new hour or day. For example, it could show the time as 12:00am
-on one day, when the planet positions are really showing 12:00am the next day.</p>
-
-<p class=A><span class=Y>22. Metafile font issue:</span> Creating Windows
-metafiles (-XM switch) with system fonts would embed the font “Astro-Semibold”
-(and therefore require it to be installed to display correctly). That’s an
-inferior version of, and is also inconsistent with, the “Astro” font used
-elsewhere in the program.</p>
-
-<p class=A><span class=Y>23. Wireframe globe display:</span> The 3D wireframe
-globe had a few display issues. It reversed the consideration of the modify
-display setting (-Xi switch) from the standard 2D globe, when deciding whether
-to show 3D astro-graph lines. It would accidentally include the chart
-information from the bottom of the screen of 2D charts within the 3D wireframe.
-It also wouldn’t draw a ring around the globe at the latitude of the chart (-L0
-switch) like the 2D chart does.</p>
-
-<p class=A><span class=Y>24. Wireframe constellation glitch:</span> The
-wireframe constellation globe would produce a small extra horizontal line
-crossing the sphere near the bottom at the edge of the constellation Octans, at
-certain rotation values of the sphere.</p>
-
-<p class=A><span class=Y>25. X Windows display:</span> On some X Windows
-systems, lines on the screen would end one pixel short, resulting in (for
-example) slightly truncated text characters and glyphs. Also, certain lines
-wouldn’t appear at all, such as the transit graph chart would appear mostly blank.</p>
-
-<p class=A><span class=Y>26. X Windows omission:</span> The timed exposure
-feature (-Xj switch) wouldn’t work on X Windows systems.</p>
-
-<p class=A><span class=Y>27. Windows scrollbar omission:</span> Scrollbars in
-the Windows version wouldn’t scroll when selecting the dial and dragging it to
-another location. Also, right clicking on a scrollbar and selecting “Scroll
-Here”, “Left Edge”, “Right Edge”, “Top”, or “Bottom” wouldn’t do anything.</p>
-
-<p class=A><span class=Y>28. Windows menu omission:</span> Compiling out
-options in the Windows version wouldn’t remove the associated menu commands.
-Running a more limited Windows version will now have fewer menu options,
-instead of dead menu options still present that do nothing.</p>
+<p class=A>Here are bugs or other issues with version 7.00, all of which have
+been corrected in 7.10:</p>
+
+<p class=A><span class=Y>1. Time change computation bug:</span> Automatic detecting
+of Daylight Saving Time would sometimes get confused by periods when Daylight
+time was on at all times, and apply the offset to the wrong time period. The
+time change information would even display incorrectly (with the -Nz switch,
+and with the “Time Changes” button in the Set Chart Info dialog) although the
+underlying data in timezone.as file was still correct.</p>
+
+<p class=A><span class=Y>2. Time change application bug:</span> Automatic
+detecting of time zone would sometimes get confused, when the underlying time
+zone for an area changes, after the first Daylight Saving adjustment in that
+new period. Astrolog would show the correct time zone information and when it
+changes (with the -Nz switch, and the “Time Changes” button in the Set Chart
+Info dialog) however it wouldn’t always correctly apply the data from that
+list.</p>
+
+<p class=A><span class=Y>3. Time change display glitch:</span> Display of time
+change information (as done with -Nz switch, or the “Time Changes” button in
+the Set Chart Info dialog) would sometimes display time changes out of
+chronological order, or display the same time change more than once. This would
+sometimes happen during years when the underlying time zone offset itself
+changed. The data being displayed was correct, but not arranged correctly.</p>
+
+<p class=A><span class=Y>4. Time change information incomplete:</span> The
+previous version didn’t fully integrate all time changes in TZ database version
+2019b. It left out a few changes for areas before 1970, mainly in parts of Africa.
+Astrolog 7.10 has fully integrated TZ database 2020a.</p>
+
+<p class=A><span class=Y>5. Midpoint inaccuracy:</span> The midpoint chart (-m switch)
+would only display midpoints to the nearest arc second. This would only become
+apparent if positions were displayed in decimal form, which provides precision
+beyond arc seconds.</p>
+
+<p class=A><span class=Y>6. Star ordering omission:</span> Certain text charts
+which list fixed star objects wouldn’t respect the star ordering setting (-U
+switch). These were the text ephemeris, Gauquelin sector, influence, esoteric,
+and astrocartography charts. These now respect this setting (and even the new
+~v AstroExpression custom ordering switch).</p>
+
+<p class=A><span class=Y>7. Additional text scaling:</span> The graphics text
+scale setting (-XS switch) wouldn’t be applied everywhere. For example, it
+wouldn’t affect object glyphs, and it wouldn’t affect the aspects in the middle
+of the graphic calendar chart (-K -X switches).</p>
+
+<p class=A><span class=Y>8. Transit graph crash:</span> The transit to natal
+graphs (-V switch) would crash if the last star object (Andromeda galaxy) were
+included in it.</p>
+
+<p class=A><span class=Y>9. Command line crash:</span> Missing command line
+arguments would crash instead of displaying an error in certain cases. The -Ey0
+switch without arguments would crash, and the -c switch by itself would crash
+on non-Windows systems.</p>
 
 <p class=A>&nbsp;</p>
 
 <div style='border:none;border-top:solid windowtext 4.5pt;padding:1.0pt 0in 0in 0in'>
 
-<p class=Section><a name=express>ASTROEXPRESSION FEATURES</a></p>
+<p class=Section><a name=express>ASTROEXPRESSION UPDATES</a></p>
 
 </div>
 
-<p class=A>AstroExpressions are a versatile new feature area introduced in
-Astrolog 7.00. The term “AstroExpression” stands for “Astrolog Expression”.
-AstroExpressions are programmable customizations that don’t require recompiling
-the program, and can be considered an extended form of command switches. You
-can compose expressions to do a variety of simple or advanced operations, such
-as create your own house systems. AstroExpressions are composed of the
-following components, which are defined as follows:</p>
-
-<p class=B><span class=X>Constant:</span> A fixed numeric value. For example,
-“True” (which always evaluates to 1), and “Signs” (the number of signs in the
-zodiac, which is 12). Indexes into the alphabet can be indicated by “%a”
-(number 1) through “%z” (26). Also, there are lists of constants available for
-months, objects, aspects, house systems, signs of the zodiac, color indexes,
-and days of the week. These constants start with a letter and an underscore,
-followed by at least three letters (or enough to be unique). For example,
-“M_January”, “O_Jupiter”, “A_Trine”, “H_Placidus”, “S_Leo”, “K_Green”, and
-“W_Sunday”.</p>
-
-<p class=B><span class=X>Variable:</span> A numeric value stored somewhere,
-which can change. For example, “Mon” is the month of the current chart.</p>
-
-<p class=B><span class=X>Custom Variable:</span> One of a set of generic
-variables, which don’t correspond to any specific program setting, but can be
-used by expressions to store whatever they want. An example is an index while
-looping over the list of all objects. Some numeric variables are automatically
-set by the program before it evaluates an AstroExpression hook, and can be
-considered special parameters to that expression. Also, some custom variables
-are automatically queried by the program after an expression hook returns, and
-can be considered as special return values from that hook. The custom variable
-slots start at index #0 and end at index #26. Custom numeric variables #0
-through #9 can be referenced with the @ prefix (e.g. @0 or @9). Custom
-variables #1 through #26 can also be referenced with @a through @z. Note the
-important distinction between “%a” (which is always 1) and “@a” (which is the
-value contained within variable #1).</p>
-
-<p class=B><span class=X>Parameter:</span> A piece of data passed to a function
-or variable assignment. Parameters are either constants, variables, or
-functions. Anything that’s not a constant is a variable or function to be
-queried or evaluated.</p>
-
-<p class=B><span class=X>Type:</span> The type of data contained in a parameter
-or variable. All parameters and variables contain either integers or real
-numbers. Integers are signed 32 bit numbers. Real numbers are floating point
-numbers, and real constants always contain decimal points (e.g. “1.0” is real
-number 1, while “1” is integer 1). Boolean values are no different from
-integers, in which False is represented by 0, and True is represented by 1 or
-any non-zero number.</p>
-
-<p class=B><span class=X>Function:</span> A type of parameter, which evaluates
-to a number. Functions are followed by zero or more nested parameters. An
-example is “Add”, which takes two numeric parameters and returns their sum. A
-function that takes zero parameters and always evaluates to the same thing is a
-named constant, such as “False” or a specific color like “K_Red”. Functions
-always precede their parameters, which means AstroExpressions are in prefix
-format, e.g. “Mul Add 1 2 Sub 4 3” expresses “Multiply(Add(1, 2), Subtract(4,
-3))” or “(1 + 2) x (4 - 3)”.</p>
-
-<p class=B><span class=X>Expression:</span> A string of text which gets
-evaluated, and returns a result. If an expression consists of multiple subexpressions,
-they will be evaluated in sequence, and the value of the last one will be
-returned. All parameters can be considered subexpressions contained within a
-larger expression.</p>
-
-<p class=B><span class=X>Hook:</span> A type of expression that can be defined
-which is “hooked” into a particular part of the program, which (if defined)
-gets evaluated every time that part of the program runs. There are hooks into
-object and house cusp calculation which can modify their positions, along with
-hooks into certain charts which allow filtering or modifying their outputs.</p>
-
-<p class=A>The following lists all AstroExpression functions. The name of each
-function is listed, followed by the type of its return value and the expected
-types of its parameters (if any). Numbers will automatically be converted to
-Integer or Real as needed. “Num” means either type is handled, without any
-conversion needed. If “Num” is the return value, then if any “Num” parameters
-are Real the return type will be real, else integer. For example, “Add 1 2.5”
-will cast integer 1 to real 1.0, then add two real numbers to return 3.5.
-“Bool” means the function returns an integer (0 for False or 1 for True).</p>
-
-<p class=A>General functions (which are independent of Astrolog and astrology):</p>
-
-<p class=B><span class=W>False:</span> Bool: Constant. Returns integer 0.</p>
-
-<p class=B><span class=W>True:</span> Bool: Constant. Returns integer 1.</p>
-
-<p class=B><span class=W>Int:</span> Int(Num): Integer. Converts a number to
-integer, discarding any decimal real part. For example “Int -3.9” is -3. Like
-the “(int)” cast operator in C.</p>
-
-<p class=B><span class=W>Real:</span> Real(Num): Real. Converts a number to
-real. Like the “(float)” cast operator in C.</p>
-
-<p class=B><span class=W>Add:</span> Num(Num, Num): Addition. Adds two integer
-or two real numbers together.</p>
-
-<p class=B><span class=W>Sub:</span> Num(Num1, Num2): Subtraction. Subtracts
-Num2 from Num1.</p>
-
-<p class=B><span class=W>Mul:</span> Num(Num, Num): Multiplication. Multiplies
-two numbers together.</p>
-
-<p class=B><span class=W>Div:</span> Num(Num1, Num2): Division. Divides Num1 by
-Num2.</p>
-
-<p class=B><span class=W>Mod:</span> Int(Int1, Int2): Modulus. Returns the
-remainder when Int1 is divided by Int2.</p>
-
-<p class=B><span class=W>Pow:</span> Real(Real1, Real2): Power. Returns Real1
-raised to the Real2 power.</p>
-
-<p class=B><span class=W>Neg:</span> Num(Num): Negation. Negates the sign of a
-number.</p>
-
-<p class=B><span class=W>Inc:</span> Num(Num): Increment. Adds one to a number.</p>
-
-<p class=B><span class=W>Dec:</span> Num(Num): Decrement. Subtracts one from a
-number.</p>
-
-<p class=B><span class=W>Equ:</span> Bool(Num, Num): Equality. Returns whether
-two numbers are equal.</p>
-
-<p class=B><span class=W>Neq:</span> Bool(Num, Num): Inequality. Returns
-whether two numbers are not equal.</p>
-
-<p class=B><span class=W>Lt:</span> Bool(Num1, Num2): Less than. Returns whether
-Num1 is less than Num2.</p>
-
-<p class=B><span class=W>Gt:</span> Bool(Num1, Num2): Greater than. Returns
-whether Num1 is greater than Num2.</p>
-
-<p class=B><span class=W>Lte:</span> Bool(Num1, Num2): Less than or equal. Returns
-whether Num1 is less than or equal to Num2.</p>
-
-<p class=B><span class=W>Gte:</span> Bool(Num1, Num2): Greater than or equal.
-Returns whether Num1 is greater than or equal to Num2.</p>
-
-<p class=B><span class=W>Not:</span> Bool(Int): Boolean not. Returns whether a
-number is 0. Like the “!” operator in C.</p>
-
-<p class=B><span class=W>And:</span> Int(Int, Int): Logical and. Returns the
-bits of two numbers anded together. This function does not do short circuit evaluation,
-meaning both arguments are always evaluated even if the first is false. Like
-the “&amp;” operator in C.</p>
-
-<p class=B><span class=W>Or:</span> Int(Int, Int): Logical or. Returns the bits
-of two numbers ored together. This function does not do short circuit
-evaluation, meaning both arguments are always evaluated even if the first is
-true. Like the “|” operator in C.</p>
-
-<p class=B><span class=W>Xor:</span> Int(Int, Int): Logical exclusive or.
-Returns the bits of two numbers exclusive ored together. Like the “^” operator
-in C.</p>
-
-<p class=B><span class=W>Inv:</span> Int(Int): Logical inverse. Returns a number
-with all its bits flipped. Like the “~” operator in C.</p>
-
-<p class=B><span class=W>&lt;&lt;:</span> Int(Int1, Int2): Shift left. Returns Int1
-with all its bits shifted left Int2 times. Like the “&lt;&lt;“ operator in C.</p>
-
-<p class=B><span class=W>&gt;&gt;:</span> Int(Int1, Int2): Shift right. Returns
-Int1 with all its bits shifted right Int2 times. Like the “&gt;&gt;“ operator
-in C.</p>
-
-<p class=B><span class=W>Odd:</span> Int(Int): Odd. Returns whether an integer is
-an odd number.</p>
-
-<p class=B><span class=W>Abs:</span> Num(Num): Absolute value. Returns the
-absolute value of a number, or the positive part if the number is negative.</p>
-
-<p class=B><span class=W>Sgn:</span> Num(Num): Sign. Returns the sign of a
-number (-1 if negative, 0 if zero, and 1 if positive).</p>
-
-<p class=B><span class=W>Min:</span> Num(Num1, Num2): Minimum. Returns the
-lower of Num1 and Num2.</p>
-
-<p class=B><span class=W>Max:</span> Num(Num1, Num2): Maximum. Return the
-higher of Num1 and Num2.</p>
-
-<p class=B><span class=W>?::</span> Num(Int, Num1, Num2): If/else. If Int is
-true, return Num1, otherwise return Num2. This function does not do short
-circuit evaluation, meaning all parameters are evaluated regardless of the
-flag. Like the “?:” operator in C.</p>
-
-<p class=B><span class=W>Squ:</span> Num(Num): Square. Return a number squared.</p>
-
-<p class=B><span class=W>Sqr:</span> Real(Real): Square root. Return the square
-root of a real number.</p>
-
-<p class=B><span class=W>Dist:</span> Real(Real, Real): Distance. Return the
-distance from the origin to a pair of real coordinates.</p>
-
-<p class=B><span class=W>Sin:</span> Real(Real): Sine. Return the trigonometric
-sine of a real number, specified in radians.</p>
-
-<p class=B><span class=W>Cos:</span> Real(Real): Cosine. Return the cosine of a
-real, in radians.</p>
-
-<p class=B><span class=W>Tan:</span> Real(Real): Tangent. Return the tangent of
-a real, in radians.</p>
-
-<p class=B><span class=W>Asin:</span> Real(Real): ArcSine. Return the inverse
-sine of a real, in radians.</p>
-
-<p class=B><span class=W>Acos:</span> Real(Real): ArcCosine. Return the inverse
-cosine of a real, in radians.</p>
-
-<p class=B><span class=W>Atan:</span> Real(Real): ArcTangent. Return the
-inverse tangent of a real, in radians.</p>
-
-<p class=B><span class=W>Ang:</span> Real(Real, Real): Angle. Return the angle
-of a line from the origin to a pair of real coordinates, in radians.</p>
-
-<p class=B><span class=W>SinD:</span> Real(Real): Sine. Return the
-trigonometric sine of a real number, specified in degrees.</p>
-
-<p class=B><span class=W>CosD:</span> Real(Real): Cosine. Return the cosine of
-a real, in degrees.</p>
-
-<p class=B><span class=W>TanD:</span> Real(Real): Tangent. Return the tangent
-of a real, in degrees.</p>
-
-<p class=B><span class=W>AsinD:</span> Real(Real): ArcSine. Return the inverse
-sine of a real, in degrees.</p>
-
-<p class=B><span class=W>AcosD:</span> Real(Real): ArcCosine. Return the
-inverse cosine of a real, in degrees.</p>
-
-<p class=B><span class=W>AtanD:</span> Real(Real): ArcTangent. Return the
-inverse tangent of a real, in degrees.</p>
-
-<p class=B><span class=W>AngD:</span> Real(Real, Real): Angle. Return the angle
-of a line from the origin to a pair of real coordinates, in degrees.</p>
-
-<p class=B><span class=W>Floor:</span> Real(Real): Floor. Round a real number
-down to the next lower whole number. For example, “Floor -3.1” is -4.0.</p>
-
-<p class=B><span class=W>Fract:</span> Real(Real): Fraction. Return the
-fractional part of a real number, i.e. its floor subtracted from it. For
-example, “Fract -3.1” is 0.9.</p>
-
-<p class=B><span class=W>Rnd:</span> Int(Int1, Int2): Random number. Return a
-random integer between Int1 and Int2, inclusive.</p>
-
-<p class=A>Specific functions (which are related to Astrolog and astrology):</p>
-
-<p class=B><span class=W>Signs:</span> Int: Signs. Returns the constant number
-of signs in the zodiac (i.e. 12).</p>
-
-<p class=B><span class=W>Objs:</span> Int: Objects. Returns the constant
-maximum object index in the program (i.e. 89).</p>
-
-<p class=B><span class=W>Asps:</span> Int: Aspects. Returns the number of
-aspects currently enabled in the program (ranging from 0 to 18).</p>
-
-<p class=B><span class=W>Mon:</span> Int: Month. Returns the month of the
-current chart (i.e. 1-12).</p>
-
-<p class=B><span class=W>Day:</span> Int: Day. Returns the day of the current
-chart (1-31).</p>
-
-<p class=B><span class=W>Yea:</span> Int: Year. Returns the year of the current
-chart.</p>
-
-<p class=B><span class=W>Tim:</span> Real: Time. Returns the time of the
-current chart in hours (0.0 to 24.0).</p>
-
-<p class=B><span class=W>Dst:</span> Real: Daylight Saving: Returns the
-Daylight Saving Time offset of the current chart in hours (usually 0.0 or 1.0).
-</p>
-
-<p class=B><span class=W>Zon:</span> Real: Time zone: Returns the time zone
-offset of the current chart in hours West of GMT (usually -12.0 to 12.0).</p>
-
-<p class=B><span class=W>Lon:</span> Real: Longitude: Returns the longitude of
-the current chart in degrees West of GMT (-180.0 to 180.0).</p>
-
-<p class=B><span class=W>Lat:</span> Real: Latitude: Returns the latitude of
-the current chart in degrees North of the equator (-90.0 to 90.0).</p>
-
-<p class=B><span class=W>Mon2, Day2, Yea2, Tim2, Dst2, Zon2, Lon2, Lat2:</span>
-Int or Real: Second chart. Like above but returns chart info for chart slot #2.</p>
-
-<p class=B><span class=W>MonT, DayT, YeaT, TimT:</span> Int or Real: Transit
-chart. Like above but returns chart info for the time to transit over or
-progress to.</p>
-
-<p class=B><span class=W>DayWeek:</span> Int(Int1, Int2, Int3): Day of week.
-Returns the day of the week it is on month Int1, day Int2, year Int3.</p>
-
-<p class=B><span class=W>ObjLon:</span> Real(Int): Object longitude. Returns
-the zodiac position of an object.</p>
-
-<p class=B><span class=W>ObjLat:</span> Real(Int): Object latitude. Returns the
-ecliptic latitude of an object.</p>
-
-<p class=B><span class=W>ObjDir: </span>Real(Int): Object direction. Returns
-the velocity of an object. (Negative means retrograde motion.)</p>
-
-<p class=B><span class=W>ObjDirY:</span> Real(Int): Object direction Y. Returns
-the velocity of an object along the vertical axis.</p>
-
-<p class=B><span class=W>ObjHouse:</span> Int(Int): Object house. Returns the
-house placement of an object (i.e. 1-12).</p>
-
-<p class=B><span class=W>ObjX:</span> Real(Int): Object X. Returns the X coordinate
-of an object in space, in AU.</p>
-
-<p class=B><span class=W>ObjY:</span> Real(Int): Object Y. Returns the Y
-coordinate of an object in space, in AU.</p>
-
-<p class=B><span class=W>ObjZ:</span> Real(Int): Object Z. Returns the Z
-coordinate of an object in space, in AU.</p>
-
-<p class=B><span class=W>ObjOn:</span> Bool(Int): Object on. Returns whether an
-object is present and not restricted. Specified with -R switch.</p>
-
-<p class=B><span class=W>ObjOnT:</span> Bool(Int): Object on transit. Returns
-whether an object is present in transits and not restricted in transit
-restrictions. Specified with -RT switch.</p>
-
-<p class=B><span class=W>ObjOrb:</span> Real(Int): Object orb. Returns an
-object’s maximum aspect orb allowed, in degrees. Specified with -Am switch.</p>
-
-<p class=B><span class=W>ObjAdd:</span> Real(Int): Object addition. Returns how
-much aspects to an object should have their orbs widened, in degrees. Specified
-with -Ad switch.</p>
-
-<p class=B><span class=W>ObjInf:</span> Real(Int): Object influence. Returns
-the power of an object. Specified with -Yj switch.</p>
-
-<p class=B><span class=W>ObjInfT:</span> Real(Int): Object transit influence.
-Returns the power of an object when transiting. Specified with -YjT switch.</p>
-
-<p class=B><span class=W>ObjCol:</span> Int(Int): Object color. Returns the
-color index of an object. Specified with -YkO switch.</p>
-
-<p class=B><span class=W>ObjDist:</span> Real(Int): Object distance. Returns
-average distance of an object from the Sun (or Earth if it orbits it) in
-millions of kilometers.</p>
-
-<p class=B><span class=W>ObjYear:</span> Real(Int): Object year. Returns
-average length of year or time it takes an object to orbit the Sun (or Earth if
-it orbits it) in Earth years.</p>
-
-<p class=B><span class=W>ObjDiam:</span> Real(Int): Object diameter. Returns
-the diameter of an object, in kilometers.</p>
-
-<p class=B><span class=W>AspAngle:</span> Real(Int): Aspect angle. Returns the
-angle of an aspect, in degrees. Specified with -Aa switch.</p>
-
-<p class=B><span class=W>AspOrb:</span> Real(Int): Aspect orb. Returns the
-maximum orb allowed for an aspect, in degrees. Specified with -Ao switch.</p>
-
-<p class=B><span class=W>AspInf:</span> Real(Int): Aspect influence. Returns
-the power of an aspect. Specified with -YjA switch.</p>
-
-<p class=B><span class=W>AspCol:</span> Int(Int): Aspect color. Returns the
-color index of an aspect. Specified with -YkA switch.</p>
-
-<p class=B><span class=W>Cusp:</span> Real(Int): House cusp. Returns the zodiac
-position of a house cusp, in degrees.</p>
-
-<p class=B><span class=W>Cusp3:</span> Real(Int): 3D cusp. Returns the prime
-vertical position of a 3D house cusp, in degrees.</p>
-
-<p class=B><span class=W>HouseInf:</span> Real(Int): House influence. Returns
-the power of a house. Specified with the -YjC switch.</p>
-
-<p class=B><span class=W>LonSign:</span> Int(Real): Longitude sign. Returns the
-sign of a 0-360 degree zodiac position (i.e. 1-12).</p>
-
-<p class=B><span class=W>LonDeg:</span> Real(Real): Longitude degree. Returns
-the degree within a sign of a 0-360 degree zodiac position (0.0 to 30.0).</p>
-
-<p class=B><span class=W>LonDist:</span> Real(Real, Real): Returns the minimum
-distance between two 0-360 degree zodiac positions, in degrees (ranging from
-0.0 to 180.0).</p>
-
-<p class=B><span class=W>LonDiff:</span> Real(Real1, Real2): Returns the
-minimum difference between zodiac positions Real2 and Real1, in degrees
-(ranging from -180.0 to 180.0)</p>
-
-<p class=B><span class=W>LonMid:</span> Real(Real, Real): Returns the midpoint
-of two 0-360 degree zodiac positions.</p>
-
-<p class=B><span class=W>PolDist:</span> Real(RealX1, RealY1, RealX2, RealY2):
-Polar distance. Returns the distance between two sets of longitude and latitude
-coordinates on a globe, in degrees.</p>
-
-<p class=B><span class=W>HouseSys:</span> Int: House system. Returns the index
-of the current house system.</p>
-
-<p class=B><span class=W>GridNam:</span> Int(IntX, IntY): Grid name. Returns
-the aspect present in the current aspect grid, or sign of the midpoint if a
-midpoint grid, or sign of the object if referencing coordinates on the main
-diagonal of a single chart grid.</p>
-
-<p class=B><span class=W>GridVal:</span> Int(IntX, IntY): Grid value. Returns
-the orb value present in the current aspect grid, or degree within sign of the
-midpoint if a midpoint grid, or degree within sign of the object if referencing
-coordinates on the main diagonal of a single chart grid. Either way, return
-value is number of arc-seconds.</p>
-
-<p class=A>Programming functions (which are related to programming and control
-flow):</p>
-
-<p class=B><span class=W>Var:</span> Num(Int): Variable lookup. Returns the
-value within the referenced custom variable.</p>
-
-<p class=B><span class=W>Do:</span> Num(Num1, Num2): Evaluate the parameter
-Num1, then return Num2. “Do” is useful as the function inside control flow
-functions such as “If” and “For”, to chain multiple operations together.</p>
-
-<p class=B><span class=W>Do2:</span> Num(Num1, Num2, Num3): Evaluate the
-parameters Num1 and Num2, then return Num3.</p>
-
-<p class=B><span class=W>Do3:</span> Num(Num1, Num2, Num3, Num4): Evaluate the
-parameters Num1 through Num3, then return Num4.</p>
-
-<p class=B><span class=W>If:</span> Num(Int, Num): If statement. If Int is
-true, then evaluate Num. Returns Num if true, else 0. Note that Num will only
-be evaluated if Int is true. Like the “if” statement in C.</p>
-
-<p class=B><span class=W>IfElse:</span> Num(Int, Num1, Num2): If/else. If Int
-is true, then evaluate and return Num1, otherwise evaluate and return Num2.
-Note that unlike the similar “?:” function, here only one of Num1 and Num2 will
-be evaluated. Like the “if / else” statement in C.</p>
-
-<p class=B><span class=W>DoCount:</span> Num(Int, Num): Loop. Evaluate
-expression Num for Int number of times in sequence. Return the final evaluation
-of Num (or 0 if it never got evaluated).</p>
-
-<p class=B><span class=W>While:</span> Num(Int, Num): While loop. Evaluates Int
-as an expression. If true, evaluates Num and then repeats. Keep reevaluating
-until expression Int is no longer true. Return the final evaluation of Num (or
-0 if it never got evaluated). Warning: Expressions like “While True 0” will run
-forever and hang the program! Like the “while” statement in C.</p>
-
-<p class=B><span class=W>DoWhile:</span> Num(Int, Num): Do/while loop.
-Evaluates Num as an expression, then evaluates Int as an expression. If true,
-then evaluate again, and repeat until expression Int is no longer true. Return
-the final evaluation of Num. Like the “do/while” statement in C.</p>
-
-<p class=B><span class=W>For:</span> Int(Int1, Int2, Int3, Num): For loop. Set custom
-variable indicated by Int1 to Int2. While Int1 is less than or equal to Int3, evaluate
-Num, then increment Int1. Returns the final value of Int1 after the loop
-finishes. In most cases one wants to specify the variable Int1 as “%a” instead
-of “@a”. The former makes variable %a itself loop, while the latter makes the
-custom variable pointed to by the value of @a loop. Similar to the “for” loop
-in various languages.</p>
-
-<p class=B><span class=W>Macro: </span>Num(Int). Macro expression. Run and
-return the result of custom expression that was defined in slot Int with the ~M
-command switch.</p>
-
-<p class=B><span class=W>Assign:</span> Num(Int, Num): Variable assignment.
-Assigns Num to the custom variable Int, and also returns that number. Can also
-use “=” as a shortcut for “Assign”. </p>
-
-<p class=B><span class=W>=a:</span> Num(Num): Assign to “A”. Assigns Num to
-custom variable “A”, and also returns that number. Can also use functions “=b”
-through “=z” to assign to them.</p>
+<p class=A>AstroExpressions or “Astrolog Expressions” are programmable
+customizations that don’t require recompiling the program, and can be
+considered an extended form of command switches. AstroExpression functions and
+related command switches have been updated in version 7.10. This section can be
+ignored if one doesn’t use this feature area.</p>
+
+<p class=A>The following lists all new AstroExpression functions. The name of
+each function is listed, followed by the type of its return value and the
+expected types of its parameters (if any). Numbers will automatically be
+converted to Integer or Real as needed. “Num” means either type is handled, without
+any conversion needed.</p>
+
+<p class=B><span class=W>Type:</span> Bool(Num): Is real. Returns the type of
+Num, which means 0 if it’s integer and 1 if it’s real.</p>
+
+<p class=B><span class=W>Sgn2:</span> Num(Num): Sign. <span style='color:black'>Returns
+the sign of a number (-1 if negative, and 1 if non-negative).</span></p>
+
+<p class=B><span class=W>Ln:</span> Real(Real): Logarithm. Returns the natural
+or base “e” logarithm of a real number.</p>
+
+<p class=B><span class=W>Log10:</span> Real(Real): Logarithm. Returns the base
+10 logarithm of a real number.</p>
+
+<p class=B><span class=W>Mon1, Day1, Yea1, Tim1, Dst1, Zon1, Lon1, Lat1:</span>
+Int or Real: First chart. Like Mon, Day, etc, but returns chart info for chart
+slot #1. There are similar functions for chart slots #2 through #4. Note the
+difference between Mon1 which always references chart slot #1, and just Mon
+which is the current chart being worked with (e.g. for the current chart row in
+an ephemeris table).</p>
+
+<p class=B><span class=W>ObjLon1, ObjLat1, ObjDir1, ObjDirY1, ObjHouse1:</span>
+Int or Real: First chart. Like ObjLon, ObjLat, etc, but returns the zodiac
+position longitude, ecliptic latitude, etc, for chart slot #1. There are
+similar functions for chart slots #2 through #4.</p>
+
+<p class=B><span class=W>LonHouse: </span>Int(Real): Longitude house. Returns
+the house placement of a 0-360 degree zodiac position (i.e. 1-12).</p>
+
+<p class=B><span class=W>LonHou3D:</span> Real(Real, Real): Longitude 3D house.
+Returns the 3D house placement of a 0-360 degree zodiac position and ecliptic
+latitude, as a decimal value, e.g. 0.0-30.0 for 1st house.</p>
+
+<p class=B><span class=W>Oblique:</span> Real: Obliquity. Returns the obliquity
+of the ecliptic of the most recently cast chart, which is usually about 23.5
+degrees.</p>
+
+<p class=B><span class=W>SidDiff:</span> Real: Sidereal offset. Returns the
+precessional offset from the tropical to sidereal zodiacs for the time of the
+most recently cast chart, which for current dates is about -25.0.</p>
+
+<p class=B><span class=W>Context:</span> Int: Chart context. Returns what the
+current or most recently cast chart was cast for. This is usually 1-4 to
+indicate which chart in a relationship or wheel is being cast. It can also be 0
+for special case charts (like the chart cast for a progressed time), or -1 for
+one of many charts cast in sequence (like each interval during a transit
+search). This is designed for use in the ~q notification or hooks like ~O that
+take place during chart casting.</p>
+
+<p class=B><span class=W>Version:</span> Real: Program Version. Returns the
+version of Astrolog running, which is 7.10.</p>
+
+<p class=B><span class=W>Switch:</span> Int(Int): Switch macro. Runs the
+command switch macro, as defined with the -M0 switch. Returns whether running
+that macro succeeded. Remember a command switch macro (running a saved command
+line) is different from an AstroExpression macro (which evaluates a defined
+AstroExpression).</p>
+
+<p class=B><span class=W>RndSeed:</span> Int(Int): Random seed. Initializes the
+random number generation seed used by the Rnd function to an integer. Returns 0
+always.</p>
+
+<p class=B><span class=W>_A3, _Ap, _AP0, _b, _b0, _c, _c3, _s, _s0, _sr, _sr0, _h,
+_p, _p0, _pd, _pC, _x, _1, _3, _4, _f, _G, _J, _9, _YT, _YV, _Yh, _Ym, _Ys, _Yn,
+_Yn0, _Yu, _Yr, _YC, _YO, _Yc, _Yp:</span> Bool or Int or Real: Program setting.
+This list of functions queries the Astrolog program setting that’s set with the
+identically named command switch. There are only a few exceptions or alternate
+behaviors: Function _AP0 is a Boolean for the -AP switch setting, and includes
+a “0” in its name to avoid a case insensitive name conflict with _Ap. Function
+_s is a boolean for the -s switch sidereal setting, while _s0 is a real for the
+zodiac offset ayanamsa. Function _1 is non-zero if either the -1 or -2 solar
+chart switches are set, and contains (1+object focused upon) if -1 switch, and
+(-1-object) if -2 switch.</p>
 
 <p class=A>There are several new command switches which allow one to define
 AstroExpression “hooks” into areas of chart calculation or display, to modify
 or filter their results. All AstroExpression related command switches start
 with the tilde (~) character:</p>
 
-<p class=B><span class=V>1. ~ &lt;string&gt;:</span> Parse AstroExpression. The
-passed in string will be parsed and evaluated, and the return value displayed.
-This is useful for debugging expressions, or querying the value of custom
-variables. For example, “<span class=Y>~ 'Sqr Div 9.0 4.0'</span>” will
-evaluate and display the expression “SquareRoot(9.0 / 4.0)” which is 1.5.</p>
-
-<p class=B><span class=V>2. ~a &lt;string&gt;:</span> Adjust aspect powers.
-Called during the -a switch aspect list chart, and allows one to adjust each
-aspect’s power. On entry, custom variables @w and @y are the two objects
-forming aspect, @x is the aspect, and @z is the current power (in thousandths,
-e.g. a power of 1.234 is integer 1234). Return value is ignored, although if @z
-is changed it will be the new power to use. For example, to triple the power of
-any aspect involving an object in the sign Sagittarius, do: <span class=Y>~a
-&quot;If Or Equ LonSign ObjLon @w S_Sag Equ LonSign ObjLon @y S_Sag =z Mul @z
-3&quot;</span></p>
-
-<p class=B><span class=V>3. ~E &lt;string&gt;:</span> Filter ephemeris output.
-Called for each line in the text ephemeris chart. Return value is whether to
-display the line. For example, to do a stellium search and only display
-ephemeris lines in which there are at least 5 planets in the same sign, do: <span
-class=Y>astrolog -n -Ey ~E &quot;For %m 1 Signs = @m 0 For %m 0 Objs If ObjOn
-@m = LonSign ObjLon @m Inc Var LonSign ObjLon @m =n 0 For %m 1 Signs =n Max @n
-Var @m Gte @n 5&quot;</span></p>
-
-<p class=B><span class=V>4. ~d &lt;string&gt;:</span> Filter transit to transit
-events. Called for each event in the -d switch chart. On entry, @q is the first
-object forming the event, @r is the object’s zodiac position, @s is the
-object’s retrogradation (negative for retrograde), @t is the aspect or other
-event (-1: sign change, -2: direction change, -3: degree change), @u is the
-second object forming the event (or new sign if that event), @v is the second
-object’s zodiac position, @w is the second object’s retrogradation, @x is Moon
-void of course indicator for how many seconds it will be v/c (-1 for not going
-v/c in this event), @y is the eclipse type (-1: eclipse detection turned off,
-0: no eclipse, 1: penumbral, 2: total penumbral, 3: partial, 4: annular, 5:
-total), and @z is the eclipse percentage (if any). Return value is whether to
-display the event. For example, to display eclipses for this year (at least
-those in effect when corresponding aspect is exact) do: <span class=Y>astrolog
--n -dy =Yu ~d &quot;Gt @y 0&quot;</span></p>
-
-<p class=B><span class=V>5. ~t &lt;string&gt;:</span> Filter transit to natal
-events. Called for each event in the -t switch chart. On entry, @t is the first
-object forming the event, @u is the object’s zodiac position, @v is the
-object’s retrogradation (negative for retrograde), @w is the aspect (or -4 for
-3D house change), @x is the second object forming the event (or destination
-house if 3D house change), @y is the second object’s zodiac position, and @z is
-the second object’s retrogradation. Return value is whether to display the
-transit. For example, to only display transit events taking place on weekends,
-do: <span class=Y>~t &quot;=a DayWeek Mon Day Yea Or Equ @a 0 Equ @a 6&quot;</span></p>
-
-<p class=B><span class=V>6. ~j &lt;string&gt;: </span>Filter influence powers.
-Called when a chart’s object and aspect powers are computed in the text mode -j
-influence and -7 esoteric charts. On entry, @x is the object, @y is its power
-due to positioning, and @z is its power due to aspects. Return value is
-ignored, although if you update @y and @z they will be the new powers used. For
-example, to give an extra 100 power to completely unaspected planets, do: <span
-class=Y>~j &quot;=n 0 For %i 0 Objs If And Neq @i @x GridNam Min @i @x Max @i
-@x =n Inc @n If Lte @n 0 =z Add @z 100.0&quot;</span></p>
-
-<p class=B><span class=V>7. ~O &lt;string&gt;:</span> Adjust object position.
-Called each time a chart is cast, and allows changing objects’ positions. On
-entry, @v is the object index, @w is the object’s zodiac position, @x is the
-object’s ecliptic latitude, @y is the object’s zodiac position velocity
-(negative for retrograde), and @z is the object’s vertical velocity. Return
-value is ignored, although if you update @w through @z the object’s positions
-and velocities will be updated. For example, to invert all zodiac positions 180
-degrees for locations south of the equator, do: <span class=Y>~O &quot;=w Add
-@w 180.0 Lt Lat 0.0&quot;</span></p>
-
-<p class=B><span class=V>8. ~C &lt;string&gt;:</span> Adjust house cusp
-position. Called each time a chart is cast, and allows changing house cusp
-positions. On entry, @x is the house cusp (1-12), @y is the cusp’s zodiac
-position, and @z is the cusp’s 3D house position. Return value is ignored,
-although if @y and @z are changed the cusp’s positions will be updated. For
-example, Astrolog supports Null houses or the “0 Aries” system, an equal house
-system in which the 1st house cusp is always 0Aries. Suppose you want a “0 Leo”
-house system in which the 1st house cusp is always 0Leo? This can be done with:
-<span class=Y>~C &quot;=y Mul Sub Add S_Leo @x 2 30.0&quot;</span></p>
-
-<p class=B><span class=V>9. ~A &lt;string&gt;:</span> Redefine aspect orb.
-Called for each cell whenever the aspect grid is internally composed. On entry,
-@v and @x are the two objects potentially being aspected, @w is the aspect, @y
-is the difference in angle between them (negative for applying and positive for
-separating), and @z is the default max orb. Return value is ignored, although
-if @z is changed it will be the new max orb to use. For example, to have
-separating aspects have 70% the orb of applying aspects, do: <span class=Y>~A
-&quot;If Gt @y 0.0 =z Mul @z 0.70&quot;</span></p>
-
-<p class=B><span class=V>10. ~kO &lt;string&gt;:</span> Customize object color.
-Called each time an object glyph is displayed, and allows one to change its
-color. On entry, @y is the object, and @z is the default color. Return value is
-ignored, although if @z is changed it will be the new color to use. For
-example, to make planets colored the same as the zodiac sign they’re located
-within, do: <span class=Y>~kO &quot;=z ObjCol Dec Add O_Asc LonSign ObjLon
-@y&quot;</span></p>
-
-<p class=B><span class=V>11. ~kA &lt;string&gt;:</span> Customize aspect color.
-Called each time an aspect line is drawn between two planets in a wheel chart,
-and allows one to change its color. On entry, @w and @y are the two objects
-being aspected, @x is the aspect, and @z is the default color. Return value is
-ignored, although if @z is changed it will be the new color to use. For
-example, to change the color of aspect lines involving the Sun or Moon to
-magenta, do: <span class=Y>~kA &quot;If Or Lte @w O_Moo Lte @y O_Moo =z K_Mag&quot;</span></p>
-
-<p class=B><span class=V>12. ~M &lt;0-26&gt; &lt;string&gt;:</span> Define
-AstroExpression macro: Similar to command switch macros, you can define custom
-AstroExpression macro functions. The first parameter is the macro slot to fill,
-and the second is the AstroExpression to place within it. Macros can be called
-in AstroExpressions with the “Macro &lt;arg&gt;” function, in which parameter
-&lt;arg&gt; is the macro index to call.</p>
-
-<p class=B><span class=V>13. ~0:</span> Disable AstroExpressions.
-AstroExpressions are often hooks inserted into program operation, which means
-they may be evaluated on every screen update. Therefore, they automatically get
-disabled if there’s an error parsing one, to avoid a continuous stream of
-errors. The ~0 switch disables all AstroExpression hooks in the current program
-session, which means “_~0” can be used to reenable them. This setting will also
-disable the display of the result when using the ~ switch, although not any
-side effects of its evaluation (which is useful to e.g. initialize custom
-variables in switch files without getting popup windows). In the Windows
-version, the “Enter Command Line” dialog has a new “Enable AstroExpression
-Hooks” checkbox, which can be used to enable, disable, or check their status.</p>
-
-<p class=N>One final feature is that parsing of many dialog fields and command
-switches can use AstroExpressions. If the parameter starts with a tilde (~)
-character, then the rest of it will be parsed as an AstroExpression. For
-example, to find and restrict the first unrestricted object, do: <span class=Y>-R
-&quot;~=b 0 For %a 0 Objs If ObjOn @a Do =b @a =a Objs @b&quot;</span></p>
+<p class=B><span class=V>1. ~v &lt;string&gt;:</span> Adjust object ordering. Called
+each time a chart is cast, and allows changing the order in which objects are
+listed in charts. This affects all lists of objects, including aspect grids. On
+entry, custom variable @z is both the object index and its default ordering.
+Return value is ignored, although if @z is changed it will be the new ordering
+to use (ties are broken in favor of the object with the earlier index). For
+example, to always display Ceres between Mars and Jupiter (instead of after all
+the main planets) do: <span class=Y>~v &quot;If Equ @z O_Cer =z O_Mar&quot;</span></p>
+
+<p class=B><span class=V>2. ~g &lt;string&gt;:</span> Filter aspect configurations.
+Called for each aspect configuration in the -g0 aspect chart. Return value is
+whether to display that aspect configuration. On entry, @v is the aspect
+configuration (0=3 planet Stellium, 1=Grand Trine, 2=T-Square, 3=Yod, 4=Grand
+Cross, 5=Cradle, 6=Mystic Rectangle, 7=4 planet Stellium). Also, @w through @z
+are the four planets involved (@z will be -1 if the configuration only involves
+3 planets). For example, to only display grand crosses and grand trines, do: <span
+class=Y>~g &quot;Or Equ @v 1 Equ @v 4&quot;</span></p>
+
+<p class=B><span class=V>3. ~a0 &lt;string&gt;:</span> Notify aspect list
+summary. Called once after the -a0 aspect list summary is displayed. On entry,
+@y is the total number of aspects that were displayed, and @z is the total
+power of all aspects. Return value is ignored. For example, if you animate a
+bunch of aspect list charts, you can keep track of the highest total power displayed
+(i.e. store it in custom variable @a) with: <span class=Y>~a0 &quot;If Gt @z @a
+=a @z&quot;</span></p>
+
+<p class=B><span class=V>4. ~m &lt;string&gt;:</span> Filter midpoints. Called
+for each midpoint in the -m midpoint chart. On entry, @w and @x are the two
+objects forming the midpoint, @y is the position of the midpoint, and @z is the
+angular difference between their positions. Returns value is whether to display
+that midpoint. For example, to only display midpoints located within 30 degrees
+of the Sun’s position, do: <span class=Y>~m &quot;Lt LonDist @y ObjLon O_Sun
+30.0&quot;</span></p>
+
+<p class=B><span class=V>5. ~ma &lt;string&gt;:</span> Filter aspects to
+midpoints. Called for each aspect made to a midpoint (or Arabic part) in the
+-ma midpoint list. On entry, @v is the zodiac degree position of the midpoint,
+@w is its velocity, @x is the aspect being made, @y is the object being
+aspected, and @z is the orb between them. Return value is whether to display
+that aspect. For example, to only display tight aspects to the Sun or Moon, do:
+<span class=Y>~ma &quot;And Lt Abs @z 2.0 Lte @y O_Moo&quot;</span></p>
+
+<p class=B><span class=V>6. ~L &lt;string&gt;:</span> Filter latitude
+crossings. Called for each latitude crossing in the -L0 astrocartography chart.
+On entry, @u and @v are the longitude and latitude of the crossing point, @w
+and @y are the two planets whose lines are involved, and @x and @z are object
+indexes for angles indicating which lines are involved. For example, to only display
+latitude crossings involving the Ascendant within 10 degrees of the current
+chart’s latitude do: <span class=Y>~L &quot;And Lt Abs Sub @v Lat1 10 Or Equ @x
+O_Asc Equ @z O_Asc&quot;</span></p>
+
+<p class=B><span class=V>7. ~P &lt;string&gt;:</span> Filter Arabic parts. Called
+for each Arabic part in the -P parts list chart. On entry, @y is the index of
+the Arabic part (independent of the current sorting order), and @z is the
+zodiac position of that part. Return value is whether to display that part. If
+@z is changed, the part’s position will be updated. For example, to only
+display parts that lie in the 10th house, do: <span class=Y>~P &quot;Equ
+LonHouse @z 10&quot;</span></p>
+
+<p class=B><span class=V>8. ~p[0] &lt;string&gt;:</span> Adjust progression. The
+~p string AstroExpression is called whenever a chart is about to be secondary
+progressed, and the ~p0 string is called whenever a chart is about to be solar
+arc progressed. (Mixed progressions that do solar arc for cusps and secondary
+for planets will call both.) On entry, @x is the Julian time of the natal
+chart, @y is the Julian time to use for progressed house cusps (which may be
+different from planets if the -pC switch cusp move ratio is set), and @z is the
+Julian time to use for progressed planets. Return value is ignored, although @z
+(and also @y for ~p) can be modified to change the progressed results. For
+example, to have progressions move at a logarithmic rate (fast early in life,
+and continually slowing down over time) in the manner presented by A.T. Mann, do:
+<span class=Y>~p0 &quot;If Gte @x @y =z Sub Mul Log10 Add Div Div Sub @x @y
+365.25 0.076661459 10 120 120&quot;</span></p>
+
+<p class=B><span class=V>9. ~1 &lt;string&gt;:</span> Run expression. This simply
+parses the string as an AstroExpression, and does nothing else. This is very similar
+to the “~” switch except that also displays the final result. This switch is good
+to use in a command switch file (to for example initialize custom
+AstroExpression variables) when you don’t want popup messages interrupting
+anything.</p>
+
+<p class=B><span class=V>10. ~q[1-2] &lt;string&gt;:</span> Notify chart cast. The
+~q1 string AstroExpression is called whenever a chart is about to be cast, and
+the ~q2 string is called whenever a chart has just been cast. This is designed
+to be used along with other AstroExpression hooks that adjust chart casting,
+when there’s initialization or finalization code needed. (For example, when the
+~O hook is called, it can’t tell whether it’s the first or last object being
+adjusted.) </p>
+
+<p class=B><span class=V>11. ~Q[1-2] &lt;string&gt;:</span> Notify chart display.
+The ~Q1 string AstroExpression is called whenever a chart is about to be
+displayed, and the ~Q2 string is called whenever a chart has just been displayed.
+This is designed to be used along with other AstroExpression hooks that adjust
+chart display, when there’s initialization or finalization code needed.</p>
+
+<p class=A>A few improvements, changes, or bug fixes have also been made in the
+AstroExpression area:</p>
+
+<p class=B><span class=W>Ephemeris filtering improved:</span> The ~E hook
+filtering the -E text ephemeris table will now never show two planet label headers
+in a row. Before, a filter that removes most entries that’s run over many years
+would still produce numerous headers that would need to be searched through to
+find any actual output.</p>
+
+<p class=B><span class=X>Return values ignored:</span> The ~O, ~C, and ~a switch
+hooks no longer check and do anything with the return value. If these AstroExpressions
+change custom variables corresponding to functionality, then they’ll always be
+applied regardless of return value.</p>
+
+<p class=B><span class=Y>Custom variable bug:</span> Custom AstroExpression
+variables weren’t initialized until right before the first AstroExpression was
+parsed. Unfortunately, that could be done after custom variables are
+automatically set in preparation for calling an AstroExpression hook, resulting
+in all input parameters being 0 for the first call to any hook.</p>
+
+<p class=B><span class=Y>Macro limitation:</span> AstroExpression macros would
+only evaluate and return the first expression. Now they evaluate all
+expressions in sequence and return the result of the last one, similar to
+AstroExpression strings assigned to command switch hooks.</p>
 
 <p class=A>&nbsp;</p>
 
@@ -1797,7 +836,7 @@
 &quot;Cruiser1&quot; Pullen :)       !       <a href="mailto:Astara@msn.com">Astara@msn.com</a>      
 <span style='background:silver'>*</span></p>
 
-<p class=FA><span style='background:silver'>O</span>  Astrolog 7.00 homepage: <a
+<p class=FA><span style='background:silver'>O</span>  Astrolog 7.10 homepage: <a
 href="http://www.magitech.com/astrolog/astrolog.htm">http://www.magitech.com/astrolog/astrolog.htm</a>
  <span style='background:silver'>O</span></p>
 
diff --git a/charts0.cpp b/charts0.cpp
index 6113da9..cb91d1c 100644
--- a/charts0.cpp
+++ b/charts0.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: charts0.cpp
+** Astrolog (Version 7.10) File: charts0.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -70,8 +70,7 @@ void PrintW(CONST char *sz, int col)
 
   if (!sz) {
 
-    /* Null string means print the top, bottom, or a separator row. */
-
+    // Null string means print the top, bottom, or a separator row.
     if (col < 0)
       AnsiColor(kRedA);
     PrintCh((char)(col ? (col > 0 ? chSW : chNW) : chJE));
@@ -176,7 +175,7 @@ void PrintS(CONST char *sz)
   char ch, ch1, ch2, ch3;
   static char ch1Prev = chNull, ch2Prev = chNull, ch3Prev = chNull;
 
-  /* Determine color for first part of line. */
+  // Determine color for first part of line.
   ch1 = sz[1]; ch2 = sz[2]; ch3 = sz[3];
   if (*sz != ' ')
     AnsiColor(kRedA);
@@ -189,7 +188,7 @@ void PrintS(CONST char *sz)
     PrintSz("   ");
   }
 
-  /* Print first part of line. */
+  // Print first part of line.
   while ((ch = *sz) && ch != ':' &&
     (ch1 != 'P' || (ch != ' ' || *(sz+1) != 't'))) {
     if (ch != '_')
@@ -201,7 +200,7 @@ void PrintS(CONST char *sz)
   if (*sz)
     PrintCh(*sz++);
 
-  /* Print rest of line in default color. */
+  // Print rest of line in default color.
   AnsiColor(kDefault);
   while (ch = *sz) {
     if (ch != '_')
@@ -386,6 +385,7 @@ void DisplaySwitches(void)
   PrintS(" _i[2,3,4] <file>: Load chart info into chart slots 2, 3, or 4.");
   PrintS(" _o <file> [..]: Write parameters of current chart to file.");
   PrintS(" _o0 <file> [..]: Like _o but output planet/house positions.");
+  PrintS(" _od <file>: Output program's current settings to switch file.");
   PrintS(" _os <file>, > <file>: Redirect output of text charts to file.");
   PrintS("\nSwitches which affect what information is used in a chart:");
   PrintS(" _R [<obj1> [<obj2> ..]]: Restrict specific bodies from displays.");
@@ -404,6 +404,8 @@ void DisplaySwitches(void)
   PrintS(
     " _A3: Aspects calculated by latitude combined with zodiac position.");
   PrintS(" _Ap: Orb limits apply to latitude as well as zodiac position.");
+  PrintS(
+    " _AP: Parallel aspects based on ecliptic not equatorial positions.");
   PrintS(" _Ao <aspect> <orb>: Specify maximum orb for an aspect.");
   PrintS(" _Am <planet> <orb>: Specify maximum orb allowed to a planet.");
   PrintS(" _Ad <planet> <orb>: Specify orb addition given to a planet.");
@@ -492,13 +494,13 @@ void DisplaySwitches(void)
   PrintS(" _k0: Like _k but only use special characters, not Ansi color.");
   PrintS(" _kh: Text charts saved to file use HTML instead of Ansi codes.");
 
-  /* If graphics features are compiled in, call an additional procedure to */
-  /* display the command switches offered dealing with the graphics stuff. */
+  // If graphics features are compiled in, call an additional procedure to
+  // display the command switches offered dealing with graphics options.
 
 #ifdef GRAPH
   DisplaySwitchesX();
 #ifdef WIN
-  DisplaySwitchesW();  /* Windows version has its own set of switches too. */
+  DisplaySwitchesW();  // Windows version has its own set of switches too.
 #endif
 #endif /* GRAPH */
 }
@@ -519,8 +521,10 @@ void DisplaySwitchesRare(void)
   PrintS(
     " _YV: Compute topocentric positions instead of from center of body.");
   PrintS(" _Yh: Compute location of solar system barycenter instead of Sun.");
+  PrintS(" _Ym: Position planetary moons around current central object.");
   PrintS(" _Ys: Sidereal zodiac positions are in plane of solar system.");
   PrintS(" _Yn: Compute location of true instead of mean node.");
+  PrintS(" _Yn0: Don't consider nutation in tropical zodiac positions.");
   PrintS(" _Yu: Display eclipse and occultation information in charts.");
   PrintS(" _Yd: Display dates in D/M/Y instead of M/D/Y format.");
   PrintS(" _Yt: Display times in 24 hour instead of am/pm format.");
@@ -548,6 +552,8 @@ void DisplaySwitchesRare(void)
   PrintS(" _Ye <obj> <index>: Change orbit of Uranian to external formula.");
   PrintS(
     " _Yeb <obj> <index>: Change orbit of Uranian to external ephemeris.");
+  PrintS(
+    " _Yem <obj> <index>: Change orbit of Uranian to planet moon ephemeris.");
   PrintS(" _YeO <obj1> <obj2>: Change orbit of Uranian to internal planet.");
   PrintS(" _Ye[..]n <obj> <index>: Change Uranian to North Node of object.");
   PrintS(" _Ye[..]s <obj> <index>: Change Uranian to South Node of object.");
@@ -635,6 +641,7 @@ void DisplaySwitchesRare(void)
   PrintS(
     " _YF <obj> <deg><sign><min> <deg><min> <velocity> <au>: Set position.");
 #ifdef GRAPH
+  PrintS("\nSwitches to access obscure graphics options:");
   PrintS(" _YXG <0-2><0-2><0-3><0-2>: Select among different graphic glyphs");
   PrintS("  for Capricorn, Uranus, Pluto, and Lilith.");
   PrintS(" _YXD <obj> <string1> <string2>: Customize glyphs for planet.");
@@ -654,10 +661,11 @@ void DisplaySwitchesRare(void)
 #ifdef SWISS
   PrintS(" _YXU <starlist> <linklist>: Define lines between extra stars."); 
 #endif
-  PrintS(" _YXf <val>: Set usage of actual system fonts in graphic charts.");
+  PrintS(" _YXf <0-4><0-1><0-3><0-3>: Set usage of fonts in graphic charts.");
   PrintS(" _YXp <-1,0,1>: Set paper orientation for PostScript files.");
   PrintS(" _YXp0 <hor> <ver>: Set paper size for PostScript files.");
 #endif /* GRAPH */
+  PrintS("\nSwitches to access obscure system options:");
   PrintS(" _YB: Make a beep sound at the time this switch is processed.");
   PrintS(" _YY <rows>: Load atlas list of city locations from current file.");
   PrintS(
@@ -671,17 +679,28 @@ void DisplaySwitchesRare(void)
 #ifdef EXPRESS
   PrintS("\nSwitches to define AstroExpressions:");
   PrintS(" _~ <string>: Display result of string parsed as AstroExpression.");
+  PrintS(" _~v <string>: Set adjustment for object display ordering.");
+  PrintS(" _~g <string>: Set filter for aspect configurations.");
   PrintS(" _~a <string>: Set adjustment for aspect list powers.");
+  PrintS(" _~a0 <string>: Set notification for aspect list summary.");
+  PrintS(" _~m <string>: Set filter for midpoint display.");
+  PrintS(" _~ma <string>: Set filter for displaying aspects to midpoints.");
+  PrintS(" _~L <string>: Set filter for astro-graph latitude crossings.");
   PrintS(" _~E <string>: Set filter for text ephemeris lines.");
+  PrintS(" _~P <string>: Set filter for Arabic parts display.");
   PrintS(" _~d <string>: Set filter for transit to transit events.");
   PrintS(" _~t <string>: Set filter for transit to natal events.");
   PrintS(" _~j <string>: Set adjustment for object influence.");
   PrintS(" _~O <string>: Set adjustment for object calculations.");
   PrintS(" _~C <string>: Set adjustment for house cusp calculations.");
   PrintS(" _~A <string>: Set adjustment for aspect orbs.");
+  PrintS(" _~p[0] <string>: Set adjustment for progression offset.");
   PrintS(" _~kO <string>: Set adjustment for object colors.");
   PrintS(" _~kA <string>: Set adjustment for aspect colors.");
+  PrintS(" _~q[1-2] <string>: Set notification before/after chart cast.");
+  PrintS(" _~Q[1-2] <string>: Set notification before/after chart displayed.");
   PrintS(" _~M <0-26> <string>: Define the specified AstroExpression macro.");
+  PrintS(" _~1 <string>: Simply parse AstroExpression (don't show result).");
   PrintS(" _~0: Disable all automatic AstroExpression checks in the program.");
 #endif
 }
@@ -696,7 +715,7 @@ void DisplaySwitchesRare(void)
 void PrintObjects(void)
 {
   char sz[cchSzDef];
-  int i, j, k;
+  int i, j, k, l;
 #ifdef SWISSGRAPH
   ES es;
 #endif
@@ -704,11 +723,14 @@ void PrintObjects(void)
   sprintf(sz, "%s planets and objects:\n", szAppName); PrintSz(sz);
   PrintSz("No. Name       Rulers   Detriments Exalt Fall ");
   PrintSz("Esoteric Hierarchical Ray\n\n");
-  for (i = 0; i <= oNorm; i++) if (!ignore[i]) {
+  for (l = 0; l <= oNorm; l++) {
+    i = rgobjList[l];
+    if (ignore[i])
+      continue;
     AnsiColor(kObjA[i]);
     sprintf(sz, "%2d %-12s", i, szObjDisp[i]); PrintSz(sz);
 
-    /* Print rulerships and exaltations for the planets. */
+    // Print rulerships and exaltations for the planets.
 
     j = ruler1[i]; k = ruler2[i];
     if (j) {
@@ -773,12 +795,12 @@ void PrintObjects(void)
     PrintL();
   }
 
-  /* Now, if -U in effect, read in and display stars in specified order. */
+  // Now, if -U in effect, read in and display stars in specified order.
 
   if (us.nStar) {
-    CastChart(fTrue);
+    CastChart(0);
     for (i = starLo; i <= starHi; i++) if (!ignore[i]) {
-      j = oNorm+starname[i-oNorm];
+      j = rgobjList[i];
       AnsiColor(kObjA[j]);
       sprintf(sz, "%2d %-12s", i, szObjDisp[j]); PrintSz(sz);
       sprintf(sz, "Star #%2d  ", i-oNorm); PrintSz(sz);
@@ -792,7 +814,7 @@ void PrintObjects(void)
   AnsiColor(kDefault);
 
 #ifdef SWISSGRAPH
-  /* Print extra stars. */
+  // Print extra stars.
   if (gs.fAllStar) {
     PrintL();
     SwissComputeStar(0.0, NULL);
@@ -811,7 +833,7 @@ void PrintObjects(void)
     }
   }
 
-  /* Print extra asteroids. */
+  // Print extra asteroids.
   if (!gs.fAllStar && gs.nAstLo > 0) {
     PrintL();
     SwissComputeAsteroid(0.0, NULL, fFalse);
@@ -845,7 +867,7 @@ void PrintAspects(void)
     i2 = !us.fParallel ? i : i + cAspect;
     AnsiColor(kAspA[i]);
 
-    /* Print aspect angle. */
+    // Print aspect angle.
     sprintf(sz, "%2d %-15s(%s) %6.2f",
       i, szAspectDisp[i2], szAspectAbbrev[i2], rAspAngle[i]);
     for (pch = sz; *pch; pch++)
@@ -856,7 +878,7 @@ void PrintAspects(void)
       *pch = ' ';
     PrintSz(sz);
 
-    /* Print aspect orb. */
+    // Print aspect orb.
     sprintf(sz, " +/- %f", rAspOrb[i]);
     for (pch = sz; *pch; pch++)
       ;
@@ -891,7 +913,7 @@ void PrintSigns(void)
   }
   AnsiColor(kDefault);
 
-  /* Print Rays, esoteric rulerships, and exaltations of signs. */
+  // Print Rays, esoteric rulerships, and exaltations of signs.
   PrintSz("\nNo. Sign        Rays  Exoteric   Esoteric   Hierarchical "
     "Exalt Detriment  Fall\n\n");
   for (i = 1; i <= cSign; i++) {
@@ -972,31 +994,31 @@ CONST char *GetSzGenitive(char *szGen, CONST char *szInst)
   int cch;
 
   pch = szGen + CchSz(szGen);
-  if (*szInst == ' ')            /* Instructions starting with a space or */
-    szInst++;                    /* that are empty means no special case. */
+  if (*szInst == ' ')            // Instructions starting with a space or
+    szInst++;                    // that are empty means no special case.
   else if (*szInst) {
     cch = *szInst - '0';
-    if (cch < 10) {          /* Instructions starting with a number means */
-      szInst++;              /* hack off that many characters of string.  */
+    if (cch < 10) {          // Instructions starting with a number means
+      szInst++;              // hack off that many characters of string.
       pch -= cch;
     }
-    while (*szInst > '9')  /* Instructions end with characters to append. */
+    while (*szInst > '9')  // Instructions end with characters to append.
       *pch++ = *szInst++;
     *pch = chNull;
     return szInst;
   }
   ch1 = *(pch-1);
   ch2 = *(pch-2);
-  if (ch1 == 'a') {           /* Standard rule: 'a' ending -> 'ae'. */
+  if (ch1 == 'a') {           // Standard rule: 'a' ending -> 'ae'.
     *pch++ = 'e';
     *pch = chNull;
-  } else if (ch1 == 's' && ch2 == 'u') {     /* 'us' ending -> 'i'. */
+  } else if (ch1 == 's' && ch2 == 'u') {     // 'us' ending -> 'i'.
     *(pch-2) = 'i';
     *(pch-1) = chNull;
-  } else if (ch1 == 'm' && ch2 == 'u') {     /* 'um' ending -> 'i'. */
+  } else if (ch1 == 'm' && ch2 == 'u') {     // 'um' ending -> 'i'.
     *(pch-2) = 'i';
     *(pch-1) = chNull;
-  } else if (ch1 == 'x')     /* Standard rule: 'x' ending -> 'cis'. */
+  } else if (ch1 == 'x')     // Standard rule: 'x' ending -> 'cis'.
     sprintf(pch-1, "cis");
   return szInst;
 }
@@ -1073,18 +1095,18 @@ void PrintOrbit(void)
   int i, j;
   real r;
 
-  /* Fill out star data arrays if necessary. */
+  // Fill out star data arrays if necessary.
   if (us.nStar)
-    CastChart(fTrue);
+    CastChart(0);
 
-  /* Loop over each object and print its data. */
+  // Loop over each object and print its data.
   sprintf(sz, "%s planets:\n", szAppName); PrintSz(sz);
   PrintSz("   Name: Distance   Year Diameter     Day       Mass Density  ");
   PrintSz("Axis Satellites\n\n");
   for (i = 0; i <= cObj; i++) {
     if (ignore[i] || (i > oLil && i < uranLo))
       continue;
-    j = i <= oNorm ? i : oNorm+starname[i-oNorm];
+    j = rgobjList[i];
     AnsiColor(kObjA[j]);
     sprintf(sz, "%7.7s: %8.3f", szObjDisp[j],
       j < starLo ? rObjDist[j]/rObjDist[oEar] : rStarDist[j-oNorm]/rLYToAU);
@@ -1157,8 +1179,8 @@ int NCompareSzPart(int ap1, int ap2)
   for (ich = 0; pch1[ich] && pch1[ich] == pch2[ich]; ich++) {
     if (!us.fArabicFlip) {
 
-      /* If formulas are being displayed in alternate form, we need to */
-      /* effectively swap two sections in the string and then compare. */
+      // If formulas are being displayed in alternate form, we need to
+      // effectively swap two sections in the string and then compare.
 
       if (ich == 2)
         ich = 5;
@@ -1185,7 +1207,7 @@ void DisplayArabic(void)
   PrintTab(' ', 1 + 4 * is.fSeconds);
   PrintSz("House Formula              Flip Type\n");
 
-  /* Calculate the zodiac positions of all the parts. */
+  // Calculate the zodiac positions of all the parts.
 
   for (i = 0; i < cPart; i++) {
     rPart[i] = -rDegMax;
@@ -1203,17 +1225,17 @@ void DisplayArabic(void)
       else
         k = (ch-'0') * 10 + (pch[2]-'0');
       ch = *pch;
-      if (ch == 'h')      /* House cusp */
+      if (ch == 'h')       // House cusp
         rCur = chouse[k];
-      else if (ch == 'r') /* Ruler of house cusp */
+      else if (ch == 'r')  // Ruler of house cusp
         rCur = planet[rules[SFromZ(chouse[k])]];
-      else if (ch == 'j') /* 10 degrees of house cusp */
+      else if (ch == 'j')  // 10 degrees after house cusp
         rCur = chouse[k] + 10.0;
-      else if (ch == 'H') /* Planet's house */
+      else if (ch == 'H')  // House cusp planet lies within
         rCur = chouse[inhouse[k]];
-      else if (ch == 'R') /* Ruler of planet's house */
+      else if (ch == 'R')  // Ruler of planet's house
         rCur = planet[rules[SFromZ(chouse[inhouse[k]])]];
-      else if (ch == 'D') /* Dispositor / ruler of planet's position */
+      else if (ch == 'D')  // Dispositor / ruler of planet's position
         rCur = planet[rules[SFromZ(planet[k])]];
       else if (FBetween(ch, '0', '3'))
         rCur = (real)((ch-'0') * 100 + k);
@@ -1234,34 +1256,31 @@ void DisplayArabic(void)
     rCur = rBit[1] - rBit[2];
     if (us.nArabicNight < 0 || (ai[i].form[9] == 'F' &&
       inhouse[oSun] < sLib && us.nArabicNight == 0))
-      rCur = -rCur;
+      neg(rCur);
     rCur = Mod(rCur + rBit[0]);
     rPart[i] = rCur;
 LNextPart:
     iPart[i] = i;
   }
 
-  /* Sort parts to figure out what order to display them in. */
+  // Sort parts to figure out what order to display them in.
 
   if (us.nArabic > 1) for (i = 1; i < cPart; i++) {
     j = i-1;
 
-    /* Compare part zodiac locations for -Pz switch. */
-
+    // Compare part zodiac locations for -Pz switch.
     if (us.nArabic == 'z') while (j >= 0 &&
       rPart[iPart[j]] > rPart[iPart[j+1]]) {
       SwapN(iPart[j], iPart[j+1]);
       j--;
 
-    /* Compare part names for -Pn switch. */
-
+    // Compare part names for -Pn switch.
     } else if (us.nArabic == 'n') while (j >= 0 && NCompareSz(
       ai[iPart[j]].name, ai[iPart[j+1]].name) > 0) {
       SwapN(iPart[j], iPart[j+1]);
       j--;
 
-    /* Compare part formulas for -Pf switch. */
-
+    // Compare part formulas for -Pf switch.
     } else if (us.nArabic == 'f') while (j >= 0 && NCompareSzPart(
       iPart[j], iPart[j+1]) > 0) {
       SwapN(iPart[j], iPart[j+1]);
@@ -1269,12 +1288,22 @@ void DisplayArabic(void)
     }
   }
 
-  /* Display the positions and formulas of the parts. */
+  // Display the positions and formulas of the parts.
 
   for (h = i = 0; i < cPart; i++) {
     l = iPart[i];
     if (rPart[l] < 0.0)
       continue;
+#ifdef EXPRESS
+    // Skip this part if AstroExpression says to do so.
+    if (!us.fExpOff && FSzSet(us.szExpPart)) {
+      ExpSetN(iLetterY, l);
+      ExpSetR(iLetterZ, rPart[l]);
+      if (!NParseExpression(us.szExpPart))
+        continue;
+      rPart[l] = Mod(RExpGet(iLetterZ));
+    }
+#endif
     sprintf(sz, "%3d: %23.23s ", ++h, ai[l].name); PrintSz(sz);
     PrintZodiac(rPart[l]);
     j = NHousePlaceIn2D(rPart[l]);
@@ -1315,9 +1344,9 @@ void DisplayArabic(void)
       if (sz[3] == chNull) {
         PrintCh(' ');
         switch (ch) {
-        case 'h': ch = ' '; break;
-        case 'r': ch = 'R'; break;
-        case 'j': ch = '&'; break;
+        case 'h': ch = ' '; break;  // House cusp
+        case 'r': ch = 'R'; break;  // Ruler of house cusp
+        case 'j': ch = '+'; break;  // 10 degrees after house cusp
         default: ch = *pch;
         }
         PrintCh(ch);
@@ -1343,8 +1372,8 @@ void DisplayArabic(void)
     AnsiColor(kDefault);
     PrintL();
 
-    /* If the -ma switch is set, determine and display each aspect from one */
-    /* of the planets to the current part, and the aspect's orb.            */
+    // If the -ma switch is set, determine and display each aspect from one of
+    // the planets to the current part, and the aspect's orb.
 
     if (us.fMidAspect)
       PrintAspectsToPoint(rPart[l], -1, 0.0, "Part at");
@@ -1399,20 +1428,20 @@ void DisplayKeysX(void)
   PrintS(" Press 'n' to set chart information to current time now.");
 #endif
   PrintS(" Press 'N' to toggle animation status on or off. Charts will");
-  PrintS("    be updated to current status and globe will rotate.");
+  PrintS("    be updated to current status and globes will rotate.");
   PrintS(" Press '!'-'(' to begin updating current chart by adding times.");
   PrintS("    !: seconds, @: minutes, #: hours, $: days, %: months,");
   PrintS("    ^: years, &: years*10, *: years*100, (: years*1000.");
   PrintS(" Press 'r' to reverse direction of time-lapse or animation.");
   PrintS(" Press '1'-'9' to set rate of animation to 'n' degrees, etc.");
+  PrintS(" Press 'V','A','Z','S','M','K','J','L','E','X','W','G','P','T' to");
   PrintS(
-    " Press 'V','A','Z','S','M','K','J','L','E','X','W','G','P' to switch");
-  PrintS(
-    "    to normal (_v), grid (_g), local (_Z), space (_S), sector (_l),");
+    "    switch to normal (_v), grid (_g), local horizon (_Z), space (_S),");
   PrintS(
-    "    calendar (_K), dispositor (_j), astro-graph (_L), ephemeris (_E),");
+    "    sector (_l), calendar (_K), dispositor (_j), astro-graph (_L),");
   PrintS(
-    "    sphere (_XX), world map (_XW), globe (_XG), polar (_XP) modes.");
+    "    ephemeris (_E), chart sphere (_XX), world map (_XW), globe (_XG),");
+  PrintS("    polar (_XP), and telescope (_XZ) modes.");
   PrintS(" Press 'Y' to switch to biorhythm relationship chart mode.");
   PrintS(" Press '0' to toggle between _Z,_Z0 & _XW,_XW0 & _E,_Ey modes.");
 #ifdef CONSTEL
@@ -1422,8 +1451,8 @@ void DisplayKeysX(void)
   PrintS(" Press 'd' to toggle display of house information in map modes.");
   PrintS(" Press 'space' to force redraw of current graphics display.");
   PrintS(" Press 'del' to clear the graphics screen and not redraw.");
-  PrintS(" Press 'enter' to input a command line of general switches.");
-  PrintS(" Press 'q' to terminate graphics and the program.");
+  PrintS(" Press 'enter' to input a command line of program switches.");
+  PrintS(" Press 'q' to close graphics window and exit program.");
 #ifdef X11
   PrintL();
   PrintS(" Left   mouse button: Draw line strokes on chart in window.");
@@ -1484,6 +1513,7 @@ void DisplaySwitchesX(void)
     " _XE[0-3] [..]: Like _XE but set whether to label ast number and name.");
 #ifdef ATLAS
   PrintS(" _XL: Plot city locations from atlas on world map.");
+  PrintS(" _XL[1-5]: Like _XL but set how to color cities (when _XA is on).");
 #endif
   PrintS(" _XC: Draw house boundaries or alternate info in certain charts.");
   PrintS(" _X1 <object>: Rotate wheel charts so object is at left edge.");
@@ -1499,6 +1529,7 @@ void DisplaySwitchesX(void)
     " _XG[0] [<degrees> [<degrees>]]: Display image of world as a globe.");
   PrintS(
     " _XP[0] [<degrees>]: Like _XG but create globe from a polar projection.");
+  PrintS(" _XZ: Display telescope chart zoomed in on part of sky.");
 #ifdef CONSTEL
   PrintS(" _XF: Display maps as constellations on the celestial sphere.");
 #endif
@@ -1527,6 +1558,7 @@ void DisplaySwitchesW(void)
   PrintS(" _Wn: Don't redraw screen until user forces update.");
   PrintS(" _Wh: Set hourglass cursor when redrawing chart.");
   PrintS(" _Wt: Don't display warning and error popup messages.");
+  PrintS(" _Ww <hor> <ver>: Set upper left coordinates of window.");
   PrintS(" _WB <0-24> <0-24>: Set window scrollbar positions.");
   PrintS(" _Wo: Continually autosave graphics screen to bitmap file.");
   PrintS(" _Wo0: Continually autosave graphics screen to numbered files.");
@@ -1624,9 +1656,9 @@ flag FPrintTables(void)
   }
 #endif
 
-  /* If we also already have enough information to generate a chart,    */
-  /* then go on and do so, else exit. (So things like "-H -i file" will */
-  /* work, but things like just "-H" will print and exit right away.)   */
+  // If we also already have enough information to generate a chart, then go
+  // on and do so, else exit. (So things like "-H -i file" will work, but
+  // things like just "-H" will print and exit right away.)
 
 #ifndef WIN
   return is.fMult && !is.fHaveInfo;
diff --git a/charts1.cpp b/charts1.cpp
index 11afeed..8eed218 100644
--- a/charts1.cpp
+++ b/charts1.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: charts1.cpp
+** Astrolog (Version 7.10) File: charts1.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -69,7 +69,7 @@ void PrintHeader(int nSpace)
   int day, fNam, fLoc;
 
   if (nSpace < 0) {
-    /* If another chart's been printed, just skip a couple lines instead. */
+    // If another chart has been printed, just skip a couple lines instead.
     PrintL2();
     return;
   }
@@ -109,20 +109,20 @@ void ChartListing(void)
 {
   ET et;
   char sz[cchSzMax];
-  int i, j, k, fNam, fLoc;
+  int i, j, k, l, fNam, fLoc;
   real rT;
 
   CreateElemTable(&et);
   fNam = *ciMain.nam > chNull; fLoc = *ciMain.loc > chNull;
 
-  PrintHeader(0);    /* Show time and date of the chart being displayed. */
+  PrintHeader(0);    // Show time and date of the chart being displayed.
 
 #ifdef INTERPRET
-  if (us.fInterpret) {          /* Print an interpretation if -I in effect. */
+  if (us.fInterpret) {          // Print an interpretation if -I in effect.
     if (us.nRel == rcSynastry)
-      InterpretSynastry();      /* Print synastry interpretaion for -r -I.  */
+      InterpretSynastry();      // Print synastry interpretaion for -r -I.
     else
-      InterpretLocation();      /* Do normal interpretation for just -v -I. */
+      InterpretLocation();      // Do normal interpretation for just -v -I.
     return;
   }
 #endif
@@ -143,17 +143,18 @@ void ChartListing(void)
   if (!fNam && !fLoc)
     PrintL();
 
-  /* Ok, now print out the location of each object. */
+  // Ok, now print out the location of each object.
 
-  for (i = j = 0; us.fSeconds ? j <= oNorm : j <= oNorm || i < cSign+8; j++) {
+  for (i = l = 0; us.fSeconds ? l <= oNorm : l <= oNorm || i < cSign+8; l++) {
+    j = rgobjList[l];
     if (us.fSeconds) {
       if (FIgnore(j))
         continue;
     } else {
-      if (j <= oNorm && FIgnore(j))
+      if (l <= oNorm && FIgnore(j))
         continue;
     }
-    if (!us.fSeconds && i < cSign+8 && j > oNorm) {
+    if (!us.fSeconds && i < cSign+8 && l > oNorm) {
       PrintTab(' ', 51);
       j = oNorm;
     } else {
@@ -178,7 +179,7 @@ void ChartListing(void)
     }
     if (!us.fSeconds) {
 
-      /* For some lines, we have to append the house cusp positions. */
+      // For some lines, append the house cusp positions.
 
       if (i < cSign) {
         PrintSz("  -  ");
@@ -187,7 +188,7 @@ void ChartListing(void)
         PrintZodiac(chouse[i+1]);
       }
 
-      /* For some lines, we have to append the element table information. */
+      // For some lines, append the element table information.
 
       if (i == cSign+1)
         PrintSz("     Car Fix Mut TOT");
@@ -234,10 +235,10 @@ void ChartListing(void)
     i++;
   }
 
-  /* Do another loop to print out the stars in their specified order. */
+  // Do another loop to print out the stars in their specified order.
 
   if (us.nStar) for (i = starLo; i <= starHi; i++) {
-    j = oNorm+starname[i-oNorm];
+    j = rgobjList[i];
     if (ignore[j])
       continue;
     AnsiColor(kObjA[j]);
@@ -266,26 +267,35 @@ void ChartListing(void)
 void ChartGrid(void)
 {
   char sz[cchSzDef];
-  int x, y, r, x1, y1, temp;
+  int x0, y0, x, y, r, xc, yc, xg, yg, temp;
 
 #ifdef INTERPRET
-  if (us.fInterpret) {    /* Print interpretation instead if -I in effect. */
+  if (us.fInterpret) {    // Print interpretation instead if -I in effect.
     InterpretGrid();
     return;
   }
 #endif
 
-  for (y1 = 0, y = 0; y <= cObj; y++) if (!ignore[y])
+  for (yc = 0, y0 = 0; y0 <= cObj; y0++) {
+    y = rgobjList[y0];
+    if (ignore[y])
+      continue;
     for (r = 1; r <= 4 + us.fSeconds; r++) {
-      for (x1 = 0, x = 0; x <= cObj; x++) if (!ignore[x]) {
-        if (y1 > 0 && x1 > 0 && y1+r > 1)
+      for (xc = 0, x0 = 0; x0 <= cObj; x0++) {
+        x = rgobjList[x0];
+        if (ignore[x])
+          continue;
+        if (yc > 0 && xc > 0 && yc+r > 1)
           PrintCh((char)(r > 1 ? chV : chC));
         if (r > 1) {
-          temp = grid->n[x][y];
+          xg = x; yg = y;
+          if ((x > y) != (x0 > y0))
+            SwapN(xg, yg);
+          temp = grid->n[xg][yg];
 
-          /* Print aspect rows. */
+          // Print aspect rows.
 
-          if (x < y) {
+          if (xg < yg) {
             if (temp)
               AnsiColor(kAspA[temp]);
             if (r == 2)
@@ -294,35 +304,36 @@ void ChartGrid(void)
               PrintSz("   ");
             else {
               if (r == 3) {
-                if (grid->v[x][y] < 6000*60)
+                if (NAbs(grid->v[xg][yg]) < 6000*60)
                   sprintf(sz, "%c%2d", us.fAppSep ?
-                    (grid->v[x][y] < 0 ? 'a' : 's') :
-                    (grid->v[x][y] < 0 ? '-' : '+'), NAbs(grid->v[x][y])/3600);
+                    (grid->v[xg][yg] < 0 ? 'a' : 's') :
+                    (grid->v[xg][yg] < 0 ? '-' : '+'),
+                    NAbs(grid->v[xg][yg])/3600);
                 else
-                  sprintf(sz, "%3d", NAbs(grid->v[x][y])/3600);
+                  sprintf(sz, "%3d", NAbs(grid->v[xg][yg])/3600);
               } else if (r == 4)
-                sprintf(sz, "%02d'", NAbs(grid->v[x][y])/60%60);
+                sprintf(sz, "%02d'", NAbs(grid->v[xg][yg])/60%60);
               else
-                sprintf(sz, "%02d\"", NAbs(grid->v[x][y])%60);
+                sprintf(sz, "%02d\"", NAbs(grid->v[xg][yg])%60);
               PrintSz(sz);
             }
 
-          /* Print midpoint rows. */
+          // Print midpoint rows.
 
-          } else if (x > y) {
+          } else if (xg > yg) {
             AnsiColor(kSignA(temp));
             if (r == 2) {
-              temp = grid->n[x][y];
+              temp = grid->n[xg][yg];
               sprintf(sz, "%.3s", szSignName[temp]);
             } else if (r == 3)
-              sprintf(sz, "%2d%c", grid->v[x][y]/3600, chDeg0);
+              sprintf(sz, "%2d%c", grid->v[xg][yg]/3600, chDeg0);
             else if (r == 4)
-              sprintf(sz, "%02d'", grid->v[x][y]/60%60);
+              sprintf(sz, "%02d'", grid->v[xg][yg]/60%60);
             else
-              sprintf(sz, "%02d\"", grid->v[x][y]%60);
+              sprintf(sz, "%02d\"", grid->v[xg][yg]%60);
             PrintSz(sz);
 
-          /* Print the diagonal of object names. */
+          // Print the diagonal of object names.
 
           } else {
             AnsiColor(kReverse);
@@ -343,26 +354,39 @@ void ChartGrid(void)
           }
           AnsiColor(kDefault);
         } else
-          if (y1 > 0)
+          if (yc > 0)
             PrintTab(chH, 3);
-        x1++;
+        xc++;
       }
-      if (y1+r > 1)
+      if (yc+r > 1)
         PrintL();
-      y1++;
+      yc++;
     }
-  if (y1 == 0)
+  }
+  if (yc <= 0)
     PrintSz("Empty aspect grid.\n");
 }
 
 
-/* This is a subprocedure of DisplayGrands(). Here we print out one aspect */
-/* configuration found by the parent procedure.                            */
+/* This is a subprocedure of DisplayAspectConfigs(). Here we print out one */
+/* aspect configuration found by the parent procedure.                     */
 
-void PrintGrand(int ac, int i1, int i2, int i3, int i4)
+flag FPrintAspectConfig(int ac, int i1, int i2, int i3, int i4)
 {
   char sz[cchSzDef];
 
+#ifdef EXPRESS
+  // Skip this aspect configuration if AstroExpression says to do so.
+  if (!us.fExpOff && FSzSet(us.szExpConfig)) {
+    ExpSetN(iLetterV, ac);
+    ExpSetN(iLetterW, i1);
+    ExpSetN(iLetterX, i2);
+    ExpSetN(iLetterY, i3);
+    ExpSetN(iLetterZ, i4);
+    if (!NParseExpression(us.szExpConfig))
+      return fFalse;
+  }
+#endif
   AnsiColor(kAspA[rgAspConfig[ac]]);
   sprintf(sz, "%-11s", szAspectConfig[ac]); PrintSz(sz);
   AnsiColor(kDefault);
@@ -389,13 +413,14 @@ void PrintGrand(int ac, int i1, int i2, int i3, int i4)
     PrintZodiac(planet[i4]);
   }
   PrintL();
+  return fTrue;
 }
 
 
 /* Scan the aspect grid of a chart and print out any major configurations, */
 /* as specified with the -g0 switch.                                       */
 
-void DisplayGrands(void)
+void DisplayAspectConfigs(void)
 {
   int cac = 0, i, j, k, l;
 
@@ -405,7 +430,7 @@ void DisplayGrands(void)
         if (!(us.objRequire >= 0 &&
           i != us.objRequire && j != us.objRequire && k != us.objRequire)) {
 
-          /* Is there a Stellium among the current three planets? */
+          // Is there a Stellium among the current three planets?
 
           if (i < j && j < k && grid->n[i][j] == aCon &&
               grid->n[i][k] == aCon && grid->n[j][k] == aCon) {
@@ -415,33 +440,28 @@ void DisplayGrands(void)
                 grid->n[Min(j, l)][Max(j, l)] == aCon &&
                 grid->n[Min(k, l)][Max(k, l)] == aCon)
                 break;
-            if (l > cObj) {
-              cac++;
-              PrintGrand(acS3, i, j, k, 0);
-            }
+            if (l > cObj)
+              cac += FPrintAspectConfig(acS3, i, j, k, -1);
 
-          /* Is there a Grand Trine? */
+          // Is there a Grand Trine?
 
           } else if (i < j && j < k && grid->n[i][j] == aTri &&
               grid->n[i][k] == aTri && grid->n[j][k] == aTri) {
-            cac++;
-            PrintGrand(acGT, i, j, k, 0);
+            cac += FPrintAspectConfig(acGT, i, j, k, -1);
 
-          /* Is there a T-Square? */
+          // Is there a T-Square?
 
           } else if (j < k && grid->n[j][k] == aOpp &&
               grid->n[Min(i, j)][Max(i, j)] == aSqu &&
               grid->n[Min(i, k)][Max(i, k)] == aSqu) {
-            cac++;
-            PrintGrand(acTS, i, j, k, 0);
+            cac += FPrintAspectConfig(acTS, i, j, k, -1);
 
-          /* Is there a Yod? */
+          // Is there a Yod?
 
           } else if (j < k && grid->n[j][k] == aSex &&
               grid->n[Min(i, j)][Max(i, j)] == aInc &&
               grid->n[Min(i, k)][Max(i, k)] == aInc) {
-            cac++;
-            PrintGrand(acY, i, j, k, 0);
+            cac += FPrintAspectConfig(acY, i, j, k, -1);
           }
         }
         for (l = 0; l <= cObj; l++) if (!FIgnore(l)) {
@@ -449,7 +469,7 @@ void DisplayGrands(void)
             j != us.objRequire && k != us.objRequire && l != us.objRequire)
             continue;
 
-          /* Is there a Grand Cross among the current four planets? */
+          // Is there a Grand Cross among the current four planets?
 
           if (i < j && i < k && i < l && j < l && grid->n[i][j] == aSqu &&
               grid->n[Min(j, k)][Max(j, k)] == aSqu &&
@@ -457,19 +477,17 @@ void DisplayGrands(void)
               grid->n[i][l] == aSqu &&
               MinDistance(planet[i], planet[k]) > 150.0 &&
               MinDistance(planet[j], planet[l]) > 150.0) {
-            cac++;
-            PrintGrand(acGC, i, j, k, l);
+            cac += FPrintAspectConfig(acGC, i, j, k, l);
 
-          /* Is there a Cradle? */
+          // Is there a Cradle?
 
           } else if (i < l && grid->n[Min(i, j)][Max(i, j)] == aSex &&
               grid->n[Min(j, k)][Max(j, k)] == aSex &&
               grid->n[Min(k, l)][Max(k, l)] == aSex &&
               MinDistance(planet[i], planet[l]) > 150.0) {
-            cac++;
-            PrintGrand(acC, i, j, k, l);
+            cac += FPrintAspectConfig(acC, i, j, k, l);
 
-          /* Is there a Mystic Rectangle? */
+          // Is there a Mystic Rectangle?
 
           } else if (i < j && i < k && i < l && grid->n[i][j] == aTri &&
               grid->n[Min(j, k)][Max(j, k)] == aSex &&
@@ -477,21 +495,19 @@ void DisplayGrands(void)
               grid->n[i][l] == aSex &&
               MinDistance(planet[i], planet[k]) > 150.0 &&
               MinDistance(planet[j], planet[l]) > 150.0) {
-            cac++;
-            PrintGrand(acMR, i, j, k, l);
+            cac += FPrintAspectConfig(acMR, i, j, k, l);
 
-          /* Is there a Stellium among the current four planets? */
+          // Is there a Stellium among the current four planets?
 
           } else if (i < j && j < k && k < l && grid->n[i][j] == aCon &&
               grid->n[i][k] == aCon && grid->n[i][l] == aCon &&
               grid->n[j][k] == aCon && grid->n[j][l] == aCon &&
               grid->n[k][l] == aCon) {
-            cac++;
-            PrintGrand(acS4, i, j, k, l);
+            cac += FPrintAspectConfig(acS4, i, j, k, l);
           }
         }
       }
-  if (!cac)
+  if (cac <= 0)
     PrintSz("No major configurations in aspect grid.\n");
 }
 
@@ -531,13 +547,13 @@ void PrintWheelCenter(int irow)
   char sz[cchSzDef], szT[cchSzDef];
   int cch, nT;
 
-  if (is.nWheelRows > 4)                     /* Try to center lines. */
+  if (is.nWheelRows > 4)                     // Try to center lines.
     irow -= (is.nWheelRows - 4);
   if (*ciMain.nam == chNull && *ciMain.loc == chNull && is.nWheelRows >= 4)
     irow--;                                  
-  if (*ciMain.nam == chNull && irow >= 1)    /* Don't have blank lines if */
-    irow++;                                  /* the name and/or location  */
-  if (*ciMain.loc == chNull && irow >= 3)    /* strings are empty.        */
+  if (*ciMain.nam == chNull && irow >= 1)    // Don't have blank lines if the
+    irow++;                                  // name and/or location strings
+  if (*ciMain.loc == chNull && irow >= 3)    // are empty.
     irow++;
 
   switch (irow) {
@@ -607,7 +623,7 @@ void PrintWheelSlot(int obj)
     PrintZodiac(planet[obj]);
     sprintf(sz, "%c ", ret[obj] < 0.0 ? chRet2 : ' '); PrintSz(sz);
     PrintTab(' ', WHEELCOLS-15);
-  } else                            /* This particular line is blank. */
+  } else                            // This particular line is blank.
     PrintTab(' ', WHEELCOLS-1 + is.fSeconds*4);
 }
 
@@ -620,7 +636,7 @@ void ChartWheel(void)
 {
   int wheel[cSign][WHEELROWS], wheelcols, count = 0, i, j, k, l;
 
-  /* Autodetect wheel house size, based on house with most planets in it. */
+  // Autodetect wheel house size, based on house with most planets in it.
 
   if (us.nWheelRows <= 0) {
     k = 0;
@@ -641,30 +657,30 @@ void ChartWheel(void)
   } else
     is.nWheelRows = us.nWheelRows;  
 
-  /* If the seconds (-b0) flag is set, we'll print all planet and house    */
-  /* locations to the nearest zodiac second instead of just to the minute. */
+  // If the seconds (-b0) flag is set, then print all planet and house
+  // locations to the nearest zodiac second instead of just to the minute.
 
   wheelcols = WHEELCOLS + is.fSeconds*4;
 
   for (i = 0; i < cSign; i++)
     for (j = 0; j < is.nWheelRows; j++)
-      wheel[i][j] = -1;                    /* Clear out array. */
+      wheel[i][j] = -1;                    // Clear out array.
 
-  /* This section of code places each object in the wheel house array. */
+  // This section of code places each object in the wheel house array.
 
   for (i = 0; i <= cObj && count < is.nWheelRows*12; i++) {
     if (FIgnore(i) || (FCusp(i) &&
       MinDistance(planet[i], chouse[i-oAsc+1]) < rRound/60.0))
       continue;
 
-    /* Try to put object in its proper house. If no room, */
-    /* then overflow over to the next succeeding house.   */
+    // Try to put object in its proper house. If no room, then overflow over
+    // to the next succeeding house.
 
     for (j = (us.fVedic ? Mod12(11-SFromZ(planet[i])) : inhouse[i])-1;
       j < cSign; j = j < cSign ? (j+1)%cSign : j) {
 
-      /* Now try to find the proper place in the house to put the object. */
-      /* This is in sorted order, although a check is made for 0 Aries.   */
+      // Now try to find the proper place in the house to put the object.
+      // This is in sorted order, although a check is made for 0 Aries.
 
       if (wheel[j][is.nWheelRows-1] >= 0)
         continue;
@@ -674,7 +690,7 @@ void ChartWheel(void)
         !(l && planet[i] > rDegHalf && planet[wheel[j][k]] < rDegHalf); k++)
         ;
 
-      /* Actually insert object in proper place. */
+      // Actually insert object in proper place.
 
       if (wheel[j][k] < 0)
         wheel[j][k] = i;
@@ -688,9 +704,9 @@ void ChartWheel(void)
     }
   }
 
-  /* Now, if this is really the -w switch and not -w0, then reverse the  */
-  /* order of objects in western houses for more intuitive reading. Also */
-  /* reverse the order of everything in the reverse order Vedic wheels.  */
+  // Now, if this is really the -w switch and not -w0, then reverse the order
+  // of objects in western houses for more intuitive reading. Also reverse the
+  // order of everything in the reverse order Vedic wheels.
 
   if (us.fVedic)
     for (i = 0; i < cSign; i++)
@@ -705,7 +721,7 @@ void ChartWheel(void)
         l = wheel[i][j]; wheel[i][j] = wheel[i][k]; wheel[i][k] = l;
       }
 
-  /* Here we actually print the wheel and the objects in it. */
+  // Here we actually print the wheel and the objects in it.
 
   PrintCh(chNW); PrintTab(chH, WHEELCOLS-8); PrintHouse(11, fTrue);
   PrintTab(chH, WHEELCOLS-11+us.fVedic); PrintHouse(10, fTrue);
@@ -817,7 +833,7 @@ void ChartAspect(void)
   loop {
     vhi = -nLarge;
 
-    /* Search for the next most powerful aspect in the aspect grid. */
+    // Search for the next most powerful aspect in the aspect grid.
 
     for (i = 1; i <= cObj; i++) if (!FIgnore(i))
       for (j = 0; j < i; j++) if (!FIgnore(j))
@@ -828,12 +844,13 @@ void ChartAspect(void)
             (1.0-RAbs((real)(grid->v[j][i]))/3600.0/GetOrb(i, j, k))*1000.0);
 #ifdef EXPRESS
           // Adjust power with AstroExpression if one set.
-          if (!us.fExpOff && FSzSet(us.szExpAsplist)) {
+          if (!us.fExpOff && FSzSet(us.szExpAspList)) {
             ExpSetN(iLetterW, j);
             ExpSetN(iLetterX, k);
             ExpSetN(iLetterY, i);
             ExpSetN(iLetterZ, p);
-            p = NParseExpression(us.szExpAsplist);
+            ParseExpression(us.szExpAspList);
+            p = NExpGet(iLetterZ);
           }
 #endif
           switch (us.nAspectSort) {
@@ -852,15 +869,15 @@ void ChartAspect(void)
             vhi = v; ihi = i; jhi = j; ahi = k; phi = p;
           }
         }
-    if (vhi <= -nLarge)    /* Exit when no less powerful aspect found. */
+    if (vhi <= -nLarge)    // Exit when no less powerful aspect found.
       break;
     vcut = vhi; icut = ihi; jcut = jhi;
-    count++;                               /* Display the current aspect.   */
+    count++;                               // Display the current aspect.
     rPowSum += (real)phi/1000.0;
     ca[ahi]++;
     co[jhi]++; co[ihi]++;
 #ifdef INTERPRET
-    if (us.fInterpret) {                   /* Interpret it if -I in effect. */
+    if (us.fInterpret) {                   // Interpret it if -I in effect.
       InterpretAspect(jhi, ihi);
       AnsiColor(kDefault);
       continue;
@@ -882,6 +899,14 @@ void ChartAspect(void)
     PrintInDayEvent(jhi, ahi, ihi, -1);
   }
 
+#ifdef EXPRESS
+  // Send summary to AstroExpression if one set.
+  if (!us.fExpOff && FSzSet(us.szExpAspSumm)) {
+    ExpSetN(iLetterY, count);
+    ExpSetR(iLetterZ, rPowSum);
+    ParseExpression(us.szExpAspSumm);
+  }
+#endif
   PrintAspectSummary(ca, co, count, rPowSum);
 }
 
@@ -893,10 +918,13 @@ void ChartAspect(void)
 void PrintAspectsToPoint(real deg, int obj, real rRet, char *szWhat)
 {
   char sz[cchSzDef];
-  int i, j, asp;
+  int i, j, k, asp;
   real rAng, rOrb;
 
-  for (i = 0; i < cObj; i++) if (!FIgnore(i)) {
+  for (k = 0; k <= cObj; k++) {
+    i = rgobjList[k];
+    if (FIgnore(i))
+      continue;
     rAng = MinDistance(planet[i], deg);
     for (asp = us.nAsp; asp >= 1; asp--) {
       if (!FAcceptAspect(i, asp, obj >= 0 ? obj : i))
@@ -905,6 +933,18 @@ void PrintAspectsToPoint(real deg, int obj, real rRet, char *szWhat)
       if (RAbs(rOrb) < GetOrb(i, obj >= 0 ? obj : i, asp)) {
         if (us.fAppSep)
           rOrb *= RSgn2(rRet - ret[i]) * RSgn2(MinDifference(planet[i], deg));
+#ifdef EXPRESS
+        // May want to skip current aspect if AstroExpression says to do so.
+        if (!us.fExpOff && FSzSet(us.szExpMidAsp)) {
+          ExpSetR(iLetterV, deg);
+          ExpSetR(iLetterW, rRet);
+          ExpSetN(iLetterX, asp);
+          ExpSetN(iLetterY, k);
+          ExpSetR(iLetterZ, rOrb);
+          if (!NParseExpression(us.szExpMidAsp))
+            continue;
+        }
+#endif
         sprintf(sz, "      %s ", szWhat); PrintSz(sz);
         PrintZodiac(deg);
         PrintSz(" makes ");
@@ -975,13 +1015,13 @@ void ChartMidpoint(void)
   char sz[cchSzDef];
   int mcut = -1, icut, jcut, mlo, ilo, jlo, m, i, j, count = 0;
   long lSpanSum = 0;
-  real mid;
+  real mid, dist;
 
   ClearB((pbyte)cs, sizeof(cs));
   loop {
     mlo = 360*60*60;
 
-    /* Search for the next closest midpoint farther down in the zodiac. */
+    // Search for the next closest midpoint farther down in the zodiac.
 
     for (i = 0; i < cObj; i++) if (!FIgnore(i))
       for (j = i+1; j <= cObj; j++) if (!FIgnore(j)) {
@@ -991,24 +1031,37 @@ void ChartMidpoint(void)
           ilo = i; jlo = j; mlo = m;
         }
       }
-    if (mlo >= 360*60*60) /* Exit when no midpoint farther in zodiac found. */
+    if (mlo >= 360*60*60)  // Exit when no midpoint farther in zodiac found.
       break;
     mcut = mlo; icut = ilo; jcut = jlo;
     if (us.objRequire >= 0 && ilo != us.objRequire && jlo != us.objRequire)
       continue;
-    count++;                               /* Display the current midpoint. */
+    mid  = Midpoint   (planet[ilo], planet[jlo]);
+    dist = MinDistance(planet[ilo], planet[jlo]);
+#ifdef EXPRESS
+    // Skip current midpoint if AstroExpression says to do so.
+    if (!us.fExpOff && FSzSet(us.szExpMid)) {
+      ExpSetN(iLetterW, ilo);
+      ExpSetN(iLetterX, jlo);
+      ExpSetR(iLetterY, mid);
+      ExpSetR(iLetterZ, dist);
+      if (!NParseExpression(us.szExpMid))
+        continue;
+    }
+#endif
+    count++;                               // Display the current midpoint.
     cs[mlo/(3600*30)+1]++;
-    m = (int)(MinDistance(planet[ilo], planet[jlo])*3600.0);
+    m = (int)(dist*3600.0);
     lSpanSum += m;
 #ifdef INTERPRET
-    if (us.fInterpret) {                   /* Interpret it if -I in effect. */
+    if (us.fInterpret) {                   // Interpret it if -I in effect.
       InterpretMidpoint(ilo, jlo);
       AnsiColor(kDefault);
       continue;
     }
 #endif
     sprintf(sz, "%4d: ", count); PrintSz(sz);
-    mid = (real)mlo/3600.0; PrintZodiac(mid);
+    PrintZodiac(mid);
     PrintCh(' ');
     PrintAspect(ilo, planet[ilo], (int)RSgn(ret[ilo]), 0,
       jlo, planet[jlo], (int)RSgn(ret[jlo]), 'm');
@@ -1019,8 +1072,8 @@ void ChartMidpoint(void)
     }
     PrintSz(" degree span.\n");
 
-    /* If the -ma switch is set, determine and display each aspect from one */
-    /* of the planets to the current midpoint, and the aspect's orb.        */
+    // If the -ma switch is set, determine and display each aspect from one of
+    // the planets to the current midpoint, and the aspect's orb.
 
     if (us.fMidAspect)
       PrintAspectsToPoint(mid, ilo, (ret[ilo]+ret[jlo])/2.0, "Midpoint");
@@ -1040,20 +1093,20 @@ void ChartHorizon(void)
     lonz[objMax], latz[objMax], azi[objMax], alt[objMax];
   int fPrime, i, j, k, tot;
 
-  /* Set up some initial variables. */
+  // Set up some initial variables.
 
   fPrime = us.fPrimeVert || us.fHouse3D;
   lon = Lon; lat = Lat;
   tot = us.nStar ? cObj : oNorm;
 
-  /* First find zenith location on Earth of each object. */
+  // First find zenith location on Earth of each object.
 
   for (i = 0; i <= tot; i++) if (!ignore[i] || i == oMC) {
     lonz[i] = Tropical(planet[i]); latz[i] = planetalt[i];
     EclToEqu(&lonz[i], &latz[i]);
   }
 
-  /* Then, convert this to local horizon altitude and azimuth. */
+  // Then, convert this to local horizon altitude and azimuth.
 
   vx = lonz[oMC];
   for (i = 0; i <= tot; i++) if (!ignore[i]) {
@@ -1062,37 +1115,37 @@ void ChartHorizon(void)
     azi[i] = rDegMax - lonz[i]; alt[i] = latz[i];
   }
 
-  /* If the -Z0 switch flag is in effect, convert from altitude/azimuth  */
-  /* coordinates to prime vertical coordinates that we'll print instead. */
+  // If the -Z0 switch flag is in effect, convert from altitude/azimuth
+  // coordinates to prime vertical coordinates that we'll print instead.
 
   if (fPrime) {
     for (i = 0; i <= tot; i++) if (!ignore[i]) {
       CoorXform(&azi[i], &alt[i], rDegQuad);
 
-      /* 3D Campanus cusps should always be start of corresponding house. */
+      // 3D Campanus cusps should always be start of corresponding house.
       if (us.fHouse3D && us.nHouseSystem == hsCampanus && FCusp(i))
         azi[i] = (real)((i - oAsc) * 30);
     }
   }
 
-  /* Now, actually print the location of each object. */
+  // Now, actually print the location of each object.
 
   sprintf(szFormat, is.fSeconds ? " " : "");
-  sprintf(sz, "Body %s%sAltitude%s %s%sAzimuth%s%s%s  Azi. Vector%s    ",
+  sprintf(sz, "\nBody %s%sAltitude%s %s%sAzimuth%s%s%s  Azi. Vector%s    ",
     szFormat, szFormat, szFormat, szFormat, szFormat,
     us.fHouse3D ? "  " : "", szFormat, szFormat, szFormat);
   PrintSz(sz);
-  sprintf(sz, "%s Vector%s%s    Moon Vector\n\n",
+  sprintf(sz, "%s Vector%s%s    Moon Vector\n",
     us.objCenter != oSun ? "Sun" : "Earth", szFormat, szFormat); PrintSz(sz);
   for (k = 0; k <= tot; k++) {
-    i = k <= oNorm ? k : oNorm+starname[k-oNorm];
-    if (ignore[i] || (!us.fHouse3D && !FThing(i)))
+    i = rgobjList[k];
+    if (ignore[i])
       continue;
     AnsiColor(kObjA[i]);
     sprintf(sz, "%-4.4s: ", szObjDisp[i]); PrintSz(sz);
     PrintAltitude(alt[i]);
 
-    /* Determine directional vector based on azimuth. */
+    // Determine directional vector based on azimuth.
 
     if (!us.fHouse3D)
       sprintf(sz, " %s", SzDegree(azi[i]));
@@ -1112,7 +1165,7 @@ void ChartHorizon(void)
     sprintf(sz, is.fSeconds ? " %.3f%c)" : " %.2f%c)", vx,
       sx > 0.0 ? 'e' : 'w'); PrintSz(sz);
 
-    /* Determine distance vector of current object from Sun and Moon. */
+    // Determine distance vector of current object from Sun and Moon.
 
     vx = (ignore[oSun] ? 0.0 : azi[oSun]) - azi[i];
     vy = (ignore[oMoo] ? 0.0 : azi[oMoo]) - azi[i];
@@ -1156,7 +1209,8 @@ void ChartOrbit(void)
     "%s%sX axis%s%s   %s%sY axis%s%s   %s%sZ axis%s%s   %s%sLength\n",
     sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1, sz1);
   PrintSz(sz);
-  for (i = 0; i <= oNorm; i++) {
+  for (j = 0; j <= oNorm; j++) {
+    i = rgobjList[j];
     if (ignore[i] || (!FThing(i) ||
       ((i == oMoo || i == oNod || i == oSou) && !us.fEphemFiles)))
       continue;
@@ -1173,10 +1227,10 @@ void ChartOrbit(void)
     PrintL();
   }
 
-  /* Do another loop to print out the stars in their specified order. */
+  // Do another loop to print out the stars in their specified order.
 
   if (us.nStar) for (i = starLo; i <= starHi; i++) {
-    j = oNorm+starname[i-oNorm];
+    j = rgobjList[i];
     if (ignore[j])
       continue;
     AnsiColor(kObjA[j]);
@@ -1205,12 +1259,12 @@ void ChartEsoteric(void)
 {
   char sz[cchSzDef], *pch;
   int nRay1[cRay+1], nRay2[cRay+1], rank1[cRay+1], rank2[cRay+1],
-    rank[objMax], i, j, n, c, n1 = 0, n2 = 0;
+    rank[objMax], i, j, k, n, c, n1 = 0, n2 = 0;
   real power1[objMax], power2[objMax], rRay1[cRay+1], rRay2[cRay+1],
     power[objMax], r = 0.0, r1 = 0.0, r2 = 0.0;
   flag fIgnore7Sav[5], fRayRuler;
 
-  /* Calculate data. */
+  // Calculate data.
   EnsureRay();
   for (i = 0; i <= cRay; i++) {
     nRay1[i] = nRay2[i] = i ? 0   : -1;
@@ -1236,13 +1290,14 @@ void ChartEsoteric(void)
   SortRank(power, rank, cObj);
   SortRank(rRay1, rank1, cRay); SortRank(rRay2, rank2, cRay);
 
-  /* Print planet table. */
+  // Print planet table.
   for (i = 0; i < 5; i++) {
     fIgnore7Sav[i] = ignore7[i];
     ignore7[i] = fFalse;
   }
   PrintSz("Body    Location Rulers House Rulers Power Rank Percent\n");
-  for (i = 0; i <= cObj; i++) {
+  for (k = 0; k <= cObj; k++) {
+    i = rgobjList[k];
     if (FIgnore(i))
       continue;
     AnsiColor(kObjA[i]);
@@ -1289,7 +1344,7 @@ void ChartEsoteric(void)
   for (i = 0; i < 5; i++)
     ignore7[i] = fIgnore7Sav[i];
 
-  /* Print Ray table. */
+  // Print Ray table.
   for (i = 1; i <= cRay; i++) {
     n1 += nRay1[i]; n2 += nRay2[i];
     r1 += rRay1[i]; r2 += rRay2[i];
@@ -1325,7 +1380,7 @@ void ChartSector(void)
   char sz[cchSzDef];
   CP cp;
   byte ignoreSav[objMax];
-  int c[cSector + 1], i, sec, pls, kPls, cpls = 0, co = 0, cq = 0;
+  int c[cSector + 1], i, j, sec, pls, kPls, cpls = 0, co = 0, cq = 0;
   real r, rT;
 
   for (i = 1; i <= cSector; i++) {
@@ -1343,7 +1398,8 @@ void ChartSector(void)
       "  Plus      House   Sign Loc. Ret. Latitude Velocity Sec.18 Sec.12\n");
   else
     PrintSz("Plus    House   Sign Ret. Latit. Veloc. 18 12\n");
-  for (i = 0; i <= cObj; i++) {
+  for (j = 0; j <= cObj; j++) {
+    i = rgobjList[j];
     if (FIgnore(i))
       continue;
     co++;
@@ -1393,7 +1449,7 @@ void ChartSector(void)
     PrintL();
   }
 
-  /* Display summary information, i.e. the planet in plus zone ratio. */
+  // Display summary information, i.e. the planet in plus zone ratio.
 
   AnsiColor(kDefault);
   sprintf(sz, "\nPlus zones: %d/%d = %.2f%% - ", cpls, cSector,
@@ -1401,8 +1457,8 @@ void ChartSector(void)
   sprintf(sz, "Planets in plus zones: %d/%d = %.2f%%\n", cq, co,
     co ? (real)cq/(real)co*100.0 : 0.0); PrintSz(sz);
 
-  /* Display more summary information, i.e. the number of planets in each */
-  /* sector, as well as whether each sector is a plus zone or not.        */
+  // Display more summary information, i.e. the number of planets in each
+  // sector, as well as whether each sector is a plus zone or not.
 
   PrintSz("\nZone:");
   for (i = 1; i <= cSector/2; i++) {
@@ -1434,7 +1490,7 @@ void ChartSector(void)
   }
   PrintL();
   CopyRgb(ignoreSav, ignore, sizeof(ignore));
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -1449,7 +1505,7 @@ void ChartAstroGraph(void)
   real planet1[objMax], planet2[objMax], mc[objMax], ic[objMax],
     asc[objMax], des[objMax], asc1[objMax], des1[objMax],
     lo = Lon, longm, w, x, y, z, ad, oa, am, od, dm;
-  int cCross = 0, tot = cObj, i, j, k, l, m, n;
+  int cCross = 0, tot, i, j, k, l, m, n;
 
   if (us.fLatitudeCross) {
     if ((c = (CrossInfo *)PAllocate(sizeof(CrossInfo),
@@ -1457,16 +1513,18 @@ void ChartAstroGraph(void)
       return;
   }
 
-  for (i = 0; i <= cObj; i++) if (!ignore[i] || i == oMC) {
+  tot = us.nStar ? cObj : oNorm;
+  for (i = 0; i <= tot; i++) if (!ignore[i] || i == oMC) {
     planet1[i] = Tropical(i == oMC ? is.MC : planet[i]);
-    planet2[i] = planetalt[i];             /* Calculate zenith location on */
-    EclToEqu(&planet1[i], &planet2[i]);    /* Earth of each object.        */
+    planet2[i] = planetalt[i];             // Calculate zenith location on
+    EclToEqu(&planet1[i], &planet2[i]);    // Earth of each object.
   }
 
-  /* Print header. */
+  // Print header.
 
   PrintSz("Object :");
-  for (i = 0; i <= cObj; i++)
+  for (j = 0; j <= tot; j++) {
+    i = rgobjList[j];
     if (!ignore[i] && FThing(i)) {
       AnsiColor(kObjA[i]);
       if (is.fSeconds) {
@@ -1475,6 +1533,7 @@ void ChartAstroGraph(void)
         sprintf(sz, " %.3s", szObjDisp[i]);
       PrintSz(sz);
     }
+  }
   AnsiColor(kDefault);
   PrintSz("\n------ :");
   for (i = 0; i <= tot; i++)
@@ -1484,12 +1543,13 @@ void ChartAstroGraph(void)
         PrintSz("#######");
     }
 
-  /* Print the longitude locations of the Midheaven lines. */
+  // Print the longitude locations of the Midheaven lines.
 
   PrintSz("\nMidheav: ");
   if (lo < 0.0)
     lo += rDegMax;
-  for (i = 0; i <= tot; i++)
+  for (j = 0; j <= tot; j++) {
+    i = rgobjList[j];
     if (!ignore[i] && FThing(i)) {
       AnsiColor(kObjA[i]);
       x = planet1[oMC]-planet1[i];
@@ -1508,12 +1568,14 @@ void ChartAstroGraph(void)
       }
       PrintSz(sz);
     }
+  }
   AnsiColor(kDefault);
 
-  /* The Nadir lines are just always 180 degrees away from the Midheaven. */
+  // The Nadir lines are just always 180 degrees away from the Midheaven.
 
   PrintSz("\nNadir  : ");
-  for (i = 0; i <= tot; i++)
+  for (j = 0; j <= tot; j++) {
+    i = rgobjList[j];
     if (!ignore[i] && FThing(i)) {
       AnsiColor(kObjA[i]);
       z = mc[i] + rDegHalf;
@@ -1527,12 +1589,14 @@ void ChartAstroGraph(void)
       }
       PrintSz(sz);
     }
+  }
   AnsiColor(kDefault);
 
-  /* Print the Zenith latitude locations. */
+  // Print the Zenith latitude locations.
 
   PrintSz("\nZenith : ");
-  for (i = 0; i <= tot; i++)
+  for (k = 0; k <= tot; k++) {
+    i = rgobjList[k];
     if (!ignore[i] && FThing(i)) {
       AnsiColor(kObjA[i]);
       y = planet2[i];
@@ -1546,94 +1610,99 @@ void ChartAstroGraph(void)
       PrintSz(sz);
       asc[i] = des[i] = asc1[i] = des1[i] = rLarge;
     }
+  }
   PrintL2();
 
-  /* Now print the locations of Ascendant and Descendant lines. Since these */
-  /* are curvy, we loop through the latitudes, and for each object at each  */
-  /* latitude, print the longitude location of the line in question.        */
+  // Now print the locations of Ascendant and Descendant lines. Since these
+  // are curvy, loop through the latitudes, and for each object at each
+  // latitude, print the longitude location of the line in question.
 
   longm = Mod(planet1[oMC] + lo);
   for (j = 89-(89 % us.nAstroGraphStep); j > -90; j -= us.nAstroGraphStep) {
     AnsiColor(kDefault);
     sprintf(sz, "Asc@%2d%c: ", j >= 0 ? j : -j, j < 0 ? 's' : 'n');
     PrintSz(sz);
-    for (i = 0; i <= tot; i++)
+    for (k = 0; k <= tot; k++) {
+      i = rgobjList[k];
       if (!ignore[i] && FThing(i)) {
-      AnsiColor(kObjA[i]);
-      ad = RTanD(planet2[i])*RTanD(j);
-      if (ad*ad > 1.0) {
-        PrintSz(" --");
-        if (is.fSeconds)
-          PrintSz("------ ");
-        PrintCh(' ');
-        asc1[i] = des1[i] = cp2.dir[i] = rLarge;
-      } else {
-        ad = RAsin(ad);
-        oa = planet1[i] - DFromR(ad);
-        if (oa < 0.0)
-          oa += rDegMax;
-        am = oa - rDegQuad;
-        if (am < 0.0)
-          am += rDegMax;
-        z = longm-am;
-        if (z < 0.0)
-          z += rDegMax;
-        if (z > rDegHalf)
-          z -= rDegMax;
-        asc1[i] = asc[i];
-        asc[i] = z;
-        cp2.dir[i] = ad;
-        if (is.fSeconds) {
-          sprintf(sz, "%s ", SzLocation(z, 0.0)); sz[11] = chNull;
-        } else
-          sprintf(sz, "%3.0f%c", RAbs(z), z < 0.0 ? 'e' : 'w');
-        PrintSz(sz);
+        AnsiColor(kObjA[i]);
+        ad = RTanD(planet2[i])*RTanD(j);
+        if (ad*ad > 1.0) {
+          PrintSz(" --");
+          if (is.fSeconds)
+            PrintSz("------ ");
+          PrintCh(' ');
+          asc1[i] = des1[i] = cp2.dir[i] = rLarge;
+        } else {
+          ad = RAsin(ad);
+          oa = planet1[i] - DFromR(ad);
+          if (oa < 0.0)
+            oa += rDegMax;
+          am = oa - rDegQuad;
+          if (am < 0.0)
+            am += rDegMax;
+          z = longm-am;
+          if (z < 0.0)
+            z += rDegMax;
+          if (z > rDegHalf)
+            z -= rDegMax;
+          asc1[i] = asc[i];
+          asc[i] = z;
+          cp2.dir[i] = ad;
+          if (is.fSeconds) {
+            sprintf(sz, "%s ", SzLocation(z, 0.0)); sz[11] = chNull;
+          } else
+            sprintf(sz, "%3.0f%c", RAbs(z), z < 0.0 ? 'e' : 'w');
+          PrintSz(sz);
+        }
       }
     }
 
-    /* Again, the Descendant position is related to the Ascendant's,  */
-    /* being a mirror image, so it can be calculated somewhat easier. */
+    // Again, the Descendant position is related to the Ascendant's, being a
+    // mirror image, so it can be calculated somewhat easier.
 
     AnsiColor(kDefault);
     sprintf(sz, "\nDsc@%2d%c: ", j >= 0 ? j : -j, j < 0 ? 's' : 'n');
     PrintSz(sz);
-    for (i = 0; i <= tot; i++)
+    for (k = 0; k <= tot; k++) {
+      i = rgobjList[k];
       if (!ignore[i] && FThing(i)) {
-      AnsiColor(kObjA[i]);
-      ad = cp2.dir[i];
-      if (ad == rLarge) {
-        PrintSz(" --");
-        if (is.fSeconds)
-          PrintSz("------ ");
-        PrintCh(' ');
-      } else {
-        od = planet1[i] + DFromR(ad);
-        dm = od + rDegQuad;
-        z = longm-dm;
-        if (z < 0.0)
-          z += rDegMax;
-        if (z > rDegHalf)
-          z -= rDegMax;
-        des1[i] = des[i];
-        des[i] = z;
-        if (is.fSeconds) {
-          sprintf(sz, "%s ", SzLocation(z, 0.0)); sz[11] = chNull;
-        } else
-          sprintf(sz, "%3.0f%c", RAbs(z), z < 0.0 ? 'e' : 'w');
-        PrintSz(sz);
+        AnsiColor(kObjA[i]);
+        ad = cp2.dir[i];
+        if (ad == rLarge) {
+          PrintSz(" --");
+          if (is.fSeconds)
+            PrintSz("------ ");
+          PrintCh(' ');
+        } else {
+          od = planet1[i] + DFromR(ad);
+          dm = od + rDegQuad;
+          z = longm-dm;
+          if (z < 0.0)
+            z += rDegMax;
+          if (z > rDegHalf)
+            z -= rDegMax;
+          des1[i] = des[i];
+          des[i] = z;
+          if (is.fSeconds) {
+            sprintf(sz, "%s ", SzLocation(z, 0.0)); sz[11] = chNull;
+          } else
+            sprintf(sz, "%3.0f%c", RAbs(z), z < 0.0 ? 'e' : 'w');
+          PrintSz(sz);
+        }
       }
     }
     PrintL();
 
-    /* Now, if the -L0 switch is in effect, then take these line positions, */
-    /* which we saved in an array above as we were printing them, and       */
-    /* calculate and print the latitude crossings.                          */
+    // Now, if the -L0 switch is in effect, then take these line positions,
+    // which were saved in an array above as they were printed, and calculate
+    // and print the latitude crossings.
 
     if (us.fLatitudeCross)
-      for (l = 0; l <= cObj; l++) {
+      for (l = 0; l <= tot; l++) {
         if (ignore[l] || !FThing(l))
           continue;
-        for (k = 0; k <= cObj; k++) {
+        for (k = 0; k <= tot; k++) {
           if (ignore[k] || !FThing(k))
             continue;
           for (n = 0; n <= 1; n++) {
@@ -1641,44 +1710,70 @@ void ChartAstroGraph(void)
             y = n ? des[l] : asc[l];
             for (m = 0; m <= 1; m++) {
 
-            /* Check if Ascendant/Descendant cross Midheaven/Nadir. */
-
-            z = m ? ic[k] : mc[k];
-            if (cCross < MAXCROSS &&
-              RAbs(x-y) < rDegHalf && RSgn(z-x) != RSgn(z-y)) {
-              c->obj1[cCross] = (n ? -(l+1) : l+1);
-              c->obj2[cCross] = (m ? -(k+1) : k+1);
-              c->lat[cCross] = (real)j+5.0*RAbs(z-y)/RAbs(x-y);
-              c->lon[cCross] = z;
-              cCross++;
-            }
+              // Check if Ascendant/Descendant cross Midheaven/Nadir.
 
-            /* Check if Ascendant/Descendant cross another Asc/Des. */
-
-            w = m ? des1[k] : asc1[k];
-            z = m ? des[k] : asc[k];
-            if (cCross < MAXCROSS && k > l &&
-              RAbs(x-y)+RAbs(w-z) < rDegHalf && RSgn(w-x) != RSgn(z-y) &&
-              !(k == oSou && l == oNod)) {
-              c->obj1[cCross] = (n ? -(l+1) : l+1);
-              c->obj2[cCross] = (m ? -(k+1) : k+1) + 200;
-              c->lat[cCross] = (real)j+5.0*
-                RAbs(y-z)/(RAbs(x-w)+RAbs(y-z));
-              c->lon[cCross] = Min(x, y)+RAbs(x-y)*
-                RAbs(y-z)/(RAbs(x-w)+RAbs(y-z));
-              cCross++;
-            }
-          }
-        }
-      }
-    }
+              z = m ? ic[k] : mc[k];
+              if (cCross < MAXCROSS &&
+                RAbs(x-y) < rDegHalf && RSgn(z-x) != RSgn(z-y)) {
+                c->obj1[cCross] = (n ? -(l+1) : l+1);
+                c->obj2[cCross] = (m ? -(k+1) : k+1);
+                c->lat[cCross] = (real)j+5.0*RAbs(z-y)/RAbs(x-y);
+                c->lon[cCross] = z;
+                cCross++;
+#ifdef EXPRESS
+                // Skip current crossing if AstroExpression says to do so.
+                if (!us.fExpOff && FSzSet(us.szExpCross)) {
+                  ExpSetR(iLetterU, c->lon[cCross-1]);
+                  ExpSetR(iLetterV, c->lat[cCross-1]);
+                  ExpSetN(iLetterW, l);
+                  ExpSetN(iLetterX, n ? oDes : oAsc);
+                  ExpSetN(iLetterY, k);
+                  ExpSetN(iLetterZ, m ? oNad : oMC);
+                  if (!NParseExpression(us.szExpCross))
+                    cCross--;
+                }
+#endif
+              }
+
+              // Check if Ascendant/Descendant cross another Asc/Des.
+
+              w = m ? des1[k] : asc1[k];
+              z = m ? des[k] : asc[k];
+              if (cCross < MAXCROSS && k > l &&
+                RAbs(x-y)+RAbs(w-z) < rDegHalf && RSgn(w-x) != RSgn(z-y) &&
+                !(k == oSou && l == oNod)) {
+                c->obj1[cCross] = (n ? -(l+1) : l+1);
+                c->obj2[cCross] = (m ? -(k+1) : k+1) + 200;
+                c->lat[cCross] = (real)j+5.0*
+                  RAbs(y-z)/(RAbs(x-w)+RAbs(y-z));
+                c->lon[cCross] = Min(x, y)+RAbs(x-y)*
+                  RAbs(y-z)/(RAbs(x-w)+RAbs(y-z));
+                cCross++;
+#ifdef EXPRESS
+                // Skip current crossing if AstroExpression says to do so.
+                if (!us.fExpOff && FSzSet(us.szExpCross)) {
+                  ExpSetR(iLetterU, c->lon[cCross-1]);
+                  ExpSetR(iLetterV, c->lat[cCross-1]);
+                  ExpSetN(iLetterW, l);
+                  ExpSetN(iLetterX, n ? oDes : oAsc);
+                  ExpSetN(iLetterY, k);
+                  ExpSetN(iLetterZ, m ? oDes : oAsc);
+                  if (!NParseExpression(us.szExpCross))
+                    cCross--;
+                }
+#endif
+              }
+            } // m
+          } // n
+        } // k
+      } // l
   }
   if (!us.fLatitudeCross)
     return;
   PrintL();
 
-  /* Now, print out all the latitude crossings found.  */
-  /* First, sort them in order of decreasing latitude. */
+  // Now, print out all the latitude crossings found.
+  // First, sort them in order of decreasing latitude.
 
   for (i = 1; i < cCross; i++) {
     j = i-1;
@@ -1725,6 +1820,7 @@ void ChartAstroGraph(void)
 void PrintChart(flag fProg)
 {
   int fCall = fFalse, nSav;
+  flag fHaveGrid = fFalse;
 
   if (us.fListing) {
     if (is.fMult)
@@ -1735,8 +1831,8 @@ void PrintChart(flag fProg)
       ChartListing();
     else
 
-      /* If the -rb or -rd relationship charts are in effect, then instead  */
-      /* of doing the standard -v chart, print either of these chart types. */
+      // If the -rb or -rd relationship charts are in effect, then instead of
+      // doing the standard -v chart, print either of these chart types.
 
       DisplayRelation();
     is.fMult = fTrue;
@@ -1757,18 +1853,18 @@ void PrintChart(flag fProg)
       us.fSmartCusp = fCall; us.objRequire = nSav;
       inv(fCall);
       ChartGrid();
-      if (us.fGridConfig) {    /* If -g0 switch in effect, then  */
-        PrintL();              /* display aspect configurations. */
+      if (us.fGridConfig) {    // If -g0 switch in effect, then
+        PrintL();              // display aspect configurations.
         if (!fCall) {
           nSav = us.objRequire; us.objRequire = -1;
           FCreateGrid(fFalse);
           us.objRequire = nSav;
         }
-        DisplayGrands();
+        DisplayAspectConfigs();
       }
     } else {
 
-      /* Do a relationship aspect grid between two charts if -r0 in effect. */
+      // Do a relationship aspect grid between two charts if -r0 in effect.
 
       fCall = us.fSmartCusp; us.fSmartCusp = fFalse;
       if (!FCreateGridRelation(us.fGridMidpoint))
@@ -1781,8 +1877,8 @@ void PrintChart(flag fProg)
   if (us.fAspList) {
     PrintHeader(is.fMult ? -1 : 1);
     if (us.nRel > rcDual) {
-      if (!fCall) {
-        fCall = fTrue;
+      if (!fHaveGrid) {
+        fHaveGrid = fTrue;
         if (!FCreateGrid(fFalse))
           return;
       }
@@ -1797,7 +1893,7 @@ void PrintChart(flag fProg)
   if (us.fMidpoint) {
     PrintHeader(is.fMult ? -1 : 1);
     if (us.nRel > rcDual) {
-      if (!fCall) {
+      if (!fHaveGrid) {
         if (!FCreateGrid(fFalse))
           return;
       }
@@ -1924,8 +2020,8 @@ void PrintChart(flag fProg)
   }
 #endif
 
-  if (!is.fMult) {          /* Assume the -v chart if user */
-    us.fListing = fTrue;    /* didn't indicate anything.   */
+  if (!is.fMult) {          // Assume the -v chart if user
+    us.fListing = fTrue;    // didn't indicate anything.
     PrintChart(fProg);
     is.fMult = fTrue;
   }
diff --git a/charts2.cpp b/charts2.cpp
index 789fb0c..a4224ea 100644
--- a/charts2.cpp
+++ b/charts2.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: charts2.cpp
+** Astrolog (Version 7.10) File: charts2.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -66,13 +66,13 @@
 void ChartListingRelation(void)
 {
   char sz[cchSzDef], szT[cchSzDef];
-  int cChart, i, j, k, n;
+  int cChart, i, j, k, l, n;
   real r, rT;
 
   cChart = 2 + (us.nRel == rcTriWheel || us.nRel == rcQuadWheel) +
     (us.nRel == rcQuadWheel);
 
-  /* Print header rows. */
+  // Print header rows.
   AnsiColor(kWhiteA);
   PrintTab(' ', 5);
   n = us.fSeconds ? 23 : 16;
@@ -108,8 +108,11 @@ void ChartListingRelation(void)
   PrintTab(' ', 3 + us.fSeconds);
   PrintSz("Delta\n");
 
-  /* Print object positions. */
-  for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
+  // Print object positions.
+  for (l = 0; l <= cObj; l++) {
+    i = rgobjList[l];
+    if (FIgnore(i))
+      continue;
     AnsiColor(kObjA[i]);
     sprintf(sz, "%-4.4s:", szObjDisp[i]); PrintSz(sz);
     for (j = 1; j <= cChart; j++) {
@@ -119,14 +122,14 @@ void ChartListingRelation(void)
       PrintAltitude(rgpcp[j]->alt[i]);
     }
 
-    /* Compute maximum offset between any two instances of this planet. */
+    // Compute maximum offset between any two instances of this planet.
     r = 0.0;
     for (j = 1; j <= cChart; j++)
       for (k = 1; k < j; k++) {
         if (!us.fAspect3D)
           rT = MinDistance(rgpcp[j]->obj[i], rgpcp[k]->obj[i]);
         else
-          rT = PolarDistance(rgpcp[j]->obj[i], rgpcp[j]->alt[i],
+          rT = SphDistance(rgpcp[j]->obj[i], rgpcp[j]->alt[i],
             rgpcp[k]->obj[i], rgpcp[k]->alt[i]);
         r = Max(r, rT);
       }
@@ -146,7 +149,7 @@ void ChartListingRelation(void)
 void ChartGridRelation(void)
 {
   char sz[cchSzDef];
-  int i, j, k, tot = cObj, temp;
+  int i0, j0, i, j, k, tot = cObj, temp;
 
 #ifdef INTERPRET
   if (us.fInterpret && !us.fGridMidpoint) {
@@ -155,22 +158,30 @@ void ChartGridRelation(void)
   }
 #endif
   PrintSz(" 2>");
-  for (temp = 0, i = 0; i <= cObj; i++) if (!ignore[i]) {
+  for (i0 = 0; i0 <= tot; i0++) {
+    i = rgobjList[i0];
+    if (ignore[i])
+      continue;
     PrintCh(chV);
     AnsiColor(kObjA[i]);
     sprintf(sz, "%.3s", szObjDisp[i]); PrintSz(sz);
     AnsiColor(kDefault);
-    temp++;
   }
   PrintSz("\n1  ");
-  for (i = 0; i <= tot; i++) if (!ignore[i]) {
+  for (i0 = 0; i0 <= tot; i0++) {
+    i = rgobjList[i0];
+    if (ignore[i])
+      continue;
     PrintCh(chV);
     AnsiColor(kSignA(SFromZ(cp2.obj[i])));
     sprintf(sz, "%2d%c", (int)cp2.obj[i] % 30, chDeg0); PrintSz(sz);
     AnsiColor(kDefault);
   }
   PrintSz("\nV  ");
-  for (i = 0; i <= tot; i++) if (!ignore[i]) {
+  for (i0 = 0; i0 <= tot; i0++) {
+    i = rgobjList[i0];
+    if (ignore[i])
+      continue;
     PrintCh(chV);
     temp = SFromZ(cp2.obj[i]);
     AnsiColor(kSignA(temp));
@@ -179,7 +190,10 @@ void ChartGridRelation(void)
   }
   if (us.fSeconds) {
     PrintSz("\n   ");
-    for (i = 0; i <= tot; i++) if (!ignore[i]) {
+    for (i0 = 0; i0 <= tot; i0++) {
+      i = rgobjList[i0];
+      if (ignore[i])
+        continue;
       PrintCh(chV);
       temp = SFromZ(cp2.obj[i]);
       AnsiColor(kSignA(temp));
@@ -188,7 +202,10 @@ void ChartGridRelation(void)
     }
   }
   PrintL();
-  for (j = 0; j <= cObj; j++) if (!ignore[j])
+  for (j0 = 0; j0 <= tot; j0++) {
+    j = rgobjList[j0];
+    if (ignore[j])
+      continue;
     for (k = 1; k <= 4 + us.fSeconds; k++) {
       if (k < 2)
         PrintTab(chH, 3);
@@ -208,7 +225,10 @@ void ChartGridRelation(void)
       }
       if (k > 1)
         AnsiColor(kDefault);
-      for (i = 0; i <= tot; i++) if (!ignore[i]) {
+      for (i0 = 0; i0 <= tot; i0++) {
+        i = rgobjList[i0];
+        if (ignore[i])
+          continue;
         PrintCh((char)(k < 2 ? chC : chV));
         temp = grid->n[i][j];
         if (k > 1) {
@@ -229,7 +249,7 @@ void ChartGridRelation(void)
             sprintf(sz, "%2d%c", grid->v[i][j]/3600, chDeg0); PrintSz(sz);
           } else
             if (grid->n[i][j]) {
-              if (grid->v[i][j] < 6000*60)
+              if (NAbs(grid->v[i][j]) < 6000*60)
                 sprintf(sz, "%c%2d", us.fAppSep ?
                   (grid->v[i][j] < 0 ? 'a' : 's') :
                   (grid->v[i][j] < 0 ? '-' : '+'), NAbs(grid->v[i][j])/3600);
@@ -252,6 +272,7 @@ void ChartGridRelation(void)
       }
       PrintL();
     }
+  }
 }
 
 
@@ -272,7 +293,7 @@ void ChartAspectRelation(void)
   loop {
     vhi = -nLarge;
 
-    /* Search for the next most powerful aspect in the aspect grid. */
+    // Search for the next most powerful aspect in the aspect grid.
 
     for (i = 0; i <= cObj; i++) if (!FIgnore(i))
       for (j = 0; j <= cObj; j++) if (!FIgnore(j))
@@ -283,12 +304,13 @@ void ChartAspectRelation(void)
             (1.0-RAbs((real)(grid->v[i][j]))/3600.0/GetOrb(i, j, k))*1000.0);
 #ifdef EXPRESS
           // Adjust power with AstroExpression if one set.
-          if (FSzSet(us.szExpAsplist)) {
+          if (FSzSet(us.szExpAspList)) {
             ExpSetN(iLetterW, i);
             ExpSetN(iLetterX, k);
             ExpSetN(iLetterY, j);
             ExpSetN(iLetterZ, p);
-            p = NParseExpression(us.szExpAsplist);
+            ParseExpression(us.szExpAspList);
+            p = NExpGet(iLetterZ);
           }
 #endif
           switch (us.nAspectSort) {
@@ -307,15 +329,15 @@ void ChartAspectRelation(void)
             vhi = v; ihi = i; jhi = j; ahi = k; phi = p;
           }
         }
-    if (vhi <= -nLarge)    /* Exit when no less powerful aspect found. */
+    if (vhi <= -nLarge)    // Exit when no less powerful aspect found.
       break;
     vcut = vhi; icut = ihi; jcut = jhi;
-    count++;                              /* Display the current aspect.   */
+    count++;                              // Display the current aspect.
     rPowSum += (real)phi/1000.0;
     ca[ahi]++;
     co[jhi]++; co[ihi]++;
 #ifdef INTERPRET
-    if (us.fInterpret) {                  /* Interpret it if -I in effect. */
+    if (us.fInterpret) {                  // Interpret it if -I in effect.
       InterpretAspectRelation(jhi, ihi);
       AnsiColor(kDefault);
       continue;
@@ -337,6 +359,14 @@ void ChartAspectRelation(void)
     AnsiColor(kDefault);
   }
 
+#ifdef EXPRESS
+  // Send summary to AstroExpression if one set.
+  if (!us.fExpOff && FSzSet(us.szExpAspSumm)) {
+    ExpSetN(iLetterY, count);
+    ExpSetR(iLetterZ, rPowSum);
+    ParseExpression(us.szExpAspSumm);
+  }
+#endif
   PrintAspectSummary(ca, co, count, rPowSum);
 }
 
@@ -351,12 +381,13 @@ void ChartMidpointRelation(void)
   char sz[cchSzDef];
   int mcut = -1, icut, jcut, mlo, ilo, jlo, m, i, j, count = 0;
   long lSpanSum = 0;
+  real mid, dist;
 
   ClearB((pbyte)cs, sizeof(cs));
   loop {
     mlo = 360*60*60;
 
-    /* Search for the next closest midpoint farther down in the zodiac. */
+    // Search for the next closest midpoint farther down in the zodiac.
 
     for (i = 0; i <= cObj; i++) if (!FIgnore(i))
       for (j = 0; j <= cObj; j++) if (!FIgnore(j)) {
@@ -366,24 +397,37 @@ void ChartMidpointRelation(void)
           ilo = i; jlo = j; mlo = m;
         }
       }
-    if (mlo >= 360*60*60) /* Exit when no midpoint farther in zodiac found. */
+    if (mlo >= 360*60*60)  // Exit when no midpoint farther in zodiac found.
       break;
     mcut = mlo; icut = ilo; jcut = jlo;
     if (us.objRequire >= 0 && ilo != us.objRequire && jlo != us.objRequire)
       continue;
-    count++;                               /* Display the current midpoint. */
+    mid  = Midpoint   (cp1.obj[ilo], cp2.obj[jlo]);
+    dist = MinDistance(cp1.obj[ilo], cp2.obj[jlo]);
+#ifdef EXPRESS
+    // Skip current midpoint if AstroExpression says to do so.
+    if (!us.fExpOff && FSzSet(us.szExpMid)) {
+      ExpSetN(iLetterW, ilo);
+      ExpSetN(iLetterX, jlo);
+      ExpSetR(iLetterY, mid);
+      ExpSetR(iLetterZ, dist);
+      if (!NParseExpression(us.szExpMid))
+        continue;
+    }
+#endif
+    count++;                               // Display the current midpoint.
     cs[mlo/(30*60*60)+1]++;
-    m = (int)(MinDistance(cp1.obj[ilo], cp2.obj[jlo])*3600.0);
+    m = (int)(dist*3600.0);
     lSpanSum += m;
 #ifdef INTERPRET
-    if (us.fInterpret) {                   /* Interpret it if -I in effect. */
+    if (us.fInterpret) {                   // Interpret it if -I in effect.
       InterpretMidpointRelation(ilo, jlo);
       AnsiColor(kDefault);
       continue;
     }
 #endif
     sprintf(sz, "%4d: ", count); PrintSz(sz);
-    PrintZodiac((real)mlo/3600.0);
+    PrintZodiac(mid);
     PrintCh(' ');
     PrintAspect(ilo, cp1.obj[ilo], (int)RSgn(cp1.dir[ilo]), 0,
       jlo, cp2.obj[jlo], (int)RSgn(cp2.dir[jlo]), 'M');
@@ -411,7 +455,7 @@ void CastRelation(void)
   real ratio, t1, t2, t, rSav;
   flag fSav;
 
-  /* Cast the first chart. */
+  // Cast the first chart.
 
   ciCore = ciMain;
   if (us.nRel == rcProgress) {
@@ -425,11 +469,11 @@ void CastRelation(void)
   FProcessCommandLine(szWheel[1]);
   if (FNoTimeOrSpace(ciCore))
     cp0 = cp1;
-  t1 = CastChart(fTrue);
+  t1 = CastChart(1);
   cp1 = cp0;
   rSav = is.MC;
 
-  /* Cast the second chart. */
+  // Cast the second chart.
 
   ciCore = ciTwin;
   if (us.nRel == rcTransit) {
@@ -445,7 +489,7 @@ void CastRelation(void)
   FProcessCommandLine(szWheel[2]);
   if (FNoTimeOrSpace(ciCore))
     cp0 = cp2;
-  t2 = CastChart(fTrue);
+  t2 = CastChart(2);
   if (us.nRel == rcTransit) {
     for (i = 0; i <= cObj; i++)
       ignore[i] = ignoreT[i];
@@ -453,21 +497,21 @@ void CastRelation(void)
     us.fProgress = fSav;
   cp2 = cp0;
 
-  /* Cast the third and fourth charts. */
+  // Cast the third and fourth charts.
 
   if (us.nRel == rcTriWheel || us.nRel == rcQuadWheel) {
     ciCore = ciThre;
     FProcessCommandLine(szWheel[3]);
     if (FNoTimeOrSpace(ciCore))
       cp0 = cp3;
-    CastChart(fTrue);
+    CastChart(3);
     cp3 = cp0;
     if (us.nRel == rcQuadWheel) {
       ciCore = ciFour;
       FProcessCommandLine(szWheel[4]);
       if (FNoTimeOrSpace(ciCore))
         cp0 = cp4;
-      CastChart(fTrue);
+      CastChart(4);
       cp4 = cp0;
     }
   }
@@ -475,16 +519,16 @@ void CastRelation(void)
   FProcessCommandLine(szWheel[0]);
   is.MC = rSav;
 
-  /* Now combine the two charts based on what relation we are doing.   */
-  /* For the standard -r synastry chart, use the house cusps of chart1 */
-  /* and the planet positions of chart2.                               */
+  // Now combine the two charts based on what relation we are doing.
+  // For the standard -r synastry chart, use the house cusps of chart1
+  // and the planet positions of chart2.
 
   ratio = (real)us.nRatio1 / ((real)(us.nRatio1 + us.nRatio2));
   if (us.nRel <= rcSynastry) {
     for (i = 1; i <= cSign; i++)
       chouse[i] = cp1.cusp[i];
 
-  /* For the -rc composite chart, take the midpoints of the planets/houses. */
+  // For the -rc composite chart, take the midpoints of the planets/houses.
 
   } else if (us.nRel == rcComposite) {
     for (i = 0; i <= cObj; i++) {
@@ -500,8 +544,8 @@ void CastRelation(void)
         chouse[i] = Mod(chouse[i] + rDegMax*ratio);
     }
 
-    /* Make sure we don't have any 180 degree errors in house cusp    */
-    /* complement pairs, which may happen if the cusps are far apart. */
+    // Make sure don't have any 180 degree errors in house cusp complement
+    // pairs, which may happen if the cusps are far apart.
 
     j = us.fPolarAsc ? sAri : sCap;
     for (i = 1; i <= cSign; i++)
@@ -511,8 +555,8 @@ void CastRelation(void)
       if (RAbs(MinDistance(chouse[i], planet[oAsc - 1 + i])) > rDegQuad)
         planet[oAsc - 1 + i] = Mod(planet[oAsc - 1 + i]+rDegHalf);
 
-  /* For the -rm time space midpoint chart, calculate the midpoint time and */
-  /* place between the two charts and then recast for the new chart info.   */
+  // For the -rm time space midpoint chart, calculate the midpoint time and
+  // place between the two charts and then recast for the new chart info.
 
   } else if (us.nRel == rcMidpoint) {
     is.T = Ratio(t1, t2, ratio);
@@ -530,13 +574,13 @@ void CastRelation(void)
       OO = Mod(OO+rDegMax*ratio);
     AA = Ratio(Lat, ciTwin.lat, ratio);
     ciMain = ciCore;
-    CastChart(fTrue);
+    CastChart(0);
 #ifndef WIN
-    us.nRel = rcNone;  /* Turn off so don't move to midpoint again. */
+    us.nRel = rcNone;  // Turn off so don't move to midpoint again.
 #endif
 
-  /* There are a couple of non-astrological charts, which only require the */
-  /* number of days that have passed between the two charts to be done.    */
+  // There are a couple of non-astrological charts, which only require the
+  // number of days that have passed between the two charts to be done.
 
   } else {
     is.JD = RAbs(t2-t1)*36525.0;
@@ -564,7 +608,7 @@ void PrintInDayEvent(int source, int aspect, int dest, int nVoid)
   int nEclipse;
   real rPct;
 
-  /* If the Sun changes sign, then print out if this is a season change. */
+  // If the Sun changes sign, then print out if this is a season change.
   if (aspect == aSig) {
     if (source == oSun) {
       AnsiColor(kWhiteA);
@@ -581,7 +625,7 @@ void PrintInDayEvent(int source, int aspect, int dest, int nVoid)
       }
     }
 
-  /* Print if the present aspect is a New, Full, or Half Moon. */
+  // Print if the present aspect is a New, Full, or Half Moon.
   } else if (aspect > 0) {
     if (source == oSun && dest == oMoo && !us.fParallel) {
       if (aspect <= aSqu)
@@ -590,7 +634,7 @@ void PrintInDayEvent(int source, int aspect, int dest, int nVoid)
         PrintSz(" (New Moon)");
       else if (aspect == aOpp) {
         PrintSz(" (Full Moon)");
-        /* Full Moons may be a lunar eclipse. */
+        // Full Moons may be a lunar eclipse.
         if (us.fEclipse && us.objCenter == oEar) {
           nEclipse = NCheckEclipseLunar(&rPct);
           if (nEclipse > etNone) {
@@ -606,7 +650,7 @@ void PrintInDayEvent(int source, int aspect, int dest, int nVoid)
       } else if (aspect == aSqu)
         PrintSz(" (Half Moon)");
     }
-    /* Conjunctions may be a solar eclipse or other occultation. */
+    // Conjunctions may be a solar eclipse or other occultation.
     if (us.fEclipse && aspect == aCon && !us.fParallel) {
       nEclipse = NCheckEclipse(source, dest, &rPct);
       if (nEclipse > etNone) {
@@ -622,7 +666,7 @@ void PrintInDayEvent(int source, int aspect, int dest, int nVoid)
     }
   }
 
-  /* Print if the present aspect is the Moon going void of course. */
+  // Print if the present aspect is the Moon going void of course.
   if (nVoid >= 0) {
     AnsiColor(kDefault);
     sprintf(sz, " (v/c %d:%02d", nVoid / 3600, nVoid / 60 % 60); PrintSz(sz);
@@ -679,15 +723,15 @@ void PrintAspect(int obj1, real pos1, int ret1, int asp,
   PrintCh(' ');
 
   if (asp == aSig || asp == aHou)
-    sprintf(sz, "-->");                        /* Print a sign change. */
+    sprintf(sz, "-->");                        // Print a sign change.
   else if (asp == aDir)
-    sprintf(sz, "S/%c", obj2 ? chRet : 'D');   /* Print a direction change. */
+    sprintf(sz, "S/%c", obj2 ? chRet : 'D');   // Print a direction change.
   else if (asp == aDeg)
-    sprintf(sz, "At:");                        /* Print a degree change. */
+    sprintf(sz, "At:");                        // Print a degree change.
   else if (asp == 0)
     sprintf(sz, chart == 'm' ? "&" : "with");
   else
-    sprintf(sz, "%s", SzAspectAbbrev(asp));    /* Print an aspect. */
+    sprintf(sz, "%s", SzAspectAbbrev(asp));    // Print an aspect.
   PrintSz(sz);
   if (asp != aDir)
     PrintCh(' ');
@@ -747,14 +791,14 @@ void ChartInDayInfluence(void)
   ClearB((pbyte)ca, sizeof(ca));
   ClearB((pbyte)co, sizeof(co));
 
-  /* Go compute the aspects in the chart. */
+  // Go compute the aspects in the chart.
 
   i = us.fAppSep;
-  us.fAppSep = fTrue;     /* We always want applying vs. separating orbs. */
+  us.fAppSep = fTrue;     // Always want applying vs. separating orbs.
   FCreateGrid(fFalse);
   us.fAppSep = i;
 
-  /* Search through the grid and build up the list of aspects. */
+  // Search through the grid and build up the list of aspects.
 
   for (j = 1; j <= cObj; j++) {
     if (FIgnore(j))
@@ -773,7 +817,7 @@ void ChartInDayInfluence(void)
     }
   }
 
-  /* Sort aspects by order of influence. */
+  // Sort aspects by order of influence.
 
   for (i = 1; i < occurcount; i++) {
     j = i-1;
@@ -806,7 +850,7 @@ void ChartInDayInfluence(void)
     }
   }
 
-  /* Now display each aspect line. */
+  // Now display each aspect line.
 
   for (i = 0; i < occurcount; i++) {
     sprintf(sz, "%3d: ", i+1); PrintSz(sz);
@@ -842,12 +886,12 @@ void ChartTransitInfluence(flag fProg)
   byte ignore3[objMax];
   char sz[cchSzDef];
   int occurcount = 0, fProgress = us.fProgress, i, j, k, l, m;
-  flag f;
+  flag fSav, f;
 
   ClearB((pbyte)ca, sizeof(ca));
   ClearB((pbyte)co, sizeof(co));
 
-  /* Cast the natal and transiting charts as with a relationship chart. */
+  // Cast the natal and transiting charts as with a relationship chart.
 
   cp1 = cp0;
   for (i = 0; i <= cObj; i++) {
@@ -859,18 +903,18 @@ void ChartTransitInfluence(flag fProg)
     is.JDp = MdytszToJulian(MM, DD, YY, TT, SS, ZZ);
     ciCore = ciMain;
   }
-  CastChart(fTrue);
+  CastChart(0);
   cp2 = cp0;
   for (i = 0; i <= cObj; i++) {
     ignore[i] = ignore3[i];
   }
 
-  /* Do a relationship aspect grid to get the transits. We have to make and */
-  /* restore three changes to get it right for this chart. (1) We make the  */
-  /* natal planets have zero velocity so applying vs. separating is only a  */
-  /* function of the transiter. (2) We force applying vs. separating orbs   */
-  /* regardless if -ga or -ma is in effect or not. (3) Finally we tweak the */
-  /* main restrictions to allow for transiting objects not restricted.      */
+  // Do a relationship aspect grid to get the transits. Have to make and
+  // restore three changes to get it right for this chart: (1) Make the natal
+  // planets have zero velocity so applying vs. separating is only a function
+  // of the transiter. (2) Force applying vs. separating orbs regardless if
+  // -ga or -ma is in effect or not. (3) Finally tweak the main restrictions
+  // to allow for transiting objects not restricted.
 
   for (i = 0; i <= cObj; i++) {
     ret[i] = cp1.dir[i];
@@ -878,15 +922,17 @@ void ChartTransitInfluence(flag fProg)
     ignore3[i] = ignore[i];
     ignore[i] = ignore[i] && ignore2[i];
   }
-  i = us.fAppSep; us.fAppSep = fTrue;
-  FCreateGridRelation(fFalse);
-  us.fAppSep = i;
+  fSav = us.fAppSep; us.fAppSep = fTrue;
+  f = FCreateGridRelation(fFalse);
+  us.fAppSep = fSav;
   for (i = 0; i <= cObj; i++) {
     cp1.dir[i] = ret[i];
     ignore[i] = ignore3[i];
   }
+  if (!f)
+    return;
 
-  /* Loop through the grid, and build up a list of the valid transits. */
+  // Loop through the grid, and build up a list of the valid transits.
 
   for (i = 0; i <= cObj; i++) {
     if (FIgnore2(i))
@@ -906,7 +952,7 @@ void ChartTransitInfluence(flag fProg)
     }
   }
 
-  /* After all transits located, sort them by their total power. */
+  // After all transits located, sort them by their total power.
 
   for (i = 1; i < occurcount; i++) {
     j = i-1;
@@ -939,7 +985,7 @@ void ChartTransitInfluence(flag fProg)
     }
   }
 
-  /* Now loop through list and display each transit in effect at the time. */
+  // Now loop through list and display each transit in effect at the time.
 
   for (i = 0; i < occurcount; i++) {
     k = aspect[i];
@@ -957,7 +1003,7 @@ void ChartTransitInfluence(flag fProg)
     }
     AnsiColor(kDkGreenA);
     sprintf(sz, " - power:%6.2f", power[i]); PrintSz(sz);
-    if (k == aCon && l == dest[i]) {    /* Print a small "R" for returns. */
+    if (k == aCon && l == dest[i]) {    // Print a "R" to mark returns.
       AnsiColor(kWhiteA);
       PrintSz(" R");
       if (is.fSeconds)
@@ -976,7 +1022,7 @@ void ChartTransitInfluence(flag fProg)
   PrintAspectSummary(ca, co, occurcount, rPowSum);
   us.fProgress = fProgress;
   ciCore = ciMain;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -1060,7 +1106,7 @@ void ChartCalendarYear(void)
   int r, w, c, m, d, dy, p[3], l[3], n[3];
 
   dy = DayOfWeek(1, 1, Yea);
-  for (r = 0; r < 4; r++) {     /* Loop over one set of three months */
+  for (r = 0; r < 4; r++) {     // Loop over one set of three months.
     AnsiColor(kWhiteA);
     for (c = 0; c < 3; c++) {
       m = r*3+c+1;
@@ -1084,8 +1130,8 @@ void ChartCalendarYear(void)
       n[c] = 0;
       dy += DaysInMonth(m, Yea);
     }
-    for (w = 0; w < cWeek-1; w++) {    /* Loop over one set of week rows */
-      for (c = 0; c < 3; c++) {        /* Loop over one week in a month  */
+    for (w = 0; w < cWeek-1; w++) {    // Loop over one set of week rows.
+      for (c = 0; c < 3; c++) {        // Loop over one week in a month.
         m = r*3+c+1;
         d = 0;
         if (w == 0)
@@ -1143,8 +1189,8 @@ void DisplayRelation(void)
   int j;
 #endif
 
-  /* If we are calculating the difference between two dates, then display */
-  /* the value and return, as with the -rd switch.                        */
+  // If calculating the difference between two dates, then display the value
+  // and return, as with the -rd switch.
 
   if (us.nRel == rcDifference) {
     PrintSz("Differences between the dates in the two charts:\n");
@@ -1166,7 +1212,7 @@ void DisplayRelation(void)
       case 8: sprintf(sz, "Longitude: %.2f", k);                 break;
       case 9: sprintf(sz, "Latitude : %.2f", l);                 break;
       case 10:
-        l = PolarDistance(ciMain.lon, ciMain.lat, ciTwin.lon, ciTwin.lat);
+        l = SphDistance(ciMain.lon, ciMain.lat, ciTwin.lon, ciTwin.lat);
         sprintf(sz, "Distance : %.2f (%.2f %s)", l, l / 360.0 *
           (us.fEuroDist ? 40075.0 : 24901.0), us.fEuroDist ? "km" : "miles");
         break;
@@ -1179,9 +1225,9 @@ void DisplayRelation(void)
   }
 
 #ifdef BIORHYTHM
-  /* If we are doing a biorhythm (-rb switch), then we'll calculate it for */
-  /* someone born on the older date, at the time of the younger date. Loop */
-  /* through the week preceeding and following the date in question.       */
+  // If doing a biorhythm (-rb switch), then calculate it for someone born on
+  // the older date, at the time of the younger date. Loop through the days
+  // preceeding and following the date in question.
 
   is.JD = RFloor(is.JD + rRound);
   for (is.JD -= (real)(us.nBioday/2), i = -us.nBioday/2; i <= us.nBioday/2;
@@ -1203,12 +1249,12 @@ void DisplayRelation(void)
       }
       AnsiColor(i ? kDefault : kWhiteA);
 
-      /* The biorhythm calculation is below. */
+      // The biorhythm calculation is below.
 
       l = RBiorhythm(is.JD, k);
       sprintf(sz, " at %c%3.0f%%", l < 0.0 ? '-' : '+', RAbs(l)); PrintSz(sz);
 
-      /* Print smiley face, medium face, or sad face based on current cycle. */
+      // Print smiley face, medium face, or sad face based on current cycle.
 
       AnsiColor(kDkGreenA);
       sprintf(sz, " :%c", l > 50.0 ? ')' : (l < -50.0 ? '(' : '|'));
diff --git a/charts3.cpp b/charts3.cpp
index 8d8da02..b94c86d 100644
--- a/charts3.cpp
+++ b/charts3.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: charts3.cpp
+** Astrolog (Version 7.10) File: charts3.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -73,9 +73,9 @@ void PrintInDays(InDayInfo *pid, int occurcount, int counttotal, flag fProg)
 
   for (i = 0; i < occurcount; i++) {
 
-    /* Detect whether this aspect indicates the Moon going void of course, */
-    /* and if so how long the Moon is v/c before entering next sign. This  */
-    /* requires the sign event to be in the same list as the Moon aspect.  */
+    // Detect whether this aspect indicates the Moon going void of course, and
+    // if so how long the Moon is v/c before entering next sign. This requires
+    // the sign change event to be in the same list as the Moon aspect.
     nVoid = -1;
     if (pid[i].aspect > 0 && (pid[i].source == oMoo || pid[i].dest == oMoo)) {
       for (j = i+1; j < counttotal; j++) {
@@ -93,7 +93,7 @@ void PrintInDays(InDayInfo *pid, int occurcount, int counttotal, flag fProg)
       }
     }
 
-    /* Display the current transit event. */
+    // Display the current transit event.
     s1 = (int)pid[i].time/60;
     s2 = (int)pid[i].time-s1*60;
     s3 = us.fSeconds ? (int)(pid[i].time*60.0)-((s1*60+s2)*60) : -1;
@@ -102,10 +102,10 @@ void PrintInDays(InDayInfo *pid, int occurcount, int counttotal, flag fProg)
     if ((!us.fExpOff && FSzSet(us.szExpDay)) || (us.fEclipse &&
       !us.fParallel && (pid[i].aspect == aCon || pid[i].aspect == aOpp))) {
       ciCore = ciSave;
-      CastChart(fTrue);
+      CastChart(-1);
     }
 #ifdef EXPRESS
-    /* May want to skip current event if AstroExpression says to do so. */
+    // May want to skip current event if AstroExpression says to do so.
     if (!us.fExpOff && FSzSet(us.szExpDay)) {
       nEclipse = etUndefined; rEclipse = 0.0;
       if (us.fEclipse && !us.fParallel) {
@@ -115,13 +115,9 @@ void PrintInDays(InDayInfo *pid, int occurcount, int counttotal, flag fProg)
           pid[i].aspect == aOpp && us.objCenter == oEar)
           nEclipse = NCheckEclipseLunar(&rEclipse);
       }
-      ExpSetN(iLetterQ, pid[i].source);
-      ExpSetR(iLetterR, pid[i].pos1);
-      ExpSetN(iLetterS, pid[i].ret1);
-      ExpSetN(iLetterT, pid[i].aspect);
-      ExpSetN(iLetterU, pid[i].dest);
-      ExpSetR(iLetterV, pid[i].pos2);
-      ExpSetN(iLetterW, pid[i].ret2);
+      ExpSetN(iLetterU, pid[i].source);
+      ExpSetN(iLetterV, pid[i].aspect);
+      ExpSetN(iLetterW, pid[i].dest);
       ExpSetN(iLetterX, nVoid);
       ExpSetN(iLetterY, nEclipse);
       ExpSetR(iLetterZ, rEclipse);
@@ -130,7 +126,7 @@ void PrintInDays(InDayInfo *pid, int occurcount, int counttotal, flag fProg)
     }
 #endif
 #ifdef GRAPH
-    /* May want to draw current event within a graphic calendar box. */
+    // May want to draw current event within a graphic calendar box.
     if (gi.rgzCalendar) {
       for (j = i; j >= 0 && pid[j].day == pid[i].day; j--)
         ;
@@ -169,7 +165,7 @@ void ChartInDaySearch(flag fProg)
   real divsiz, d1, d2, e1, e2, f1, f2, g;
   flag fYear, fVoid, fPrint = fTrue;
 
-  /* If parameter 'fProg' is set, look for changes in a progressed chart. */
+  // If parameter 'fProg' is set, look for changes in a progressed chart.
 
 #ifdef GRAPH
   fPrint &= (gi.rgzCalendar == NULL);
@@ -180,7 +176,7 @@ void ChartInDaySearch(flag fProg)
   divsiz = 24.0 / (real)division*60.0;
   divSign = cSign * us.nSignDiv;
 
-  /* If -dY in effect, then search through a range of years. */
+  // If -dY in effect, then search through a range of years.
 
   yea1 = yea2 = !fProg ? Yea : YeaT;
   if (fYear && us.nEphemYears != 0) {
@@ -191,14 +187,14 @@ void ChartInDaySearch(flag fProg)
   }
   for (yea0 = yea1; yea0 <= yea2; yea0++) {
 
-  /* If -dy in effect, then search through the whole year, month by month. */
+  // If -dy in effect, then search through the whole year, month by month.
 
   if (fYear) {
     mon1 = 1; mon2 = 12;
   } else
     mon1 = mon2 = !fProg ? Mon : MonT;
 
-  /* Start searching the month or months in question for exciting events. */
+  // Start searching the month or months in question for exciting events.
 
   for (mon0 = mon1; mon0 <= mon2; mon0++) {
     if (us.fInDayMonth) {
@@ -207,29 +203,29 @@ void ChartInDaySearch(flag fProg)
     } else
       day1 = day2 = !fProg ? Day : DayT;
 
-  /* Start searching the day or days in question for exciting events. */
+  // Start searching the day or days in question for exciting events.
 
   for (day0 = day1; day0 <= day2; day0 = AddDay(mon0, day0, yea0, 1)) {
     occurcount = 0;
     maxinday = MAXINDAY - (int)(pid - id);
 
-    /* Cast chart for beginning of day and store it for future use. */
+    // Cast chart for beginning of day and store it for future use.
 
     SetCI(ciCore, mon0, day0, yea0, 0.0, Dst, Zon, Lon, Lat);
     if (us.fProgress = fProg) {
       is.JDp = MdytszToJulian(mon0, day0, yea0, 0.0, Dst, Zon);
       ciCore = ciMain;
     }
-    CastChart(fTrue);
+    CastChart(-1);
     cp2 = cp0;
 
-    /* Now divide the day into segments and search each segment in turn. */
-    /* More segments is slower, but has slightly better time accuracy.   */
+    // Now divide the day into segments and search each segment in turn.
+    // More segments is slower, but has slightly better time accuracy.
 
     for (div = 1; div <= division; div++) {
 
-      /* Cast the chart for the ending time of the present segment. The   */
-      /* beginning time chart is copied from the previous end time chart. */
+      // Cast the chart for the ending time of the present segment. The
+      // beginning time chart is copied from the previous end time chart.
 
       SetCI(ciCore, mon0, day0, yea0,
         24.0*(real)div/(real)division, Dst, Zon, Lon, Lat);
@@ -237,17 +233,17 @@ void ChartInDaySearch(flag fProg)
         is.JDp = MdytszToJulian(mon0, day0, yea0, TT, Dst, Zon);
         ciCore = ciMain;
       }
-      CastChart(fTrue);
+      CastChart(-1);
       cp1 = cp2; cp2 = cp0;
 
-      /* Now search through the present segment for anything exciting. */
+      // Now search through the present segment for anything exciting.
 
       for (i = 0; i <= cObj; i++)
         if (!FIgnore(i) && (fProg || us.fGraphAll || FThing(i))) {
         s1 = SFromZ(cp1.obj[i])-1;
         s2 = SFromZ(cp2.obj[i])-1;
 
-        /* Does the current planet change into the next or previous sign? */
+        // Does the current planet change into the next or previous sign?
 
         if (!us.fIgnoreSign && FAllow(i) && occurcount < maxinday) {
           l = NAbs(s1-s2);
@@ -266,7 +262,7 @@ void ChartInDaySearch(flag fProg)
             pid[occurcount].yea = yea0;
             occurcount++;
 
-          /* Does the current planet change into next or previous degree? */
+          // Does the current planet change into next or previous degree?
 
           } else if (us.nSignDiv > 1) {
             j = (int)(cp1.obj[i] / (rDegMax / (real)divSign));
@@ -292,7 +288,7 @@ void ChartInDaySearch(flag fProg)
           }
         }
 
-        /* Does the current planet go retrograde or direct? */
+        // Does the current planet go retrograde or direct?
 
         if (!us.fIgnoreDir && (cp1.dir[i] < 0.0) != (cp2.dir[i] < 0.0) &&
           FAllow(i) && occurcount < maxinday) {
@@ -310,7 +306,7 @@ void ChartInDaySearch(flag fProg)
           occurcount++;
         }
 
-        /* Now search for anything making an aspect to the current planet. */
+        // Now search for anything making an aspect to the current planet.
 
         for (j = i+1; j <= cObj; j++)
           if (!FIgnore(j) && (fProg || us.fGraphAll || FThing(j)))
@@ -324,9 +320,9 @@ void ChartInDaySearch(flag fProg)
               SwapR(&d2, &e2);
             }
 
-            /* We are searching each aspect in turn. Let's subtract the  */
-            /* size of the aspect from the angular difference, so we can */
-            /* then treat it like a conjunction.                         */
+            // Search each potential aspect in turn. First subtract the size
+            // of the aspect from the angular difference, so can then treat it
+            // like a conjunction.
 
             if (MinDistance(e1, Mod(d1-rAspAngle[k])) <
                 MinDistance(e2, Mod(d2+rAspAngle[k]))) {
@@ -337,9 +333,9 @@ void ChartInDaySearch(flag fProg)
               e2 = Mod(e2-rAspAngle[k]);
             }
 
-            /* Check to see if the aspect actually occurs during our    */
-            /* segment, making sure we take into account if one or both */
-            /* planets are retrograde or if they cross the Aries point. */
+            // Check to see if the aspect actually occurs during this segment,
+            // making sure to take into account if one or both planets are
+            // retrograde or if they cross the Aries point.
 
             f1 = e1-d1;
             if (RAbs(f1) > rDegHalf)
@@ -356,9 +352,9 @@ void ChartInDaySearch(flag fProg)
               pid[occurcount].day = day0;
               pid[occurcount].yea = yea0;
 
-              /* Horray! The aspect occurs sometime during the interval.   */
-              /* Now we just have to solve an equation in two variables to */
-              /* find out where the "lines" cross, i.e. the aspect's time. */
+              // Horray! The aspect occurs sometime during the interval. Now
+              // just have to solve an equation in two variables to find out
+              // where their "lines" of motion cross, i.e. the aspect's time.
 
               f1 = d2-d1;
               if (RAbs(f1) > rDegHalf)
@@ -397,17 +393,16 @@ void ChartInDaySearch(flag fProg)
             g = cp1.obj[j]; EclToEqu(&g, &e1);
             g = cp2.obj[j]; EclToEqu(&g, &e2);
 
-            /* We are searching each aspect in turn. Negate the sign of the */
-            /* aspect if needed, so we can then treat it like a parallel.   */
+            // Search each potential aspect in turn. Negate the sign of the
+            // aspect if needed, so can then treat it like a parallel.
 
             if (k == aOpp) {
               neg(e1);
               neg(e2);
             }
 
-            /* Check to see if the aspect actually occurs during our    */
-            /* segment, making sure we take into account if one or both */
-            /* planets are retrograde.                                  */
+            // Check if the aspect actually occurs during this segment, making
+            // sure to take into account if one or both planets are retrograde.
 
             f1 = e1-d1;
             f2 = e2-d2;
@@ -419,9 +414,9 @@ void ChartInDaySearch(flag fProg)
               pid[occurcount].day = day0;
               pid[occurcount].yea = yea0;
 
-              /* Horray! The aspect occurs sometime during the interval.   */
-              /* Now we just have to solve an equation in two variables to */
-              /* find out where the "lines" cross, i.e. the aspect's time. */
+              // Horray! The aspect occurs sometime during the interval. Now
+              // just have to solve an equation in two variables to find out
+              // where their "lines" of motion cross, i.e. the aspect's time.
 
               f1 = d2-d1;
               f2 = e2-e1;
@@ -442,12 +437,12 @@ void ChartInDaySearch(flag fProg)
               occurcount++;
             }
           }
-          } /* us.fParallel */
-      } /* i */
-    } /* div */
+          } // us.fParallel
+      } // i
+    } // div
 
-    /* After all the aspects, etc, in the day have been located, sort   */
-    /* them by time at which they occur, so we can print them in order. */
+    // After all the aspects and evemts in the day have been located, sort
+    // them by time at which they occur, so can print them in order.
 
     for (i = 1; i < occurcount; i++) {
       j = i-1;
@@ -457,7 +452,7 @@ void ChartInDaySearch(flag fProg)
       }
     }
 
-    /* Finally, loop through and display each aspect and when it occurs. */
+    // Finally, loop through and display each aspect and when it occurs.
 
     if (!fVoid || (day0 >= day2 && mon0 >= mon2 && yea0 >= yea2)) {
       if (fVoid) {
@@ -471,7 +466,7 @@ void ChartInDaySearch(flag fProg)
       if (pid - id > j << 1) {
 #ifdef GRAPH
         if (gi.rgzCalendar != NULL && id[j].day != id[0].day) {
-          /* Don't split day when drawing within calendar boxes. */
+          // Don't split day when drawing within calendar boxes.
           while (j > 0 && id[j].day == id[j-1].day)
             j--;
         }
@@ -485,16 +480,16 @@ void ChartInDaySearch(flag fProg)
     if (occurcount >= maxinday && fPrint)
       PrintSz("Too many transit events found.\n");
     counttotal += occurcount;
-  } /* day0 */
-  } /* mon0 */
-  } /* yea0 */
+  } // day0
+  } // mon0
+  } // yea0
   if (counttotal == 0 && fPrint)
     PrintSz("No transit events found.\n");
 
-  /* Recompute original chart placements as we've overwritten them. */
+  // Recompute original chart placements as have overwritten them.
 
   ciCore = ciMain;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -516,7 +511,7 @@ void ChartTransitSearch(flag fProg)
   CP cpT = cp0;
   CI ciT;
 
-  /* Save away natal chart and initialize things. */
+  // Save away natal chart and initialize things.
 
   ciT = ciTran;
   if (fProg)
@@ -545,17 +540,17 @@ void ChartTransitSearch(flag fProg)
     }
   }
 
-  /* Start searching the year or years in question for any transits. */
+  // Start searching the year or years in question for any transits.
 
   for (YeaT = Y1; YeaT <= Y2; YeaT++)
 
-  /* Start searching the month or months in question for any transits. */
+  // Start searching the month or months in question for any transits.
 
   for (MonT = M1; MonT <= M2; MonT++) {
     daysiz = (real)(us.fInDayMonth ? DayInMonth(MonT, YeaT) : 1)*24.0*60.0;
     divsiz = daysiz / (real)division;
 
-    /* Cast chart for beginning of month and store it for future use. */
+    // Cast chart for beginning of month and store it for future use.
 
     SetCI(ciCore, MonT, us.fInDayMonth ? 1 : DayT, YeaT, 0.0, DstT, ZonT,
       LonT, LatT);
@@ -565,18 +560,18 @@ void ChartTransitSearch(flag fProg)
     }
     for (i = 0; i <= oNorm; i++)
       SwapN(ignore[i], ignore2[i]);
-    CastChart(fTrue);
+    CastChart(-1);
     for (i = 0; i <= oNorm; i++)
       SwapN(ignore[i], ignore2[i]);
     cp2 = cp0;
 
-    /* Divide our month into segments and then search each segment in turn. */
+    // Divide month into segments and then search each segment in turn.
 
     for (div = 1; div <= division; div++) {
       occurcount = 0;
 
-      /* Cast the chart for the ending time of the present segment, and */
-      /* copy the start time chart from the previous end time chart.    */
+      // Cast the chart for the ending time of the present segment, and copy
+      // the start time chart from the previous end time chart.
 
       d = (us.fInDayMonth ? 1.0 : (real)DayT) +
         (daysiz/24.0/60.0)*(real)div/(real)division;
@@ -588,17 +583,17 @@ void ChartTransitSearch(flag fProg)
       }
       for (i = 0; i <= oNorm; i++)
         SwapN(ignore[i], ignore2[i]);
-      CastChart(fTrue);
+      CastChart(-1);
       for (i = 0; i <= oNorm; i++)
         SwapN(ignore[i], ignore2[i]);
       cp1 = cp2; cp2 = cp0;
 
-      /* Now search through the present segment for any transits. Note that */
-      /* stars can be transited, but they can't make transits themselves.   */
+      // Now search through the present segment for any transits. Note that
+      // stars can be transited, but they can't make transits themselves.
 
       for (i = 0; i <= cObj; i++) {
 
-        /* Check if 3D house change occurs during time segment. */
+        // Check if 3D house change occurs during time segment.
 
         if (us.fHouse3D && !us.fIgnoreSign && !FIgnore2(i)) {
           is.MC = mc; is.OB = ob;
@@ -627,7 +622,7 @@ void ChartTransitSearch(flag fProg)
           if ((is.fReturn ? i != j : FIgnore2(j)) || (fNoCusp && !FThing(j)))
             continue;
 
-          /* Between each pair of planets, check if they make any aspects. */
+          // Between each pair of planets, check if they make any aspects.
 
           if (!us.fParallel) {
 
@@ -642,8 +637,8 @@ void ChartTransitSearch(flag fProg)
               e2 = Mod(e2-rAspAngle[k]);
             }
 
-            /* Check to see if the present aspect actually occurs during the */
-            /* segment, making sure we check any Aries point crossings.      */
+            // Check to see if the present aspect actually occurs during the
+            // segment, making sure we check any Aries point crossings.
 
             f1 = e1-d;
             if (RAbs(f1) > rDegHalf)
@@ -654,8 +649,8 @@ void ChartTransitSearch(flag fProg)
             if (MinDistance(d, Midpoint(e1, e2)) < rDegQuad &&
               RSgn(f1) != RSgn(f2) && occurcount < MAXINDAY) {
 
-              /* Ok, we have found a transit. Now determine the time */
-              /* and save this transit in our list to be printed.    */
+              // Ok, have found a transit! Now determine the time and save
+              // this transit in our list to be printed.
 
               source[occurcount] = j;
               aspect[occurcount] = k;
@@ -681,14 +676,14 @@ void ChartTransitSearch(flag fProg)
               neg(e2);
             }
 
-            /* Check if parallel aspect occurs during time segment. */
+            // Check if parallel aspect occurs during time segment.
 
             f1 = e1-d;
             f2 = e2-d;
             if (RSgn(f1) != RSgn(f2) && occurcount < MAXINDAY) {
 
-              /* Ok, found a parallel transit. Now determine the time */
-              /* and save this transit in our list to be printed.     */
+              // Ok, found a parallel transit. Now determine the time and save
+              // this transit in the list to be printed.
 
               source[occurcount] = j;
               aspect[occurcount] = k;
@@ -701,11 +696,11 @@ void ChartTransitSearch(flag fProg)
               occurcount++;
             }
           }
-          } /* us.fParallel */
-        } /* j */
-      } /* i */
+          } // us.fParallel
+        } // j
+      } // i
 
-      /* After all transits located, sort them by time at which they occur. */
+      // After all transits located, sort them by time at which they occur.
 
       for (i = 1; i < occurcount; i++) {
         j = i-1;
@@ -720,7 +715,7 @@ void ChartTransitSearch(flag fProg)
         }
       }
 
-      /* Now loop through list and display all the transits. */
+      // Now loop through list and display all the transits.
 
       for (i = 0; i < occurcount; i++) {
         j = (int)(time[i] * 60.0);
@@ -736,17 +731,13 @@ void ChartTransitSearch(flag fProg)
         SetCI(ciSave, MonT, s1+1, YeaT, (real)j / (60.0*60.0),
           DstT, ZonT, LonT, LatT);
 #ifdef EXPRESS
-        /* May want to skip this transit if AstroExpression says to do so. */
+        // May want to skip this transit if AstroExpression says to do so.
         if (!us.fExpOff && FSzSet(us.szExpTra)) {
           ciCore = ciSave;
-          CastChart(fTrue);
-          ExpSetN(iLetterT, source[i]);
-          ExpSetR(iLetterU, pos[i]);
-          ExpSetN(iLetterV, isret[i]);
-          ExpSetN(iLetterW, aspect[i]);
-          ExpSetN(iLetterX, dest[i]);
-          ExpSetR(iLetterY, cpT.obj[dest[i]]);
-          ExpSetN(iLetterZ, (int)RSgn(cpT.dir[dest[i]]));
+          CastChart(-1);
+          ExpSetN(iLetterX, source[i]);
+          ExpSetN(iLetterY, aspect[i]);
+          ExpSetN(iLetterZ, dest[i]);
           if (!NParseExpression(us.szExpTra))
             continue;
         }
@@ -763,7 +754,7 @@ void ChartTransitSearch(flag fProg)
           dest[i], cpT.obj[dest[i]], (int)RSgn(cpT.dir[dest[i]]),
           (char)(fProg ? 'u' : 't'));
 
-        /* Check for a Solar, Lunar, or any other return. */
+        // Check for a Solar, Lunar, or any other return.
 
         if (aspect[i] == aCon && source[i] == dest[i]) {
           AnsiColor(kWhiteA);
@@ -781,17 +772,17 @@ void ChartTransitSearch(flag fProg)
       if (occurcount >= MAXINDAY)
         PrintSz("Too many transits found.\n");
       counttotal += occurcount;
-    } /* div */
-  } /* MonT */
+    } // div
+  } // MonT
   if (counttotal == 0)
     PrintSz("No transits found.\n");
 
-  /* Recompute original chart placements as we've overwritten them. */
+  // Recompute original chart placements as have overwritten them.
 
   ciCore = ciMain; ciTran = ciT;
   cp0 = cpT;
   us.fProgress = fFalse;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -812,7 +803,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
   CI ciT;
   real rT, rPct;
 
-  /* Initialize variables. */
+  // Initialize variables.
   rgEph = (TransGraInfo *)PAllocate(sizeof(TransGraInfo),
     "transit graph grid");
   if (rgEph == NULL)
@@ -826,7 +817,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
   cAsp = fTrans && is.fReturn ? aCon : us.nAsp;
   ymin = 1-fTrans;
 
-  /* Determine character width of chart based on time period being graphed. */
+  // Determine character width of chart based on time period being graphed.
   if (!fMonth) {
     cSlice = 49;
     iwFocus = (int)(ciT.tim / 0.5);
@@ -843,16 +834,16 @@ void ChartTransitGraph(flag fTrans, flag fProg)
   if (iwFocus == 0 && ciT.tim <= 0.0)
     iwFocus = -1;
 
-  /* Calculate and fill out aspect strength arrays for each aspect present. */
+  // Calculate and fill out aspect strength arrays for each aspect present.
   if (fTrans || fProg) {
     ciCore = ciMain;
     us.fProgress = fFalse;
-    CastChart(fTrue);
+    CastChart(0);
     cp1 = cp0;
   }
   for (iw = 0; iw < cSlice; iw++) {
 
-    /* Cast chart for current time slice. */
+    // Cast chart for current time slice.
     ciCore = ciT;
     if (!fMonth) {
       TT = (real)iw * 0.5;
@@ -877,12 +868,12 @@ void ChartTransitGraph(flag fTrans, flag fProg)
       is.JDp = MdytszToJulian(MM, DD, YY, TT, SS, ZZ);
       ciCore = ciMain;
     }
-    CastChart(fTrue);
+    CastChart(-1);
     if (fTrans)
       for (obj = 0; obj <= oNorm; obj++)
         SwapN(ignore[obj], ignore2[obj]);
 
-    /* Compute aspects present for current time slice. */
+    // Compute aspects present for current time slice.
     if (!fTrans) {
       if (!FCreateGrid(fFalse))
         goto LDone;
@@ -892,7 +883,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
         goto LDone;
     }
 
-    /* For each aspect present in slice, add its strength to array. */
+    // For each aspect present in slice, add its strength to array.
     for (y = ymin; y <= cObj; y++) {
       if (FIgnore(y) || (!fTrans && !FProperGraph(y)))
         continue;
@@ -918,7 +909,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
         rT /= GetOrb(x, y, asp);
         pw[iw] = 65535 - (int)(rT * (65536.0 - rSmall));
 
-        /* Check for and add eclipse information to array too. */
+        // Check for and add eclipse information to array too.
         if (fEclipse) {
           et = etNone;
           if (asp == aCon)
@@ -943,7 +934,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
     }
   }
 
-  /* Print chart header row(s). */
+  // Print chart header row(s).
   AnsiColor(kWhiteA);
   if (!fMonth)
     sprintf(sz, SzDate(ciT.mon, ciT.day, ciT.yea, fFalse));
@@ -1002,7 +993,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
   }
   PrintL();
 
-  /* Print the individual aspects present in order. */
+  // Print the individual aspects present in order.
   for (y = ymin; y <= cObj; y++)
     for (x = 0; x < (fTrans ? cObj+1 : y); x++)
       for (asp = 1; asp <= cAsp; asp++) {
@@ -1011,7 +1002,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
           continue;
         occurcount++;
 
-        /* Print the name of the aspect in question. */
+        // Print the name of the aspect in question.
         if (fTrans) {
           AnsiColor(kDkGrayA);
           PrintSz(!fProg ? "T." : "P.");
@@ -1034,7 +1025,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
             nMax = n;
         }
 
-        /* Print the graph itself for the aspect in question. */
+        // Print the graph itself for the aspect in question.
         fMark = fFalse;
         for (iw = 0; iw < cSlice; iw++) {
           n = pw[iw];
@@ -1075,12 +1066,12 @@ void ChartTransitGraph(flag fTrans, flag fProg)
   if (occurcount == 0)
     PrintSz("No transits found.\n");
 
-  /* Free temporarily allocated data, and restore original chart. */
+  // Free temporarily allocated data, and restore original chart.
 LDone:
   AnsiColor(kDefault);
   for (y = ymin; y <= cObj; y++)
-    for (x = 0; x < (fTrans ? cObj+1-10 : y); x++)
-      for (asp = 1; asp <= cAspect; asp++) {
+    for (x = 0; x < (fTrans ? cObj+1 : y); x++)
+      for (asp = 1; asp <= cAsp; asp++) {
         pw = (*rgEph)[x][y][asp];
         if (pw != NULL)
           DeallocateP(pw);
@@ -1094,7 +1085,7 @@ void ChartTransitGraph(flag fTrans, flag fProg)
     DeallocateP(rgEph);
   ciCore = ciMain;
   us.fProgress = fFalse;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -1120,7 +1111,7 @@ void ChartInDayHorizon(void)
   division = us.nDivision;
   fYear = us.fInDayMonth && us.fInDayYear;
 
-  /* If -dY in effect, then search through a range of years. */
+  // If -dY in effect, then search through a range of years.
 
   yea1 = yea2 = Yea;
   if (fYear && us.nEphemYears != 0) {
@@ -1131,7 +1122,7 @@ void ChartInDayHorizon(void)
   }
   for (yea0 = yea1; yea0 <= yea2; yea0++) {
 
-  /* If -dy in effect, then search through the whole year, month by month. */
+  // If -dy in effect, then search through the whole year, month by month.
 
   if (fYear) {
     mon1 = 1; mon2 = 12;
@@ -1139,7 +1130,7 @@ void ChartInDayHorizon(void)
     mon1 = mon2 = Mon;
   for (mon0 = mon1; mon0 <= mon2; mon0++) {
 
-  /* If -dm in effect, then search through the whole month, day by day. */
+  // If -dm in effect, then search through the whole month, day by day.
 
   if (us.fInDayMonth) {
     day1 = 1;
@@ -1151,20 +1142,20 @@ void ChartInDayHorizon(void)
   occurcount = 0;
   ciSav = ciTwin;
   SetCI(ciCore, mon0, day0, yea0, 0.0, Dst, Zon, Lon, Lat);
-  CastChart(fTrue);
+  CastChart(-1);
   mc2 = planet[oMC]; k = planetalt[oMC];
   EclToEqu(&mc2, &k);
   cp2 = cp0;
   for (i = 0; i <= cObj; i++)
     rgalt2[i] = planetalt[i];
 
-  /* Loop through the day, dividing it into a certain number of segments. */
-  /* For each segment we get the planet positions at its endpoints.       */
+  // Loop through the day, dividing it into a certain number of segments.
+  // For each segment we get the planet positions at its endpoints.
 
   for (div = 1; div <= division; div++) {
     SetCI(ciCore, mon0, day0, yea0, 24.0*(real)div/(real)division,
       Dst, Zon, Lon, Lat);
-    CastChart(fTrue);
+    CastChart(-1);
     mc1 = mc2;
     mc2 = planet[oMC]; k = planetalt[oMC];
     EclToEqu(&mc2, &k);
@@ -1173,21 +1164,21 @@ void ChartInDayHorizon(void)
       rgalt1[i] = rgalt2[i]; rgalt2[i] = planetalt[i];
     }
 
-    /* For our segment, check to see if each planet during it rises, sets, */
-    /* reaches its zenith, or reaches its nadir.                           */
+    // For our segment, check to see if each planet during it rises, sets,
+    // reaches its zenith, or reaches its nadir.
 
     for (i = 0; i <= cObj; i++) if (!ignore[i] && FThing(i)) {
       EclToHorizon(&azi1, &alt1, cp1.obj[i], rgalt1[i], mc1, Lat);
       EclToHorizon(&azi2, &alt2, cp2.obj[i], rgalt2[i], mc2, Lat);
       j = 0;
 
-      /* Check for transits to the horizon. */
+      // Check for transits to the horizon.
       if ((alt1 > 0.0) != (alt2 > 0.0)) {
         d = RAbs(alt1)/(RAbs(alt1)+RAbs(alt2));
         k = Mod(azi1 + d*MinDifference(azi1, azi2));
         j = 1 + 2*(MinDistance(k, rDegHalf) < rDegQuad);
 
-      /* Check for transits to the meridian. */
+      // Check for transits to the meridian.
       } else if (RSgn(MinDifference(azi1, rDegQuad)) !=
         RSgn(MinDifference(azi2, rDegQuad))) {
         j = 2 + 2*(MinDistance(azi1, rDegQuad) < rDegQuad);
@@ -1209,7 +1200,7 @@ void ChartInDayHorizon(void)
     }
   }
 
-  /* Sort each event in order of time when it happens during the day. */
+  // Sort each event in order of time when it happens during the day.
 
   for (i = 1; i < occurcount; i++) {
     j = i-1;
@@ -1224,7 +1215,7 @@ void ChartInDayHorizon(void)
     }
   }
 
-  /* Finally display the list showing each event and when it occurs. */
+  // Finally display the list showing each event and when it occurs.
 
   for (i = 0; i < occurcount; i++) {
     ciSave = ciMain;
@@ -1275,8 +1266,8 @@ void ChartInDayHorizon(void)
         sprintf(sz, "%02d\"", (int)(azialt[i]*3600.0)%60); PrintSz(sz);
       }
 
-      /* For rising and setting events, we'll also display a direction  */
-      /* vector to make the 360 degree azimuth value thought of easier. */
+      // For rising and setting events, also display a direction vector to
+      // make the 360 degree azimuth value thought of easier.
 
       xA = RCosD(azialt[i]); yA = RSinD(azialt[i]);
       if (RAbs(xA) < RAbs(yA)) {
@@ -1291,17 +1282,17 @@ void ChartInDayHorizon(void)
     PrintL();
   }
   counttotal += occurcount;
-  } /* day0 */
-  } /* mon0 */
-  } /* yea0 */
+  } // day0
+  } // mon0
+  } // yea0
   if (counttotal == 0)
     PrintSz("No horizon events found.\n");
 
-  /* Recompute original chart placements as we've overwritten them. */
+  // Recompute original chart placements as have overwritten them.
 
   ciCore = ciMain; ciTwin = ciSav;
   us.fSidereal = fT;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -1312,10 +1303,10 @@ void ChartInDayHorizon(void)
 void ChartEphemeris(void)
 {
   char sz[cchSzDef];
-  int yea, yea1, yea2, mon, mon1, mon2, daysiz, i, j, s, d, m;
-  flag fDidBlank = fFalse;
+  int yea, yea1, yea2, mon, mon1, mon2, daysiz, i, j, k, s, d, m;
+  flag fDidBlank = fFalse, fWantHeader = fTrue;
 
-  /* If -Ey is in effect, then loop through all months in the whole year. */
+  // If -Ey is in effect, then loop through all months in the whole year.
 
   if (us.nEphemYears) {
     yea1 = Yea; yea2 = yea1 + us.nEphemYears - 1;
@@ -1324,18 +1315,22 @@ void ChartEphemeris(void)
     yea1 = yea2 = Yea; mon1 = mon2 = Mon;
   }
 
-  /* Loop through the year or years in question. */
+  // Loop through the year or years in question.
 
   for (yea = yea1; yea <= yea2;
     yea += (us.nEphemRate > 1 ? us.nEphemFactor : 1))
 
-  /* Loop through the month or months in question, printing each ephemeris. */
+  // Loop through the month or months in question, printing each ephemeris.
 
   for (mon = mon1; mon <= mon2;
     mon += (us.nEphemRate == 1 ? us.nEphemFactor : 1)) {
     daysiz = us.nEphemRate < 1 ? DayInMonth(mon, yea) : 1;
-    if (us.nEphemRate < 1 || (us.nEphemRate == 1 && mon == mon1) ||
-      (us.nEphemRate > 1 && yea == yea1)) {
+    if ((us.nEphemRate < 1 || (us.nEphemRate == 1 && mon == mon1) ||
+      (us.nEphemRate > 1 && yea == yea1)) && fWantHeader) {
+
+      // Print header row before certain months.
+
+      fWantHeader = fFalse;
       if (!fDidBlank)
         fDidBlank = fTrue;
       else
@@ -1344,78 +1339,82 @@ void ChartEphemeris(void)
         PrintSz(us.fEuroDate ? "Dy/Mo/Year" : "Mo/Dy/Year");
       else
         PrintSz(us.fEuroDate ? "Dy/Mo/Yr" : "Mo/Dy/Yr");
-      for (j = 0; j <= cObj; j++) {
-        if (!FIgnore(j)) {
-          if (is.fSeconds)
-            sprintf(sz, "  %-10.10s", szObjDisp[j]);
-          else
-            sprintf(sz, "  %-4.4s", szObjDisp[j]);
-          PrintSz(sz);
-          PrintTab(' ', us.fParallel ? 2*!is.fSeconds : 1);
-        }
+      for (k = 0; k <= cObj; k++) {
+        j = rgobjList[k];
+        if (FIgnore(j))
+          continue;
+        if (is.fSeconds)
+          sprintf(sz, "  %-10.10s", szObjDisp[j]);
+        else
+          sprintf(sz, "  %-4.4s", szObjDisp[j]);
+        PrintSz(sz);
+        PrintTab(' ', us.fParallel ? 2*!is.fSeconds : 1);
       }
       PrintL();
     }
     for (i = 1; i <= daysiz;
       i = AddDay(mon, i, yea, us.nEphemRate < 1 ? us.nEphemFactor : 1)) {
 
-      /* Loop through each day in the month, casting a chart for that day. */
+      // Loop through each day in the month, casting a chart for that day.
 
       SetCI(ciCore, mon, i, yea, Tim, Dst, Zon, Lon, Lat);
-      CastChart(fTrue);
+      CastChart(-1);
 #ifdef EXPRESS
       if (FSzSet(us.szExpEph) && !NParseExpression(us.szExpEph))
         continue;
 #endif
+      fWantHeader = fTrue;
       PrintSz(SzDate(mon, i, yea, is.fSeconds-1));
       PrintCh(' ');
-      for (j = 0; j <= cObj; j++)
-        if (!FIgnore(j)) {
-          if (!us.fParallel) {
-            if (is.fSeconds)
-              PrintZodiac(planet[j]);
-            else {
-              AnsiColor(kObjA[j]);
-              switch (us.nDegForm) {
-              case 0:
-                /* -sz: Format position in degrees/sign/minutes format. */
-                s = SFromZ(planet[j]);
-                d = (int)planet[j] - (s-1)*30;
-                m = (int)(RFract(planet[j])*60.0);
-                sprintf(sz, "%2d%s%02d", d, szSignAbbrev[s], m);
-                break;
-              case 1:
-                /* -sh: Format position in hours/minutes. */
-                s = (int)Mod(planet[j] + rRound/4.0);
-                d = (int)planet[j] / 15;
-                m = (int)((planet[j] - (real)d*15.0)*4.0);
-                sprintf(sz, "%2dh%02dm", d, m);
-                break;
-              default:
-                /* -sd: Format position as a simple degree. */
-                sprintf(sz, "%6.2f", planet[j]);
-                break;
-              }
-              PrintSz(sz);
-            }
-          } else {
+      for (k = 0; k <= cObj; k++) {
+        j = rgobjList[k];
+        if (FIgnore(j))
+          continue;
+        if (!us.fParallel) {
+          if (is.fSeconds)
+            PrintZodiac(planet[j]);
+          else {
             AnsiColor(kObjA[j]);
-            PrintAltitude(planetalt[j]);
-          }
-          if (ret[j] < 0.0) {
-            AnsiColor(kDefault);
-            PrintCh(chRet2);
+            switch (us.nDegForm) {
+            case 0:
+              // -sz: Format position in degrees/sign/minutes format.
+              s = SFromZ(planet[j]);
+              d = (int)planet[j] - (s-1)*30;
+              m = (int)(RFract(planet[j])*60.0);
+              sprintf(sz, "%2d%s%02d", d, szSignAbbrev[s], m);
+              break;
+            case 1:
+              // -sh: Format position in hours/minutes.
+              s = (int)Mod(planet[j] + rRound/4.0);
+              d = (int)planet[j] / 15;
+              m = (int)((planet[j] - (real)d*15.0)*4.0);
+              sprintf(sz, "%2dh%02dm", d, m);
+              break;
+            default:
+              // -sd: Format position as a simple degree.
+              sprintf(sz, "%6.2f", planet[j]);
+              break;
+            }
+            PrintSz(sz);
           }
-          if (j < cObj)
-            PrintTab(' ', 1 - (ret[j] < 0.0) + is.fSeconds);
+        } else {
+          AnsiColor(kObjA[j]);
+          PrintAltitude(planetalt[j]);
+        }
+        if (ret[j] < 0.0) {
+          AnsiColor(kDefault);
+          PrintCh(chRet2);
         }
+        if (k < cObj)
+          PrintTab(' ', 1 - (ret[j] < 0.0) + is.fSeconds);
+      }
       PrintL();
       AnsiColor(kDefault);
     }
   }
 
-  ciCore = ciMain;    /* Recast original chart. */
-  CastChart(fTrue);
+  ciCore = ciMain;    // Recast original chart.
+  CastChart(1);
 }
 
 /* charts3.cpp */
diff --git a/data.cpp b/data.cpp
index 217cdd5..564187f 100644
--- a/data.cpp
+++ b/data.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: data.cpp
+** Astrolog (Version 7.10) File: data.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -66,17 +66,17 @@ extern unsigned _stklen = 0x4000;
 
 US us = {
 
-  /* Chart types */
+  // Chart types
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 
-  /* Chart suboptions */
+  // Chart suboptions
   0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0,
 
-  /* Table chart types */
+  // Table chart types
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 
-  /* Main flags */
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  // Main flags
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
 #ifdef EPHEM
   1,
 #else
@@ -84,7 +84,7 @@ US us = {
 #endif
   0, 0, 0,
 
-  /* Main subflags */
+  // Main subflags
 #ifdef SWITCHES
   0,
 #else
@@ -105,13 +105,13 @@ US us = {
 #else
   1,
 #endif
-  0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0,
 
-  /* Rare flags */
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,
-  0, 0, 0, 0, 0, 0, 0,
+  // Rare flags
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0,
 
-  /* Value settings */
+  // Value settings
   0,
   0,
   0,
@@ -143,16 +143,19 @@ US us = {
   "",
   "",
 
-  /* Value subsettings */
+  // Value subsettings
   0, 5, cPart, 22, 0.0, rDayInYear, 1.0, 1, 1, 24, 0, 0, oEar, oEar, 0,
   BIODAYS, 1,
+
+  // AstroExpressions
+  NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
   NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL};
 
 IS is = {
   fFalse, fFalse, fFalse, fFalse, fFalse, fFalse, fFalse, fFalse, fFalse,
-  fFalse, NULL, {0,0,0,0,0,0,0,0,0}, NULL, NULL, NULL,
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
-  NULL, NULL, NULL, NULL, NULL, NULL, NULL, 0.0, 0.0, 0.0, 0.0, rAxis};
+  fFalse, NULL, {0,0,0,0,0,0,0,0,0}, NULL, NULL, NULL, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
+  NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 0.0, 0.0, 0.0, 0.0, rAxis};
 
 CI ciCore = {11, 19, 1971, HM(11, 1),       0.0, 8.0, DEFAULT_LOC, "", ""};
 CI ciMain = {-1, 0,  0,    0.0,             0.0, 0.0, 0.0, 0.0,    "", ""};
@@ -160,7 +163,7 @@ CI ciTwin = {9,  11, 1991, HMS(0, 0, 38),   0.0, 0.0, DEFAULT_LOC, "", ""};
 CI ciThre = {-1, 0,  0,    0.0,             0.0, 0.0, 0.0, 0.0,    "", ""};
 CI ciFour = {-1, 0,  0,    0.0,             0.0, 0.0, 0.0, 0.0,    "", ""};
 CI ciTran = {1,  1,  2019, 0.0,             0.0, 0.0, 0.0, 0.0,    "", ""};
-CI ciSave = {6,  5,  2020, HMS(12, 12, 23), 1.0, 8.0, DEFAULT_LOC, "", ""};
+CI ciSave = {10, 1,  2020, HMS(14, 5, 15),  1.0, 8.0, DEFAULT_LOC, "", ""};
 CI ciGreg = {10, 15, 1582, 0.0,             0.0, 0.0, 0.0, 0.0,    "", ""};
 CP cp0, cp1, cp2, cp3, cp4;
 
@@ -177,7 +180,7 @@ CONST CP *rgpcp[5] = {&cp0, &cp1, &cp2, &cp3, &cp4};
 PT3R space[objMax];
 real force[objMax];
 GridInfo *grid = NULL;
-int starname[cStar+1], kObjA[objMax];
+int rgobjList[objMax], starname[cStar+1], kObjA[objMax];
 char *szMacro[48], *szWheel[4+1] = {"", "", "", "", ""};
 real rStarBrightDef[cStar+1] = {-1.0}, rStarBright[cStar+1],
   rStarDistDef[cStar+1], rStarDist[cStar+1];
@@ -242,7 +245,7 @@ CONST char *szHouseTradition[cSign+1] = {"",
   "Children", "Servants", "Marriage", "Death",
   "Long Journeys Over Water", "Career", "Friends", "Troubles"};
 
-CONST char *szObjName[objMax] = {
+CONST char *szObjName[objMax+4] = {
   "Earth", "Sun", "Moon", "Mercury", "Venus", "Mars",       // Planets
   "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto",
   "Chiron", "Ceres", "Pallas", "Juno", "Vesta",             // Asteroids
@@ -263,9 +266,12 @@ CONST char *szObjName[objMax] = {
   "Becrux", "Alioth", "Spica", "Alkaid", "Agena",
   "Arcturus", "Rigil Kent.", "Antares", "Shaula", "Sargas",
   "Kaus Austr.", "Vega", "Altair", "Peacock", "Deneb",
-  "Alnair", "Fomalhaut", "Andromeda"};
+  "Alnair", "Fomalhaut", "Andromeda",
+
+  "1st Cusp", "4th Cusp", "7th Cusp", "10th Cusp"};
 CONST StrLook rgObjName[] = {{"Node", oNod}, {"Nod:", oNod},
   {"M.C.", oMC}, {"I.C.", oNad},
+  {"1st", oAsc}, {"4th", oNad}, {"7th", oDes}, {"10th", oMC},
   {"Star", starLo}, {"Alnilam", oOri}, {"M31", oAnd}, {"", -1}};
 CONST char *szObjDisp[objMax];
 
@@ -352,8 +358,8 @@ CONST char *szSuffix[cSign+1] = {"",
   "st", "nd", "rd", "th", "th", "th", "th", "th", "th", "th", "th", "th"};
 
 CONST char *szEphem[cmMax] = {
-  "Swiss Ephemeris 2.08", "Moshier Formulas 2.08", "Placalc Ephemeris",
-  "Matrix Formulas", "None"};
+  "Swiss Ephemeris 2.09.03m", "Moshier Formulas 2.09.03m",
+  "Placalc Ephemeris", "Matrix Formulas", "None"};
 
 CONST StrLookR rgZodiacOffset[] = {{"Fagan-Bradley", 0.0},
   {"Lahiri", 0.883333}, {"Krishnamurti", 0.98}, {"Raman", 2.329444},
@@ -572,12 +578,12 @@ CONST AI ai[cPart] = {
   {"    01 07Fh", "Understanding & Wisdom"},
   {"    06 01Fh", "Fame & Recognition"},
   {"    02 05Fh", "Rulers & Disassociation"},
-  {"    07 01Fh", "Father, Fate & Karma"}, /* Combust */
+  {"    07 01Fh", "Father, Fate & Karma"}, // Combust
   {"    F  07Fh", "Sudden Advancement"},
   {"    01 07 h", "Celebrity of Rank"},
   {"    07 05Fh", "Surgery & Accident"},
   {"    04 03Fh", "Merchants & Their Work"},
-  {"    F  S Fh", "Merchandise (Exchange)"}, /* Moon */
+  {"    F  S Fh", "Merchandise (Exchange)"}, // Moon
   {"    02 04Fh", "Mother"},
   {"    S  F Fh", "Glory & Constancy"},
   {"    01 F Fh", "Honorable Acquaintances"},
@@ -597,7 +603,7 @@ CONST AI ai[cPart] = {
   {"    01 05F ", "Retribution"},
   {"    06 02  ", "Children (Male)"},
   {"    04 02  ", "Children (Female)"},
-  {"    05 04  ", "Play & Variety"}, /* Change */
+  {"    05 04  ", "Play & Variety"}, // Change
   {"    07 03 h", "Stability"},
   {"   h05 06Fh", "Speculation"},
   {"    03 04Fh", "Art"},
diff --git a/express.cpp b/express.cpp
index 5aa11fe..e9ab7f6 100644
--- a/express.cpp
+++ b/express.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: express.cpp
+** Astrolog (Version 7.10) File: express.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -61,7 +61,7 @@
 ******************************************************************************
 */
 
-#define cfun 149
+#define cfun 250
 
 #define P2(n1, n2)             (((n2) << 2) | (n1))
 #define P3(n1, n2, n3)         (((n3) << 4) | P2(n1, n2))
@@ -79,6 +79,7 @@
 #define I_IXX  P4(I_, I_, X_, X_)
 #define I_IIIX P5(I_, I_, I_, I_, X_)
 #define I_R    P2(I_, R_)
+#define I_E    P2(I_, E_)
 #define I_EE   P3(I_, E_, E_)
 #define R_I    P2(R_, I_)
 #define R_R    P2(R_, R_)
@@ -108,13 +109,14 @@ typedef struct _function {
 typedef struct _parameter {
   int n;      // Integer value (if !fReal)
   real r;     // Real value (if fReal)
-  flag fReal; // Whether parameter is integer or real
+  flag fReal; // Whether parameter is real or integer
 } PAR;
 
 PAR rgparVar[cLetter+1];       // List of variables
 char *rgszExpMacro[cLetter+1]; // List of macros
 
 extern CONST char *PchGetParameter P((CONST char *, PAR *, int, flag));
+extern void GetParameter P((CONST char *, PAR *));
 
 // Functions
 
@@ -123,6 +125,7 @@ enum _functionindex {
   funTrue,
   funInt,
   funReal,
+  funType,
   funAdd,
   funSub,
   funMul,
@@ -148,12 +151,15 @@ enum _functionindex {
   funOdd,
   funAbs,
   funSgn,
+  funSgn2,
   funMin,
   funMax,
   funIfOp,
   funSqu,
   funSqr,
   funDist,
+  funLn,
+  funLog10,
   funSin,
   funCos,
   funTan,
@@ -175,32 +181,17 @@ enum _functionindex {
   funSigns,
   funObjs,
   funAsps,
-  funMon,
-  funDay,
-  funYea,
-  funTim,
-  funDst,
-  funZon,
-  funLon,
-  funLat,
-  funMon2,
-  funDay2,
-  funYea2,
-  funTim2,
-  funDst2,
-  funZon2,
-  funLon2,
-  funLat2,
-  funMonT,
-  funDayT,
-  funYeaT,
-  funTimT,
-  funDayWeek,
-  funObjLon,
-  funObjLat,
-  funObjDir,
-  funObjDirY,
-  funObjHou,
+  funMon,  funDay,  funYea,  funTim,  funDst,  funZon,  funLon,  funLat,
+  funMon1, funDay1, funYea1, funTim1, funDst1, funZon1, funLon1, funLat1,
+  funMon2, funDay2, funYea2, funTim2, funDst2, funZon2, funLon2, funLat2,
+  funMon3, funDay3, funYea3, funTim3, funDst3, funZon3, funLon3, funLat3,
+  funMon4, funDay4, funYea4, funTim4, funDst4, funZon4, funLon4, funLat4,
+  funMonT, funDayT, funYeaT, funTimT,
+  funObjLon,  funObjLat,  funObjDir,  funObjDirY,  funObjHou,
+  funObjLon1, funObjLat1, funObjDir1, funObjDirY1, funObjHou1,
+  funObjLon2, funObjLat2, funObjDir2, funObjDirY2, funObjHou2,
+  funObjLon3, funObjLat3, funObjDir3, funObjDirY3, funObjHou3,
+  funObjLon4, funObjLat4, funObjDir4, funObjDirY4, funObjHou4,
   funObjX,
   funObjY,
   funObjZ,
@@ -218,18 +209,66 @@ enum _functionindex {
   funAspOrb,
   funAspInf,
   funAspCol,
-  funCusp,
-  funCusp3,
+  funCusp,  funCusp3D,
+  funCusp1, funCusp3D1,
+  funCusp2, funCusp3D2,
+  funCusp3, funCusp3D3,
+  funCusp4, funCusp3D4,
   funCuspInf,
   funLonSign,
   funLonDeg,
+  funLonHou,
+  funLonHou3,
   funLonDist,
   funLonDiff,
   funLonMid,
-  funPolDist,
+  funDayWeek,
+  funSphDist,
+  funOblique,
+  funSidDiff,
   funSystem,
   funGridNam,
   funGridVal,
+  funContext,
+  funVersion,
+
+  fun_A3,
+  fun_Ap,
+  fun_AP,
+  fun_b,
+  fun_b0,
+  fun_c,
+  fun_c3,
+  fun_s,
+  fun_s0,
+  fun_sr,
+  fun_sr0,
+  fun_h,
+  fun_p,
+  fun_p0,
+  fun_pd,
+  fun_pC,
+  fun_x,
+  fun_1,
+  fun_3,
+  fun_4,
+  fun_f,
+  fun_G,
+  fun_J,
+  fun_9,
+  fun_YT,
+  fun_YV,
+  fun_Yh,
+  fun_Ym,
+  fun_Ys,
+  fun_Yn,
+  fun_Yn0,
+  fun_Yu,
+  fun_Yr,
+  fun_YC,
+  fun_YO,
+  fun_Yc,
+  fun_Yp,
 
   funVar,
   funDo,
@@ -242,6 +281,8 @@ enum _functionindex {
   funDoWhile,
   funFor,
   funMacro,
+  funSwitch,
+  funRndSeed,
 
   funAssign,  funAssign2,
   funAssignA, funAssignB, funAssignC, funAssignD, funAssignE,
@@ -257,6 +298,7 @@ CONST FUN rgfun[cfun] = {
 {funTrue,  "True",  0, I_},
 {funInt,   "Int",   1, I_I},
 {funReal,  "Real",  1, R_R},
+{funType,  "Type",  1, I_E},
 {funAdd,   "Add",   2, E_EE},
 {funSub,   "Sub",   2, E_EE},
 {funMul,   "Mul",   2, E_EE},
@@ -282,12 +324,15 @@ CONST FUN rgfun[cfun] = {
 {funOdd,   "Odd",   1, I_I},
 {funAbs,   "Abs",   1, E_E},
 {funSgn,   "Sgn",   1, E_E},
+{funSgn2,  "Sgn2",  1, E_E},
 {funMin,   "Min",   2, E_EE},
 {funMax,   "Max",   2, E_EE},
 {funIfOp,  "?:",    3, E_IEE},
 {funSqu,   "Squ",   1, E_E},
 {funSqr,   "Sqr",   1, R_R},
 {funDist,  "Dist",  2, R_RR},
+{funLn,    "Ln",    1, R_R},
+{funLog10, "Log10", 1, R_R},
 {funSin,   "Sin",   1, R_R},
 {funCos,   "Cos",   1, R_R},
 {funTan,   "Tan",   1, R_R},
@@ -317,6 +362,14 @@ CONST FUN rgfun[cfun] = {
 {funZon,     "Zon",      0, R_},
 {funLon,     "Lon",      0, R_},
 {funLat,     "Lat",      0, R_},
+{funMon1,    "Mon1",     0, I_},
+{funDay1,    "Day1",     0, I_},
+{funYea1,    "Yea1",     0, I_},
+{funTim1,    "Tim1",     0, R_},
+{funDst1,    "Dst1",     0, R_},
+{funZon1,    "Zon1",     0, R_},
+{funLon1,    "Lon1",     0, R_},
+{funLat1,    "Lat1",     0, R_},
 {funMon2,    "Mon2",     0, I_},
 {funDay2,    "Day2",     0, I_},
 {funYea2,    "Yea2",     0, I_},
@@ -325,16 +378,51 @@ CONST FUN rgfun[cfun] = {
 {funZon2,    "Zon2",     0, R_},
 {funLon2,    "Lon2",     0, R_},
 {funLat2,    "Lat2",     0, R_},
+{funMon3,    "Mon3",     0, I_},
+{funDay3,    "Day3",     0, I_},
+{funYea3,    "Yea3",     0, I_},
+{funTim3,    "Tim3",     0, R_},
+{funDst3,    "Dst3",     0, R_},
+{funZon3,    "Zon3",     0, R_},
+{funLon3,    "Lon3",     0, R_},
+{funLat3,    "Lat3",     0, R_},
+{funMon4,    "Mon4",     0, I_},
+{funDay4,    "Day4",     0, I_},
+{funYea4,    "Yea4",     0, I_},
+{funTim4,    "Tim4",     0, R_},
+{funDst4,    "Dst4",     0, R_},
+{funZon4,    "Zon4",     0, R_},
+{funLon4,    "Lon4",     0, R_},
+{funLat4,    "Lat4",     0, R_},
 {funMonT,    "MonT",     0, I_},
 {funDayT,    "DayT",     0, I_},
 {funYeaT,    "YeaT",     0, I_},
 {funTimT,    "TimT",     0, R_},
-{funDayWeek, "DayWeek",  3, I_III},
-{funObjLon,  "ObjLon",   1, R_I}, 
-{funObjLat,  "ObjLat",   1, R_I},
-{funObjDir,  "ObjDir",   1, R_I},
-{funObjDirY, "ObjDirY",  1, R_I},
-{funObjHou,  "ObjHouse", 1, I_I},
+{funObjLon,   "ObjLon",    1, R_I}, 
+{funObjLat,   "ObjLat",    1, R_I},
+{funObjDir,   "ObjDir",    1, R_I},
+{funObjDirY,  "ObjDirY",   1, R_I},
+{funObjHou,   "ObjHouse",  1, I_I},
+{funObjLon1,  "ObjLon1",   1, R_I}, 
+{funObjLat1,  "ObjLat1",   1, R_I},
+{funObjDir1,  "ObjDir1",   1, R_I},
+{funObjDirY1, "ObjDirY1",  1, R_I},
+{funObjHou1,  "ObjHouse1", 1, I_I},
+{funObjLon2,  "ObjLon2",   1, R_I}, 
+{funObjLat2,  "ObjLat2",   1, R_I},
+{funObjDir2,  "ObjDir2",   1, R_I},
+{funObjDirY2, "ObjDirY2",  1, R_I},
+{funObjHou2,  "ObjHouse2", 1, I_I},
+{funObjLon3,  "ObjLon3",   1, R_I}, 
+{funObjLat3,  "ObjLat3",   1, R_I},
+{funObjDir3,  "ObjDir3",   1, R_I},
+{funObjDirY3, "ObjDirY3",  1, R_I},
+{funObjHou3,  "ObjHouse3", 1, I_I},
+{funObjLon4,  "ObjLon4",   1, R_I}, 
+{funObjLat4,  "ObjLat4",   1, R_I},
+{funObjDir4,  "ObjDir4",   1, R_I},
+{funObjDirY4, "ObjDirY4",  1, R_I},
+{funObjHou4,  "ObjHouse4", 1, I_I},
 {funObjX,    "ObjX",     1, R_I},
 {funObjY,    "ObjY",     1, R_I},
 {funObjZ,    "ObjZ",     1, R_I},
@@ -353,17 +441,70 @@ CONST FUN rgfun[cfun] = {
 {funAspInf,  "AspInf",   1, R_I},
 {funAspCol,  "AspCol",   1, I_I},
 {funCusp,    "Cusp",     1, R_I},
+{funCusp3D,  "Cusp3D",   1, R_I},
+{funCusp1,   "Cusp1",    1, R_I},
+{funCusp3D1, "Cusp3D1",  1, R_I},
+{funCusp2,   "Cusp2",    1, R_I},
+{funCusp3D2, "Cusp3D2",  1, R_I},
 {funCusp3,   "Cusp3",    1, R_I},
+{funCusp3D3, "Cusp3D3",  1, R_I},
+{funCusp4,   "Cusp4",    1, R_I},
+{funCusp3D4, "Cusp3D4",  1, R_I},
 {funCuspInf, "HouseInf", 1, R_I},
 {funLonSign, "LonSign",  1, I_R},
 {funLonDeg,  "LonDeg",   1, R_R},
+{funLonHou,  "LonHouse", 1, I_R},
+{funLonHou3, "LonHou3D", 2, R_RR},
 {funLonDist, "LonDist",  2, R_RR},
 {funLonDiff, "LonDiff",  2, R_RR},
 {funLonMid,  "LonMid",   2, R_RR},
-{funPolDist, "PolDist",  4, R_RRRR},
-{funSystem,  "HouseSys", 0, I_},
+{funDayWeek, "DayWeek",  3, I_III},
+{funSphDist, "PolDist",  4, R_RRRR},
+{funOblique, "Oblique",  0, R_},
+{funSidDiff, "SidDiff",  0, R_},
+{funSystem,  "HouseSys", 0, I_}, // Same as _c
 {funGridNam, "GridNam",  2, I_II},
 {funGridVal, "GridVal",  2, I_II},
+{funContext, "Context",  0, I_},
+{funVersion, "Version",  0, R_},
+
+{fun_A3,  "_A3",  0, I_},
+{fun_Ap,  "_Ap",  0, I_},
+{fun_AP,  "_AP0", 0, I_},
+{fun_b,   "_b",   0, I_},
+{fun_b0,  "_b0",  0, I_},
+{fun_c,   "_c",   0, I_},
+{fun_c3,  "_c3",  0, I_},
+{fun_s,   "_s",   0, I_},
+{fun_s0,  "_s0",  0, R_},
+{fun_sr,  "_sr",  0, I_},
+{fun_sr0, "_sr0", 0, I_},
+{fun_h,   "_h",   0, I_},
+{fun_p,   "_p",   0, I_},
+{fun_p0,  "_p0",  0, I_},
+{fun_pd,  "_pd",  0, R_},
+{fun_pC,  "_pC",  0, R_},
+{fun_x,   "_x",   0, R_},
+{fun_1,   "_1",   0, I_},
+{fun_3,   "_3",   0, I_},
+{fun_4,   "_4",   0, I_},
+{fun_f,   "_f",   0, I_},
+{fun_G,   "_G",   0, I_},
+{fun_J,   "_J",   0, I_},
+{fun_9,   "_9",   0, I_},
+{fun_YT,  "_YT",  0, I_},
+{fun_YV,  "_YV",  0, I_},
+{fun_Yh,  "_Yh",  0, I_},
+{fun_Ym,  "_Ym",  0, I_},
+{fun_Ys,  "_Ys",  0, I_},
+{fun_Yn,  "_Yn",  0, I_},
+{fun_Yn0, "_Yn0", 0, I_},
+{fun_Yu,  "_Yu",  0, I_},
+{fun_Yr,  "_Yr",  0, I_},
+{fun_YC,  "_YC",  0, I_},
+{fun_YO,  "_YO",  0, I_},
+{fun_Yc,  "_Yc0", 0, I_},
+{fun_Yp,  "_Yp",  0, I_},
 
 {funVar,     "Var",     1, E_I},
 {funDo,      "Do",      2, E_XE},
@@ -376,35 +517,37 @@ CONST FUN rgfun[cfun] = {
 {funDoWhile, "DoWhile", 2, E_XE},
 {funFor,     "For",     4, I_IIIX},
 {funMacro,   "Macro",   1, E_I},
-
-{funAssign,  "Assign",  2, E_IE},
-{funAssign2, "=",       2, E_IE},
-{funAssignA, "=A",      1, E_E},
-{funAssignB, "=B",      1, E_E},
-{funAssignC, "=C",      1, E_E},
-{funAssignD, "=D",      1, E_E},
-{funAssignE, "=E",      1, E_E},
-{funAssignF, "=F",      1, E_E},
-{funAssignG, "=G",      1, E_E},
-{funAssignH, "=H",      1, E_E},
-{funAssignI, "=I",      1, E_E},
-{funAssignJ, "=J",      1, E_E},
-{funAssignK, "=K",      1, E_E},
-{funAssignL, "=L",      1, E_E},
-{funAssignM, "=M",      1, E_E},
-{funAssignN, "=N",      1, E_E},
-{funAssignO, "=O",      1, E_E},
-{funAssignP, "=P",      1, E_E},
-{funAssignQ, "=Q",      1, E_E},
-{funAssignR, "=R",      1, E_E},
-{funAssignS, "=S",      1, E_E},
-{funAssignT, "=T",      1, E_E},
-{funAssignU, "=U",      1, E_E},
-{funAssignV, "=V",      1, E_E},
-{funAssignW, "=W",      1, E_E},
-{funAssignX, "=X",      1, E_E},
-{funAssignY, "=Y",      1, E_E},
-{funAssignZ, "=Z",      1, E_E},
+{funSwitch,  "Switch",  1, I_I},
+{funRndSeed, "RndSeed", 1, I_I},
+
+{funAssign,  "Assign", 2, E_IE},
+{funAssign2, "=",      2, E_IE},
+{funAssignA, "=A",     1, E_E},
+{funAssignB, "=B",     1, E_E},
+{funAssignC, "=C",     1, E_E},
+{funAssignD, "=D",     1, E_E},
+{funAssignE, "=E",     1, E_E},
+{funAssignF, "=F",     1, E_E},
+{funAssignG, "=G",     1, E_E},
+{funAssignH, "=H",     1, E_E},
+{funAssignI, "=I",     1, E_E},
+{funAssignJ, "=J",     1, E_E},
+{funAssignK, "=K",     1, E_E},
+{funAssignL, "=L",     1, E_E},
+{funAssignM, "=M",     1, E_E},
+{funAssignN, "=N",     1, E_E},
+{funAssignO, "=O",     1, E_E},
+{funAssignP, "=P",     1, E_E},
+{funAssignQ, "=Q",     1, E_E},
+{funAssignR, "=R",     1, E_E},
+{funAssignS, "=S",     1, E_E},
+{funAssignT, "=T",     1, E_E},
+{funAssignU, "=U",     1, E_E},
+{funAssignV, "=V",     1, E_E},
+{funAssignW, "=W",     1, E_E},
+{funAssignX, "=X",     1, E_E},
+{funAssignY, "=Y",     1, E_E},
+{funAssignZ, "=Z",     1, E_E},
 };
 
 
@@ -518,6 +661,7 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
   case funTrue:  n = fTrue;  break;
   case funInt:   n = n1;     break;
   case funReal:  r = r1;     break;
+  case funType:  n = fOptReal; break;
   case funAdd:   EIR(n1 + n2, r1 + r2); break;
   case funSub:   EIR(n1 - n2, r1 - r2); break;
   case funMul:   EIR(n1 * n2, r1 * r2); break;
@@ -543,26 +687,29 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
   case funOdd:   n = FOdd(n1); break;
   case funAbs:   EIR(NAbs(n1), RAbs(r1)); break;
   case funSgn:   EIR(NSgn(n1), RSgn(r1)); break;
+  case funSgn2:  EIR(NSgn2(n1), RSgn2(r1)); break;
   case funMin:   EIR(Min(n1, n2), Min(r1, r2)); break;
   case funMax:   EIR(Max(n1, n2), Max(r1, r2)); break;
   case funIfOp:  EIR(n1 ? n2 : n3, n1 ? r2 : r3); break;
   case funSqu:   EIR(Sq(n1), Sq(r1)); break;
   case funSqr:   r = RSqr(r1); break;
   case funDist:  r = RSqr(Sq(r1)+Sq(r2)); break;
+  case funLn:    r = RLog(r1); break;
+  case funLog10: r = RLog10(r1); break;
   case funSin:   r = RSin(r1); break;
   case funCos:   r = RCos(r1); break;
   case funTan:   r = RTan(r1); break;
   case funAsin:  r = RAsin(r1); break;
   case funAcos:  r = RAcos(r1); break;
   case funAtan:  r = RAtn(r1);  break;
-  case funAng:   r = Angle(r1, r2); break;
+  case funAng:   r = RAngle(r1, r2); break;
   case funSinD:  r = RSinD(r1); break;
   case funCosD:  r = RCosD(r1); break;
   case funTanD:  r = RTanD(r1); break;
   case funAsinD: r = RAsinD(r1); break;
   case funAcosD: r = RAcosD(r1); break;
   case funAtanD: r = RAtnD(r1);  break;
-  case funAngD:  r = DFromR(Angle(r1, r2)); break;
+  case funAngD:  r = RAngleD(r1, r2); break;
   case funFloor: r = RFloor(r1); break;
   case funFract: r = r1 - RFloor(r1); break;
   case funRnd:   n = (rand() & 16383) * (n2 - n1 + 1) / 16384 + n1; break;
@@ -578,6 +725,14 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
   case funZon:     r = ZZ; break;
   case funLon:     r = OO; break;
   case funLat:     r = AA; break;
+  case funMon1:    n = ciMain.mon; break;
+  case funDay1:    n = ciMain.day; break;
+  case funYea1:    n = ciMain.yea; break;
+  case funTim1:    r = ciMain.tim; break;
+  case funDst1:    r = ciMain.dst; break;
+  case funZon1:    r = ciMain.zon; break;
+  case funLon1:    r = ciMain.lon; break;
+  case funLat1:    r = ciMain.lat; break;
   case funMon2:    n = ciTwin.mon; break;
   case funDay2:    n = ciTwin.day; break;
   case funYea2:    n = ciTwin.yea; break;
@@ -586,16 +741,51 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
   case funZon2:    r = ciTwin.zon; break;
   case funLon2:    r = ciTwin.lon; break;
   case funLat2:    r = ciTwin.lat; break;
+  case funMon3:    n = ciThre.mon; break;
+  case funDay3:    n = ciThre.day; break;
+  case funYea3:    n = ciThre.yea; break;
+  case funTim3:    r = ciThre.tim; break;
+  case funDst3:    r = ciThre.dst; break;
+  case funZon3:    r = ciThre.zon; break;
+  case funLon3:    r = ciThre.lon; break;
+  case funLat3:    r = ciThre.lat; break;
+  case funMon4:    n = ciFour.mon; break;
+  case funDay4:    n = ciFour.day; break;
+  case funYea4:    n = ciFour.yea; break;
+  case funTim4:    r = ciFour.tim; break;
+  case funDst4:    r = ciFour.dst; break;
+  case funZon4:    r = ciFour.zon; break;
+  case funLon4:    r = ciFour.lon; break;
+  case funLat4:    r = ciFour.lat; break;
   case funMonT:    n = ciTran.mon; break;
   case funDayT:    n = ciTran.day; break;
   case funYeaT:    n = ciTran.yea; break;
   case funTimT:    r = ciTran.tim; break;
-  case funDayWeek: n = DayOfWeek(n1, n2, n3); break;
-  case funObjLon:  r = FValidObj(n1)    ? planet[n1]    : 0.0; break;
-  case funObjLat:  r = FValidObj(n1)    ? planetalt[n1] : 0.0; break;
-  case funObjDir:  r = FValidObj(n1)    ? ret[n1]       : 0.0; break;
-  case funObjDirY: r = FValidObj(n1)    ? retalt[n1]    : 0.0; break;
-  case funObjHou:  n = FValidObj(n1)    ? inhouse[n1]   : 0;   break;
+  case funObjLon:   r = FValidObj(n1)   ? planet[n1]     : 0.0; break;
+  case funObjLat:   r = FValidObj(n1)   ? planetalt[n1]  : 0.0; break;
+  case funObjDir:   r = FValidObj(n1)   ? ret[n1]        : 0.0; break;
+  case funObjDirY:  r = FValidObj(n1)   ? retalt[n1]     : 0.0; break;
+  case funObjHou:   n = FValidObj(n1)   ? inhouse[n1]    : 0;   break;
+  case funObjLon1:  r = FValidObj(n1)   ? cp1.obj[n1]    : 0.0; break;
+  case funObjLat1:  r = FValidObj(n1)   ? cp1.alt[n1]    : 0.0; break;
+  case funObjDir1:  r = FValidObj(n1)   ? cp1.dir[n1]    : 0.0; break;
+  case funObjDirY1: r = FValidObj(n1)   ? cp1.diralt[n1] : 0.0; break;
+  case funObjHou1:  n = FValidObj(n1)   ? cp1.house[n1]  : 0;   break;
+  case funObjLon2:  r = FValidObj(n1)   ? cp2.obj[n1]    : 0.0; break;
+  case funObjLat2:  r = FValidObj(n1)   ? cp2.alt[n1]    : 0.0; break;
+  case funObjDir2:  r = FValidObj(n1)   ? cp2.dir[n1]    : 0.0; break;
+  case funObjDirY2: r = FValidObj(n1)   ? cp2.diralt[n1] : 0.0; break;
+  case funObjHou2:  n = FValidObj(n1)   ? cp2.house[n1]  : 0;   break;
+  case funObjLon3:  r = FValidObj(n1)   ? cp3.obj[n1]    : 0.0; break;
+  case funObjLat3:  r = FValidObj(n1)   ? cp3.alt[n1]    : 0.0; break;
+  case funObjDir3:  r = FValidObj(n1)   ? cp3.dir[n1]    : 0.0; break;
+  case funObjDirY3: r = FValidObj(n1)   ? cp3.diralt[n1] : 0.0; break;
+  case funObjHou3:  n = FValidObj(n1)   ? cp3.house[n1]  : 0;   break;
+  case funObjLon4:  r = FValidObj(n1)   ? cp4.obj[n1]    : 0.0; break;
+  case funObjLat4:  r = FValidObj(n1)   ? cp4.alt[n1]    : 0.0; break;
+  case funObjDir4:  r = FValidObj(n1)   ? cp4.dir[n1]    : 0.0; break;
+  case funObjDirY4: r = FValidObj(n1)   ? cp4.diralt[n1] : 0.0; break;
+  case funObjHou4:  n = FValidObj(n1)   ? cp4.house[n1]  : 0;   break;
   case funObjX:    r = FValidObj(n1)    ? space[n1].x   : 0.0; break;
   case funObjY:    r = FValidObj(n1)    ? space[n1].y   : 0.0; break;
   case funObjZ:    r = FValidObj(n1)    ? space[n1].z   : 0.0; break;
@@ -614,19 +804,72 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
   case funAspInf:  r = FValidAspect(n1) ? rAspInf[n1]   : 0.0; break;
   case funAspCol:  n = FValidAspect(n1) ? kAspB[n1]     : 0;   break;
   case funCusp:    r = FValidSign(n1)   ? chouse[n1]    : 0.0; break;
-  case funCusp3:   r = FValidSign(n1)   ? chouse3[n1]   : 0.0; break;
+  case funCusp3D:  r = FValidSign(n1)   ? chouse3[n1]   : 0.0; break;
+  case funCusp1:   r = FValidSign(n1)   ? cp1.cusp[n1]  : 0.0; break;
+  case funCusp3D1: r = FValidSign(n1)   ? cp1.cusp3[n1] : 0.0; break;
+  case funCusp2:   r = FValidSign(n1)   ? cp2.cusp[n1]  : 0.0; break;
+  case funCusp3D2: r = FValidSign(n1)   ? cp2.cusp3[n1] : 0.0; break;
+  case funCusp3:   r = FValidSign(n1)   ? cp3.cusp[n1]  : 0.0; break;
+  case funCusp3D3: r = FValidSign(n1)   ? cp3.cusp3[n1] : 0.0; break;
+  case funCusp4:   r = FValidSign(n1)   ? cp4.cusp[n1]  : 0.0; break;
+  case funCusp3D4: r = FValidSign(n1)   ? cp4.cusp3[n1] : 0.0; break;
   case funCuspInf: r = FBetween(n1, 1, cSign+5) ? rHouseInf[n1] : 0.0; break;
   case funLonSign: n = SFromZ(r1); break;
   case funLonDeg:  r = r1 - (real)((SFromZ(r1)-1)*30); break;
+  case funLonHou:  n = NHousePlaceIn2D(r1); break;
+  case funLonHou3: r = RHousePlaceIn3D(r1, r2); break;
   case funLonDist: r = MinDistance(r1, r2); break;
   case funLonDiff: r = MinDifference(r1, r2); break;
   case funLonMid:  r = Midpoint(r1, r2); break;
-  case funPolDist: r = PolarDistance(r1, r2, r3, r4); break;
+  case funDayWeek: n = DayOfWeek(n1, n2, n3); break;
+  case funSphDist: r = SphDistance(r1, r2, r3, r4); break;
+  case funOblique: r = is.OB; break;
+  case funSidDiff: r = is.rOff; break;
   case funSystem:  n = us.nHouseSystem; break;
   case funGridNam: n = grid != NULL && FValidObj(n1) && FValidObj(n2) ?
     grid->n[n1][n2] : 0; break;
   case funGridVal: n = grid != NULL && FValidObj(n1) && FValidObj(n2) ?
     grid->v[n1][n2] : 0; break;
+  case funContext: n = is.nContext; break;
+  case funVersion: r = atof(szVersionCore); break;
+
+  case fun_A3:  n = us.fAspect3D;     break;
+  case fun_Ap:  n = us.fAspectLat;    break;
+  case fun_AP:  n = us.fParallel2;    break;
+  case fun_b:   n = us.fEphemeris;    break;
+  case fun_b0:  n = us.fSeconds;      break;
+  case fun_c:   n = us.nHouseSystem;  break;
+  case fun_c3:  n = us.fHouse3D;      break;
+  case fun_s:   n = us.fSidereal;     break;
+  case fun_s0:  r = us.rZodiacOffset; break;
+  case fun_sr:  n = us.fEquator;      break;
+  case fun_sr0: n = us.fEquator2;     break;
+  case fun_h:   n = us.objCenter;     break;
+  case fun_p:   n = us.fProgress;     break;
+  case fun_p0:  n = us.nProgress;     break;
+  case fun_pd:  r = us.rProgDay;      break;
+  case fun_pC:  r = us.rProgCusp;     break;
+  case fun_x:   r = us.rHarmonic;     break;
+  case fun_1:   n = us.objOnAsc;      break;
+  case fun_3:   n = us.fDecan;        break;
+  case fun_4:   n = us.nDwad;         break;
+  case fun_f:   n = us.fFlip;         break;
+  case fun_G:   n = us.fGeodetic;     break;
+  case fun_J:   n = us.fVedic;        break;
+  case fun_9:   n = us.fNavamsa;      break;
+  case fun_YT:  n = us.fTruePos;    break;
+  case fun_YV:  n = us.fTopoPos;    break;
+  case fun_Yh:  n = us.fBarycenter; break;
+  case fun_Ym:  n = us.fMoonMove;   break;
+  case fun_Ys:  n = us.fSidereal2;  break;
+  case fun_Yn:  n = us.fTrueNode;   break;
+  case fun_Yn0: n = us.fNoNutation; break;
+  case fun_Yu:  n = us.fEclipse;    break;
+  case fun_Yr:  n = us.fRound;      break;
+  case fun_YC:  n = us.fSmartCusp;  break;
+  case fun_YO:  n = us.fSmartSave;  break;
+  case fun_Yc:  n = us.fHouseAngle; break;
+  case fun_Yp:  n = us.fPolarAsc;   break;
 
   case funVar:
     if (FBetween(n1, 0, cLetter)) {
@@ -694,11 +937,18 @@ flag FEvalFunction(int ifun, PAR *rgpar, char *rgpchEval[2])
     break;
   case funMacro:
     if (FBetween(n1, 0, cLetter) && FSzSet(rgszExpMacro[n1])) {
-      PchGetParameter(rgszExpMacro[n1], &rgpar[0], 1, fTrue);
+      GetParameter(rgszExpMacro[n1], &rgpar[0]);
       goto LParseRet;
     } else
       n = 0;
     break;
+  case funSwitch:
+    n = FValidMacro(n1) && FProcessCommandLine(szMacro[n1-1]);
+    break;
+  case funRndSeed:
+    srand(n1);
+    n = 0;
+    break;
 
   case funAssign:
   case funAssign2:
@@ -864,12 +1114,14 @@ CONST char *PchGetParameter(CONST char *pchCur, PAR *rgpar, int iParam,
 
   // Error if can't parse contents.
   CopyRgchToSz(pchParam, cch, szT, cchSzMax);
-  sprintf(sz, "Unknown parameter: '%s'\nContext: ", szT);
+  sprintf(sz, "Unknown parameter: '%s'\nContext: '", szT);
   for (pchEdit = sz; *pchEdit; pchEdit++)
     ;
   pchT = pchCur;
   while (*pchT && pchEdit - sz < cchSzMax)
     *pchEdit++ = *pchT++;
+  if (pchEdit - sz < cchSzMax)
+    *pchEdit++ = '\'';
   *pchEdit = chNull;
   PrintWarning(sz);
 LError:
@@ -1197,19 +1449,19 @@ flag FCreateTries()
     cs = ILookupTrie(is.rgsTrieFun,
       rgfun[isz].szName, CchSz(rgfun[isz].szName), fTrue);
     if (cs != isz) {
-      sprintf(sz, "Function string %d maps to trie value %d.", isz, cs);
+      sprintf(sz, "Function string %d (%s) maps to trie value %d.",
+        isz, rgfun[isz].szName, cs);
       PrintError(sz);
       break;
     }
     if (rgfun[isz].ifun != isz) {
-      sprintf(sz, "Function %d defined in slot %d.", rgfun[isz].ifun, isz);
+      sprintf(sz, "Function %d (%s) defined in slot %d.",
+        rgfun[isz].ifun, rgfun[isz].szName, isz);
       PrintError(sz);
       break;
     }
   }
 #endif
-
-  ClearB((pbyte)rgparVar, sizeof(rgparVar));
   return fTrue;
 }
 
@@ -1250,9 +1502,9 @@ real RParseExpression(CONST char *sz)
 }
 
 
-// Parse an arbitrary integer or real expression.
+// Parse an arbitrary integer or real expression, and display its result.
 
-flag FParseExpression(CONST char *sz)
+flag ShowParseExpression(CONST char *sz)
 {
   PAR par = {0, 0.0, fFalse};  // If parsing fails, assume 0.
   char szMsg[cchSzMax], szNum[cchSzDef];
@@ -1262,11 +1514,11 @@ flag FParseExpression(CONST char *sz)
     return fFalse;
 
   GetParameter(sz, &par);
-  if (!par.fReal)
-    sprintf(szNum, "%d", par.n);
-  else
-    FormatR(szNum, par.r, 6);
   if (!us.fExpOff) {
+    if (!par.fReal)
+      sprintf(szNum, "%d", par.n);
+    else
+      FormatR(szNum, par.r, 6);
     sprintf(szMsg, "Expression returned: %s\n", szNum);
     PrintNotice(szMsg);
   }
@@ -1306,6 +1558,14 @@ void ExpSetR(int i, real r)
   rgparVar[i].fReal = fTrue;
   rgparVar[i].r = r;
 }
+
+
+// Initialize all custom variables to integer zero.
+
+void ExpInit(void)
+{
+  ClearB((pbyte)rgparVar, sizeof(rgparVar));
+}
 #endif /* EXPRESS */
 
 /* express.cpp */
diff --git a/extern.h b/extern.h
index c0b202d..98ccabb 100644
--- a/extern.h
+++ b/extern.h
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: extern.h
+** Astrolog (Version 7.10) File: extern.h
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 /*
@@ -136,7 +136,7 @@ extern CONST CI *rgpci[5];
 extern PT3R space[objMax];
 extern real force[objMax];
 extern GridInfo *grid;
-extern int starname[cStar+1], kObjA[objMax];
+extern int rgobjList[objMax], starname[cStar+1], kObjA[objMax];
 
 extern byte ignore[objMax], ignore2[objMax], ignorea[cAspect+1],
   ignorez[arMax], ignore7[rrMax], pluszone[cSector+1];
@@ -178,7 +178,7 @@ extern CONST char *szAppName, *szSignName[cSign+1], *szSignAbbrev[cSign+1],
   *szDir[4], *szSuffix[cSign+1], *szEphem[cmMax];
 extern CONST int rgAspConfig[cAspConfig];
 extern CONST real rZon[cZone];
-extern CONST char *szObjName[objMax], *szCnstlName[cCnstl+1],
+extern CONST char *szObjName[objMax+4], *szCnstlName[cCnstl+1],
   *szCnstlAbbrev[cCnstl+1], *szCnstlMeaning[cCnstl+1],
   *szCnstlGenitive[cCnstl+1];
 extern CONST real rStarBrightMatrix[cStar+1], rStarData[cStar*6];
@@ -215,7 +215,6 @@ extern CONST char *szRayName[cRay+1], *szRayWill[cRay+1];
 
 #define RgAllocate(n, t, sz) ((t *)PAllocate((n) * sizeof(t), sz))
 #define PrintAltitude(deg) PrintSz(SzAltitude(deg))
-#define ErrorValR(sz, r) ErrorValN(sz, (int)r)
 #define FEqCI(ci1, ci2) (\
   ci1.mon == ci2.mon && ci1.day == ci2.day && ci1.yea == ci2.yea && \
   ci1.tim == ci2.tim && ci1.dst == ci2.dst && ci1.zon == ci2.zon && \
@@ -232,9 +231,8 @@ extern CONST char *SzInList P((CONST char *, CONST char *, int *));
 extern void ClearB P((pbyte, int));
 extern void CopyRgb P((byte *, byte *, int));
 extern real RSgn P((real));
-extern real Angle P((real, real));
+extern real RAngle P((real, real));
 extern real Mod P((real));
-extern real ModRad P((real));
 extern long Dvd P((long, long));
 extern int SzLookup P((CONST StrLook *, CONST char *));
 extern flag FCompareSzSubI P((CONST char *, CONST char *));
@@ -245,7 +243,8 @@ extern real DegToDec P((real));
 extern real MinDistance P((real, real));
 extern real MinDifference P((real, real));
 extern real Midpoint P((real, real));
-extern real PolarDistance P((real, real, real, real));
+extern real SphDistance P((real, real, real, real));
+extern void SphRatio P((real, real, real, real, real, real *, real *));
 extern char *Dignify P((int, int));
 extern void EnsureRay P((void));
 extern void EnsureStarBright P((void));
@@ -257,6 +256,7 @@ extern real GetOrb P((int, int, int));
 extern CONST char *SzAspect P((int));
 extern CONST char *SzAspectAbbrev P((int));
 extern void SetCentric P((int));
+extern int ObjOrbit P((int));
 extern void Terminate P((int));
 extern void PrintSz P((CONST char *));
 extern void PrintCh P((char));
@@ -265,8 +265,9 @@ extern void PrintProgress P((CONST char *));
 extern void PrintNotice P((CONST char *));
 extern void PrintWarning P((CONST char *));
 extern void PrintError P((CONST char *));
-extern void ErrorArgc P((CONST char *));
-extern void ErrorValN P((CONST char *, int));
+extern flag FErrorArgc P((CONST char *, int, int));
+extern flag FErrorValN P((CONST char *, flag, int, int));
+extern flag FErrorValR P((CONST char *, flag, real, int));
 extern void ErrorArgv P((CONST char *));
 extern void ErrorSwitch P((CONST char *));
 extern void ErrorEphem P((CONST char *, long));
@@ -301,6 +302,9 @@ extern void Assert P((flag));
 extern FILE *FileOpen P((CONST char *, int, char *));
 extern flag FProcessSwitchFile P((CONST char *, FILE *));
 extern flag FOutputData P((void));
+extern flag FOutputSettings P((void));
+extern int NFromSz P((CONST char *));
+extern real RFromSz P((CONST char *));
 extern int NParseSz P((CONST char *, int));
 extern real RParseSz P((CONST char *, int));
 extern void InputString P((CONST char *, char *));
@@ -332,9 +336,10 @@ extern real Decan P((real));
 extern real Navamsa P((real));
 extern void RecToPol P((real, real, real *, real *));
 extern void SphToRec P((real, real, real, real *, real *, real *));
+extern void RecToSph3 P((real, real, real, real *, real *));
 extern void CoorXform P((real *, real *, real));
 extern void ComputeEphem P((real));
-extern real CastChart P((flag));
+extern real CastChart P((int));
 extern void CastSectors P((void));
 extern flag FEnsureGrid P((void));
 extern flag FAcceptAspect P((int, int, int));
@@ -347,6 +352,9 @@ extern int NCheckEclipseLunar P((real *));
 extern void CreateElemTable P((ET *));
 
 #ifdef SWISS
+extern int rgObjSwiss[cUran];
+extern int rgTypSwiss[cUran];
+
 extern flag FSwissPlanet
   P((int, real, flag, real *, real *, real *, real *, real *));
 extern void SwissHouse P((real, real, real, int,
@@ -369,7 +377,7 @@ extern OE rgoe[oVes+cUran-2];
 
 extern long MatrixMdyToJulian P((int, int, int));
 extern void MatrixJulianToMdy P((real, int *, int *, int *));
-extern real ProcessInput P((flag));
+extern real ProcessInput P((void));
 extern void PolToRec P((real, real, real *, real *));
 extern real RecToSph P((real, real, real));
 extern void ComputeVariables P((real *));
@@ -435,8 +443,7 @@ extern flag FPrintTables P((void));
 extern void PrintHeader P((void));
 extern void ChartListing P((void));
 extern void ChartGrid P((void));
-extern void PrintGrand P((char, int, int, int, int));
-extern void DisplayGrands P((void));
+extern void DisplayAspectConfigs P((void));
 extern void PrintHouse P((int, int));
 extern void PrintWheelCenter P((int));
 extern void PrintWheelSlot P((int));
@@ -526,12 +533,14 @@ extern real ZondefFromIzn P((int));
 #ifdef EXPRESS
 /* From express.cpp */
 
+#define ParseExpression(sz) NParseExpression(sz)
 extern char *rgszExpMacro[cLetter+1];
 
+extern void ExpInit P((void));
 extern int ILookupTrie P((CONST TRIE, CONST char *, int, flag));
 extern long NParseExpression P((CONST char *));
 extern real RParseExpression P((CONST char *));
-extern flag FParseExpression P((CONST char *));
+extern flag ShowParseExpression P((CONST char *));
 extern int NExpGet P((int));
 extern real RExpGet P((int));
 extern void ExpSetN P((int, int));
@@ -564,13 +573,13 @@ extern CONST KV rgbbmpDef[cColor];
 extern KV rgbbmp[cColor];
 extern KI kMainB[9], kRainbowB[cRainbow+1], kElemB[cElem], kAspB[cAspect+1],
   kObjB[objMax], kRayB[cRay+2];
-extern CONST char szObjectFont[oNorm+1], szAspectFont[cAspect2+1],
+extern CONST char
   *szDrawSign[cSign+2], *szDrawSign2[cSign+2], *szDrawSign3[cSign+2],
-  *szDrawObjectDef[objMax+5], *szDrawObjectDef2[objMax+5],
+  *szDrawObjectDef[objMax+9], *szDrawObjectDef2[objMax+9],
   *szDrawHouse[cSign+1], *szDrawHouse2[cSign+1], *szDrawHouse3[cSign+1],
   *szDrawAspectDef[cAspect2+1], *szDrawAspectDef2[cAspect2+1],
   *szDrawCh[256-32], *szWorldData[62*3], *szDrawConstel[cCnstl+1];
-extern CONST char *szDrawObject[objMax+5], *szDrawObject2[objMax+5],
+extern CONST char *szDrawObject[objMax+9], *szDrawObject2[objMax+9],
   *szDrawAspect[cAspect2+1], *szDrawAspect2[cAspect2+1];
 
 #define kBlackB   kMainB[0]
@@ -610,8 +619,12 @@ extern CONST char *szDrawObject[objMax+5], *szDrawObject2[objMax+5],
   DrawBox(x1, y1, x2, y2, gi.nScaleT, gi.nScaleT)
 #define DrawEdgeAll() DrawEdge(0, 0, gs.xWin-1, gs.yWin-1)
 #define DrawLine(x1, y1, x2, y2) DrawDash(x1, y1, x2, y2, 0)
+#define DrawClip(x1, y1, x2, y2, xl, yl, xh, yh, skip) \
+  FDrawClip(x1, y1, x2, y2, xl, yl, xh, yh, skip, NULL, NULL)
 #define DrawCircle(x, y, xr, yr) \
   DrawEllipse((x)-(xr), (y)-(yr), (x)+(xr), (y)+(yr))
+#define DrawCircle2(x, y, xr, yr) \
+  DrawEllipse2((x)-(xr), (y)-(yr), (x)+(xr), (y)+(yr))
 
 extern void DrawColor P((KI));
 extern void DrawPoint P((int, int));
@@ -624,8 +637,11 @@ extern void DrawDash P((int, int, int, int, int));
 extern void DrawWrap P((int, int, int, int, int, int));
 extern void ClipLesser P((int *, int *, int *, int *, int));
 extern void ClipGreater P((int *, int *, int *, int *, int));
-extern void DrawClip P((int, int, int, int, int, int, int, int, int));
+extern flag FDrawClip P((int, int, int, int, int, int, int, int, int,
+  int *, int *));
 extern void DrawEllipse P((int, int, int, int));
+extern void DrawEllipse2 P((int, int, int, int));
+extern void DrawCrescent P((int, int, int, int, real, real, KI, KI));
 extern void DrawSz P((CONST char *, int, int, int));
 extern void DrawSign P((int, int, int));
 extern void DrawHouse P((int, int, int));
@@ -636,13 +652,13 @@ extern void DrawStar P((int, int, ES *));
 extern void DrawAspect P((int, int, int));
 extern int NFromPch P((CONST char **));
 extern void DrawTurtle P((CONST char *, int, int));
+extern KI KiCity P((int));
 
 
 /* From xdevice.cpp */
 
 #ifdef META
-/* Macros to output the various metafile commands used. */
-
+// Macros to output the various metafile commands used.
 #define MetaRecord(S, R) MetaLong((long)(S)); MetaWord(R)
 #define MetaSelectObject(O) MetaRecord(4, 0x12D); MetaWord(O)
 #define MetaDeleteObject(O) MetaRecord(4, 0x1F0); MetaWord(O)
@@ -710,7 +726,11 @@ extern void DrawSymbolRing
 extern void DrawObjects P((ObjDraw *, int, int));
 extern void DrawAspectLine
   P((int, int, int, int, real, real, real, real, real));
-extern flag FReadWorldData P((char **, char **, char **));
+extern flag EnumWorldLines P((int *, int *, int *, int *, int *));
+#ifdef CONSTEL
+extern flag EnumConstelLines P((int *, int *, int *, int *, int *));
+#endif
+extern flag FReadWorldData P((CONST char **, CONST char **, CONST char **));
 extern flag FGlobeCalc P((real, real, int *, int *, int, int, int, int, int));
 extern flag FMapCalc P((real, real, int *, int *, flag, flag, real, real,
   int, int, int, int, int, int));
@@ -732,19 +752,23 @@ extern void EclToHorizon P((real, real, int, int, int, int, int *, int *));
 extern void LocToHorizonSky P((real, real, CONST CIRC *, int *, int *));
 extern void EquToHorizonSky P((real, real, CONST CIRC *, int *, int *));
 extern void EclToHorizonSky P((real, real, CONST CIRC *, int *, int *));
+extern void LocToTelescope P((real, real, TELE *, int *, int *, real*, real*));
+extern void EquToTelescope P((real, real, TELE *, int *, int *, real*, real*));
+extern void EclToTelescope P((real, real, TELE *, int *, int *, real*, real*));
 
 extern void XChartWheel P((void));
 extern void XChartAstroGraph P((void));
 extern void XChartGrid P((void));
 extern void XChartHorizon P((void));
 extern void XChartHorizonSky P((void));
+extern void XChartTelescope P((void));
+extern void XChartLocal P((void));
 extern void OrbitPlot P((real *, real *, real *, real, int, PT3R *));
 extern void OrbitRecord P((void));
 extern void XChartOrbit P((void));
 extern void XChartSector P((void));
 extern void DrawArrow P((int, int, int, int));
 extern void XChartDispositor P((void));
-extern void XChartEsoteric P((void));
 extern void DrawCalendarAspect P((InDayInfo *, int, int, int));
 extern void XChartCalendar P((void));
 extern void XChartSphere P((void));
@@ -761,6 +785,7 @@ extern void XChartWheelRelation P((void));
 extern void XChartWheelThreeFour P((void));
 extern void XChartGridRelation P((void));
 extern void XChartEphemeris P((void));
+extern void XChartEsoteric P((void));
 extern void XChartTransit P((flag, flag));
 extern void XChartBiorhythm P((void));
 
@@ -850,7 +875,6 @@ extern void SetEditSZOA(HWND, int, int, int, int, real, real, real, real);
 extern void SetEditColor(HWND, int, KI);
 extern real GetEditR(HWND, int);
 extern void ErrorEnsure(int, CONST char *);
-extern flag FOutputSettings P((void));
 extern flag API DlgOpenChart P((void));
 extern flag API DlgSaveChart P((void));
 extern flag API DlgPrint P((void));
diff --git a/general.cpp b/general.cpp
index 44e64ee..23fdcb5 100644
--- a/general.cpp
+++ b/general.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: general.cpp
+** Astrolog (Version 7.10) File: general.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -182,7 +182,7 @@ real RSgn(real r)
 /* origin to this coordinate. This is just converting from rectangular to  */
 /* polar coordinates, however this doesn't involve the radius here.        */
 
-real Angle(real x, real y)
+real RAngle(real x, real y)
 {
   real a;
 
@@ -206,9 +206,9 @@ real Angle(real x, real y)
 
 real Mod(real d)
 {
-  if (d >= rDegMax)        /* In most cases, our value is only slightly */
-    d -= rDegMax;          /* out of range, so we can test for it and   */
-  else if (d < 0.0)        /* avoid the more complicated arithmetic.    */
+  if (d >= rDegMax)         // In most cases, value is only slightly
+    d -= rDegMax;           // out of range, so can test for it and
+  else if (d < 0.0)         // avoid the more complicated arithmetic.
     d += rDegMax;
   if (d >= 0 && d < rDegMax)
     return d;
@@ -216,19 +216,7 @@ real Mod(real d)
 }
 
 
-/* Another modulus function, this time for the range of 0 to 2 Pi. */
-
-real ModRad(real r)
-{
-  while (r >= rPi2)    /* We assume our value is only slightly out of       */
-    r -= rPi2;         /* range, so test and never do any complicated math. */
-  while (r < 0.0)
-    r += rPi2;
-  return r;
-}
-
-
-/* Integer division - like the "/" operator but always rounds result down. */
+// Integer division, like the "/" operator but always rounds result down.
 
 long Dvd(long x, long y)
 {
@@ -284,9 +272,9 @@ void FormatR(char *sz, real r, int n)
   sprintf(sz, szT, r);
   for (pch = sz; *pch; pch++)
     ;
-  while (pch > sz && *(--pch) == '0')  /* Drop off any trailing 0 digits. */
+  while (pch > sz && *(--pch) == '0')    // Drop off any trailing 0 digits.
     ;
-  /* Positive n means ensure at least one fractional digit. */
+  // Positive n means ensure at least one fractional digit.
   pch[n > 0 ? 1 + (*pch == '.') : (*pch != '.')] = chNull;
 }
 
@@ -297,7 +285,7 @@ void FormatR(char *sz, real r, int n)
 ******************************************************************************
 */
 
-/* A similar modulus function: convert an integer to value from 1..12. */
+// A similar modulus function: Convert an integer to value from 1-12.
 
 int Mod12(int i)
 {
@@ -335,10 +323,10 @@ real DegToDec(real d)
 
 real MinDistance(real deg1, real deg2)
 {
-  real i;
+  real r;
 
-  i = RAbs(deg1-deg2);
-  return i < rDegHalf ? i : rDegMax - i;
+  r = RAbs(deg1-deg2);
+  return r <= rDegHalf ? r : rDegMax - r;
 }
 
 
@@ -348,12 +336,12 @@ real MinDistance(real deg1, real deg2)
 
 real MinDifference(real deg1, real deg2)
 {
-  real i;
+  real r;
 
-  i = deg2 - deg1;
-  if (RAbs(i) < rDegHalf)
-    return i;
-  return RSgn(i)*(RAbs(i) - rDegMax);
+  r = deg2 - deg1;
+  if (RAbs(r) < rDegHalf)
+    return r;
+  return r >= 0 ? r - rDegMax : r + rDegMax;
 }
 
 
@@ -372,13 +360,30 @@ real Midpoint(real deg1, real deg2)
 /* Return the minimum great circle distance between two sets of spherical   */
 /* coordinates. This is like MinDistance() but takes latitude into account. */
 
-real PolarDistance(real lon1, real lat1, real lon2, real lat2)
+real SphDistance(real lon1, real lat1, real lon2, real lat2)
 {
   real dLat, r;
 
   dLat = RAbs(lon1 - lon2);
-  r = RAcos(RSinD(lat1)*RSinD(lat2) + RCosD(lat1)*RCosD(lat2)*RCosD(dLat));
-  return DFromR(r);
+  r = RAcosD(RSinD(lat1)*RSinD(lat2) + RCosD(lat1)*RCosD(lat2)*RCosD(dLat));
+  return r;
+}
+
+
+/* Given two pairs of coordinates on a sphere, return coordinates at some */
+/* proportion (0.0-1.0) along the great circle path between them.         */
+
+void SphRatio(real lon1, real lat1, real lon2, real lat2, real rRatio,
+  real *lon, real *lat)
+{
+  real x1, y1, z1, x2, y2, z2, x, y, z;
+
+  SphToRec(1.0, lon1, lat1, &x1, &y1, &z1);
+  SphToRec(1.0, lon2, lat2, &x2, &y2, &z2);
+  x = x1 + (x2 - x1) * rRatio;
+  y = y1 + (y2 - y1) * rRatio;
+  z = z1 + (z2 - z1) * rRatio;
+  RecToSph3(x, y, z, lon, lat);
 }
 
 
@@ -396,7 +401,7 @@ char *Dignify(int obj, int sign)
   if (obj > oNorm)
     goto LExit;
 
-  /* Check standard rulerships. */
+  // Check standard rulerships.
   if (!ignore7[rrStd]) {
     if (ruler1[obj] == sign || ruler2[obj] == sign)
       szDignify[rrStd+1] = 'R';
@@ -410,7 +415,7 @@ char *Dignify(int obj, int sign)
       szDignify[rrExa+1] = 'f';
   }
 
-  /* Check esoteric rulerships. */
+  // Check esoteric rulerships.
   if (!ignore7[rrEso]) {
     if (rgObjEso1[obj] == sign || rgObjEso2[obj] == sign)
       szDignify[rrEso+1] = 'S';
@@ -434,6 +439,7 @@ char *Dignify(int obj, int sign)
   }
 
 LExit:
+  // Put "most significant" rulership state present in the first character.
   for (ich = 1; ich <= 5; ich += ich == 1 ? 3 :
     (ich == 4 ? -2 : (ich == 3 ? 2 : 1))) {
     if (szDignify[ich] != '_') {
@@ -483,7 +489,7 @@ void EnsureStarBright()
   if (rStarBrightDef[0] != rMode) {
     rStarBrightDef[0] = rMode;
 
-    /* Matrix formulas have star brightnesses in a simple table. */
+    // Matrix formulas have star brightnesses in a simple table.
     for (i = 1; i <= cStar; i++) {
 #ifdef MATRIX
       rStarBrightDef[i] = rStarBrightMatrix[i];
@@ -491,12 +497,12 @@ void EnsureStarBright()
       rStarBrightDef[i] = 1.0;
 #endif
       rStarBright[i] = rStarBrightDef[i];
-      /* Assume each star is 100 LY away. */
+      // Assume each star is 100 LY away.
       rStarDistDef[i] = rStarDist[i] = 100.0 * rLYToAU;
     }
 
 #ifdef SWISS
-    /* Swiss Ephemeris reads star brightnesses from an external file. */
+    // Swiss Ephemeris reads star brightnesses from an external file.
     if (FCmSwissStar())
       SwissComputeStars(0.0, fTrue);
 #endif
@@ -564,8 +570,8 @@ int AddDay(int month, int day, int year, int delta)
 
   d = day + delta;
   if (ciGreg.yea == yeaJ2G && ciGreg.mon == monJ2G && ciGreg.day == dayJ2G2 &&
-    year == yeaJ2G && month == monJ2G) {       /* Check for Julian to  */
-    if (d > dayJ2G1 && d < dayJ2G2)            /* Gregorian crossover. */
+    year == yeaJ2G && month == monJ2G) {       // Check for Julian to
+    if (d > dayJ2G1 && d < dayJ2G2)            // Gregorian crossover.
       d += NSgn(delta)*(dayJ2G2-dayJ2G1-1);
   }
   return d;
@@ -617,7 +623,7 @@ CONST char *SzAspectAbbrev(int asp)
 void SetCentric(int obj)
 {
   if (!us.fIgnoreAuto && ignore[us.objCenter] && !ignore[obj]) {
-    /* If -YRh switch in effect, might auto(un)restrict central object. */
+    // If -YRh switch in effect, might auto(un)restrict central object.
     inv(ignore[us.objCenter]);
     inv(ignore[obj]);
   }
@@ -625,6 +631,29 @@ void SetCentric(int obj)
 }
 
 
+/* Return the planet this object orbits, if any. */
+
+int ObjOrbit(int obj)
+{
+  if (FGeo(obj))
+    return oEar;
+  if (FUranian(obj)) {
+#ifdef SWISS
+    // Check if this Uranian has been redefined to be related to Earth's Moon.
+    if (rgTypSwiss[obj - uranLo] == 2 && FGeo(rgObjSwiss[obj - uranLo]))
+      return oEar;
+    // Check if this Uranian has been redefined to be a planetary moon.
+    if (rgTypSwiss[obj - uranLo] == 3)
+      return rgObjSwiss[obj - uranLo] / 100 + 1;
+#endif
+    return oSun;
+  }
+  if (FBetween(obj, oMer, cPlanet))
+    return oSun;
+  return -1;
+}
+
+
 /*
 ******************************************************************************
 ** String Procedures.
@@ -650,7 +679,7 @@ void Terminate(int tc)
   if (tc == tcError && us.fLoop)
     return;
   if (us.fAnsiColor) {
-    sprintf(sz, "%c[0m", chEscape);    /* Get out of any Ansi color mode. */
+    sprintf(sz, "%c[0m", chEscape);    // Get out of any Ansi color mode.
     PrintSz(sz);
   }
   FinalizeProgram();
@@ -674,7 +703,7 @@ void PrintSz(CONST char *sz)
     if (*pch != '\n') {
       if (is.nHTML != 2) {
         is.cchCol++;
-        if (us.fClip80 && is.cchCol >= us.nScreenWidth)  /* Clip if needed. */
+        if (us.fClip80 && is.cchCol >= us.nScreenWidth)  // Clip if needed.
           continue;
       }
     } else {
@@ -711,7 +740,7 @@ void PrintSz(CONST char *sz)
     if (*pch == '\n' && is.S == stdout &&
       us.nScrollRow > 0 && is.cchRow >= us.nScrollRow) {
 
-      /* If we've printed 'n' rows, stop and wait for a line to be entered. */
+      // If have printed 'n' rows, stop and wait for a line to be entered.
 
       fT = us.fAnsiColor;
       us.fAnsiColor = fFalse;
@@ -719,7 +748,7 @@ void PrintSz(CONST char *sz)
       us.fAnsiColor = fT;
       is.cchRow = 0;
 
-      /* One can actually give a few simple commands before hitting return. */
+      // One can actually give a few simple commands before hitting return.
 
       if (szInput[0] == 'q' || szInput[0] == '.')
         Terminate(tcForce);
@@ -737,13 +766,13 @@ void PrintSz(CONST char *sz)
     if (*pch == '\n' && is.S == stdout && wi.hdcPrint != hdcNil &&
       is.cchRow >= us.nScrollRow) {
 
-      /* If writing to the printer, start a new page when appropriate. */
+      // If writing to the printer, start a new page when appropriate.
 
       is.cchRow = 0;
       EndPage(wi.hdcPrint);
       StartPage(wi.hdcPrint);
-      /* StartPage clobbers all the DC settings */
-      SetMapMode(wi.hdcPrint, MM_ANISOTROPIC);      /* For SetViewportExt */
+      // StartPage clobbers all the DC settings.
+      SetMapMode(wi.hdcPrint, MM_ANISOTROPIC);      // For SetViewportExt
       SetViewportOrg(wi.hdcPrint, 0, 0);
       SetViewportExt(wi.hdcPrint, GetDeviceCaps(wi.hdcPrint, HORZRES),
         GetDeviceCaps(wi.hdcPrint, VERTRES));
@@ -763,8 +792,8 @@ void PrintCh(char ch)
 {
   char sz[2];
 
-  sz[0] = ch; sz[1] = chNull;    /* Treat char as a string of length one. */
-  PrintSz(sz);                   /* Then call above to print the string.  */
+  sz[0] = ch; sz[1] = chNull;    // Treat char as a string of length one.
+  PrintSz(sz);                   // Then call above to print the string.
 }
 
 
@@ -788,7 +817,7 @@ void PrintSzScreen(CONST char *sz)
 void PrintProgress(CONST char *sz)
 {
 #ifndef WIN
-  /* Progress messages are ignored in the Windows version. */
+  // Progress messages are ignored in the Windows version.
   AnsiColor(kYellowA);
   fprintf(stderr, "%s\n", sz);
   AnsiColor(kDefault);
@@ -858,30 +887,66 @@ void PrintError(CONST char *sz)
 }
 
 
-/* Simplification for a commonly printed error message. */
+// Print error message for missing parameters to a command switch.
 
-void ErrorArgc(CONST char *szOpt)
+flag FErrorArgc(CONST char *szOpt, int carg, int cargMax)
 {
   char sz[cchSzDef];
 
-  sprintf(sz, "Too few options to switch %c%s", chSwitch, szOpt);
+  carg--;
+  if (carg >= cargMax)
+    return fFalse;
+  sprintf(sz, "Too few options to switch %c%s (%d given, %d required)",
+    chSwitch, szOpt, carg, cargMax);
   PrintError(sz);
+  return fTrue;
 }
 
 
-/* Another simplification for a commonly printed error message. */
+// Print error message for out of range integer parameter to a command switch.
 
-void ErrorValN(CONST char *szOpt, int nVal)
+flag FErrorValN(CONST char *szOpt, flag f, int nVal, int nPar)
 {
-  char sz[cchSzDef];
+  char sz[cchSzMax], szPar[cchSzDef];
 
-  sprintf(sz, "Value %d passed to switch %c%s out of range.\n",
-    nVal, chSwitch, szOpt);
+  if (!f)
+    return fFalse;
+  if (nPar <= 0)
+    szPar[0] = chNull;
+  else
+    sprintf(szPar, "parameter #%d of ", nPar);
+  sprintf(sz, "Value %d passed to %sswitch %c%s out of range.\n",
+    nVal, szPar, chSwitch, szOpt);
   PrintError(sz);
+  return fTrue;
 }
 
 
-/* Yet another place to print a type of error message. */
+// Print error message for out of range real parameter to a command switch.
+
+flag FErrorValR(CONST char *szOpt, flag f, real rVal, int nPar)
+{
+  char sz[cchSzMax], szPar[cchSzDef], szVal[cchSzDef];
+
+  if (!f)
+    return fFalse;
+  if (nPar <= 0)
+    szPar[0] = chNull;
+  else
+    sprintf(szPar, "parameter #%d of ", nPar);
+  if (rVal != rLarge) {
+    FormatR(szVal, rVal, -6);
+    sprintf(sz, "Value %s passed to %sswitch %c%s out of range.\n",
+      szVal, szPar, chSwitch, szOpt);
+  } else
+    sprintf(sz, "Bad value passed to %sswitch %c%s\n",
+      szPar, chSwitch, szOpt);
+  PrintError(sz);
+  return fTrue;
+}
+
+
+// Print error message for a disallowed command switch.
 
 void ErrorArgv(CONST char *szOpt)
 {
@@ -892,7 +957,7 @@ void ErrorArgv(CONST char *szOpt)
 }
 
 
-/* Still another place to print a type of error message. */
+// Print error message for a completely unknown command switch.
 
 void ErrorSwitch(CONST char *szOpt)
 {
@@ -948,8 +1013,8 @@ void AnsiColor(int k)
   }
 #endif
 
-  /* Special case: If we are passed the value Reverse, and Ansi color is */
-  /* not only on but set to a value > 1, then enter reverse video mode.  */
+  // Special case: If passed the "color" Reverse, and Ansi color is not only
+  // on but set to a value > 1, then enter reverse video mode.
 
   if (!us.fAnsiColor || (k == kReverse && us.fAnsiColor < 2))
     return;
@@ -1005,13 +1070,13 @@ void PrintZodiac(real deg)
 
 char *SzZodiac(real deg)
 {
-  static char szZod[11];
+  static char szZod[12];
   int sign, d, m;
   real s;
 
   switch (us.nDegForm) {
   case 0:
-    /* Normally, we format the position in degrees/sign/minutes format. */
+    // Normally, format the position in degrees/sign/minutes format.
 
     sign = (int)deg / 30;
     d = (int)deg - sign*30;
@@ -1024,7 +1089,7 @@ char *SzZodiac(real deg)
     break;
 
   case 1:
-    /* However, if -sh switch in effect, get position in hours/minutes. */
+    // However, if -sh switch in effect, get position in hours/minutes.
 
     d = (int)deg / 15;
     m = (int)((deg - (real)d*15.0)*4.0);
@@ -1036,7 +1101,7 @@ char *SzZodiac(real deg)
     break;
 
   default:
-    /* Otherwise, if -sd in effect, format position as a simple degree. */
+    // Otherwise, if -sd in effect, format position as a simple degree.
 
     sprintf(szZod, is.fSeconds ? "%11.7f" : "%7.3f", deg);
     break;
@@ -1275,14 +1340,9 @@ char *SzElevation(real elv)
   static char szElev[21];
   char *pch;
 
-  sprintf(szElev, "%.2f", us.fEuroDist ? elv : elv / rFtToM);
+  FormatR(szElev, us.fEuroDist ? elv : elv / rFtToM, -2);
   for (pch = szElev; *pch; pch++)
     ;
-  while (*(--pch) == '0')  /* Drop off any trailing 0 digits. */
-    ;
-  if (*pch != '.')
-    pch++;
-  *pch = chNull;
   sprintf(pch, "%s", us.fEuroDist ? "m" : "ft");
   return szElev;
 }
@@ -1296,14 +1356,9 @@ char *SzLength(real len)
   static char szLen[21];
   char *pch;
 
-  sprintf(szLen, "%.2f", !us.fEuroDist ? len : len * rInToCm);
+  FormatR(szLen, !us.fEuroDist ? len : len * rInToCm, -2);
   for (pch = szLen; *pch; pch++)
     ;
-  while (*(--pch) == '0')  /* Drop off any trailing 0 digits. */
-    ;
-  if (*pch != '.')
-    pch++;
-  *pch = chNull;
   sprintf(pch, "%s", us.fEuroDist ? "cm" : "in");
   return szLen;
 }
@@ -1324,7 +1379,7 @@ void GetTimeNow(int *mon, int *day, int *yea, real *tim, real dst, real zon)
 
   GetSystemTime(&st);
   if (dst == dstAuto) {
-    /* Daylight field of 24 means autodetect whether Daylight Saving Time. */
+    // Daylight field of 24 means autodetect whether Daylight Saving Time.
 
     GetLocalTime(&lt);
     dh = NAbs(st.wHour - lt.wHour);
@@ -1363,11 +1418,11 @@ void GetTimeNow(int *mon, int *day, int *yea, real *tim, real dst, real zon)
     curtimer++;
     hr -= 24.0;
   }
-  curtimer += ldTime;  /* Number of days between 1/1/1970 and 1/1/4713 BC. */
+  curtimer += ldTime;  // Number of days between 1/1/1970 and 1/1/4713 BC.
   JulianToMdy((real)curtimer, mon, day, yea);
   *tim = HMS(hr, min, sec);
   if (dst == dstAuto) {
-    /* Daylight field of 24 means autodetect whether Daylight Saving Time. */
+    // Daylight field of 24 means autodetect whether Daylight Saving Time.
 
     SetCI(ci, *mon, *day, *yea, *tim, 0.0, zon, us.lonDef, us.latDef);
     if (DisplayAtlasLookup(us.locDef, 0, &i) &&
@@ -1431,12 +1486,12 @@ char *SzPersist(char *szSrc)
   char *szNew;
   int cb;
 
-  /* Some strings such as outer level command line parameter arguments */
-  /* already persist, so we can just return the same string passed in. */
+  // Some strings such as outer level command line parameter arguments
+  // already persist, so we can just return the same string passed in.
   if (is.fSzPersist)
     return szSrc;
 
-  /* Otherwise make a copy of the string and use it. */
+  // Otherwise make a copy of the string and use it.
   cb = CchSz(szSrc)+1;
   szNew = (char *)PAllocate(cb, "string");
   is.cAlloc--;
@@ -1460,7 +1515,7 @@ pbyte PAllocate(long cb, CONST char *szType)
   pb = (pbyte)PAllocateCore(cb);
 #endif
 
-  /* Handle success or failure of the allocation. */
+  // Handle success or failure of the allocation.
   if (pb == NULL && szType) {
     sprintf(szT, "%s: Not enough memory for %s (%ld bytes).",
       szAppName, szType, cb);
@@ -1472,7 +1527,7 @@ pbyte PAllocate(long cb, CONST char *szType)
   }
 
 #ifdef DEBUG
-  /* Put sentinels at ends of allocation to check for buffer overruns. */
+  // Put sentinels at ends of allocation to check for buffer overruns.
   *(dword *)pb = dwCanary;
   *(dword *)(pb + sizeof(dword)) = cb;
   *(dword *)(pb + sizeof(dword)*2 + cb) = dwCanary;
@@ -1489,7 +1544,7 @@ void DeallocateP(void *pv)
 {
   Assert(pv != NULL);
 #ifdef DEBUG
-  /* Ensure buffer wasn't overrun during its existence. */
+  // Ensure buffer wasn't overrun during its existence.
   pbyte pbSys;
   dword lcb, dw;
 
diff --git a/intrpret.cpp b/intrpret.cpp
index 92e1163..44a64ee 100644
--- a/intrpret.cpp
+++ b/intrpret.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: intrpret.cpp
+** Astrolog (Version 7.10) File: intrpret.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -71,7 +71,7 @@ void FieldWord(CONST char *sz)
   int ich = 0, i, j;
   char ch;
 
-  /* Display buffer if function called with a null string. */
+  // Display buffer if function called with a null string.
 
   if (sz == NULL)
     sz = "\n";
@@ -90,7 +90,7 @@ void FieldWord(CONST char *sz)
     }
     line[cursor] = ch;
 
-    /* When buffer overflows 'n' columns, display one line and start over. */
+    // When buffer overflows 'n' columns, display one line and start over.
 
     if (cursor >= us.nScreenWidth-1) {
       for (i = us.nScreenWidth-1; i > 2 && line[i] != ' '; i--)
@@ -115,7 +115,7 @@ void FieldWord(CONST char *sz)
 void InterpretGeneral(void)
 {
   char sz[cchSzMax];
-  int i;
+  int i, j;
 
   FieldWord(
     "Signs of the zodiac represent psychological characteristics.\n\n");
@@ -139,7 +139,8 @@ void InterpretGeneral(void)
 
   PrintL();
   FieldWord("Planets represent various parts of one's mind or self.\n\n");
-  for (i = 0; i <= cObjInt; i++) {
+  for (j = 0; j <= cObjInt; j++) {
+    i = rgobjList[j];
     if (ignore[i] || FCusp(i))
       continue;
     AnsiColor(kObjA[i]);
@@ -214,7 +215,7 @@ void InterpretLocation(void)
     FieldWord("in the area of life dealing with");
     sprintf(sz, "%s.", szLifeArea[inhouse[i]]); FieldWord(sz);
 
-    /* Extra information if planet is in its ruling, falling, etc, sign. */
+    // Extra information if planet is in its ruling, exalting, etc, sign.
 
     if (c == 'R')
       FieldWord("This is a major aspect of their psyche!");
@@ -312,7 +313,7 @@ void InterpretInDay(int source, int aspect, int dest)
   if (source > cObjInt || dest > cObjInt)
     return;
 
-  /* Interpret object changing direction. */
+  // Interpret object changing direction.
 
   if (aspect == aDir) {
     AnsiColor(kObjA[source]);
@@ -322,7 +323,7 @@ void InterpretInDay(int source, int aspect, int dest)
       "the standard, direct, open");
     FieldWord("manner.\n");
 
-  /* Interpret object entering new sign. */
+  // Interpret object entering new sign.
 
   } else if (aspect == aSig) {
     AnsiColor(kObjA[source]);
@@ -331,7 +332,7 @@ void InterpretInDay(int source, int aspect, int dest)
     FieldWord(sz);
     sprintf(sz, "and it %s.\n", szDesire[dest]); FieldWord(sz);
 
-  /* Interpret aspect between transiting planets. */
+  // Interpret aspect between transiting planets.
 
   } else if (FInterpretAsp(aspect)) {
     AnsiColor(kAspA[aspect]);
@@ -417,7 +418,7 @@ void InterpretSynastry(void)
     sprintf(sz, "affects %s in the area of life dealing with %s.",
       szPerson1, szLifeArea[inhouse[i]]); FieldWord(sz);
 
-    /* Extra information if planet is in its ruling, falling, etc, sign. */
+    // Extra information if planet is in its ruling, exalting, etc, sign.
 
     if (c == 'R') {
       sprintf(sz, "This is a major aspect of %s's psyche!", szPerson2);
@@ -547,8 +548,7 @@ void SortRank(real *value, int *rank, int size)
       }
     }
 
-    /* 'k' is the current position of the 'i'th place planet. */
-
+    // 'k' is the current position of the 'i'th place planet.
     rank[k] = i;
   }
 }
@@ -567,32 +567,32 @@ void ComputeInfluence(real power1[objMax], real power2[objMax])
   for (i = 0; i <= cObj; i++)
     power1[i] = power2[i] = 0.0;
 
-  /* First, for each object, find its power based on its placement alone. */
+  // First, for each object, find its power based on its placement alone.
 
   for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
     j = SFromZ(planet[i]);
-    power1[i] += RObjInf(i);               /* Influence of planet itself. */
-    power1[i] += rHouseInf[inhouse[i]];    /* Influence of house it's in. */
+    power1[i] += RObjInf(i);               // Influence of planet itself.
+    power1[i] += rHouseInf[inhouse[i]];    // Influence of house it's in.
     x = 0.0;
     c = Dignify(i, j);
-    if (c[rrStd+1] == 'R') x += rObjInf[oNorm1+1]; /* Planets in signs they */
-    if (c[rrExa+1] == 'X') x += rObjInf[oNorm1+2]; /* rule or are exalted   */
-    if (c[rrEso+1] == 'S') x += rObjInf[oNorm1+3]; /* in have influence.    */
+    if (c[rrStd+1] == 'R') x += rObjInf[oNorm1+1];  // Planets in signs they
+    if (c[rrExa+1] == 'X') x += rObjInf[oNorm1+2];  // rule or are exalted
+    if (c[rrEso+1] == 'S') x += rObjInf[oNorm1+3];  // in have influence.
     if (c[rrHie+1] == 'H') x += rObjInf[oNorm1+4];
     if (c[rrRay+1] == 'Y') x += rObjInf[oNorm1+5];
     c = Dignify(i, inhouse[i]);
-    if (c[rrStd+1] == 'R') x += rHouseInf[cSign+1]; /* Planets in houses  */
-    if (c[rrExa+1] == 'X') x += rHouseInf[cSign+2]; /* aligned with sign  */
-    if (c[rrEso+1] == 'S') x += rHouseInf[cSign+3]; /* ruled or exalted   */
-    if (c[rrHie+1] == 'H') x += rHouseInf[cSign+4]; /* in have influence. */
+    if (c[rrStd+1] == 'R') x += rHouseInf[cSign+1];  // Planets in houses
+    if (c[rrExa+1] == 'X') x += rHouseInf[cSign+2];  // aligned with sign
+    if (c[rrEso+1] == 'S') x += rHouseInf[cSign+3];  // ruled or exalted
+    if (c[rrHie+1] == 'H') x += rHouseInf[cSign+4];  // in have influence.
     if (c[rrRay+1] == 'Y') x += rHouseInf[cSign+5];
     power1[i] += x;
     x = RObjInf(i)/2.0;
     if (!ignore7[rrStd]) {
-      if (i != rules[j])                      /* The planet ruling the sign */
-        power1[rules[j]] += x;                /* and the house that the     */
-      if (i != (j = rules[inhouse[i]]))       /* current planet is in, gets */
-        power1[j] += x;                       /* extra influence.           */
+      if (i != rules[j])                       // The planet ruling the sign
+        power1[rules[j]] += x;                 // and the house that the
+      if (i != (j = rules[inhouse[i]]))        // current planet is in, gets
+        power1[j] += x;                        // extra influence.
     }
     if (!ignore7[rrEso]) {
       k = rgSignEso1[j];          if (k > 0 && i != k) power1[k] += x;
@@ -607,9 +607,9 @@ void ComputeInfluence(real power1[objMax], real power2[objMax])
       k = rgSignHie2[inhouse[i]]; if (k > 0 && i != k) power1[k] += x;
     }
   }
-  for (i = 1; i <= cSign; i++) {         /* Various planets get influence */
-    j = SFromZ(chouse[i]);               /* if house cusps fall in signs  */
-    power1[rules[j]] += rHouseInf[i];    /* they rule.                    */
+  for (i = 1; i <= cSign; i++) {         // Various planets get influence
+    j = SFromZ(chouse[i]);               // if house cusps fall in signs
+    power1[rules[j]] += rHouseInf[i];    // they rule.
     if (!ignore7[rrEso]) {
       k = rgSignEso1[j]; if (k) power1[k] += rHouseInf[i];
       k = rgSignEso2[j]; if (k) power1[k] += rHouseInf[i];
@@ -620,7 +620,7 @@ void ComputeInfluence(real power1[objMax], real power2[objMax])
     }
   }
 
-  /* Second, for each object, find its power based on aspects it makes. */
+  // Second, for each object, find its power based on aspects it makes.
 
   if (!FCreateGrid(fFalse))
     return;
@@ -635,14 +635,14 @@ void ComputeInfluence(real power1[objMax], real power2[objMax])
     }
 
 #ifdef EXPRESS
-  /* Adjust powers if AstroExpression set to do so. */
+  // Adjust powers if AstroExpression set to do so.
 
   if (!us.fExpOff && FSzSet(us.szExpInf))
     for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
       ExpSetN(iLetterX, i);
       ExpSetR(iLetterY, power1[i]);
       ExpSetR(iLetterZ, power2[i]);
-      NParseExpression(us.szExpInf);
+      ParseExpression(us.szExpInf);
       power1[i] = RExpGet(iLetterY);
       power2[i] = RExpGet(iLetterZ);
     }
@@ -663,7 +663,7 @@ void ChartInfluence(void)
 
   ComputeInfluence(power1, power2);
 
-  /* Calculate total power of each planet. */
+  // Calculate total power of each planet.
 
   total = total1 = total2 = 0.0;
   for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
@@ -671,12 +671,15 @@ void ChartInfluence(void)
   }
   total = total1+total2;
 
-  /* Finally, determine ranks of the arrays, then print everything out. */
+  // Finally, determine ranks of the arrays, then print everything out.
 
   SortRank(power1, rank1, cObj); SortRank(power2, rank2, cObj);
   SortRank(power, rank, cObj);
   PrintSz("  Planet:    Position      Aspects    Total Rank  Percent\n");
-  for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
+  for (j = 0; j <= cObj; j++) {
+    i = rgobjList[j];
+    if (FIgnore(i))
+      continue;
     AnsiColor(kObjA[i]);
     sprintf(sz, "%8.8s: ", szObjDisp[i]); PrintSz(sz);
     sprintf(sz, "%6.1f (%2d) +%6.1f (%2d) =%7.1f (%2d) /%6.1f%%\n",
@@ -687,16 +690,16 @@ void ChartInfluence(void)
   sprintf(sz, "   Total: %6.1f      +%6.1f      =%7.1f      / 100.0%%\n",
     total1, total2, total); PrintSz(sz);
 
-  /* Now, print out a list of power values and relative rankings, based on  */
-  /* the power of each sign of the zodiac, as indicated by the placement of */
-  /* the planets above, in the chart, as specified with the -j0 switch.     */
+  // Now, print out a list of power values and relative rankings, based on the
+  // power of each sign of the zodiac, as indicated by the placement of the
+  // planets above, in the chart, as specified with the -j0 switch.
 
   if (!us.fInfluenceSign)
     return;
   for (i = 1; i <= cSign; i++)
     power1[i] = 0.0;
 
-  /* For each sign, determine its power based on the power of the object. */
+  // For each sign, determine its power based on the power of the object.
 
   for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
     power1[SFromZ(planet[i])] += power[i] / 2.0;
@@ -705,7 +708,7 @@ void ChartInfluence(void)
     if (ruler2[i])
       power1[ruler2[i]]       += power[i] / 4.0;
   }
-  for (i = cThing+1; i <= oCore; i++) if (!ignore[i]) {
+  for (i = cThing+1; i <= oCore; i++) if (!FIgnore(i)) {
     power1[SFromZ(planet[i])] += rObjInf[i];
   }
 
@@ -717,7 +720,7 @@ void ChartInfluence(void)
       power1[i] *= total/total1;
   total1 = total;
 
-  /* Again, determine ranks in the array, and print everything out. */
+  // Again, determine ranks in the array, and print everything out.
 
   SortRank(power1, rank1, cSign);
   PrintSz(
diff --git a/io.cpp b/io.cpp
index 5b1b9ed..a79751f 100644
--- a/io.cpp
+++ b/io.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: io.cpp
+** Astrolog (Version 7.10) File: io.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -74,7 +74,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
 #endif
   int i, j;
 
-  /* Some file types we want to open as binary instead of Ascii. */
+  // Some file types we want to open as binary instead of Ascii.
   sprintf(szMode, "r%s", nFileMode == 2 ? "b" : "");
 
   for (i = 0; i <= 1; i++) {
@@ -86,7 +86,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
       sprintf(szFileT, "%s.as", szFile);
     }
 
-    /* First look for the file in the directory of the Astrolog executable. */
+    // First look for the file in the directory of the Astrolog executable.
 #ifdef WIN
     GetModuleFileName(wi.hinst, sz, cchSzMax);
 #else
@@ -103,13 +103,13 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
     if (file != NULL)
       goto LDone;
 
-    /* Next look for the file in the current directory. */
+    // Next look for the file in the current directory.
     sprintf(sz, "%s", szFileT);
     file = fopen(sz, szMode);
     if (file != NULL)
       goto LDone;
 
-    /* Next look in the directories indicated by the -Yi switch. */
+    // Next look in the directories indicated by the -Yi switch.
     for (j = 0; j < 10; j++)
       if (us.rgszPath[j] && *us.rgszPath[j]) {
         sprintf(sz, "%s%c%s", us.rgszPath[j], chDirSep, szFileT);
@@ -119,8 +119,8 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
       }
 
 #ifdef ENVIRON
-    /* Next look for the file in the directory indicated by the version */
-    /* specific system environment variable.                            */
+    // Next look for the file in the directory indicated by the version
+    // specific system environment variable.
     sprintf(sz, "%s%s", ENVIRONVER, szVerCore);
     env = getenv(sz);
     if (env && *env) {
@@ -130,7 +130,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
         goto LDone;
     }
 
-    /* Next look in the directory in the general environment variable. */
+    // Next look in the directory in the general environment variable.
     env = getenv(ENVIRONALL);
     if (env && *env) {
       sprintf(sz, "%s%c%s", env, chDirSep, szFileT);
@@ -139,7 +139,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
         goto LDone;
     }
 
-    /* Next look in directory in the version prefix environment variable. */
+    // Next look in directory in the version prefix environment variable.
     env = getenv(ENVIRONVER);
     if (env && *env) {
       sprintf(sz, "%s%c%s", env, chDirSep, szFileT);
@@ -149,7 +149,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
     }
 #endif
 
-    /* Finally look in one of several compile time specified directories. */
+    // Finally look in one of several compile time specified directories.
     sprintf(sz, "%s%c%s", nFileMode == 0 ? DEFAULT_DIR :
       (nFileMode == 1 ? CHART_DIR : EPHE_DIR), chDirSep, szFileT);
     file = fopen(sz, szMode);
@@ -158,8 +158,8 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
   }
 
   if (file == NULL && FOdd(nFileMode)) {
-    /* If file was never found, print an error (unless we were looking */
-    /* for a certain file type, e.g. the optional astrolog.as file).   */
+    // If file was never found, print an error (unless we were looking for a
+    // certain file type, e.g. the optional astrolog.as file).
     sprintf(sz, "File '%s' not found.", szFile);
     PrintError(sz);
   }
@@ -179,7 +179,7 @@ FILE *FileOpen(CONST char *szFile, int nFileMode, char *szPath)
 
 flag FProcessSwitchFile(CONST char *szFile, FILE *file)
 {
-  char szLine[cchSzMax], *argv[MAXSWITCHES], ch;
+  char szLine[cchSzLine], *argv[MAXSWITCHES], ch;
   int argc, i;
   flag fRet = fFalse;
 
@@ -190,7 +190,7 @@ flag FProcessSwitchFile(CONST char *szFile, FILE *file)
   }
   is.fileIn = file;
 
-  /* All files have to begin with the -@ switch file type identifier. */
+  // All files have to begin with the -@ switch file type identifier.
   ch = getc(file); ungetc(ch, file);
   if (ch != '@') {
     sprintf(szLine,
@@ -205,7 +205,7 @@ flag FProcessSwitchFile(CONST char *szFile, FILE *file)
       ;
     if (feof(file))
       break;
-    for (szLine[0] = ch, i = 1; i < cchSzMax && !feof(file) &&
+    for (szLine[0] = ch, i = 1; i < cchSzLine-1 && !feof(file) &&
       (uchar)(szLine[i] = getc(file)) >= ' '; i++)
       ;
     szLine[i] = chNull;
@@ -232,9 +232,11 @@ flag FOutputData(void)
   int i, j;
   real dst, rT;
 
+  if (us.fWriteDef)              // If -od switch in effect then write
+    return FOutputSettings();    // current program settings to file.
   if (us.fNoWrite)
     return fFalse;
-  file = fopen(is.szFileOut, "w");  /* Create and open the file for output. */
+  file = fopen(is.szFileOut, "w");  // Create and open the file for output.
   if (file == NULL) {
     sprintf(sz, "File '%s' can not be created.", is.szFileOut);
     PrintError(sz);
@@ -242,7 +244,7 @@ flag FOutputData(void)
   }
   if (!us.fWritePos) {
 
-    /* Write the chart information to the file. */
+    // Write the chart information to the file.
 
     if (Mon < 1) {
       fclose(file);
@@ -263,7 +265,7 @@ flag FOutputData(void)
         Day, Yea, SzTim(Tim), Dst == 0.0 ? "ST" : (Dst == 1.0 ? "DT" :
         Dst == dstAuto ? "Autodetect" : SzZone(Dst)));
       fprintf(file, "%s %s\n", SzZone(Zon), SzLocation(Lon, Lat));
-      /* Don't want double quotes within double quoted string parameters. */
+      // Don't want double quotes within double quoted string parameters.
       for (pch = ciMain.nam; *pch; pch++)
         if (*pch == '"')
           *pch = '\'';
@@ -275,18 +277,18 @@ flag FOutputData(void)
     }
   } else {
 
-    /* However, if the -o0 switch is in effect, then write the actual */
-    /* positions of the planets and houses to the file instead.       */
+    // However, if the -o0 switch is in effect, then write the actual
+    // positions of the planets and houses to the file instead.
 
     if (us.fWriteOld) {
       for (i = 1; i <= oNorm; i++) {
         j = (int)planet[i];
         fprintf(file, "%.3s: %2d %2d %10.7f\n", szObjName[i],
-          j%30, j/30+1, RFract(planet[i])*60.0);              /* Position */
+          j%30, j/30+1, RFract(planet[i])*60.0);              // Position
         rT = planetalt[i];
-        fprintf(file, "[%c]: %3d %12.8f\n",                   /* Altitude */
+        fprintf(file, "[%c]: %3d %12.8f\n",                   // Altitude
           ret[i] >= 0.0 ? 'D' : chRet, (int)(RSgn(rT)*
-          RFloor(RAbs(rT))), (rT-(real)(int)rT)*60.0);     /* Retrograde? */
+          RFloor(RAbs(rT))), (rT-(real)(int)rT)*60.0);        // Retrograde?
         if (i == oNod)
           i = oFor-1;
         else if (i == oFor)
@@ -295,10 +297,10 @@ flag FOutputData(void)
           i = oAsc-1;
         else if (i == oAsc)
           i = oVtx-1;
-        else if (i == oVtx)    /* Skip minor cusps to write Uranians  */
+        else if (i == oVtx)    // Skip minor cusps to write Uranians
           i = us.fUranian ? uranLo-1 : cObj;
       }
-      for (i = 1; i <= cSign/2; i++) {   /* Write first six cusp positions */
+      for (i = 1; i <= cSign/2; i++) {    // Write first six cusp positions
         j = (int)chouse[i];
         fprintf(file, "H_%c: %2d %2d %10.7f\n",
           'a'+i-1, j%30, j/30+1, RFract(chouse[i])*60.0);
@@ -328,8 +330,8 @@ flag FOutputData(void)
     }
   }
 
-  /* Now write any extra strings that were on the command line after the -o */
-  /* specification but before the next switch, to the file as comments.     */
+  // Now write any extra strings that were on the command line after the -o
+  // specification but before the next switch, to the file as comments.
 
   for (i = 1; i < is.cszComment; i++) {
     is.rgszComment++;
@@ -340,12 +342,365 @@ flag FOutputData(void)
 }
 
 
+/* Take many of the user visible settings, and write them out to a new   */
+/* command switch file, which may be read in to restore those settings.  */
+/* Most often this would be used to create a new astrolog.as default     */
+/* settings file. This is called from File / Save Settings menu command. */
+
+flag FOutputSettings()
+{
+  char sz[cchSzDef];
+  FILE *file;
+  int i;
+  flag f1, f2;
+
+  if (us.fNoWrite)
+    return fFalse;
+  file = fopen(is.szFileOut, "w");    // Create and open the file for output.
+  if (file == NULL) {
+    sprintf(sz, "Settings file %s can not be created.", is.szFileOut);
+    PrintError(sz);
+    return fFalse;
+  }
+
+  sprintf(sz, "@AD%s  ; %s %s default settings file %s\n\n",
+    szVerCore, szAppName, szVersionCore, DEFAULT_INFOFILE); PrintFSz();
+
+  f1 = is.fSeconds; is.fSeconds = fTrue;
+  sprintf(sz, "-z %s                ", SzZone(us.zonDef)); PrintFSz();
+  is.fSeconds = f1;
+  PrintF("; Default time zone     [hours W or E of UTC   ]\n");
+  if (us.dstDef != dstAuto)
+    sprintf(sz, "-z0 %d                   ", (int)us.dstDef);
+  else
+    sprintf(sz, "-z0 Autodetect          ");
+  PrintFSz();
+  PrintF("; Default Daylight time [0 standard, 1 daylight]\n");
+  f1 = us.fAnsiChar; us.fAnsiChar = 3;
+  f2 = is.fSeconds; is.fSeconds = fTrue;
+  sprintf(sz, "-zl %s  ", SzLocation(us.lonDef, us.latDef)); PrintFSz();
+  us.fAnsiChar = f1; is.fSeconds = f2;
+  PrintF("; Default location      [longitude and latitude]\n");
+  sprintf(sz, "-zv %s               ", SzElevation(us.elvDef)); PrintFSz();
+  PrintF("; Default elevation     [in feet or meters     ]\n");
+  sprintf(sz, "-zj \"%s\" \"%s\" ; Default name and location\n\n",
+    us.namDef, us.locDef); PrintFSz();
+
+  PrintF("-n      "
+    "; Comment out this line to not start with chart for \"now\".\n");
+  sprintf(sz, "-Yz %ld   ", us.lTimeAddition); PrintFSz();
+  PrintF(
+    "; Time minute addition to be used if \"now\" charts are offset.\n\n");
+
+  sprintf(sz, "%cs      ", ChDashF(us.fSidereal)); PrintFSz();
+  PrintF(
+    "; Zodiac selection          [\"_s\" is tropical, \"=s\" is sidereal]\n");
+  PrintF(":s "); FormatR(sz, us.rZodiacOffset, 6); PrintFSz();
+  PrintF(
+    "  ; Zodiac offset value       [Change \"0.0\" to desired ayanamsa  ]\n");
+  sprintf(sz, "-A %d    ", us.nAsp); PrintFSz();
+  PrintF(
+    "; Number of aspects         [Change \"5\" to desired number      ]\n");
+  i = us.nHouseSystem; sprintf(sz, "-c %.4s ", i == hsEqualMC ?
+    rgSystem[1].sz : (i == hsSinewaveDelta ? rgSystem[3].sz : szSystem[i]));
+  PrintFSz();
+  PrintF(
+    "; House system              [Change \"Plac\" to desired system   ]\n");
+  sprintf(sz, "%cc3     ", ChDashF(us.fHouse3D)); PrintFSz();
+  PrintF(
+    "; 3D house boundaries       [\"=c3\" is 3D houses, \"_c3\" is 2D   ]\n");
+  sprintf(sz, "%ck      ", ChDashF(us.fAnsiColor)); PrintFSz();
+  PrintF(
+    "; Ansi color text           [\"=k\" is color, \"_k\" is monochrome ]\n");
+  sprintf(sz, ":d %d   ", us.nDivision); PrintFSz();
+  PrintF(
+    "; Searching divisions       [Change \"48\" to desired divisions  ]\n");
+  sprintf(sz, "%cb0     ", ChDashF(us.fSeconds)); PrintFSz();
+  PrintF(
+    "; Print zodiac seconds      [\"_b0\" to minute, \"=b0\" to second  ]\n");
+  sprintf(sz, "%cb      ", ChDashF(us.fEphemFiles)); PrintFSz();
+  PrintF(
+    "; Use ephemeris files       [\"=b\" uses them, \"_b\" doesn't      ]\n");
+  sprintf(sz, ":w %d    ", us.nWheelRows); PrintFSz();
+  PrintF(
+    "; Wheel chart text rows     [Change \"0\" to desired wheel rows  ]\n");
+  sprintf(sz, ":I %d   ", us.nScreenWidth); PrintFSz();
+  PrintF(
+    "; Text screen columns       [Change \"80\" to desired columns    ]\n");
+  sprintf(sz, "-YQ %d   ", us.nScrollRow); PrintFSz();
+  PrintF(
+    "; Text screen scroll limit  [Change \"24\" or set to \"0\" for none]\n");
+  sprintf(sz, "%cYd     ", ChDashF(us.fEuroDate)); PrintFSz();
+  PrintF(
+    "; European date format      [\"_Yd\" is MDY, \"=Yd\" is DMY        ]\n");
+  sprintf(sz, "%cYt     ", ChDashF(us.fEuroTime)); PrintFSz();
+  PrintF(
+    "; European time format      [\"_Yt\" is AM/PM, \"=Yt\" is 24 hour  ]\n");
+  sprintf(sz, "%cYv     ", ChDashF(us.fEuroDist)); PrintFSz();
+  PrintF(
+    "; European length units     [\"_Yv\" is imperial, \"=Yv\" is metric]\n");
+  sprintf(sz, "%cYr     ", ChDashF(us.fRound)); PrintFSz();
+  PrintF(
+    "; Show rounded positions    [\"=Yr\" rounds, \"_Yr\" doesn't       ]\n");
+  sprintf(sz, "%cYC     ", ChDashF(us.fSmartCusp)); PrintFSz();
+  PrintF(
+    "; Smart cusp displays       [\"=YC\" is smart, \"_YC\" is normal   ]\n");
+  sprintf(sz, "%cYO     ", ChDashF(us.fSmartSave)); PrintFSz();
+  PrintF(
+    "; Smart copy and printing   [\"=YO\" does it smart, \"_YO\" doesn't]\n");
+  sprintf(sz, "%cY8     ", ChDashF(us.fClip80)); PrintFSz();
+  PrintF(
+    "; Clip text to end of line  [\"=Y8\" clips, \"_Y8\" doesn't clip   ]\n");
+  sprintf(sz, "%cYu     ", ChDashF(us.fEclipse)); PrintFSz();
+  PrintF(
+    "; Show eclipse information  [\"=Yu\" shows, \"_Yu\" doesn't show   ]\n");
+
+  PrintF("\n\n; FILE PATHS (-Yi1 through -Yi9):\n; For example, "
+    "point -Yi1 to ephemeris dir, -Yi2 to chart files dir, etc.\n\n");
+  for (i = 0; i < 10; i++)
+    if (us.rgszPath[i] && *us.rgszPath[i]) {
+      sprintf(sz, "-Yi%d \"%s\"\n", i, us.rgszPath[i]); PrintFSz();
+    }
+
+  PrintF("\n\n; DEFAULT RESTRICTIONS:\n"
+    ";  0-10: Ear Sun Moo Mer Ven Mar Jup Sat Ura Nep Plu\n"
+    "; 11-21: Chi Cer Pal Jun Ves Nor Sou Lil For Ver EP\n"
+    "; 22-33: Asc 2nd 3rd Nad 5th 6th Des 8th 9th MC 11th 12th\n"
+    "; 34-42: Vul Cup Had Zeu Kro Apo Adm Vulk Pos\n\n-YR 0 10     ");
+  for (i = 0; i <= 10; i++) PrintF(SzNumF(ignore[i]));
+  PrintF("   ; Planets\n-YR 11 21    ");
+  for (i = 11; i <= 21; i++) PrintF(SzNumF(ignore[i]));
+  PrintF("   ; Minor planets\n-YR 22 33    ");
+  for (i = 22; i <= 33; i++) PrintF(SzNumF(ignore[i]));
+  PrintF(" ; House cusps\n-YR 34 42    ");
+  for (i = 34; i <= 42; i++) PrintF(SzNumF(ignore[i]));
+  PrintF("       ; Uranians\n\n");
+
+  PrintF("; DEFAULT TRANSIT RESTRICTIONS:\n\n-YRT 0 10    ");
+  for (i = 0; i <= 10; i++) PrintF(SzNumF(ignore2[i]));
+  PrintF("   ; Planets\n-YRT 11 21   ");
+  for (i = 11; i <= 21; i++) PrintF(SzNumF(ignore2[i]));
+  PrintF("   ; Minor planets\n-YRT 22 33   ");
+  for (i = 22; i <= 33; i++) PrintF(SzNumF(ignore2[i]));
+  PrintF(" ; House cusps\n-YRT 34 42   ");
+  for (i = 34; i <= 42; i++) PrintF(SzNumF(ignore2[i]));
+  PrintF("       ; Uranians\n\n");
+
+  sprintf(sz, "-YR0 %s%s ; Restrict sign, direction changes\n\n",
+    SzNumF(us.fIgnoreSign), SzNumF(us.fIgnoreDir)); PrintFSz();
+  PrintF("-YR7 ");
+  for (i = 0; i < 5; i++) PrintF(SzNumF(ignore7[i]));
+  PrintF(" ; Restrict rulerships: std, esoteric, hierarch, exalt, ray\n\n\n");
+
+  PrintF("; DEFAULT ASPECT ORBS:\n"
+    ";  1- 5: Con Opp Squ Tri Sex\n"
+    ";  6-11: Inc SSx SSq Ses Qui BQn\n"
+    "; 12-18: SQn Sep Nov BNv BSp TSp QNv\n\n-YAo 1 5    ");
+  for (i = 1; i <= 5; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
+  PrintF("      ; Major aspects\n-YAo 6 11   ");
+  for (i = 6; i <= 11; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
+  PrintF("    ; Minor aspects\n-YAo 12 18  ");
+  for (i = 12; i <= 18; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
+  PrintF("  ; Obscure aspects\n\n");
+
+  PrintF("; DEFAULT MAX PLANET ASPECT ORBS:\n\n-YAm 0 10   ");
+  for (i = 0; i <= 10; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
+  PrintF("      ; Planets\n-YAm 11 21  ");
+  for (i = 11; i <= 21; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
+  PrintF("      ; Minor planets\n-YAm 22 33  ");
+  for (i = 22; i <= 33; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
+  PrintF("  ; Cusp objects\n-YAm 34 42  ");
+  for (i = 34; i <= 42; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
+  PrintF("              ; Uranians\n-YAm 43 43  ");
+  sprintf(sz, "%4.0f", rObjOrb[43]); PrintFSz();
+  PrintF("                                              ; Fixed stars\n");
+
+  PrintF("\n; DEFAULT PLANET ASPECT ORB ADDITIONS:\n\n-YAd 0 10   ");
+  for (i = 0; i <= 10; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
+  PrintF("    ; Planets\n-YAd 11 21  ");
+  for (i = 11; i <= 21; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
+  PrintF("    ; Minor planets\n-YAd 22 33  ");
+  for (i = 22; i <= 33; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
+  PrintF("  ; Cusp objects\n-YAd 34 42  ");
+  for (i = 34; i <= 42; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
+  PrintF("        ; Uranians\n-YAd 43 43  ");
+  sprintf(sz, " %.0f", rObjAdd[43]); PrintFSz();
+  PrintF("                        ; Fixed stars\n\n\n");
+
+  PrintF("; DEFAULT INFLUENCES:\n\n-Yj 0 10   ");
+  for (i = 0; i <= 10; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
+  PrintF("        ; Planets\n-Yj 11 21  ");
+  for (i = 11; i <= 21; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
+  PrintF("                ; Minor planets\n-Yj 22 33  ");
+  for (i = 22; i <= 33; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
+  PrintF("  ; Cusp objects\n-Yj 34 42  ");
+  for (i = 34; i <= 42; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
+  PrintF("                    ; Uranians\n-Yj 43 43   ");
+  sprintf(sz, "%.0f", rObjInf[43]); PrintFSz();
+  PrintF("                                    ; Fixed stars\n\n");
+
+  PrintF("-YjC 1 12  ");
+  for (i = 1; i <= cSign; i++)
+    { sprintf(sz, " %.0f", rHouseInf[i]); PrintFSz(); }
+  PrintF("  ; Houses\n\n-YjA 1 5   ");
+
+  for (i = 1; i <= 5; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
+  PrintF("          ; Major aspects\n-YjA 6 11  ");
+  for (i = 6; i <= 11; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
+  PrintF("      ; Minor aspects\n-YjA 12 18 ");
+  for (i = 12; i <= 18; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
+  PrintF("  ; Obscure aspects\n\n");
+
+  PrintF("; DEFAULT TRANSIT INFLUENCES:\n\n-YjT 0 10  ");
+  for (i = 0; i <= 10; i++)
+    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
+  PrintF("  ; Planets\n-YjT 11 21 ");
+  for (i = 11; i <= 21; i++)
+    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
+  PrintF("    ; Minor planets\n-YjT 34 42 ");
+  for (i = 34; i <= 42; i++)
+    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
+  PrintF("      ; Uranians\n-YjT 43 43  ");
+  sprintf(sz, "%.0f", rTransitInf[43]); PrintFSz();
+  PrintF("                             ; Fixed stars\n\n");
+
+  sprintf(sz, "-Yj0 %.0f %.0f %.0f %.0f ",
+    rObjInf[oNorm1 + 1], rObjInf[oNorm1 + 2], rHouseInf[cSign + 1],
+    rHouseInf[cSign + 2]); PrintFSz();
+  PrintF(" ; In ruling sign, exalted sign, ruling house, exalted house\n");
+  sprintf(sz, "-Yj7 %.0f %.0f %.0f %.0f %.0f %.0f ", rObjInf[oNorm1 + 3],
+    rObjInf[oNorm1 + 4], rObjInf[oNorm1 + 5], rHouseInf[cSign + 3],
+    rHouseInf[cSign + 4], rHouseInf[cSign + 5]); PrintFSz();
+  PrintF(" ; In Esoteric, Hierarchical, Ray ruling (signs, houses)\n\n\n");
+
+  PrintF("; DEFAULT RAYS:\n\n-Y7C 1 12  ");
+  for (i = 1; i <= cSign; i++)
+    { sprintf(sz, " %d", rgSignRay[i]); PrintFSz(); }
+  PrintF("  ; Signs\n-Y7O 0 10  ");
+  for (i = 0; i <= 10; i++)
+    { sprintf(sz, " %d", rgObjRay[i]); PrintFSz(); }
+  PrintF("             ; Planets\n-Y7O 34 42 ");
+  for (i = 34; i <= 42; i++)
+    { sprintf(sz, " %d", rgObjRay[i]); PrintFSz(); }
+  PrintF("                 ; Uranians\n\n\n");
+
+  PrintF("; DEFAULT COLORS:\n\n-YkO 0 10  ");
+  for (i = 0; i <= 10; i++)
+    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
+  PrintF("      ; Planet colors\n-YkO 11 21 ");
+  for (i = 11; i <= 21; i++)
+    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
+  PrintF("      ; Minor colors\n-YkO 22 33 ");
+  for (i = 22; i <= 33; i++)
+    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
+  PrintF("  ; Cusp colors\n-YkO 34 42 ");
+  for (i = 34; i <= 42; i++)
+    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
+  PrintF("              ; Uranian colors\n\n-YkA 1 5   ");
+
+  for (i = 1; i <= 5; i++)
+    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
+  PrintF("          ; Major aspect colors\n-YkA 6 11  ");
+  for (i = 6; i <= 11; i++)
+    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
+  PrintF("      ; Minor aspect colors\n-YkA 12 18 ");
+  for (i = 12; i <= 18; i++)
+    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
+  PrintF("  ; Obscure aspect colors\n\n-YkC       ");
+
+  for (i = eFir; i <= eWat; i++)
+    { sprintf(sz, " %.3s", szColor[kElemA[i]]); PrintFSz(); }
+  PrintF("                      ; Element colors\n-Yk7 1 7   ");
+  for (i = 1; i <= cRay; i++)
+    { sprintf(sz, " %.3s", szColor[kRayA[i]]); PrintFSz(); }
+  PrintF("          ; Ray colors\n-Yk0 1 7   ");
+  for (i = 1; i <= cRainbow; i++)
+    { sprintf(sz, " %.3s", szColor[kRainbowA[i]]); PrintFSz(); }
+  PrintF("          ; Rainbow colors\n-Yk  0 8   ");
+  for (i = 0; i <= 8; i++)
+    { sprintf(sz, " %.3s", szColor[kMainA[i]]); PrintFSz(); }
+  PrintF("  ; Main colors\n\n\n");
+
+  PrintF("; GRAPHICS DEFAULTS:\n\n");
+  sprintf(sz, "%cXm              ", ChDashF(gs.fColor)); PrintFSz();
+  PrintF("; Color charts       [\"=Xm\" is color, \"_Xm\" is monochrome]\n");
+  sprintf(sz, "%cXr              ", ChDashF(gs.fInverse)); PrintFSz();
+  PrintF("; Reverse background [\"_Xr\" is black, \"=Xr\" is white     ]\n");
+  i = gs.xWin; if (fSidebar) i -= SIDESIZE;
+  sprintf(sz, ":Xw %d %d      ", i, gs.yWin); PrintFSz();
+  PrintF("; Default X and Y resolution (not including sidebar)\n");
+  sprintf(sz, ":Xs %d          ", gs.nScale); PrintFSz();
+  PrintF("; Character scale     [100-400]\n");
+  sprintf(sz, ":XS %d          ", gs.nScaleText); PrintFSz();
+  PrintF("; Graphics text scale [100-400]\n");
+  sprintf(sz, "%cXQ              ", ChDashF(gs.fKeepSquare)); PrintFSz();
+  PrintF(
+    "; Square charts [\"=XQ\" forces square, \"_XQ\" allows rectangle]\n");
+  sprintf(sz, "%cXu              ", ChDashF(gs.fBorder)); PrintFSz();
+  PrintF(
+    "; Chart border  [\"=Xu\" shows border, \"_Xu\" doesn't show     ]\n");
+  sprintf(sz, ":Xb%c             ", ChUncap(gs.chBmpMode)); PrintFSz();
+  PrintF(
+    "; Bitmap file type   [\"Xbb\" is Windows .bmp, \"Xbn\" is X11   ]\n");
+  sprintf(sz, ":YXG %04d        ", gs.nGlyphs); PrintFSz();
+  PrintF("; Glyph selections   [Capricorn, Uranus, Pluto, Lilith]\n");
+  sprintf(sz, ":YXg %d           ", gs.nGridCell); PrintFSz();
+  PrintF("; Aspect grid cells  [\"0\" for autodetect  ]\n");
+  sprintf(sz, ":YXS %.1f         ", gs.rspace); PrintFSz();
+  PrintF("; Orbit radius in AU [\"0.0\" for autodetect]\n");
+  sprintf(sz, ":YXj %d           ", gs.cspace); PrintFSz();
+  PrintF("; Orbit trail count\n");
+  sprintf(sz, ":YX7 %d         ", gs.nRayWidth); PrintFSz();
+  PrintF("; Esoteric ray column influence width\n");
+  sprintf(sz, ":YXf %04d        ", gs.nFont); PrintFSz();
+  PrintF("; Use system fonts   [signs, houses, planets, aspects]\n");
+  sprintf(sz, ":YXp %d           ", gs.nOrient); PrintFSz();
+  PrintF(
+    "; PostScript paper orientation [\"-1\" portrait, \"1\" landscape]\n");
+  sprintf(sz, ":YXp0 %s ", SzLength(gs.xInch)); PrintFSz();
+  sprintf(sz, "%s ", SzLength(gs.yInch)); PrintFSz();
+  PrintF("; PostScript paper X and Y sizes\n\n");
+  sprintf(sz, "%cX               ", ChDashF(us.fGraphics)); PrintFSz();
+  PrintF("; Graphics chart display [\"_X\" is text, \"=X\" is graphics]\n");
+
+  sprintf(sz, "\n; %s\n", DEFAULT_INFOFILE); PrintFSz();
+  fclose(file);
+  return fTrue;
+}
+
+
 /*
 ******************************************************************************
 ** User Input Routines.
 ******************************************************************************
 */
 
+/* Convert a string to an integer. */
+
+int NFromSz(CONST char *sz)
+{
+#ifdef EXPRESS
+  // If string starts with "~" then parse the rest as an AstroExpression.
+  if (sz[0] == '~')
+    return NParseExpression(sz+1);
+#endif
+  return atoi(sz);
+}
+
+
+/* Convert a string to a real number. */
+
+real RFromSz(CONST char *sz)
+{
+#ifdef EXPRESS
+  // If string starts with "~" then parse the rest as an AstroExpression.
+  if (sz[0] == '~')
+    return RParseExpression(sz+1);
+#endif
+  return atof(sz);
+}
+
+
 /* Given a string, return an index number corresponding to what the string */
 /* indicates, based on a given parsing mode. In most cases this is mainly  */
 /* looking up a string in the appropriate array and returning the index.   */
@@ -356,7 +711,7 @@ int NParseSz(CONST char *szEntry, int pm)
   CONST char *sz;
   int cch, n, i;
 
-  /* First strip off any leading or trailing spaces. */
+  // First strip off any leading or trailing spaces.
   for (cch = 0; (szLocal[cch] = szEntry[cch]); cch++)
     ;
   while (cch && szLocal[cch-1] <= ' ')
@@ -371,31 +726,31 @@ int NParseSz(CONST char *szEntry, int pm)
   if (cch >= 3) {
     ch0 = ChCap(sz[0]); ch1 = ChUncap(sz[1]); ch2 = ChUncap(sz[2]);
     switch (pm) {
-    /* Parse months, e.g. "February" or "Feb" -> 2 for February. */
+    // Parse months, e.g. "February" or "Feb" -> 2 for February.
     case pmMon:
       for (i = 1; i <= cSign; i++)
         if (FMatchSz(sz, szMonth[i]))
           return i;
       break;
-    /* Parse planets, e.g. "Jupiter" or "Jup" -> 6 for Jupiter. */
+    // Parse planets, e.g. "Jupiter" or "Jup" -> 6 for Jupiter.
     case pmObject:
       ch3 = ChUncap(sz[3]);
       for (i = 0; i <= cObj; i++) {
         if (FMatchSz(sz, szObjName[i]))
           return i;
-        /* Old style -o0 position files have "XXX:" format for planets. */
+        // Old style -o0 position files have "XXX:" format for planets.
         if (ch0 == szObjName[i][0] && ch1 == szObjName[i][1] &&
           ch2 == szObjName[i][2] && ch3 == ':')
           return i;
       }
-      /* Allow "Node" to match North Node for compatibility with version */
-      /* 5.40 and before, for when the object was called just "Node".    */
-      /* Allow "Star" to match first star for -YAm and -YAd switches.    */
+      // Allow "Node" to match North Node for compatibility with version 5.40
+      // and before, for when the object was called just "Node".
+      // Allow "Star" to match first star for -YAm and -YAd switches.
       i = SzLookup(rgObjName, szEntry);
       if (i >= 0)
         return i;
       break;
-    /* Parse aspects, e.g. "Conjunct" or "Con" -> 1 for the Conjunction. */
+    // Parse aspects, e.g. "Conjunct" or "Con" -> 1 for the Conjunction.
     case pmAspect:
       for (i = 1; i <= cAspect2; i++)
         if (FMatchSz(sz, szAspectAbbrev[i]))
@@ -404,7 +759,7 @@ int NParseSz(CONST char *szEntry, int pm)
       if (i >= 0)
         return i;
       break;
-    /* Parse house systems, e.g. "Koch" or "Koc" -> 1 for Koch houses. */
+    // Parse house systems, e.g. "Koch" or "Koc" -> 1 for Koch houses.
     case pmSystem:
       for (i = 0; i < cSystem; i++)
         if (FMatchSz(sz, szSystem[i]))
@@ -413,13 +768,13 @@ int NParseSz(CONST char *szEntry, int pm)
       if (i >= 0)
         return i;
       break;
-    /* Parse zodiac signs, e.g. "Scorpio" or "Sco" -> 8 for Scorpio. */
+    // Parse zodiac signs, e.g. "Scorpio" or "Sco" -> 8 for Scorpio.
     case pmSign:
       for (i = 1; i <= cSign; i++)
         if (FMatchSz(sz, szSignName[i]))
           return i;
       break;
-    /* Parse color indexes, e.g. "White" or "Whi" -> 15 for White. */
+    // Parse color indexes, e.g. "White" or "Whi" -> 15 for White.
     case pmColor:
       if (FMatchSz(sz, "Ray")) {
         i = atoi(sz + 3);
@@ -441,7 +796,7 @@ int NParseSz(CONST char *szEntry, int pm)
       if (!FNumCh(ch0))
         return -1;
       break;
-    /* Parse RGB color values, e.g. "255,0,0" or "#ff0000" for Red. */
+    // Parse RGB color values, e.g. "255,0,0" or "#ff0000" for Red.
     case pmRGB:
       i = 0;
       if (ch0 == '#' && CchSz(sz) == 7) {
@@ -458,7 +813,7 @@ int NParseSz(CONST char *szEntry, int pm)
       }
       i = Rgb(RGBB(i), RGBG(i), RGBR(i));
       return i;
-    /* Parse day of week, e.g. "Monday" or "Mon" -> 1 for Monday. */
+    // Parse day of week, e.g. "Monday" or "Mon" -> 1 for Monday.
     case pmWeek:
       for (i = 0; i < cWeek; i++)
         if (FMatchSz(sz, szDay[i]))
@@ -471,9 +826,9 @@ int NParseSz(CONST char *szEntry, int pm)
   n = atoi(sz);
 
   if (pm == pmYea) {
-    /* For years, process any "BCE" (or "BC.", "b.c.e", and variations) and */
-    /* convert an example such as "5BC" to -4. For negative years, note the */
-    /* difference of 1, as 1CE/AD was preceeded by 1BCE/BC, with no year 0. */
+    // For years, process any "BCE" (or "BC.", "b.c.e", and variations) and
+    // convert an example such as "5BC" to -4. For negative years, note the
+    // difference of 1, as 1CE/AD was preceeded by 1BCE/BC, with no year 0.
     i = Max(cch-1, 0);
     if (i && sz[i] == '.')
       i--;
@@ -502,7 +857,7 @@ real RParseSz(CONST char *szEntry, int pm)
   flag fNeg = fFalse;
   real r;
 
-  /* First strip off any leading or trailing spaces. */
+  // First strip off any leading or trailing spaces.
   for (cch = 0; (szLocal[cch] = szEntry[cch]); cch++)
     ;
   while (cch && szLocal[cch-1] <= ' ')
@@ -513,39 +868,39 @@ real RParseSz(CONST char *szEntry, int pm)
   if (sz[0] == '~')
     return RParseExpression(sz+1);
 #endif
-  /* Capitalize all letters. */
+  // Capitalize all letters.
   for (pch = sz; *pch; pch++)
     *pch = ChCap(*pch);
   ch = sz[0];
 
   if (pm == pmTim) {
-    /* For times, process "Noon" and "Midnight" (or just "N" and "M"). */
+    // For times, process "Noon" and "Midnight" (or just "N" and "M").
     if (ch == 'N')
       return 12.0;
     else if (ch == 'M')
       return 0.0;
   } else if (pm == pmDst) {
-    /* For the Daylight time flag, "Daylight", "Yes", and "True" (or just */
-    /* their first characters) are all indications to be ahead one hour.  */
+    // For the Daylight time flag, "Daylight", "Yes", and "True" (or just
+    // their first characters) are all indications to be ahead one hour.
     if (ch == 'D' || ch == 'Y' || ch == 'T')
       return 1.0;
-    /* "Standard", "No", and "False" mean the normal zero offset. */
+    // "Standard", "No", and "False" mean the normal zero offset.
     else if (ch == 'S' || ch == 'N' || ch == 'F')
       return 0.0;
-    /* Check for "Autodetect" Daylight time. */
+    // Check for "Autodetect" Daylight time.
     else if (ch == 'A')
       return dstAuto;
   } else if (pm == pmZon) {
-    /* For time zones, see if the abbrev is in a table, e.g. "EST" -> 5. */
+    // For time zones, see if the abbrev is in a table, e.g. "EST" -> 5.
     for (i = 0; i < cZone; i++)
       if (NCompareSz(sz, szZon[i]) == 0)
         return rZon[i];
-    /* Allow "H" prefix for numeric zones, e.g. "H5W". */
+    // Allow "H" prefix for numeric zones, e.g. "H5W".
     if (ch == 'H') {
       sz++, cch--;
       ch = sz[0];
     }
-    /* Negate the value for an "E" in the middle somewhere (e.g. "5E30"). */
+    // Negate the value for an "E" in the middle somewhere (e.g. "5E30").
     for (i = 0; i < cch; i++) {
       chT = sz[i];
       if (FCapCh(chT)) {
@@ -556,8 +911,8 @@ real RParseSz(CONST char *szEntry, int pm)
       }
     }
   } else if (pm == pmLon || pm == pmLat) {
-    /* For locations, negate the value for an "E" or "S" in the middle    */
-    /* somewhere (e.g. "105E30" or "27:40S") for eastern/southern values. */
+    // For locations, negate the value for an "E" or "S" in the middle
+    // somewhere (e.g. "105E30" or "27:40S") for eastern/southern values.
     for (i = 0; i < cch; i++) {
       chT = sz[i];
       if (FCapCh(chT)) {
@@ -569,7 +924,7 @@ real RParseSz(CONST char *szEntry, int pm)
     }
   }
 
-  /* Anything still at this point should be in a numeric format. */
+  // Anything still at this point should be in a numeric format.
   if (!FNumCh(ch) && ch != '+' && ch != '-' && ch != '.')
     return rLarge;
   r = atof(sz);
@@ -581,7 +936,7 @@ real RParseSz(CONST char *szEntry, int pm)
     ;
   if (*pch == ':') {
     pch++;
-    /* Check for Astrodienst style MMSS with no separator between them. */
+    // Check for Astrodienst style MMSS with no separator between them.
     if (FNumCh(*pch) && FNumCh(pch[1]) && FNumCh(pch[2]) && FNumCh(pch[3]) &&
       !FNumCh(pch[4]) && pch[4] != ':') {
       i = atoi(pch);
@@ -597,7 +952,7 @@ real RParseSz(CONST char *szEntry, int pm)
     neg(r);
 
   if (pm == pmTim) {
-    /* Backtrack over any time suffix, e.g. "AM", "p.m." and variations. */
+    // Backtrack over any time suffix, e.g. "AM", "p.m." and variations.
     i = Max(cch-1, 0);
     if (i && sz[i] == '.')
       i--;
@@ -607,23 +962,24 @@ real RParseSz(CONST char *szEntry, int pm)
       i--;
     if (i) {
       chT = sz[i];
-      if (chT == 'A')                  /* Adjust value appropriately */
-        r = r >= 12.0 ? r-12.0 : r;    /* if AM or PM suffix.        */
+      // Adjust value appropriately if AM or PM suffix.
+      if (chT == 'A')
+        r = r >= 12.0 ? r-12.0 : r;
       else if (chT == 'P')
         r = r >= 12.0 ? r : r+12.0;
     }
   } else if (pm == pmZon) {
-    /* Check for "E" suffix for East of GMT. */
+    // Check for "E" suffix for East of GMT.
     i = Max(cch-1, 0);
     if (sz[i] == 'E' || (cch >= 9 && sz[cch-4] == ' ' && sz[cch-5] == 'E'))
       neg(r);
   } else if (pm == pmElv) {
-    /* Check for "feet" or "ft" suffix for feet instead of meters. */
+    // Check for "feet" or "ft" suffix for feet instead of meters.
     i = Max(cch-1, 0);
     if (sz[i] == 'F' || sz[i] == 'T')
       r *= rFtToM;
   } else if (pm == pmLength) {
-    /* Check for "cent" or "cm" suffix for centimeters instead of inches. */
+    // Check for "cent" or "cm" suffix for centimeters instead of inches.
     i = Max(cch-1, 0);
     if (sz[i] == 'C' || sz[i] == 'M')
       r /= rInToCm;
@@ -646,8 +1002,8 @@ void InputString(CONST char *szPrompt, char *sz)
   AnsiColor(kYellowA);
   PrintSz(" > ");
   AnsiColor(kDefault);
-  if (fgets(sz, cchSzMax, stdin) == NULL)  /* Pressing control-D terminates */
-    Terminate(tcForce);                    /* the program on some machines. */
+  if (fgets(sz, cchSzMax, stdin) == NULL)    // Pressing control-D terminates
+    Terminate(tcForce);                      // the program on some systems.
   cch = CchSz(sz);
   while (cch > 0 && sz[cch-1] < ' ')
     cch--;
@@ -711,16 +1067,16 @@ flag FInputData(CONST char *szFile)
   int i, fT;
   real k, l, m;
 
-  /* If we are to read from the virtual file "nul" that means to leave the */
-  /* chart information alone with whatever settings it may have already.   */
+  // If we are to read from the virtual file "nul" that means to leave the
+  // chart information alone with whatever settings it may have already.
 
   if (NCompareSz(szFile, szNulCore) == 0) {
     is.fHaveInfo = fTrue;
     return fTrue;
   }
 
-  /* If we are to read from the virtual file "set" then that means use a   */
-  /* particular set of chart information generated earlier in the program. */
+  // If we are to read from the virtual file "set" then that means use a
+  // particular set of chart information generated earlier in the program.
 
   if (NCompareSz(szFile, szSetCore) == 0) {
     is.fHaveInfo = fTrue;
@@ -738,8 +1094,8 @@ flag FInputData(CONST char *szFile)
     return fTrue;
   }
 
-  /* If we are to read from the virtual file "__1" through "__4" then that */
-  /* means copy the chart information from the specified chart slot.       */
+  // If we are to read from the virtual file "__1" through "__4" then that
+  // means copy the chart information from the specified chart slot.
 
   if (NCompareSz(szFile, "__1") == 0) {
     is.fHaveInfo = fTrue;
@@ -763,8 +1119,8 @@ flag FInputData(CONST char *szFile)
   }
 
 #ifdef TIME
-  /* If we are to read from the file "now" then that means use the time */
-  /* functions to calculate the present date and time.                  */
+  // If we are to read from the file "now" then that means use the time
+  // functions to calculate the present date and time.
 
   if (NCompareSz(szFile, szNowCore) == 0) {
     is.fHaveInfo = fTrue;
@@ -776,14 +1132,14 @@ flag FInputData(CONST char *szFile)
 #endif
 
 #ifndef WIN
-  /* If we are to read from the file "tty" then that means prompt the user */
-  /* for all the chart information.                                        */
+  // If we are to read from the file "tty" then that means prompt the user
+  // for all the chart information.
 
   if (NCompareSz(szFile, szTtyCore) == 0) {
     file = is.S; is.S = stdout;
     if (!us.fNoSwitches) {
-      /* Temporarily disable an internal redirection of output to a file  */
-      /* because we always want user headers and prompts to be displayed. */
+      // Temporarily disable an internal redirection of output to a file
+      // because we always want user headers and prompts to be displayed.
 
       AnsiColor(kWhiteA);
       sprintf(sz, "** %s version %s ", szAppName, szVersionCore); PrintSz(sz);
@@ -844,8 +1200,8 @@ flag FInputData(CONST char *szFile)
   }
 #endif /* WIN */
 
-  /* Now that the special cases are taken care of, we can assume we are */
-  /* to read from a real file.                                          */
+  // Now that the special cases are taken care of, we can assume we are to
+  // read from a real file.
 
   file = FileOpen(szFile, 1, NULL);
   if (file == NULL)
@@ -853,7 +1209,7 @@ flag FInputData(CONST char *szFile)
   is.fHaveInfo = fTrue;
   ch = getc(file); ungetc(ch, file);
 
-  /* Read the chart parameters from a standard command switch file. */
+  // Read the chart parameters from a standard command switch file.
 
   if (ch == '@') {
     fT = is.fSzPersist; is.fSzPersist = fFalse;
@@ -861,7 +1217,7 @@ flag FInputData(CONST char *szFile)
       return fFalse;
     is.fSzPersist = fT;
 
-  /* Read the chart info from an older style -o list of seven numbers. */
+  // Read the chart info from an older style -o list of seven numbers.
 
   } else if (FNumCh(ch)) {
     SS = 0.0;
@@ -876,14 +1232,14 @@ flag FInputData(CONST char *szFile)
     }
     ciCore.nam = ciCore.loc = "";
 
-  /* Read the actual chart positions from a file produced with -o0 switch. */
+  // Read the actual chart positions from a file produced with -o0 switch.
 
   } else if (ch == 'S') {
     MM = -1;
 
-    /* Hack: A negative month value means the chart parameters are invalid, */
-    /* hence -o0 is in effect and we can assume the chart positions are     */
-    /* already in memory so we don't have to calculate them later.          */
+    // Hack: A negative month value means the chart parameters are invalid,
+    // hence -o0 is in effect and we can assume the chart positions are
+    // already in memory so we don't have to calculate them later.
 
     for (i = 1; i <= oNorm; i++) {
       fscanf(file, "%s%lf%lf%lf", sz, &k, &l, &m);
@@ -894,8 +1250,8 @@ flag FInputData(CONST char *szFile)
       planetalt[i] = m;
       ret[i] = sz[1] == 'D' ? 1.0 : -1.0;
 
-      /* -o0 files from versions 3.05 and before don't have the Uranians in  */
-      /* them. Be prepared to skip over them in old files for compatibility. */
+      // -o0 files from versions 3.05 and before don't have the Uranians in
+      // them. Be prepared to skip over them in old files for compatibility.
 
       if (i == oVtx) {
         while (getc(file) >= ' ')
diff --git a/makefile.com b/makefile.com
index 5b55056..f59b6fe 100644
--- a/makefile.com
+++ b/makefile.com
@@ -1,4 +1,4 @@
-$ ! Astrolog (Version 7.00) File: makefile.com (VMS version)
+$ ! Astrolog (Version 7.10) File: makefile.com (VMS version)
 $ !
 $ ! IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 $ ! not enumerated elsewhere in this program are Copyright (C) 1991-2020 by
diff --git a/matrix.cpp b/matrix.cpp
index 5c87fe2..6d63e78 100644
--- a/matrix.cpp
+++ b/matrix.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: matrix.cpp
+** Astrolog (Version 7.10) File: matrix.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -176,11 +176,11 @@ long MatrixMdyToJulian(int mon, int day, int yea)
 {
   long im, j;
 
-  im = 12*((long)yea+4800)+(long)mon-3;
+  im = 12*(yea + 4800) + mon - 3;
   j = (2*(im%12) + 7 + 365*im)/12;
-  j += (long)day + im/48 - 32083;
-  if (j > 2299171)                   /* Take care of dates in */
-    j += im/4800 - im/1200 + 38;     /* Gregorian calendar.   */
+  j += day + im/48 - 32083;
+  if (j > 2299171)                // Take care of dates in Gregorian calendar.
+    j += im/4800 - im/1200 + 38;
   return j;
 }
 
@@ -190,19 +190,19 @@ long MatrixMdyToJulian(int mon, int day, int yea)
 
 void MatrixJulianToMdy(real JD, int *mon, int *day, int *yea)
 {
-  long L, N, IT, JT, K, IK;
-
-  L  = (long)RFloor(JD+rRound)+68569L;
-  N  = Dvd(4L*L, 146097L);
-  L  -= Dvd(146097L*N + 3L, 4L);
-  IT = Dvd(4000L*(L+1L), 1461001L);
-  L  -= Dvd(1461L*IT, 4L) - 31L;
-  JT = Dvd(80L*L, 2447L);
-  K  = L-Dvd(2447L*JT, 80L);
-  L  = Dvd(JT, 11L);
-  JT += 2L - 12L*L;
-  IK = 100L*(N-49L) + IT + L;
-  *mon = (int)JT; *day = (int)K; *yea = (int)IK;
+  long l, n, it, jt, k, ik;
+
+  l = (long)RFloor(JD + rRound) + 68569;
+  n = Dvd(4*l, 146097);
+  l -= Dvd(146097*n + 3, 4);
+  it = Dvd(4000*(l+1), 1461001);
+  l -= Dvd(1461*it, 4) - 31;
+  jt = Dvd(80*l, 2447);
+  k = l - Dvd(2447*jt, 80);
+  l = Dvd(jt, 11);
+  jt += 2 - 12*l;
+  ik = 100*(n-49) + it + l;
+  *mon = jt; *day = k; *yea = ik;
 }
 
 
@@ -211,15 +211,15 @@ void MatrixJulianToMdy(real JD, int *mon, int *day, int *yea)
 /* time, the Julian day and fractional part of the day, the offset to the   */
 /* sidereal, and a couple of other things.                                  */
 
-real ProcessInput(flag fDate)
+real ProcessInput(void)
 {
   real Ln, Off;
 
-  /* Compute angle that the ecliptic is inclined to the Celestial Equator */
+  // Compute angle that the ecliptic is inclined to the Celestial Equator.
   is.OB = 23.452294 - 0.0130125*is.T;
 
-  Ln = Mod((933060-6962911*is.T+7.5*is.T*is.T)/3600.0); /* Mean lunar node */
-  Off = (259205536.0*is.T+2013816.0)/3600.0;            /* Mean Sun        */
+  Ln = Mod((933060-6962911*is.T+7.5*is.T*is.T)/3600.0);    // Mean lunar node
+  Off = (259205536.0*is.T+2013816.0)/3600.0;               // Mean Sun
   Off = 17.23*RSin(RFromD(Ln)) + 1.27*RSin(RFromD(Off)) -
     (5025.64+1.11*is.T)*is.T;
   Off = (Off-84038.27)/3600.0;
@@ -228,6 +228,18 @@ real ProcessInput(flag fDate)
 }
 
 
+/* Another modulus function, this time for the range of 0 to 2 Pi. */
+
+real ModRad(real r)
+{
+  while (r >= rPi2)    // Assume value is only slightly out of range, so
+    r -= rPi2;         // test and never do any complicated math.
+  while (r < 0.0)
+    r += rPi2;
+  return r;
+}
+
+
 /* Convert polar to rectangular coordinates. */
 
 void PolToRec(real a, real r, real *x, real *y)
@@ -259,7 +271,7 @@ real RecToSph(real B, real L, real O)
   if (A < 0.0)
     A += 2*rPi;
   G = A;
-  return G;  /* We only ever care about and return one of the coordinates. */
+  return G;  // We only ever care about and return one of the coordinates.
 }
 
 
@@ -281,7 +293,7 @@ void ComputeVariables(real *vtx)
   if (AA < 0.0)
     B = -B;
   G = RecToSph(B, L, -is.OB);
-  *vtx = Mod(is.rSid + DFromR(G+rPiHalf));    /* Vertex */
+  *vtx = Mod(is.rSid + DFromR(G+rPiHalf));    // Vertex
 }
 
 
@@ -313,7 +325,7 @@ real CuspAscendant(void)
 {
   real Asc;
 
-  Asc = Angle(-RSin(is.RA)*RCosD(is.OB)-RTanD(AA)*RSinD(is.OB), RCos(is.RA));
+  Asc = RAngle(-RSin(is.RA)*RCosD(is.OB)-RTanD(AA)*RSinD(is.OB), RCos(is.RA));
   return Mod(DFromR(Asc)+is.rSid);
 }
 
@@ -321,7 +333,7 @@ real CuspEastPoint(void)
 {
   real EP;
 
-  EP = Angle(-RSin(is.RA)*RCosD(is.OB), RCos(is.RA));
+  EP = RAngle(-RSin(is.RA)*RCosD(is.OB), RCos(is.RA));
   return Mod(DFromR(EP)+is.rSid);
 }
 
@@ -335,11 +347,10 @@ real CuspPlacidus(real deg, real FF, flag fNeg)
 
   R1 = is.RA+RFromD(deg);
   X = fNeg ? 1.0 : -1.0;
-  /* Looping 10 times is arbitrary, but it's what other programs do. */
+  // Looping 10 times is arbitrary, but it's what other programs do.
   for (i = 1; i <= 10; i++) {
 
-    /* This formula works except at 0 latitude (AA == 0.0). */
-
+    // This formula works except at 0 latitude (AA == 0.0).
     XS = X*RSin(R1)*RTanD(is.OB)*RTanD(AA == 0.0 ? 0.0001 : AA);
     XS = RAcos(XS);
     if (XS < 0.0)
@@ -387,7 +398,7 @@ void HouseKoch(void)
       A2 = D/rDegQuad-3.0;
     }
     A3 = RFromD(Mod(DFromR(is.RA)+D+A2*DFromR(A1)));
-    X = Angle(RCos(A3)*RCosD(is.OB)-KN*RTanD(AA)*RSinD(is.OB), RSin(A3));
+    X = RAngle(RCos(A3)*RCosD(is.OB)-KN*RTanD(AA)*RSinD(is.OB), RSin(A3));
     chouse[i] = Mod(DFromR(X)+is.rSid);
   }
 }
@@ -404,7 +415,7 @@ void HouseCampanus(void)
       DN += rPi;
     if (RSin(KO) < 0.0)
       DN += rPi;
-    X = Angle(RCos(is.RA+DN)*RCosD(is.OB)-RSin(DN)*RTanD(AA)*RSinD(is.OB),
+    X = RAngle(RCos(is.RA+DN)*RCosD(is.OB)-RSin(DN)*RTanD(AA)*RSinD(is.OB),
       RSin(is.RA+DN));
     chouse[i] = Mod(DFromR(X)+is.rSid);
   }
@@ -417,7 +428,7 @@ void HouseMeridian(void)
 
   for (i = 1; i <= cSign; i++) {
     D = RFromD(60.0+30.0*(real)i);
-    X = Angle(RCos(is.RA+D)*RCosD(is.OB), RSin(is.RA+D));
+    X = RAngle(RCos(is.RA+D)*RCosD(is.OB), RSin(is.RA+D));
     chouse[i] = Mod(DFromR(X)+is.rSid);
   }
 }
@@ -429,7 +440,7 @@ void HouseRegiomontanus(void)
 
   for (i = 1; i <= cSign; i++) {
     D = RFromD(60.0+30.0*(real)i);
-    X = Angle(RCos(is.RA+D)*RCosD(is.OB)-RSin(D)*RTanD(AA)*RSinD(is.OB),
+    X = RAngle(RCos(is.RA+D)*RCosD(is.OB)-RSin(D)*RTanD(AA)*RSinD(is.OB),
       RSin(is.RA+D));
     chouse[i] = Mod(DFromR(X)+is.rSid);
   }
@@ -442,7 +453,7 @@ void HouseMorinus(void)
 
   for (i = 1; i <= cSign; i++) {
     D = RFromD(60.0+30.0*(real)i);
-    X = Angle(RCos(is.RA+D), RSin(is.RA+D)*RCosD(is.OB));
+    X = RAngle(RCos(is.RA+D), RSin(is.RA+D)*RCosD(is.OB));
     chouse[i] = Mod(DFromR(X)+is.rSid);
   }
 }
@@ -561,27 +572,27 @@ void ComputePlanets(void)
     EA = M = ModRad(ReadThree(poe->ma0, poe->ma1, poe->ma2));
     E = DFromR(ReadThree(poe->ec0, poe->ec1, poe->ec2));
     for (i = 1; i <= 5; i++)
-      EA = M+E*RSin(EA);            /* Solve Kepler's equation */
-    AU = poe->sma;                  /* Semi-major axis         */
+      EA = M+E*RSin(EA);            // Solve Kepler's equation
+    AU = poe->sma;                  // Semi-major axis
     E1 = 0.01720209/(pow(AU, 1.5)*
-      (1.0-E*RCos(EA)));                     /* Begin velocity coordinates */
-    XW = -AU*E1*RSin(EA);                    /* Perifocal coordinates      */
+      (1.0-E*RCos(EA)));                     // Begin velocity coordinates
+    XW = -AU*E1*RSin(EA);                    // Perifocal coordinates
     YW = AU*E1*pow(1.0-E*E,0.5)*RCos(EA);
     AP = ReadThree(poe->ap0, poe->ap1, poe->ap2);
     AN = ReadThree(poe->an0, poe->an1, poe->an2);
-    _IN = ReadThree(poe->in0, poe->in1, poe->in2); /* Calculate inclination  */
+    _IN = ReadThree(poe->in0, poe->in1, poe->in2); // Calculate inclination
     X = XW; Y = YW;
-    RecToSph2(AP, AN, _IN, &X, &Y, &G);  /* Rotate velocity coords */
+    RecToSph2(AP, AN, _IN, &X, &Y, &G);  // Rotate velocity coords
     heliox[ind] = X; helioy[ind] = Y;
-    helioz[ind] = G;                     /* Helio ecliptic rectangular */
-    X = AU*(RCos(EA)-E);                 /* Perifocal coordinates for        */
-    Y = AU*RSin(EA)*pow(1.0-E*E,0.5);    /* rectangular position coordinates */
-    RecToSph2(AP, AN, _IN, &X, &Y, &G);  /* Rotate for rectangular */
-    XS = X; YS = Y; ZS = G;              /* position coordinates   */
+    helioz[ind] = G;                     // Helio ecliptic rectangular
+    X = AU*(RCos(EA)-E);                 // Perifocal coordinates for
+    Y = AU*RSin(EA)*pow(1.0-E*E,0.5);    // rectangular position coordinates
+    RecToSph2(AP, AN, _IN, &X, &Y, &G);  // Rotate for rectangular
+    XS = X; YS = Y; ZS = G;              // position coordinates
     if (FBetween(ind, oJup, oPlu))
       ErrorCorrect(ind, &XS, &YS, &ZS);
     ret[ind] = DFromR((XS*helioy[ind]-YS*heliox[ind]) /
-      (XS*XS+YS*YS));  /* Helio daily motion */
+      (XS*XS+YS*YS));  // Helio daily motion
     space[ind].x = XS; space[ind].y = YS; space[ind].z = ZS;
     ProcessPlanet(ind, 0.0);
 LNextPlanet:
@@ -596,9 +607,10 @@ void ComputePlanets(void)
   space[oSun].x = space[oSun].y = space[oSun].z =
     planet[oSun] = planetalt[oSun] = heliox[oSun] = helioy[oSun] = 0.0;
   if (us.objCenter == oSun) {
+    // Use relative velocity if -v0 is in effect.
     if (us.fVelocity)
-      for (i = 0; i <= oNorm; i++)    /* Use relative velocity */
-        ret[i] = 1.0;                 /* if -v0 is in effect.  */
+      for (i = 0; i <= oNorm; i++)
+        ret[i] = 1.0;
     return;
   }
 
@@ -624,10 +636,11 @@ void ComputePlanets(void)
     ret[i] = DFromR((XS*(helioy[i]-helioy[ind])-YS*(heliox[i]-heliox[ind])) /
       (XS*XS + YS*YS));
     if (ind == oEar && !us.fTruePos)
-      aber = 0.0057756 * RLength3(XS, YS, ZS) * ret[i];  /* Aberration */
+      aber = 0.0057756 * RLength3(XS, YS, ZS) * ret[i];  // Aberration
     ProcessPlanet(i, aber);
-    if (us.fVelocity)                 /* Use relative velocity */
-      ret[i] = ret[i]/helioret[i];    /* if -v0 is in effect   */
+    // Use relative velocity if -v0 is in effect.
+    if (us.fVelocity)
+      ret[i] = ret[i]/helioret[i];
   }
   space[ind].x = space[ind].y = space[ind].z = 0.0;
 }
@@ -648,15 +661,15 @@ void ComputeLunar(real *moonlo, real *moonla, real *nodelo, real *nodela)
   real LL, G, N, G1, D, L, ML, L1, MB, T1, Y, M = 3600.0, T2;
 
   T2 = is.T*is.T;
-  LL = 973563.0+1732564379.0*is.T-4.0*T2; /* Compute mean lunar longitude    */
-  G = 1012395.0+6189.0*is.T;              /* Sun's mean longitude of perigee */
-  N = 933060.0-6962911.0*is.T+7.5*T2;     /* Compute mean lunar node         */
-  G1 = 1203586.0+14648523.0*is.T-37.0*T2; /* Mean longitude of lunar perigee */
-  D = 1262655.0+1602961611.0*is.T-5.0*T2; /* Mean elongation of Moo from Sun */
-  L = (LL-G1)/M; L1 = ((LL-D)-G)/M;       /* Some auxiliary angles           */
+  LL = 973563.0+1732564379.0*is.T-4.0*T2;  // Compute mean lunar longitude
+  G = 1012395.0+6189.0*is.T;               // Sun's mean longitude of perigee
+  N = 933060.0-6962911.0*is.T+7.5*T2;      // Compute mean lunar node
+  G1 = 1203586.0+14648523.0*is.T-37.0*T2;  // Mean longitude of lunar perigee
+  D = 1262655.0+1602961611.0*is.T-5.0*T2;  // Mean elongation of Moo from Sun
+  L = (LL-G1)/M; L1 = ((LL-D)-G)/M;        // Some auxiliary angles
   T1 = (LL-N)/M; D = D/M; Y = 2.0*D;
 
-  /* Compute Moon's perturbations. */
+  // Compute Moon's perturbations.
 
   ML = 22639.6*RSinD(L) - 4586.4*RSinD(L-Y) + 2369.9*RSinD(Y) +
     769.0*RSinD(2.0*L) - 669.0*RSinD(L1) - 411.6*RSinD(2.0*T1) -
@@ -665,9 +678,9 @@ void ComputeLunar(real *moonlo, real *moonla, real *nodelo, real *nodela)
     125.0*RSinD(D) - 110.0*RSinD(L+L1) - 55.0*RSinD(2.0*T1-Y) -
     45.0*RSinD(L+2.0*T1) + 40.0*RSinD(L-2.0*T1);
 
-  *moonlo = G = Mod((LL+ML)/M+is.rSid);    /* Lunar longitude */
+  *moonlo = G = Mod((LL+ML)/M+is.rSid);    // Lunar longitude
 
-  /* Compute lunar latitude. */
+  // Compute lunar latitude.
 
   MB = 18461.5*RSinD(T1) + 1010.0*RSinD(L+T1) - 999.0*RSinD(T1-L) -
     624.0*RSinD(T1-Y) + 199.0*RSinD(T1+Y-L) - 167.0*RSinD(L+T1-Y);
@@ -676,7 +689,7 @@ void ComputeLunar(real *moonlo, real *moonla, real *nodelo, real *nodela)
   *moonla = MB =
     RSgn(MB)*((RAbs(MB)/M)/rDegMax-RFloor((RAbs(MB)/M)/rDegMax))*rDegMax;
 
-  /* Compute position of the North Lunar Node, either True or Mean. */
+  // Compute position of the North Lunar Node, either True or Mean.
 
   if (us.fTrueNode)
     N = N+5392.0*RSinD(2.0*T1-Y)-541.0*RSinD(L1)-442.0*RSinD(Y)+
diff --git a/placalc.cpp b/placalc.cpp
index 4390c08..32a8684 100644
--- a/placalc.cpp
+++ b/placalc.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: placalc.cpp
+** Astrolog (Version 7.10) File: placalc.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "placalc.h"
diff --git a/placalc.h b/placalc.h
index dfcb5be..c35cb99 100644
--- a/placalc.h
+++ b/placalc.h
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: placalc.h
+** Astrolog (Version 7.10) File: placalc.h
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
diff --git a/placalc2.cpp b/placalc2.cpp
index 6c752bc..639fafc 100644
--- a/placalc2.cpp
+++ b/placalc2.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: placalc2.cpp
+** Astrolog (Version 7.10) File: placalc2.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "placalc.h"
diff --git a/resource.h b/resource.h
index feac467..d1ee1eb 100644
--- a/resource.h
+++ b/resource.h
@@ -18,9 +18,11 @@
 #define menu7                           129
 #define menuL                           130
 #define menuE                           131
-#define menuD                           132
-#define menuX                           133
-#define menuG                           134
+#define menuN                           132
+#define menuD                           133
+#define menuXX                          134
+#define menuXG                          135
+#define menuXZ                          136
 #define dlgAbort                        201
 #define dlgCommand                      202
 #define dlgColor                        203
@@ -129,12 +131,12 @@
 #define dck19                           1088
 #define dck20                           1089
 #define dck21                           1090
-#define dcPrDay                         1091
-#define dcPrMon                         1092
-#define dcPrTim                         1093
-#define dcPrYea                         1094
-#define dcPr_pd                         1095
-#define dcPr_pC                         1096
+#define dcPr_pC                         1091
+#define dcPr_pd                         1092
+#define dcPrDay                         1093
+#define dcPrMon                         1094
+#define dcPrTim                         1095
+#define dcPrYea                         1096
 #define dcr1                            1097
 #define dcr2                            1098
 #define dcr3                            1099
@@ -178,214 +180,230 @@
 #define deCo                            1137
 #define deDeLoc                         1138
 #define deDeNam                         1139
-#define deGr_WN                         1140
-#define deGr_X1                         1141
-#define deGr_XG                         1142
-#define deGr_XW                         1143
-#define deGr_Xw_x                       1144
-#define deGr_Xw_y                       1145
-#define deGr_YXg                        1146
-#define deGr_YXv                        1147
-#define dei01                           1148
-#define dei02                           1149
-#define dei03                           1150
-#define dei04                           1151
-#define dei05                           1152
-#define dei06                           1153
-#define dei07                           1154
-#define dei08                           1155
-#define dei09                           1156
-#define dei10                           1157
-#define dei11                           1158
-#define dei12                           1159
-#define dei13                           1160
-#define dei14                           1161
-#define dei15                           1162
-#define dei16                           1163
-#define dei17                           1164
-#define dei18                           1165
-#define dei19                           1166
-#define dei20                           1167
-#define dei21                           1168
-#define dei22                           1169
-#define deInLoc                         1170
-#define deInNam                         1171
-#define deo01                           1172
-#define deo02                           1173
-#define deo03                           1174
-#define deo04                           1175
-#define deo05                           1176
-#define deo06                           1177
-#define deo07                           1178
-#define deo08                           1179
-#define deo09                           1180
-#define deo10                           1181
-#define deo11                           1182
-#define deo12                           1183
-#define deo13                           1184
-#define deo14                           1185
-#define deo15                           1186
-#define deo16                           1187
-#define deo17                           1188
-#define deo18                           1189
-#define deo19                           1190
-#define deo20                           1191
-#define deo21                           1192
-#define deo22                           1193
-#define deDi_A                          1194
-#define deDi_I                          1195
-#define deDi_RO                         1196
-#define deDi_YXp0_x                     1197
-#define deDi_YXp0_y                     1198
-#define deSe_1                          1199
-#define deSe_h                          1200
-#define deSe_x                          1201
-#define deTr_d                          1202
-#define deSe_4                          1203
-#define deTr_tY                         1204
-#define dlIn                            1205
-#define dr01                            1206
-#define dr02                            1207
-#define dr03                            1208
-#define dr04                            1209
-#define dr05                            1210
-#define dr06                            1211
-#define dr07                            1212
-#define dr08                            1213
-#define dr09                            1214
-#define dr10                            1215
-#define dr11                            1216
-#define dr12                            1217
-#define dr13                            1218
-#define dr14                            1219
-#define dr15                            1220
-#define ds1                             1221
-#define ds2                             1222
-#define dx01                            1223
-#define dx02                            1224
-#define dx03                            1225
-#define dx04                            1226
-#define dx05                            1227
-#define dx06                            1228
-#define dx07                            1229
-#define dx08                            1230
-#define dx09                            1231
-#define dx10                            1232
-#define dx11                            1233
-#define dx12                            1234
-#define dx13                            1235
-#define dx14                            1236
-#define dx15                            1237
-#define dx16                            1238
-#define dx17                            1239
-#define dx18                            1240
-#define dx19                            1241
-#define dx20                            1242
-#define dx21                            1243
-#define dx22                            1244
-#define dx23                            1245
-#define dx24                            1246
-#define dx25                            1247
-#define dx26                            1248
-#define dx27                            1249
-#define dx28                            1250
-#define dx29                            1251
-#define dx30                            1252
-#define dx31                            1253
-#define dx32                            1254
-#define dx33                            1255
-#define dx34                            1256
-#define dx35                            1257
-#define dx36                            1258
-#define dx37                            1259
-#define dx38                            1260
-#define dx39                            1261
-#define dx40                            1262
-#define dx41                            1263
-#define dx42                            1264
-#define dx43                            1265
-#define dx44                            1266
-#define dx45                            1267
-#define dx46                            1268
-#define dx47                            1269
-#define dxa01                           1270
-#define dxa02                           1271
-#define dxa03                           1272
-#define dxa04                           1273
-#define dxa05                           1274
-#define dxa06                           1275
-#define dxa07                           1276
-#define dxa08                           1277
-#define dxa09                           1278
-#define dxa10                           1279
-#define dxa11                           1280
-#define dxa12                           1281
-#define dxa13                           1282
-#define dxa14                           1283
-#define dxa15                           1284
-#define dxa16                           1285
-#define dxa17                           1286
-#define dxa18                           1287
-#define dxCh_a0                         1288
-#define dxCh_Ey                         1289
-#define dxCh_g0                         1290
-#define dxCh_gm                         1291
-#define dxCh_j0                         1292
-#define dxCh_Ky                         1293
-#define dxCh_l                          1294
-#define dxCh_L0                         1295
-#define dxCh_m0                         1296
-#define dxCh_ma                         1297
-#define dxCh_P0                         1298
-#define dxCh_v0                         1299
-#define dxCh_w0                         1300
-#define dxCh_Z0                         1301
-#define dxCo_e                          1302
-#define dxGr_Wn                         1303
-#define dxGr_XN                         1304
-#define dxGr_XP0                        1305
-#define dxGr_XQ                         1306
-#define dxGr_XW0                        1307
-#define dxDi_kh                         1308
-#define dxDi_r0                         1309
-#define dxDi_r1                         1310
-#define dxDi_r2                         1311
-#define dxDi_r3                         1312
-#define dxDi_r4                         1313
-#define dxDi_Y8                         1314
-#define dxDi_YC                         1315
-#define dxDi_Yd                         1316
-#define dxDi_Yd2                        1317
-#define dxDi_Yo                         1318
-#define dxDi_YO                         1319
-#define dxDi_Yr                         1320
-#define dxDi_YR0_d                      1321
-#define dxDi_YR0_s                      1322
-#define dxDi_Yt                         1323
-#define dxDi_Yu                         1324
-#define dxDi_Yv                         1325
-#define dxDi_YXf                        1326
-#define dxDi_z0                         1327
-#define dxDi_z1                         1328
-#define dxDi_z2                         1329
-#define dxDi_z3                         1330
-#define dxPr_p                          1331
-#define dxSe_10                         1332
-#define dxSe_A3                         1333
-#define dxSe_Ap                         1334
-#define dxSe_c3                         1335
-#define dxSe_sr                         1336
-#define dxSe_Yc0                        1337
-#define dxSe_Yh                         1338
-#define dxSe_Yn                         1339
-#define dxSe_ys                         1340
-#define dxSe_yt                         1341
-#define dxSe_yv                         1342
-#define dxSe_yv2                        1343
-#define dxTr_g                          1344
-#define dxTr_p                          1345
-#define dxTr_r                          1346
-#define dxSe_sr0                        1347
+#define deDi_A                          1140
+#define deDi_I                          1141
+#define deDi_RO                         1142
+#define deDi_YXp0_x                     1143
+#define deDi_YXp0_y                     1144
+#define deGr_WN                         1145
+#define deGr_X1                         1146
+#define deGr_XG                         1147
+#define deGr_XW                         1148
+#define deGr_Xw_x                       1149
+#define deGr_Xw_y                       1150
+#define deGr_XZ                         1151
+#define deGr_YXg                        1152
+#define deGr_YXv                        1153
+#define dei01                           1154
+#define dei02                           1155
+#define dei03                           1156
+#define dei04                           1157
+#define dei05                           1158
+#define dei06                           1159
+#define dei07                           1160
+#define dei08                           1161
+#define dei09                           1162
+#define dei10                           1163
+#define dei11                           1164
+#define dei12                           1165
+#define dei13                           1166
+#define dei14                           1167
+#define dei15                           1168
+#define dei16                           1169
+#define dei17                           1170
+#define dei18                           1171
+#define dei19                           1172
+#define dei20                           1173
+#define dei21                           1174
+#define dei22                           1175
+#define deInLoc                         1176
+#define deInNam                         1177
+#define deo01                           1178
+#define deo02                           1179
+#define deo03                           1180
+#define deo04                           1181
+#define deo05                           1182
+#define deo06                           1183
+#define deo07                           1184
+#define deo08                           1185
+#define deo09                           1186
+#define deo10                           1187
+#define deo11                           1188
+#define deo12                           1189
+#define deo13                           1190
+#define deo14                           1191
+#define deo15                           1192
+#define deo16                           1193
+#define deo17                           1194
+#define deo18                           1195
+#define deo19                           1196
+#define deo20                           1197
+#define deo21                           1198
+#define deo22                           1199
+#define deSe_1                          1200
+#define deSe_4                          1201
+#define deSe_h                          1202
+#define deSe_x                          1203
+#define deTr_d                          1204
+#define deTr_tY                         1205
+#define dlIn                            1206
+#define dr01                            1207
+#define dr02                            1208
+#define dr03                            1209
+#define dr04                            1210
+#define dr05                            1211
+#define dr06                            1212
+#define dr07                            1213
+#define dr08                            1214
+#define dr09                            1215
+#define dr10                            1216
+#define dr11                            1217
+#define dr12                            1218
+#define dr13                            1219
+#define dr14                            1220
+#define dr15                            1221
+#define dr16                            1222
+#define dr17                            1223
+#define dr18                            1224
+#define dr19                            1225
+#define dr20                            1226
+#define dr21                            1227
+#define dr22                            1228
+#define dr23                            1229
+#define dr24                            1230
+#define dr25                            1231
+#define dr26                            1232
+#define dr27                            1233
+#define dr28                            1234
+#define dr29                            1235
+#define dr30                            1236
+#define ds1                             1237
+#define ds2                             1238
+#define dx01                            1239
+#define dx02                            1240
+#define dx03                            1241
+#define dx04                            1242
+#define dx05                            1243
+#define dx06                            1244
+#define dx07                            1245
+#define dx08                            1246
+#define dx09                            1247
+#define dx10                            1248
+#define dx11                            1249
+#define dx12                            1250
+#define dx13                            1251
+#define dx14                            1252
+#define dx15                            1253
+#define dx16                            1254
+#define dx17                            1255
+#define dx18                            1256
+#define dx19                            1257
+#define dx20                            1258
+#define dx21                            1259
+#define dx22                            1260
+#define dx23                            1261
+#define dx24                            1262
+#define dx25                            1263
+#define dx26                            1264
+#define dx27                            1265
+#define dx28                            1266
+#define dx29                            1267
+#define dx30                            1268
+#define dx31                            1269
+#define dx32                            1270
+#define dx33                            1271
+#define dx34                            1272
+#define dx35                            1273
+#define dx36                            1274
+#define dx37                            1275
+#define dx38                            1276
+#define dx39                            1277
+#define dx40                            1278
+#define dx41                            1279
+#define dx42                            1280
+#define dx43                            1281
+#define dx44                            1282
+#define dx45                            1283
+#define dx46                            1284
+#define dx47                            1285
+#define dxa01                           1286
+#define dxa02                           1287
+#define dxa03                           1288
+#define dxa04                           1289
+#define dxa05                           1290
+#define dxa06                           1291
+#define dxa07                           1292
+#define dxa08                           1293
+#define dxa09                           1294
+#define dxa10                           1295
+#define dxa11                           1296
+#define dxa12                           1297
+#define dxa13                           1298
+#define dxa14                           1299
+#define dxa15                           1300
+#define dxa16                           1301
+#define dxa17                           1302
+#define dxa18                           1303
+#define dxCh_a0                         1304
+#define dxCh_Ey                         1305
+#define dxCh_g0                         1306
+#define dxCh_gm                         1307
+#define dxCh_j0                         1308
+#define dxCh_Ky                         1309
+#define dxCh_l                          1310
+#define dxCh_L0                         1311
+#define dxCh_m0                         1312
+#define dxCh_ma                         1313
+#define dxCh_P0                         1314
+#define dxCh_v0                         1315
+#define dxCh_w0                         1316
+#define dxCh_Z0                         1317
+#define dxCo_e                          1318
+#define dxDi_kh                         1319
+#define dxDi_r0                         1320
+#define dxDi_r1                         1321
+#define dxDi_r2                         1322
+#define dxDi_r3                         1323
+#define dxDi_r4                         1324
+#define dxDi_Y8                         1325
+#define dxDi_YC                         1326
+#define dxDi_Yd                         1327
+#define dxDi_Yd2                        1328
+#define dxDi_Yo                         1329
+#define dxDi_YO                         1330
+#define dxDi_Yr                         1331
+#define dxDi_YR0_d                      1332
+#define dxDi_YR0_s                      1333
+#define dxDi_Yt                         1334
+#define dxDi_Yu                         1335
+#define dxDi_Yv                         1336
+#define dxDi_YXf                        1337
+#define dxDi_z0                         1338
+#define dxDi_z1                         1339
+#define dxDi_z2                         1340
+#define dxDi_z3                         1341
+#define dxGr_Wn                         1342
+#define dxGr_XN                         1343
+#define dxGr_XP0                        1344
+#define dxGr_XQ                         1345
+#define dxGr_XW0                        1346
+#define dxPr_p                          1347
+#define dxSe_10                         1348
+#define dxSe_A3                         1349
+#define dxSe_Ap                         1350
+#define dxSe_c3                         1351
+#define dxSe_sr                         1352
+#define dxSe_sr0                        1353
+#define dxSe_Yc0                        1354
+#define dxSe_Yh                         1355
+#define dxSe_Yn                         1356
+#define dxSe_ys                         1357
+#define dxSe_yt                         1358
+#define dxSe_yv                         1359
+#define dxSe_yv2                        1360
+#define dxTr_g                          1361
+#define dxTr_p                          1362
+#define dxTr_r                          1363
 #define cmdAnimateF1                    40001
 #define cmdAnimateF2                    40002
 #define cmdAnimateF3                    40003
@@ -421,245 +439,249 @@
 #define cmdChartHorizon                 40033
 #define cmdChartInfluence               40034
 #define cmdChartList                    40035
-#define cmdChartMap                     40036
-#define cmdChartMidpoint                40037
-#define cmdChartModify                  40038
-#define cmdChartOrbit                   40039
-#define cmdChartPolar                   40040
-#define cmdChartResizesWindow           40041
-#define cmdChartRising                  40042
-#define cmdChartSector                  40043
-#define cmdChartSettings                40044
-#define cmdChartSphere                  40045
-#define cmdChartWheel                   40046
-#define cmdColor                        40047
-#define cmdColoredText                  40048
-#define cmdCommand                      40049
-#define cmdConstellation                40050
-#define cmdCopyBitmap                   40051
-#define cmdCopyPicture                  40052
-#define cmdCopyPS                       40053
-#define cmdCopyText                     40054
-#define cmdCopyWire                     40055
-#define cmdDefaultInfo                  40056
-#define cmdDisplay                      40057
-#define cmdDocDefault                   40058
-#define cmdDocHelpfile                  40059
-#define cmdDocLicense                   40060
-#define cmdDocUpdate                    40061
-#define cmdDocWebsite                   40062
-#define cmdDocWebsite2                  40063
-#define cmdFileExit                     40064
-#define cmdGraphics                     40065
-#define cmdGraphicsAllStar              40066
-#define cmdGraphicsAspect               40067
-#define cmdGraphicsAxis                 40068
-#define cmdGraphicsBorder               40069
-#define cmdGraphicsCity                 40070
-#define cmdGraphicsEquator              40071
-#define cmdGraphicsHouse                40072
-#define cmdGraphicsLabel                40073
-#define cmdGraphicsModify               40074
-#define cmdGraphicsMonochrome           40075
-#define cmdGraphicsReverse              40076
-#define cmdGraphicsSidebar              40077
-#define cmdGraphicsSquare               40078
-#define cmdGraphicsText                 40079
-#define cmdHeliocentric                 40080
-#define cmdHelpAbout                    40081
-#define cmdHelpAspect                   40082
-#define cmdHelpConstellation            40083
-#define cmdHelpCredit                   40084
-#define cmdHelpKeystroke                40085
-#define cmdHelpMeaning                  40086
-#define cmdHelpObject                   40087
-#define cmdHelpObscure                  40088
-#define cmdHelpPlanetInfo               40089
-#define cmdHelpRay                      40090
-#define cmdHelpSign                     40091
-#define cmdHelpSwitch                   40092
-#define cmdHouse00                      40093
-#define cmdHouse01                      40094
-#define cmdHouse02                      40095
-#define cmdHouse03                      40096
-#define cmdHouse04                      40097
-#define cmdHouse05                      40098
-#define cmdHouse06                      40099
-#define cmdHouse07                      40100
-#define cmdHouse08                      40101
-#define cmdHouse09                      40102
-#define cmdHouse10                      40103
-#define cmdHouse11                      40104
-#define cmdHouse12                      40105
-#define cmdHouse13                      40106
-#define cmdHouse14                      40107
-#define cmdHouse15                      40108
-#define cmdHouse16                      40109
-#define cmdHouse17                      40110
-#define cmdHouse18                      40111
-#define cmdHouse19                      40112
-#define cmdHouse20                      40113
-#define cmdHouse21                      40114
-#define cmdHouseSet3D                   40115
-#define cmdHouseSetDecan                40116
-#define cmdHouseSetDwad                 40117
-#define cmdHouseSetFlip                 40118
-#define cmdHouseSetGeodetic             40119
-#define cmdHouseSetNavamsa              40120
-#define cmdHouseSetSolar                40121
-#define cmdHouseSetVedic                40122
-#define cmdInterpret                    40123
-#define cmdMacro01                      40124
-#define cmdMacro02                      40125
-#define cmdMacro03                      40126
-#define cmdMacro04                      40127
-#define cmdMacro05                      40128
-#define cmdMacro06                      40129
-#define cmdMacro07                      40130
-#define cmdMacro08                      40131
-#define cmdMacro09                      40132
-#define cmdMacro10                      40133
-#define cmdMacro11                      40134
-#define cmdMacro12                      40135
-#define cmdMacro13                      40136
-#define cmdMacro14                      40137
-#define cmdMacro15                      40138
-#define cmdMacro16                      40139
-#define cmdMacro17                      40140
-#define cmdMacro18                      40141
-#define cmdMacro19                      40142
-#define cmdMacro20                      40143
-#define cmdMacro21                      40144
-#define cmdMacro22                      40145
-#define cmdMacro23                      40146
-#define cmdMacro24                      40147
-#define cmdMacro25                      40148
-#define cmdMacro26                      40149
-#define cmdMacro27                      40150
-#define cmdMacro28                      40151
-#define cmdMacro29                      40152
-#define cmdMacro30                      40153
-#define cmdMacro31                      40154
-#define cmdMacro32                      40155
-#define cmdMacro33                      40156
-#define cmdMacro34                      40157
-#define cmdMacro35                      40158
-#define cmdMacro36                      40159
-#define cmdMacro37                      40160
-#define cmdMacro38                      40161
-#define cmdMacro39                      40162
-#define cmdMacro40                      40163
-#define cmdMacro41                      40164
-#define cmdMacro42                      40165
-#define cmdMacro43                      40166
-#define cmdMacro44                      40167
-#define cmdMacro45                      40168
-#define cmdMacro46                      40169
-#define cmdMacro47                      40170
-#define cmdMacro48                      40171
-#define cmdNow                          40172
-#define cmdObject                       40173
-#define cmdObject2                      40174
-#define cmdOpenChart                    40175
-#define cmdOpenChart2                   40176
-#define cmdParallel                     40177
-#define cmdPen00                        40178
-#define cmdPen01                        40179
-#define cmdPen02                        40180
-#define cmdPen03                        40181
-#define cmdPen04                        40182
-#define cmdPen05                        40183
-#define cmdPen06                        40184
-#define cmdPen07                        40185
-#define cmdPen08                        40186
-#define cmdPen09                        40187
-#define cmdPen10                        40188
-#define cmdPen11                        40189
-#define cmdPen12                        40190
-#define cmdPen13                        40191
-#define cmdPen14                        40192
-#define cmdPen15                        40193
-#define cmdPrint                        40194
-#define cmdPrintSetup                   40195
-#define cmdProgress                     40196
-#define cmdRecall                       40197
-#define cmdRelBiorhythm                 40198
-#define cmdRelComparison                40199
-#define cmdRelComposite                 40200
-#define cmdRelDate                      40201
-#define cmdRelMidpoint                  40202
-#define cmdRelNo                        40203
-#define cmdRelProgressed                40204
-#define cmdRelSynastry                  40205
-#define cmdRelTransit                   40206
-#define cmdRes                          40207
-#define cmdResCusp                      40208
-#define cmdResMinor                     40209
-#define cmdResStar                      40210
-#define cmdResTransit                   40211
-#define cmdResUranian                   40212
-#define cmdRotateEast                   40213
-#define cmdRotateWest                   40214
-#define cmdSaveBitmap                   40215
-#define cmdSaveChart                    40216
-#define cmdSavePicture                  40217
-#define cmdSavePositions                40218
-#define cmdSavePS                       40219
-#define cmdSaveSettings                 40220
-#define cmdSaveText                     40221
-#define cmdSaveWallCenter               40222
-#define cmdSaveWallFill                 40223
-#define cmdSaveWallFit                  40224
-#define cmdSaveWallStretch              40225
-#define cmdSaveWallTile                 40226
-#define cmdSaveWire                     40227
-#define cmdScale1                       40228
-#define cmdScale2                       40229
-#define cmdScale3                       40230
-#define cmdScale4                       40231
-#define cmdScaleDecrease                40232
-#define cmdScaleIncrease                40233
-#define cmdScrollEnd                    40234
-#define cmdScrollHome                   40235
-#define cmdScrollPageDown               40236
-#define cmdScrollPageUp                 40237
-#define cmdSecond                       40238
-#define cmdSetInfo                      40239
-#define cmdSetInfo2                     40240
-#define cmdSetInfoAll                   40241
-#define cmdSettingCalc                  40242
-#define cmdSettingGraphics              40243
-#define cmdSetupAll                     40244
-#define cmdSetupDesktop                 40245
-#define cmdSetupExtension               40246
-#define cmdSetupUser                    40247
-#define cmdSidereal                     40248
-#define cmdSizeChartToWindow            40249
-#define cmdSizeWindowFull               40250
-#define cmdSizeWindowToChart            40251
-#define cmdStar                         40252
-#define cmdStepBackward                 40253
-#define cmdStepForward                  40254
-#define cmdStore                        40255
-#define cmdTiltNorth                    40256
-#define cmdTiltSouth                    40257
-#define cmdTiltZero                     40258
-#define cmdTimedExposure                40259
-#define cmdTransit                      40260
-#define cmdUnsetup                      40261
-#define cmdWinBuffer                    40262
-#define cmdWinClear                     40263
-#define cmdWindowResizesChart           40264
-#define cmdWinHourglass                 40265
-#define cmdWinRedraw                    40266
+#define cmdChartLocal                   40036
+#define cmdChartMap                     40037
+#define cmdChartMidpoint                40038
+#define cmdChartModify                  40039
+#define cmdChartOrbit                   40040
+#define cmdChartPolar                   40041
+#define cmdChartResizesWindow           40042
+#define cmdChartRising                  40043
+#define cmdChartSector                  40044
+#define cmdChartSettings                40045
+#define cmdChartSphere                  40046
+#define cmdChartTelescope               40047
+#define cmdChartWheel                   40048
+#define cmdColor                        40049
+#define cmdColoredText                  40050
+#define cmdCommand                      40051
+#define cmdConstellation                40052
+#define cmdCopyBitmap                   40053
+#define cmdCopyPicture                  40054
+#define cmdCopyPS                       40055
+#define cmdCopyText                     40056
+#define cmdCopyWire                     40057
+#define cmdDefaultInfo                  40058
+#define cmdDisplay                      40059
+#define cmdDocDefault                   40060
+#define cmdDocHelpfile                  40061
+#define cmdDocLicense                   40062
+#define cmdDocUpdate                    40063
+#define cmdDocWebsite                   40064
+#define cmdDocWebsite2                  40065
+#define cmdFileExit                     40066
+#define cmdGraphics                     40067
+#define cmdGraphicsAllStar              40068
+#define cmdGraphicsAspect               40069
+#define cmdGraphicsAxis                 40070
+#define cmdGraphicsBorder               40071
+#define cmdGraphicsCity                 40072
+#define cmdGraphicsEquator              40073
+#define cmdGraphicsHouse                40074
+#define cmdGraphicsLabel                40075
+#define cmdGraphicsModify               40076
+#define cmdGraphicsMonochrome           40077
+#define cmdGraphicsReverse              40078
+#define cmdGraphicsSidebar              40079
+#define cmdGraphicsSquare               40080
+#define cmdGraphicsText                 40081
+#define cmdHeliocentric                 40082
+#define cmdHelpAbout                    40083
+#define cmdHelpAspect                   40084
+#define cmdHelpConstellation            40085
+#define cmdHelpCredit                   40086
+#define cmdHelpKeystroke                40087
+#define cmdHelpMeaning                  40088
+#define cmdHelpObject                   40089
+#define cmdHelpObscure                  40090
+#define cmdHelpPlanetInfo               40091
+#define cmdHelpRay                      40092
+#define cmdHelpSign                     40093
+#define cmdHelpSwitch                   40094
+#define cmdHouse00                      40095
+#define cmdHouse01                      40096
+#define cmdHouse02                      40097
+#define cmdHouse03                      40098
+#define cmdHouse04                      40099
+#define cmdHouse05                      40100
+#define cmdHouse06                      40101
+#define cmdHouse07                      40102
+#define cmdHouse08                      40103
+#define cmdHouse09                      40104
+#define cmdHouse10                      40105
+#define cmdHouse11                      40106
+#define cmdHouse12                      40107
+#define cmdHouse13                      40108
+#define cmdHouse14                      40109
+#define cmdHouse15                      40110
+#define cmdHouse16                      40111
+#define cmdHouse17                      40112
+#define cmdHouse18                      40113
+#define cmdHouse19                      40114
+#define cmdHouse20                      40115
+#define cmdHouse21                      40116
+#define cmdHouseSet3D                   40117
+#define cmdHouseSetDecan                40118
+#define cmdHouseSetDwad                 40119
+#define cmdHouseSetFlip                 40120
+#define cmdHouseSetGeodetic             40121
+#define cmdHouseSetNavamsa              40122
+#define cmdHouseSetSolar                40123
+#define cmdHouseSetVedic                40124
+#define cmdInterpret                    40125
+#define cmdMacro01                      40126
+#define cmdMacro02                      40127
+#define cmdMacro03                      40128
+#define cmdMacro04                      40129
+#define cmdMacro05                      40130
+#define cmdMacro06                      40131
+#define cmdMacro07                      40132
+#define cmdMacro08                      40133
+#define cmdMacro09                      40134
+#define cmdMacro10                      40135
+#define cmdMacro11                      40136
+#define cmdMacro12                      40137
+#define cmdMacro13                      40138
+#define cmdMacro14                      40139
+#define cmdMacro15                      40140
+#define cmdMacro16                      40141
+#define cmdMacro17                      40142
+#define cmdMacro18                      40143
+#define cmdMacro19                      40144
+#define cmdMacro20                      40145
+#define cmdMacro21                      40146
+#define cmdMacro22                      40147
+#define cmdMacro23                      40148
+#define cmdMacro24                      40149
+#define cmdMacro25                      40150
+#define cmdMacro26                      40151
+#define cmdMacro27                      40152
+#define cmdMacro28                      40153
+#define cmdMacro29                      40154
+#define cmdMacro30                      40155
+#define cmdMacro31                      40156
+#define cmdMacro32                      40157
+#define cmdMacro33                      40158
+#define cmdMacro34                      40159
+#define cmdMacro35                      40160
+#define cmdMacro36                      40161
+#define cmdMacro37                      40162
+#define cmdMacro38                      40163
+#define cmdMacro39                      40164
+#define cmdMacro40                      40165
+#define cmdMacro41                      40166
+#define cmdMacro42                      40167
+#define cmdMacro43                      40168
+#define cmdMacro44                      40169
+#define cmdMacro45                      40170
+#define cmdMacro46                      40171
+#define cmdMacro47                      40172
+#define cmdMacro48                      40173
+#define cmdNow                          40174
+#define cmdObject                       40175
+#define cmdObject2                      40176
+#define cmdOpenChart                    40177
+#define cmdOpenChart2                   40178
+#define cmdParallel                     40179
+#define cmdPen00                        40180
+#define cmdPen01                        40181
+#define cmdPen02                        40182
+#define cmdPen03                        40183
+#define cmdPen04                        40184
+#define cmdPen05                        40185
+#define cmdPen06                        40186
+#define cmdPen07                        40187
+#define cmdPen08                        40188
+#define cmdPen09                        40189
+#define cmdPen10                        40190
+#define cmdPen11                        40191
+#define cmdPen12                        40192
+#define cmdPen13                        40193
+#define cmdPen14                        40194
+#define cmdPen15                        40195
+#define cmdPrint                        40196
+#define cmdPrintSetup                   40197
+#define cmdProgress                     40198
+#define cmdRecall                       40199
+#define cmdRelBiorhythm                 40200
+#define cmdRelComparison                40201
+#define cmdRelComposite                 40202
+#define cmdRelDate                      40203
+#define cmdRelMidpoint                  40204
+#define cmdRelNo                        40205
+#define cmdRelProgressed                40206
+#define cmdRelSynastry                  40207
+#define cmdRelTransit                   40208
+#define cmdRes                          40209
+#define cmdResCusp                      40210
+#define cmdResMinor                     40211
+#define cmdResStar                      40212
+#define cmdResTransit                   40213
+#define cmdResUranian                   40214
+#define cmdRotateEast                   40215
+#define cmdRotateWest                   40216
+#define cmdSaveBitmap                   40217
+#define cmdSaveChart                    40218
+#define cmdSavePicture                  40219
+#define cmdSavePositions                40220
+#define cmdSavePS                       40221
+#define cmdSaveSettings                 40222
+#define cmdSaveText                     40223
+#define cmdSaveWallCenter               40224
+#define cmdSaveWallFill                 40225
+#define cmdSaveWallFit                  40226
+#define cmdSaveWallStretch              40227
+#define cmdSaveWallTile                 40228
+#define cmdSaveWire                     40229
+#define cmdScale1                       40230
+#define cmdScale2                       40231
+#define cmdScale3                       40232
+#define cmdScale4                       40233
+#define cmdScaleDecrease                40234
+#define cmdScaleIncrease                40235
+#define cmdScrollEnd                    40236
+#define cmdScrollHome                   40237
+#define cmdScrollPageDown               40238
+#define cmdScrollPageUp                 40239
+#define cmdSecond                       40240
+#define cmdSetInfo                      40241
+#define cmdSetInfo2                     40242
+#define cmdSetInfoAll                   40243
+#define cmdSettingCalc                  40244
+#define cmdSettingGraphics              40245
+#define cmdSetupAll                     40246
+#define cmdSetupDesktop                 40247
+#define cmdSetupExtension               40248
+#define cmdSetupUser                    40249
+#define cmdSidereal                     40250
+#define cmdSizeChartToWindow            40251
+#define cmdSizeWindowFull               40252
+#define cmdSizeWindowToChart            40253
+#define cmdStar                         40254
+#define cmdStepBackward                 40255
+#define cmdStepForward                  40256
+#define cmdStore                        40257
+#define cmdTiltNorth                    40258
+#define cmdTiltSouth                    40259
+#define cmdTiltZero                     40260
+#define cmdTimedExposure                40261
+#define cmdTransit                      40262
+#define cmdUnsetup                      40263
+#define cmdWinBuffer                    40264
+#define cmdWinClear                     40265
+#define cmdWindowResizesChart           40266
+#define cmdWinHourglass                 40267
+#define cmdWinRedraw                    40268
+#define cmdZoomIn                       40269
+#define cmdZoomOut                      40270
 
 // Next default values for new objects
 // 
 #ifdef APSTUDIO_INVOKED
 #ifndef APSTUDIO_READONLY_SYMBOLS
-#define _APS_NEXT_RESOURCE_VALUE        222
-#define _APS_NEXT_COMMAND_VALUE         40267
-#define _APS_NEXT_CONTROL_VALUE         1348
-#define _APS_NEXT_SYMED_VALUE           101
+#define _APS_NEXT_RESOURCE_VALUE        219
+#define _APS_NEXT_COMMAND_VALUE         40271
+#define _APS_NEXT_CONTROL_VALUE         1364
+#define _APS_NEXT_SYMED_VALUE           102
 #endif
 #endif
diff --git a/sefstars.txt b/sefstars.txt
index a8ea29f..9c5c191 100644
--- a/sefstars.txt
+++ b/sefstars.txt
@@ -29,7 +29,10 @@ Praesepe Cluster,M44,2000,08,40,6.000,19,59,0.00,0.000,   0.00,  0.0,5.65,3.7,
 Polaris      ,alUMi,ICRS,02,31,49.09456,+89,15,50.7923,44.48,-11.85,-16.42,7.54,2.02, 88,    8
 # Messier 87 galaxis, M87 or M-87, containing supermassive black hole, called
 # Super Galactic Cluster by Philipp Sedwick
-Messier 87 ,M87,ICRS,12,30,49.42338,12,23,28.0439,0.0,0.0,1256,0.000061,8.63,  0,    0
+Messier 87 ,M87,ICRS,12,30,49.4233823,12,23,28.0438581,-8.029,10.734,1256,0.000061,8.63,  0,    0
+# Shapley Supercluster, using ACO 3558 cluster of galaxies
+# http://simbad.u-strasbg.fr/simbad/sim-id?Ident=A3558
+Shapley Supercluster,ACO3558,ICRS,13,27,54.8,-31,29,32.0,0.0,0.0,13731,0.0000051,999.99,  0,    0
 #
 # The following stars are given first to prevent swe_fixstar() from
 # returning e.g. Denebola when Deneb is required.
@@ -62,7 +65,7 @@ Segin        ,epCas,ICRS,01,54,23.72567,+63,40,12.3628,32.09,-18.94,-8.3,7.92,3.
 # proper motion in right asc., 0.001"/year * cos(decl0)
 #               in decl., 0.001"/year
 # radial velocity in km/s
-# annual parallax in 0.001"/year
+# annual parallax in 0.001"
 # magnitude V
 # DM zone (Durchmusterung zone; declination 1900)
 # DM number 
@@ -377,6 +380,10 @@ Kabkent Tertia,phCen,ICRS,13,58,16.26680,-42,06,02.7143,-22.77,-20.13,5.3,6.21,3
              ,dCen,ICRS,13,31,02.65660,-39,24,26.2990,-15.67,-10.49,-2.4,3.6,3.88,0,0
              ,rhCen,ICRS,12,11,39.11770,-52,22,06.4432,-34.92,-16.81,15,8.61,3.96,0,0
 Proxima Centauri,V645 Cen,ICRS,14,29,42.94853,-62,40,46.1631,-3775.75,765.54,-22.4,769.91,11.13, 00, 0000
+# Shapley Supercluster, using ACO 3558 cluster of galaxies
+# http://simbad.u-strasbg.fr/simbad/sim-id?Ident=A3558
+Shapley Supercluster,ACO3558,ICRS,13,27,54.8,-31,29,32.0,0.0,0.0,13731,0.0000051,999.99,  0,    0
+A3558,ACO3558,ICRS,13,27,54.8,-31,29,32.0,0.0,0.0,13731,0.0000051,999.99,  0,    0
 # Cepheus
 Alderamin    ,alCep,ICRS,21,18,34.77233,+62,35,08.0681,150.55,49.09,-15.8,66.5,2.46, 61, 2111
 Alphirk      ,beCep,ICRS,21,28,39.59685,+70,33,38.5747,12.54,8.39,-8.2,4.76,3.23, 69, 1173
@@ -1035,6 +1042,7 @@ Alnilam      ,epOri,ICRS,05,36,12.81335,-01,12,06.9089,1.44,-0.78,27.3,1.65,1.69
 Ganesha      ,epOri,ICRS,05,36,12.81335,-01,12,06.9089,1.44,-0.78,27.3,1.65,1.69,-01,  969
 Alnitak      ,zeOri,ICRS,05,40,45.52666,-01,56,33.2649,3.19,2.03,18.5,4.43,1.79,-02, 1338
 Iyappa       ,zeOri,ICRS,05,40,45.52666,-01,56,33.2649,3.19,2.03,18.5,4.43,1.79,-02, 1338
+Ensis        ,etOri,ICRS,05,42,28.61672,-02,23,49.7311,-0.71,-3.46,19.8,3.34,3.35,0, 0
 Trapezium    ,th-1Ori,ICRS,05,35,16.46375,-05,23,22.8486,-4.13,6.82,23.6,-13,5.13,0, 0
 Hatsya       ,ioOri,ICRS,05,35,25.98191,-05,54,35.6435,1.42,-0.46,21.5,1.4,2.77,-06, 1241
 Nair al Saif ,ioOri,ICRS,05,35,25.98191,-05,54,35.6435,1.42,-0.46,21.5,1.4,2.77,-06, 1241
@@ -1058,6 +1066,8 @@ Thabit       ,upOri,ICRS,05,31,55.86019,-07,18,05.5371,-0.1,-4.87,17.4,1.14,4.63
            ,ph-1Ori,ICRS,05,34,49.23804,+09,29,22.4878,0.27,-2.26,33.2,3,4.41, 09,  877
            ,ch-2Ori,ICRS,06,03,55.18482,+20,08,18.4316,1.88,-2.1,16.8,1.81,4.63, 0,  0
            ,71Ori,ICRS,06,14,50.87581,+19,09,23.1988,-97.29,-183.23,35.3,48.04,5.2, 0,  0
+Orion Nebula,M42,ICRS,05,35,17.3,-5,23,28.0,  1.67,  -0.30,  27.8,0.0,  3.7,0,  0
+Messier 42  ,M42,ICRS,05,35,17.3,-5,23,28.0,  1.67,  -0.30,  27.8,0.0,  3.7,0,  0
 # Pavo
 Peacock      ,alPav,ICRS,20,25,38.85705,-56,44,06.3230,6.9,-86.02,2,18.24,1.918,-57, 9674
              ,bePav,ICRS,20,44,57.49399,-66,12,11.5708,-42.67,9.94,3.7,24.14,3.408,-66, 3501
@@ -1525,7 +1535,8 @@ Lich         ,PSRB1257+12,ICRS,13,00,03.1075,+12,40,55.155,46.44,-84.87,0,1.41,9
 Virgo Cluster,VC,2000,12,26,32.1,12,43,24,0.000,   0.00,  0.0,0.0000,999.99,  0,    0
 # Messier 87 galaxis, M87 or M-87, containing supermassive black hole, called
 # Super Galactic Cluster by Philipp Sedwick
-Messier 87 ,M87,ICRS,12,30,49.42338,12,23,28.0439,0.0,0.0,1256,0.000061,8.63,  0,    0
+Messier 87 ,M87,ICRS,12,30,49.4233823,12,23,28.0438581,-8.029,10.734,1256,0.000061,8.63,  0,    0
+Messier 49 ,M49,ICRS,12,29,46.798,8,00,01.48,0.0,0.0,949,0.000000,12.17,  0,    0
 # Volans
              ,alVol,ICRS,09,02,26.79592,-66,23,45.8727,-2,-95.51,7.6,26.11,3.99,-65, 1065
              ,beVol,ICRS,08,25,44.19472,-66,08,12.8050,-35.74,-152.22,27.4,30.33,3.759,-65,  933
@@ -1573,7 +1584,4 @@ ZerL2000,ZL200, ICRS,12,0,0.0,+0,0,0.0,0,0,0,0,0.0,0,0
 Sun Pole,SunPole,ICRS,19,4,31.2,63,52,12.0,0.0,0.0,0.0,0.0,0.0,0,0
 Test,Test,ICRS,21,11,47.25986, 48,17,20.5855,0.0,0.0,0.0,0.0,0.0,0,0
 NGC 4194,NGC4194,ICRS,12,14,09.573,54,31,36.03,0.0,0.0,0.0,0.0,0.0,0,0
-# radial velocity in km/s
-# annual parallax in 0.001"/year
-# magnitude V
 Gliese 710,HD168442,ICRS,18,19,50.8412023907,-1,56,19.005321656,-0.460,-0.028,-13.8,52.5185,9.656,0,0
diff --git a/swecl.cpp b/swecl.cpp
index dd5e803..e370dba 100644
--- a/swecl.cpp
+++ b/swecl.cpp
@@ -1,5 +1,4 @@
 /* SWISSEPH 
-   $Header: /home/dieter/sweph/RCS/swecl.c,v 1.75 2008/08/26 07:23:27 dieter Exp $
 
     Ephemeris computations
     Author: Dieter Koch
@@ -560,6 +559,10 @@ struct saros_data saros_data_lunar[NSAROS_LUNAR] = {
  * attr[5]	true altitude of sun above horizon at tjd
  * attr[6]	apparent altitude of sun above horizon at tjd
  * attr[7]	angular distance of moon from sun in degrees
+ * attr[8]	magnitude acc. to NASA;
+ *              = attr[0] for partial and attr[1] for annular and total eclipses
+ * attr[9]	saros series number
+ * attr[10]	saros series member number
  *         declare as attr[20] at least !
  */
 int32 CALL_CONV swe_sol_eclipse_where(
@@ -1067,7 +1070,8 @@ static int32 eclipse_how( double tjd_ut, int32 ipl, char *starname, int32 ifl,
   if (lsun > 0) {
     attr[0] = lsunleft / rsun / 2;
   } else {
-    attr[0] = 100;
+    //attr[0] = 100;
+    attr[0] = 1;
   }
   /*if (retc == SE_ECL_ANNULAR || retc == SE_ECL_TOTAL)
       attr[0] = attr[1];*/
@@ -1079,7 +1083,8 @@ static int32 eclipse_how( double tjd_ut, int32 ipl, char *starname, int32 ifl,
   lmoon = rmoon;
   lctr = dctr;
   if (retc == 0 || lsun == 0) {
-    attr[2] = 100;
+    //attr[2] = 100;
+    attr[2] = 1;
   } else if (retc == SE_ECL_TOTAL || retc == SE_ECL_ANNULAR) {
     attr[2] = lmoon * lmoon / lsun / lsun;
   } else {
@@ -3011,7 +3016,6 @@ void CALL_CONV swe_set_lapse_rate(double lapse_rate)
  *                      *        SE_TRUE_TO_APP
  *
  * function returns:
- * function returns:
  * double *dret;        * array of 4 doubles; declare 20 doubles !
  * - dret[0] true altitude, if possible; otherwise input value
  * - dret[1] apparent altitude, if possible; otherwise input value
@@ -3021,14 +3025,14 @@ void CALL_CONV swe_set_lapse_rate(double lapse_rate)
  * The body is above the horizon if the dret[0] != dret[1]
  *
  * case 1, conversion from true altitude to apparent altitude
- * - apparent altitude, if body appears above is observable above ideal horizon
+ * - apparent altitude, if body is observable above ideal horizon
  * - true altitude (the input value), otherwise
  *   "ideal horizon" is the horizon as seen above an ideal sphere (as seen
  *   from a plane over the ocean with a clear sky)
  * case 2, conversion from apparent altitude to true altitude
  * - the true altitude resulting from the input apparent altitude, if this value
  *   is a plausible apparent altitude, i.e. if it is a position above the ideal
- *   horizon
+ *   horizon, taking into account the dip of the horizon
  * - the input altitude otherwise
  *
  * The body is above the horizon if the dret[0] != dret[1]
@@ -3090,6 +3094,7 @@ double CALL_CONV swe_refrac_extended(double inalt, double geoalt, double atpress
   } else {
     refr = calc_astronomical_refr(inalt,atpress,attemp);
     trualt=inalt-refr;
+    //printf("inalt=%f, dip=%f\n", inalt, dip);
     if (dret != NULL) {
       if (inalt > dip) {
 	dret[0]=trualt;
@@ -3103,7 +3108,11 @@ double CALL_CONV swe_refrac_extended(double inalt, double geoalt, double atpress
 	dret[3]=dip;
       }
     }
-    if (trualt > dip)
+    // Apparent altitude cannot be below dip.
+    // True altitude is only returned if apparent altitude is hgher than dip.
+    // Othwise the apparent altitude is returned.
+    //if (trualt > dip)
+    if (inalt >= dip)  // bug fix dieter, 4 feb 20
       return trualt;
     else
       return inalt;
@@ -3742,7 +3751,8 @@ int32 CALL_CONV swe_lun_eclipse_when_loc(double tjd_start, int32 ifl,
  */
 #define EULER 2.718281828459
 #define NMAG_ELEM  (SE_VESTA + 1)
-#define MAG_HILTON_2005
+#define MAG_HILTON_2005   0
+#define MAG_MALLAMA_2018  1
 /* Magnitudes according to:
  * - "Explanatory Supplement to the Astronomical Almanac" 1986.
  * Magnitudes for Mercury and Venus:
@@ -3787,9 +3797,8 @@ int32 CALL_CONV swe_pheno(double tjd, int32 ipl, int32 iflag, double *attr, char
 {
   int i;
   double xx[6], xx2[6], xxs[6], lbr[6], lbr2[6], dt = 0, dd;
-  double i100;
   double fac;
-  double T, in, om, sinB, u1, u2, du;
+  double T, in, om, sinB;
   double ph1, ph2, me[2];
   int32 iflagp, epheflag, retflag, epheflag2;
   char serr2[AS_MAXCH];
@@ -3909,7 +3918,114 @@ int32 CALL_CONV swe_pheno(double tjd, int32 ipl, int32 iflag, double *attr, char
       attr[4] = mag_elem[ipl][0] - 2.5 * log10(fac);
 #endif
       /*printf("1 = %f, 2 = %f\n", mag, mag2);*/
+#if MAG_HILTON_2005
+    } else if (ipl == SE_MERCURY) {
+      /* valid range is actually 2.1 < i < 169.5 */
+      double i100 = attr[0] / 100.0;
+      attr[4] = -0.60 + 4.98 * i100 - 4.88 * i100 * i100 + 3.02 * i100 * i100 * i100;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+      if (attr[0] < 2.1 || attr[0] > 169.5) 
+        sprintf(serr2, "magnitude value for Mercury at phase angle i=%.1f is bad; formula is valid only for 2.1 < i < 169.5", attr[0]);
+    } else if (ipl == SE_VENUS) {
+      double i100 = attr[0] / 100.0;
+      if (attr[0] < 163.6) /* actual valid range is 2.2 < i < 163.6 */
+	attr[4] = -4.47 + 1.03 * i100 + 0.57 * i100 * i100 + 0.13 * i100 * i100 * i100;
+      else /* actual valid range is 163.6 < i < 170.2 */
+	attr[4] = 0.98 - 1.02 * i100;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+      if (attr[0] < 2.2 || attr[0] > 170.2)
+        sprintf(serr2, "magnitude value for Venus at phase angle i=%.1f is bad; formula is valid only for 2.2 < i < 170.2", attr[0]);
+#endif
+#if MAG_MALLAMA_2018
+    // see: A. Mallama, J.Hilton,
+    // "ComputingApparentPlanetaryMagnitudesforTheAstronomicalAlmanac" (2018)
+    // https://arxiv.org/ftp/arxiv/papers/1808/1808.01973.pdf
+    } else if (ipl == SE_MERCURY) {
+      double a = attr[0];
+      double a2 = a * a; double a3 = a2 * a; double a4 = a3 * a; double a5 = a4 * a; double a6 = a5 * a; 
+      attr[4] = -0.613 + a * 6.3280E-02 - a2 * 1.6336E-03 + a3 * 3.3644E-05 - a4 * 3.4265E-07 + a5 * 1.6893E-09 - a6 * 3.0334E-12;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+    } else if (ipl == SE_VENUS) {
+      double a = attr[0];
+      double a2 = a * a; double a3 = a2 * a; double a4 = a3 * a; 
+      if (a <= 163.7)
+	attr[4] = -4.384 - a * 1.044E-03 + a2 * 3.687E-04 - a3 * 2.814E-06 + a4 * 8.938E-09;
+      else 
+	attr[4] = 236.05828 - a * 2.81914E+00 + a2 * 8.39034E-03;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+      if (attr[0] > 179.0)
+        sprintf(serr2, "magnitude value for Venus at phase angle i=%.1f is bad; formula is valid only for i < 179.0", attr[0]);
+    } else if (ipl == SE_MARS) {
+      double a = attr[0];
+      double a2 = a * a; 
+      /* With the following formulae, the terms +L(e)+L(LS) have been omitted.
+       * They are "the magnitude corrections for the longitude of the sub-Earth 
+       * meridian of the illuminated disk and the longitude of the vernal 
+       * equinox,respectively".
+       * The apparent magnitude of Mars changes considerably within hours, 
+       * depending on the surface that is seen.
+       * Note that the maximum phase angle of mars as seen from earth is
+       * about 45.
+       * The deviation of this simplified solution from Horizons is
+       * smaller than 0.1m.
+       */
+      if (a <= 50.0)
+	attr[4] = -1.601 + a * 0.02267 - a2 * 0.0001302; 
+      else  // irrelevant to earth-centered observation
+	attr[4] = -0.367 - a * 0.02573 + a2 * 0.0003445;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+    } else if (ipl == SE_JUPITER) {
+      /* the phase angle of Jupiter never exceeds 12. */
+      double a = attr[0];
+      double a2 = a * a; 
+      attr[4] = -9.395 - a * 3.7E-04 + a2 * 6.16E-04;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
     } else if (ipl == SE_SATURN) {
+      double a = attr[0];
+      double sinB2;
+      T = (tjd - dt - J2000) / 36525.0;
+      in = (28.075216 - 0.012998 * T + 0.000004 * T * T) * DEGTORAD;
+      om = (169.508470 + 1.394681 * T + 0.000412 * T * T) * DEGTORAD;
+      // B is "mean tilt of the ring plane to the Earth and Sun (If the Earth
+      // and Sun are on opposite sides of the ring plane B = 0)" according to Hilton:
+      // https://syrte.obspm.fr/astro/journees2019/journees_pdf/SessionV_1/HiltonStewart_final.pdf
+      // Mallama does not provide B. We derive it from 
+      // Meeus, p. 301ff. (German version 329ff.)
+      // There are small differences from Horizons < 0.02m.
+      sinB = (sin(in) * cos(lbr[1] * DEGTORAD) 
+                    * sin(lbr[0] * DEGTORAD - om)
+                    - cos(in) * sin(lbr[1] * DEGTORAD));
+      sinB2 = (sin(in) * cos(lbr2[1] * DEGTORAD) 
+                    * sin(lbr2[0] * DEGTORAD - om)
+                    - cos(in) * sin(lbr2[1] * DEGTORAD));
+      sinB = fabs(sin((asin(sinB) + asin(sinB2)) / 2.0));/**/
+      attr[4] = -8.914 - 1.825 * sinB + 0.026 * a - 0.378 * sinB * pow(2.7182818,-2.25 * a);
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+    } else if (ipl == SE_URANUS) { 
+      // This is a simplified solution ignoring the term depending on
+      // sub-Earth latitude. The difference from Horizons is +-0.03m.
+      double a = attr[0];
+      double a2 = a * a; 
+      double fi_ = 0; // sub-Earth latitude in deg; ignored here
+      attr[4] = -7.110 - 8.4E-04 * fi_ + a * 6.587E-3 + a2 * 1.045E-4;
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+      // instead of the term with fi_, we do subtract the 0.05m.
+      // the remaining error is +-0.03m
+      attr[4] -= 0.05; 
+    } else if (ipl == SE_NEPTUNE) { 
+      if (tjd < 2444239.5) {
+	attr[4] = -6.89;
+      } else if (tjd <= 2451544.5) {
+	attr[4] = -6.89 - 0.0055 * (tjd - 2444239.5) / 365.25;
+	// Mallama has 0.0054, but that would make the curve discontinuos
+	// Nevertheless, JPL Horizons has 0.0054 and the discontinuity
+      } else {
+	attr[4] = -7.00;
+      }
+      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
+#else
+    } else if (ipl == SE_SATURN) {
+      double u1, u2, du;
       /* rings are considered according to Meeus, p. 301ff. (German version 329ff.) */
       T = (tjd - dt - J2000) / 36525.0;
       in = (28.075216 - 0.012998 * T + 0.000004 * T * T) * DEGTORAD;
@@ -3931,23 +4047,6 @@ int32 CALL_CONV swe_pheno(double tjd, int32 ipl, int32 iflag, double *attr, char
                   + mag_elem[ipl][2] * sinB * sinB
                   + mag_elem[ipl][3] * du
                   + mag_elem[ipl][0];
-#ifdef MAG_HILTON_2005
-    } else if (ipl == SE_MERCURY) {
-      /* valid range is actually 2.1 < i < 169.5 */
-      i100 = attr[0] / 100.0;
-      attr[4] = -0.60 + 4.98 * i100 - 4.88 * i100 * i100 + 3.02 * i100 * i100 * i100;
-      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
-      if (attr[0] < 2.1 || attr[0] > 169.5) 
-        sprintf(serr2, "magnitude value for Mercury at phase angle i=%.1f is bad; formula is valid only for 2.1 < i < 169.5", attr[0]);
-    } else if (ipl == SE_VENUS) {
-      i100 = attr[0] / 100.0;
-      if (attr[0] < 163.6) /* actual valid range is 2.2 < i < 163.6 */
-	attr[4] = -4.47 + 1.03 * i100 + 0.57 * i100 * i100 + 0.13 * i100 * i100 * i100;
-      else /* actual valid range is 163.6 < i < 170.2 */
-	attr[4] = 0.98 - 1.02 * i100;
-      attr[4] += 5 * log10(lbr2[2] * lbr[2]);
-      if (attr[0] < 2.2 || attr[0] > 170.2)
-        sprintf(serr2, "magnitude value for Venus at phase angle i=%.1f is bad; formula is valid only for 2.2 < i < 170.2", attr[0]);
 #endif
     } else if (ipl < SE_CHIRON) {
       attr[4] = 5 * log10(lbr2[2] * lbr[2])
@@ -3955,10 +4054,10 @@ int32 CALL_CONV swe_pheno(double tjd, int32 ipl, int32 iflag, double *attr, char
                   + mag_elem[ipl][2] * attr[0] * attr[0] / 10000.0
                   + mag_elem[ipl][3] * attr[0] * attr[0] * attr[0] / 1000000.0
                   + mag_elem[ipl][0];
-    } else if (ipl < NMAG_ELEM || ipl > SE_AST_OFFSET) { /* asteroids */
+    } else if (ipl < NMAG_ELEM || ipl > SE_AST_OFFSET) { /* other planets, asteroids */
       ph1 = pow(EULER, -3.33 * pow(tan(attr[0] * DEGTORAD / 2), 0.63));
       ph2 = pow(EULER, -1.87 * pow(tan(attr[0] * DEGTORAD / 2), 1.22));
-      if (ipl < NMAG_ELEM) {    /* main asteroids */
+      if (ipl < NMAG_ELEM) {    /* other planets, main asteroids */
         me[0] = mag_elem[ipl][0];
         me[1] = mag_elem[ipl][1];
       } else if (ipl == SE_AST_OFFSET + 1566) { 
@@ -4229,7 +4328,7 @@ static int32 rise_set_fast(
     if (dt > 0.1) dt = 0.1;
     else if (dt < -0.1) dt = -0.1;
     dtsum += dt;
-    if (0 && fabs(dt) > 5.0 / 86400.0 && nloop < 20)
+    if ((0) && fabs(dt) > 5.0 / 86400.0 && nloop < 20)
       nloop++;
     tr -= dt;
   }
diff --git a/swedate.cpp b/swedate.cpp
index bf805dd..c19786d 100644
--- a/swedate.cpp
+++ b/swedate.cpp
@@ -1,5 +1,4 @@
 /*********************************************************
-  $Header: /home/dieter/sweph/RCS/swedate.c,v 1.75 2009/04/08 07:17:29 dieter Exp $
   version 15-feb-89 16:30
   
   swe_date_conversion()
diff --git a/swehouse.cpp b/swehouse.cpp
index ed9f88b..fcdcaaa 100644
--- a/swehouse.cpp
+++ b/swehouse.cpp
@@ -1,5 +1,4 @@
 /*******************************************************
-$Header: /home/dieter/sweph/RCS/swehouse.c,v 1.76 2016/02/23 09:48:03 dieter Exp $
 module swehouse.c
 house and (simple) aspect calculation 
 
@@ -69,12 +68,13 @@ house and (simple) aspect calculation
 #include <string.h>
 
 #define MILLIARCSEC 	(1.0 / 3600000.0)
+#define SOLAR_YEAR   365.24219893
+#define ARMCS ((SOLAR_YEAR+1) / SOLAR_YEAR * 360)
 
 static double Asc1(double, double, double, double);
+static double AscDash(double, double, double, double);
 static double Asc2(double, double, double, double);
-static int CalcH(
-	double th, double fi, double ekl, char hsy, 
-	int iteration_count, struct houses *hsp);
+static int CalcH(double th, double fi, double ekl, char hsy, struct houses *hsp);
 static int sidereal_houses_ecl_t0(double tjde, 
                            double armc, 
                            double eps, 
@@ -82,7 +82,10 @@ static int sidereal_houses_ecl_t0(double tjde,
                            double lat, 
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc);
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr);
 static int sidereal_houses_trad(double tjde, 
 			   int32 iflag,
                            double armc, 
@@ -91,7 +94,10 @@ static int sidereal_houses_trad(double tjde,
                            double lat, 
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc);
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr);
 static int sidereal_houses_ssypl(double tjde, 
                            double armc, 
                            double eps, 
@@ -99,7 +105,10 @@ static int sidereal_houses_ssypl(double tjde,
                            double lat,
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc);
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr);
 static int sunshine_solution_makransky(double ramc, double lat, double ecl, struct houses *hsp);
 static int sunshine_solution_treindl(double ramc, double lat, double ecl, struct houses *hsp);
 #if 0
@@ -139,7 +148,11 @@ int CALL_CONV swe_houses(double tjd_ut,
     int flags = SEFLG_SPEED| SEFLG_EQUATORIAL;
     double xp[6];
     int result = swe_calc_ut(tjd_ut, SE_SUN, flags, xp, NULL);
-    if (result < 0) return ERR;
+    if (result < 0) {
+      // in case of failure, Porphyry houses
+      result = swe_houses_armc_ex2(armc, geolat, eps + nutlo[1], 'O', cusp, ascmc, NULL, NULL, NULL);
+      return ERR;
+    }
     ascmc[9] = xp[1];	// declination in ascmc[9];
   }
 #ifdef TRACE
@@ -159,37 +172,57 @@ int CALL_CONV swe_houses(double tjd_ut,
     }
   }
 #endif
-  retc = swe_houses_armc(armc, geolat, eps + nutlo[1], hsys, cusp, ascmc);
+  retc = swe_houses_armc_ex2(armc, geolat, eps + nutlo[1], hsys, cusp, ascmc, NULL, NULL, NULL);
   return retc;
 }
 
-/* housasp.c 
+// For explanation see function swe_houses_ex2() below.
+int CALL_CONV swe_houses_ex(double tjd_ut,
+                                int32 iflag, 
+				double geolat,
+				double geolon,
+				int hsys,
+				double *cusp,
+				double *ascmc)
+{
+  return swe_houses_ex2(tjd_ut, iflag, geolat, geolon, hsys, cusp, ascmc, NULL, NULL, NULL);
+}
+
+/* 
+ * Function returns OK or ERR.
  * cusps are returned in double cusp[13],
  *                           or cusp[37] with house system 'G'.
- * cusp[1...12]	houses 1 - 12
- * additional points are returned in ascmc[10].
- * ascmc[0] = ascendant
- * ascmc[1] = mc
- * ascmc[2] = armc
- * ascmc[3] = vertex
- * ascmc[4] = equasc		* "equatorial ascendant" *
- * ascmc[5] = coasc1		* "co-ascendant" (W. Koch) *
- * ascmc[6] = coasc2		* "co-ascendant" (M. Munkasey) *
- * ascmc[7] = polasc		* "polar ascendant" (M. Munkasey) *
+ * cusp[1...12]	  houses 1 - 12
+ * ascmc[0...10]  additional points:
+ *                ascmc[0] = ascendant
+ *                ascmc[1] = mc
+ *                ascmc[2] = armc
+ *                ascmc[3] = vertex
+ *                ascmc[4] = equasc		* "equatorial ascendant" *
+ *                ascmc[5] = coasc1		* "co-ascendant" (W. Koch) *
+ *                ascmc[6] = coasc2		* "co-ascendant" (M. Munkasey) *
+ *                ascmc[7] = polasc		* "polar ascendant" (M. Munkasey) *
+ * cusp_speed[1...12]  speeds (daily motions) of the cusps.
+ * ascmc_speed[0...10] speeds (daily motions) of the additional points.
+ * serr           error message or warning
  */
-int CALL_CONV swe_houses_ex(double tjd_ut,
+int CALL_CONV swe_houses_ex2(double tjd_ut,
                                 int32 iflag, 
 				double geolat,
 				double geolon,
 				int hsys,
 				double *cusp,
-				double *ascmc)
+				double *ascmc,
+			        double *cusp_speed,
+				double *ascmc_speed,
+				char *serr)
 {
   int i, retc = 0;
   double armc, eps_mean, nutlo[2];
   double tjde = tjd_ut + swe_deltat_ex(tjd_ut, iflag, NULL);
   struct sid_data *sip = &swed.sidd;
   double xp[6];
+  int retc_makr = 0;
   int ito;
   if (toupper(hsys) == 'G')
     ito = 36;
@@ -228,20 +261,23 @@ int CALL_CONV swe_houses_ex(double tjd_ut,
 //fprintf(stderr, "armc=%f, iflag=%d\n", armc, iflag);
   if (toupper(hsys) ==  'I') {	// compute sun declination for sunshine houses
     int flags = SEFLG_SPEED| SEFLG_EQUATORIAL;
-    int result = swe_calc_ut(tjd_ut, SE_SUN, flags, xp, NULL);
-    if (result < 0) return ERR;
+    retc_makr = swe_calc_ut(tjd_ut, SE_SUN, flags, xp, NULL);
+    if (retc_makr < 0) {
+      // in case of failure, provide Porphyry houses
+      hsys = (int) 'O';
+    }
     ascmc[9] = xp[1];	// declination in ascmc[9];
   }
   if (iflag & SEFLG_SIDEREAL) { 
     if (sip->sid_mode & SE_SIDBIT_ECL_T0)
-      retc = sidereal_houses_ecl_t0(tjde, armc, eps_mean + nutlo[1], nutlo, geolat, hsys, cusp, ascmc);
+      retc = sidereal_houses_ecl_t0(tjde, armc, eps_mean + nutlo[1], nutlo, geolat, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);
     else if (sip->sid_mode & SE_SIDBIT_SSY_PLANE)
-      retc = sidereal_houses_ssypl(tjde, armc, eps_mean + nutlo[1], nutlo, geolat, hsys, cusp, ascmc);
+      retc = sidereal_houses_ssypl(tjde, armc, eps_mean + nutlo[1], nutlo, geolat, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);
     else
-      retc = sidereal_houses_trad(tjde, iflag, armc, eps_mean + nutlo[1], nutlo[0], geolat, hsys, cusp, ascmc);
+      retc = sidereal_houses_trad(tjde, iflag, armc, eps_mean + nutlo[1], nutlo[0], geolat, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);
   } else {
-    retc = swe_houses_armc(armc, geolat, eps_mean + nutlo[1], hsys, cusp, ascmc);
-    if (toupper(hsys) ==  'I') 	// compute sun declination for sunshine houses
+    retc = swe_houses_armc_ex2(armc, geolat, eps_mean + nutlo[1], hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);
+    if (toupper(hsys) ==  'I') 	
       ascmc[9] = xp[1];	// declination in ascmc[9];
   }
   if (iflag & SEFLG_RADIANS) {
@@ -250,6 +286,8 @@ int CALL_CONV swe_houses_ex(double tjd_ut,
     for (i = 0; i < SE_NASCMC; i++)
       ascmc[i] *= DEGTORAD;
   }
+  if (retc_makr < 0)
+    return retc_makr;
   return retc;
 }
 
@@ -286,7 +324,10 @@ static int sidereal_houses_ecl_t0(double tjde,
                            double lat, 
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc)
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr)
 {
   int i, j, retc = OK;
   double x[6], xvpx[6], x2[6], epst0, xnorm[6];
@@ -342,7 +383,7 @@ static int sidereal_houses_ecl_t0(double tjde,
   /* auxiliary armc */
   armcx = swe_degnorm(armc - dvpx);        /* 3 */
   /* compute axes and houses: */
-  retc = swe_houses_armc(armcx, lat, epsx, hsys, cusp, ascmc);  /* 4 */
+  retc = swe_houses_armc_ex2(armcx, lat, epsx, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);  /* 4 */
   /* distance between auxiliary vernal point and
    * vernal point of t0 (a section on the sidereal plane) */
   dvpxe = acos(swi_dot_prod_unit(x, xvpx)) * RADTODEG;  /* 5 */
@@ -390,7 +431,10 @@ static int sidereal_houses_ssypl(double tjde,
                            double lat, 
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc)
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr)
 {
   int i, j, retc = OK;
   double x[6], x0[6], xvpx[6], x2[6], xnorm[6];
@@ -449,7 +493,7 @@ static int sidereal_houses_ssypl(double tjde,
   /* auxiliary armc */
   armcx = swe_degnorm(armc - dvpx);        /* 3 */
   /* compute axes and houses: */
-  retc = swe_houses_armc(armcx, lat, epsx, hsys, cusp, ascmc);  /* 4 */
+  retc = swe_houses_armc_ex2(armcx, lat, epsx, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);  /* 4 */
   /* distance between the auxiliary vernal point at t and
    * the sidereal zero point of 2000 at t
    * (a section on the sidereal plane).
@@ -498,7 +542,10 @@ static int sidereal_houses_trad(double tjde,
                            double lat, 
 			   int hsys, 
                            double *cusp, 
-                           double *ascmc) 
+                           double *ascmc,
+			   double *cusp_speed,
+			   double *ascmc_speed,
+			   char *serr)
 {
   int i, retc = OK;
   double ay;
@@ -518,7 +565,7 @@ static int sidereal_houses_trad(double tjde,
     ihs2 = 'E';
 //fprintf(stderr, "armc=%f\n", armc);
 //if (hsys == 'P') fprintf(stderr, "ay=%f, t=%f %c", ay, tjde, (char) hsys);
-  retc = swe_houses_armc(armc, lat, eps, ihs2, cusp, ascmc);
+  retc = swe_houses_armc_ex2(armc, lat, eps, ihs2, cusp, ascmc, cusp_speed, ascmc_speed, serr);
 //if (hsys == 'P') fprintf(stderr, "  h1=%f", cusp[1]);
   for (i = 1; i <= ito; i++) {
     //cusp[i] = swe_degnorm(cusp[i] - ay - nutl);
@@ -541,33 +588,52 @@ static int sidereal_houses_trad(double tjde,
   return retc;
 }
 
+// For explanation see function swe_houses_armc_ex2() below.
+int CALL_CONV swe_houses_armc(
+				double armc,
+				double geolat,
+				double eps,
+				int hsys,
+				double *cusp,
+				double *ascmc)
+{
+  return swe_houses_armc_ex2(armc, geolat, eps, hsys, cusp, ascmc, NULL, NULL, NULL);
+}
+
 /* 
+ * Function returns OK or ERR.
  * this function is required for very special computations
  * where no date is given for house calculation,
  * e.g. for composite charts or progressive charts.
  * cusps are returned in double cusp[13],
  *                           or cusp[37] with house system 'G'.
- * cusp[1...12]	houses 1 - 12
- * additional points are returned in ascmc[10].
- * ascmc[0] = ascendant
- * ascmc[1] = mc
- * ascmc[2] = armc
- * ascmc[3] = vertex
- * ascmc[4] = equasc		* "equatorial ascendant" *
- * ascmc[5] = coasc1		* "co-ascendant" (W. Koch) *
- * ascmc[6] = coasc2		* "co-ascendant" (M. Munkasey) *
- * ascmc[7] = polasc		* "polar ascendant" (M. Munkasey) *
+ * cusp[1...12]	  houses 1 - 12
+ * ascmc[0...10]  additional points:
+ *                ascmc[0] = ascendant
+ *                ascmc[1] = mc
+ *                ascmc[2] = armc
+ *                ascmc[3] = vertex
+ *                ascmc[4] = equasc		* "equatorial ascendant" *
+ *                ascmc[5] = coasc1		* "co-ascendant" (W. Koch) *
+ *                ascmc[6] = coasc2		* "co-ascendant" (M. Munkasey) *
+ *                ascmc[7] = polasc		* "polar ascendant" (M. Munkasey) *
+ * cusp_speed[1...12]  speeds (daily motions) of the cusps.
+ * ascmc_speed[0...10] speeds (daily motions) of the additional points.
+ * serr           error message or warning
  */
-int CALL_CONV swe_houses_armc(
+int CALL_CONV swe_houses_armc_ex2(
 				double armc,
 				double geolat,
 				double eps,
 				int hsys,
 				double *cusp,
-				double *ascmc)
+				double *ascmc,
+				double *cusp_speed,
+				double *ascmc_speed,
+				char *serr)
 {
-  struct houses h;
-  int i, retc = 0;
+  struct houses h, hm1, hp1;
+  int i, retc = 0, rm1, rp1;
   int ito;
   static double saved_sundec = 99;
   if (toupper(hsys) == 'G')
@@ -575,6 +641,12 @@ int CALL_CONV swe_houses_armc(
   else
     ito = 12;
   armc = swe_degnorm(armc);
+  h.do_speed = FALSE;
+  h.do_hspeed = FALSE;
+  if (ascmc_speed != NULL || cusp_speed != NULL)
+    h.do_speed = TRUE;	// is needed if cusp_speed wanted
+  if (cusp_speed != NULL)
+    h.do_hspeed = TRUE;
   if (toupper(hsys) ==  'I') {	// declination for sunshine houses
     if (ascmc[9] == 99) {
       h.sundec = 0;
@@ -584,10 +656,16 @@ int CALL_CONV swe_houses_armc(
       saved_sundec = h.sundec;
     }
   }
-  retc = CalcH(armc, geolat, eps, (char)hsys, 2, &h);
+  retc = CalcH(armc, geolat, eps, (char)hsys, &h);
   cusp[0] = 0;
+  // on failure, we only have 12 Porphyry cusps
+  if (retc < 0) {
+    ito = 12;
+    if (serr != NULL) strcpy(serr, h.serr);
+  }
   for (i = 1; i <= ito; i++) {
     cusp[i] = h.cusp[i];
+    if (h.do_hspeed) cusp_speed[i] = h.cusp_speed[i];   
   }
   ascmc[0] = h.ac;        /* Asc */    
   ascmc[1] = h.mc;        /* Mid */    
@@ -601,29 +679,74 @@ int CALL_CONV swe_houses_armc(
     ascmc[i] = 0;
   if (toupper(hsys) ==  'I') 	// declination for sunshine houses
     ascmc[9] = h.sundec ;
+  if (h.do_speed && ascmc_speed != NULL) {
+    ascmc_speed[0] = h.ac_speed;        /* Asc */    
+    ascmc_speed[1] = h.mc_speed;        /* Mid */    
+    ascmc_speed[2] = h.armc_speed;   
+    ascmc_speed[3] = h.vertex_speed;
+    ascmc_speed[4] = h.equasc_speed;
+    ascmc_speed[5] = h.coasc1_speed;	/* "co-ascendant" (W. Koch) */
+    ascmc_speed[6] = h.coasc2_speed;	/* "co-ascendant" (M. Munkasey) */
+    ascmc_speed[7] = h.polasc_speed;	/* "polar ascendant" (M. Munkasey) */
+    for (i = SE_NASCMC; i < 10; i++)
+      ascmc_speed[i] = 0;
+  }
+  if (h.do_interpol) {	// must compute cusp_speed via interpolation
+    double dt = 1.0 / 86400;
+    double darmc = dt * ARMCS;
+    hm1.do_speed = FALSE;
+    hm1.do_hspeed = FALSE;
+    hp1.do_speed = FALSE;
+    hp1.do_hspeed = FALSE;
+    if (toupper(hsys) ==  'I') {
+      hm1.sundec = h.sundec;
+      hp1.sundec = h.sundec;
+    }
+    rm1 = CalcH(armc - darmc, geolat, eps, (char)hsys, &hm1);
+    rp1 = CalcH(armc + darmc, geolat, eps, (char)hsys, &hp1);
+    if (rp1 >= 0 && rm1 >=0) {
+      if (fabs(swe_difdeg2n(hp1.ac, h.ac)) > 90) {
+	hp1 = h;	// use only upper interval
+	dt = dt / 2;
+      } else if (fabs(swe_difdeg2n(hm1.ac, h.ac)) > 90) {
+	hm1 = h;	// use only lower interval
+	dt = dt / 2;
+      }
+      for (i = 1; i <= 12; i++) {
+	double dx = swe_difdeg2n(hp1.cusp[i], hm1.cusp[i]);
+	cusp_speed[i] = dx / 2 / dt ;
+      }
+    }
+  }
 #ifdef TRACE
   swi_open_trace(NULL);
   if (swi_trace_count <= TRACE_COUNT_MAX) {
     if (swi_fp_trace_c != NULL) {
-      fputs("\n/*SWE_HOUSES_ARMC*/\n", swi_fp_trace_c);
+      fputs("\n/*SWE_HOUSES_ARMC_EX2*/\n", swi_fp_trace_c);
       fprintf(swi_fp_trace_c, "  armc = %.9f;", armc);
       fprintf(swi_fp_trace_c, " geolat = %.9f;", geolat);
       fprintf(swi_fp_trace_c, " eps = %.9f;", eps);
       fprintf(swi_fp_trace_c, " hsys = %d;\n", hsys);
-      fprintf(swi_fp_trace_c, "  retc = swe_houses_armc(armc, geolat, eps, hsys, cusp, ascmc);\n");
-      fputs("  printf(\"swe_houses_armc: %f\\t%f\\t%f\\t%c\\t\\n\", ", swi_fp_trace_c);
+      fprintf(swi_fp_trace_c, "  retc = swe_houses_armc_ex2(armc, geolat, eps, hsys, cusp, ascmc, cusp_speed, ascmc_speed, serr);\n");
+      fputs("  printf(\"swe_houses_armc_ex2: %f\\t%f\\t%f\\t%c\\t\\n\", ", swi_fp_trace_c);
       fputs("  armc, geolat, eps, hsys);\n", swi_fp_trace_c);
       fputs("  printf(\"retc = %d\\n\", retc);\n", swi_fp_trace_c);
       fputs("  printf(\"cusp:\\n\");\n", swi_fp_trace_c);
-      fputs("  for (i = 0; i < 12; i++)\n", swi_fp_trace_c);
+      fputs("  for (i = 1; i <= 12; i++)\n", swi_fp_trace_c);
       fputs("    printf(\"  %d\\t%f\\n\", i, cusp[i]);\n", swi_fp_trace_c);
       fputs("  printf(\"ascmc:\\n\");\n", swi_fp_trace_c);
       fputs("  for (i = 0; i < 10; i++)\n", swi_fp_trace_c);
       fputs("    printf(\"  %d\\t%f\\n\", i, ascmc[i]);\n", swi_fp_trace_c);
+      fputs("  printf(\"cusp_speed:\\n\");\n", swi_fp_trace_c);
+      fputs("  for (i = 1; i <= 12; i++)\n", swi_fp_trace_c);
+      fputs("    printf(\"  %d\\t%f\\n\", i, cusp_speed[i]);\n", swi_fp_trace_c);
+      fputs("  printf(\"ascmc_speed:\\n\");\n", swi_fp_trace_c);
+      fputs("  for (i = 0; i < 10; i++)\n", swi_fp_trace_c);
+      fputs("    printf(\"  %d\\t%f\\n\", i, ascmc_speed[i]);\n", swi_fp_trace_c);
       fflush(swi_fp_trace_c);
     }
     if (swi_fp_trace_out != NULL) {
-      fprintf(swi_fp_trace_out, "swe_houses_armc: %f\t%f\t%f\t%c\t\n", armc, geolat, eps, hsys);
+      fprintf(swi_fp_trace_out, "swe_houses_armc_ex2: %f\t%f\t%f\t%c\t\n", armc, geolat, eps, hsys);
       fprintf(swi_fp_trace_out, "retc = %d\n", retc);
       fputs("cusp:\n", swi_fp_trace_out);
       for (i = 1; i <= 12; i++)
@@ -760,9 +883,10 @@ double swi_armc_to_mc(double armc, double eps)
   return mc;
 }
 
+//#define DEBUG_PLAC_ITER 1
+#define VERY_SMALL_PLAC_ITER (1.0 / 360000.0 )
 static int CalcH(
-	double th, double fi, double ekl, char hsy,
-	int iteration_count, struct houses *hsp)
+	double th, double fi, double ekl, char hsy, struct houses *hsp)
 /* *********************************************************
  *  Arguments: th = sidereal time (angle 0..360 degrees
  *             hsy = letter code for house system;
@@ -793,8 +917,6 @@ static int CalcH(
  *                   Y  APC houses
  *             fi = geographic latitude
  *             ekl = obliquity of the ecliptic
- *             iteration_count = number of iterations in
- *             Placidus calculation; can be 1 or 2.
  * *********************************************************
  *  Koch and Placidus don't work in the polar circle.
  *  We swap MC/IC so that MC is always before AC in the zodiac
@@ -810,7 +932,10 @@ static int CalcH(
   int 	i, ih, ih2, retc = OK;
   double sine, cose;
   double x[3], krHorizonLon; /* BK 14.02.2006 */
+  int niter_max = 100; // maximum iterations allowed with Placidus
+  double cuspsv;
   *hsp->serr = '\0';
+  hsp->do_interpol = 0;
   cose  = cosd(ekl);
   sine  = sind(ekl);
   tane  = tand(ekl);
@@ -836,10 +961,23 @@ static int CalcH(
       hsp->mc = 270;
   } /*  if */
   hsp->mc = swe_degnorm(hsp->mc);
+  if (hsp->do_speed) hsp->mc_speed = AscDash(th, 0, sine, cose); 
   /* ascendant */
   hsp->ac = Asc1(th + 90, fi, sine, cose);
+  if (hsp->do_speed) 
+    hsp->ac_speed = AscDash(th + 90, fi, sine, cose);
+  if (hsp->do_hspeed) {
+    for (i = 0; i <= 12; i++)
+      hsp->cusp_speed[i] = 0;
+  }
+  hsp->armc_speed = ARMCS;
+  // these cusp[1] and cusp[10] values may be changed further down for some house systems
   hsp->cusp[1] = hsp->ac;
   hsp->cusp[10] = hsp->mc;
+  if (hsp->do_hspeed) {	
+    hsp->cusp_speed[1] = hsp->ac_speed;
+    hsp->cusp_speed[10] = hsp->mc_speed;
+  }
   /* we respect smaller case letter for i, otherwise they are deprecated */
   if (hsy > 95 && hsy != 'i') {
     sprintf(hsp->serr, "use of lower case letters like %c for house systems is deprecated", hsy);
@@ -854,8 +992,14 @@ static int CalcH(
       hsp->ac = swe_degnorm(hsp->ac + 180);
       hsp->cusp[1] = hsp->ac;
     }
-    for (i = 2; i <=12; i++)
+    for (i = 2; i <=12; i++) {
       hsp->cusp[i] = swe_degnorm(hsp->cusp[1] + (i-1) * 30);
+    }
+    if (hsp->do_hspeed) {
+      for (i = 1; i <=12; i++) {
+	hsp->cusp_speed[i] = hsp->ac_speed;
+      }
+    }
     break;
   case 'D':	/* equal, begin  at MC */
     acmc = swe_difdeg2n(hsp->ac, hsp->mc);
@@ -868,6 +1012,11 @@ static int CalcH(
       hsp->cusp[i] = swe_degnorm(hsp->cusp[10] + (i-10) * 30);
     for (i = 1; i <= 9; i++) 
       hsp->cusp[i] = swe_degnorm(hsp->cusp[10] + (i + 2) * 30);
+    if (hsp->do_hspeed) {
+      for (i = 1; i <=12; i++) {
+	hsp->cusp_speed[i] = hsp->mc_speed;
+      }
+    }
     break;
   case 'C': /* Campanus houses and Horizon or Azimut system */
   case 'H':
@@ -903,6 +1052,14 @@ static int CalcH(
       hsp->cusp[1] = Asc1(th + 90, fi, sine, cose);
     hsp->cusp[2] = Asc1(th + 90 + xh2, fh2, sine, cose);
     hsp->cusp[3] = Asc1(th + 90 + xh1, fh1, sine, cose);
+    if (hsp->do_hspeed) {
+      hsp->cusp_speed[11] = AscDash(th + 90 - xh1, fh1, sine, cose);
+      hsp->cusp_speed[12] = AscDash(th + 90 - xh2, fh2, sine, cose);
+      if (hsy == 'H') 
+	hsp->cusp_speed[1] = AscDash(th + 90, fi, sine, cose);
+      hsp->cusp_speed[2] = AscDash(th + 90 + xh2, fh2, sine, cose);
+      hsp->cusp_speed[3] = AscDash(th + 90 + xh1, fh1, sine, cose);
+    }
     /* within polar circle, when mc sinks below horizon and 
 	 * ascendant changes to western hemisphere, all cusps
      * must be added 180 degrees. 
@@ -959,6 +1116,7 @@ static int CalcH(
       hsy = 'O';
       goto porphyry;
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   case 'K': /* Koch houses */
     if (fabs(fi) >= 90 - ekl) {  /* within polar circle */
@@ -976,6 +1134,12 @@ static int CalcH(
     hsp->cusp[12] = Asc1(th + 60 - ad3, fi, sine, cose);
     hsp->cusp[2] = Asc1(th + 120 + ad3, fi, sine, cose);
     hsp->cusp[3] = Asc1(th + 150 + 2 * ad3, fi, sine, cose);
+    if (hsp->do_hspeed) {
+      hsp->cusp_speed[11] = AscDash(th + 30 - 2 * ad3, fi, sine, cose);
+      hsp->cusp_speed[12] = AscDash(th + 60 - ad3, fi, sine, cose);
+      hsp->cusp_speed[2] = AscDash(th + 120 + ad3, fi, sine, cose);
+      hsp->cusp_speed[3] = AscDash(th + 150 + 2 * ad3, fi, sine, cose);
+    }
     break;
   case 'L':	/* Pullen SD sinusoidal delta, ex Neo-Porphyry */
     {
@@ -1003,6 +1167,7 @@ static int CalcH(
 	hsp->cusp[3] = swe_degnorm(hsp->ac + 60 + 3 * d);
       }
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   case 'N':	/* whole signs, begin at 0 Aries */
     acmc = swe_difdeg2n(hsp->ac, hsp->mc);
@@ -1022,10 +1187,22 @@ static int CalcH(
       hsp->cusp[1] = hsp->ac;
       acmc = swe_difdeg2n(hsp->ac, hsp->mc);
     }
+    hsp->cusp[1] = hsp->ac;  // may have been destroyed if defaulting from Gauquelin
+    hsp->cusp[10] = hsp->mc; // dito
     hsp->cusp[2] = swe_degnorm(hsp->ac + (180 - acmc) / 3);
     hsp->cusp[3] = swe_degnorm(hsp->ac + (180 - acmc) / 3 * 2);
     hsp->cusp[11] = swe_degnorm(hsp->mc + acmc / 3);
     hsp->cusp[12] = swe_degnorm(hsp->mc + acmc / 3 * 2);
+    if (hsp->do_hspeed) {
+      double q1_speed = hsp->ac_speed - hsp->mc_speed;	// rate of growth of quadrant 1
+      // double q4_speed = hsp->mc_speed - hsp->ac_speed;	// rate of growth of quadrant 4
+      hsp->cusp_speed[1] = hsp->ac_speed;  // may have been destroyed if defaulting from Gauquelin
+      hsp->cusp_speed[10] = hsp->mc_speed; // dito
+      hsp->cusp_speed[2] = hsp->ac_speed  - q1_speed / 3;
+      hsp->cusp_speed[3] = hsp->ac_speed  - q1_speed / 3 * 2;
+      hsp->cusp_speed[11] = hsp->ac_speed  + q1_speed / 3;
+      hsp->cusp_speed[12] = hsp->ac_speed  + q1_speed / 3 * 2;
+    }
     break;
   case 'Q':	/* Pullen sinusoidal ratio */
     {
@@ -1070,6 +1247,7 @@ static int CalcH(
 	hsp->cusp[3] = swe_degnorm(hsp->cusp[2] + xr4);	// house 2 size xr^4
       }
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   case 'R':	/* Regiomontanus houses */
     fh1 = atand (tanfi * 0.5);
@@ -1078,6 +1256,12 @@ static int CalcH(
     hsp->cusp[12] = Asc1(60 + th, fh2, sine, cose); 
     hsp->cusp[2] = Asc1(120 + th, fh2, sine, cose);
     hsp->cusp[3] = Asc1(150 + th, fh1, sine, cose); 
+    if (hsp->do_hspeed) {
+      hsp->cusp_speed[11] = AscDash(30 + th, fh1, sine, cose); 
+      hsp->cusp_speed[12] = AscDash(60 + th, fh2, sine, cose); 
+      hsp->cusp_speed[2] = AscDash(120 + th, fh2, sine, cose);
+      hsp->cusp_speed[3] = AscDash(150 + th, fh1, sine, cose); 
+    }
     /* within polar circle, when mc sinks below horizon and 
      * ascendant changes to western hemisphere, all cusps
      * must be added 180 degrees.
@@ -1114,6 +1298,7 @@ static int CalcH(
       hsp->cusp[11] = swe_degnorm(hsp->mc + s4 * 0.5);
       hsp->cusp[12] = swe_degnorm(hsp->mc + s4 * 1.5);
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   case 'T':	/* 'topocentric' houses */
     fh1 = atand (tanfi / 3.0);
@@ -1122,6 +1307,12 @@ static int CalcH(
     hsp->cusp[12] =  Asc1(60 + th, fh2, sine, cose);
     hsp->cusp[2] =  Asc1(120 + th, fh2, sine, cose); 
     hsp->cusp[3] =  Asc1(150 + th, fh1, sine, cose);
+    if (hsp->do_hspeed) {
+      hsp->cusp_speed[11] =  AscDash(30 + th, fh1, sine, cose); 
+      hsp->cusp_speed[12] =  AscDash(60 + th, fh2, sine, cose);
+      hsp->cusp_speed[2] =  AscDash(120 + th, fh2, sine, cose); 
+      hsp->cusp_speed[3] =  AscDash(150 + th, fh1, sine, cose);
+    }
     /* within polar circle, when mc sinks below horizon and 
      * ascendant changes to western hemisphere, all cusps
      * must be added 180 degrees.
@@ -1147,6 +1338,11 @@ static int CalcH(
     for (i = 2; i <=12; i++)
       hsp->cusp[i] = swe_degnorm(hsp->cusp[1] + (i-1) * 30);
     break;
+    if (hsp->do_hspeed) {
+      for (i = 1; i <=12; i++) {
+	hsp->cusp_speed[i] = hsp->ac_speed;
+      }
+    }
   case 'W':	/* equal, whole-sign houses */
     acmc = swe_difdeg2n(hsp->ac, hsp->mc);
     if (acmc < 0) {
@@ -1188,6 +1384,7 @@ static int CalcH(
     if (acmc < 0) {
       hsp->ac = swe_degnorm(hsp->ac + 180);
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break; }
   case 'M': {
     /* 
@@ -1211,6 +1408,7 @@ static int CalcH(
     if (acmc < 0) {
       hsp->ac = swe_degnorm(hsp->ac + 180);
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break; }
   case 'F': {
     /* 
@@ -1250,6 +1448,7 @@ static int CalcH(
 	hsp->cusp[i] = swe_degnorm(hsp->cusp[i]);
       }
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break; }
   case 'B': {	/* Alcabitius */
     /* created by Alois 17-sep-2000, followed example in Matrix
@@ -1286,14 +1485,17 @@ static int CalcH(
     rectasc = swe_degnorm(th + 180 -  sn3);	/* cusp 3 */
     hsp->cusp[3] = Asc1(rectasc, 0, sine, cose);
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   case 'G': 	/* 36 Gauquelin sectors */
     for (i = 1; i <= 36; i++) {
       hsp->cusp[i] = 0;
+      hsp->cusp_speed[i] = 0;
     }
     if (fabs(fi) >= 90 - ekl) {  /* within polar circle */
       retc = ERR;
       strcpy(hsp->serr, "within polar circle, switched to Porphyry"); 
+      hsy = (int) 'O';
       goto porphyry;
     }
     /*************** forth/second quarter ***************/
@@ -1306,22 +1508,39 @@ static int CalcH(
       tant = tand(asind(sine * sind(Asc1(rectasc, fh1, sine, cose))));
       if (fabs(tant) < VERY_SMALL) {
 	hsp->cusp[ih] = rectasc;
+	if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
       } else {
 	/* pole height */
 	f = atand(sind(asind(tanfi * tant) * ih2 / 9)  /tant);
         hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
-        for (i = 1; i <= iteration_count; i++) {
+	cuspsv = 0;
+        for (i = 1; i <= niter_max; i++) {
 	  tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	  if (fabs(tant) < VERY_SMALL) {
 	    hsp->cusp[ih] = rectasc;
+	    if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	    break;
 	  }
 	  /* pole height */
 	  f = atand(sind(asind(tanfi * tant) * ih2 / 9) / tant);
   	  hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	  if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	    break;
+	  cuspsv = hsp->cusp[ih];
         }
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
+	if (i >= niter_max) {
+	  retc = ERR;
+	  hsy = (int) 'O';
+	  strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	  goto porphyry;
+	}
+	if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
       }
       hsp->cusp[ih+18] = swe_degnorm(hsp->cusp[ih] + 180);
+      if (hsp->do_hspeed) hsp->cusp_speed[ih + 18] = hsp->cusp_speed[ih];
     }
     /*************** first/third quarter ***************/
     for (ih = 29; ih <= 36; ih++) {
@@ -1331,27 +1550,50 @@ static int CalcH(
       tant = tand(asind(sine * sind(Asc1(rectasc, fh1, sine, cose))));
       if (fabs(tant) < VERY_SMALL) {
         hsp->cusp[ih] = rectasc;
+	if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
       } else {
         f = atand(sind(asind(tanfi * tant) * ih2 / 9) / tant);
         /*  pole height */
         hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
-        for (i = 1; i <= iteration_count; i++) {
+	cuspsv = 0;
+        for (i = 1; i <= niter_max; i++) {
 	  tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	  if (fabs(tant) < VERY_SMALL) {
 	    hsp->cusp[ih] = rectasc;
+	    if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	    break;
 	  }
 	  f = atand(sind(asind(tanfi * tant) * ih2 / 9) / tant);
 	  /*  pole height */
   	  hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	  if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	    break;
+	  cuspsv = hsp->cusp[ih];
 	}
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
+	if (i >= niter_max) {
+	  retc = ERR;
+	  hsy = (int) 'O';
+	  strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	  goto porphyry;
+	}
+	if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
       }
       hsp->cusp[ih-18] = swe_degnorm(hsp->cusp[ih] + 180);
+      if (hsp->do_hspeed) hsp->cusp_speed[ih - 18] = hsp->cusp_speed[ih];
     }
     hsp->cusp[1] = hsp->ac;
     hsp->cusp[10] = hsp->mc;
     hsp->cusp[19] = swe_degnorm(hsp->ac + 180);
     hsp->cusp[28] = swe_degnorm(hsp->mc + 180);
+    if (hsp->do_hspeed) {
+      hsp->cusp_speed[1] = hsp->ac_speed;
+      hsp->cusp_speed[10] = hsp->mc_speed;
+      hsp->cusp_speed[19] = hsp->ac_speed;
+      hsp->cusp_speed[28] = hsp->mc_speed;
+    }
     break;
   case 'U': /* Krusinski-Pisa */
     /*
@@ -1450,6 +1692,7 @@ static int CalcH(
 	  hsp->cusp[i] = swe_degnorm(hsp->cusp[i] + 180);
       }
     }
+    hsp->do_interpol = hsp->do_hspeed;
     break;
   default:	/* Placidus houses */
     if (fabs(fi) >= 90 - ekl) {  /* within polar circle */
@@ -1463,82 +1706,146 @@ static int CalcH(
     /* ************  house 11 ******************** */
     rectasc = swe_degnorm(30 + th);
     tant = tand(asind(sine * sind(Asc1(rectasc, fh1, sine, cose))));
+    ih = 11;
     if (fabs(tant) < VERY_SMALL) {
-      hsp->cusp[11] = rectasc;
+      hsp->cusp[ih] = rectasc;
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
     } else {
       /* pole height */
       f = atand(sind(asind(tanfi * tant) / 3)  /tant);  
-      hsp->cusp[11] = Asc1(rectasc, f, sine, cose);
-      for (i = 1; i <= iteration_count; i++) {
-	tant = tand(asind(sine * sind(hsp->cusp[11])));
+      hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+      cuspsv = 0;
+      for (i = 1; i <= niter_max; i++) {
+	tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	if (fabs(tant) < VERY_SMALL) {
-	  hsp->cusp[11] = rectasc;
+	  hsp->cusp[ih] = rectasc;
+	  if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	  break;
 	}
 	/* pole height */
 	f = atand(sind(asind(tanfi * tant) / 3) / tant);
-	hsp->cusp[11] = Asc1(rectasc, f, sine, cose);
+	hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	  break;
+	cuspsv = hsp->cusp[ih];
       }
+      if (i >= niter_max) {
+	retc = ERR;
+	strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	goto porphyry;
+      }
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
     }
     /* ************  house 12 ******************** */
     rectasc = swe_degnorm(60 + th);
     tant = tand(asind(sine*sind(Asc1(rectasc,  fh2, sine, cose))));
+    ih = 12;
     if (fabs(tant) < VERY_SMALL) {
-      hsp->cusp[12] = rectasc;
+      hsp->cusp[ih] = rectasc;
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
     } else {
       f = atand(sind(asind(tanfi * tant) / 1.5) / tant);  
       /*  pole height */
-      hsp->cusp[12] = Asc1(rectasc, f, sine, cose);
-      for (i = 1; i <= iteration_count; i++) {
-	tant = tand(asind(sine * sind(hsp->cusp[12])));
+      hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+      cuspsv = 0;
+      for (i = 1; i <= niter_max; i++) {
+	tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	if (fabs(tant) < VERY_SMALL) {
-	  hsp->cusp[12] = rectasc;
+	  hsp->cusp[ih] = rectasc;
+	  if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	  break;
 	}
 	f = atand(sind(asind(tanfi * tant) / 1.5) / tant);  
 	/*  pole height */
-	hsp->cusp[12] = Asc1(rectasc, f, sine, cose);
+	hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	  break;
+	cuspsv = hsp->cusp[ih];
       }
+      if (i >= niter_max) {
+	retc = ERR;
+	strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	goto porphyry;
+      }
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
     }
     /* ************  house  2 ******************** */
     rectasc = swe_degnorm(120 + th);
     tant = tand(asind(sine * sind(Asc1(rectasc, fh2, sine, cose))));
-	if (fabs(tant) < VERY_SMALL) {
-      hsp->cusp[2] = rectasc;
+    ih = 2;
+    if (fabs(tant) < VERY_SMALL) {
+      hsp->cusp[ih] = rectasc;
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
     } else {
       f = atand(sind(asind(tanfi * tant) / 1.5) / tant);
       /*  pole height */
-      hsp->cusp[2] = Asc1(rectasc, f, sine, cose);
-      for (i = 1; i <= iteration_count; i++) {
-	tant = tand(asind(sine * sind(hsp->cusp[2])));
+      hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+      cuspsv = 0;
+      for (i = 1; i <= niter_max; i++) {
+	tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	if (fabs(tant) < VERY_SMALL) {
-	  hsp->cusp[2] = rectasc;
+	  hsp->cusp[ih] = rectasc;
+	  if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	  break;
 	}
 	f = atand(sind(asind(tanfi * tant) / 1.5) / tant);
 	/*  pole height */
-	hsp->cusp[2] = Asc1(rectasc, f, sine, cose);
+	hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	  break;
+	cuspsv = hsp->cusp[ih];
+      }
+      if (i >= niter_max) {
+	retc = ERR;
+	strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	goto porphyry;
       }
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
     }
     /* ************  house  3 ******************** */
     rectasc = swe_degnorm(150 + th);
     tant = tand(asind(sine * sind(Asc1(rectasc, fh1, sine, cose))));
+    ih = 3;
     if (fabs(tant) < VERY_SMALL) {
-      hsp->cusp[3] = rectasc;
+      hsp->cusp[ih] = rectasc;
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
     } else {
       f = atand(sind(asind(tanfi * tant) / 3) / tant);  
       /*  pole height */
-      hsp->cusp[3] = Asc1(rectasc, f, sine, cose);
-      for (i = 1; i <= iteration_count; i++) {
-	tant = tand(asind(sine * sind(hsp->cusp[3])));
+      hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+      cuspsv = 0;
+      for (i = 1; i <= niter_max; i++) {
+	tant = tand(asind(sine * sind(hsp->cusp[ih])));
 	if (fabs(tant) < VERY_SMALL) {
-	  hsp->cusp[3] = rectasc;
+	  hsp->cusp[ih] = rectasc;
+	  if (hsp->do_hspeed) hsp->cusp_speed[ih] = hsp->armc_speed;
 	  break;
 	}
 	f = atand(sind(asind(tanfi * tant) / 3) / tant);
 	/*  pole height */
-	hsp->cusp[3] = Asc1(rectasc, f, sine, cose);
+	hsp->cusp[ih] = Asc1(rectasc, f, sine, cose);
+	if (i > 1 && fabs(swe_difdeg2n(hsp->cusp[ih], cuspsv)) < VERY_SMALL_PLAC_ITER)
+	  break;
+	cuspsv = hsp->cusp[ih];
       }
+      if (i >= niter_max) {
+	retc = ERR;
+	strcpy(hsp->serr, "very close to polar circle, switched to Porphyry"); 
+	goto porphyry;
+      }
+      if (hsp->do_hspeed) hsp->cusp_speed[ih] = AscDash(rectasc, f, sine, cose);
+#ifdef DEBUG_PLAC_ITER
+  fprintf(stderr, "h=%d, niter=%d\n", ih, i);
+#endif
     }
     break;
   } /* end switch */
@@ -1549,6 +1856,14 @@ static int CalcH(
     hsp->cusp[7] = swe_degnorm(hsp->cusp[1] + 180);
     hsp->cusp[8] = swe_degnorm(hsp->cusp[2] + 180);
     hsp->cusp[9] = swe_degnorm(hsp->cusp[3] + 180);
+    if (hsp->do_hspeed && ! hsp->do_interpol) {
+      hsp->cusp_speed[4] = hsp->cusp_speed[10];
+      hsp->cusp_speed[5] = hsp->cusp_speed[11];
+      hsp->cusp_speed[6] = hsp->cusp_speed[12];
+      hsp->cusp_speed[7] = hsp->cusp_speed[1];
+      hsp->cusp_speed[8] = hsp->cusp_speed[2];
+      hsp->cusp_speed[9] = hsp->cusp_speed[3];
+    }
   }
   /* vertex */
   if (fi >= 0)
@@ -1556,6 +1871,7 @@ static int CalcH(
   else
     f = -90 - fi;
   hsp->vertex = Asc1(th - 90, f, sine, cose);
+  if (hsp->do_speed) hsp->vertex_speed = AscDash(th - 90, f, sine, cose);
   /* with tropical latitudes, the vertex behaves strange, 
    * in a similar way as the ascendant within the polar
    * circle. we keep it always on the western hemisphere.*/
@@ -1582,15 +1898,21 @@ static int CalcH(
       hsp->equasc = 270;
   } /*  if */
   hsp->equasc = swe_degnorm(hsp->equasc);
+  if (hsp->do_speed) hsp->equasc_speed = AscDash(th + 90, 0, sine, cose); 
   /* "co-ascendant" W. Koch */
   hsp->coasc1 = swe_degnorm(Asc1(th - 90, fi, sine, cose) + 180);
+  if (hsp->do_speed) hsp->coasc1_speed = AscDash(th - 90, fi, sine, cose);
   /* "co-ascendant" M. Munkasey */
-  if (fi >= 0)
+  if (fi >= 0) {
     hsp->coasc2 = Asc1(th + 90, 90 - fi, sine, cose);
-  else /* southern hemisphere */
+    if (hsp->do_speed) hsp->coasc2_speed = AscDash(th + 90, 90 - fi, sine, cose);
+  } else { /* southern hemisphere */
     hsp->coasc2 = Asc1(th + 90, -90 - fi, sine, cose);
+    if (hsp->do_speed) hsp->coasc2_speed = AscDash(th + 90, -90 - fi, sine, cose);
+  }
   /* "polar ascendant" M. Munkasey */
   hsp->polasc = Asc1(th - 90, fi, sine, cose);
+  if (hsp->do_speed) hsp->polasc_speed = AscDash(th - 90, fi, sine, cose);
 #if 0
   test_Asc1();
 #endif
@@ -1630,6 +1952,25 @@ static double Asc1(double x1, double f, double sine, double cose)
   return ass;
 }  /* Asc1 */
 
+// derivative of Asc1, computes speed
+// code crontributed by Graham Dawson
+static double AscDash(double x, double f, double sine, double cose)
+{
+  double cosx = cosd(x);
+  double sinx = sind(x);
+  double sinx2 = sinx * sinx;
+  double c = cose * cosx - tand(f) * sine;
+  double d = sinx2 + c * c;
+  double dudt;
+  if (d > VERY_SMALL) {
+      dudt = (cosx * c + cose * sinx2) / d;
+  } else {
+      dudt = 0.0; //  When we are on axis of ecliptic
+  }
+  return dudt * ARMCS;	// 360.985647366;
+}
+
+
 #if 0
 /******************************/
 static double Asc1_old(double x1, double f, double sine, double cose) 
@@ -1812,7 +2153,7 @@ double CALL_CONV swe_house_pos(
   //double demc;
   double fh, ra0, tanfi, fac, dfac, tanx;
   double x[3], xasc[3], raep, raaz, oblaz, xtemp; /* BK 21.02.2006 */
-  double hcusp[36], ascmc[10];
+  double hcusp[37], ascmc[10];
   double sine = sind(eps);
   double cose = cosd(eps);
   double c1, c2, d, hsize;
@@ -1826,7 +2167,7 @@ if (1) {
   		// which we do not know. If it sees ascmc[9] == 99, it uses
 		// the one is saved from last call. can lead to bugs, but can 
 		// also solve many problems.
-  if (swe_houses_armc(armc, geolat, eps, hsys, hcusp, ascmc) == ERR) {
+  if (swe_houses_armc_ex2(armc, geolat, eps, hsys, hcusp, ascmc, NULL, NULL, serr) == ERR) {
     if (serr != NULL)
       sprintf(serr, "swe_house_pos(): failed for system %c", hsys);
   } else {
@@ -2399,7 +2740,7 @@ if (1) {
     break;
   default:
     hpos = 0;
-    if (swe_houses_armc(armc, geolat, eps, hsys, hcusp, ascmc) == ERR) {
+    if (swe_houses_armc_ex2(armc, geolat, eps, hsys, hcusp, ascmc, NULL, NULL, serr) == ERR) {
       if (serr != NULL)
 	sprintf(serr, "swe_house_pos(): failed for system %c", hsys);
       break;
diff --git a/swehouse.h b/swehouse.h
index 73771b0..b6edba1 100644
--- a/swehouse.h
+++ b/swehouse.h
@@ -1,5 +1,4 @@
 /*******************************************************
-$Header: /home/dieter/sweph/RCS/swehouse.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
 module swehouse.h
 house and (simple) aspect calculation 
 
@@ -61,14 +60,26 @@ house and (simple) aspect calculation
 
 struct houses {
 	  double cusp[37];
+	  double cusp_speed[37];
 	  double ac;
+	  double ac_speed;	// speed of ac
 	  double mc;
+	  double mc_speed;	// speed of mc
+	  double armc_speed;	// speed of armc
 	  double vertex;
+	  double vertex_speed;	// speed of vertex
 	  double equasc;
+	  double equasc_speed;	// speed
 	  double coasc1;
+	  double coasc1_speed;	// speed
 	  double coasc2;
+	  double coasc2_speed;	// speed
 	  double polasc;
+	  double polasc_speed;	// speed
 	  double sundec;	// declination of Sun for Sunshine houses
+	  AS_BOOL do_speed;
+	  AS_BOOL do_hspeed;
+	  AS_BOOL do_interpol;
 	  char serr[AS_MAXCH];
 	};
 
diff --git a/swejpl.cpp b/swejpl.cpp
index 40f58a5..3a9886c 100644
--- a/swejpl.cpp
+++ b/swejpl.cpp
@@ -1,5 +1,4 @@
 /* 
- | $Header: /home/dieter/sweph/RCS/swejpl.c,v 1.76 2008/08/26 13:55:36 dieter Exp $
  |
  | Subroutines for reading JPL ephemerides.
  | derived from testeph.f as contained in DE403 distribution July 1995.
diff --git a/swejpl.h b/swejpl.h
index 966d1e4..fed6e82 100644
--- a/swejpl.h
+++ b/swejpl.h
@@ -1,5 +1,4 @@
 /* 
- | $Header: /home/dieter/sweph/RCS/swejpl.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
  |
  | Subroutines for reading JPL ephemerides.
  | derived from testeph.f as contained in DE403 distribution July 1995.
diff --git a/swemmoon.cpp b/swemmoon.cpp
index c8676eb..8f749d3 100644
--- a/swemmoon.cpp
+++ b/swemmoon.cpp
@@ -1,5 +1,4 @@
 /* SWISSEPH
-   $Header: /home/dieter/sweph/RCS/swemmoon.c,v 1.74 2008/06/16 10:07:20 dieter Exp $
  *
  * Steve Moshier's analytical lunar ephemeris
 
diff --git a/swemplan.cpp b/swemplan.cpp
index 948d4e1..6e63ba6 100644
--- a/swemplan.cpp
+++ b/swemplan.cpp
@@ -1,5 +1,4 @@
 /* SWISSEPH
-   $Header: /home/dieter/sweph/RCS/swemplan.c,v 1.74 2008/06/16 10:07:20 dieter Exp $
    Moshier planet routines
 
    modified for SWISSEPH by Dieter Koch
diff --git a/swemptab.h b/swemptab.h
index 3505075..21a19bd 100644
--- a/swemptab.h
+++ b/swemptab.h
@@ -1,5 +1,4 @@
 /* SWISSEPH
-   $Header: /home/dieter/sweph/RCS/swemptab.c,v 1.74 2008/06/16 10:07:20 dieter Exp $
 
    ATTENTION: this source file is not to be compiled separately,
    as it is #included by swemplan
diff --git a/swenut2a.h b/swenut2a.h
index 75c28e1..f6ea3ca 100644
--- a/swenut2a.h
+++ b/swenut2a.h
@@ -1,5 +1,4 @@
 /************************************************************
-   $Header: /home/dieter/sweph/RCS/swenut2000a.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
    definitions for nutation theory IAU 2000a
    derived from public sources
 
diff --git a/sweodef.h b/sweodef.h
index 4f58222..77274df 100644
--- a/sweodef.h
+++ b/sweodef.h
@@ -1,5 +1,4 @@
 /************************************************************
-   $Header: /home/dieter/sweph/RCS/sweodef.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
    definitions and constants for all Swiss Ephemeris source files,
    only required for compiling the libraries, not for the external
    interface of the libraries.
diff --git a/sweph.cpp b/sweph.cpp
index 6c80c00..e173321 100644
--- a/sweph.cpp
+++ b/sweph.cpp
@@ -1,5 +1,4 @@
 /* SWISSEPH
-   $Header: /home/dieter/sweph/RCS/sweph.c,v 1.76 2009/07/10 14:08:53 dieter Exp $
 
    Ephemeris computations
 
@@ -179,18 +178,22 @@ static const char *ayanamsa_name[] = {
    "Cochrane (Gal.Center = 0 Cap)",    /* 40 SE_SIDM_GALCENT_COCHRANE */
    "Galactic Equator (Fiorenza)",      /* 41 SE_SIDM_GALEQU_FIORENZA */
    "Vettius Valens",                   /* 42 SE_SIDM_VALENS_MOON */
+   "Lahiri 1940",                      /* 43 SE_SIDM_LAHIRI_1940 */
+   "Lahiri VP285",                     /* 44 SE_SIDM_LAHIRI_VP285 */
+   "Krishnamurti-Senthilathiban",      /* 45 SE_SIDM_KRISHNAMURTI_VP291 */
+   "Lahiri ICRC",                      /* 46 SE_SIDM_LAHIRI_ICRC */
    /*"Manjula/Laghumanasa",*/
 };
 static const int pnoint2jpl[]   = PNOINT2JPL;
 
 static const int pnoext2int[] = {SEI_SUN, SEI_MOON, SEI_MERCURY, SEI_VENUS, SEI_MARS, SEI_JUPITER, SEI_SATURN, SEI_URANUS, SEI_NEPTUNE, SEI_PLUTO, 0, 0, 0, 0, SEI_EARTH, SEI_CHIRON, SEI_PHOLUS, SEI_CERES, SEI_PALLAS, SEI_JUNO, SEI_VESTA, };
 
-static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr);
+static int32 swecalc(double tjd, int ipl, int iplmoon, int32 iflag, double *x, char *serr);
 static int do_fread(void *targ, int size, int count, int corrsize, 
 		    FILE *fp, int32 fpos, int freord, int fendian, int ifno, 
 		    char *serr);
 static int get_new_segment(double tjd, int ipli, int ifno, char *serr);
-static int main_planet(double tjd, int ipli, int32 epheflag, int32 iflag,
+static int main_planet(double tjd, int ipli, int iplmoon, int32 epheflag, int32 iflag,
 		       char *serr);
 static int main_planet_bary(double tjd, int ipli, int32 epheflag, int32 iflag, 
 		AS_BOOL do_save, 
@@ -207,7 +210,7 @@ static int jplplan(double tjd, int ipli, int32 iflag, AS_BOOL do_save,
 static void rot_back(int ipl);
 static int read_const(int ifno, char *serr);
 static void embofs(double *xemb, double *xmoon);
-static int app_pos_etc_plan(int ipli, int32 iflag, char *serr);
+static int app_pos_etc_plan(int ipli, int iplmoon, int32 iflag, char *serr);
 static int app_pos_etc_plan_osc(int ipl, int ipli, int32 iflag, char *serr);
 static int app_pos_etc_sun(int32 iflag, char *serr);
 static int app_pos_etc_moon(int32 iflag, char *serr);
@@ -314,12 +317,14 @@ int32 CALL_CONV swe_calc(double tjd, int ipl, int32 iflag,
 	double *xx, char *serr) 
 {
   int i, j;
-  int32 iflgsave = iflag;
+  int32 iplmoon = 0, iflgsave = iflag;
   int32 epheflag;
   AS_BOOL use_speed3 = FALSE;
   struct save_positions *sd;
   double x[6], *xs, x0[24], x2[24];
   double dt;
+  if (serr != NULL) 
+    *serr = '\0';
 #ifdef TRACE
 #ifdef FORCE_IFLAG
   /*
@@ -414,12 +419,37 @@ int32 CALL_CONV swe_calc(double tjd, int ipl, int32 iflag,
     iflag = iflag & ~SEFLG_RADIANS;
 /*  if (iflag & SEFLG_ICRS)
     iflag |= SEFLG_J2000;*/
+  /* planetary center of body or planetary moon: either planet is called
+   * with SEFLG_CENTER_BODY or center of body with ipl = 9n99 is called.
+   * we want to handle both cases the same way. */
+  // planet is called with SE_PLUTO etc. and SEFLG_CENTER_BODY:
+  // get number of center of body 
+  if ((iflag & SEFLG_CENTER_BODY) && ipl <= SE_PLUTO && (iflag & SEFLG_TEST_PLMOON) != SEFLG_TEST_PLMOON) {
+    iplmoon = ipl * 100 + 9099; // planetary center of body
+  }
+  // planet center of body or planetary moon is called using 9... number:
+  // moon number and planet number
+  if (ipl >= SE_PLMOON_OFFSET && ipl < SE_AST_OFFSET && (iflag & SEFLG_TEST_PLMOON) != SEFLG_TEST_PLMOON) {
+    iplmoon = ipl; // planetary center of body or planetary moon
+    ipl = (int) ((ipl - 9000) / 100);
+    iflag |= SEFLG_CENTER_BODY;
+  }
+  // with Mercury to Mars, we do not have center of body different from barycenter
+  if ((iflag & SEFLG_CENTER_BODY) && ipl <= SE_MARS && (iplmoon % 100) == 99) {
+    iplmoon = 0;
+    iflag &= ~SEFLG_CENTER_BODY;
+  }
+  if ((iflag & SEFLG_CENTER_BODY) || iplmoon > 0)
+    swi_force_app_pos_etc();
   /* pointer to save area */
-  if (ipl < SE_NPLANETS && ipl >= SE_SUN)
+  if (ipl < SE_NPLANETS && ipl >= SE_SUN) {
     sd = &swed.savedat[ipl];
-  else
+//    if (iflag & SEFLG_CENTER_BODY)
+//      sd = &swed.savedat[SE_NPLANETS];
+  } else {
     /* other bodies, e.g. asteroids called with ipl = SE_AST_OFFSET + MPC# */
     sd = &swed.savedat[SE_NPLANETS];
+  }
   /* 
    * if position is available in save area, it is returned.
    * this is the case, if tjd = tsave and iflag = iflgsave.
@@ -429,7 +459,7 @@ int32 CALL_CONV swe_calc(double tjd, int ipl, int32 iflag,
    * because all asteroids called by MPC number share the same
    * save area.
    */ 
-  if (sd->tsave == tjd && tjd != 0 && ipl == sd->ipl) {
+  if (sd->tsave == tjd && tjd != 0 && ipl == sd->ipl && iplmoon == 0) {
     if ((sd->iflgsave & ~SEFLG_COORDSYS) == (iflag & ~SEFLG_COORDSYS)) 
       goto end_swe_calc;
   }
@@ -443,7 +473,7 @@ int32 CALL_CONV swe_calc(double tjd, int ipl, int32 iflag,
      */
     sd->tsave = tjd;
     sd->ipl = ipl;
-    if ((sd->iflgsave = swecalc(tjd, ipl, iflag, sd->xsaves, serr)) == ERR) 
+    if ((sd->iflgsave = swecalc(tjd, ipl, iplmoon, iflag, sd->xsaves, serr)) == ERR) 
       goto return_error;
   } else {
     /* 
@@ -470,11 +500,11 @@ int32 CALL_CONV swe_calc(double tjd, int ipl, int32 iflag,
 	dt = PLAN_SPEED_INTV;
 	break;
     } 
-    if ((sd->iflgsave = swecalc(tjd-dt, ipl, iflag, x0, serr)) == ERR)
+    if ((sd->iflgsave = swecalc(tjd-dt, ipl, iplmoon, iflag, x0, serr)) == ERR)
       goto return_error; 
-    if ((sd->iflgsave = swecalc(tjd+dt, ipl, iflag, x2, serr)) == ERR)
+    if ((sd->iflgsave = swecalc(tjd+dt, ipl, iplmoon, iflag, x2, serr)) == ERR)
       goto return_error; 
-    if ((sd->iflgsave = swecalc(tjd, ipl, iflag, sd->xsaves, serr)) == ERR)
+    if ((sd->iflgsave = swecalc(tjd, ipl, iplmoon, iflag, sd->xsaves, serr)) == ERR)
       goto return_error; 
     denormalize_positions(x0, sd->xsaves, x2);
     calc_speed(x0, sd->xsaves, x2, dt);
@@ -559,7 +589,7 @@ int32 CALL_CONV swe_calc_ut(double tjd_ut, int32 ipl, int32 iflag,
   return retval;
 }
 
-static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr) 
+static int32 swecalc(double tjd, int ipl, int32 iplmoon, int32 iflag, double *x, char *serr) 
 {
   int i;
   int ipli, ipli_ast, ifno;
@@ -576,8 +606,8 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
   double *xp, *xp2;
   double ss[3];
   char serr2[AS_MAXCH];
-  if (serr != NULL)
-    *serr = '\0';
+  //if (serr != NULL)
+  //  *serr = '\0';  // is done in calling function
   serr2[0] = '\0';
   /****************************************** 
    * iflag plausible?                       * 
@@ -839,7 +869,7 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     ipli = pnoext2int[ipl];
     pdp = &swed.pldat[ipli];
     xp = pdp->xreturn;
-    retc = main_planet(tjd, ipli, epheflag, iflag, serr);
+    retc = main_planet(tjd, ipli, iplmoon, epheflag, iflag, serr);
     if (retc == ERR)
       goto return_error;
     /* iflag has possibly changed in main_planet() */
@@ -1014,11 +1044,13 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     || ipl == SE_PALLAS		
     || ipl == SE_JUNO	
     || ipl == SE_VESTA
-    || ipl > SE_AST_OFFSET) {
+    || ipl > SE_PLMOON_OFFSET
+    || ipl > SE_AST_OFFSET // obsolete after previous condition
+    ) {
     /* internal planet number */
     if (ipl < SE_NPLANETS) 
       ipli = pnoext2int[ipl];
-    else if (ipl <= SE_AST_OFFSET + MPC_VESTA) {
+    else if (ipl <= SE_AST_OFFSET + MPC_VESTA && ipl > SE_AST_OFFSET) {
       ipli = SEI_CERES + ipl - SE_AST_OFFSET - 1;
       ipl = SE_CERES + ipl - SE_AST_OFFSET - 1;
 #if 0
@@ -1040,6 +1072,8 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     xp = pdp->xreturn;
     if (ipli_ast > SE_AST_OFFSET)
       ifno = SEI_FILE_ANY_AST;
+    else if (ipli_ast > SE_PLMOON_OFFSET)
+      ifno = SEI_FILE_ANY_AST;
     else
       ifno = SEI_FILE_MAIN_AST;
     if (ipli == SEI_CHIRON && (tjd < CHIRON_START || tjd > CHIRON_END)) {
@@ -1057,7 +1091,7 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     }
   do_asteroid:
     /* earth and sun are also needed */
-    retc = main_planet(tjd, SEI_EARTH, epheflag, iflag, serr);
+    retc = main_planet(tjd, SEI_EARTH, 0, epheflag, iflag, serr);
     if (retc == ERR) 
       goto return_error;
     /* iflag (ephemeris bit) has possibly changed in main_planet() */
@@ -1071,7 +1105,7 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     retc = sweph(tjd, ipli_ast, ifno, iflag, psdp->x, DO_SAVE, NULL, serr);
     if (retc == ERR || retc == NOT_AVAILABLE) 
       goto return_error;
-    retc = app_pos_etc_plan(ipli_ast, iflag, serr);
+    retc = app_pos_etc_plan(ipli_ast, 0, iflag, serr);
     if (retc == ERR)
       goto return_error;
     /* app_pos_etc_plan() might have failed, if t(light-time)
@@ -1117,7 +1151,7 @@ static int32 swecalc(double tjd, int ipl, int32 iflag, double *x, char *serr)
     xp = pdp->xreturn;
   do_fict_plan:
     /* the earth for geocentric position */
-    retc = main_planet(tjd, SEI_EARTH, epheflag, iflag, serr);
+    retc = main_planet(tjd, SEI_EARTH, 0, epheflag, iflag, serr);
     /* iflag (ephemeris bit) has possibly changed in main_planet() */
     iflag = swed.pldat[SEI_EARTH].xflgs;
     /* planet from osculating elements */
@@ -1570,10 +1604,18 @@ static void calc_epsilon(double tjd, int32 iflag, struct epsilon *e)
  * will be kept in 
  * &swed.pldat[ipli].x[];
  */
-static int main_planet(double tjd, int ipli, int32 epheflag, int32 iflag,
+static int main_planet(double tjd, int ipli, int iplmoon, int32 epheflag, int32 iflag,
 		       char *serr)
 {
   int retc;
+  if ((iflag & SEFLG_CENTER_BODY) 
+    && ipli >= SE_MARS && ipli <= SE_PLUTO) {
+    //ipli_com = ipli * 100 + 9099;
+    /* jupiter center of body, relative to jupiter barycenter */
+    retc = sweph(tjd, iplmoon, SEI_FILE_ANY_AST, iflag, NULL, DO_SAVE, NULL, serr);
+    if (retc == ERR || retc == NOT_AVAILABLE) 
+      return ERR;
+  }
   switch(epheflag) {
     case SEFLG_JPLEPH:
       retc = jplplan(tjd, ipli, iflag, DO_SAVE, NULL, NULL, NULL, serr);
@@ -1597,10 +1639,11 @@ static int main_planet(double tjd, int ipli, int32 epheflag, int32 iflag,
 	}
       }
       /* geocentric, lighttime etc. */
-      if (ipli == SEI_SUN)
+      if (ipli == SEI_SUN) {
 	retc = app_pos_etc_sun(iflag, serr)/**/;
-      else
-	retc = app_pos_etc_plan(ipli, iflag, serr);
+      } else {
+	retc = app_pos_etc_plan(ipli, iplmoon, iflag, serr);
+      }
       if (retc == ERR)
 	return ERR;
       /* t for light-time beyond ephemeris range */
@@ -1639,7 +1682,7 @@ static int main_planet(double tjd, int ipli, int32 epheflag, int32 iflag,
       if (ipli == SEI_SUN)
 	retc = app_pos_etc_sun(iflag, serr)/**/;
       else
-	retc = app_pos_etc_plan(ipli, iflag, serr);
+	retc = app_pos_etc_plan(ipli, iplmoon, iflag, serr);
       if (retc == ERR)
 	return ERR;
       /* if sweph file for t(lighttime) not found, switch to moshier */
@@ -1662,7 +1705,7 @@ static int main_planet(double tjd, int ipli, int32 epheflag, int32 iflag,
       if (ipli == SEI_SUN)
 	retc = app_pos_etc_sun(iflag, serr)/**/;
       else
-	retc = app_pos_etc_plan(ipli, iflag, serr);
+	retc = app_pos_etc_plan(ipli, iplmoon, iflag, serr);
       if (retc == ERR)
 	return ERR;
       break;
@@ -2149,6 +2192,8 @@ static int sweph(double tjd, int ipli, int ifno, int32 iflag, double *xsunb, AS_
   ipl = ipli;
   if (ipli > SE_AST_OFFSET) 
     ipl = SEI_ANYBODY;
+  if (ipli > SE_PLMOON_OFFSET) 
+    ipl = SEI_ANYBODY;
   pdp = &swed.pldat[ipl];
   if (do_save)
     xp = pdp->x;
@@ -2200,11 +2245,17 @@ static int sweph(double tjd, int ipli, int ifno, int32 iflag, double *xsunb, AS_
 again:
     fdp->fptr = swi_fopen(ifno, s, swed.ephepath, serr);
     if (fdp->fptr == NULL) {
+      // if it is a planetary moon, also try without the directory "sat/"
+      if (ipli > SE_PLMOON_OFFSET && ipli < SE_AST_OFFSET) {
+ 	if (subdirlen > 0 && strncmp(s, subdirnam, (size_t) subdirlen) == 0) {
+	  swi_strcpy(s, s + subdirlen + 1);	/* remove "sat/" etc. */
+	  goto again;
+	}
       /*
        * if it is a numbered asteroid file, try also for short files (..s.se1)
        * On the second try, the inserted 's' will be seen and not tried again.
        */
-      if (ipli > SE_AST_OFFSET) {
+       } else if (ipli > SE_AST_OFFSET) {
 	char *spp;
 	spp = strchr(s, '.');
 	if (spp > s && *(spp-1) != 's') {	/* no 's' before '.' ? */
@@ -2237,11 +2288,30 @@ static int sweph(double tjd, int ipli, int ifno, int32 iflag, double *xsunb, AS_
    * 4000-day-period before 3000. */
   if (tjd < fdp->tfstart || tjd > fdp->tfend) {
     if (serr != NULL) {
+      sp = strrchr(fname, (int) *DIR_GLUE);
+      if (sp != NULL)
+        sp++;
+      else
+        sp = fname;
+      if (ipli > SE_AST_OFFSET) {
+        sprintf(s, "asteroid No. %d (%s): ", ipli - SE_AST_OFFSET, sp);
+      } else if (ipli > SE_PLMOON_OFFSET) {
+	if (strstr(fname, "99.") != NULL) 
+	  sprintf(s, "plan. COB No. %d (%s): ", ipli, sp);
+	else
+	  sprintf(s, "plan. moon No. %d (%s): ", ipli, sp);
+      } else if (ipli > SEI_PLUTO) {
+        sprintf(s, "asteroid eph. file (%s): ", sp);
+      } else if (ipli != SEI_MOON) {
+        sprintf(s, "planets eph. file (%s): ", sp);
+      } else {
+        sprintf(s, "moon eph. file (%s): ", sp);
+      }
       if (tjd < fdp->tfstart)
-	sprintf(s, "jd %f < Swiss Eph. lower limit %f;", 
+	sprintf(s + strlen(s), "jd %f < lower limit %f;", 
 		  tjd, fdp->tfstart); 
       else
-	sprintf(s, "jd %f > Swiss Eph. upper limit %f;", 
+	sprintf(s + strlen(s), "jd %f > upper limit %f;", 
 		  tjd, fdp->tfend); 
       if (strlen(serr) + strlen(s) < AS_MAXCH)
 	strcat(serr, s);
@@ -2312,7 +2382,7 @@ static int sweph(double tjd, int ipli, int ifno, int32 iflag, double *xsunb, AS_
 #if 1
   /* asteroids are heliocentric.
    * if JPL or SWISSEPH, convert to barycentric */
-  if ((iflag & SEFLG_JPLEPH) || (iflag & SEFLG_SWIEPH)) {
+  if (xsunb != NULL && ((iflag & SEFLG_JPLEPH) || (iflag & SEFLG_SWIEPH))) {
     if (ipl >= SEI_ANYBODY) {
       for (i = 0; i <= 2; i++)
 	xp[i] += xsunb[i];
@@ -2396,6 +2466,8 @@ int32 swi_get_denum(int32 ipli, int32 iflag)
   }
   if (ipli > SE_AST_OFFSET) {
     fdp = &swed.fidat[SEI_FILE_ANY_AST];
+  } else if (ipli > SE_PLMOON_OFFSET) {
+    fdp = &swed.fidat[SEI_FILE_ANY_AST];
   } else if (ipli == SEI_CHIRON
       || ipli == SEI_PHOLUS
       || ipli == SEI_CERES
@@ -2417,6 +2489,18 @@ int32 swi_get_denum(int32 ipli, int32 iflag)
   return SE_DE_NUMBER;
 }
 
+static int calc_center_body(int32 ipli, int32 iflag, double *xx, double *xcom, char *serr)
+{
+  int i;
+  if (!(iflag & SEFLG_CENTER_BODY))
+    return OK;
+  if (ipli < SEI_MARS || ipli > SEI_PLUTO)
+    return OK;
+  for (i = 0; i <= 5; i++)
+    xx[i] += xcom[i];
+  return OK;
+}
+
 /* converts planets from barycentric to geocentric,
  * apparent positions
  * precession and nutation
@@ -2425,14 +2509,14 @@ int32 swi_get_denum(int32 ipli, int32 iflag)
  * iflag	flags
  * serr         error string
  */
-static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
+static int app_pos_etc_plan(int ipli, int iplmoon, int32 iflag, char *serr)
 {
   int i, j, niter, retc = OK;
   int ipl, ifno, ibody;
   int32 flg1, flg2;
-  double xx[6], dx[3], dt, t, dtsave_for_defl;
+  double xx[6], xx0[6], dx[3], dt, t, dtsave_for_defl;
   double xobs[6], xobs2[6];
-  double xearth[6], xsun[6];
+  double xearth[6], xsun[6], xcom[6];
   double xxsp[6], xxsv[6];
   struct plan_data *pedp = &swed.pldat[SEI_EARTH];
   struct plan_data *pdp;
@@ -2440,7 +2524,7 @@ static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
   int32 epheflag = iflag & SEFLG_EPHMASK;
   dtsave_for_defl = 0;	
   /* ephemeris file */
-  if (ipli > SE_AST_OFFSET) {
+  if (ipli > SE_PLMOON_OFFSET || ipli > SE_AST_OFFSET) { // 2nd condition obsolete
     ifno = SEI_FILE_ANY_AST;	
     ibody = IS_ANY_BODY;
     pdp = &swed.pldat[SEI_ANYBODY];
@@ -2478,6 +2562,10 @@ static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
   /* the conversions will be done with xx[]. */
   for (i = 0; i <= 5; i++) 
     xx[i] = pdp->x[i];
+  /* center body of planet, if SEFLG_CENTER_BODY (which is checked inside function) */
+  calc_center_body(ipli, iflag, xx, swed.pldat[SEI_ANYBODY].x, serr);
+  for (i = 0; i <= 5; i++) 
+    xx0[i] = xx[i];
   /* if heliocentric position is wanted */
   if (iflag & SEFLG_HELCTR) {
     if (pdp->iephe == SEFLG_JPLEPH || pdp->iephe == SEFLG_SWIEPH)
@@ -2534,8 +2622,10 @@ static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
 	}
 	/* new dt */
 	dt = sqrt(square_sum(dx)) * AUNIT / CLIGHT / 86400.0;     
-	for (i = 0; i <= 2; i++) 	/* rough apparent position at t-1 */
-	  xxsp[i] = xxsv[i] - dt * pdp->x[i+3];
+	for (i = 0; i <= 2; i++) { 	/* rough apparent position at t-1 */
+	  //xxsp[i] = xxsv[i] - dt * pdp->x[i+3];
+	  xxsp[i] = xxsv[i] - dt * xx0[i+3];
+	}
       }
       /* true position - apparent position at time t-1 */
       for (i = 0; i <= 2; i++) 
@@ -2552,15 +2642,27 @@ static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
       /* new t */
       t = pdp->teval - dt;
       dtsave_for_defl = dt;
-      for (i = 0; i <= 2; i++) 		/* rough apparent position at t*/
-	xx[i] = pdp->x[i] - dt * pdp->x[i+3];
+      for (i = 0; i <= 2; i++) {	/* rough apparent position at t*/
+	//xx[i] = pdp->x[i] - dt * pdp->x[i+3];
+	xx[i] = xx0[i] - dt * xx0[i+3];
+      }
     }
     /* part of daily motion resulting from change of dt */
     if (iflag & SEFLG_SPEED) {
-      for (i = 0; i <= 2; i++) 
-	xxsp[i] = pdp->x[i] - xx[i] - xxsp[i];
+      for (i = 0; i <= 2; i++) {
+	//xxsp[i] = pdp->x[i] - xx[i] - xxsp[i];
+	xxsp[i] = xx0[i] - xx[i] - xxsp[i];
+      }
     }
     /* new position, accounting for light-time (accurate) */
+    if ((iflag & SEFLG_CENTER_BODY)
+      && ipli >= SE_MARS && ipli <= SE_PLUTO) {
+      //ipli_com = ipli * 100 + 9099;
+      /* jupiter center of body, relative to jupiter barycenter */
+      retc = sweph(t, iplmoon, SEI_FILE_ANY_AST, iflag, NULL, NO_SAVE, xcom, serr);
+      if (retc == ERR || retc == NOT_AVAILABLE)
+	return ERR;
+    }
     switch(epheflag) {
       case SEFLG_JPLEPH:
 	if (ibody >= IS_ANY_BODY)
@@ -2645,6 +2747,7 @@ static int app_pos_etc_plan(int ipli, int32 iflag, char *serr)
         }
 	break;
     }
+    calc_center_body(ipli, iflag, xx, xcom, serr);
     if (iflag & SEFLG_HELCTR) {
       if (pdp->iephe == SEFLG_JPLEPH || pdp->iephe == SEFLG_SWIEPH) 
 	for (i = 0; i <= 5; i++) 
@@ -2842,7 +2945,8 @@ void CALL_CONV swe_set_sid_mode(int32 sid_mode, double t0, double ayan_t0)
 	  || sid_mode == SE_SIDM_B1950
 	  || sid_mode == SE_SIDM_GALALIGN_MARDYKS
 	  ) {
-    sip->sid_mode &= ~SE_SIDBIT_SSY_PLANE;
+    //sip->sid_mode &= ~SE_SIDBIT_SSY_PLANE;
+    sip->sid_mode = sid_mode;
     sip->sid_mode |= SE_SIDBIT_ECL_T0;
   }
   if (sid_mode == SE_SIDM_TRUE_CITRA 
@@ -2857,8 +2961,10 @@ void CALL_CONV swe_set_sid_mode(int32 sid_mode, double t0, double ayan_t0)
       || sid_mode == SE_SIDM_GALEQU_IAU1958 
       || sid_mode == SE_SIDM_GALEQU_TRUE
       || sid_mode == SE_SIDM_GALEQU_MULA
-      ) 
-    sip->sid_mode &= ~(SE_SIDBIT_ECL_T0 | SE_SIDBIT_SSY_PLANE | SE_SIDBIT_USER_UT);
+      ) {
+    //sip->sid_mode &= ~(SE_SIDBIT_ECL_T0 | SE_SIDBIT_SSY_PLANE | SE_SIDBIT_USER_UT);
+    sip->sid_mode = sid_mode;
+  }
   if (sid_mode >= SE_NSIDM_PREDEF && sid_mode != SE_SIDM_USER)
     sip->sid_mode = sid_mode = SE_SIDM_FAGAN_BRADLEY;
   swed.ayana_is_set = TRUE;
@@ -2873,6 +2979,22 @@ void CALL_CONV swe_set_sid_mode(int32 sid_mode, double t0, double ayan_t0)
     sip->ayan_t0 = ayanamsa[sid_mode].ayan_t0;
     sip->t0_is_UT = ayanamsa[sid_mode].t0_is_UT;
   }
+  // test feature: ayanamsha using its original precession model
+  if ((sip->sid_mode & SE_SIDBIT_PREC_ORIG) && ayanamsa[sid_mode].prec_offset > 0) {
+    swed.astro_models[SE_MODEL_PREC_LONGTERM] = ayanamsa[sid_mode].prec_offset;
+    swed.astro_models[SE_MODEL_PREC_SHORTTERM] = ayanamsa[sid_mode].prec_offset;
+    // add a corresponding nutation model
+    switch(ayanamsa[sid_mode].prec_offset) {
+      case SEMOD_PREC_NEWCOMB:
+        swed.astro_models[SE_MODEL_NUT] = SEMOD_NUT_WOOLARD;
+	break;
+      case SEMOD_PREC_IAU_1976:
+        swed.astro_models[SE_MODEL_NUT] = SEMOD_NUT_IAU_1980;
+	break;
+      default:
+        break;
+    }
+  }
   swi_force_app_pos_etc();
 }
 
@@ -2893,18 +3015,73 @@ int32 CALL_CONV swe_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, ch
   return retval;
 }
 
+/*
+ * Function calculates a correction for ayanamsha if the ayanamsha was
+ * defined using a different precession model than our standard one.
+ * This allows us to use this ayanamsha with our standard precession
+ * model and still remain very accurate in ephemeris positions.
+ * It has the effect that ayanamsha values change depending on the precession
+ * model used, but sidereal planetary positions remain the same.
+ *
+ * For this function to work correctly, our standard precession model 
+ * must be relative to J2000. Any future precession model should not
+ * use a different starting epoch.
+ */
+static int get_aya_correction(int iflag, double *corr, char *serr) {
+  double x[6], eps, t0;
+  struct sid_data *sip = &swed.sidd;
+  int prec_model = swed.astro_models[SE_MODEL_PREC_LONGTERM];
+  int prec_model_short = swed.astro_models[SE_MODEL_PREC_SHORTTERM];
+  int prec_offset = 0;
+  int sid_mode = sip->sid_mode;
+  sid_mode %= SE_SIDBITS;
+  *corr = 0;
+  if (sip->t0 == J2000) 
+    return 0;
+  if (sip->sid_mode & SE_SIDBIT_NO_PREC_OFFSET) 
+    return 0;
+  prec_offset = ayanamsa[sid_mode].prec_offset;
+  if (prec_offset < 0) prec_offset = 0;
+  if (prec_model == prec_offset)
+    return 0;
+  t0 = sip->t0;
+  if (sip->t0_is_UT)
+    t0 += swe_deltat_ex(t0, iflag, serr);
+  /* vernal point (tjd), cartesian */
+  x[0] = 1; 
+  x[1] = x[2] = 0;
+  swi_precess(x, t0, 0, J_TO_J2000);
+  swed.astro_models[SE_MODEL_PREC_LONGTERM] = prec_offset;
+  swed.astro_models[SE_MODEL_PREC_SHORTTERM] = prec_offset;
+  swi_precess(x, t0, 0, J2000_TO_J);
+  swed.astro_models[SE_MODEL_PREC_LONGTERM] = prec_model;
+  swed.astro_models[SE_MODEL_PREC_SHORTTERM] = prec_model_short;
+  /* to ecliptic */
+  eps = swi_epsiln(t0, 0);
+  swi_coortrf(x, x, eps);
+  /* to polar */
+  swi_cartpol(x, x);
+  /* get ayanamsa */
+  *corr = x[0] * RADTODEG;
+  if (*corr > 350 /*correct!*/) *corr -= 360; // a signed value near 0
+  //fprintf(stderr, "corr=%f\n", *corr * 3600.0);
+  return OK;
+}
+
 int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
 {
-  double x[6], eps, t0;
+  double x[6], eps, t0, corr;
   struct sid_data *sip = &swed.sidd;
   char star[AS_MAXCH];
   int32 epheflag, otherflag, retflag, iflag_true, iflag_galequ;
+  int sid_mode = sip->sid_mode;
   iflag = plaus_iflag(iflag, -1, tjd_et, serr);
   epheflag = iflag & SEFLG_EPHMASK;
   otherflag = iflag & ~SEFLG_EPHMASK;
   *daya = 0.0;
   iflag &= SEFLG_EPHMASK;
   iflag |= SEFLG_NONUT;
+  sid_mode %= SE_SIDBITS;
   /* ayanamshas based on the intersection point of galactic equator and
    * ecliptic always need SEFLG_TRUEPOS, because position of galactic
    * pole is required without aberration or light deflection */
@@ -2921,24 +3098,24 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
   /* warning, if swe_set_ephe_path() or swe_set_jplfile() was not called yet,
    * although ephemeris files are required */
   if (swi_init_swed_if_start() == 1 && !(epheflag & SEFLG_MOSEPH) 
-     && (sip->sid_mode ==  SE_SIDM_TRUE_CITRA 
-      || sip->sid_mode == SE_SIDM_TRUE_REVATI 
-      || sip->sid_mode == SE_SIDM_TRUE_PUSHYA 
+     && (sid_mode ==  SE_SIDM_TRUE_CITRA 
+      || sid_mode == SE_SIDM_TRUE_REVATI 
+      || sid_mode == SE_SIDM_TRUE_PUSHYA 
       || sip->sid_mode == SE_SIDM_TRUE_SHEORAN 
-      || sip->sid_mode == SE_SIDM_TRUE_MULA 
-      || sip->sid_mode == SE_SIDM_GALCENT_0SAG
-      || sip->sid_mode == SE_SIDM_GALCENT_COCHRANE
-      || sip->sid_mode == SE_SIDM_GALCENT_RGILBRAND 
-      || sip->sid_mode == SE_SIDM_GALCENT_MULA_WILHELM
-      || sip->sid_mode == SE_SIDM_GALEQU_IAU1958 
-      || sip->sid_mode == SE_SIDM_GALEQU_TRUE
-      || sip->sid_mode == SE_SIDM_GALEQU_MULA) 
+      || sid_mode == SE_SIDM_TRUE_MULA 
+      || sid_mode == SE_SIDM_GALCENT_0SAG
+      || sid_mode == SE_SIDM_GALCENT_COCHRANE
+      || sid_mode == SE_SIDM_GALCENT_RGILBRAND 
+      || sid_mode == SE_SIDM_GALCENT_MULA_WILHELM
+      || sid_mode == SE_SIDM_GALEQU_IAU1958 
+      || sid_mode == SE_SIDM_GALEQU_TRUE
+      || sid_mode == SE_SIDM_GALEQU_MULA) 
       && serr != NULL) {
     strcpy(serr, "Please call swe_set_ephe_path() or swe_set_jplfile() before calling swe_get_ayanamsa_ex()");
   }
   if (!swed.ayana_is_set)
     swe_set_sid_mode(SE_SIDM_FAGAN_BRADLEY, 0, 0);
-  if (sip->sid_mode == SE_SIDM_TRUE_CITRA) {
+  if (sid_mode == SE_SIDM_TRUE_CITRA) {
     strcpy(star, "Spica"); /* Citra */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR) {
       return ERR; 
@@ -2947,35 +3124,35 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
     *daya = swe_degnorm(x[0] - 180);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_TRUE_REVATI) {
+  if (sid_mode == SE_SIDM_TRUE_REVATI) {
     strcpy(star, ",zePsc"); /* Revati */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 359.8333333333);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_TRUE_PUSHYA) {
+  if (sid_mode == SE_SIDM_TRUE_PUSHYA) {
     strcpy(star, ",deCnc"); /* Pushya = Asellus Australis */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 106);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_TRUE_SHEORAN) {
+  if (sid_mode == SE_SIDM_TRUE_SHEORAN) {
     strcpy(star, ",deCnc"); /* Asellus Australis */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 103.49264221625);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_TRUE_MULA) {
+  if (sid_mode == SE_SIDM_TRUE_MULA) {
     strcpy(star, ",laSco"); /* Mula = lambda Scorpionis */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 240);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode ==  SE_SIDM_GALCENT_0SAG) {
+  if (sid_mode ==  SE_SIDM_GALCENT_0SAG) {
     strcpy(star, ",SgrA*"); /* Galactic Centre */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
@@ -2983,7 +3160,7 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
     return (retflag & SEFLG_EPHMASK);
     /*return swe_degnorm(x[0] - 359.83333333334);*/
   }
-  if (sip->sid_mode ==  SE_SIDM_GALCENT_COCHRANE) {
+  if (sid_mode ==  SE_SIDM_GALCENT_COCHRANE) {
     strcpy(star, ",SgrA*"); /* Galactic Centre */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
@@ -2991,7 +3168,7 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
     return (retflag & SEFLG_EPHMASK);
     /*return swe_degnorm(x[0] - 359.83333333334);*/
   }
-  if (sip->sid_mode ==  SE_SIDM_GALCENT_RGILBRAND) {
+  if (sid_mode ==  SE_SIDM_GALCENT_RGILBRAND) {
     strcpy(star, ",SgrA*"); /* Galactic Centre */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_true, x, serr)) == ERR)
       return ERR;
@@ -2999,7 +3176,7 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
     return (retflag & SEFLG_EPHMASK);
     /*return swe_degnorm(x[0] - 359.83333333334);*/
   }
-  if (sip->sid_mode == SE_SIDM_GALCENT_MULA_WILHELM) {
+  if (sid_mode == SE_SIDM_GALCENT_MULA_WILHELM) {
     strcpy(star, ",SgrA*"); /* Galactic Centre */
     /* right ascension in polar projection onto the ecliptic, 
      * and that point is put in the middle of Mula */
@@ -3011,47 +3188,91 @@ int32 swi_get_ayanamsa_ex(double tjd_et, int32 iflag, double *daya, char *serr)
     return (retflag & SEFLG_EPHMASK);
     /*return swe_degnorm(x[0] - 359.83333333334);*/
   }
-  if (sip->sid_mode == SE_SIDM_GALEQU_IAU1958) {
+  if (sid_mode == SE_SIDM_GALEQU_IAU1958) {
     strcpy(star, ",GP1958"); /* Galactic Pole IAU 1958 */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_galequ, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 150);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_GALEQU_TRUE) {
+  if (sid_mode == SE_SIDM_GALEQU_TRUE) {
     strcpy(star, ",GPol"); /* Galactic Pole modern, true */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_galequ, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 150);
     return (retflag & SEFLG_EPHMASK);
   }
-  if (sip->sid_mode == SE_SIDM_GALEQU_MULA) {
+  if (sid_mode == SE_SIDM_GALEQU_MULA) {
     strcpy(star, ",GPol"); /* Galactic Pole modern, true */
     if ((retflag = swe_fixstar(star, tjd_et, iflag_galequ, x, serr)) == ERR)
       return ERR;
     *daya = swe_degnorm(x[0] - 150 - 6.6666666667);
     return (retflag & SEFLG_EPHMASK);
   }
-  /* vernal point (tjd), cartesian */
-  x[0] = 1; 
-  x[1] = x[2] = 0;
-  /* to J2000 */
-  if (tjd_et != J2000)
-    swi_precess(x, tjd_et, 0, J_TO_J2000);
-  /* to t0 */
-  t0 = sip->t0;
-  if (sip->t0_is_UT)
-    t0 += swe_deltat_ex(t0, iflag, serr);
-  swi_precess(x, t0, 0, J2000_TO_J);
-  /* to ecliptic */
-  eps = swi_epsiln(t0, 0);
-  swi_coortrf(x, x, eps);
-  /* to polar */
-  swi_cartpol(x, x);
-  /* subtract initial value of ayanamsa */
-  x[0] = x[0] * RADTODEG - sip->ayan_t0;
+  if (!(sip->sid_mode & SE_SIDBIT_ECL_DATE)) {
+    // Now calculate precession for ayanamsha. 
+    // The following is the original method implemented in 1999 and
+    // still used as our default method, although it is not logical.
+    // Precession is measured on the ecliptic of the start epoch t0 (ayan_t0),
+    // then the initial value of ayanamsha is added.
+    // The procedure is as follows: The vernal point of the end epoch tjd_et
+    // is precessed to t0. Ayanamsha is the resulting longitude of that
+    // point at t0 plus the initial value.
+    // This method is not really consistent because later this ayanamsha,
+    // which is based on the ecliptic t0, will be applied to planetary
+    // positions relative to the ecliptic of date.
+    //
+    /* vernal point (tjd), cartesian */
+    x[0] = 1; 
+    x[1] = x[2] = x[3] = x[4] = x[5] = 0;
+    /* to J2000 */
+    if (tjd_et != J2000)
+      swi_precess(x, tjd_et, 0, J_TO_J2000);
+    /* to t0 */
+    t0 = sip->t0;
+    if (sip->t0_is_UT)
+      t0 += swe_deltat_ex(t0, iflag, serr);
+    swi_precess(x, t0, 0, J2000_TO_J);
+    /* to ecliptic t0 */
+    eps = swi_epsiln(t0, 0);
+    swi_coortrf(x, x, eps);
+    /* to polar */
+    swi_cartpol(x, x);
+    /* subtract initial value of ayanamsa */
+    x[0] = -x[0] * RADTODEG + sip->ayan_t0;
+  } else {
+    // Alternative method, more consistent, programmed on 15 may 2020.
+    // The ayanamsha is measured on the ecliptic of date. This is more
+    // correct because the ayanamsha will be applied to planetary positions
+    // relative to the ecliptic of date.
+    //
+    // at t0, we have ayanamsha sip->ayan_t0
+    x[0] = swe_degnorm(sip->ayan_t0) * DEGTORAD;
+    x[1] = 0; x[2] = 1;
+    // get epsilon for t0
+    t0 = sip->t0;
+    if (sip->t0_is_UT)
+      t0 += swe_deltat_ex(t0, iflag, serr);
+    eps = swi_epsiln(t0, 0);
+    // to polar equatorial relative to equinox t0
+    swi_polcart(x, x);
+    swi_coortrf(x, x, -eps);
+    // precess to J2000
+    if (t0 != J2000)
+      swi_precess(x, t0, 0, J_TO_J2000);
+    // precess to date
+    swi_precess(x, tjd_et, 0, J2000_TO_J);
+    // epsilon of date
+    eps = swi_epsiln(tjd_et, 0);
+    // to polar
+    swi_coortrf(x, x, eps);
+    swi_cartpol(x, x);
+    x[0] = swe_degnorm(x[0] * RADTODEG);
+  }
+  get_aya_correction(iflag, &corr, serr);
   /* get ayanamsa */
-  *daya = swe_degnorm(-x[0]);
+  *daya = swe_degnorm(x[0] - corr);
+  //*daya = swe_degnorm(x[0]);
   return iflag;
 }
 
@@ -3120,7 +3341,7 @@ double CALL_CONV swe_get_ayanamsa_ut(double tjd_ut)
  */
 int swi_trop_ra2sid_lon(double *xin, double *xout, double *xoutr, int32 iflag)
 {
-  double x[6];
+  double x[6], corr;
   int i;
   struct sid_data *sip = &swed.sidd;
   struct epsilon oectmp;
@@ -3140,7 +3361,9 @@ int swi_trop_ra2sid_lon(double *xin, double *xout, double *xoutr, int32 iflag)
   /* to polar coordinates */
   swi_cartpol_sp(x, x); 
   /* subtract ayan_t0 */
+  get_aya_correction(iflag, &corr, NULL);
   x[0] -= sip->ayan_t0 * DEGTORAD;
+  x[0] = swe_radnorm(x[0] + corr * DEGTORAD);
   /* back to cartesian */
   swi_polcart_sp(x, xout); 
   return OK;
@@ -3153,7 +3376,7 @@ int swi_trop_ra2sid_lon(double *xin, double *xout, double *xoutr, int32 iflag)
  */
 int swi_trop_ra2sid_lon_sosy(double *xin, double *xout, int32 iflag)
 {
-  double x[6], x0[6];
+  double x[6], x0[6], corr;
   int i;
   struct sid_data *sip = &swed.sidd;
   struct epsilon *oe = &swed.oec2000;
@@ -3193,8 +3416,9 @@ int swi_trop_ra2sid_lon_sosy(double *xin, double *xout, int32 iflag)
   x[0] -= x0[0];
   x[0] *= RADTODEG;
   /* subtract ayan_t0 */
+  get_aya_correction(iflag, &corr, NULL);
   x[0] -= sip->ayan_t0;
-  x[0] = swe_degnorm(x[0]) * DEGTORAD;
+  x[0] = swe_degnorm(x[0] + corr) * DEGTORAD;
   /* back to cartesian */
   swi_polcart_sp(x, xout); 
   return OK;
@@ -4353,7 +4577,7 @@ static int get_new_segment(double tjd, int ipli, int ifno, char *serr)
   return(OK);
 return_error_gns:
   fclose(fdp->fptr);
-  free(fdp->fptr);
+  // free(fdp->fptr);  is not from malloc(), must not be freed by us
   fdp->fptr = NULL;
   free_planets();
   return ERR;
@@ -4382,30 +4606,36 @@ static int read_const(int ifno, char *serr)
   double doubles[20];
   struct plan_data *pdp;
   struct file_data *fdp = &swed.fidat[ifno];
-  char *serr_file_damage = "Ephemeris file %s is damaged (0). ";
+  char *serr_file_damage = "Ephemeris file %s is damaged (0%s). ";
+  char *smsg = "";
   int nbytes_ipl = 2;
   fp = fdp->fptr;
   /************************************* 
    * version number of file            *
    *************************************/
   sp = fgets(s, AS_MAXCH, fp);
-  if (sp == NULL || strstr(sp, "\r\n") == NULL)
+  if (sp == NULL || strstr(sp, "\r\n") == NULL) {
     goto file_damage;
+  }
   sp = strchr(s, '\r');
   *sp = '\0';
   sp = s;
   while (isdigit((int) *sp) == 0 && *sp != '\0')
     sp++;
-  if (*sp == '\0') 
+  if (*sp == '\0') {
+    smsg = "a";
     goto file_damage;
+  }
   /* version unused so far */ 
   fdp->fversion = atoi(sp);
   /************************************* 
    * correct file name?                *
    *************************************/
   sp = fgets(s, AS_MAXCH, fp);
-  if (sp == NULL || strstr(sp, "\r\n") == NULL)
+  if (sp == NULL || strstr(sp, "\r\n") == NULL) {
+    smsg = "b";
     goto file_damage;
+  }
   /* file name, without path */
   sp = strrchr(fdp->fnam, (int) *DIR_GLUE);
   if (sp == NULL)
@@ -4434,22 +4664,26 @@ static int read_const(int ifno, char *serr)
    * copyright                         *
    *************************************/
   sp = fgets(s, AS_MAXCH, fp);
-  if (sp == NULL || strstr(sp, "\r\n") == NULL)
+  if (sp == NULL || strstr(sp, "\r\n") == NULL) {
+    smsg = "c";
     goto file_damage;
+  }
   /**************************************** 
    * orbital elements, if single asteroid *
    ****************************************/
   if (ifno == SEI_FILE_ANY_AST) {
     sp = fgets(s, AS_MAXCH * 2, fp);
-    if (sp == NULL || strstr(sp, "\r\n") == NULL)
+    if (sp == NULL || strstr(sp, "\r\n") == NULL) {
+      smsg = "d";
       goto file_damage;
+    }
     /* MPC number and name; will be analyzed below:
      * search "asteroid name" */
     while(*sp == ' ') sp++;
     while(isdigit(*sp)) sp++;
     sp++;
     i = (int) (sp - s);
-    strncpy(sastnam, sp, lastnam+i);
+    strncpy(sastnam, s, lastnam+i);	// fixed 19-nov-19
     *(sastnam+lastnam+i) = '\0';
     /* save elements, they are required for swe_plan_pheno() */
     strcpy(swed.astelem, s);
@@ -4486,8 +4720,10 @@ static int read_const(int ifno, char *serr)
   /************************************* 
    * one int32 for test of byte order   * 
    *************************************/
-  if (fread((void *) &testendian, 4, 1, fp) != 1)
+  if (fread((void *) &testendian, 4, 1, fp) != 1) {
+    smsg = "e";
     goto file_damage;
+  }
   /* is byte order correct?            */
   if (testendian == SEI_FILE_TEST_ENDIAN) {
     freord = SEI_FILE_NOREORD;
@@ -4497,9 +4733,10 @@ static int read_const(int ifno, char *serr)
     c = (char *) &testendian;
     for (i = 0; i < 4; i++)
       *(sp+i) = *(c+3-i);
-    if (lng != SEI_FILE_TEST_ENDIAN)
+    if (lng != SEI_FILE_TEST_ENDIAN) {
+      smsg = "f";
       goto file_damage;
-      /* printf("%d  %x\n", lng, lng);*/
+    }
   }
   /* is file bigendian or littlendian? 
    * test first byte of test integer, which is highest if bigendian */
@@ -4518,11 +4755,15 @@ fendian, ifno, serr);
   if (retc != OK)
     goto return_error;
   fpos = ftell(fp);
-  if (fseek(fp, 0L, SEEK_END) != 0)
+  if (fseek(fp, 0L, SEEK_END) != 0) {
+    smsg = "g";
     goto file_damage;
+  }
   flen = ftell(fp);
-  if (lng != flen)
+  if (lng != flen) {
+    smsg = "h";
     goto file_damage;
+  }
   /********************************************************** 
    * DE number of JPL ephemeris which this file is based on * 
    **********************************************************/
@@ -4551,8 +4792,10 @@ fendian, ifno, serr);
     nbytes_ipl = 4;
     nplan %= 256;
   }
-  if (nplan < 1 || nplan > 20)
+  if (nplan < 1 || nplan > 20) {
+    smsg = "i";
     goto file_damage;
+  }
   fdp->npl = nplan;
   /* which ones?                       */
   retc = do_fread((void *) fdp->ipl, nbytes_ipl, (int) nplan, sizeof(int), fp, SEI_CURR_FPOS,
@@ -4573,18 +4816,24 @@ freord, fendian, ifno, serr);
     strncpy(sastno, sastnam, j);
     sastno[j] = '\0';
     i = (int) atol(sastno);
-    if (i == fdp->ipl[0] - SE_AST_OFFSET) {
+    if (i == fdp->ipl[0] - SE_AST_OFFSET ||
+        i == fdp->ipl[0] // planetary moon
+	) {
       /* element record is from bowell database */
       strncpy(fdp->astnam, sastnam+j+1, lastnam);
       fdp->astnam[lastnam] = '\0';
       /* overread old ast. name field */
-      if (fread((void *) s, 30, 1, fp) != 1)
+      if (fread((void *) s, 30, 1, fp) != 1) {
+	smsg = "j";
         goto file_damage;
+      }
     } else {
       /* older elements record structure: the name
        * is taken from old name field */
-      if (fread((void *) fdp->astnam, 30, 1, fp) != 1)
+      if (fread((void *) fdp->astnam, 30, 1, fp) != 1) {
+	smsg = "k";
         goto file_damage;
+      }
     }
     /* in worst case strlen of not null terminated area! */
     i = (int) (strlen(fdp->astnam) - 1);
@@ -4595,6 +4844,8 @@ freord, fendian, ifno, serr);
       sp--;
     }
     sp[1] = '\0';
+    if ((sp = strstr(fdp->astnam, "  ")) != NULL)
+      *sp = '\0';
   }
   /************************************* 
    * check CRC                         * 
@@ -4608,14 +4859,19 @@ fendian, ifno, serr);
   /* read check area from file */
   fseek(fp, 0L, SEEK_SET);
   /* must check that defined length of s is less than fpos */
-  if (fpos - 1 > 2 * AS_MAXCH)
+  if (fpos - 1 > 2 * AS_MAXCH) {
+    smsg = "l";
     goto file_damage;
-  if (fread((void *) s, (size_t) fpos, 1, fp) != 1)
+  }
+  if (fread((void *) s, (size_t) fpos, 1, fp) != 1) {
+    smsg = "m";
     goto file_damage;
+  }
 #if 1
-  if (swi_crc32((unsigned char *) s, (int) fpos) != ulng)
+  if (swi_crc32((unsigned char *) s, (int) fpos) != ulng) {
+    smsg = "n";
     goto file_damage;
-    /*printf("crc %d %d\n", ulng2, ulng);*/
+  }
 #endif
   fseek(fp, fpos+4, SEEK_SET);
   /************************************* 
@@ -4640,6 +4896,8 @@ fendian, ifno, serr);
     ipli = fdp->ipl[kpl];
     if (ipli >= SE_AST_OFFSET)
       pdp = &swed.pldat[SEI_ANYBODY];
+    else if (ipli >= SE_PLMOON_OFFSET)
+      pdp = &swed.pldat[SEI_ANYBODY];
     else
       pdp = &swed.pldat[ipli];
     pdp->ibdy = ipli;
@@ -4665,6 +4923,11 @@ fendian, ifno, serr);
     if (retc != OK)
       goto return_error;
     pdp->rmax = lng / 1000.0; 
+    // planet's center of body, e.g. 9599 for Jupiter or Mars moons
+    if (ipli >= SE_PLMOON_OFFSET && ipli < SE_AST_OFFSET) {
+      if ((ipli % 100) == 99 || (ipli - 9000) / 100 == SE_MARS)
+	pdp->rmax = lng / 1000000.0;
+    }
     /* start and end epoch of planetary ephemeris,   */
     /* segment length, and orbital elements          */
     retc = do_fread((void *) doubles, 8, 10, 8, fp, SEI_CURR_FPOS, freord,
@@ -4707,13 +4970,13 @@ SEI_CURR_FPOS, freord, fendian, ifno, serr);
 file_damage:
   if (serr != NULL) {
     *serr = '\0';
-    if (strlen(serr_file_damage) + strlen(fdp->fnam) < AS_MAXCH) {
-      sprintf(serr, serr_file_damage, fdp->fnam);
+    if (strlen(serr_file_damage) + strlen(fdp->fnam) + strlen(smsg) < AS_MAXCH) {
+      sprintf(serr, serr_file_damage, fdp->fnam, smsg);
     }
   }
 return_error:
   fclose(fdp->fptr);
-  free(fdp->fptr);
+  // free(fdp->fptr);  is not from malloc(), must not be freed by us
   fdp->fptr = NULL;
   free_planets();
   return(ERR);
@@ -6421,7 +6684,7 @@ static int32 fixstar_calc_from_struct(struct fixed_star *stardata, double tjd, i
    ************************************************/
   if (!(iflag & SEFLG_NONUT))
     swi_nutate(x, iflag, FALSE);
-if (0) {
+if ((0)) {
   double r = sqrt(x[0] * x[0] + x[1] * x[1] + x[2] * x[2]);
   printf("%.17f %.17f %f\n", x[0]/r, x[1]/r, x[2]/r);
 }
@@ -6583,27 +6846,27 @@ static AS_BOOL get_builtin_star(char *star, char *sstar, char *srecord)
   /* some stars are built-in, because they are required for Hindu
    * sidereal ephemerides */
   /* Ayanamsha SE_SIDM_TRUE_CITRA */
-  if (strncmp(star, "spica", 5) == 0) {
+  if (strncmp(star, "spica", 5) == 0 || strncmp(star, "Spica", 5) == 0) {
     strcpy(srecord, "Spica,alVir,ICRS,13,25,11.57937,-11,09,40.7501,-42.35,-30.67,1,13.06,0.97,-10,3672");
     strcpy(sstar, "spica");
     return TRUE;
   /* Ayanamsha SE_SIDM_TRUE_REVATI */
-  } else if (strstr(star, ",zePsc") != NULL || strncmp(star, "revati", 6) == 0) {
+  } else if (strstr(star, ",zePsc") != NULL || strncmp(star, "revati", 6) == 0 || strncmp(star, "Revati", 6) == 0) {
     strcpy(srecord, "Revati,zePsc,ICRS,01,13,43.88735,+07,34,31.2745,145,-55.69,15,18.76,5.187,06,174");
     strcpy(sstar, "revati");
     return TRUE;
   /* Ayanamsha SE_SIDM_TRUE_PUSHYA */
-  } else if (strstr(star, ",deCnc") != NULL || strncmp(star, "pushya", 6) == 0) {
+  } else if (strstr(star, ",deCnc") != NULL || strncmp(star, "pushya", 6) == 0 || strncmp(star, "Pushya", 6) == 0 ) {
     strcpy(srecord, "Pushya,deCnc,ICRS,08,44,41.09921,+18,09,15.5034,-17.67,-229.26,17.14,24.98,3.94,18,2027");
     strcpy(sstar, "pushya");
     return TRUE;
   /* Ayanamsha SE_SIDM_TRUE_SHEORAN */
-  } else if (strstr(star, ",deCnc") != NULL || strncmp(star, "pushya", 6) == 0) {
+  } else if (strstr(star, ",deCnc") != NULL) {
     strcpy(srecord, "Pushya,deCnc,ICRS,08,44,41.09921,+18,09,15.5034,-17.67,-229.26,17.14,24.98,3.94,18,2027");
     strcpy(sstar, "pushya");
     return TRUE;
   /* Ayanamsha SE_SIDM_TRUE_MULA */
-  } else if (strstr(star, ",laSco") != NULL || strncmp(star, "mula", 6) == 0) {
+  } else if (strstr(star, ",laSco") != NULL || strncmp(star, "mula", 6) == 0 || strncmp(star, "Mula", 6) == 0) {
     strcpy(srecord, "Mula,laSco,ICRS,17,33,36.52012,-37,06,13.7648,-8.53,-30.8,-3,5.71,1.62,-37,11673");
     strcpy(sstar, "mula");
     return TRUE;
@@ -6881,17 +7144,21 @@ char *CALL_CONV swe_get_planet_name(int ipl, char *s)
         break;
       }
       /* asteroids */
-      if (ipl > SE_AST_OFFSET) {
+      if (ipl > SE_PLMOON_OFFSET || ipl > SE_AST_OFFSET) { // 2nd condition obsolete
 	/* if name is already available */
-	if (ipl == swed.fidat[SEI_FILE_ANY_AST].ipl[0])
+	if (ipl == swed.fidat[SEI_FILE_ANY_AST].ipl[0]) {
 	  strcpy(s, swed.fidat[SEI_FILE_ANY_AST].astnam);
         /* else try to get it from ephemeris file */
-	else {
+	} else {
 	  retc = sweph(J2000, ipl, SEI_FILE_ANY_AST, 0, NULL, NO_SAVE, xp, NULL);
-	  if (retc != ERR && retc != NOT_AVAILABLE)
+	  if (retc != ERR && retc != NOT_AVAILABLE) {
 	    strcpy(s, swed.fidat[SEI_FILE_ANY_AST].astnam);
-	  else
-	    sprintf(s, "%d: not found", ipl - SE_AST_OFFSET);
+	  } else {
+	    if (ipl > SE_AST_OFFSET)
+	      sprintf(s, "%d: not found (asteroid)", ipl - SE_AST_OFFSET);
+            else
+	      sprintf(s, "%d: not found (planetary moon)", ipl);
+	  }
 	}
         /* If there is a provisional designation only in ephemeris file,
          * we look for a name in seasnam.txt, which can be updated by
@@ -6907,7 +7174,7 @@ char *CALL_CONV swe_get_planet_name(int ipl, char *s)
          * 2. asteroid name
          * The asteroid number may or may not be in brackets
          */
-        if (s[0] == '?' || isdigit((int) s[1])) {
+        if (ipl > SE_AST_OFFSET && (s[0] == '?' || isdigit((int) s[1]))) {
           int ipli = (int) (ipl - SE_AST_OFFSET), iplf = 0;
           FILE *fp;
           char si[AS_MAXCH], *sp, *sp2;
@@ -7105,7 +7372,7 @@ void swi_force_app_pos_etc()
     swed.pldat[i].xflgs = -1;
   for (i = 0; i < SEI_NNODE_ETC; i++)
     swed.nddat[i].xflgs = -1;
-  for (i = 0; i < SE_NPLANETS; i++) {
+  for (i = 0; i <= SE_NPLANETS; i++) { // "=" because save area for asteroids > SE_AST_OFFSET is at i == SE_NPLANETS
     swed.savedat[i].tsave = 0;
     swed.savedat[i].iflgsave = -1;
   }
@@ -7633,7 +7900,7 @@ static int32 swi_fixstar_calc_from_record(char *srecord, double tjd, int32 iflag
    ************************************************/
   if (!(iflag & SEFLG_NONUT))
     swi_nutate(x, iflag, FALSE);
-if (0) {
+if ((0)) {
   double r = sqrt(x[0] * x[0] + x[1] * x[1] + x[2] * x[2]);
   printf("%.17f %.17f %f\n", x[0]/r, x[1]/r, x[2]/r);
 }
@@ -7867,40 +8134,246 @@ int32 CALL_CONV swe_fixstar_mag(char *star, double *mag, char *serr)
 
 #endif
 
-#if 0
-void CALL_CONV swe_set_timeout(int32 tsec)
+int32 CALL_CONV swe_calc_pctr(double tjd, int32 ipl, int32 iplctr, int32 iflag, double *xxret, char *serr) 
 {
-  if (tsec < 0) tsec = 0;
-  swed.timeout = tsec;
-}
-#endif
-
-#if 0
-int CALL_CONV swe_time_equ(double tjd_ut, double *E, char *serr)
- /* Algorithm according to Meeus, German, p. 190ff.*/
-  double L0, dpsi, eps, x[6], nutlo[2];
-  double tau = (tjd - J2000) / 365250;
-  double tau2 = tau * tau;
-  double tau3 = tau * tau2;
-  double tau4 = tau * tau3;
-  double tau5 = tau * tau4;
-  L0 = 280.4664567 + swe_degnorm(tau * 360007.6982779)
-		   + tau2 * 0.03032028 
-		   + tau3 * 1 / 49931
-		   - tau4 * 1 / 15299
-		   - tau5 * 1 / 1988000;
-  swi_nutation(tjd, 0, nutlo);
-  eps = (swi_epsiln(tjd) + nutlo[1]) * RADTODEG;
-  dpsi = nutlo[0] * RADTODEG;
-  if (swe_calc(tjd, SE_SUN, SEFLG_EQUATORIAL, x, serr) == ERR)
+  double t = 0, dt, daya[2], dtsave_for_defl;
+  double xx[6], xxctr[6], xxctr2[6], xx0[6], xxsv[24], xxsp[6], dx[6], xreturn[24];
+  double *xs;
+  int i, j, niter;
+  int32 iflag2, epheflag, retc;
+  struct epsilon *oe;
+  if (ipl == iplctr) {
+    if (serr != NULL) 
+	  sprintf(serr, "ipl and iplctr (= %d) must not be identical\n", ipl);
+	return ERR;
+  }
+  epheflag = iflag & SEFLG_EPHMASK;
+  // this fills in obliquity and nutation values in swed
+  swe_calc(tjd + swe_deltat_ex(tjd, epheflag, serr), SE_ECL_NUT, 0, xx, serr);
+  iflag &= ~(SEFLG_HELCTR|SEFLG_BARYCTR);
+  iflag2 = epheflag;
+  iflag2 |= (SEFLG_BARYCTR|SEFLG_J2000|SEFLG_ICRS|SEFLG_TRUEPOS|SEFLG_EQUATORIAL|SEFLG_XYZ|SEFLG_SPEED);
+  retc = swe_calc(tjd, iplctr, iflag2, xxctr, serr);
+  if (retc == ERR) 
     return ERR;
-  *E = swe_degnorm(L0 - 0.0057183 - x[0] + dpsi * cos(eps * DEGTORAD));
-  if (*E > 180)
-    *E -= 360;
-  *E *= 4 / 1440.0;
-  return OK;
+  retc = swe_calc(tjd, ipl, iflag2, xx, serr);
+  if (retc == ERR) 
+    return ERR;
+  for (i = 0; i <= 5; i++) {
+    xx0[i] = xx[i];
+    //xx[i] -= xxctr[i];
+  }
+  /*******************************
+   * light-time geocentric       * 
+   *******************************/
+  if (!(iflag & SEFLG_TRUEPOS)) {
+    /* number of iterations - 1 */
+    niter = 1;
+    if (iflag & SEFLG_SPEED) {
+      /* 
+       * Apparent speed is influenced by the fact that dt changes with
+       * time. This makes a difference of several hundredths of an
+       * arc second / day. To take this into account, we compute 
+       * 1. true position - apparent position at time t - 1.
+       * 2. true position - apparent position at time t.
+       * 3. the difference between the two is the part of the daily motion 
+       * that results from the change of dt.
+       */
+      for (i = 0; i <= 2; i++)
+	    xxsv[i] = xxsp[i] = xx[i] - xx[i+3];
+      for (j = 0; j <= niter; j++) {
+        for (i = 0; i <= 2; i++) {
+          dx[i] = xxsp[i];
+          dx[i] -= (xxctr[i] - xxctr[i+3]);
+        }
+        /* new dt */
+        dt = sqrt(square_sum(dx)) * AUNIT / CLIGHT / 86400.0;     
+        for (i = 0; i <= 2; i++) 	/* rough apparent position at t-1 */
+          xxsp[i] = xxsv[i] - dt * xx0[i+3];
+      }
+      /* true position - apparent position at time t-1 */
+      for (i = 0; i <= 2; i++) 
+        xxsp[i] = xxsv[i] - xxsp[i];
+    }
+    /* dt and t(apparent) */
+    for (j = 0; j <= niter; j++) {
+      for (i = 0; i <= 2; i++) {
+        dx[i] = xx[i];
+    	dx[i] -= xxctr[i];
+      }
+      dt = sqrt(square_sum(dx)) * AUNIT / CLIGHT / 86400.0;    
+      /* new t */
+      t = tjd - dt;
+      dtsave_for_defl = dt;
+      for (i = 0; i <= 2; i++) 		/* rough apparent position at t*/
+        xx[i] = xx0[i] - dt * xx0[i+3];
+    }
+    /* part of daily motion resulting from change of dt */
+    if (iflag & SEFLG_SPEED) {
+      for (i = 0; i <= 2; i++) 
+        xxsp[i] = xx0[i] - xx[i] - xxsp[i];
+    }
+    retc = swe_calc(t, iplctr, iflag2, xxctr2, serr);
+    retc = swe_calc(t, ipl, iflag2, xx, serr);
+  }
+  /*******************************
+   * conversion to planetocenter     * 
+   *******************************/
+  if (!(iflag & SEFLG_HELCTR) && !(iflag & SEFLG_BARYCTR)) {
+    /* subtract earth */
+    for (i = 0; i <= 5; i++) 
+      xx[i] -= xxctr[i]; 
+    if ((iflag & SEFLG_TRUEPOS) == 0 ) {
+      /* 
+       * Apparent speed is also influenced by
+       * the change of dt during motion.
+       * Neglect of this would result in an error of several 0.01"
+       */
+      if (iflag & SEFLG_SPEED)
+        for (i = 3; i <= 5; i++) 
+          xx[i] -= xxsp[i-3]; 	
+    }
+  }
+  if (!(iflag & SEFLG_SPEED))
+    for (i = 3; i <= 5; i++)
+      xx[i] = 0;
+  /************************************
+   * relativistic deflection of light *
+   ************************************/
+  if (!(iflag & SEFLG_TRUEPOS) && !(iflag & SEFLG_NOGDEFL))
+    	/* SEFLG_NOGDEFL is on, if SEFLG_HELCTR or SEFLG_BARYCTR */
+    swi_deflect_light(xx, dtsave_for_defl, iflag);
+  /**********************************
+   * 'annual' aberration of light   *
+   **********************************/
+  if (!(iflag & SEFLG_TRUEPOS) && !(iflag & SEFLG_NOABERR)) {
+    	/* SEFLG_NOABERR is on, if SEFLG_HELCTR or SEFLG_BARYCTR */
+    swi_aberr_light(xx, xxctr, iflag);
+    /* 
+     * Apparent speed is also influenced by
+     * the difference of speed of the earth between t and t-dt. 
+     * Neglecting this would involve an error of several 0.1"
+     */
+    if (iflag & SEFLG_SPEED) {
+      for (i = 3; i <= 5; i++) 
+        xx[i] += xxctr[i] - xxctr2[i];
+    }
+  }
+  if (!(iflag & SEFLG_SPEED))
+    for (i = 3; i <= 5; i++)
+      xx[i] = 0;
+  /* ICRS to J2000 */
+  if (!(iflag & SEFLG_ICRS) && swi_get_denum(ipl, epheflag) >= 403) {
+    swi_bias(xx, t, iflag, FALSE);
+  }/**/
+  /* save J2000 coordinates; required for sidereal positions */
+  for (i = 0; i <= 5; i++)
+    xxsv[i] = xx[i];
+  /************************************************
+   * precession, equator 2000 -> equator of date *
+   ************************************************/
+  if (!(iflag & SEFLG_J2000)) {
+    swi_precess(xx, tjd, iflag, J2000_TO_J);
+    if (iflag & SEFLG_SPEED)
+      swi_precess_speed(xx, tjd, iflag, J2000_TO_J);
+    oe = &swed.oec;
+  } else {
+    oe = &swed.oec2000;
+  }
+  /************************************************
+   * nutation                                     *
+   ************************************************/
+  if (!(iflag & SEFLG_NONUT))
+    swi_nutate(xx, iflag, FALSE);
+  /* now we have equatorial cartesian coordinates; save them */
+  for (i = 0; i <= 5; i++)
+    xreturn[18+i] = xx[i];
+  /************************************************
+   * transformation to ecliptic.                  *
+   * with sidereal calc. this will be overwritten *
+   * afterwards.                                  *
+   ************************************************/
+  swi_coortrf2(xx, xx, oe->seps, oe->ceps);
+  if (iflag & SEFLG_SPEED)
+    swi_coortrf2(xx+3, xx+3, oe->seps, oe->ceps);
+  if (!(iflag & SEFLG_NONUT)) {
+    swi_coortrf2(xx, xx, swed.nut.snut, swed.nut.cnut);
+    if (iflag & SEFLG_SPEED)
+      swi_coortrf2(xx+3, xx+3, swed.nut.snut, swed.nut.cnut);
+  }
+  /* now we have ecliptic cartesian coordinates */
+  for (i = 0; i <= 5; i++)
+    xreturn[6+i] = xx[i];
+  /************************************
+   * sidereal positions               *
+   ************************************/
+  if (iflag & SEFLG_SIDEREAL) {
+    /* project onto ecliptic t0 */
+    if (swed.sidd.sid_mode & SE_SIDBIT_ECL_T0) {
+      if (swi_trop_ra2sid_lon(xxsv, xreturn+6, xreturn+18, iflag) != OK)
+	return ERR;
+    /* project onto solar system equator */
+    } else if (swed.sidd.sid_mode & SE_SIDBIT_SSY_PLANE) {
+      if (swi_trop_ra2sid_lon_sosy(xxsv, xreturn+6, iflag) != OK)
+        return ERR;
+    } else {
+    /* traditional algorithm */
+      swi_cartpol_sp(xreturn+6, xreturn); 
+      /* note, swi_get_ayanamsa_ex() disturbs present calculations, if sun is calculated with 
+       * TRUE_CHITRA ayanamsha, because the ayanamsha also calculates the sun.
+       * Therefore current values are saved... */
+      for (i = 0; i < 24; i++)
+        xxsv[i] = xreturn[i];
+      if (swi_get_ayanamsa_with_speed(tjd, iflag, daya, serr) == ERR)
+        return ERR;
+      /* ... and restored */
+      for (i = 0; i < 24; i++)
+        xreturn[i] = xxsv[i];
+      xreturn[0] -= daya[0] * DEGTORAD;
+      xreturn[3] -= daya[1] * DEGTORAD;
+      swi_polcart_sp(xreturn, xreturn+6); 
+    }
+  } 
+  /************************************************
+   * transformation to polar coordinates          *
+   ************************************************/
+  swi_cartpol_sp(xreturn+18, xreturn+12); 
+  swi_cartpol_sp(xreturn+6, xreturn); 
+  /********************** 
+   * radians to degrees *
+   **********************/
+  for (i = 0; i < 2; i++) {
+    xreturn[i] *= RADTODEG;		/* ecliptic */
+    xreturn[i+3] *= RADTODEG;
+    xreturn[i+12] *= RADTODEG;	/* equator */
+    xreturn[i+15] *= RADTODEG;
+  }
+  // return values
+  if (iflag & SEFLG_EQUATORIAL) {
+    xs = xreturn+12;	/* equatorial coordinates */
+  } else {
+    xs = xreturn;	/* ecliptic coordinates */
+  }
+  if (iflag & SEFLG_XYZ)
+    xs = xs+6;		/* cartesian coordinates */
+  for (i = 0; i < 6; i++)
+    xxret[i] = xs[i];
+  if (!(iflag & SEFLG_SPEED)) {
+    for (i = 3; i < 6; i++)
+      xxret[i] = 0;
+  }
+  if (iflag & SEFLG_RADIANS) {
+    for (i = 0; i < 2; i++)
+      xxret[i] *= DEGTORAD;
+    if (iflag & SEFLG_SPEED) {
+      for (i = 3; i < 5; i++) 
+	xxret[i] *= DEGTORAD;
+    }
+  }
+  if (retc == ERR)
+    return ERR;
+  return(iflag);
 }
-#endif
 #endif /* SWISS */
 
-/* sweph.cpp */
\ No newline at end of file
+/* sweph.cpp */
diff --git a/sweph.h b/sweph.h
index 8db6834..7c876f2 100644
--- a/sweph.h
+++ b/sweph.h
@@ -1,5 +1,4 @@
 /************************************************************
-   $Header: /home/dieter/sweph/RCS/sweph.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
    definitions and constants SWISSEPH
 
   Authors: Dieter Koch and Alois Treindl, Astrodienst Zurich
@@ -63,11 +62,12 @@
  * move over from swephexp.h
  */
 
-#define SE_VERSION      "2.08"  //"2.07.02a"
+#define SE_VERSION      "2.09.03jumo" 
 
 #define J2000           2451545.0  	/* 2000 January 1.5 */
 #define B1950           2433282.42345905  	/* 1950 January 0.923 */
 #define J1900           2415020.0  	/* 1900 January 0.5 */
+#define B1850           2396758.2035810  	/* 1850 January 16:53 */
 
 #define MPC_CERES       1
 #define MPC_PALLAS      2
@@ -175,6 +175,7 @@
 #define SEI_FILE_MAIN_AST 2
 #define SEI_FILE_ANY_AST  3
 #define SEI_FILE_FIXSTAR  4
+#define SEI_FILE_PLMOON   5
 
 #if 0
 #define SEI_FILE_TEST_ENDIAN     (97L * 65536L + 98L * 256L + 99L) /*abc*/
@@ -337,85 +338,264 @@ static const double pla_diam[NDIAM] = {1392000000.0, /* Sun */
  * t0       epoch of ayanamsa, TDT (can be ET or UT)
  * ayan_t0  ayanamsa value at epoch
  * t0_is_UT true, if t0 is UT
+ * prec_offset is the precession model for which the ayanamsha
+ *          has to be corrected by adding/subtracting a constant offset. 
+ *          0, if no correction is needed
+ *          -1, if correction is unclear or has not been investigated
+ *              and therefore is not applied
  */
-struct aya_init {double t0, ayan_t0; AS_BOOL t0_is_UT;};
+struct aya_init {double t0;
+                 double ayan_t0; 
+		 AS_BOOL t0_is_UT;
+		 int prec_offset;};
 static const struct aya_init ayanamsa[] = {
-{2433282.5, 24.042044444, FALSE},    /* 0: Fagan/Bradley (Default) */
-/*{J1900, 360 - 337.53953},   * 1: Lahiri (Robert Hand) */
-{2435553.5, 23.250182778 - 0.004660222, FALSE}, 
-                                     /* 1: Lahiri (derived from: Indian
-				      * Astronomical Ephemeris 1989, p. 556;
-				      * the subtracted value is nutation) */
-{J1900, 360 - 333.58695, FALSE},     /* 2: Robert DeLuce (Constellational Astrology ... p. 5 */
-{J1900, 360 - 338.98556, FALSE},     /* 3: B.V. Raman (Robert Hand) */
-{J1900, 360 - 341.33904, FALSE},     /* 4: Usha/Shashi (Robert Hand) */
-{J1900, 360 - 337.636111, FALSE},    /* 5: Krishnamurti (Robert Hand) */
-{J1900, 360 - 333.0369024, FALSE},   /* 6: Djwhal Khool; (Graham Dawson)  
-                                      *    Aquarius entered on 1 July 2117 */
-{J1900, 360 - 338.917778, FALSE},    /* 7: Shri Yukteshwar; (David Cochrane) */
-//{2412543.5, 20.91, TRUE},          /* 7: Shri Yukteshwar; (Holy Science, p. xx) */
-{J1900, 360 - 338.634444, FALSE},    /* 8: J.N. Bhasin; (David Cochrane) */
+/* 0: Fagan/Bradley (Default) 
+     "The American Sidereal Ephemeris, 1976-2000" (Astro Computing Services, 1981)
+     states on S.V.P. ("Synetic Vernal Point"):
+     "The S.V.P. is the Sidereal longitude of the Vernal Equinox (the
+     Tropical zero-point) in the Fagan-Bradley school of Western Sidereal
+     astrology. It was determined empirically, its mean value being defined
+     as 335:57'28".64 for the epoch 1950.0."
+     Fagan/Firebrace, "Primer of Sidereal Astrology", p. 13:
+     "It was during 1957 that Garth Allen .... experimenting ... But when
+     progressed for the dates of the calamities, all were found by him to be 
+     slightly out, the mean error being equivalent to an increase of 0:06'05"
+     in the then-adopted sidereal longitude of the vernal point, determined
+     from Spica in 29 Virgo (i.e. 29:06'05" Virgo; D.K.), and the proper motion
+     having been allowed for. In short, for the epoch 1950.0 he proposed as the 
+     mean longitude of the vernal point 335:57'28.64", proper motion being 
+     disregarded."
+     If "1950.0" means the standard epoch B1950 = JD 2433282.423, and based 
+     on the then-used precession model of Newcomb, this ayanamsha leads to 
+     a true position of 29:06'05.965" Virgo, based on Hipparcos position of 
+     the star. */
+{2433282.42346, 24.042044444, FALSE, SEMOD_PREC_NEWCOMB}, // 0: Fagan/Bradley
+/*************************/
+/* 1: Standard Lahiri 
+     according to program NOVA by Robert Hand: 
+     {J1900, 360 - 337.53953},   
+     This corresponds to an ayanamsha 22:27'37.69 as given in
+     Indian Ephemeris and Nautical Almanac" 1965, p. 459.
+     Note, however, this value should only with a precession formula 
+     where T is measured in tropical centuries. Swiss Ephemeris always
+     uses Julian centuries.
+     The following definition is according to:
+     Calendar Reform Committee 1956; the subtracted value is nutation:
+     {2435553.5, 23.25 - 0.00464207, FALSE}, 
+     Lahiri (derived from: Indian Astronomical Ephemeris 1989, p. 556;
+     the subtracted value is nutation, according to Wahr 1980) */
+{2435553.5, 23.250182778 - 0.004658035, FALSE, SEMOD_PREC_IAU_1976}, // 1: Lahiri
+/*************************/
+/* 2: Robert DeLuce (Constellational Astrology ... p. 5; 
+     birth of Jesus assumed on 1 Jan 1 BC (= 0) jul.,
+     based on Newcomb precession. 
+     {J1900, 360 - 333.58695, FALSE, 0}, 
+     Ayanamsha was corrected with SE 2.09 as follows:
+     Started at zero ayanamsha epoch with value 0 and 
+     run with standard precession.
+     This makes a difference of 22" compared with previous version: */
+{1721057.5, 0, TRUE, 0}, // 2: DeLuce
+/*************************/
+/* 3: B.V. Raman (Robert Hand) 
+     See B.V. Raman, "Hindu Predictive Astrology" (1938, Introduction), 
+     pp. 279, 287.
+     This ayanamsha is apparently not based on a valid precession theory (e.g.
+     Newcomb). We cannot reproduce precisely the ayanamsha values on p. 287. */
+{J1900, 360 - 338.98556, FALSE, SEMOD_PREC_NEWCOMB}, // 3: Raman
+/*************************/
+/* 4: Usha/Shashi (Robert Hand) 
+     Usha and Shashi, "Hindu Astrological Calculations" (1978, 
+     Sagar Publications, New Delhi).
+     We do not have this book. */
+{J1900, 360 - 341.33904, FALSE, -1}, // 4: Usha/Shashi
+/*************************/
+/* 5: Krishnamurti (Robert Hand)
+     K.S. Krishnamurti, "Reader 1", pp. 55-59.
+     Autor does not give precise information. Zero ayanamsha year is said to 
+     be 291 CE, and there is an ayanamsha table with arc min precision for
+     1840 to 2000 on p. 58.
+     This ayanamsha reproduces the table quite well, if 1 Jan of each year
+     is taken. (Turn off Newcomb precession in order to verify.)
+     However, D. Senthilathiban believes the values are given for the date
+     of sidereal Aries ingress of each year. ("Study of KP Ayanamsa with
+     Modern Precession Theories", pp. 126f. */
+{J1900, 360 - 337.636111, FALSE, SEMOD_PREC_NEWCOMB}, // 5: Krishnamurti
+/*************************/
+/* 6: Djwhal Khool (Graham Dawson), 
+     "Channeled" information: Aquarius ingress of VP on 1 July 2117
+     See Philipp Lindsay, "The Beginning of the Age of Aquarius: 2,117 A.D.",
+     http://esotericastrologer.org/newsletters/the-age-of-aquarius-ray-and-zodiac-cycles/ */
+/*************************/
+{J1900, 360 - 333.0369024, FALSE, 0}, // 6: Djwhal Khool
+/* 7: Shri Yukteshwar; (David Cochrane) 
+     This ayanamsha seems to be wrong.
+     Swami Sri Yukteswar, "The Holy Science", 1920 (1949, 1957 and 1977, 
+     partly revised), Yogoda Satsanga Society of India.
+     Ayanamsha on the spring equinox 1893 was 20:54'36" (1894 according to 
+     the revised edition of 1977) At the same time he believed that this was the
+     distance of the spring equinox from the star Revati, which he put at the
+     initial point of Aries.  Unfortunately, this is wrong, because on that date
+     Revati was actually 18:23' away from the vernal point. The error is
+     explained from the fact that Yukteshwar used the zero ayanamsha year 499 CE
+     and an inaccurate Suryasiddhantic precession rate of 360/24'000 years = 54
+     arcsec/year. It is obvious that Yukteshwar actually intended an ayanamsha
+     that starts at the star Revati.  */
+{J1900, 360 - 338.917778, FALSE, -1},  // 7: Shri Yukteshwar
+//{2412543.5, 20.91, TRUE, -1},        // 7: Shri Yukteshwar; (Holy Science, p. xx) 
+/*************************/
+/* 8: J.N. Bhasin; (David Cochrane) 
+     We don't have any sources or detailed information about this ayanamsha. */
+{J1900, 360 - 338.634444, FALSE, -1}, // Bhasin
+/*************************/
 /* 14 Sept. 2018: the following three ayanamshas have been wrong for
- * many years */
-{1684532.5, -5.66667, TRUE},         /* 9: Babylonian, Kugler 1 */
-{1684532.5, -4.26667, TRUE},         /*10: Babylonian, Kugler 2 */
-{1684532.5, -3.41667, TRUE},         /*11: Babylonian, Kugler 3 */
-{1684532.5, -4.46667, TRUE},         /*12: Babylonian, Huber */
-/*{1684532.5, -4.56667, TRUE},         *12: Babylonian, Huber (Swisseph has been wrong for many years!) */
-{1673941, -5.079167, TRUE},          /*13: Babylonian, Mercier;
-                                      *    eta Piscium culminates with zero point */
-{1684532.5, -4.44088389, TRUE},      /*14: t0 is defined by Aldebaran at 15 Taurus */
-{1674484, -9.33333, TRUE},           /*15: Hipparchos */
-{1927135.8747793, 0, TRUE},          /*16: Sassanian */
-//{1746412.236, 0, FALSE},             /*17: Galactic Center at 0 Sagittarius */
-{0, 0, FALSE},                       /*17: Galactic Center at 0 Sagittarius */
-{J2000, 0, FALSE},	             /*18: J2000 */
-{J1900, 0, FALSE},	             /*19: J1900 */
-{B1950, 0, FALSE},	             /*20: B1950 */
-{1903396.8128654, 0, TRUE},	     /*21: Suryasiddhanta, assuming
-                                       ingress of mean Sun into Aries at point
-				       of mean equinox of date on
-				       21.3.499, near noon, Ujjain (75.7684565 E)
-                                       = 7:30:31.57 UT = 12:33:36 LMT*/
-{1903396.8128654,-0.21463395, TRUE}, /*22: Suryasiddhanta, assuming
-				       ingress of mean Sun into Aries at
-				       true position of mean Sun at same epoch */
-{1903396.7895321, 0, TRUE},	     /*23: Aryabhata, same date, but UT 6:56:55.57
-				       analogous 21 */
-{1903396.7895321,-0.23763238, TRUE}, /*24: Aryabhata, analogous 22 */
-{1903396.8128654,-0.79167046, TRUE}, /*25: SS, Revati/zePsc at polar long. 359:50'*/
-{1903396.8128654, 2.11070444, TRUE}, /*26: SS, Citra/Spica at polar long. 180 */
-{0, 0, FALSE},	                     /*27: True Citra (Spica exactly at 0 Libra) */
-{0, 0, FALSE},	                     /*28: True Revati (zeta Psc exactly at 29:50' Pisces) */
-{0, 0, FALSE},			     /*29: True Pushya (delta Cnc exactly a 16 Cancer */
-{0, 0, FALSE},                       /*30: R. Gil Brand; Galactic Center at golden section
-                                       between 0 Sco and 0 Aqu; note: 0 Aqu/Leo is
-				       the symmetric axis of rulerships */
-{0, 0, FALSE},	                     /*31: Galactic Equator IAU 1958, i.e. galactic/ecliptic
-                                       intersection point based on galactic coordinate system */
-{0, 0, FALSE},	                     /*32: Galactic Equator True, i.e. galactic/ecliptic 
-                                       intersection point based on the galactic pole as given in:
-				       Liu/Zhu/Zhang, "Reconsidering the galactic 
-				       coordinate system", A & A No. AA2010, Oct. 2010 */
-{0, 0, FALSE},	                     /*33: Galactic Equator Mula, i.e. galactic/ecliptic 
-                                       intersection point in the middle of lunar mansion Mula */
-{2451079.734892000, 30, FALSE},	     /*34: Skydram/Galactic Alignment (R. Mardyks); 
-                                       autumn equinox aligned with Galactic Equator/Pole */
-{0, 0, FALSE},	                     /*35: Chandra Hari */
-{0, 0, FALSE},	                     /*36: Dhruva Galactic Centre Middle of Mula (Ernst Wilhelm) */
-{1911797.740782065, 0, TRUE},	     /*37: Kali 3623 = 522 CE, Ujjain (75.7684565), 
-                                      *    based on Kali midnight and SS year length */
-{1721057.5, -3.2, TRUE},             /*38: Babylonian (Britton 2010) */
-{0, 0, FALSE},                       /*39: Sunil Sheoran ("Vedic") */
-{0, 0, FALSE},                       /*40: Galactic Center at 0 Capricon (Cochrane) */
-{2451544.5, 25.0, TRUE},             /*41: "Galactic Equatorial" (N.A. Fiorenza) */
-{1775845.5, -2.9422, TRUE},          /*42: Vettius Valens (Moon; derived from
-                                           Holden 1995 p. 12 for epoch of Valens
-					   1 Jan. 150 CE julian) */
-/*{2061539.789532065, 6.83333333, TRUE}, *41: Manjula's Laghumanasa, 10 March 932,
-                                      *    12 PM LMT Ujjain (75.7684565 E),
-				      *    ayanamsha = 6:50' */
-{0, 0, FALSE},	                     /*42: - */
+   many years */
+/* 9 - 11: Babylonian, Kugler */
+{1684532.5, -5.66667, TRUE, -1},     /*  9: Babylonian, Kugler 1 */
+{1684532.5, -4.26667, TRUE, -1},     /* 10: Babylonian, Kugler 2 */
+{1684532.5, -3.41667, TRUE, -1},     /* 11: Babylonian, Kugler 3 */
+/*************************/
+/* 12: Babylonian, Huber 
+      P. Huber, "Uber den Nullpunkt der babylonischen Ekliptik", in: Centaurus
+      1958, 5, p. 192-208. 
+      This ayanamsha had a wrong initial value until 14 Sept. 2018. */
+{1684532.5, -4.46667, TRUE, -1},     // 12: Baylonian, Huber 
+/*************************/
+/* 13: Babylonian, Mercier; eta Piscium culminates with zero point */
+{1673941, -5.079167, TRUE, -1},      // 13: Babylonian, Mercier
+/*************************/
+/* 14: t0 is defined by Aldebaran at 15 Taurus in year -100 */
+{1684532.5, -4.44138598, TRUE, 0},  
+/*************************/
+/* 15: Hipparchos */
+{1674484.0, -9.33333, TRUE, -1},       // 15: Hipparchos
+/*************************/
+/* 16: Sassanian */
+{1927135.8747793, 0, TRUE, -1},      // 16: Sassanian 
+/*************************/
+/* 17: Galactic Center at 0 Sagittarius */
+{0, 0, FALSE, 0},                    // 17: Galactic Center at 0 Sagittarius 
+/*************************/
+/* 18: J2000 */
+{J2000, 0, FALSE, 0},	             /* 18: J2000 */
+/*************************/
+/* 19: J1900 */
+{J1900, 0, FALSE, 0},	             /* 19: J1900 */
+/*************************/
+/* 20: B1950 */
+{B1950, 0, FALSE, 0},	             /* 20: B1950 */
+/*************************/
+/* 21: Suryasiddhanta, assuming ingress of mean Sun into Aries at point of mean
+      equinox of date on 21.3.499, near noon, Ujjain (75.7684565 E) 
+      = 7:30:31.57 UT = 12:33:36 LMT*/
+{1903396.8128654, 0, TRUE, 0},	     // 21: 
+/*************************/
+/* 22: Suryasiddhanta, assuming ingress of mean Sun into Aries at true position
+      of mean Sun at same epoch */
+{1903396.8128654,-0.21463395, TRUE, 0}, // 22: 
+/*************************/
+/* 23: Aryabhata, same date, but UT 6:56:55.57 analogous to 21 */
+{1903396.7895321, 0, TRUE, 0},	     // 23: 
+/*************************/
+/* 24: Aryabhata, analogous 22 */
+{1903396.7895321,-0.23763238, TRUE, 0}, // 24: 
+/*************************/
+/* 25: Suryasiddhanta, Revati/zePsc at polar long. 359:50'*/
+{1903396.8128654,-0.79167046, TRUE, 0}, // 25: 
+/*************************/
+/* 26: Suryasiddhanta, Citra/Spica at polar long. 180 */
+{1903396.8128654, 2.11070444, TRUE, 0}, // 26: 
+/*************************/
+/* 27: True Citra (Spica exactly at 0 Libra) */
+{0, 0, FALSE, 0},	             // 27: True Citra 
+/*************************/
+/* 28: True Revati (zeta Psc exactly at 29:50' Pisces) */
+{0, 0, FALSE, 0},	             // 28: True Revati 
+/*************************/
+/* 29: True Pushya (delta Cnc exactly a 16 Cancer */
+{0, 0, FALSE, 0},		     // 29: True Pushya 
+/*************************/
+/* 30: R. Gil Brand; Galactic Center at golden section between 0 Sco and 0 Aqu;
+      note: 0 Aqu/Leo is the symmetric axis of rulerships */
+{0, 0, FALSE, 0},                    // 30: Gil Brand
+/*************************/
+/* 31: Galactic Equator IAU 1958, i.e. galactic/ecliptic intersection point
+      based on galactic coordinate system */
+{0, 0, FALSE, 0},	             // 31: GE IAU 1958
+/*************************/
+/* 32: Galactic Equator True, i.e. galactic/ecliptic intersection point based
+     on the galactic pole as given in: Liu/Zhu/Zhang, "Reconsidering the
+     galactic coordinate system", A & A No. AA2010, Oct. 2010 */
+{0, 0, FALSE, 0},	             // 32: GE true
+/*************************/
+/* 33: Galactic Equator Mula, i.e. galactic/ecliptic intersection point in the
+      middle of lunar mansion Mula */
+{0, 0, FALSE, 0},	             // 33: GE Mula
+/*************************/
+/* 34: Skydram/Galactic Alignment (R. Mardyks); autumn equinox aligned with
+      Galactic Equator/Pole */
+{2451079.734892000, 30, FALSE, 0},   // 34: Skydram/Mardyks
+/*************************/
+/* 35: Chandra Hari */
+{0, 0, FALSE, 0},	             // 35: Chandra Hari 
+/*************************/
+/* 36: Dhruva Galactic Centre Middle of Mula (Ernst Wilhelm) */
+{0, 0, FALSE, 0},	             // 36: Ernst Wilhelm
+/*************************/
+/* 37: Kali 3623 = 522 CE, Ujjain (75.7684565), based on Kali midnight and 
+      year length of Suryasiddhanta */
+{1911797.740782065, 0, TRUE, 0},     // 36: 0 ayanamsha in year 522
+/*************************/
+/* 38: Babylonian (Britton 2010) 
+      John P. Britton, "Studies in Babylonian lunar theory: part III. The
+      introduction of the uniform zodiac", in Arch. Hist. Exact. Sci.
+      (2010)64:617-663, p. 630. */
+{1721057.5, -3.2, TRUE, -1},         // 38: Babylonian (Britton 2010)
+/*************************/
+/* 39: Sunil Sheoran ("Vedic") 
+      S. Sheoran, "The Science of Time and Timeline of World History", 2017. */
+{0, 0, FALSE, 0},                    // 39: Sunil Sheoran ("Vedic") 
+/*************************/
+/* 40: Galactic Center at 0 Capricon (Cochrane) */
+{0, 0, FALSE, 0},                    // 40: Cochrane 
+/*************************/
+/* 41: "Galactic Equatorial" (N.A. Fiorenza) */
+{2451544.5, 25.0, TRUE, 0},          // 41: N.A. Fiorenza */
+/*************************/
+/* 42: Vettius Valens (Moon; derived from Holden 1995 p. 12 for epoch of Valens
+      1 Jan. 150 CE julian) */
+{1775845.5, -2.9422, TRUE, -1},      // 42: Vettius Valens
+/*************************/
+/* 43: Lahiri (1940), book "Panchanga darpan": 
+      22:26'45".50 + 50".25748T + 0".00011115T^2 */
+{J1900, 22.44597222, FALSE, SEMOD_PREC_NEWCOMB}, // 43: Lahiri (1940)
+/*************************/
+/* 44: Lahiri (VP285), mean sun at 360 in 285CE; epoch for mean sun at 0 acc.
+      to Simon 1994, corrected for Vondrak precession 
+      (Preface to Lahiri's "Indian Ephemeris" 1980) */
+{1825235.2458513028, 0.0, FALSE, 0}, // 44: Lahiri VP285 (1980)
+/*************************/
+/* 45: Krishnamurti from mean equinox 291, based on Newcomb precession,
+      according to D. Senthilathiban, "Study of KP Ayanamsa with Modern
+      Precession Theories" (2019), but using precession Vondrak 2011 and
+      correction base on Newcomb precession. */
+//{1827424.752255678, 0.0, FALSE, SEMOD_PREC_NEWCOMB}, // 45: Krishnamurti VP291
+{1827424.752255678, 0.0, FALSE, 0}, // 45: Krishnamurti VP291
+/*************************/
+/* 46: Lahiri original: Calendar Reform Committee 1956, 
+      before the correction by 0.658" in IAE 1985.
+      The subtracted value is nutation according to Woolard 1953.
+      However, nutation Woolard was used by IENA/IAE only from 1960 on,
+      so this value is not correct. In order to reproduce mean ayanamshas
+      of IENA >=1960, we could choose 23.25 - 0.00464207 + 0.07 / 3600.0
+      as initial value in 1956. However this will not help to reproduce 
+      true ayanamshas. A deviation of around 0.1" remains,
+      for unknown reasons. The difference between Lahiri (1) and
+      Lahiri ICRC (45) amounts to 1.1". */
+{2435553.5, 23.25 - 0.00464207, FALSE, SEMOD_PREC_NEWCOMB}, 
+/*************************/
+/*{2061539.789532065, 6.83333333, TRUE, -1}, *41: Manjula's Laghumanasa, 10 March 932, 12 PM LMT Ujjain (75.7684565 E), ayanamsha = 6:50' */
+/* */
+{J1900, 0, FALSE, -1},	                     /*46: - */
     };
 
 #define PLAN_DATA struct plan_data
diff --git a/swephexp.h b/swephexp.h
index 47fc8a5..5b07067 100644
--- a/swephexp.h
+++ b/swephexp.h
@@ -1,5 +1,4 @@
 /************************************************************
-  $Header: /home/dieter/sweph/RCS/swephexp.h,v 1.75 2009/04/08 07:19:08 dieter Exp $
   SWISSEPH: exported definitions and constants 
 
   This file represents the standard application interface (API)
@@ -125,6 +124,7 @@ extern "C" {
 
 #define SE_NPLANETS     23      
 
+#define SE_PLMOON_OFFSET   9000
 #define SE_AST_OFFSET   10000
 #define SE_VARUNA   (SE_AST_OFFSET + 20000)
 
@@ -206,12 +206,17 @@ extern "C" {
 #define SEFLG_TOPOCTR	(32*1024)    /* topocentric position */
 #define SEFLG_ORBEL_AA SEFLG_TOPOCTR /* used for Astronomical Almanac mode in 
                                       * calculation of Kepler elipses */
+#define SEFLG_TROPICAL	(0)          /* tropical position (default) */
 #define SEFLG_SIDEREAL	(64*1024)    /* sidereal position */
 #define SEFLG_ICRS	(128*1024)   /* ICRS (DE406 reference frame) */
 #define SEFLG_DPSIDEPS_1980	(256*1024) /* reproduce JPL Horizons 
                                       * 1962 - today to 0.002 arcsec. */
 #define SEFLG_JPLHOR	SEFLG_DPSIDEPS_1980
 #define SEFLG_JPLHOR_APPROX	(512*1024)   /* approximate JPL Horizons 1962 - today */
+#define SEFLG_CENTER_BODY	(1024*1024)  /* calculate position of center of body of 
+                                                planet, not barycenter of its system */
+#define SEFLG_TEST_PLMOON	(2*1024*1024 | SEFLG_J2000 | SEFLG_ICRS | SEFLG_HELCTR | SEFLG_TRUEPOS)  /* test raw data in files sepm9* */
+
 
 #define SE_SIDBITS		256
 /* for projection onto ecliptic of t0 */
@@ -220,6 +225,14 @@ extern "C" {
 #define SE_SIDBIT_SSY_PLANE     512
 /* with user-defined ayanamsha, t0 is UT */
 #define SE_SIDBIT_USER_UT       1024
+/* ayanamsha measured on ecliptic of date;
+ * see commentaries in sweph.c:swi_get_ayanamsa_ex(). */
+#define SE_SIDBIT_ECL_DATE      2048
+/* test feature: don't apply constant offset to ayanamsha 
+ * see commentary above sweph.c:get_aya_correction() */
+#define SE_SIDBIT_NO_PREC_OFFSET       4096
+/* test feature: calculate ayanamsha using its original precession model */
+#define SE_SIDBIT_PREC_ORIG     8192
 
 /* sidereal modes (ayanamsas) */
 #define SE_SIDM_FAGAN_BRADLEY    0
@@ -265,10 +278,14 @@ extern "C" {
 #define SE_SIDM_GALCENT_COCHRANE   	40
 #define SE_SIDM_GALEQU_FIORENZA 41
 #define SE_SIDM_VALENS_MOON     42
+#define SE_SIDM_LAHIRI_1940     43
+#define SE_SIDM_LAHIRI_VP285    44
+#define SE_SIDM_KRISHNAMURTI_VP291    45
+#define SE_SIDM_LAHIRI_ICRC     46
 //#define SE_SIDM_MANJULA         43
 #define SE_SIDM_USER            255 /* user-defined ayanamsha, t0 is TT */
 
-#define SE_NSIDM_PREDEF	        43
+#define SE_NSIDM_PREDEF	        47
 
 /* used for swe_nod_aps(): */
 #define SE_NODBIT_MEAN		1   /* mean nodes/apsides */
@@ -293,6 +310,7 @@ extern "C" {
 #define SE_ECL_ANNULAR		8
 #define SE_ECL_PARTIAL		16
 #define SE_ECL_ANNULAR_TOTAL	32
+#define SE_ECL_HYBRID   	32  // = annular-total
 #define SE_ECL_PENUMBRAL	64
 #define SE_ECL_ALLTYPES_SOLAR   (SE_ECL_CENTRAL|SE_ECL_NONCENTRAL|SE_ECL_TOTAL|SE_ECL_ANNULAR|SE_ECL_PARTIAL|SE_ECL_ANNULAR_TOTAL)
 #define SE_ECL_ALLTYPES_LUNAR   (SE_ECL_TOTAL|SE_ECL_PARTIAL|SE_ECL_PENUMBRAL)
@@ -493,7 +511,7 @@ extern "C" {
 #define NSE_MODELS              8
 
 /* precession models */
-#define SEMOD_NPREC		10
+#define SEMOD_NPREC		11
 #define SEMOD_PREC_IAU_1976      1
 #define SEMOD_PREC_LASKAR_1986   2
 #define SEMOD_PREC_WILL_EPS_LASK 3
@@ -504,6 +522,7 @@ extern "C" {
 #define SEMOD_PREC_IAU_2006      8
 #define SEMOD_PREC_VONDRAK_2011  9
 #define SEMOD_PREC_OWEN_1990     10
+#define SEMOD_PREC_NEWCOMB       11
 #define SEMOD_PREC_DEFAULT       SEMOD_PREC_VONDRAK_2011
 /* SE versions before 1.70 used IAU 1976 precession for 
  * a limited time range of 2 centuries in combination with 
@@ -512,12 +531,13 @@ extern "C" {
 #define SEMOD_PREC_DEFAULT_SHORT SEMOD_PREC_VONDRAK_2011
 
 /* nutation models */
-#define SEMOD_NNUT		4
+#define SEMOD_NNUT		5
 #define SEMOD_NUT_IAU_1980          1
 #define SEMOD_NUT_IAU_CORR_1987     2 /* Herring's (1987) corrections to IAU 1980 
 				    * nutation series. AA (1996) neglects them.*/
 #define SEMOD_NUT_IAU_2000A         3 /* very time consuming ! */
 #define SEMOD_NUT_IAU_2000B         4 /* fast, but precision of milli-arcsec */
+#define SEMOD_NUT_WOOLARD           5
 #define SEMOD_NUT_DEFAULT           SEMOD_NUT_IAU_2000B  /* fast, but precision of milli-arcsec */
 
 /* methods for sidereal time */
@@ -686,6 +706,8 @@ ext_def( int32 ) swe_calc(
 ext_def(int32) swe_calc_ut(double tjd_ut, int32 ipl, int32 iflag, 
 	double *xx, char *serr);
 
+ext_def(int32) swe_calc_pctr(double tjd, int32 ipl, int32 iplctr, int32 iflag, double *xxret, char *serr);
+
 /* fixed stars */
 ext_def( int32 ) swe_fixstar(
         char *star, double tjd, int32 iflag, 
@@ -789,10 +811,18 @@ ext_def( int ) swe_houses_ex(
         double tjd_ut, int32 iflag, double geolat, double geolon, int hsys, 
 	double *cusps, double *ascmc);
 
+ext_def( int ) swe_houses_ex2(
+        double tjd_ut, int32 iflag, double geolat, double geolon, int hsys, 
+	double *cusps, double *ascmc, double *cusp_speed, double *ascmc_speed, char *serr);
+
 ext_def( int ) swe_houses_armc(
         double armc, double geolat, double eps, int hsys, 
 	double *cusps, double *ascmc);
 
+ext_def( int ) swe_houses_armc_ex2(
+        double armc, double geolat, double eps, int hsys, 
+	double *cusps, double *ascmc, double *cusp_speed, double *ascmc_speed, char *serr);
+
 ext_def(double) swe_house_pos(
 	double armc, double geolat, double eps, int hsys, double *xpin, char *serr);
 
diff --git a/swephlib.cpp b/swephlib.cpp
index 029330f..d154126 100644
--- a/swephlib.cpp
+++ b/swephlib.cpp
@@ -1,5 +1,4 @@
 /* SWISSEPH
-   $Header: /home/dieter/sweph/RCS/swephlib.c,v 1.75 2009/11/27 11:00:57 dieter Exp $
 
    SWISSEPH modules that may be useful for other applications
    e.g. chopt.c, venus.c, swetest.c
@@ -927,6 +926,9 @@ double swi_epsiln(double J, int32 iflag)
     eps = (((1.813e-3*T-5.9e-4)*T-46.84024)*T+84381.406)*DEGTORAD/3600;
   } else if (prec_model_short == SEMOD_PREC_IAU_2006 && fabs(T) <= PREC_IAU_2006_CTIES) {
     eps =  (((((-4.34e-8 * T -5.76e-7) * T +2.0034e-3) * T -1.831e-4) * T -46.836769) * T + 84381.406) * DEGTORAD / 3600.0; 
+  } else if (prec_model == SEMOD_PREC_NEWCOMB) {
+    double Tn = (J - 2396758.0)/36525.0;
+    eps = (0.0017 * Tn * Tn * Tn - 0.0085 * Tn * Tn - 46.837 * Tn + 84451.68) * DEGTORAD / 3600.0; 
   } else if (prec_model == SEMOD_PREC_IAU_2006) {
     eps =  (((((-4.34e-8 * T -5.76e-7) * T +2.0034e-3) * T -1.831e-4) * T -46.836769) * T + 84381.406) * DEGTORAD / 3600.0; 
   } else if (prec_model == SEMOD_PREC_BRETAGNON_2003) {
@@ -1036,6 +1038,12 @@ static int precess_1(double *R, double J, int direction, int prec_method)
     Z =  (( 0.017998*T + 0.30188)*T + 2306.2181)*T*DEGTORAD/3600;
     z =  (( 0.018203*T + 1.09468)*T + 2306.2181)*T*DEGTORAD/3600;
     TH = ((-0.041833*T - 0.42665)*T + 2004.3109)*T*DEGTORAD/3600;
+    /*
+     * precession relative to ecliptic of start epoch is:
+     * pn = (5029.0966 + 2.22226*T-0.000042*T*T) * t + (1.11161-0.000127*T) * t * t - 0.000113*t*t*t;
+     * with: t = (tstart - tdate) / 36525.0
+     *       T = (tstart - J2000) / 36525.0
+     */
   } else if (prec_method == SEMOD_PREC_IAU_2000) {
     /* AA 2006 B28:*/
     Z =  (((((- 0.0000002*T - 0.0000327)*T + 0.0179663)*T + 0.3019015)*T + 2306.0809506)*T + 2.5976176)*DEGTORAD/3600;
@@ -1050,6 +1058,83 @@ static int precess_1(double *R, double J, int direction, int prec_method)
     Z =  ((((((-0.00000000013*T - 0.0000003040)*T - 0.000005708)*T + 0.01801752)*T + 0.3023262)*T + 2306.080472)*T + 2.72767)*DEGTORAD/3600;
     z =  ((((((-0.00000000005*T - 0.0000002486)*T - 0.000028276)*T + 0.01826676)*T + 1.0956768)*T + 2306.076070)*T - 2.72767)*DEGTORAD/3600;
     TH = ((((((0.000000000009*T + 0.00000000036)*T -0.0000001127)*T - 0.000007291)*T - 0.04182364)*T - 0.4266980)*T + 2004.190936)*T*DEGTORAD/3600;
+#if 0
+  } else if (prec_method == SEMOD_PREC_NEWCOMB) {
+    double t1 = (J2000 - 2415020.3135) / 36524.2199;
+    double T = (J - J2000) / 36524.2199;
+    double T2 = T * T; double T3 = T2 * T;
+    Z = (2304.250 + 1.396 * t1) * T + 0.302 * T2 + 0.0179 * T3;
+    z = (2304.250 + 1.396 * t1) * T + 1.093 * T2 + 0.0192 * T3;
+    TH =(2004.682 - 0.853 * t1) * T - 0.426 * T2 - 0.0416 * T3;
+    Z *= (DEGTORAD/3600.0);
+    z *= (DEGTORAD/3600.0);
+    TH *= (DEGTORAD/3600.0);
+#endif
+#if 0
+  // from Newcomb, "Compendium" (1906), pp. 245f., relative to 1850
+/* } else if (prec_method == SEMOD_PREC_NEWCOMB) {
+    double cties = 36524.2198782; // trop. centuries
+    double T = (J - B1850) / cties;
+    double T2 = T * T; double T3 = T2 * T;
+    double Z1 = 2303.56;
+    Z = 2303.56 * T + 0.3023 * T2 + 0.018 * T3;
+    z = 2303.55 * T + 1.094 * T2 + 0.018 * T3;
+    TH = 2005.11 * T - 0.43 * T2 - 0.041 * T3;
+    Z *= (DEGTORAD/3600.0);
+    z *= (DEGTORAD/3600.0);
+    TH *= (DEGTORAD/3600.0);
+*/
+#endif
+#if 0
+  // Newcomb from Expl. supp. 61 pg. 38 
+  // "Andoyar (Woolard and Clemence) expressions":
+  } else if (prec_method == SEMOD_PREC_NEWCOMB) {
+    double mills = 365242.198782; // trop. millennia
+    double t1 = (J2000 - B1850) / mills;
+    double t2 = (J - B1850) / mills;
+    double T = t2 - t1;
+    double T2 = T * T; double T3 = T2 * T;
+    double Z1 = 23035.545 + 139.720 * t1 + 0.060 * t1 * t1;
+    Z = Z1 * T + (30.240 - 0.270 * t1) * T2 + 17.995 * T3;
+    z = Z1 * T + (109.480 - 0.390 * t1) * T2 + 18.325 * T3;
+    TH = (20051.12 - 85.29 * t1 - 0.37 * t1 * t1) * T + (-42.65 - 0.37 * t1) * T2 - 41.80 * T3;
+    Z *= (DEGTORAD/3600.0);
+    z *= (DEGTORAD/3600.0);
+    TH *= (DEGTORAD/3600.0);
+#endif
+#if 1
+  // Newcomb according to Kinoshita 1975, very close to ExplSuppl/Andoyer;
+  // one additional digit.
+  } else if (prec_method == SEMOD_PREC_NEWCOMB) {
+    double mills = 365242.198782; // trop. millennia
+    double t1 = (J2000 - B1850) / mills;
+    double t2 = (J - B1850) / mills;
+    double T = t2 - t1;
+    double T2 = T * T; double T3 = T2 * T;
+    double Z1 = 23035.5548 + 139.720 * t1 + 0.069 * t1 * t1;
+    Z = Z1 * T + (30.242 - 0.269 * t1) * T2 + 17.996 * T3;
+    z = Z1 * T + (109.478 - 0.387 * t1) * T2 + 18.324 * T3;
+    TH = (20051.125 - 85.294 * t1 - 0.365 * t1 * t1) * T + (-42.647 - 0.365 * t1) * T2 - 41.802 * T3;
+    Z *= (DEGTORAD/3600.0);
+    z *= (DEGTORAD/3600.0);
+    TH *= (DEGTORAD/3600.0);
+#endif
+#if 0
+  // from Lieske, "Expressions for the Precession Quantities..." (1967), p. 20
+  } else if (prec_method == SEMOD_PREC_NEWCOMB) {
+    double cties = 36524.2198782; // trop. centuries
+    double t1 = (J2000 - J1900) / cties;
+    double t2 = (J - J1900) / cties;
+    double T = t2 - t1;
+    double T2 = T * T; double T3 = T2 * T;
+    double Z1 = 2304.253 + 1.3972 * t1 + 0.000125 * t1 * t1;
+    Z = Z1 * T + (0.3023 - 0.000211 * t1) * T2 + 0.0180 * T3;
+    z = Z1 * T + (1.0949 - 0.00046 * t1) * T2 + 0.0183 * T3;
+    TH = (2004.684 - 0.8532 * t1 - 0.000317 * t1 * t1) * T + (-0.4266 - 0.00032 * t1) * T2 - 0.0418 * T3;
+    Z *= (DEGTORAD/3600.0);
+    z *= (DEGTORAD/3600.0);
+    TH *= (DEGTORAD/3600.0);
+#endif
   } else {
     return 0;
   }
@@ -1331,6 +1416,8 @@ int swi_precess(double *R, double J, int32 iflag, int direction )
     return precess_1(R, J, direction, SEMOD_PREC_IAU_2006);
   } else if (prec_model == SEMOD_PREC_BRETAGNON_2003) {
     return precess_1(R, J, direction, SEMOD_PREC_BRETAGNON_2003);
+  } else if (prec_model == SEMOD_PREC_NEWCOMB) {
+    return precess_1(R, J, direction, SEMOD_PREC_NEWCOMB);
   } else if (prec_model == SEMOD_PREC_LASKAR_1986) {
     return precess_2(R, J, iflag, direction, SEMOD_PREC_LASKAR_1986);
   } else if (prec_model == SEMOD_PREC_SIMON_1994) {
@@ -1512,6 +1599,7 @@ static const short nt[] = {
  2, 0, 0, 2, 0,     1,  0,    0,  0,
  0, 0, 2, 4, 2,    -1,  0,    0,  0,
  0, 1, 0, 1, 0,     1,  0,    0,  0,
+#if 1
 /*#if NUT_CORR_1987  switch is handled in function calc_nutation_iau1980() */
 /* corrections to IAU 1980 nutation series by Herring 1987
  *             in 0.00001" !!!
@@ -1525,6 +1613,7 @@ static const short nt[] = {
  102, 1, 0, 0, 0,  61, 0, -24, 0,
  102, 0, 2,-2, 2,-118, 0, -47, 0,
 /*#endif*/
+#endif
  ENDMARK,
 };
 
@@ -1859,6 +1948,64 @@ static int calc_nutation_iau2000ab(double J, double *nutlo)
   return 0;
 }
 
+/* an incomplete implementation of nutation Woolard 1953 */
+static int calc_nutation_woolard(double J, double *nutlo) 
+{
+  double deps, dpsi;
+  double ls, ld;	/* sun's mean longitude, moon's mean longitude */
+  double ms, md;	/* sun's mean anomaly, moon's mean anomaly */
+  double nm;	/* longitude of moon's ascending node */
+  double t, t2;	/* number of Julian centuries of 36525 days since
+		   * Jan 0.5 1900.
+		   */
+  double tls, tnm, tld;	/* twice above */
+  double a, b;	/* temps */
+  double mjd = J - J1900;
+  t = mjd/36525.;
+  t2 = t*t;
+  a = 100.0021358*t;
+  b = 360.*(a-(long)a);
+  ls = 279.697+.000303*t2+b;
+  a = 1336.855231*t;
+  b = 360.*(a-(long)a);
+  ld = 270.434-.001133*t2+b;
+  a = 99.99736056000026*t;
+  b = 360.*(a-(long)a);
+  ms = 358.476-.00015*t2+b;
+  a = 13255523.59*t;
+  b = 360.*(a-(long)a);
+  md = 296.105+.009192*t2+b;
+  a = 5.372616667*t;
+  b = 360.*(a-(long)a);
+  nm = 259.183+.002078*t2-b;
+  /* convert to radian forms for use with trig functions.
+   */
+  tls = 2*ls * DEGTORAD;
+  nm = nm * DEGTORAD;
+  tnm = 2*nm;
+  ms = ms * DEGTORAD;
+  tld = 2*ld * DEGTORAD;
+  md = md * DEGTORAD;
+  /* find delta psi and eps, in arcseconds.
+   */
+  dpsi = (-17.2327-.01737*t)*sin(nm)+(-1.2729-.00013*t)*sin(tls)
+	     +.2088*sin(tnm)-.2037*sin(tld)+(.1261-.00031*t)*sin(ms)
+	     +.0675*sin(md)-(.0497-.00012*t)*sin(tls+ms)
+	     -.0342*sin(tld-nm)-.0261*sin(tld+md)+.0214*sin(tls-ms)
+	     -.0149*sin(tls-tld+md)+.0124*sin(tls-nm)+.0114*sin(tld-md);
+  deps = (9.21+.00091*t)*cos(nm)+(.5522-.00029*t)*cos(tls)
+	     -.0904*cos(tnm)+.0884*cos(tld)+.0216*cos(tls+ms)
+	     +.0183*cos(tld-nm)+.0113*cos(tld+md)-.0093*cos(tls-ms)
+	     -.0066*cos(tls-nm);
+  /* convert to radians.
+   */
+  dpsi = dpsi/3600.0 * DEGTORAD;
+  deps = deps/3600.0 * DEGTORAD;
+  nutlo[1] = deps;
+  nutlo[0] = dpsi;
+  return OK;
+}
+
 static double bessel(double *v, int n, double t)
 {
   int i, iy, k;
@@ -1965,6 +2112,8 @@ static int calc_nutation(double J, int32 iflag, double *nutlo)
       nutlo[0] += -41.7750 / 3600.0 / 1000.0 * DEGTORAD;
       nutlo[1] += -6.8192 / 3600.0 / 1000.0 * DEGTORAD;
     }
+  } else if (nut_model == SEMOD_NUT_WOOLARD) {
+    calc_nutation_woolard(J, nutlo);
   }
   return OK;
 }
@@ -2280,7 +2429,7 @@ void swi_icrs2fk5(double *x, int32 iflag, AS_BOOL backward)
  * the macros TABEND and TABSIZ !
  */
 #define TABSTART 	1620
-#define TABEND 		2027
+#define TABEND 		2028
 #define TABSIZ 		(TABEND-TABSTART+1) 
 /* we make the table greater for additional values read from external file */
 #define TABSIZ_SPACE 	(TABSIZ+100)
@@ -2343,9 +2492,11 @@ static TLS double dt[TABSIZ_SPACE] = {
 63.8285, 64.0908, 64.2998, 64.4734, 64.5736, 64.6876, 64.8452, 65.1464, 65.4574, 65.7768,
 /* 2010.0 - 2018.0 */
 66.0699, 66.3246, 66.6030, 66.9069, 67.2810, 67.6439, 68.1024, 68.5927, 68.9676, 69.2202,
+/* 2020.0 -        */
+69.3612,
 /* Extrapolated values: 
- * 2020 - 2027 */
-69.4456, 70.00,   70.50,   71.00,   71.50,   72.00,   72.50,   73.00,
+ * 2021 - 2028 */
+         69.4271, 70.00,   70.50,   71.00,   71.50,   72.00,   72.50,   73.00,
 };
 
 #define TAB2_SIZ	27
@@ -2404,7 +2555,7 @@ static int32 calc_deltat(double tjd, int32 iflag, double *deltat, char *serr)
   int32 retc;
   int deltat_model = swed.astro_models[SE_MODEL_DELTAT];
   double tid_acc;
-  int32 denumret;
+  int32 denum, denumret;
   int32 epheflag, otherflag;
 //fprintf(stderr, "dmod=%f, %.f\n", (double) deltat_model, (double) SEMOD_DELTAT_DEFAULT);
   if (deltat_model == 0) deltat_model = SEMOD_DELTAT_DEFAULT;
@@ -2415,12 +2566,14 @@ static int32 calc_deltat(double tjd, int32 iflag, double *deltat, char *serr)
     retc = swi_get_tid_acc(tjd, 0, 9999, &denumret, &tid_acc, serr); /* for default tid_acc */
   /* otherwise we use tid_acc consistent with epheflag */
   } else {
+    denum = swed.jpldenum;
+    if (epheflag & SEFLG_SWIEPH) denum = swed.fidat[SEI_FILE_MOON].sweph_denum;
     if (swi_init_swed_if_start() == 1 && !(epheflag & SEFLG_MOSEPH)) {
       if (serr != NULL) 
 	strcpy(serr, "Please call swe_set_ephe_path() or swe_set_jplfile() before calling swe_deltat_ex()");
-      retc = swi_set_tid_acc(tjd, epheflag, 0, NULL);  /* _set_ saves tid_acc in swed */
+      retc = swi_set_tid_acc(tjd, epheflag, denum, NULL);  /* _set_ saves tid_acc in swed */
     } else {
-      retc = swi_set_tid_acc(tjd, epheflag, 0, serr);  /* _set_ saves tid_acc in swed */
+      retc = swi_set_tid_acc(tjd, epheflag, denum, serr);  /* _set_ saves tid_acc in swed */
     }
     tid_acc = swed.tid_acc;
   }
@@ -3049,7 +3202,6 @@ int32 swi_guess_ephe_flag()
 
 int32 swi_get_tid_acc(double tjd_ut, int32 iflag, int32 denum, int32 *denumret, double *tid_acc, char *serr)
 {
-  double xx[6], tjd_et;
   iflag &= SEFLG_EPHMASK;
   if (swed.is_tid_acc_manual) {
     *tid_acc = swed.tid_acc;
@@ -3064,33 +3216,12 @@ int32 swi_get_tid_acc(double tjd_ut, int32 iflag, int32 denum, int32 *denumret,
     if (iflag & SEFLG_JPLEPH) {
       if (swed.jpl_file_is_open) {
 	denum = swed.jpldenum;
-      } else {
-	tjd_et = tjd_ut; /* + swe_deltat_ex(tjd_ut, 0, NULL); we do not add 
-	                    delta t, because it would result in a recursive 
-			    call of swi_set_tid_acc() */
-	iflag = SEFLG_JPLEPH|SEFLG_J2000|SEFLG_TRUEPOS|SEFLG_ICRS|SEFLG_BARYCTR;
-	iflag = swe_calc(tjd_et, SE_JUPITER, iflag, xx, serr);
-	if (swed.jpl_file_is_open && (iflag & SEFLG_JPLEPH)) {
-	  denum = swed.jpldenum;
-	}
       }
     }
     /* SEFLG_SWIEPH wanted or SEFLG_JPLEPH failed: */
-    if (denum == 0) {
-      tjd_et = tjd_ut; /* + swe_deltat_ex(tjd_ut, 0, NULL); we do not add 
-                          delta t, because it would result in a recursive 
-			  call of swi_set_tid_acc() */
-      if (swed.fidat[SEI_FILE_MOON].fptr == NULL ||
-          tjd_et < swed.fidat[SEI_FILE_MOON].tfstart + 1 ||
-	  tjd_et > swed.fidat[SEI_FILE_MOON].tfend - 1) {
-	iflag = SEFLG_SWIEPH|SEFLG_J2000|SEFLG_TRUEPOS|SEFLG_ICRS;
-	iflag = swe_calc(tjd_et, SE_MOON, iflag, xx, serr);
-      }
+    if (iflag & SEFLG_SWIEPH) {
       if (swed.fidat[SEI_FILE_MOON].fptr != NULL) {
 	denum = swed.fidat[SEI_FILE_MOON].sweph_denum;
-      /* Moon ephemeris file is not available, default to Moshier ephemeris */
-      } else {
-	denum = 404; /* DE number of Moshier ephemeris */
       }
     }
   }
@@ -3511,12 +3642,16 @@ void swi_gen_filename(double tjd, int ipli, char *fname)
     case SEI_PHOLUS:
       strcpy(fname, "seas");
       break;
-    default: 	/* asteroid */
-      sform = "ast%d%sse%05d.%s";
-      if (ipli - SE_AST_OFFSET > 99999) 
-	sform = "ast%d%ss%06d.%s";
-      sprintf(fname, sform, (ipli - SE_AST_OFFSET) / 1000, DIR_GLUE, ipli - SE_AST_OFFSET, SE_FILE_SUFFIX);
-      return;	/* asteroids: only one file 3000 bc - 3000 ad */
+    default: 	/* asteroid or planetary moon */
+      if (ipli > SE_PLMOON_OFFSET && ipli < SE_AST_OFFSET) {
+        sprintf(fname, "sat%ssepm%d.%s", DIR_GLUE, ipli, SE_FILE_SUFFIX);
+      } else {
+	sform = "ast%d%sse%05d.%s";
+	if (ipli - SE_AST_OFFSET > 99999) 
+	  sform = "ast%d%ss%06d.%s";
+	sprintf(fname, sform, (ipli - SE_AST_OFFSET) / 1000, DIR_GLUE, ipli - SE_AST_OFFSET, SE_FILE_SUFFIX);
+      }
+      return;	/* asteroids or planetary moons: only one file 3000 bc - 3000 ad */
       /* break; */
   }
   /* century of tjd */
@@ -4021,11 +4156,14 @@ P6 SEMOD_PREC_IAU_2000
 P7 SEMOD_PREC_BRETAGNON_2003
 P8 SEMOD_PREC_IAU_2006
 P9 SEMOD_PREC_VONDRAK_2011
+P10 SEMOD_PREC_OWEN_1990
+P11 SEMOD_PREC_NEWCOMB
 
 N1 SEMOD_NUT_IAU_1980
 N2 SEMOD_NUT_IAU_CORR_1987
 N3 SEMOD_NUT_IAU_2000A
 N4 SEMOD_NUT_IAU_2000B
+N5 SEMOD_NUT_WOOLARD
 
 B1 SEMOD_BIAS_NONE
 B2 SEMOD_BIAS_IAU2000
@@ -4139,6 +4277,9 @@ static void get_precession_model(int precmod, int32 iflag, char *s)
     case SEMOD_PREC_OWEN_1990:
       strcpy(s, "Owen 1990");
       break;
+    case SEMOD_PREC_NEWCOMB:
+      strcpy(s, "Newcomb 1895");
+      break;
     case SEMOD_PREC_VONDRAK_2011:
       strcpy(s, "Vondrak 2011");
       break;
@@ -4183,6 +4324,9 @@ static void get_nutation_model(int nutmod, int32 iflag, char *s)
   if (nutmod == 0)
     nutmod = SEMOD_NUT_DEFAULT;
   switch(nutmod) {
+    case SEMOD_NUT_WOOLARD:
+    strcpy(s, "Woolard 1953");
+    break;
     case SEMOD_NUT_IAU_1980:
     strcpy(s, "IAU 1980 (Wahr)");
     break;
diff --git a/swephlib.h b/swephlib.h
index ed628f6..97067f3 100644
--- a/swephlib.h
+++ b/swephlib.h
@@ -1,5 +1,4 @@
 /************************************************************
-   $Header: /home/dieter/sweph/RCS/swephlib.h,v 1.74 2008/06/16 10:07:20 dieter Exp $
 
   Authors: Dieter Koch and Alois Treindl, Astrodienst Zurich
 
@@ -116,7 +115,7 @@ extern void swi_icrs2fk5(double *x, int32 iflag, AS_BOOL backward);
 extern int swi_precess(double *R, double J, int32 iflag, int direction );
 extern void swi_precess_speed(double *xx, double t, int32 iflag, int direction);
 
-extern int32 swi_guess_ephe_flag();
+extern int32 swi_guess_ephe_flag(void);
 
 /* from sweph.c, light deflection, aberration, etc. */
 extern void swi_deflect_light(double *xx, double dt, int32 iflag);
@@ -126,7 +125,7 @@ extern int swi_trop_ra2sid_lon(double *xin, double *xout, double *xoutr, int32 i
 extern int swi_trop_ra2sid_lon_sosy(double *xin, double *xout, int32 iflag);
 extern int swi_get_observer(double tjd, int32 iflag, 
 	AS_BOOL do_save, double *xobs, char *serr);
-extern void swi_force_app_pos_etc();
+extern void swi_force_app_pos_etc(void);
 
 /* obliquity of ecliptic */
 extern void swi_check_ecliptic(double tjd, int32 iflag);
diff --git a/timezone.as b/timezone.as
index 1e9ca52..b2fe5e1 100644
--- a/timezone.as
+++ b/timezone.as
@@ -1,6 +1,6 @@
-@AZ700  ; Astrolog 7.00 time zone changes.
+@AZ710  ; Astrolog 7.10 time zone changes.
 
-; Time zone changes composed using data from TZ database: https://data.iana.org/time-zones/tz-link.html
+; Time zone changes composed using data from TZ database version "2020a": https://data.iana.org/time-zones/tz-link.html
 ; From TZ database file LICENSE:
 ;   all files in the tz code and data are in the public domain.
 ; (Astrolog's processing and use of this data is still under Astrolog's GPL license.)
@@ -14,7 +14,7 @@
 ; Column 5: Hour a particular time zone change takes place (default = local time, s = standard time, u = UTC)
 ; Column 6: Hour offset of time zone change (0 = Daylight off, 1 = Daylight on)
 
--YY1 139 2136
+-YY1 140 2128
 Albania	25
 1940	only	Jun	16	0	1
 1942	only	Nov	2	3	0
@@ -163,12 +163,13 @@ Aus	7
 1942	only	Sep	27	2	1
 1943	1944	Mar	lastSun	2	0
 1943	only	Oct	3	2	1
-Austria	8
+Austria	9
 1920	only	Apr	5	2s	1
 1920	only	Sep	13	2s	0
 1946	only	Apr	14	2s	1
-1946	1948	Oct	Sun>=1	2s	0
+1946	only	Oct	7	2s	0
 1947	only	Apr	6	2s	1
+1947	1948	Oct	Sun>=1	2s	0
 1948	only	Apr	18	2s	1
 1980	only	Apr	6	0	1
 1980	only	Sep	28	0	0
@@ -506,7 +507,7 @@ DR	6
 Ecuador	2
 1992	only	Nov	28	0	1
 1993	only	Feb	5	0	0
-Edm	17
+Edm	13
 1918	1919	Apr	Sun>=8	2	1
 1918	only	Oct	27	2	0
 1919	only	May	27	2	0
@@ -518,10 +519,6 @@ Edm	17
 1945	only	Sep	lastSun	2	0
 1947	only	Apr	lastSun	2	1
 1947	only	Sep	lastSun	2	0
-1967	only	Apr	lastSun	2	1
-1967	only	Oct	lastSun	2	0
-1969	only	Apr	lastSun	2	1
-1969	only	Oct	lastSun	2	0
 1972	1986	Apr	lastSun	2	1
 1972	2006	Oct	lastSun	2	0
 E-Eur	6
@@ -607,7 +604,7 @@ Falk	12
 1986	2000	Apr	Sun>=16	0	0
 2001	2010	Apr	Sun>=15	2	0
 2001	2010	Sep	Sun>=1	2	1
-Fiji	10
+Fiji	11
 1998	1999	Nov	Sun>=1	2	1
 1999	2000	Feb	lastSun	3	0
 2009	only	Nov	29	2	1
@@ -616,8 +613,9 @@ Fiji	10
 2011	only	Mar	Sun>=1	3	0
 2012	2013	Jan	Sun>=18	3	0
 2014	only	Jan	Sun>=18	2	0
-2014	max	Nov	Sun>=1	2	1
-2015	max	Jan	Sun>=13	3	0
+2014	2018	Nov	Sun>=1	2	1
+2015	max	Jan	Sun>=12	3	0
+2019	max	Nov	Sun>=8	2	1
 Finland	4
 1942	only	Apr	2	24	1
 1942	only	Oct	4	1	0
@@ -1161,14 +1159,16 @@ Libya	17
 1997	only	Oct	4	0	0
 2013	only	Mar	lastFri	1	1
 2013	only	Oct	lastFri	2	0
-Louisville	7
+Louisville	9
 1921	only	May	1	2	1
 1921	only	Sep	1	2	0
-1941	1961	Apr	lastSun	2	1
+1941	only	Apr	lastSun	2	1
 1941	only	Sep	lastSun	2	0
+1946	only	Apr	lastSun	0:01	1
 1946	only	Jun	2	2	0
+1950	1961	Apr	lastSun	2	1
 1950	1955	Sep	lastSun	2	0
-1956	1960	Oct	lastSun	2	0
+1956	1961	Oct	lastSun	2	0
 Lux	23
 1916	only	May	14	23	1
 1916	only	Oct	1	1	0
@@ -1331,7 +1331,7 @@ Morocco	183
 2019	only	May	5	3	-1
 2019	only	Jun	9	2	0
 2020	only	Apr	19	3	-1
-2020	only	May	24	2	0
+2020	only	May	31	2	0
 2021	only	Apr	11	3	-1
 2021	only	May	16	2	0
 2022	only	Mar	27	3	-1
@@ -1347,7 +1347,7 @@ Morocco	183
 2027	only	Feb	7	3	-1
 2027	only	Mar	14	2	0
 2028	only	Jan	23	3	-1
-2028	only	Feb	27	2	0
+2028	only	Mar	5	2	0
 2029	only	Jan	14	3	-1
 2029	only	Feb	18	2	0
 2029	only	Dec	30	3	-1
@@ -1363,7 +1363,7 @@ Morocco	183
 2034	only	Nov	5	3	-1
 2034	only	Dec	17	2	0
 2035	only	Oct	28	3	-1
-2035	only	Dec	2	2	0
+2035	only	Dec	9	2	0
 2036	only	Oct	19	3	-1
 2036	only	Nov	23	2	0
 2037	only	Oct	4	3	-1
@@ -1379,7 +1379,7 @@ Morocco	183
 2042	only	Aug	10	3	-1
 2042	only	Sep	21	2	0
 2043	only	Aug	2	3	-1
-2043	only	Sep	6	2	0
+2043	only	Sep	13	2	0
 2044	only	Jul	24	3	-1
 2044	only	Aug	28	2	0
 2045	only	Jul	9	3	-1
@@ -1395,7 +1395,7 @@ Morocco	183
 2050	only	May	15	3	-1
 2050	only	Jun	26	2	0
 2051	only	May	7	3	-1
-2051	only	Jun	11	2	0
+2051	only	Jun	18	2	0
 2052	only	Apr	28	3	-1
 2052	only	Jun	2	2	0
 2053	only	Apr	13	3	-1
@@ -1411,7 +1411,7 @@ Morocco	183
 2058	only	Feb	17	3	-1
 2058	only	Mar	31	2	0
 2059	only	Feb	9	3	-1
-2059	only	Mar	16	2	0
+2059	only	Mar	23	2	0
 2060	only	Feb	1	3	-1
 2060	only	Mar	7	2	0
 2061	only	Jan	16	3	-1
@@ -1421,13 +1421,13 @@ Morocco	183
 2062	only	Dec	31	3	-1
 2063	only	Feb	4	2	0
 2063	only	Dec	16	3	-1
-2064	only	Jan	20	2	0
+2064	only	Jan	27	2	0
 2064	only	Dec	7	3	-1
 2065	only	Jan	11	2	0
 2065	only	Nov	22	3	-1
 2066	only	Jan	3	2	0
 2066	only	Nov	14	3	-1
-2066	only	Dec	19	2	0
+2066	only	Dec	26	2	0
 2067	only	Nov	6	3	-1
 2067	only	Dec	11	2	0
 2068	only	Oct	21	3	-1
@@ -1437,13 +1437,13 @@ Morocco	183
 2070	only	Oct	5	3	-1
 2070	only	Nov	9	2	0
 2071	only	Sep	20	3	-1
-2071	only	Oct	25	2	0
+2071	only	Nov	1	2	0
 2072	only	Sep	11	3	-1
 2072	only	Oct	16	2	0
 2073	only	Aug	27	3	-1
 2073	only	Oct	8	2	0
 2074	only	Aug	19	3	-1
-2074	only	Sep	23	2	0
+2074	only	Sep	30	2	0
 2075	only	Aug	11	3	-1
 2075	only	Sep	15	2	0
 2076	only	Jul	26	3	-1
@@ -1453,7 +1453,7 @@ Morocco	183
 2078	only	Jul	10	3	-1
 2078	only	Aug	14	2	0
 2079	only	Jun	25	3	-1
-2079	only	Jul	30	2	0
+2079	only	Aug	6	2	0
 2080	only	Jun	16	3	-1
 2080	only	Jul	21	2	0
 2081	only	Jun	1	3	-1
@@ -1469,7 +1469,7 @@ Morocco	183
 2086	only	Apr	14	3	-1
 2086	only	May	19	2	0
 2087	only	Mar	30	3	-1
-2087	only	May	4	2	0
+2087	only	May	11	2	0
 Namibia	3
 1994	only	Mar	21	0	-1
 1994	2017	Sep	Sun>=1	2	0
@@ -1608,16 +1608,11 @@ Para	22
 2010	2012	Apr	Sun>=8	0	0
 2010	max	Oct	Sun>=1	0	1
 2013	max	Mar	Sun>=22	0	0
-Perry	9
-1946	only	Apr	lastSun	2	1
-1946	only	Sep	lastSun	2	0
-1953	1954	Apr	lastSun	2	1
-1953	1959	Sep	lastSun	2	0
+Perry	4
 1955	only	May	1	0	1
+1955	1960	Sep	lastSun	2	0
 1956	1963	Apr	lastSun	2	1
-1960	only	Oct	lastSun	2	0
-1961	only	Sep	lastSun	2	0
-1962	1963	Oct	lastSun	2	0
+1961	1963	Oct	lastSun	2	0
 Peru	10
 1938	only	Jan	1	0	1
 1938	only	Apr	1	0	0
@@ -1797,7 +1792,9 @@ Salv	2
 SanLuis	2
 2007	2008	Oct	Sun>=8	0	1
 2008	2009	Mar	Sun>=8	0	0
-Shang	12
+Shang	14
+1919	only	Apr	12	24	1
+1919	only	Sep	30	24	0
 1940	only	Jun	1	0	1
 1940	only	Oct	12	24	0
 1941	only	Mar	15	0	1
@@ -1810,6 +1807,11 @@ Shang	12
 1947	only	Oct	31	24	0
 1948	1949	May	1	0	1
 1948	1949	Sep	30	24	0
+SL	4
+1935	1942	Jun	1	0	0:40
+1935	1942	Oct	1	0	0
+1957	1962	Jun	1	0	1
+1957	1962	Sep	1	0	0
 SovietZone	3
 1945	only	May	24	2	2
 1945	only	Sep	24	3	1
@@ -2019,7 +2021,7 @@ Tunisia	25
 2005	only	Sep	30	1s	0
 2006	2008	Mar	lastSun	2s	1
 2006	2008	Oct	lastSun	2s	0
-Turkey	54
+Turkey	45
 1916	only	May	1	0	1
 1916	only	Oct	1	0	0
 1920	only	Mar	28	0	1
@@ -2031,44 +2033,35 @@ Turkey	54
 1924	only	May	13	0	1
 1924	1925	Oct	1	0	0
 1925	only	May	1	0	1
-1940	only	Jun	30	0	1
-1940	only	Oct	5	0	0
+1940	only	Jul	1	0	1
+1940	only	Oct	6	0	0
 1940	only	Dec	1	0	1
 1941	only	Sep	21	0	0
 1942	only	Apr	1	0	1
-1942	only	Nov	1	0	0
-1945	only	Apr	2	0	1
 1945	only	Oct	8	0	0
 1946	only	Jun	1	0	1
 1946	only	Oct	1	0	0
 1947	1948	Apr	Sun>=16	0	1
-1947	1950	Oct	Sun>=2	0	0
+1947	1951	Oct	Sun>=2	0	0
 1949	only	Apr	10	0	1
-1950	only	Apr	19	0	1
+1950	only	Apr	16	0	1
 1951	only	Apr	22	0	1
-1951	only	Oct	8	0	0
 1962	only	Jul	15	0	1
-1962	only	Oct	8	0	0
+1963	only	Oct	30	0	0
 1964	only	May	15	0	1
 1964	only	Oct	1	0	0
-1970	1972	May	Sun>=2	0	1
-1970	1972	Oct	Sun>=2	0	0
 1973	only	Jun	3	1	1
-1973	only	Nov	4	3	0
+1973	1976	Oct	Sun>=31	2	0
 1974	only	Mar	31	2	1
-1974	only	Nov	3	5	0
-1975	only	Mar	30	0	1
-1975	1976	Oct	lastSun	0	0
-1976	only	Jun	1	0	1
-1977	1978	Apr	Sun>=1	0	1
-1977	only	Oct	16	0	0
-1979	1980	Apr	Sun>=1	3	1
-1979	1982	Oct	Mon>=11	0	0
-1981	1982	Mar	lastSun	3	1
-1983	only	Jul	31	0	1
-1983	only	Oct	2	0	0
-1985	only	Apr	20	0	1
-1985	only	Sep	28	0	0
+1975	only	Mar	22	2	1
+1976	only	Mar	21	2	1
+1977	1978	Apr	Sun>=1	2	1
+1977	1978	Oct	Sun>=15	2	0
+1978	only	Jun	29	0	0
+1983	only	Jul	31	2	1
+1983	only	Oct	2	2	0
+1985	only	Apr	20	1s	1
+1985	only	Sep	28	1s	0
 1986	1993	Mar	lastSun	1s	1
 1986	1995	Sep	lastSun	1s	0
 1994	only	Mar	20	1s	1
@@ -2144,7 +2137,7 @@ Vanc	9
 1945	only	Aug	14	23u	1
 1945	only	Sep	30	2	0
 1946	1986	Apr	lastSun	2	1
-1946	only	Oct	13	2	0
+1946	only	Sep	29	2	0
 1947	1961	Sep	lastSun	2	0
 1962	2006	Oct	lastSun	2	0
 Vanuatu	6
@@ -2299,13 +2292,17 @@ Zion	87
 ; Column 5: Day this time zone offset changes (absent = 1st of month)
 ; Column 6: Hour this time zone offset changes (absent = 0:00, default = local time, s = standard time, u = UTC)
 
--YY2 348 2049
+-YY2 414 2272
 Africa/Abidjan	2
 0:16:08	-	1912
 0	-
 Africa/Accra	2
 0:00:52	-	1918
 0	Ghana
+Africa/Addis_Ababa	3
+-2:34:48	-	1870
+-2:35:20	-	1936	May	5
+-3	-
 Africa/Algiers	10
 -0:12:12	-	1891	Mar	15	0:01
 -0:09:21	-	1911	Mar	11
@@ -2317,10 +2314,37 @@ Africa/Algiers	10
 -1	Algeria	1979	Oct	26
 0	Algeria	1981	May
 -1	-
+Africa/Asmara	4
+-2:35:32	-	1870
+-2:35:32	-	1890
+-2:35:20	-	1936	May	5
+-3	-
+Africa/Bamako	4
+0:32	-	1912
+0	-	1934	Feb	26
+1	-	1960	Jun	20
+0	-
+Africa/Bangui	2
+-1:14:20	-	1912
+-1	-
+Africa/Banjul	4
+1:06:36	-	1912
+1:06:36	-	1935
+1	-	1964
+0	-
 Africa/Bissau	3
 1:02:20	-	1912	Jan	1	1u
 1	-	1975
 0	-
+Africa/Blantyre	2
+-2:20	-	1903	Mar
+-2	-
+Africa/Brazzaville	2
+-1:01:08	-	1912
+-1	-
+Africa/Bujumbura	2
+-1:57:28	-	1890
+-2	-
 Africa/Cairo	2
 -2:05:09	-	1900	Oct
 -2	Egypt
@@ -2340,11 +2364,45 @@ Africa/Ceuta	9
 0	SpainAfrica	1984	Mar	16
 -1	-	1986
 -1	EU
+Africa/Conakry	4
+0:54:52	-	1912
+0	-	1934	Feb	26
+1	-	1960
+0	-
+Africa/Dakar	3
+1:09:44	-	1912
+1	-	1941	Jun
+0	-
+Africa/Dar_es_Salaam	4
+-2:37:08	-	1931
+-3	-	1948
+-2:45	-	1961
+-3	-
+Africa/Djibouti	2
+-2:52:36	-	1911	Jul
+-3	-
+Africa/Douala	2
+-0:38:48	-	1912
+-1	-
 Africa/El_Aaiun	4
 0:52:48	-	1934
 1	-	1976	Apr	14
 0	Morocco	2018	Oct	28	3
 -1	Morocco
+Africa/Freetown	4
+0:53	-	1882
+0:53	-	1913	Jun
+1	SL	1957
+0	SL
+Africa/Gaborone	5
+-1:43:40	-	1885
+-1:30	-	1903	Mar
+-2	-	1943	Sep	19	2
+-2	1	1944	Mar	19	2
+-2	-
+Africa/Harare	2
+-2:04:12	-	1903	Mar
+-2	-
 Africa/Johannesburg	3
 -1:52	-	1892	Feb	8
 -1:30	-	1903	Mar
@@ -2353,17 +2411,62 @@ Africa/Juba	3
 -2:06:28	-	1931
 -2	Sudan	2000	Jan	15	12
 -3	-
+Africa/Kampala	5
+-2:09:40	-	1928	Jul
+-3	-	1930
+-2:30	-	1948
+-2:45	-	1957
+-3	-
 Africa/Khartoum	4
 -2:10:08	-	1931
 -2	Sudan	2000	Jan	15	12
 -3	-	2017	Nov
 -2	-
+Africa/Kigali	2
+-2:00:16	-	1935	Jun
+-2	-
+Africa/Kinshasa	2
+-1:01:12	-	1897	Nov	9
+-1	-
 Africa/Lagos	2
 -0:13:36	-	1919	Sep
 -1	-
+Africa/Libreville	2
+-0:37:48	-	1912
+-1	-
+Africa/Lome	2
+-0:04:52	-	1893
+0	-
+Africa/Luanda	3
+-0:52:56	-	1892
+-0:52:04	-	1911	Dec	31	23u
+-1	-
+Africa/Lubumbashi	2
+-1:49:52	-	1897	Nov	9
+-2	-
+Africa/Lusaka	2
+-1:53:08	-	1903	Mar
+-2	-
+Africa/Malabo	3
+-0:35:08	-	1912
+0	-	1963	Dec	15
+-1	-
 Africa/Maputo	2
 -2:10:20	-	1903	Mar
 -2	-
+Africa/Maseru	4
+-1:50	-	1903	Mar
+-2	-	1943	Sep	19	2
+-2	1	1944	Mar	19	2
+-2	-
+Africa/Mbabane	2
+-2:04:24	-	1903	Mar
+-2	-
+Africa/Mogadishu	4
+-3:01:28	-	1893	Nov
+-3	-	1931
+-2:30	-	1957
+-3	-
 Africa/Monrovia	4
 0:43:08	-	1882
 0:43:08	-	1919	Mar
@@ -2380,6 +2483,23 @@ Africa/Ndjamena	4
 -1	-	1979	Oct	14
 -1	1	1980	Mar	8
 -1	-
+Africa/Niamey	4
+-0:08:28	-	1912
+1	-	1934	Feb	26
+0	-	1960
+-1	-
+Africa/Nouakchott	4
+1:03:48	-	1912
+0	-	1934	Feb	26
+1	-	1960	Nov	28
+0	-
+Africa/Ouagadougou	2
+0:06:04	-	1912
+0	-
+Africa/Porto-Novo	3
+-0:10:28	-	1912
+0	-	1934	Feb	26
+-1	-
 Africa/Sao_Tome	5
 -0:26:56	-	1884
 0:36:45	-	1912	Jan	1	0u
@@ -2426,6 +2546,13 @@ America/Anchorage	8
 10	US	1983	Oct	30	2
 9	US	1983	Nov	30
 9	US
+America/Anguilla	2
+4:12:16	-	1912	Mar	2
+4	-
+America/Antigua	3
+4:07:12	-	1912	Mar	2
+5	-	1951
+4	-
 America/Araguaina	7
 3:12:48	-	1914
 3	Brazil	1990	Sep	17
@@ -2584,6 +2711,10 @@ America/Argentina/Ushuaia	10
 4	-	2004	Jun	20
 3	Arg	2008	Oct	18
 3	-
+America/Aruba	3
+4:40:24	-	1912	Feb	12
+4:30	-	1965
+4	-
 America/Asuncion	5
 3:50:40	-	1890
 3:50:40	-	1931	Oct	10
@@ -2672,6 +2803,10 @@ America/Cayenne	3
 3:29:20	-	1911	Jul
 4	-	1967	Oct
 3	-
+America/Cayman	3
+5:25:32	-	1890
+5:07:10	-	1912	Feb
+5	-
 America/Chicago	8
 5:50:36	-	1883	Nov	18	12:09:24
 6	US	1920
@@ -2715,11 +2850,12 @@ America/Danmarkshavn	4
 3	-	1980	Apr	6	2
 3	EU	1996
 0	-
-America/Dawson	4
+America/Dawson	5
 9:17:40	-	1900	Aug	20
 9	NT_YK	1973	Oct	28
 8	NT_YK	1980
-8	Canada
+8	Canada	2020	Mar	8	2
+7	-
 America/Dawson_Creek	4
 8:00:56	-	1884
 8	Canada	1947
@@ -2732,15 +2868,20 @@ America/Denver	6
 7	US	1946
 7	Denver	1967
 7	US
-America/Detroit	8
+America/Detroit	10
 5:32:11	-	1905
 6	-	1915	May	15	2
 5	-	1942
 5	US	1946
-5	Detroit	1973
+5	Detroit	1967	Jun	14	0:01
+5	US	1969
+5	-	1973
 5	US	1975
 5	-	1975	Apr	27	2
 5	US
+America/Dominica	2
+4:05:36	-	1911	Jul	1	0:01
+4	-
 America/Edmonton	3
 7:33:52	-	1906	Sep
 7	Edm	1987
@@ -2800,6 +2941,12 @@ America/Grand_Turk	6
 5	US	2015	Nov	0	2
 4	-	2018	Mar	11	3
 5	US
+America/Grenada	2
+4:07	-	1911	Jul
+4	-
+America/Guadeloupe	2
+4:06:08	-	1911	Jun	8
+4	-
 America/Guatemala	2
 6:02:04	-	1918	Oct	5
 6	Guat
@@ -2875,11 +3022,12 @@ America/Indiana/Petersburg	8
 5	-	2006	Apr	2	2
 6	US	2007	Nov	4	2
 5	US
-America/Indiana/Tell_City	7
+America/Indiana/Tell_City	8
 5:47:03	-	1883	Nov	18	12:12:57
 6	US	1946
 6	Perry	1964	Apr	26	2
-5	-	1969
+5	-	1967	Oct	29	2
+6	US	1969	Apr	27	2
 5	US	1971
 5	-	2006	Apr	2	2
 6	US
@@ -3078,6 +3226,9 @@ America/Montevideo	11
 3	Uruguay	1974	Mar	10
 3	Uruguay	1974	Dec	22
 3	Uruguay
+America/Montserrat	2
+4:08:52	-	1911	Jul	1	0:01
+4	-
 America/Nassau	3
 5:09:30	-	1912	Mar	2
 5	Bahamas	1976
@@ -3280,6 +3431,20 @@ America/St_Johns	8
 3:30	Canada	1946
 3:30	StJohns	2011	Nov
 3:30	Canada
+America/St_Kitts	2
+4:10:52	-	1912	Mar	2
+4	-
+America/St_Lucia	3
+4:04	-	1890
+4:04	-	1912
+4	-
+America/St_Thomas	2
+4:19:44	-	1911	Jul
+4	-
+America/St_Vincent	3
+4:04:56	-	1890
+4:04:56	-	1912
+4	-
 America/Swift_Current	5
 7:11:20	-	1905	Sep
 7	Canada	1946	Apr	0	2
@@ -3327,15 +3492,19 @@ America/Toronto	6
 5	Canada	1946
 5	Toronto	1974
 5	Canada
+America/Tortola	2
+4:18:28	-	1911	Jul
+4	-
 America/Vancouver	3
 8:12:28	-	1884
 8	Vanc	1987
 8	Canada
-America/Whitehorse	4
+America/Whitehorse	5
 9:00:12	-	1900	Aug	20
 9	NT_YK	1967	May	28
 8	NT_YK	1980
-8	Canada
+8	Canada	2020	Mar	8	2
+7	-
 America/Winnipeg	3
 6:28:36	-	1887	Jul	16
 6	Winn	2006
@@ -3388,6 +3557,9 @@ Antarctica/Mawson	3
 0	-	1954	Feb	13
 -6	-	2009	Oct	18	2
 -5	-
+Antarctica/McMurdo	2
+0	-	1956
+-12	NZ
 Antarctica/Palmer	5
 0	-	1965
 4	Arg	1969	Oct	5
@@ -3406,6 +3578,9 @@ Antarctica/Troll	2
 Antarctica/Vostok	2
 0	-	1957	Dec	16
 -6	-
+Asia/Aden	2
+-2:59:54	-	1950
+-3	-
 Asia/Almaty	6
 -5:07:48	-	1924	May	2
 -5	-	1930	Jun	21
@@ -3466,6 +3641,10 @@ Asia/Baghdad	4
 -2:57:36	-	1918
 -3	-	1982	May
 -3	Iraq
+Asia/Bahrain	3
+-3:22:20	-	1920
+-4	-	1972	Jun
+-3	-
 Asia/Baku	7
 -3:19:24	-	1924	May	2
 -3	-	1957	Mar
@@ -3594,7 +3773,7 @@ Asia/Hong_Kong	6
 -7:36:42	-	1904	Oct	30	0:36:42
 -8	-	1941	Jun	15	3
 -8	1	1941	Oct	1	4
--8:30	-	1941	Dec	25
+-8	0:30	1941	Dec	25
 -9	-	1945	Nov	18	2
 -8	HK
 Asia/Hovd	3
@@ -3695,6 +3874,9 @@ Asia/Kuching	5
 -8	NBorneo	1942	Feb	16
 -9	-	1945	Sep	12
 -8	-
+Asia/Kuwait	2
+-3:11:56	-	1950
+-3	-
 Asia/Macau	4
 -7:34:10	-	1904	Oct	30
 -8	-	1941	Dec	21	23
@@ -3721,6 +3903,9 @@ Asia/Manila	5
 -8	Phil	1942	May
 -9	-	1944	Nov
 -8	Phil
+Asia/Muscat	2
+-3:54:24	-	1920
+-4	-
 Asia/Nicosia	3
 -2:13:28	-	1921	Nov	14
 -2	Cyprus	1998	Sep
@@ -3762,6 +3947,13 @@ Asia/Oral	10
 -5	RussiaAsia	1992	Mar	29	2s
 -4	RussiaAsia	2004	Oct	31	2s
 -5	-
+Asia/Phnom_Penh	6
+-6:59:40	-	1906	Jul
+-7:06:30	-	1911	May
+-7	-	1942	Dec	31	23
+-8	-	1945	Mar	14	23
+-9	-	1945	Sep	2
+-7	-
 Asia/Pontianak	9
 -7:17:20	-	1908	May
 -7:17:20	-	1932	Nov
@@ -3831,7 +4023,7 @@ Asia/Seoul	6
 -8:27:52	-	1908	Apr
 -8:30	-	1912
 -9	-	1945	Sep	8
--9	-	1954	Mar	21
+-9	ROK	1954	Mar	21
 -8:30	ROK	1961	Aug	10
 -9	ROK
 Asia/Shanghai	3
@@ -3919,6 +4111,15 @@ Asia/Ust-Nera	9
 -12	-	2011	Sep	13	0s
 -11	-	2014	Oct	26	2s
 -10	-
+Asia/Vientiane	8
+-6:50:24	-	1906	Jul
+-7:06:30	-	1911	May
+-7	-	1942	Dec	31	23
+-8	-	1945	Mar	14	23
+-9	-	1945	Sep	2
+-7	-	1947	Apr
+-8	-	1955	Apr	15
+-7	-
 Asia/Vladivostok	7
 -8:47:31	-	1922	Nov	15
 -9	-	1930	Jun	21
@@ -4016,6 +4217,10 @@ Atlantic/Reykjavik	3
 Atlantic/South_Georgia	2
 2:26:08	-	1890
 2	-
+Atlantic/St_Helena	3
+0:22:48	-	1890
+0:22:48	-	1951
+0	-
 Atlantic/Stanley	6
 3:51:24	-	1890
 3:51:24	-	1912	Mar	12
@@ -4126,7 +4331,7 @@ Europe/Berlin	5
 -1	EU
 Europe/Brussels	9
 -0:17:30	-	1880
--0:17:30	-	1892	May	1	12
+-0:17:30	-	1892	May	1	0:17:30
 0	-	1914	Nov	8
 -1	-	1916	May
 -1	C-Eur	1918	Nov	11	11u
@@ -4184,16 +4389,30 @@ Europe/Gibraltar	4
 0	GB-Eire	1957	Apr	14	2
 -1	-	1982
 -1	EU
+Europe/Guernsey	7
+0:10:09	-	1913	Jun	18
+0	GB-Eire	1940	Jul	2
+-1	C-Eur	1945	May	8
+0	GB-Eire	1968	Oct	27
+-1	-	1971	Oct	31	2u
+0	GB-Eire	1996
+0	EU
 Europe/Helsinki	4
 -1:39:49	-	1878	May	31
 -1:39:49	-	1921	May
 -2	Finland	1983
 -2	EU
+Europe/Isle_of_Man	5
+0:17:55	-	1883	Mar	30	0s
+0	GB-Eire	1968	Oct	27
+-1	-	1971	Oct	31	2u
+0	GB-Eire	1996
+0	EU
 Europe/Istanbul	13
 -1:55:52	-	1880
 -1:56:56	-	1910	Oct
--2	Turkey	1978	Oct	15
--3	Turkey	1985	Apr	20
+-2	Turkey	1978	Jun	29
+-3	Turkey	1984	Nov	1	2
 -2	Turkey	2007
 -2	EU	2011	Mar	27	1u
 -2	-	2011	Mar	28	1u
@@ -4203,10 +4422,18 @@ Europe/Istanbul	13
 -2	1	2015	Nov	8	1u
 -2	EU	2016	Sep	7
 -3	-
+Europe/Jersey	7
+0:08:26	-	1898	Jun	11	16u
+0	GB-Eire	1940	Jul	2
+-1	C-Eur	1945	May	8
+0	GB-Eire	1968	Oct	27
+-1	-	1971	Oct	31	2u
+0	GB-Eire	1996
+0	EU
 Europe/Kaliningrad	7
 -1:22	-	1893	Apr
--1	C-Eur	1945
--2	Poland	1946
+-1	C-Eur	1945	Apr	10
+-2	Poland	1946	Apr	7
 -3	Russia	1989	Mar	26	2s
 -2	Russia	2011	Mar	27	2s
 -3	-	2014	Oct	26	2s
@@ -4239,6 +4466,13 @@ Europe/Lisbon	8
 0	W-Eur	1992	Sep	27	1s
 -1	EU	1996	Mar	31	1u
 0	EU
+Europe/Ljubljana	6
+-0:58:04	-	1884
+-1	-	1941	Apr	18	23
+-1	C-Eur	1945	May	8	2s
+-1	1	1945	Sep	16	2s
+-1	-	1982	Nov	27
+-1	EU
 Europe/London	5
 0:01:15	-	1847	Dec	1	0s
 0	GB-Eire	1968	Oct	27
@@ -4347,6 +4581,13 @@ Europe/Samara	10
 -4	Russia	2010	Mar	28	2s
 -3	Russia	2011	Mar	27	2s
 -4	-
+Europe/Sarajevo	6
+-1:13:40	-	1884
+-1	-	1941	Apr	18	23
+-1	C-Eur	1945	May	8	2s
+-1	1	1945	Sep	16	2s
+-1	-	1982	Nov	27
+-1	EU
 Europe/Saratov	9
 -3:04:18	-	1919	Jul	1	0u
 -3	-	1930	Jun	21
@@ -4374,6 +4615,13 @@ Europe/Simferopol	16
 -2	EU	2014	Mar	30	2
 -4	-	2014	Oct	26	2s
 -3	-
+Europe/Skopje	6
+-1:25:44	-	1884
+-1	-	1941	Apr	18	23
+-1	C-Eur	1945	May	8	2s
+-1	1	1945	Sep	16	2s
+-1	-	1982	Nov	27
+-1	EU
 Europe/Sofia	10
 -1:33:16	-	1880
 -1:56:56	-	1894	Nov	30
@@ -4433,6 +4681,10 @@ Europe/Uzhgorod	11
 -2	-	1992
 -2	E-Eur	1995
 -2	EU
+Europe/Vaduz	3
+-0:38:04	-	1894	Jun
+-1	Swiss	1981
+-1	EU
 Europe/Vienna	8
 -1:05:21	-	1893	Apr
 -1	C-Eur	1920
@@ -4479,6 +4731,13 @@ Europe/Warsaw	9
 -1	Poland	1977
 -1	W-Eur	1988
 -1	EU
+Europe/Zagreb	6
+-1:03:52	-	1884
+-1	-	1941	Apr	18	23
+-1	C-Eur	1945	May	8	2s
+-1	1	1945	Sep	16	2s
+-1	-	1982	Nov	27
+-1	EU
 Europe/Zaporozhye	8
 -2:20:40	-	1880
 -2:20	-	1924	May	2
@@ -4493,6 +4752,11 @@ Europe/Zurich	4
 -0:29:46	-	1894	Jun
 -1	Swiss	1981
 -1	EU
+Indian/Antananarivo	4
+-3:10:04	-	1911	Jul
+-3	-	1954	Feb	27	23s
+-3	1	1954	May	29	23s
+-3	-
 Indian/Chagos	3
 -4:49:40	-	1907
 -5	-	1996
@@ -4503,6 +4767,9 @@ Indian/Christmas	2
 Indian/Cocos	2
 -6:27:40	-	1900
 -6:30	-
+Indian/Comoro	2
+-2:53:04	-	1911	Jul
+-3	-
 Indian/Kerguelen	2
 0	-	1950
 -5	-
@@ -4516,6 +4783,9 @@ Indian/Maldives	3
 Indian/Mauritius	2
 -3:50	-	1907
 -4	Mauritius
+Indian/Mayotte	2
+-3:00:56	-	1911	Jul
+-3	-
 Indian/Reunion	2
 -3:41:52	-	1911	Jun
 -4	-
@@ -4630,6 +4900,11 @@ Pacific/Majuro	8
 Pacific/Marquesas	2
 9:18	-	1912	Oct
 9:30	-
+Pacific/Midway	4
+11:49:28	-	1901
+11	-	1956	Jun	3
+11	1	1956	Sep	2
+11	-
 Pacific/Nauru	5
 -11:07:40	-	1921	Jan	15
 -11:30	-	1942	Aug	29
@@ -4641,13 +4916,14 @@ Pacific/Niue	4
 11:20	-	1951
 11:30	-	1978	Oct
 11	-
-Pacific/Norfolk	6
+Pacific/Norfolk	7
 -11:11:52	-	1901
 -11:12	-	1951
--11:30	-	1974	Oct	27	2
--11:30	1	1975	Mar	2	2
--11:30	-	2015	Oct	4	2
--11	-
+-11:30	-	1974	Oct	27	2s
+-11:30	1	1975	Mar	2	2s
+-11:30	-	2015	Oct	4	2s
+-11	-	2019	Jul
+-11	AN
 Pacific/Noumea	2
 -11:05:48	-	1912	Jan	13
 -11	NC
@@ -4680,6 +4956,12 @@ Pacific/Rarotonga	3
 10:39:04	-	1901
 10:30	-	1978	Nov	12
 10	Cook
+Pacific/Saipan	5
+14:17	-	1844	Dec	31
+-9:43	-	1901
+-9	-	1969	Oct
+-10	-	2000	Dec	23
+-10	-
 Pacific/Tahiti	2
 9:58:16	-	1912	Oct
 10	-
@@ -4702,83 +4984,17 @@ Pacific/Wallis	2
 ; Column 1: Time zone from atlas.as
 ; Column 2: Time zone change entry list to use from Part 2
 
--YY3 77
-Africa/Addis_Ababa	Africa/Nairobi
-Africa/Asmara	Africa/Nairobi
-Africa/Bamako	Africa/Abidjan
-Africa/Bangui	Africa/Lagos
-Africa/Banjul	Africa/Abidjan
-Africa/Blantyre	Africa/Maputo
-Africa/Brazzaville	Africa/Lagos
-Africa/Bujumbura	Africa/Maputo
-Africa/Conakry	Africa/Abidjan
-Africa/Dakar	Africa/Abidjan
-Africa/Dar_es_Salaam	Africa/Nairobi
-Africa/Djibouti	Africa/Nairobi
-Africa/Douala	Africa/Lagos
-Africa/Freetown	Africa/Abidjan
-Africa/Gaborone	Africa/Maputo
-Africa/Harare	Africa/Maputo
-Africa/Kampala	Africa/Nairobi
-Africa/Kigali	Africa/Maputo
-Africa/Kinshasa	Africa/Lagos
-Africa/Libreville	Africa/Lagos
-Africa/Lome	Africa/Abidjan
-Africa/Luanda	Africa/Lagos
-Africa/Lubumbashi	Africa/Maputo
-Africa/Lusaka	Africa/Maputo
-Africa/Malabo	Africa/Lagos
-Africa/Maseru	Africa/Johannesburg
-Africa/Mbabane	Africa/Johannesburg
-Africa/Mogadishu	Africa/Nairobi
-Africa/Niamey	Africa/Lagos
-Africa/Nouakchott	Africa/Abidjan
-Africa/Ouagadougou	Africa/Abidjan
-Africa/Porto-Novo	Africa/Lagos
-America/Anguilla	America/Port_of_Spain
-America/Antigua	America/Port_of_Spain
-America/Aruba	America/Curacao
-America/Cayman	America/Panama
-America/Dominica	America/Port_of_Spain
-America/Grenada	America/Port_of_Spain
-America/Guadeloupe	America/Port_of_Spain
+-YY3 11
 America/Kralendijk	America/Curacao
 America/Lower_Princes	America/Curacao
 America/Marigot	America/Port_of_Spain
-America/Montserrat	America/Port_of_Spain
 America/St_Barthelemy	America/Port_of_Spain
-America/St_Kitts	America/Port_of_Spain
-America/St_Lucia	America/Port_of_Spain
-America/St_Thomas	America/Port_of_Spain
-America/St_Vincent	America/Port_of_Spain
-America/Tortola	America/Port_of_Spain
-Antarctica/McMurdo	Pacific/Auckland
 Arctic/Longyearbyen	Europe/Oslo
-Asia/Aden	Asia/Riyadh
-Asia/Bahrain	Asia/Qatar
-Asia/Kuwait	Asia/Riyadh
-Asia/Muscat	Asia/Dubai
-Asia/Phnom_Penh	Asia/Bangkok
-Asia/Vientiane	Asia/Bangkok
-Atlantic/St_Helena	Africa/Abidjan
 Europe/Bratislava	Europe/Prague
 Europe/Busingen	Europe/Zurich
-Europe/Guernsey	Europe/London
-Europe/Isle_of_Man	Europe/London
-Europe/Jersey	Europe/London
-Europe/Ljubljana	Europe/Belgrade
 Europe/Mariehamn	Europe/Helsinki
 Europe/Podgorica	Europe/Belgrade
 Europe/San_Marino	Europe/Rome
-Europe/Sarajevo	Europe/Belgrade
-Europe/Skopje	Europe/Belgrade
-Europe/Vaduz	Europe/Zurich
 Europe/Vatican	Europe/Rome
-Europe/Zagreb	Europe/Belgrade
-Indian/Antananarivo	Africa/Nairobi
-Indian/Comoro	Africa/Nairobi
-Indian/Mayotte	Africa/Nairobi
-Pacific/Midway	Pacific/Pago_Pago
-Pacific/Saipan	Pacific/Guam
 
 ; timezone.as
diff --git a/wdialog.cpp b/wdialog.cpp
index 83ccb4d..e5359c0 100644
--- a/wdialog.cpp
+++ b/wdialog.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: wdialog.cpp
+** Astrolog (Version 7.10) File: wdialog.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -65,7 +65,7 @@
 
 void SetEditSz(HWND hdlg, int id, CONST char *sz)
 {
-  while (*sz == ' ')    /* Strip off any extra leading spaces. */
+  while (*sz == ' ')    // Strip off any extra leading spaces.
     sz++;
   SetEdit(id, sz);
 }
@@ -144,8 +144,9 @@ void SetEditSZOA(HWND hdlg, int idDst, int idZon, int idLon, int idLat,
   SetCombo(idDst, "No"); SetCombo(idDst, "Yes");
   sprintf(sz, "%s", SzZone(zon));
   SetEdit(idZon, (char *)(sz[0] == '+' ? &sz[1] : sz));
-  /* For the time zone dropdown, fill it out with all abbreviations of */
-  /* three letters that don't reference daylight or war time.          */
+
+  // For the time zone dropdown, fill it out with all abbreviations of three
+  // letters that don't reference daylight or war time.
   for (i = 0; i < cZone; i++) {
     if (szZon[i][1] && szZon[i][1] != 'D' && szZon[i][1] != 'W' &&
       szZon[i][2] && szZon[i][2] != 'D') {
@@ -188,7 +189,7 @@ real GetEditR(HWND hdlg, int id)
   char sz[cchSzMax];
 
   GetEdit(id, sz);
-  return atof(sz);
+  return RFromSz(sz);
 }
 
 
@@ -203,331 +204,6 @@ void ErrorEnsure(int n, CONST char *sz)
 }
 
 
-/* Take many of the user visible settings, and write them out to a new   */
-/* command switch file, which may be read in to restore those settings.  */
-/* Most often this would be used to create a new astrolog.as default     */
-/* settings file. This is called from File / Save Settings menu command. */
-
-flag FOutputSettings()
-{
-  char sz[cchSzDef];
-  FILE *file;
-  int i;
-  flag f1, f2;
-
-  if (us.fNoWrite)
-    return fFalse;
-  file = fopen(is.szFileOut, "w");  /* Create and open the file for output. */
-  if (file == NULL) {
-    sprintf(sz, "Settings file %s can not be created.", is.szFileOut);
-    PrintError(sz);
-    return fFalse;
-  }
-
-  sprintf(sz, "@AD%s  ; %s %s default settings file %s\n\n",
-    szVerCore, szAppName, szVersionCore, DEFAULT_INFOFILE); PrintFSz();
-
-  sprintf(sz, "-z %s                ", SzZone(us.zonDef)); PrintFSz();
-  PrintF("; Default time zone     [hours W or E of UTC   ]\n");
-  if (us.dstDef != dstAuto)
-    sprintf(sz, "-z0 %d                   ", (int)us.dstDef);
-  else
-    sprintf(sz, "-z0 Autodetect          ");
-  PrintFSz();
-  PrintF("; Default Daylight time [0 standard, 1 daylight]\n");
-  f1 = us.fAnsiChar; us.fAnsiChar = 3;
-  f2 = is.fSeconds; is.fSeconds = fTrue;
-  sprintf(sz, "-zl %s  ", SzLocation(us.lonDef, us.latDef)); PrintFSz();
-  us.fAnsiChar = f1; is.fSeconds = f2;
-  PrintF("; Default location      [longitude and latitude]\n");
-  sprintf(sz, "-zv %s               ", SzElevation(us.elvDef)); PrintFSz();
-  PrintF("; Default elevation     [in feet or meters     ]\n");
-  sprintf(sz, "-zj \"%s\" \"%s\" ; Default name and location\n\n",
-    us.namDef, us.locDef); PrintFSz();
-
-  PrintF("-n      "
-    "; Comment out this line to not start with chart for \"now\".\n");
-  sprintf(sz, "-Yz %ld   ", us.lTimeAddition); PrintFSz();
-  PrintF(
-    "; Time minute addition to be used if \"now\" charts are offset.\n\n");
-
-  sprintf(sz, "%cs      ", ChDashF(us.fSidereal)); PrintFSz();
-  PrintF(
-    "; Zodiac selection          [\"_s\" is tropical, \"=s\" is sidereal]\n");
-  PrintF(":s "); FormatR(sz, us.rZodiacOffset, 6); PrintFSz();
-  PrintF(
-    "  ; Zodiac offset value       [Change \"0.0\" to desired ayanamsa  ]\n");
-  sprintf(sz, "-A %d    ", us.nAsp); PrintFSz();
-  PrintF(
-    "; Number of aspects         [Change \"5\" to desired number      ]\n");
-  i = us.nHouseSystem; sprintf(sz, "-c %.4s ", i == hsEqualMC ?
-    rgSystem[1].sz : (i == hsSinewaveDelta ? rgSystem[3].sz : szSystem[i]));
-  PrintFSz();
-  PrintF(
-    "; House system              [Change \"Plac\" to desired system   ]\n");
-  sprintf(sz, "%cc3     ", ChDashF(us.fHouse3D)); PrintFSz();
-  PrintF(
-    "; 3D house boundaries       [\"=c3\" is 3D houses, \"_c3\" is 2D   ]\n");
-  sprintf(sz, "%ck      ", ChDashF(us.fAnsiColor)); PrintFSz();
-  PrintF(
-    "; Ansi color text           [\"=k\" is color, \"_k\" is monochrome ]\n");
-  sprintf(sz, ":d %d   ", us.nDivision); PrintFSz();
-  PrintF(
-    "; Searching divisions       [Change \"48\" to desired divisions  ]\n");
-  sprintf(sz, "%cb0     ", ChDashF(us.fSeconds)); PrintFSz();
-  PrintF(
-    "; Print zodiac seconds      [\"_b0\" to minute, \"=b0\" to second  ]\n");
-  sprintf(sz, "%cb      ", ChDashF(us.fEphemFiles)); PrintFSz();
-  PrintF(
-    "; Use ephemeris files       [\"=b\" uses them, \"_b\" doesn't      ]\n");
-  sprintf(sz, ":w %d    ", us.nWheelRows); PrintFSz();
-  PrintF(
-    "; Wheel chart text rows     [Change \"0\" to desired wheel rows  ]\n");
-  sprintf(sz, ":I %d   ", us.nScreenWidth); PrintFSz();
-  PrintF(
-    "; Text screen columns       [Change \"80\" to desired columns    ]\n");
-  sprintf(sz, "-YQ %d   ", us.nScrollRow); PrintFSz();
-  PrintF(
-    "; Text screen scroll limit  [Change \"24\" or set to \"0\" for none]\n");
-  sprintf(sz, "%cYd     ", ChDashF(us.fEuroDate)); PrintFSz();
-  PrintF(
-    "; European date format      [\"_Yd\" is MDY, \"=Yd\" is DMY        ]\n");
-  sprintf(sz, "%cYt     ", ChDashF(us.fEuroTime)); PrintFSz();
-  PrintF(
-    "; European time format      [\"_Yt\" is AM/PM, \"=Yt\" is 24 hour  ]\n");
-  sprintf(sz, "%cYv     ", ChDashF(us.fEuroDist)); PrintFSz();
-  PrintF(
-    "; European length units     [\"_Yv\" is imperial, \"=Yv\" is metric]\n");
-  sprintf(sz, "%cYr     ", ChDashF(us.fRound)); PrintFSz();
-  PrintF(
-    "; Show rounded positions    [\"=Yr\" rounds, \"_Yr\" doesn't       ]\n");
-  sprintf(sz, "%cYC     ", ChDashF(us.fSmartCusp)); PrintFSz();
-  PrintF(
-    "; Smart cusp displays       [\"=YC\" is smart, \"_YC\" is normal   ]\n");
-  sprintf(sz, "%cYO     ", ChDashF(us.fSmartSave)); PrintFSz();
-  PrintF(
-    "; Smart copy and printing   [\"=YO\" does it smart, \"_YO\" doesn't]\n");
-  sprintf(sz, "%cY8     ", ChDashF(us.fClip80)); PrintFSz();
-  PrintF(
-    "; Clip text to end of line  [\"=Y8\" clips, \"_Y8\" doesn't clip   ]\n");
-  sprintf(sz, "%cYu     ", ChDashF(us.fEclipse)); PrintFSz();
-  PrintF(
-    "; Show eclipse information  [\"=Yu\" shows, \"_Yu\" doesn't show   ]\n");
-
-  PrintF("\n\n; FILE PATHS (-Yi1 through -Yi9):\n; For example, "
-    "point -Yi1 to ephemeris dir, -Yi2 to chart files dir, etc.\n\n");
-  for (i = 0; i < 10; i++)
-    if (us.rgszPath[i] && *us.rgszPath[i]) {
-      sprintf(sz, "-Yi%d \"%s\"\n", i, us.rgszPath[i]); PrintFSz();
-    }
-
-  PrintF("\n\n; DEFAULT RESTRICTIONS:\n"
-    ";  0-10: Ear Sun Moo Mer Ven Mar Jup Sat Ura Nep Plu\n"
-    "; 11-21: Chi Cer Pal Jun Ves Nor Sou Lil For Ver EP\n"
-    "; 22-33: Asc 2nd 3rd Nad 5th 6th Des 8th 9th MC 11th 12th\n"
-    "; 34-42: Vul Cup Had Zeu Kro Apo Adm Vulk Pos\n\n-YR 0 10     ");
-  for (i = 0; i <= 10; i++) PrintF(SzNumF(ignore[i]));
-  PrintF("   ; Planets\n-YR 11 21    ");
-  for (i = 11; i <= 21; i++) PrintF(SzNumF(ignore[i]));
-  PrintF("   ; Minor planets\n-YR 22 33    ");
-  for (i = 22; i <= 33; i++) PrintF(SzNumF(ignore[i]));
-  PrintF(" ; House cusps\n-YR 34 42    ");
-  for (i = 34; i <= 42; i++) PrintF(SzNumF(ignore[i]));
-  PrintF("       ; Uranians\n\n");
-
-  PrintF("; DEFAULT TRANSIT RESTRICTIONS:\n\n-YRT 0 10    ");
-  for (i = 0; i <= 10; i++) PrintF(SzNumF(ignore2[i]));
-  PrintF("   ; Planets\n-YRT 11 21   ");
-  for (i = 11; i <= 21; i++) PrintF(SzNumF(ignore2[i]));
-  PrintF("   ; Minor planets\n-YRT 22 33   ");
-  for (i = 22; i <= 33; i++) PrintF(SzNumF(ignore2[i]));
-  PrintF(" ; House cusps\n-YRT 34 42   ");
-  for (i = 34; i <= 42; i++) PrintF(SzNumF(ignore2[i]));
-  PrintF("       ; Uranians\n\n");
-
-  sprintf(sz, "-YR0 %s%s ; Restrict sign, direction changes\n\n",
-    SzNumF(us.fIgnoreSign), SzNumF(us.fIgnoreDir)); PrintFSz();
-  PrintF("-YR7 ");
-  for (i = 0; i < 5; i++) PrintF(SzNumF(ignore7[i]));
-  PrintF(" ; Restrict rulerships: std, esoteric, hierarch, exalt, ray\n\n\n");
-
-  PrintF("; DEFAULT ASPECT ORBS:\n"
-    ";  1- 5: Con Opp Squ Tri Sex\n"
-    ";  6-11: Inc SSx SSq Ses Qui BQn\n"
-    "; 12-18: SQn Sep Nov BNv BSp TSp QNv\n\n-YAo 1 5    ");
-  for (i = 1; i <= 5; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
-  PrintF("      ; Major aspects\n-YAo 6 11   ");
-  for (i = 6; i <= 11; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
-  PrintF("    ; Minor aspects\n-YAo 12 18  ");
-  for (i = 12; i <= 18; i++) { sprintf(sz, " %.0f", rAspOrb[i]); PrintFSz(); }
-  PrintF("  ; Obscure aspects\n\n");
-
-  PrintF("; DEFAULT MAX PLANET ASPECT ORBS:\n\n-YAm 0 10   ");
-  for (i = 0; i <= 10; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
-  PrintF("      ; Planets\n-YAm 11 21  ");
-  for (i = 11; i <= 21; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
-  PrintF("      ; Minor planets\n-YAm 22 33  ");
-  for (i = 22; i <= 33; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
-  PrintF("  ; Cusp objects\n-YAm 34 42  ");
-  for (i = 34; i <= 42; i++) { sprintf(sz, "%4.0f", rObjOrb[i]); PrintFSz(); }
-  PrintF("              ; Uranians\n-YAm 43 43  ");
-  sprintf(sz, "%4.0f", rObjOrb[43]); PrintFSz();
-  PrintF("                                              ; Fixed stars\n");
-
-  PrintF("\n; DEFAULT PLANET ASPECT ORB ADDITIONS:\n\n-YAd 0 10   ");
-  for (i = 0; i <= 10; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
-  PrintF("    ; Planets\n-YAd 11 21  ");
-  for (i = 11; i <= 21; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
-  PrintF("    ; Minor planets\n-YAd 22 33  ");
-  for (i = 22; i <= 33; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
-  PrintF("  ; Cusp objects\n-YAd 34 42  ");
-  for (i = 34; i <= 42; i++) { sprintf(sz, " %.0f", rObjAdd[i]); PrintFSz(); }
-  PrintF("        ; Uranians\n-YAd 43 43  ");
-  sprintf(sz, " %.0f", rObjAdd[43]); PrintFSz();
-  PrintF("                        ; Fixed stars\n\n\n");
-
-  PrintF("; DEFAULT INFLUENCES:\n\n-Yj 0 10   ");
-  for (i = 0; i <= 10; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
-  PrintF("        ; Planets\n-Yj 11 21  ");
-  for (i = 11; i <= 21; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
-  PrintF("                ; Minor planets\n-Yj 22 33  ");
-  for (i = 22; i <= 33; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
-  PrintF("  ; Cusp objects\n-Yj 34 42  ");
-  for (i = 34; i <= 42; i++) { sprintf(sz, " %.0f", rObjInf[i]); PrintFSz(); }
-  PrintF("                    ; Uranians\n-Yj 43 43   ");
-  sprintf(sz, "%.0f", rObjInf[43]); PrintFSz();
-  PrintF("                                    ; Fixed stars\n\n");
-
-  PrintF("-YjC 1 12  ");
-  for (i = 1; i <= cSign; i++)
-    { sprintf(sz, " %.0f", rHouseInf[i]); PrintFSz(); }
-  PrintF("  ; Houses\n\n-YjA 1 5   ");
-
-  for (i = 1; i <= 5; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
-  PrintF("          ; Major aspects\n-YjA 6 11  ");
-  for (i = 6; i <= 11; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
-  PrintF("      ; Minor aspects\n-YjA 12 18 ");
-  for (i = 12; i <= 18; i++) { sprintf(sz, "%4.1f", rAspInf[i]); PrintFSz(); }
-  PrintF("  ; Obscure aspects\n\n");
-
-  PrintF("; DEFAULT TRANSIT INFLUENCES:\n\n-YjT 0 10  ");
-  for (i = 0; i <= 10; i++)
-    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
-  PrintF("  ; Planets\n-YjT 11 21 ");
-  for (i = 11; i <= 21; i++)
-    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
-  PrintF("    ; Minor planets\n-YjT 34 42 ");
-  for (i = 34; i <= 42; i++)
-    { sprintf(sz, " %.0f", rTransitInf[i]); PrintFSz(); }
-  PrintF("      ; Uranians\n-YjT 43 43  ");
-  sprintf(sz, "%.0f", rTransitInf[43]); PrintFSz();
-  PrintF("                             ; Fixed stars\n\n");
-
-  sprintf(sz, "-Yj0 %.0f %.0f %.0f %.0f ",
-    rObjInf[oNorm1 + 1], rObjInf[oNorm1 + 2], rHouseInf[cSign + 1],
-    rHouseInf[cSign + 2]); PrintFSz();
-  PrintF(" ; In ruling sign, exalted sign, ruling house, exalted house\n");
-  sprintf(sz, "-Yj7 %.0f %.0f %.0f %.0f %.0f %.0f ", rObjInf[oNorm1 + 3],
-    rObjInf[oNorm1 + 4], rObjInf[oNorm1 + 5], rHouseInf[cSign + 3],
-    rHouseInf[cSign + 4], rHouseInf[cSign + 5]); PrintFSz();
-  PrintF(" ; Esoteric, Hierarchical, Ray ruling - sign, house\n\n\n");
-
-  PrintF("; DEFAULT RAYS:\n\n-Y7C 1 12  ");
-  for (i = 1; i <= cSign; i++)
-    { sprintf(sz, " %d", rgSignRay[i]); PrintFSz(); }
-  PrintF("  ; Signs\n-Y7O 0 10  ");
-  for (i = 0; i <= 10; i++)
-    { sprintf(sz, " %d", rgObjRay[i]); PrintFSz(); }
-  PrintF("             ; Planets\n-Y7O 34 42 ");
-  for (i = 34; i <= 42; i++)
-    { sprintf(sz, " %d", rgObjRay[i]); PrintFSz(); }
-  PrintF("                 ; Uranians\n\n\n");
-
-  PrintF("; DEFAULT COLORS:\n\n-YkO 0 10  ");
-  for (i = 0; i <= 10; i++)
-    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
-  PrintF("      ; Planet colors\n-YkO 11 21 ");
-  for (i = 11; i <= 21; i++)
-    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
-  PrintF("      ; Minor colors\n-YkO 22 33 ");
-  for (i = 22; i <= 33; i++)
-    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
-  PrintF("  ; Cusp colors\n-YkO 34 42 ");
-  for (i = 34; i <= 42; i++)
-    { sprintf(sz, " %.3s", szColor[kObjU[i]]); PrintFSz(); }
-  PrintF("              ; Uranian colors\n\n-YkA 1 5   ");
-
-  for (i = 1; i <= 5; i++)
-    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
-  PrintF("          ; Major aspect colors\n-YkA 6 11  ");
-  for (i = 6; i <= 11; i++)
-    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
-  PrintF("      ; Minor aspect colors\n-YkA 12 18 ");
-  for (i = 12; i <= 18; i++)
-    { sprintf(sz, " %.3s", szColor[kAspA[i]]); PrintFSz(); }
-  PrintF("  ; Obscure aspect colors\n\n-YkC       ");
-
-  for (i = eFir; i <= eWat; i++)
-    { sprintf(sz, " %.3s", szColor[kElemA[i]]); PrintFSz(); }
-  PrintF("                      ; Element colors\n-Yk7 1 7   ");
-  for (i = 1; i <= cRay; i++)
-    { sprintf(sz, " %.3s", szColor[kRayA[i]]); PrintFSz(); }
-  PrintF("          ; Ray colors\n-Yk0 1 7   ");
-  for (i = 1; i <= cRainbow; i++)
-    { sprintf(sz, " %.3s", szColor[kRainbowA[i]]); PrintFSz(); }
-  PrintF("          ; Rainbow colors\n-Yk  0 8   ");
-  for (i = 0; i <= 8; i++)
-    { sprintf(sz, " %.3s", szColor[kMainA[i]]); PrintFSz(); }
-  PrintF("  ; Main colors\n\n\n");
-
-  PrintF("; GRAPHICS DEFAULTS:\n\n");
-  sprintf(sz, "%cXm              ", ChDashF(gs.fColor)); PrintFSz();
-  PrintF("; Color charts       [\"=Xm\" is color, \"_Xm\" is monochrome]\n");
-  sprintf(sz, "%cXr              ", ChDashF(gs.fInverse)); PrintFSz();
-  PrintF("; Reverse background [\"_Xr\" is black, \"=Xr\" is white     ]\n");
-  i = gs.xWin; if (fSidebar) i -= SIDESIZE;
-  sprintf(sz, ":Xw %d %d      ", i, gs.yWin); PrintFSz();
-  PrintF("; Default X and Y resolution (not including sidebar)\n");
-  sprintf(sz, ":Xs %d          ", gs.nScale); PrintFSz();
-  PrintF("; Character scale     [100-400]\n");
-  sprintf(sz, ":XS %d          ", gs.nScaleText); PrintFSz();
-  PrintF("; Graphics text scale [100-400]\n");
-  sprintf(sz, "%cXQ              ", ChDashF(gs.fKeepSquare)); PrintFSz();
-  PrintF(
-    "; Square charts [\"=XQ\" forces square, \"_XQ\" allows rectangle]\n");
-  sprintf(sz, "%cXu              ", ChDashF(gs.fBorder)); PrintFSz();
-  PrintF(
-    "; Chart border  [\"=Xu\" shows border, \"_Xu\" doesn't show     ]\n");
-  sprintf(sz, ":Xb%c             ", ChUncap(gs.chBmpMode)); PrintFSz();
-  PrintF(
-    "; Bitmap file type   [\"Xbb\" is Windows .bmp, \"Xbn\" is X11   ]\n");
-  sprintf(sz, ":YXG %d        ", gs.nGlyphs); PrintFSz();
-  PrintF("; Glyph selections   [Capricorn, Uranus, Pluto, Lilith]\n");
-  sprintf(sz, ":YXg %d           ", gs.nGridCell); PrintFSz();
-  PrintF("; Aspect grid cells  [\"0\" for autodetect  ]\n");
-  sprintf(sz, ":YXS %.1f         ", gs.rspace); PrintFSz();
-  PrintF("; Orbit radius in AU [\"0.0\" for autodetect]\n");
-  sprintf(sz, ":YXj %d           ", gs.cspace); PrintFSz();
-  PrintF("; Orbit trail count\n");
-  sprintf(sz, ":YX7 %d         ", gs.nRayWidth); PrintFSz();
-  PrintF("; Esoteric ray column influence width\n");
-  sprintf(sz, ":YXf %d           ", gs.fFont); PrintFSz();
-  PrintF("; Use actual fonts\n");
-  sprintf(sz, ":YXp %d           ", gs.nOrient); PrintFSz();
-  PrintF(
-    "; PostScript paper orientation [\"-1\" portrait, \"1\" landscape]\n");
-  sprintf(sz, ":YXp0 %s ", SzLength(gs.xInch)); PrintFSz();
-  sprintf(sz, "%s ", SzLength(gs.yInch)); PrintFSz();
-  PrintF("; PostScript paper X and Y sizes\n\n");
-  sprintf(sz, "%cX               ", ChDashF(us.fGraphics)); PrintFSz();
-  PrintF("; Graphics chart display [\"_X\" is text, \"=X\" is graphics]\n");
-
-  sprintf(sz, "\n; %s\n", DEFAULT_INFOFILE); PrintFSz();
-  fclose(file);
-  return fTrue;
-}
-
-
 #ifdef ATLAS
 /* Shared WM_COMMAND processor for atlas and time change related button */
 /* commands. Called from DlgInfo() and DlgDefault().                    */
@@ -618,7 +294,7 @@ flag API DlgOpenChart()
   char sz[cchSzDef];
   CI ciT;
 
-  /* Setup dialog title and settings and get the name of a file from it. */
+  // Setup dialog title and settings and get the name of a file from it.
   if (us.fNoRead) {
     PrintWarning("File input is not allowed now.");
     return fFalse;
@@ -632,7 +308,7 @@ flag API DlgOpenChart()
   if (!GetOpenFileName((LPOPENFILENAME)&ofn))
     return fFalse;
 
-  /* Process the given file based on what open command is being run. */
+  // Process the given file based on what open command is being run.
   ciT = ciCore;
   FInputData(ofn.lpstrFileTitle);
   if (wi.nDlgChart <= 1)
@@ -665,7 +341,7 @@ flag API DlgSaveChart()
 {
   char *pch;
 
-  /* Setup dialog title and settings and get the name of a file from it. */
+  // Setup dialog title and settings and get the name of a file from it.
   if (us.fNoWrite) {
     PrintWarning("File output is not allowed now.");
     return fFalse;
@@ -738,8 +414,8 @@ flag API DlgSaveChart()
     sprintf(pch, "%c%s%s", '\\', szAppName, ".bmp");
   }
 
-  /* Saving chart info, position, or setting command files can be done  */
-  /* here. Saving actual chart output isn't done until the next redraw. */
+  // Saving chart info, position, or setting command files can be done here.
+  // Saving actual chart output isn't done until the next redraw.
   is.szFileOut = gi.szFileOut = ofn.lpstrFile;
   switch (wi.wCmd) {
   case cmdSaveChart:
@@ -800,16 +476,16 @@ flag API DlgPrint()
   int xClient, yClient;
   flag fInverse;
 
-  /* Bring up the Windows print dialog. */
+  // Bring up the Windows print dialog.
   wi.fNoUpdate = fFalse;
   if (!PrintDlg((LPPRINTDLG)&prd))
     return fTrue;
 
-  /* Get the printer DC. */
+  // Get the printer DC.
   if (prd.hDC)
     hdc = prd.hDC;
   else {
-    /* If the dialog didn't just return the DC, try to make one manually. */
+    // If the dialog didn't just return the DC, try to make one manually.
     if (!prd.hDevNames)
       return fFalse;
     lpDevNames = (LPDEVNAMES)GlobalLock(prd.hDevNames);
@@ -833,7 +509,7 @@ flag API DlgPrint()
     prd.hDevMode = (HGLOBAL)NULL;
   }
 
-  /* Setup the abort dialog and start the print job. */
+  // Setup the Abort dialog and start the print job.
   lpAbortDlg = (DLGPROC)MakeProcInstance((FARPROC)DlgAbort, wi.hinst);
   lpAbortProc = (ABORTPROC)MakeProcInstance((FARPROC)DlgAbortProc, wi.hinst);
   SetAbortProc(hdc, lpAbortProc);
@@ -855,14 +531,14 @@ flag API DlgPrint()
   EnableWindow(wi.hwnd, fFalse);
   StartPage(hdc);
 
-  /* Scale the chart to the page. */
+  //  Scale the chart to the page.
   if (us.fGraphics) {
     gs.xWin *= METAMUL; gs.yWin *= METAMUL; gs.nScale *= METAMUL;
     fInverse = gs.fInverse;
     if (us.fSmartSave)
       gs.fInverse = fTrue;
   }
-  SetMapMode(hdc, MM_ANISOTROPIC);       /* So SetViewportExt can be called */
+  SetMapMode(hdc, MM_ANISOTROPIC);       // So SetViewportExt can be called.
   xPrint = GetDeviceCaps(hdc, HORZRES);
   yPrint = GetDeviceCaps(hdc, VERTRES);
   SetViewportOrg(hdc, 0, 0);
@@ -876,9 +552,9 @@ flag API DlgPrint()
   }
   wi.hdcPrint = hdc;
 
-  FRedraw();    /* Actually go "draw" the chart to the printer. */
+  FRedraw();    // Actually go "draw" the chart to the printer.
 
-  /* Restore globals that were temporarily changed to print above. */
+  // Restore globals that were temporarily changed to print above.
   wi.hdcPrint = hdcNil;
   wi.xClient = xClient; wi.yClient = yClient;
   if (us.fGraphics) {
@@ -886,7 +562,7 @@ flag API DlgPrint()
     gs.fInverse = fInverse;
   }
 
-  /* Finalize and cleanup everything. */
+  // Finalize and cleanup everything.
   if (!wi.fAbort) {
     EndPage(hdc);
     EndDoc(hdc);
@@ -1161,7 +837,7 @@ flag API DlgDefault(HWND hdlg, uint message, WORD wParam, LONG lParam)
       GetEdit(dcDeZon, sz); ci.zon = RParseSz(sz, pmZon);
       GetEdit(dcDeLon, sz); ci.lon = RParseSz(sz, pmLon);
       GetEdit(dcDeLat, sz); ci.lat = RParseSz(sz, pmLat);
-      GetEdit(dcDeCor, sz); us.lTimeAddition = atol(sz);
+      GetEdit(dcDeCor, sz); us.lTimeAddition = NFromSz(sz);
       GetEdit(dcDeElv, sz); us.elvDef = RParseSz(sz, pmElv);
       EnsureR(ci.dst, FValidZon(ci.dst), "daylight saving");
       EnsureR(ci.zon, FValidZon(ci.zon), "time zone");
@@ -1715,7 +1391,7 @@ flag API DlgDisplay(HWND hdlg, uint message, WORD wParam, LONG lParam)
     SetCheck(dxDi_YO, us.fSmartSave);
     SetCheck(dxDi_kh, us.fTextHTML);
     SetCheck(dxDi_Yo, us.fWriteOld);
-    SetCheck(dxDi_YXf, gs.fFont);
+    SetCheck(dxDi_YXf, gs.nFont > 0);
     SetEdit(deDi_YXp0_x, SzLength(gs.xInch));
     SetEdit(deDi_YXp0_y, SzLength(gs.yInch));
     SetRadio(gs.nOrient == 0 ? dr03 : (gs.nOrient > 0 ? dr01 : dr02),
@@ -1751,7 +1427,7 @@ flag API DlgDisplay(HWND hdlg, uint message, WORD wParam, LONG lParam)
       us.fSmartSave = GetCheck(dxDi_YO);
       us.fTextHTML = GetCheck(dxDi_kh);
       us.fWriteOld = GetCheck(dxDi_Yo);
-      gs.fFont = GetCheck(dxDi_YXf);
+      gs.nFont = GetCheck(dxDi_YXf) * gi.nFontPrev;
       GetEdit(deDi_YXp0_x, sz); gs.xInch = RParseSz(sz, pmLength);
       GetEdit(deDi_YXp0_y, sz); gs.yInch = RParseSz(sz, pmLength);
       gs.nOrient = GetCheck(dr03) ? 0 : (GetCheck(dr01) ? 1 : -1);
@@ -2055,7 +1731,7 @@ flag API DlgChart(HWND hdlg, uint message, WORD wParam, LONG lParam)
 flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
 {
   char sz[cchSzMax];
-  int nx, ny, ns, nS, ng, nwn, nx1, nyxv, is;
+  int nx, ny, ns, nS, ng, nwn, nxz, nx1, nyxv, is;
   real rxw, rxg;
 
   switch (message) {
@@ -2075,6 +1751,10 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
     SetCheck(dxGr_XP0, gs.fSouth);
     SetCheck(dxGr_XW0, gs.fMollewide);
     SetEditN(deGr_WN, wi.nTimerDelay);
+    if (gs.objTrack >= 0)
+      SetEdit(deGr_XZ, szObjName[gs.objTrack]);
+    else
+      SetEdit(deGr_XZ, "None");
     SetRadio(gs.objLeft > 0 ? dr02 :
       (gs.objLeft < 0 ? dr03 : dr01), dr01, dr03);
     SetEdit(deGr_X1, szObjName[gs.objLeft == 0 ? oSun : NAbs(gs.objLeft)-1]);
@@ -2082,9 +1762,13 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
     SetCheck(dxGr_Wn, wi.fNoUpdate);
     SetRadio(dr04 + (gs.nGlyphs/1000 == 2), dr04, dr05);
     SetRadio(dr06 + ((gs.nGlyphs/100)%10 == 2), dr06, dr07);
-    SetRadio(dr08 + ((gs.nGlyphs/10)%10 -1), dr08, dr10);
+    SetRadio(dr08 + ((gs.nGlyphs/10)%10 - 1), dr08, dr10);
     SetRadio(dr11 + (gs.nGlyphs%10 == 2), dr11, dr12);
     SetRadio(dr13 + gs.nDecaType, dr13, dr15);
+    SetRadio(dr16 + (gs.nFont/1000)%10, dr16, dr20);
+    SetRadio(dr21 + Max((gs.nFont/100)%10 - 3, 0), dr21, dr22);
+    SetRadio(dr23 + Max((gs.nFont/10)%10 - 1, 0), dr23, dr26);
+    SetRadio(dr27 + Max(gs.nFont%10 - 1, 0), dr27, dr30);
     SetEditN(deGr_YXv, gs.nDecaSize);
     SetFocus(GetDlgItem(hdlg, deGr_Xw_x));
     return fTrue;
@@ -2099,6 +1783,7 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
       rxw = GetEditR(hdlg, deGr_XW);
       rxg = GetEditR(hdlg, deGr_XG);
       nwn = GetEditN(deGr_WN);
+      GetEdit(deGr_XZ, sz); nxz = NParseSz(sz, pmObject);
       nyxv = GetEditN(deGr_YXv);
       GetEdit(deGr_X1, sz); nx1 = NParseSz(sz, pmObject);
       EnsureN(nx, FValidGraphx(nx), "horizontal size");
@@ -2109,6 +1794,7 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
       EnsureR(rxw, FValidRotation(rxw), "horizontal rotation");
       EnsureR(rxg, FValidTilt(rxg), "vertical tilt");
       EnsureN(nwn, FValidTimer(nwn), "animation delay");
+      EnsureN(nxz, FItem(nxz) || nxz == -1, "telescope planet");
       EnsureN(nx1, FItem(nx1), "rotation planet");
       EnsureN(nyxv, FValidDecaSize(nyxv), "wheel corners coverage");
       if (gs.xWin != nx || gs.yWin != ny) {
@@ -2130,6 +1816,7 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
       gs.fSouth = GetCheck(dxGr_XP0);
       gs.fMollewide = GetCheck(dxGr_XW0);
       gs.fAnimMap = GetCheck(dxGr_XN);
+      gs.objTrack = nxz;
       wi.fNoUpdate = GetCheck(dxGr_Wn);
       gs.nGlyphs = (GetCheck(dr04) ? 1 : 2) * 1000 +
         (GetCheck(dr06) ? 1 : 2) * 100 + 
@@ -2137,6 +1824,13 @@ flag API DlgGraphics(HWND hdlg, uint message, WORD wParam, LONG lParam)
         (GetCheck(dr11) ? 1 : 2);
       gs.nDecaType = GetCheck(dr13) ? 0 : (GetCheck(dr14) ? 1 : 2);
       gs.nDecaSize = nyxv;
+      gs.nFont = (GetCheck(dr17) ? 1000 : (GetCheck(dr18) ? 2000 :
+        (GetCheck(dr19) ? 3000 : GetCheck(dr20) ? 4000 : 0))) +
+        (GetCheck(dr22) ? 400 : 0) + (GetCheck(dr24) ? 20 :
+        (GetCheck(dr25) ? 30 : (GetCheck(dr26) ? 40 : 0))) + (GetCheck(dr28) ?
+        2 : (GetCheck(dr29) ? 3 : (GetCheck(dr30) ? 4 : 0)));
+      if (gs.nFont != 0)
+        gi.nFontPrev = gs.nFont;
       us.fGraphics = wi.fRedraw = wi.fMenuAll = fTrue;
     }
     if (wParam == IDOK || wParam == IDCANCEL) {
diff --git a/wdriver.cpp b/wdriver.cpp
index 50613d3..7abe673 100644
--- a/wdriver.cpp
+++ b/wdriver.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: wdriver.cpp
+** Astrolog (Version 7.10) File: wdriver.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -68,46 +68,37 @@
 int NProcessSwitchesW(int argc, char **argv, int pos,
   flag fOr, flag fAnd, flag fNot)
 {
-  int darg = 0, i;
+  int darg = 0, xo, yo, i;
   char sz[cchSzDef], ch1, ch2;
+  RECT rc;
 
   ch1 = argv[0][pos+1];
   ch2 = ch1 != chNull ? argv[0][pos+2] : chNull;
   switch (argv[0][pos]) {
   case chNull:
-    if (argc <= 1) {
-      ErrorArgc("W");
+    if (FErrorArgc("W", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
+    i = NFromSz(argv[1]);
     PostMessage(wi.hwnd, WM_COMMAND, i, 0L);
     darg++;
     break;
 
   case 'N':
-    if (argc <= 1) {
-      ErrorArgc("WN");
+    if (FErrorArgc("WN", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidTimer(i)) {
-      ErrorValN("WN", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("WN", !FValidTimer(i), i, 0))
       return tcError;
-    }
     wi.nTimerDelay = i;
     darg++;
     break;
 
   case 'M':
-    if (argc <= 2) {
-      ErrorArgc("WM");
+    if (FErrorArgc("WM", argc, 2))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidMacro(i)) {
-      ErrorValN("WM", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("WM", !FValidMacro(i), i, 1))
       return tcError;
-    }
     i--;
     sprintf(sz, "%s\t%sF%d", argv[2], i < 12 ? "" : (i < 24 ? "Shift+" :
       (i < 36 ? "Ctrl+" : "Alt+")), i % 12 + 1);
@@ -128,13 +119,22 @@ int NProcessSwitchesW(int argc, char **argv, int pos,
     SwitchF(wi.fNoPopup);
     break;
 
+  case 'w':
+    if (FErrorArgc("Ww", argc, 2))
+      return tcError;
+    GetWindowRect(wi.hwnd, &rc);
+    xo = NFromSz(argv[1]);
+    yo = NFromSz(argv[2]);
+    SetWindowPos(wi.hwnd, HWND_NOTOPMOST, xo, yo,
+      rc.right - rc.left, rc.bottom - rc.top, 0);
+    darg += 2;
+    break;
+
   case 'B':
-    if (argc <= 2) {
-      ErrorArgc("WB");
+    if (FErrorArgc("WB", argc, 2))
       return tcError;
-    }
-    wi.xScroll = max(0, min(atoi(argv[1]), nScrollDiv));
-    wi.yScroll = max(0, min(atoi(argv[2]), nScrollDiv));
+    wi.xScroll = max(0, min(NFromSz(argv[1]), nScrollDiv));
+    wi.yScroll = max(0, min(NFromSz(argv[2]), nScrollDiv));
     SetScrollPos(wi.hwnd, SB_HORZ, wi.xScroll, fTrue);
     SetScrollPos(wi.hwnd, SB_VERT, wi.yScroll, fTrue);
     darg += 2;
@@ -171,7 +171,7 @@ int NProcessSwitchesW(int argc, char **argv, int pos,
     ErrorSwitch(argv[0]);
     return tcError;
   }
-  /* 'darg' contains the value to be added to argc when we return. */
+  // 'darg' contains the value to be added to argc when we return.
   return darg;
 }
 
@@ -221,12 +221,12 @@ void SetRel(int rc)
 {
   CI ciT;
 
-  if (us.nRel == rcMidpoint) {  /* Restore chart when leave midpoint mode. */
+  if (us.nRel == rcMidpoint) {  // Restore chart when leave midpoint mode.
     ciT = ciMain;
     ciCore = ciMain = ciSave;
     ciSave = ciT;
   }
-  if (rc == rcMidpoint)         /* Remember chart so can restore it later. */
+  if (rc == rcMidpoint)         // Remember chart so can restore it later.
     ciSave = ciMain;
   us.nRel = rc;
   RadioMenu(cmdRelBiorhythm, cmdRelTransit, CmdFromRc(rc));
@@ -267,6 +267,7 @@ void DoPopup(int imenu, HWND hwnd, LPARAM lParam)
     break;
   case menuZ:
     CheckPopup(cmdChartModify,     us.fPrimeVert);
+    CheckPopup(cmdConstellation,   gs.fConstel);
     CheckPopup(cmdHouseSet3D,      !us.fHouse3D);
     CheckPopup(cmdGraphicsAllStar, gs.fAllStar);
     CheckPopup(cmdHouseSetVedic,   us.fVedic);
@@ -322,11 +323,19 @@ void DoPopup(int imenu, HWND hwnd, LPARAM lParam)
     CheckPopup(cmdGraphicsLabel,   gs.fLabel);
     CheckPopup(cmdGraphicsEquator, !gs.fEquator);
     break;
+  case menuN:
+    CheckPopup(cmdHouseSetVedic,   !us.fVedic);
+    CheckPopup(cmdGraphicsEquator, gs.fEquator);
+    CheckPopup(cmdGraphicsHouse,   gs.fHouseExtra);
+    CheckPopup(cmdGraphicsCity,    !gs.fLabelCity);
+    CheckPopup(cmdGraphicsAspect,  gs.fLabelAsp);
+    CheckPopup(cmdGraphicsModify,  !gs.fAlt);
+    break;
   case menuD:
     CheckPopup(cmdChartModify,    us.fGraphAll);
     CheckPopup(cmdGraphicsModify, !gs.fAlt);
     break;
-  case menuX:
+  case menuXX:
     CheckPopup(cmdChartModify,     gs.fSouth);
     CheckPopup(cmdGraphicsModify,  gs.fAlt);
     CheckPopup(cmdHouseSetVedic,   !us.fVedic);
@@ -338,7 +347,7 @@ void DoPopup(int imenu, HWND hwnd, LPARAM lParam)
     CheckPopup(cmdGraphicsAllStar, gs.fAllStar);
     CheckPopup(cmdGraphicsAxis,    gs.fEcliptic);
     break;
-  case menuG:
+  case menuXG:
     CheckPopup(cmdGraphicsModify,  !gs.fAlt);
     CheckPopup(cmdConstellation,   gs.fConstel);
     CheckPopup(cmdGraphicsHouse,   gs.fHouseExtra);
@@ -348,6 +357,20 @@ void DoPopup(int imenu, HWND hwnd, LPARAM lParam)
     CheckPopup(cmdGraphicsCity,    gs.fLabelCity);
     CheckPopup(cmdGraphicsAspect,  gs.fLabelAsp);
     break;
+  case menuXZ:
+    CheckPopup(cmdConstellation,   gs.fConstel);
+    CheckPopup(cmdHouseSetVedic,   us.fVedic);
+    CheckPopup(cmdGraphicsHouse,   gs.fHouseExtra);
+    CheckPopup(cmdHouseSet3D,      !us.fHouse3D);
+    CheckPopup(cmdGraphicsEquator, gs.fEquator);
+    CheckPopup(cmdGraphicsAspect,  !gs.fLabelAsp);
+    CheckPopup(cmdChartModify,     !us.fLatitudeCross);
+    CheckPopup(cmdGraphicsLabel,   gs.fLabel);
+    CheckPopup(cmdGraphicsModify,  !gs.fAlt);
+    CheckPopup(cmdGraphicsAllStar, gs.fAllStar);
+    CheckPopup(cmdGraphicsCity,    gs.fLabelCity);
+    CheckPopup(cmdGraphicsAxis,    gs.fEcliptic);
+    break;
   }
 
   TrackPopupMenu(hmenu, TPM_RIGHTBUTTON, pt.x, pt.y, 0, hwnd, NULL);
@@ -369,7 +392,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
   char sz[cchSzMax];
 #endif
 
-  /* Set up the window class shared by all instances of Astrolog. */
+  // Set up the window class shared by all instances of Astrolog.
 
   wi.hinst = hInstance;
   if (!hPrevInstance) {
@@ -390,7 +413,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
     }
   }
 
-  /* Create the actual window to be used and drawn on by this instance. */
+  // Create the actual window to be used and drawn on by this instance.
 
   wi.hmenu = LoadMenu(wi.hinst, MAKEINTRESOURCE(menu));
 #ifndef PS
@@ -444,7 +467,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
     return -1L;
   }
 
-  /* Set up some globals that can't be initialized at compile time. */
+  // Set up some globals that can't be initialized at compile time.
 
   CoInitialize(NULL);
   InitProgram();
@@ -461,7 +484,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
     ch = lpszCmdLine[1];
     if (ch == 's') {
       wi.fSaverRun = fTrue;
-      inv(us.fSidereal);    // Because "/s" will also toggle -s switch.
+      inv(us.fSidereal);     // Because "/s" will also toggle -s switch.
     } else if (ch == 'c' || ch == 'a')
       wi.fSaverCfg = fTrue;
     else if (ch == 'p')
@@ -474,13 +497,13 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
     }
   }
 
-  /* Process the astrolog.as file and the Windows command line. */
+  // Process the astrolog.as file and the Windows command line.
 
   FProcessSwitchFile(DEFAULT_INFOFILE, NULL);
   FProcessCommandLine(lpszCmdLine);
   ciTran = ciFour = ciThre = ciTwin = ciCore;
 
-  /* Actually bring up and display the window for the first time. */
+  // Actually bring up and display the window for the first time.
 
   ResizeWindowToChart();
   ShowWindow(wi.hwndMain, nCmdShow);
@@ -501,7 +524,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
   PrintWarning(sz);
 #endif
 
-  /* Process window messages until the program is told to terminate. */
+  // Process window messages until the program is told to terminate.
 
   while (GetMessage(&msg, (HWND)NULL, 0, 0)) {
     if (!TranslateAccelerator(wi.hwndMain, wi.haccel, &msg))
@@ -510,7 +533,7 @@ int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
   }
   wi.hwndMain = NULL;
 
-  /* Cleanup and exit Astrolog for Windows. */
+  // Cleanup and exit Astrolog for Windows.
 
   FinalizeProgram();
   if (wi.hMutex != NULL)
@@ -529,12 +552,12 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
   HPEN hpen, hpenOld;
   HBRUSH hbr;
   RECT rc;
-  int x, y;
+  int iParam, x, y;
 
   wi.hwnd = hwnd;
   switch (wMsg) {
 
-    /* A command, most likely a menu option, was given. */
+    // A command, most likely a menu option, was given.
 
     case WM_COMMAND:
       if (wi.fSaverRun)
@@ -545,32 +568,45 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       case -1:
         return DefWindowProc(hwnd, wMsg, wParam, lParam);
       default:
+        iParam = (int)wParam & 0xFFFF;
+        wi.fSkipSystem = (iParam == cmdMacro40/*Alt+F4*/);
         ProcessState();
       }
       break;
 
-    /* When a part of a window is uncovered, Windows quickly blanks it out, */
-    /* usually with white, before having the app redraw that section. Most  */
-    /* apps don't do anything here, however Astrolog can quickly draw with  */
-    /* a more appropriate color since we know our chart's background color. */
+    // A special system command was given. Suppress its action if it was
+    // invoked by a hotkey which ran a macro, to avoid both effects happening.
+
+    case WM_SYSCOMMAND:
+      iParam = (int)wParam & 0xFFF0;
+      if (wi.fSkipSystem && (iParam == SC_KEYMENU || iParam == SC_CLOSE)) {
+        wi.fSkipSystem = fFalse;
+        break;
+      }
+      return DefWindowProc(hwnd, wMsg, wParam, lParam);
+
+    // When a part of a window is uncovered, Windows quickly blanks it out,
+    // usually with white, before having the app redraw that section. Most
+    // apps don't do anything here, however Astrolog can quickly draw with
+    // a more appropriate color since we know our chart's background color.
 
     case WM_ERASEBKGND:
       if (!(wi.fNoUpdate & 1) && !wi.fBuffer) {
         GetClipBox((HDC)wParam, &rc);
-        hbr = CreateSolidBrush(rgbbmp[gs.fInverse ? kWhite : kBlack]);
+        hbr = CreateSolidBrush(rgbbmp[gi.kiOff]);
         FillRect((HDC)wParam, &rc, hbr);
         DeleteObject(hbr);
       }
       return fTrue;
 
-    /* The window was just created. Setup the scrollbars. */
+    // The window was just created. Setup the scrollbars.
 
     case WM_CREATE:
       SetScrollRange(hwnd, SB_HORZ, 0, nScrollDiv, fFalse);
       SetScrollRange(hwnd, SB_VERT, 0, nScrollDiv, fFalse);
       break;
 
-    /* The window has been resized. Change the chart size if need be. */
+    // The window has been resized. Change the chart size if need be.
 
     case WM_SIZE:
       wi.xClient = LOWORD(lParam);
@@ -580,14 +616,14 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       }
       break;
 
-    /* All or part of the window needs to be redrawn. Go do so. */
+    // All or part of the window needs to be redrawn. Go do so.
 
     case WM_PAINT:
       if (!(wi.fNoUpdate & 1))
         FRedraw();
       break;
 
-    /* The mouse has been left clicked or dragged over the window. */
+    // The mouse has been left clicked or dragged over the window.
 
     case WM_LBUTTONDOWN:
     case WM_MOUSEMOVE:
@@ -607,10 +643,12 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
           break;
         }
 
-        /* Dragging with right mouse down rotates and tilts globes. */
+        // Dragging with right mouse down rotates and tilts globes.
         if ((wParam & MK_RBUTTON) != 0 && us.fGraphics && (fMap ||
-          gi.nMode == gSphere || gi.nMode == gGlobe || gi.nMode == gPolar)) {
-          gs.rRot += (real)(x-WLo(wi.lParamRC)) * rDegHalf / (real)gs.xWin;
+          gi.nMode == gLocal || gi.nMode == gSphere || gi.nMode == gGlobe ||
+          gi.nMode == gPolar || gi.nMode == gTelescope)) {
+          gs.rRot += (real)(x-WLo(wi.lParamRC)) * rDegHalf / (real)gs.xWin *
+            (gi.nMode == gLocal || gi.nMode == gTelescope ? -1 : 1);
           gs.rTilt += (real)(y-WHi(wi.lParamRC)) * rDegHalf / (real)gs.yWin *
             (gi.nMode == gGlobe ? -1 : 1);
           while (gs.rRot >= rDegMax)
@@ -621,6 +659,8 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
             gs.rTilt = rDegQuad;
           while (gs.rTilt < -rDegQuad)
             gs.rTilt = -rDegQuad;
+          if (gi.nMode == gLocal || gi.nMode == gTelescope)
+            gs.objTrack = -1;
           wi.lParamRC = lParam;
           wi.fRedraw = fTrue;
           wi.fMoved = fTrue;
@@ -628,7 +668,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
           break;
         }
 
-        /* Treat dragging with left mouse down as a Shift+left click. */
+        // Treat dragging with left mouse down as a Shift+left click.
         if ((wParam & MK_LBUTTON) == 0 ||
           (wParam & MK_SHIFT) || (wParam & MK_CONTROL))
           break;
@@ -637,7 +677,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       if (wi.fSaverRun)
         goto LClose;
 
-      /* Alt+click on a world map chart means relocate the chart there. */
+      // Alt+click on a world map chart means relocate the chart there.
       if (wMsg == WM_LBUTTONDOWN && GetKeyState(VK_MENU) < 0) {
         if (fMap && !gs.fConstel && !gs.fMollewide) {
           Lon = rDegHalf -
@@ -662,7 +702,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       hpen = (HPEN)CreatePen(PS_SOLID, 0, (COLORREF)rgbbmp[wi.kiPen]);
       hpenOld = (HPEN)SelectObject(hdc, hpen);
 
-      /* Ctrl+click means draw a rectangle. Ctrl+Shift+click does ellipse. */
+      // Ctrl+click means draw a rectangle. Ctrl+Shift+click does ellipse.
       if (wParam & MK_CONTROL) {
         SelectObject(hdc, GetStockObject(NULL_BRUSH));
         if (wParam & MK_SHIFT)
@@ -670,7 +710,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
         else
           Rectangle(hdc, wi.xMouse, wi.yMouse, x, y);
 
-      /* Shift+click means draw a line from the last to current position. */
+      // Shift+click means draw a line from the last to current position.
       } else if (wParam & MK_SHIFT) {
         if (wi.xMouse >= 0) {
           MoveTo(hdc, wi.xMouse, wi.yMouse);
@@ -680,7 +720,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
           }
         }
 
-      /* A simple click means set a pixel and remember that location. */
+      // A simple click means set a pixel and remember that location.
       } else {
         SetPixel(hdc, x, y, (COLORREF)rgbbmp[wi.kiPen]);
         wi.xMouse = x; wi.yMouse = y;
@@ -690,15 +730,15 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       ReleaseDC(hwnd, hdc);
       break;
 
-    /* The mouse has been right clicked on the window. */
+    // The mouse has been right clicked on the window.
 
     case WM_RBUTTONDOWN:
       if (wi.fSaverRun)
         goto LClose;
       wi.fMoved = fFalse;
       if (us.fGraphics) {
-        if (fMap ||
-          gi.nMode == gSphere || gi.nMode == gGlobe || gi.nMode == gPolar)
+        if (fMap || gi.nMode == gLocal || gi.nMode == gSphere ||
+          gi.nMode == gGlobe || gi.nMode == gPolar || gi.nMode == gTelescope)
           wi.lParamRC = lParam;
         // Most graphics modes show popup right when mouse button clicked.
         if (gi.nMode == gWheel || gi.nMode == gHouse)
@@ -724,32 +764,37 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       }
       break;
 
-    /* The right mouse button was clicked, but has now been lifted. */
+    // The right mouse button was clicked, but has now been lifted.
 
     case WM_RBUTTONUP:
       if (!wi.fMoved && us.fGraphics) {
-        // Some graphics modes can't show popup until mouse button lifted.
+        // Some graphics modes can't show popup until mouse button lifted,
+        // because can click and drag right mouse in window to rotate chart.
         if (gi.nMode == gAstroGraph)
           DoPopup(menuL, hwnd, lParam);
+        else if (gi.nMode == gLocal)
+          DoPopup(menuN, hwnd, lParam);
+        else if (gi.nMode == gTelescope)
+          DoPopup(menuXZ, hwnd, lParam);
         else if (gi.nMode == gSphere)
-          DoPopup(menuX, hwnd, lParam);
+          DoPopup(menuXX, hwnd, lParam);
         else if (gi.nMode == gWorldMap || gi.nMode == gGlobe ||
           gi.nMode == gPolar)
-          DoPopup(menuG, hwnd, lParam);
+          DoPopup(menuXG, hwnd, lParam);
       }
       break;
 
-    /* A timer message is received at a defined regular interval. */
+    // A timer message is received at a defined regular interval.
 
     case WM_TIMER:
       if (gs.nAnim < 1 || wi.fPause)
         break;
-      Animate(gs.nAnim, wi.nDir);  /* Update chart if animation mode on. */
+      Animate(gs.nAnim, wi.nDir);  // Update chart if animation mode on.
       wi.fRedraw = fTrue;
       ProcessState();
       break;
 
-    /* Define the minimum and maximum size the window may be resized to. */
+    // Define the minimum and maximum size the window may be resized to.
 
     case WM_GETMINMAXINFO:
       ((MINMAXINFO FAR *)lParam)->ptMinTrackSize.x = BITMAPX1;
@@ -758,7 +803,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       ((MINMAXINFO FAR *)lParam)->ptMaxTrackSize.y = BITMAPY;
       break;
 
-    /* The horizontal scrollbar was clicked on or used in some way. */
+    // The horizontal scrollbar was clicked on or used in some way.
 
     case WM_HSCROLL:
       if (wi.fSaverRun)
@@ -797,7 +842,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       ProcessState();
       break;
 
-    /* The vertical scrollbar was clicked on or used in some way. */
+    // The vertical scrollbar was clicked on or used in some way.
 
     case WM_VSCROLL:
       if (wi.fSaverRun)
@@ -836,7 +881,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
       ProcessState();
       break;
 
-    /* The window is being terminated. Clean up and free program data. */
+    // The window is being terminated. Clean up and free program data.
 
     case WM_CLOSE:
 LClose:
@@ -852,7 +897,7 @@ LRESULT API WndProc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
         PostQuitMessage(0);
       break;
 
-    /* Messages not processed here are handled by Windows in a default way. */
+    // Messages not processed here are handled by Windows in a default way.
 
     default:
       return DefWindowProc(hwnd, wMsg, wParam, lParam);
@@ -868,11 +913,11 @@ void ProcessState()
 {
   int cmd;
 
-  if (wi.fCast)            /* Recasting a chart implies redrawing it too. */
+  if (wi.fCast)            // Recasting a chart implies redrawing it too.
     wi.fRedraw = fTrue;
 
-  /* If the chart type was changed, clear all the setting flags, then set */
-  /* the appropriate core switch settings based on the new chart type.    */
+  // If the chart type was changed, clear all the setting flags, then set the
+  // appropriate core switch settings based on the new chart type.
 
   if (wi.nMode) {
     ClearB((pbyte)&us.fListing,
@@ -890,10 +935,12 @@ void ProcessState()
       case gSector:     us.fSector     = fTrue; break;
       case gAstroGraph: us.fAstroGraph = fTrue; break;
       case gEphemeris:  us.fEphemeris  = fTrue; break;
-      case gSphere:     gi.nMode = gSphere;   break;
-      case gWorldMap:   gi.nMode = gWorldMap; break;
-      case gGlobe:      gi.nMode = gGlobe;    break;
-      case gPolar:      gi.nMode = gPolar;    break;
+      case gLocal:      us.fAtlasNear  = fTrue; break;
+      case gSphere:     gi.nMode = gSphere;    break;
+      case gWorldMap:   gi.nMode = gWorldMap;  break;
+      case gGlobe:      gi.nMode = gGlobe;     break;
+      case gPolar:      gi.nMode = gPolar;     break;
+      case gTelescope:  gi.nMode = gTelescope; break;
       case gCalendar:   us.fCalendar   = fTrue; break;
       case gDisposit:   us.fInfluence  = fTrue; break;
       case gEsoteric:   us.fEsoteric   = fTrue; break;
@@ -931,15 +978,15 @@ void ProcessState()
     wi.fRedraw = fTrue;
   }
 
-  if (wi.fMenuAll) {       /* Redetermine all menu checks if need be. */
+  if (wi.fMenuAll) {       // Redetermine all menu checks if need be.
     RedoMenu();
     wi.fMenu = fTrue;
   }
-  if (wi.fMenu) {          /* Update menu if we added/removed check marks. */
+  if (wi.fMenu) {          // Update menu if we added/removed check marks.
     DrawMenuBar(wi.hwnd);
     wi.fMenu = fFalse;
   }
-  if (wi.fRedraw)    /* Send the window a redraw message if need be. */
+  if (wi.fRedraw)          // Send the window a redraw message if need be.
     RedrawWindow(wi.hwnd, NULL, (HRGN)NULL, RDW_INVALIDATE);
 }
 
@@ -963,7 +1010,7 @@ int NWmCommand(WORD wCmd)
   fGraphics = us.fGraphics;
   switch (wCmd) {
 
-  /* File Menu */
+  // File Menu
 
   case cmdFileExit:
     return 1;
@@ -1012,7 +1059,7 @@ int NWmCommand(WORD wCmd)
     prd.Flags = l;
     break;
 
-  /* Edit Menu */
+  // Edit Menu
 
   case cmdCommand:
     WiDoDialog(DlgCommand, dlgCommand);
@@ -1050,7 +1097,7 @@ int NWmCommand(WORD wCmd)
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  /* View Menu */
+  // View Menu
 
   case cmdGraphics:
     inv(us.fGraphics);
@@ -1189,7 +1236,7 @@ int NWmCommand(WORD wCmd)
     wi.fRedraw = fTrue;
     break;
 
-  /* Info Menu */
+  // Info Menu
 
   case cmdSetInfo:
     wi.nDlgChart = 1;
@@ -1254,7 +1301,7 @@ int NWmCommand(WORD wCmd)
     SetRel(rcProgress);
     break;
 
-  /* Settings Menu */
+  // Settings Menu
 
   case cmdSidereal:
     inv(us.fSidereal);
@@ -1414,7 +1461,7 @@ int NWmCommand(WORD wCmd)
     WiDoDialog(DlgDisplay, dlgDisplay);
     break;
 
-  /* Chart Menu */
+  // Chart Menu
 
   case cmdChartList:
     wi.nMode = gWheel;
@@ -1489,6 +1536,10 @@ int NWmCommand(WORD wCmd)
     us.fGraphics = fFalse;
     break;
 
+  case cmdChartLocal:
+    wi.nMode = gLocal;
+    break;
+
   case cmdProgress:
     WiDoDialog(DlgProgress, dlgProgress);
     break;
@@ -1501,7 +1552,7 @@ int NWmCommand(WORD wCmd)
     WiDoDialog(DlgChart, dlgChart);
     break;
 
-  /* Graphics Menu */
+  // Graphics Menu
 
   case cmdChartSphere:
     wi.nMode = gSphere;
@@ -1523,62 +1574,53 @@ int NWmCommand(WORD wCmd)
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-#ifdef CONSTEL
-  case cmdConstellation:
-    if (gi.nMode != gSphere && gi.nMode != gGlobe && gi.nMode != gPolar)
-      wi.nMode = gWorldMap;
-    inv(gs.fConstel);
-    WiCheckMenu(cmdConstellation, gs.fConstel);
-    us.fGraphics = wi.fRedraw = fTrue;
-    break;
-#endif
-
-  case cmdGraphicsAllStar:
-    inv(gs.fAllStar);
-    WiCheckMenu(cmdGraphicsAllStar, gs.fAllStar);
+  case cmdChartTelescope:
+    wi.nMode = gTelescope;
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsHouse:
-    inv(gs.fHouseExtra);
-    WiCheckMenu(cmdGraphicsHouse, gs.fHouseExtra);
-    wi.fCast = fTrue;
-    break;
-
-  case cmdGraphicsEquator:
-    inv(gs.fEquator);
-    WiCheckMenu(cmdGraphicsEquator, gs.fEquator);
-    us.fGraphics = wi.fRedraw = fTrue;
+  case cmdGraphicsReverse:
+    inv(gs.fInverse);
+    WiCheckMenu(cmdGraphicsReverse, gs.fInverse);
+    wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsAxis:
-    inv(gs.fEcliptic);
-    WiCheckMenu(cmdGraphicsAxis, gs.fEcliptic);
+  case cmdGraphicsMonochrome:
+    inv(gs.fColor);
+    WiCheckMenu(cmdGraphicsMonochrome, !gs.fColor);
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsAspect:
-    inv(gs.fLabelAsp);
-    WiCheckMenu(cmdGraphicsAspect, gs.fLabelAsp);
+  case cmdGraphicsSquare:
+    SquareX(&gs.xWin, &gs.yWin, fTrue);
+    ResizeWindowToChart();
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsCity:
-    inv(gs.fLabelCity);
-    WiCheckMenu(cmdGraphicsCity, gs.fLabelCity);
-    us.fGraphics = wi.fRedraw = fTrue;
+  case cmdScale1:
+  case cmdScale2:
+  case cmdScale3:
+  case cmdScale4:
+    gs.nScale = (int)(wCmd - cmdScale1) + 1;
+    gs.nScale *= 100;
+    WiRadioMenu(cmdScale1, cmdScale2, wCmd);
+    wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsReverse:
-    inv(gs.fInverse);
-    WiCheckMenu(cmdGraphicsReverse, gs.fInverse);
-    wi.fRedraw = fTrue;
+  case cmdScaleDecrease:
+    if (gs.nScale > 100) {
+      gs.nScale -= 100;
+      WiRadioMenu(cmdScale1, cmdScale4, cmdScale1 + gs.nScale/100 - 1);
+      wi.fRedraw = fTrue;
+    }
     break;
 
-  case cmdGraphicsMonochrome:
-    inv(gs.fColor);
-    WiCheckMenu(cmdGraphicsMonochrome, !gs.fColor);
-    us.fGraphics = wi.fRedraw = fTrue;
+  case cmdScaleIncrease:
+    if (gs.nScale < MAXSCALE) {
+      gs.nScale += 100;
+      WiRadioMenu(cmdScale1, cmdScale4, cmdScale1 + gs.nScale/100 - 1);
+      wi.fRedraw = fTrue;
+    }
     break;
 
   case cmdGraphicsBorder:
@@ -1612,40 +1654,55 @@ int NWmCommand(WORD wCmd)
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdGraphicsSquare:
-    SquareX(&gs.xWin, &gs.yWin, fTrue);
-    ResizeWindowToChart();
+  case cmdGraphicsAspect:
+    inv(gs.fLabelAsp);
+    WiCheckMenu(cmdGraphicsAspect, gs.fLabelAsp);
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdScale1:
-  case cmdScale2:
-  case cmdScale3:
-  case cmdScale4:
-    gs.nScale = (int)(wCmd - cmdScale1) + 1;
-    gs.nScale *= 100;
-    WiRadioMenu(cmdScale1, cmdScale2, wCmd);
-    wi.fRedraw = fTrue;
+#ifdef CONSTEL
+  case cmdConstellation:
+    if (gi.nMode != gHorizon && gi.nMode != gSphere &&
+      gi.nMode != gGlobe && gi.nMode != gPolar && gi.nMode != gTelescope)
+      wi.nMode = gWorldMap;
+    inv(gs.fConstel);
+    WiCheckMenu(cmdConstellation, gs.fConstel);
+    us.fGraphics = wi.fRedraw = fTrue;
     break;
+#endif
 
-  case cmdScaleDecrease:
-    if (gs.nScale > 100) {
-      gs.nScale -= 100;
-      WiRadioMenu(cmdScale1, cmdScale4, cmdScale1 + gs.nScale/100 - 1);
-      wi.fRedraw = fTrue;
-    }
+  case cmdGraphicsAllStar:
+    inv(gs.fAllStar);
+    WiCheckMenu(cmdGraphicsAllStar, gs.fAllStar);
+    us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdScaleIncrease:
-    if (gs.nScale < MAXSCALE) {
-      gs.nScale += 100;
-      WiRadioMenu(cmdScale1, cmdScale4, cmdScale1 + gs.nScale/100 - 1);
-      wi.fRedraw = fTrue;
-    }
+  case cmdGraphicsHouse:
+    inv(gs.fHouseExtra);
+    WiCheckMenu(cmdGraphicsHouse, gs.fHouseExtra);
+    wi.fCast = fTrue;
+    break;
+
+  case cmdGraphicsEquator:
+    inv(gs.fEquator);
+    WiCheckMenu(cmdGraphicsEquator, gs.fEquator);
+    us.fGraphics = wi.fRedraw = fTrue;
+    break;
+
+  case cmdGraphicsCity:
+    inv(gs.fLabelCity);
+    WiCheckMenu(cmdGraphicsCity, gs.fLabelCity);
+    us.fGraphics = wi.fRedraw = fTrue;
+    break;
+
+  case cmdGraphicsAxis:
+    inv(gs.fEcliptic);
+    WiCheckMenu(cmdGraphicsAxis, gs.fEcliptic);
+    us.fGraphics = wi.fRedraw = fTrue;
     break;
 
   case cmdTiltZero:
-    if (gi.nMode != gSphere && gi.nMode != gGlobe)
+    if (gi.nMode != gTelescope && gi.nMode != gSphere && gi.nMode != gGlobe)
       wi.nMode = gGlobe;
     if (gs.rTilt != 0.0) {
       gs.rTilt = 0.0;
@@ -1655,46 +1712,63 @@ int NWmCommand(WORD wCmd)
     break;
 
   case cmdTiltNorth:
-    if (gi.nMode != gSphere && gi.nMode != gGlobe)
-      wi.nMode = gGlobe;
-    if (gs.rTilt > -rDegQuad) {
-      gs.rTilt -= (real)NAbs(wi.nDir);
-      if (gs.rTilt < -rDegQuad)
-        gs.rTilt = -rDegQuad;
-      wi.fRedraw = fTrue;
-    }
-    us.fGraphics = fTrue;
-    break;
-
   case cmdTiltSouth:
-    if (gi.nMode != gSphere && gi.nMode != gGlobe)
+    if (gi.nMode != gLocal &&
+      gi.nMode != gSphere && gi.nMode != gGlobe && gi.nMode != gTelescope)
       wi.nMode = gGlobe;
-    if (gs.rTilt < rDegQuad) {
-      gs.rTilt += (real)NAbs(wi.nDir);
-      if (gs.rTilt > rDegQuad)
-        gs.rTilt = rDegQuad;
-      wi.fRedraw = fTrue;
+    if (wCmd == cmdTiltNorth) {
+      if (gs.rTilt > -rDegQuad) {
+        gs.rTilt -= (real)NAbs(wi.nDir);
+        if (gs.rTilt < -rDegQuad)
+          gs.rTilt = -rDegQuad;
+        wi.fRedraw = fTrue;
+      }
+    } else {
+      if (gs.rTilt < rDegQuad) {
+        gs.rTilt += (real)NAbs(wi.nDir);
+        if (gs.rTilt > rDegQuad)
+          gs.rTilt = rDegQuad;
+        wi.fRedraw = fTrue;
+      }
     }
+    if (gi.nMode == gTelescope)
+      gs.objTrack = -1;
     us.fGraphics = fTrue;
     break;
 
   case cmdRotateWest:
-    if (gi.nMode != gAstroGraph && gi.nMode != gSphere &&
-      gi.nMode != gWorldMap && gi.nMode != gGlobe && gi.nMode != gPolar)
+  case cmdRotateEast:
+    if (gi.nMode != gLocal && gi.nMode != gAstroGraph &&
+      gi.nMode != gSphere && gi.nMode != gWorldMap && gi.nMode != gGlobe &&
+      gi.nMode != gPolar && gi.nMode != gTelescope)
       wi.nMode = gGlobe;
-    gs.rRot += (real)NAbs(wi.nDir);
-    if (gs.rRot >= rDegMax)
-      gs.rRot -= rDegMax;
+    if (wCmd == cmdRotateWest) {
+      gs.rRot += (real)NAbs(wi.nDir);
+      if (gs.rRot >= rDegMax)
+        gs.rRot -= rDegMax;
+    } else {
+      gs.rRot -= (real)NAbs(wi.nDir);
+      if (gs.rRot < 0)
+        gs.rRot += rDegMax;
+    }
+    if (gi.nMode == gTelescope)
+      gs.objTrack = -1;
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
-  case cmdRotateEast:
-    if (gi.nMode != gAstroGraph && gi.nMode != gSphere &&
-      gi.nMode != gWorldMap && gi.nMode != gGlobe && gi.nMode != gPolar)
-      wi.nMode = gGlobe;
-    gs.rRot -= (real)NAbs(wi.nDir);
-    if (gs.rRot < 0)
-      gs.rRot += rDegMax;
+  case cmdZoomOut:
+  case cmdZoomIn:
+    if (gi.nMode != gOrbit && gi.nMode != gLocal && gi.nMode != gTelescope)
+      wi.nMode = gOrbit;
+    if (gs.rspace < rSmall)
+      gs.rspace = (real)(1 << (4-gi.nScale/gi.nScaleT));
+    if (wCmd == cmdZoomIn) {
+      if (gs.rspace > 0.006)
+        gs.rspace /= 2.0;
+    } else {
+      if (gs.rspace < rDegQuad)
+        gs.rspace *= 2.0;
+    }
     us.fGraphics = wi.fRedraw = fTrue;
     break;
 
@@ -1742,7 +1816,7 @@ int NWmCommand(WORD wCmd)
     WiDoDialog(DlgGraphics, dlgGraphics);
     break;
 
-  /* Animate Menu */
+  // Animate Menu
 
   case cmdAnimateNo:
     neg(gs.nAnim);
@@ -1821,7 +1895,7 @@ int NWmCommand(WORD wCmd)
     wi.fCast = fTrue;
     break;
 
-  /* Help Menu */
+  // Help Menu
 
   case cmdDocDefault:
     BootExternal("Notepad", DEFAULT_INFOFILE);
@@ -1934,9 +2008,11 @@ int NWmCommand(WORD wCmd)
         FProcessCommandLine(szMacro[i]);
         wi.fCast = wi.fMenuAll = fTrue;
       } else if (i == 0/*F1*/ || i == 39/*Alt+F4*/) {
-        /* F1 shows help if macro not already defined for it. */
+        // F1 shows help if macro not already defined for it.
         if (i == 0)
           BootExternal(NULL, "astrolog.htm");
+        else if (i == 39)
+          return -1;
       } else {
         sprintf(sz, "Macro number %d is not defined.", i+1);
         PrintWarning(sz);
@@ -2019,7 +2095,8 @@ void API RedoMenu()
   wi.fMenuAll = fFalse;
 
   if (us.fGraphics)
-    nMode = DetectGraphicsChartMode();
+    nMode = FBetween(gi.nMode, gSphere, gTelescope) ? gi.nMode :
+      DetectGraphicsChartMode();
   else if (us.fCredit)     nMode = gCredit;
   else if (us.fSwitch)     nMode = gSwitch;
   else if (us.fSwitchRare) nMode = gObscure;
@@ -2046,6 +2123,7 @@ void API RedoMenu()
   else if (us.fEphemeris)  nMode = gEphemeris;
   else if (us.nArabic)     nMode = gArabic;
   else if (us.fHorizonSearch) nMode = gRising;
+  else if (us.fAtlasNear)  nMode = gLocal;
   else if (us.fInDay || us.fInDayInf || us.fInDayGra ||
     us.fTransit || us.fTransitInf || us.fTransitGra)
     nMode = gTraTraGra;
@@ -2093,7 +2171,7 @@ flag FFontInstalled(CONST char *sz)
 
 flag API FRedraw(void)
 {
-  /* Local variables used in drawing on the screen. */
+  // Local variables used in drawing on the screen.
   PAINTSTRUCT ps;
   HDC hdcWin;
   HCURSOR hcurOld;
@@ -2104,7 +2182,7 @@ flag API FRedraw(void)
   flag fSmartText = fFalse, fAnsiColor, fAnsiChar,
     fSmartHTML = fFalse, fInverse;
 
-  /* Local variables used for copying to the Windows clipboard. */
+  // Local variables used for copying to the Windows clipboard.
   HFILE hfile;
   LONG lSize, l;
   HGLOBAL hglobal, hmfp;
@@ -2138,7 +2216,7 @@ flag API FRedraw(void)
   }
 
   if (us.fGraphics) {
-    /* Set up a graphics chart. */
+    // Set up a graphics chart.
     if (wi.fWindowChart && wi.hdcPrint == hdcNil) {
       gs.xWin = wi.xClient; gs.yWin = wi.yClient;
     }
@@ -2146,7 +2224,7 @@ flag API FRedraw(void)
     gi.nScaleText = gs.nScaleText/100;
     gi.kiCur = -1;
   } else {
-    /* Set up a text chart. */
+    // Set up a text chart.
     SetWindowOrg(wi.hdc, 0, 0);
     SetWindowExt(wi.hdc, wi.xClient, wi.yClient);
     SetBkMode(wi.hdc, TRANSPARENT);
@@ -2161,7 +2239,7 @@ flag API FRedraw(void)
       DEFAULT_CHARSET, OUT_RASTER_PRECIS, CLIP_DEFAULT_PRECIS,
       DRAFT_QUALITY, FIXED_PITCH | FF_DONTCARE, "Terminal");
     hfontOld = (HFONT)SelectObject(wi.hdc, wi.hfont);
-    /* If printing, set the number of text rows per page. */
+    // If printing, set the number of text rows per page.
     if (wi.hdcPrint != hdcNil) {
       nScrollRow = us.nScrollRow;
       us.nScrollRow = wi.yClient / wi.yChar;
@@ -2177,9 +2255,9 @@ flag API FRedraw(void)
     gs.fInverse = fTrue; us.fAnsiChar = fFalse;
   }
 
-  Action();    /* Actually go and create the chart here. */
+  Action();    // Actually go and create the chart here.
 
-  /* Create the chart again if also autosaving chart to file. */
+  // Create the chart again if also autosaving chart to file.
 
   if (wi.fAutoSave && us.fGraphics &&
     (!wi.fAutoSaveWire ? gs.ft != ftBmp : gs.ft != ftWire)) {
@@ -2200,7 +2278,7 @@ flag API FRedraw(void)
     gs.ft = ftNone;
   }
 
-  /* Cleanup and copy from the buffer to the screen if need be. */
+  // Cleanup and copy from the buffer to the screen if need be.
 
   if (fSmartText) {
     us.fAnsiColor = fAnsiColor; us.fAnsiChar = fAnsiChar;
@@ -2226,14 +2304,14 @@ flag API FRedraw(void)
   if (wi.fHourglass)
     SetCursor(hcurOld);
 
-  /* If all text was scrolled off the top of the screen, scroll up. */
+  // If all text was scrolled off the top of the screen, scroll up.
 
   if (!us.fGraphics && is.S == stdout && is.cchRow - wi.yScroll * 10 < 0)
     PostMessage(wi.hwnd, WM_VSCROLL,
       LFromWW(SB_THUMBPOSITION, is.cchRow / 10 - 2), 0);
 
-  /* Sometimes creating a chart means saving it to a file instead of     */
-  /* drawing it on screen. If we were in file mode, cleanup things here. */
+  // Sometimes creating a chart means saving it to a file instead of drawing
+  // it on screen. If we were in file mode, cleanup things here.
 
   if (is.szFileScreen != NULL || gs.ft != ftNone) {
     is.szFileScreen = NULL;
@@ -2246,8 +2324,8 @@ flag API FRedraw(void)
     }
     gs.ft = ftNone;
 
-    /* To copy charts to the clipboard, Astrolog saves the chart to a temp */
-    /* file, then copies the contents of that file to the clipboard.       */
+    // To copy charts to the clipboard, Astrolog saves the chart to a temp
+    // file, then copies the contents of that file to the clipboard.
 
     if (wi.wCmd == cmdCopyText ||
       wi.wCmd == cmdCopyBitmap || wi.wCmd == cmdCopyPicture ||
@@ -2256,7 +2334,7 @@ flag API FRedraw(void)
       if (hfile == HFILE_ERROR)
         return fFalse;
       lSize = _llseek(hfile, 0, 2);
-      /* For bitmap and metafile charts, skip over the file header bytes. */
+      // For bitmap and metafile charts, skip over the file header bytes.
       l = wi.wCmd == cmdCopyBitmap ? sizeof(BITMAPFILEHEADER) :
         (wi.wCmd == cmdCopyPicture ? 22 : 0);
       lSize -= l;
@@ -2268,7 +2346,7 @@ flag API FRedraw(void)
       _hread(hfile, hpb, lSize);
       _lclose(hfile);
       if (l == 0 && us.fTextHTML) {
-        /* Mark HTML clipboard fragment end character indexes. */
+        // Mark HTML clipboard fragment end character indexes.
         pch = (char *)(hpb + 39);
         sprintf(pch, "%08d", lSize - 1);
         *(pch + 8) = '\n';
@@ -2291,9 +2369,11 @@ flag API FRedraw(void)
       } else if (wi.wCmd == cmdCopyBitmap) {
         SetClipboardData(CF_DIB, hglobal);
       } else {
-        mfp.mm = MM_ANISOTROPIC;         /* For metafiles special structure */
-        mfp.xExt = (gs.xWin-1)*-METAMUL; /* with a pointer to picture data  */
-        mfp.yExt = (gs.yWin-1)*-METAMUL; /* needs to be allocated and used. */
+        // For metafiles special structure with pointer to picture data needs
+        // to be allocated and used.
+        mfp.mm = MM_ISOTROPIC;
+        mfp.xExt = (gs.xWin-1)*METAMUL*2;
+        mfp.yExt = (gs.yWin-1)*METAMUL*2;
         hpb = (byte *)GlobalLock(hglobal);
         hmf = SetMetaFileBitsEx(lSize, hpb);
         GlobalUnlock(hglobal);
@@ -2341,7 +2421,7 @@ flag FCreateShortcut(CONST char *szDir, CONST char *szName,
   HRESULT hr;
   flag fRet = fFalse;
 
-  /* Define the link data */
+  // Define the link data.
   hr = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
     IID_IShellLink, (LPVOID *)&pisl);
   if (FAILED(hr))
@@ -2370,7 +2450,7 @@ flag FCreateShortcut(CONST char *szDir, CONST char *szName,
   if (FAILED(hr))
     goto LExit;
 
-  /* Save it to a link file */
+  // Save it to a link file.
   hr = pisl->QueryInterface(IID_IPersistFile, (LPVOID *)&pipf);
   if (FAILED(hr))
     goto LExit;
@@ -2431,7 +2511,7 @@ flag FCreateProgramGroup(flag fAll)
   char szDir[cchSzMax], szName[cchSzMax], *pch;
   LPITEMIDLIST pidl;
 
-  /* Create program group folder */
+  // Create program group folder.
   SHGetSpecialFolderLocation(wi.hwnd,
     fAll ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &pidl);
   SHGetPathFromIDList(pidl, szDir);
@@ -2443,15 +2523,16 @@ flag FCreateProgramGroup(flag fAll)
       goto LError;
   }
 
-  /* Delete old previous version shortcuts from folder */
+  // Delete old previous version shortcuts from folder.
   DeleteShortcut(szDir, "Astrolog 6.00");
   DeleteShortcut(szDir, "Astrolog 6.10");
   DeleteShortcut(szDir, "Astrolog 6.20");
   DeleteShortcut(szDir, "Astrolog 6.30");
   DeleteShortcut(szDir, "Astrolog 6.40");
   DeleteShortcut(szDir, "Astrolog 6.50");
+  DeleteShortcut(szDir, "Astrolog 7.00");
 
-  /* Add main shortcuts in folder */
+  // Add main shortcuts in folder.
   sprintf(szName, "%s %s", szAppName, szVersionCore);
   if (!FCreateShortcut(szDir, szName,
     "astrolog.exe", "Astrolog executable", -1))
@@ -2487,7 +2568,7 @@ flag FRegisterExtensions()
     ;
   sprintf(pch, "%s", " %1");
 
-  /* Define .as extension and point it to Astrolog File Type */
+  // Define .as extension and point it to Astrolog File Type.
   if (RegCreateKey(HKEY_CURRENT_USER,
     "Software\\Classes\\.as", &hkey) != ERROR_SUCCESS)
     goto LError;
@@ -2495,7 +2576,7 @@ flag FRegisterExtensions()
     goto LError;
   RegCloseKey(hkey);
 
-  /* Set File Type name for .as extensions */
+  // Set File Type name for .as extensions.
   if (RegCreateKey(HKEY_CURRENT_USER,
     "Software\\Classes\\Astrolog.as", &hkey) != ERROR_SUCCESS)
     goto LError;
@@ -2504,7 +2585,7 @@ flag FRegisterExtensions()
     goto LError;
   RegCloseKey(hkey);
 
-  /* Make .as extension files be opened by Astrolog */
+  // Make .as extension files be opened by Astrolog.
   if (RegCreateKey(HKEY_CURRENT_USER,
     "Software\\Classes\\Astrolog.as\\shell\\open\\command",
     &hkey) != ERROR_SUCCESS)
@@ -2513,7 +2594,7 @@ flag FRegisterExtensions()
     goto LError;
   RegCloseKey(hkey);
 
-  /* Make .as extension files be edited by Windows Notepad */
+  // Make .as extension files be edited by Windows Notepad.
   if (RegCreateKey(HKEY_CURRENT_USER,
     "Software\\Classes\\Astrolog.as\\shell\\edit\\command",
     &hkey) != ERROR_SUCCESS)
@@ -2522,7 +2603,7 @@ flag FRegisterExtensions()
     goto LError;
   RegCloseKey(hkey);
 
-  /* Set icon for .as extension files */
+  // Set icon for .as extension files.
   if (RegCreateKey(HKEY_CURRENT_USER,
     "Software\\Classes\\Astrolog.as\\DefaultIcon", &hkey) != ERROR_SUCCESS)
     goto LError;
@@ -2544,12 +2625,12 @@ flag FRegisterExtensions()
 
 flag FUnregisterExtensions()
 {
-  /* Delete .as extension pointing to Astrolog File Type */
+  // Delete .as extension pointing to Astrolog File Type.
   if (SHDeleteKey(HKEY_CURRENT_USER,
     "Software\\Classes\\.as") != ERROR_SUCCESS)
     goto LError;
 
-  /* Delete icon for .as extension files */
+  // Delete icon for .as extension files.
   if (SHDeleteKey(HKEY_CURRENT_USER,
     "Software\\Classes\\Astrolog.as") != ERROR_SUCCESS)
     goto LError;
diff --git a/xcharts0.cpp b/xcharts0.cpp
index 29ace1d..ebac23a 100644
--- a/xcharts0.cpp
+++ b/xcharts0.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xcharts0.cpp
+** Astrolog (Version 7.10) File: xcharts0.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -71,24 +71,24 @@ int DrawPrint(CONST char *sz, int m, int n)
 {
   static int xStart, x, y;
 
-  if (sz == NULL) {           /* Null string means just initialize position. */
+  if (sz == NULL) {           // Null string means just initialize position.
     xStart = x = m; y = n;
     return y;
   }
-  if (y >= gs.yWin-1)  /* Don't draw if we've scrolled off the chart bottom. */
+  if (y >= gs.yWin-1)    // Don't draw if have scrolled off the chart bottom.
     return y;
   DrawColor(m);
   DrawSz(sz, x, y, dtLeft | dtBottom | dtScale2);
 
-  /* If the second parameter is TRUE, we stay on the same line, otherwise */
-  /* when FALSE we go to the next line at the original column setting.    */
+  // If the second parameter is TRUE, then stay on the same line, otherwise
+  // when FALSE go to the next line at the original column setting.
 
   if (n)
-    x += CchSz(sz) * xFont * gi.nScaleText * gi.nScaleT;
+    x += CchSz(sz) * xFontT;
   else {
     x = xStart;
     n = y;
-    y += yFont * gi.nScaleText * gi.nScaleT;
+    y += yFontT;
   }
   return y;
 }
@@ -119,13 +119,14 @@ void DrawInfo(CI *pci, CONST char *szHeader, flag fAll)
     DrawPrint(szHeader, gi.kiOn, fFalse);
   if (*pci->nam)
     DrawPrint(pci->nam, gi.kiLite, fFalse);
+
   if (FNoTimeOrSpace(*pci))
     DrawPrint("No time or space", gi.kiLite, fFalse);
   else if (us.nRel == rcComposite)
     DrawPrint("Composite chart", gi.kiLite, fFalse);
   else {
 
-    /* Standard case: Print date, time, location, and maybe more. */
+    // Standard case: Print date, time, location, and maybe more.
     sprintf(sz, "%.3s %s", szDay[DayOfWeek(pci->mon, pci->day, pci->yea)],
       SzDate(pci->mon, pci->day, pci->yea, fTrue));
     DrawPrint(sz, gi.kiLite, fFalse);
@@ -208,12 +209,11 @@ void DrawSidebar()
   int i, j, k, l, y, a, s;
   real r;
 
-  /* Decorate the chart a little. */
+  // Decorate the chart a little.
 
   if (gs.nDecaType == 1) {
 
-    /* If decoration value 1, draw spider web lines in each corner. */
-
+    // If decoration value 1, draw spider web lines in each corner.
     DrawColor(gi.kiGray);
     j = gs.nDecaLine + 1;
     k = gs.yWin * gs.nDecaSize / 100;
@@ -225,8 +225,7 @@ void DrawSidebar()
             i ? gs.xWin-1-l+a*l/j : l-a*l/j, y*(gs.yWin-1));
   } else if (gs.nDecaType == 2) {
 
-    /* If decoration value 2, draw a moire pattern in each corner. */
-
+    // If decoration value 2, draw a moire pattern in each corner.
     k = gs.yWin * gs.nDecaSize / 200;
     l = gs.xWin * gs.nDecaSize / 200;
     for (y = 0; y <= 1; y++)
@@ -240,17 +239,17 @@ void DrawSidebar()
           }
   }
 
-  if (!gs.fText || us.fVelocity)    /* Don't draw sidebar if */
-    return;                         /* -v0 flag is set.      */
+  if (!gs.fText || us.fVelocity)    // Don't draw sidebar if -v0 flag is set.
+    return;
   a = us.fAnsiChar;
-  us.fAnsiChar = (!gs.fFont || (gs.ft != ftPS && gs.ft != ftWmf)) << 1;
+  us.fAnsiChar = (gs.nFont == 0 || (gs.ft != ftPS && gs.ft != ftWmf)) << 1;
   DrawColor(gi.kiLite);
   if (gs.fBorder)
     DrawLine(gs.xWin-1, 0, gs.xWin-1, gs.yWin-1);
   gs.xWin += xSideT;
   DrawPrint(NULL, gs.xWin-xSideT+xFontT-gi.nScaleT, yFontT*7/5);
 
-  /* Print chart header and setting information. */
+  // Print chart header and setting information.
 
   sprintf(sz, "%s %s", szAppName, szVersionCore);
   DrawPrint(sz, gi.kiOn, fFalse);
@@ -292,16 +291,16 @@ void DrawSidebar()
   } else
     DrawInfo(&ciMain, NULL, fTrue);
 
-  /* Print house cusp positions. */
+  // Print house cusp positions.
 
   DrawPrint("", gi.kiLite, fFalse);
   for (i = 1; i <= cSign; i++) {
     sprintf(sz, "%2d%s house: ", i, szSuffix[i]);
     y = DrawPrint(sz, kSignB(i), fTrue);
     if (!is.fSeconds && (gs.nScale == 100 ||
-      !gs.fFont || !gi.fFile || gs.ft == ftBmp) && y < gs.yWin-1) {
+      gs.nFont == 0 || !gi.fFile || gs.ft == ftBmp) && y < gs.yWin-1) {
       s = gi.nScale;
-      gi.nScale = gi.nScaleText * gi.nScaleT;
+      gi.nScale = gi.nScaleTextT;
       DrawSign(SFromZ(chouse[i]),
         gs.xWin-12*gi.nScale, y-(yFont/2-1)*gi.nScale);
       gi.nScale = s;
@@ -309,19 +308,22 @@ void DrawSidebar()
     DrawZodiac(chouse[i], fFalse);
   }
 
-  /* Print planet positions. */
+  // Print planet positions.
 
   DrawPrint("", gi.kiLite, fFalse);
-  for (i = 0; i <= oNorm; i++) if (FProper2(i) &&
-    (!FCusp(i) || RAbs(planetalt[i]) > rSmall ||
-    MinDistance(planet[i], chouse[i-cuspLo+1]) > rSmall)) {
+  for (j = 0; j <= oNorm; j++) {
+    i = rgobjList[j];
+    if (!(FProper2(i) &&
+      (!FCusp(i) || RAbs(planetalt[i]) > rSmall ||
+      MinDistance(planet[i], chouse[i-cuspLo+1]) > rSmall)))
+      continue;
     sprintf(sz, is.fSeconds ? "%-3.3s: " : "%-4.4s: ", szObjDisp[i]);
     DrawPrint(sz, kObjB[i], fTrue);
     y = DrawZodiac(planet[i], fTrue);
     if (!is.fSeconds && i < starLo && gi.nMode != gSector && (gs.nScale ==
-      100 || !gs.fFont || !gi.fFile || gs.ft == ftBmp) && y < gs.yWin-1) {
+      100 || gs.nFont == 0 || !gi.fFile || gs.ft == ftBmp) && y < gs.yWin-1) {
       s = gi.nScale;
-      gi.nScale = gi.nScaleText * gi.nScaleT;
+      gi.nScale = gi.nScaleTextT;
       DrawObject(-i-1, gs.xWin-12*gi.nScale, y-(yFont/2-1)*gi.nScale);
       gi.nScale = s;
     }
@@ -343,10 +345,12 @@ void DrawSidebar()
       DrawPrint("", gi.kiOn, fFalse);
   }
 
-  /* Print star positions. */
+  // Print star positions.
 
-  for (i = starLo; i <= starHi; i++) if (FProper(i)) {
-    s = oNorm+starname[i-oNorm];
+  for (i = starLo; i <= starHi; i++) {
+    s = rgobjList[i];
+    if (!FProper(s))
+      continue;
     sprintf(sz, is.fSeconds ? "%3.3s: " : "%4.4s: ", szObjDisp[s]);
     DrawPrint(sz, kObjB[s], fTrue);
     DrawZodiac(planet[s], fTrue);
@@ -367,7 +371,7 @@ void DrawSidebar()
       DrawPrint("", gi.kiOn, fFalse);
   }
 
-  /* Print element table information. */
+  // Print element table information.
 
   DrawPrint("", gi.kiLite, fFalse);
   CreateElemTable(&et);
@@ -408,34 +412,22 @@ void DrawWheel(real *xsign, real *xhouse, int cx, int cy, real unitx,
   real px, py, temp, ra, rb;
   flag fVector = (gs.ft == ftPS || gs.ft == ftWmf), fSav;
 
-  /* Draw Ascendant/Descendant and Midheaven/Nadir lines across whole chart. */
+  // Draw Ascendant/Descendant and Midheaven/Nadir lines across whole chart.
 
-  if (!gs.fColorHouse) {
-    DrawColor(gi.kiLite);
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sAri])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sAri])),
-             cx+POINT1(unitx, 0.99, PX(xhouse[sLib])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sLib])), !gs.fColor);
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sCap])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sCap])),
-             cx+POINT1(unitx, 0.99, PX(xhouse[sCan])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sCan])), !gs.fColor);
-  } else {
-    DrawColor(kSignB(sAri));
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sAri])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sAri])), cx, cy, !gs.fColor);
-    DrawColor(kSignB(sLib));
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sLib])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sLib])), cx, cy, !gs.fColor);
-    DrawColor(kSignB(sCap));
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sCap])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sCap])), cx, cy, !gs.fColor);
-    DrawColor(kSignB(sCan));
-    DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sCan])),
-             cy+POINT1(unity, 0.99, PY(xhouse[sCan])), cx, cy, !gs.fColor);
-  }
+  DrawColor(gs.fColorHouse ? kSignB(sAri) : gi.kiLite);
+  DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sAri])),
+           cy+POINT1(unity, 0.99, PY(xhouse[sAri])), cx, cy, !gs.fColor);
+  if (gs.fColorHouse) DrawColor(kSignB(sLib));
+  DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sLib])),
+           cy+POINT1(unity, 0.99, PY(xhouse[sLib])), cx, cy, !gs.fColor);
+  if (gs.fColorHouse) DrawColor(kSignB(sCap));
+  DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sCap])),
+           cy+POINT1(unity, 0.99, PY(xhouse[sCap])), cx, cy, !gs.fColor);
+  if (gs.fColorHouse) DrawColor(kSignB(sCan));
+  DrawDash(cx+POINT1(unitx, 0.99, PX(xhouse[sCan])),
+           cy+POINT1(unity, 0.99, PY(xhouse[sCan])), cx, cy, !gs.fColor);
 
-  /* Draw small five or one degree increments around the zodiac sign ring. */
+  // Draw small five or one degree increments around the zodiac sign ring.
 
   fSav = us.fHouse3D; us.fHouse3D = fFalse;
   for (i = 0; i < nDegMax; i++) {
@@ -454,7 +446,7 @@ void DrawWheel(real *xsign, real *xhouse, int cx, int cy, real unitx,
   }
   us.fHouse3D = fSav;
 
-  /* Draw hatches within houses. */
+  // Draw hatches within houses, if -YRd switch set.
 
   k = us.nSignDiv;
   if (k > 1) {
@@ -473,7 +465,7 @@ void DrawWheel(real *xsign, real *xhouse, int cx, int cy, real unitx,
     }
   }
 
-  /* Draw circles for the zodiac sign and house rings. */
+  // Draw circles for the zodiac sign and house rings.
 
   DrawColor(gi.kiOn);
   DrawCircle(cx, cy, (int)(unitx*0.95+rRound), (int)(unity*0.95+rRound));
@@ -481,24 +473,26 @@ void DrawWheel(real *xsign, real *xhouse, int cx, int cy, real unitx,
   DrawCircle(cx, cy, (int)(unitx*r3+rRound), (int)(unity*r3+rRound));
   DrawCircle(cx, cy, (int)(unitx*r1+rRound), (int)(unity*r1+rRound));
 
-  /* Draw the glyphs for the signs and houses themselves. */
+  // Draw the glyphs for the signs and houses themselves.
 
   for (i = 1; i <= cSign; i++) {
     temp = xsign[i];
+    // Draw lines separating each sign and each house from each other.
     DrawColor(gs.fColorSign ? kSignB(i) : gi.kiOn);
-    DrawLine(cx+POINT2(unitx, 0.95, PX(temp)),    /* Draw lines separating */
-      cy+POINT2(unity, 0.95, PY(temp)),           /* each sign and house   */
-      cx+POINT1(unitx, r4, PX(temp)),             /* from each other.      */
+    DrawLine(cx+POINT2(unitx, 0.95, PX(temp)),
+      cy+POINT2(unity, 0.95, PY(temp)),
+      cx+POINT1(unitx, r4, PX(temp)),
       cy+POINT1(unity, r4, PY(temp)));
     DrawColor(gs.fColorHouse ? kSignB(i) : gi.kiOn);
     DrawLine(cx+POINT2(unitx, r3, PX(xhouse[i])),
       cy+POINT2(unity, r3, PY(xhouse[i])),
       cx+POINT1(unitx, r1, PX(xhouse[i])),
       cy+POINT1(unity, r1, PY(xhouse[i])));
-    if (gs.fColor && i%3 != 1) {                             /* Lines from */
-      DrawColor(gs.fColorHouse ? kSignB(i) : gi.kiGray);     /* each house */
-      DrawDash(cx, cy, cx+POINT2(unitx, r1, PX(xhouse[i])),  /* to center  */
-        cy+POINT2(unity, r1, PY(xhouse[i])), 1);             /* of wheel.  */
+    // Draw minor lines from non-angular houses to center of wheel.
+    if (gs.fColor && i%3 != 1) {
+      DrawColor(gs.fColorHouse ? kSignB(i) : gi.kiGray);
+      DrawDash(cx, cy, cx+POINT2(unitx, r1, PX(xhouse[i])),
+        cy+POINT2(unity, r1, PY(xhouse[i])), 1);
     }
     temp = Midpoint(temp, xsign[Mod12(i+1)]);
     DrawColor(kSignB(i));
@@ -552,39 +546,39 @@ void DrawObjects(ObjDraw *rgod, int cod, int zEdge)
   int zGlyph, zGlyph2, zGlyphS, zGlyphS2, i, j, k, k2, obj;
   KI kSav;
 
-  /* Define or adjust some initial values */
-  zGlyph = 7*gi.nScale; zGlyphS = 9*gi.nScaleT;
+  // Define or adjust some initial values.
+  zGlyph = 7*gi.nScale; zGlyphS = 9*gi.nScaleTextT;
   zGlyph2 = zGlyph << 1; zGlyphS2 = zGlyphS << 1;
 
-  /* Assume glyph is positioned below actual point, unless say otherwise */
+  // Assume glyph is positioned below actual point, unless say otherwise.
   for (i = 0; i < cod; i++) if (rgod[i].f) {
     obj = rgod[i].obj;
     rgod[i].yg = rgod[i].y + (obj < starLo ? zGlyph : zGlyphS);
   }
 
-  /* Determine where to draw the glyphs in relation to the actual points, */
-  /* so that the glyphs aren't drawn on top of each other if possible.    */
+  // Determine where to draw the glyphs in relation to the actual points,
+  // so that the glyphs aren't drawn on top of each other if possible.
   for (i = 0; i < cod; i++) if (rgod[i].f) {
     obj = rgod[i].obj;
     k = k2 = gs.xWin + gs.yWin;
 
-    /* For each planet, will draw glyph either right over or right under  */
-    /* the actual planet location point. Find out the closest distance of */
-    /* any other planet assuming glyph is placed at both possibilities.   */
+    // For each planet, will draw glyph either right over or right under the
+    // actual planet location point. Find out the closest distance of any
+    // other planet assuming glyph is placed at both possibilities.
     for (j = 0; j < i; j++) if (rgod[j].f) {
       k  = Min(k,  NAbs(rgod[i].x-rgod[j].x) + NAbs(rgod[i].yg-rgod[j].yg));
       k2 = Min(k2, NAbs(rgod[i].x-rgod[j].x) + NAbs(rgod[i].yg-rgod[j].yg -
         zGlyph2));
     }
 
-    /* Normally, we put the glyph right below the actual point. If however  */
-    /* another planet is close enough to have their glyphs overlap, and the */
-    /* above location is better, then we'll draw the glyph above instead.   */
+    // Normally, put the glyph right below the actual point. If however
+    // another planet is close enough to have their glyphs overlap, and the
+    // above location is better, then will draw the glyph above instead.
     if ((k < zGlyph2 || k2 < zGlyph2) && k < k2)
       rgod[i].yg -= (obj < starLo ? zGlyph2 : zGlyphS2);
   }
 
-  /* Draw planet glyphs. */
+  // Draw planet glyphs.
   for (i = cod-1; i >= 0; i--) if (rgod[i].f) {
     if (zEdge > 0 && !FInRect(rgod[i].x, rgod[i].yg,
       zEdge, zEdge, gs.xWin-zEdge, gs.yWin-zEdge))
@@ -598,18 +592,19 @@ void DrawObjects(ObjDraw *rgod, int cod, int zEdge)
       kObjB[obj] = kSav;
   }
 
-  /* Draw dots for actual object location. */
+  // Draw dots for actual object location.
   for (i = cod-1; i >= 0; i--) if (rgod[i].f) {
     if (zEdge > 0 && !FInRect(rgod[i].x, rgod[i].y,
       zEdge, zEdge, gs.xWin-zEdge, gs.yWin-zEdge))
       continue;
     obj = rgod[i].obj;
     DrawColor(rgod[i].kv != ~0 ? rgod[i].kv : kObjB[obj]);
+    // Draw small or large dot near glyph indicating exact object location.
     if ((gi.nMode == gHorizon && (gs.fAlt || obj > oNorm)) ||
       (gi.nMode == gOrbit && gs.fAlt))
-      DrawPoint(rgod[i].x, rgod[i].y);  /* Draw small or large dot */
-    else                                /* near glyph indicating   */
-      DrawSpot(rgod[i].x, rgod[i].y);   /* exact object location.  */
+      DrawPoint(rgod[i].x, rgod[i].y);
+    else
+      DrawSpot(rgod[i].x, rgod[i].y);
   }
 }
 
@@ -630,7 +625,7 @@ void DrawAspectLine(int obj1, int obj2, int cx, int cy,
     ExpSetN(iLetterX, asp);
     ExpSetN(iLetterY, obj2);
     ExpSetN(iLetterZ, col);
-    NParseExpression(us.szExpColAsp);
+    ParseExpression(us.szExpColAsp);
     col = NExpGet(iLetterZ);
     if (!FValidColor(col))
       col = 0;
@@ -653,7 +648,7 @@ void DrawAspectLine(int obj1, int obj2, int cx, int cy,
   // Draw aspect glyph over middle of line.
   if (gs.fLabelAsp) {
     nSav = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     DrawAspect(asp, (x1 + x2) >> 1, (y1 + y2) >> 1);
     gi.nScale = nSav;
   }
@@ -670,9 +665,9 @@ void DrawAspectLine(int obj1, int obj2, int cx, int cy,
 /* for the next body of land/water, return its name (and color), its     */
 /* longitude and latitude, and a vector description of its outline.      */
 
-flag FReadWorldData(char **nam, char **loc, char **lin)
+flag FReadWorldData(CONST char **nam, CONST char **loc, CONST char **lin)
 {
-  static char **psz = (char **)szWorldData;
+  static CONST char **psz = szWorldData;
   int i;
 
   *loc = *psz++;
@@ -686,11 +681,202 @@ flag FReadWorldData(char **nam, char **loc, char **lin)
     }
     return fTrue;
   }
-  psz = (char **)szWorldData;  /* Reset stream when no data left. */
+  psz = szWorldData;  // Reset stream when no data left.
   return fFalse;
 }
 
 
+// Enumerator to return line segments (and their color) composing Astrolog's
+// map of the world. Used by astro-graph, map/globe, and nearest city charts.
+
+flag EnumWorldLines(int *x1, int *y1, int *x2, int *y2, int *kRainbow)
+{
+  static CONST char **psz;
+  static CONST char *lin;
+  static int xold, yold;
+  CONST char *nam, *loc;
+  char chCmd;
+  int lon, lat, x, y, i, k = -1;
+
+  // Call with Null pointer to initialize new enumeration.
+  if (x1 == NULL) {
+    psz = szWorldData;
+    lin = "";
+    return fTrue;
+  }
+
+  // Get the next chunk of data to process.
+  if (!*lin) {
+
+    // Get data for the next coastline piece.
+    loc = *psz++;
+    lin = *psz++;
+    nam = *psz++;
+    if (loc[0]) {
+      i = nam[0]-'0';
+      if (gs.fPrintMap && gi.fFile) {
+        AnsiColor(i ? kRainbowA[i] : kDkBlueA);
+        PrintSz(nam+1); PrintL();
+      }
+    } else
+      return fFalse;
+    k = i;
+    lon = (loc[0] == '+' ? 1 : -1)*
+      ((loc[1]-'0')*100 + (loc[2]-'0')*10 + (loc[3]-'0'));
+    lat = (loc[4] == '+' ? 1 : -1)*((loc[5]-'0')*10 + (loc[6]-'0'));
+    xold = nDegHalf - lon;
+    yold = 90 - lat;
+  }
+  x = xold; y = yold;
+
+  // Get the next unit from the world map string.
+  chCmd = *lin++;
+
+  // Each unit is exactly one character in the coastline string.
+  if (chCmd == 'L' || chCmd == 'H' || chCmd == 'G')
+    x--;
+  else if (chCmd == 'R' || chCmd == 'E' || chCmd == 'F')
+    x++;
+  if (chCmd == 'U' || chCmd == 'H' || chCmd == 'E')
+    y--;
+  else if (chCmd == 'D' || chCmd == 'G' || chCmd == 'F')
+    y++;
+
+  // Take care of coordinate wrap around.
+  while (x >= nDegMax)
+    x -= nDegMax;
+  while (x < 0)
+    x += nDegMax;
+
+  *x1 = xold; *y1 = yold; *x2 = x; *y2 = y;
+  *kRainbow = k;
+  xold = x; yold = y;
+  return fTrue;
+}
+
+
+#ifdef CONSTEL
+// Enumerator to return line segments (and their constellation) composing
+// Astrolog's map of constellation boundaries. Used by local horizon,
+// map/globe, chart sphere, and telescope charts.
+
+flag EnumConstelLines(int *x1, int *y1, int *x2, int *y2, int *iConst)
+{
+  static int isz, nC, xold = 0, yold = 0, xDelta, yDelta, xLo, xHi, yLo, yHi;
+  static CONST char *pch;
+  int lon, lat, x, y;
+  char chCmd;
+  flag fBlank;
+
+  // Call with Null pointer to initialize new enumeration.
+  if (x1 == NULL) {
+    isz = 0;
+    pch = "";
+    return fTrue;
+  }
+
+  // Get the next chunk of data to process.
+LNext:
+  x = xold; y = yold;
+  if (!*pch) {
+
+    if (isz > 0) {
+      // If reached the end of current constellation, compute the center
+      // location in it based on lower and upper bounds that have been
+      // maintained, and print the name of the constellation there.
+
+      x = xLo + (xHi - xLo)*(szDrawConstel[isz][0]-'1')/8;
+      y = yLo + (yHi - yLo)*(szDrawConstel[isz][1]-'1')/8;
+      if (x < 0)
+        x += nDegMax;
+      else if (x > nDegMax)
+        x -= nDegMax;
+      *x1 = *x2 = x;
+      *y1 = *y2 = y;
+      *iConst = isz;
+      neg(isz);
+      return fTrue;
+    } else if (isz < 0)
+      neg(isz);
+
+    // Get data for the next constellation shape.
+    isz++;
+    if (isz > cCnstl)
+      return fFalse;
+    pch = szDrawConstel[isz];
+    lon = nDegMax -
+      (((pch[2]-'0')*10+(pch[3]-'0'))*15+(pch[4]-'0')*10+(pch[5]-'0'));
+    lat = 90-((pch[6] == '-' ? -1 : 1)*((pch[7]-'0')*10+(pch[8]-'0')));
+    if (lon >= nDegMax)
+      lon -= nDegMax;
+    pch += 9;
+    xLo = xHi = xold = x = lon;
+    yLo = yHi = yold = y = lat;
+    nC = 0;
+  }
+
+  // Get the next unit from the string to draw on the screen as a line. For
+  // constellations have a cache of how long should keep going in the previous
+  // direction, for example "u5" for up five moves pointer up five times
+  // without advancing string pointer.
+
+  fBlank = fFalse;
+  loop {
+    if (nC <= 0) {
+      chCmd = *pch++;
+
+      // Get the next direction and distance from constellation string.
+      if (fBlank = (chCmd == 'b'))
+        chCmd = *pch++;
+      xDelta = yDelta = 0;
+      switch (chCmd) {
+      case 'u': yDelta = -1; break;    // Up
+      case 'd': yDelta =  1; break;    // Down
+      case 'l': xDelta = -1; break;    // Left
+      case 'r': xDelta =  1; break;    // Right
+      case 'U': yDelta = -1; nC = (y-1)%10+1;    break;  // Up until
+      case 'D': yDelta =  1; nC = 10-y%10;       break;  // Down until
+      case 'L': xDelta = -1; nC = (x+599)%15+1;  break;  // Left until
+      case 'R': xDelta =  1; nC = 15-(x+600)%15; break;  // Right until
+      default: PrintError("Bad constel enum.");          // Shouldn't happen.
+      }
+      if (chCmd >= 'a')
+        nC = NFromPch(&pch);  // Figure out how far to draw.
+    }
+    nC--;
+    x += xDelta; y += yDelta;
+    if (!fBlank)
+      break;
+    // Occasionally want to move the pointer without drawing anything.
+    xold = x; yold = y;     
+    continue;
+  }
+
+  if (x < xLo)              // Maintain bounding rectangle for this
+    xLo = x;                // constellation if have crossed over it.
+  else if (x > xHi)
+    xHi = x;
+  if (y < yLo)
+    yLo = y;
+  else if (y > yHi)
+    yHi = y;
+
+  // Take care of coordinate wrap around.
+  *x1 = xold; *y1 = yold; 
+  xold = x; yold = y;
+  if (!(x > *x1 || y > *y1))  // draw each line segment once instead of twice.
+    goto LNext;
+  while (x >= nDegMax)
+    x -= nDegMax;
+  while (x < 0)
+    x += nDegMax;
+  *x2 = x; *y2 = y;
+  *iConst = 0;
+  return fTrue;
+}
+#endif
+
+
 /* Given longitude and latitude values on a globe, return the window        */
 /* coordinates corresponding to them. In other words, project the globe     */
 /* onto the view plane, and return where our coordinates got projected to,  */
@@ -701,7 +887,7 @@ flag FGlobeCalc(real x1, real y1, int *u, int *v, int cx, int cy,
 {
   real rT, siny1, lonMC, latMC;
 
-  /* Chart sphere coordinates are relative to the local horizon. */
+  // Chart sphere coordinates are relative to the local horizon.
 
   if (gi.nMode == gSphere) {
     y1 = rDegQuad - y1;
@@ -715,7 +901,7 @@ flag FGlobeCalc(real x1, real y1, int *u, int *v, int cx, int cy,
     y1 = rDegQuad - y1;
   }
 
-  /* Globe coordinates may be relative to the ecliptic. */
+  // Globe coordinates may be relative to the ecliptic.
 
   if ((gi.nMode == gGlobe || gi.nMode == gPolar) && gs.fEcliptic) {
     y1 = rDegQuad - y1;
@@ -730,12 +916,12 @@ flag FGlobeCalc(real x1, real y1, int *u, int *v, int cx, int cy,
     y1 = rDegQuad - y1;
   }
 
-  /* Compute coordinates for a general globe invoked with -XG switch. */
+  // Compute coordinates for a general globe invoked with -XG switch.
 
   if (gi.nMode != gPolar) {
-    /* Shift by current globe rotation value. */
+    // Shift by current globe rotation value.
     x1 = Mod(x1+deg);
-    /* Do another coordinate shift if the globe's equator is tilted any. */
+    // Do another coordinate shift if the globe's equator is tilted any.
     if (gs.rTilt != 0.0) {
       y1 = rDegQuad - y1;
       CoorXform(&x1, &y1, gs.rTilt);
@@ -746,7 +932,7 @@ flag FGlobeCalc(real x1, real y1, int *u, int *v, int cx, int cy,
     return x1 > rDegHalf;
   }
 
-  /* Compute coordinates for a polar globe invoked with -XP switch. */
+  // Compute coordinates for a polar globe invoked with -XP switch.
 
   siny1 = RSinD((gs.fSouth ? nDegHalf-y1 : y1) / 2.0);
   rT = gs.fSouth ? rDegQuad+x1+deg : 270.0-x1-deg;
@@ -791,10 +977,9 @@ void DrawLeyLine(real l1, real f1, real l2, real f2)
 {
   l1 = Mod(l1); l2 = Mod(l2);
 
-  /* Convert vertical fractional distance to a corresponding coordinate. */
-
-  f1 = rDegQuad-RAsin(f1)/rPiHalf*rDegQuad;
-  f2 = rDegQuad-RAsin(f2)/rPiHalf*rDegQuad;
+  // Convert vertical fractional distance to a corresponding coordinate.
+  f1 = rDegQuad - RAsin(f1)/rPiHalf*rDegQuad;
+  f2 = rDegQuad - RAsin(f2)/rPiHalf*rDegQuad;
   DrawWrap((int)(l1*(real)gi.nScale+rRound),
            (int)(f1*(real)gi.nScale+rRound),
            (int)(l2*(real)gi.nScale+rRound),
@@ -809,10 +994,10 @@ void DrawLeyLines(real deg)
 {
   real phi, h, h1, h2, r, i;
 
-  phi = (RSqr(5.0)+1.0)/2.0;                   /* Icosahedron constants. */
+  phi = (RSqr(5.0)+1.0)/2.0;                   // Icosahedron constants.
   h = 1.0/(phi*2.0-1.0);
   DrawColor(kDkCyanB);
-  for (i = deg; i < rDegMax+deg; i += 72.0) {  /* Draw icosahedron edges. */
+  for (i = deg; i < rDegMax+deg; i += 72.0) {  // Draw icosahedron edges.
     DrawLeyLine(i, h, i+72.0, h);
     DrawLeyLine(i-36.0, -h, i+36.0, -h);
     DrawLeyLine(i, h, i, 1.0);
@@ -820,10 +1005,10 @@ void DrawLeyLines(real deg)
     DrawLeyLine(i, h, i+36.0, -h);
     DrawLeyLine(i, h, i-36.0, -h);
   }
-  r = 1.0/RSqr(3.0)/phi/RCosD(54.0);           /* Dodecahedron constants. */
+  r = 1.0/RSqr(3.0)/phi/RCosD(54.0);           // Dodecahedron constants.
   h2 = RSqr(1.0-r*r); h1 = h2/(phi*2.0+1.0);
   DrawColor(kMaroonB);
-  for (i = deg; i < rDegMax+deg; i += 72.0) {  /* Draw docecahedron edges. */
+  for (i = deg; i < rDegMax+deg; i += 72.0) {  // Draw docecahedron edges.
     DrawLeyLine(i-36.0, h2, i+36.0, h2);
     DrawLeyLine(i, -h2, i+72.0, -h2);
     DrawLeyLine(i+36.0, h2, i+36.0, h1);
@@ -843,27 +1028,20 @@ void DrawLeyLines(real deg)
 
 void DrawMap(flag fSky, flag fGlobe, real deg)
 {
-  char *nam, *loc, *lin, chCmd;
-  int cx = gs.xWin/2, cy = gs.yWin/2, rx, ry, lon, lat, unit = 12*gi.nScale,
-    x, y, xold, yold, m, n, u, v, i, j, k, l, nScl = gi.nScale;
+  int cx = gs.xWin/2, cy = gs.yWin/2, rx, ry, unit = 12*gi.nScale,
+    nScl = gi.nScale, x, y, xold, yold, m, n, u, v, i, j, k, l;
   flag fNext = fTrue, fSimple, fDir = (gi.nMode == gSphere && gs.fSouth);
   real planet1[objMax], planet2[objMax], x1, y1, rT;
   ObjDraw rgod[objMax * arMax];
+#ifdef CONSTEL
+  int xT, yT;
+#endif
 #ifdef SWISS
   ES es, *pes1, *pes2;
   int xp, yp, xp2, yp2;
 #endif
-#ifdef CONSTEL
-  CONST char *pch;
-  flag fBlank;
-  int isz = 0, nC, xT, yT, xDelta, yDelta, xLo, xHi, yLo, yHi;
-#endif
-#ifdef ATLAS
-  real rgzon[iznMax], zon;
-  CI ci;
-#endif
 
-  /* Set up some variables. */
+  // Set up some variables.
   rx = cx-1; ry = cy-1;
   if (gi.nMode == gSphere) {
     rx = cx - 7*gi.nScale; ry = cy - 7*gi.nScale;
@@ -872,7 +1050,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
     fSimple = (gs.rTilt == 0.0 && gi.nMode == gGlobe && !gs.fEcliptic);
 
 #ifdef CONSTEL
-  /* Draw a dot grid for large rectangular constellation charts. */
+  // Draw a dot grid for large rectangular constellation charts.
   if (fSky && !fGlobe && !gs.fMollewide && us.fHouse3D &&
     gi.nScale/gi.nScaleT > 2)
     for (yT = 5; yT < nDegHalf; yT += 5)
@@ -883,228 +1061,88 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
           rT -= rDegMax;
         DrawPoint((int)(rT*(real)nScl), yT*nScl);
       }
-#endif
-
-  loop {
 
-    /* Get the next chunk of data to process. Get the starting position, */
-    /* map it to the screen, and set the drawing color appropriately.    */
+  // Draw the map (either a constellation map, or a world map).
 
-    if (fNext) {
-      fNext = fFalse;
-
-      /* For constellations, get data for the next constellation shape. */
-
-      if (fSky) {
+  if (fSky)
+    EnumConstelLines(NULL, NULL, NULL, NULL, NULL);
+  else
+#endif
+    EnumWorldLines(NULL, NULL, NULL, NULL, NULL);
+  while (
 #ifdef CONSTEL
-        isz++;
-        if (isz > cCnstl)
-          break;
+    fSky ? EnumConstelLines(&xold, &yold, &x, &y, &i) :
+#endif
+    EnumWorldLines(&xold, &yold, &x, &y, &i)) {
+    if (fSky) {
+      if (i > 0)
+        DrawColor(gi.nMode == gSphere || (!gs.fAlt && gi.nMode != gPolar &&
+          gi.nMode != gWorldMap) ? gi.kiGray : kDkGreenB);
+      else
         DrawColor(gi.nMode == gSphere ? kPurpleB :
           (gs.fAlt ? kBlueB : kDkBlueB));
-        pch = szDrawConstel[isz];
-        lon = nDegMax -
-          (((pch[2]-'0')*10+(pch[3]-'0'))*15+(pch[4]-'0')*10+(pch[5]-'0'));
-        lat = 90-((pch[6] == '-' ? -1 : 1)*((pch[7]-'0')*10+(pch[8]-'0')));
-        if (lon >= nDegMax)
-          lon -= nDegMax;
-        pch += 9;
-        xLo = xHi = xT = xold = x = lon;
-        yLo = yHi = yT = yold = y = lat;
-        nC = 0;
-        if (fGlobe) {
-          FGlobeCalc(x, y, &m, &n, cx, cy, rx, ry, deg);
-          k = l = fTrue;
-        }
-#else
-        ;
-#endif
-
-      /* For world maps, get data for the next coastline piece. */
-
-      } else {
-        if (!FReadWorldData(&nam, &loc, &lin))
-          break;
-        i = nam[0]-'0';
+    } else {
+      if (i >= 0)
         DrawColor((!fGlobe && gi.nMode == gAstroGraph) ? gi.kiOn :
           (!gs.fAlt && !gs.fColorHouse ? gi.kiGray :
           (i ? kRainbowB[i] : kDkBlueB)));
-        lon = (loc[0] == '+' ? 1 : -1)*
-          ((loc[1]-'0')*100 + (loc[2]-'0')*10 + (loc[3]-'0'));
-        lat = (loc[4] == '+' ? 1 : -1)*((loc[5]-'0')*10 + (loc[6]-'0'));
-        if (fGlobe) {
-          x = nDegHalf - lon;
-          y = 90 - lat;
-          FGlobeCalc(x, y, &m, &n, cx, cy, rx, ry, deg);
-          k = l = fTrue;
-        } else {
-          xold = x = nDegHalf - lon;
-          yold = y = 90 - lat;
-        }
-      }
     }
-
-    /* Get the next unit from the string to draw on the screen as a line. */
-
-    if (fSky) {
-
-      /* For constellations we have a cache of how long we should keep    */
-      /* going in the previous direction, as say "u5" for up five should  */
-      /* move our pointer up five times without advancing string pointer. */
-
-#ifdef CONSTEL
-      if (nC <= 0) {
-        if (!(chCmd = *pch)) {
-          fNext = fTrue;
-          if (gs.fText) {
-
-            /* If we've reached the end of current constellation, compute */
-            /* the center location in it based on lower and upper bounds  */
-            /* we've maintained, and print the name of the constel there. */
-
-            xT = xLo + (xHi - xLo)*(szDrawConstel[isz][0]-'1')/8;
-            yT = yLo + (yHi - yLo)*(szDrawConstel[isz][1]-'1')/8;
-            if (xT < 0)
-              xT += nDegMax;
-            else if (xT > nDegMax)
-              xT -= nDegMax;
-            if (fGlobe) {
-              if (FGlobeCalc((real)xT, (real)yT, &x, &y, cx, cy, rx, ry,
-                deg) ^ fDir)
-                continue;
-            } else {
-              rT = xT + deg;
-              if (rT > rDegMax)
-                rT -= rDegMax;
-              if (gs.fMollewide)
-                x = 180*nScl + NMultDiv((int)rT-180, NMollewide(yT-90), 180);
-              else
-                x = (int)(rT*(real)nScl);
-              y = yT*nScl;
-            }
-            DrawColor(gi.nMode == gSphere || (!gs.fAlt && gi.nMode != gPolar &&
-              gi.nMode != gWorldMap) ? gi.kiGray : kDkGreenB);
-            DrawSz(szCnstlAbbrev[isz], x, y, dtCent);
-          }
-          continue;
-        }
-        pch++;
-
-        /* Get the next direction and distance from constellation string. */
-
-        if (fBlank = (chCmd == 'b'))
-          chCmd = *pch++;
-        xDelta = yDelta = 0;
-        switch (chCmd) {
-        case 'u': yDelta = -1; break;    /* Up    */
-        case 'd': yDelta =  1; break;    /* Down  */
-        case 'l': xDelta = -1; break;    /* Left  */
-        case 'r': xDelta =  1; break;    /* Right */
-        case 'U': yDelta = -1; nC = (yT-1)%10+1;    break;  /* Up until    */
-        case 'D': yDelta =  1; nC = 10-yT%10;       break;  /* Down until  */
-        case 'L': xDelta = -1; nC = (xT+599)%15+1;  break;  /* Left until  */
-        case 'R': xDelta =  1; nC = 15-(xT+600)%15; break;  /* Right until */
-        default: PrintError("Bad map draw.");         /* Shouldn't happen. */
-        }
-        if (chCmd >= 'a')
-          nC = NFromPch(&pch);  /* Figure out how far to draw. */
-      }
-      nC--;
-      xT += xDelta; x += xDelta;
-      yT += yDelta; y += yDelta;
-      if (fBlank) {
-        xold = x; yold = y;    /* We occasionally want to move the pointer */
-        l = fFalse;            /* without drawing the line on the screen.  */
-        continue;
-      }
-      if (xT < xLo)         /* Maintain our bounding rectangle for this */
-        xLo = xT;           /* constellation if we crossed over it any. */
-      else if (xT > xHi)
-        xHi = xT;
-      if (yT < yLo)
-        yLo = yT;
-      else if (yT > yHi)
-        yHi = yT;
-#else
-      ;
-#endif
-
-    } else {
-
-      /* Get the next unit from the much simpler world map strings. */
-
-      if (!(chCmd = *lin)) {
-        fNext = fTrue;
-        continue;
-      }
-      lin++;
-
-      /* Each unit is exactly one character in the coastline string. */
-
-      if (chCmd == 'L' || chCmd == 'H' || chCmd == 'G')
-        x--;
-      else if (chCmd == 'R' || chCmd == 'E' || chCmd == 'F')
-        x++;
-      if (chCmd == 'U' || chCmd == 'H' || chCmd == 'E')
-        y--;
-      else if (chCmd == 'D' || chCmd == 'G' || chCmd == 'F')
-        y++;
-    }
-
-    /* Transform map coordinates to screen coordinates and draw a line. */
-
-    while (x >= nDegMax)    /* Take care of coordinate wrap around. */
-      x -= nDegMax;
-    while (x < 0)
-      x += nDegMax;
-
     if (fGlobe) {
+      // For globes, have to do a complicated transformation, and not draw
+      // when hidden on the back side of the sphere. Be smart and only do slow
+      // calculations when know will be visible.
 
-      /* For globes, we have to go do a complicated transformation, and not */
-      /* draw when we're hidden on the back side of the sphere. We're smart */
-      /* and try to only do the slow stuff when we know we'll be visible.   */
-
-      if (fSimple) {
+      j = fTrue;
+      if (fSimple && !gs.fSouth) {
+        rT = (real)xold+deg;
+        if (rT >= rDegMax)
+          rT -= rDegMax;
+        j &= rT <= rDegHalf;
         rT = (real)x+deg;
         if (rT >= rDegMax)
           rT -= rDegMax;
-        k = gs.fSouth || rT <= rDegHalf;
+        j &= rT <= rDegHalf;
       }
-      if (k &&
-        !(FGlobeCalc((real)x, (real)y, &u, &v, cx, cy, rx, ry, deg) ^ fDir)) {
-        if (l && !(fSky && (x > xold || y > yold)))
+      if (j) {
+        k = FGlobeCalc((real)xold, (real)yold, &m, &n, cx, cy, rx, ry, deg) ^
+          fDir;
+#ifdef CONSTEL
+        if (fSky && i > 0) {
+          if (!k)
+            DrawSz(szCnstlAbbrev[i], m, n, dtCent | dtScale2);
+          continue;
+        }
+#endif
+        l = FGlobeCalc((real)x, (real)y, &u, &v, cx, cy, rx, ry, deg) ^ fDir;
+        if (!k && !l)
           DrawLine(m, n, u, v);
-        m = u; n = v;
-        l = fTrue;
-      } else {
-        if (gs.fSouth && gi.nMode != gSphere)
-          DrawPoint(u, v);
-        l = fFalse;
+        else if (gs.fSouth && gi.nMode != gSphere) {
+          if (k) DrawPoint(m, n);
+          if (l) DrawPoint(u, v);
+        }
       }
     } else {
+      // Rectangular maps are much simpler, with screen coordinates
+      // proportional to internal coordinates. For the Mollewide projection
+      // have to apply a factor to the horizontal positioning though.
 
-      /* Rectangular maps are much simpler, with screen coordinates      */
-      /* proportional to internal coords. For the Mollewide projection   */
-      /* we have to apply a factor to the horizontal positioning though. */
-
-      u = (int)(Mod((real)x + deg)*(real)nScl);
       m = (int)(Mod((real)xold + deg)*(real)nScl);
+      u = (int)(Mod((real)x + deg)*(real)nScl);
       if (NAbs(u-m) <= nDegHalf) {
-        v = y*nScl;
         n = yold*nScl;
+        v = y*nScl;
         i = nDegHalf*nScl;
         if (gs.fMollewide && gi.nMode != gAstroGraph)
           DrawLine(i + NMultDiv(m-i, NMollewide(yold - 90), i), n,
             i + NMultDiv(u-i, NMollewide(y - 90), i), v);
-        else if (!(fSky && (x > xold || y > yold)))
+        else
           DrawLine(m, n, u, v);
       }
     }
-    xold = x; yold = y;
   }
 
-  /* Draw the outline of the map, either a circle around globes or a */
-  /* Mollewide type ellipse for that type of rectangular chart.      */
+  // Draw the outline of the map, either a circle around globes or a
+  // Mollewide type ellipse for that type of rectangular chart.
 
   if (gs.fBorder && gi.nMode != gSphere) {
     DrawColor(gi.kiOn);
@@ -1119,8 +1157,8 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
       DrawEllipse(0, 0, gs.xWin-1, gs.yWin-1);
   }
 
-  /* Now, if we are in an appropriate bonus chart mode, draw each planet at */
-  /* its zenith or visible location on the globe or map, if not hidden.     */
+  // Now, if in an appropriate bonus chart mode, then draw each planet at its
+  // zenith or visible location on the globe or map (assuming it not hidden).
 
   if (gs.fAlt || gi.nMode == gAstroGraph || gi.nMode == gSphere)
     return;
@@ -1131,10 +1169,10 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
   for (i = 0; i <= cObj; i++) {
     planet1[i] = Tropical(planet[i]);
     planet2[i] = planetalt[i];
-    EclToEqu(&planet1[i], &planet2[i]);    /* Calculate zenith long. & lat. */
+    EclToEqu(&planet1[i], &planet2[i]);    // Calculate zenith long. & lat.
   }
 
-  /* Compute screen coordinates of each object, if it's even visible. */
+  // Compute screen coordinates of each object, if it's even visible.
 
   ClearB((pbyte)rgod, sizeof(rgod));
   for (j = 0; j < arMax; j++) {
@@ -1162,25 +1200,12 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
   }
 
 #ifdef ATLAS
-  /* Draw locations of cities from atlas. */
+  // Draw locations of cities from atlas.
 
   if (gs.fLabelCity && !fSky && FEnsureAtlas()) {
     if (!gs.fLabelAsp)
       DrawColor(kOrangeB);
-    if (gs.nLabelCity >= 4) {
-      // Initialize array of current offsets for each time zone area.
-      ci = ciMain;
-#ifdef WIN
-      l = wi.fNoPopup; wi.fNoPopup = fTrue;
-#endif
-      for (i = 0; i < iznMax; i++) {
-        DisplayTimezoneChanges(i, 0, &ci);
-        rgzon[i] = ci.zon - ci.dst;
-      }
-#ifdef WIN
-      wi.fNoPopup = l;
-#endif
-    }
+    KiCity(-1);
     for (i = 0; i < is.cae; i++) {
       x1 = nDegHalf - is.rgae[i].lon + (!fGlobe ? deg : 0.0);
       y1 = rDegQuad - is.rgae[i].lat;
@@ -1190,36 +1215,15 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
         x1 -= rDegMax;
       if (!FMapCalc(x1, y1, &j, &k, fGlobe, -1, 0.0, 0.0, nScl,
         cx, cy, rx, ry, deg)) {
-        if (gs.fLabelAsp) {
-          if (gs.nLabelCity < 3) {
-            l = is.rgae[i].icn;
-            if (gs.nLabelCity == 2 && (l == icnUS || l == icnCA))
-              DrawColor(kRainbowB[is.rgae[i].istate % 7 + 1]);
-            else
-              DrawColor(kRainbowB[l == icnUS ? 6 :
-                (l == icnFR ? 5 : l % 7 + 1)]);
-          } else if (FEnsureTimezoneChanges()) {
-            l = is.rgae[i].izn;
-            if (gs.nLabelCity == 3)
-              zon = ZondefFromIzn(l);
-            else
-              zon = rgzon[l];
-            if (zon == zonLMT)
-              DrawColor(kDkGrayB);
-            else if (zon == RFloor(zon)) {
-              l = (int)(zon + rDegMax) % 6;
-              DrawColor(kRainbowB[l + (l > 0) + 1]);
-            } else
-              DrawColor(kMagentaB);
-          }
-        }
+        if (gs.fLabelAsp)
+          DrawColor(KiCity(i));
         DrawPoint(j, k);
       }
     }
   }
 #endif
 
-  /* Draw ecliptic equator and zodiac sign wedges. */
+  // Draw ecliptic equator and zodiac sign wedges.
 
   if (gs.fHouseExtra) {
     if (!gs.fColorSign)
@@ -1231,10 +1235,10 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
         if (gs.fColorSign && l < 0 && i % 30 == 0)
           DrawColor(kSignB((i+90)/30 + (l < -1)*6 + 1));
         if (l >= 0) {
-          /* Coordinates for zodiac sign wedge longitude lines. */
+          // Coordinates for zodiac sign wedge longitude lines.
           j = l*30; k = i;
         } else {
-          /* Coordinates for ecliptic equator latitude line. */
+          // Coordinates for ecliptic equator latitude line.
           j = i+90 + (l < -1)*180; k = 0;
         }
         x1 = Tropical((real)j);
@@ -1247,7 +1251,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
     }
   }
 
-  /* Draw Earth's equator. */
+  // Draw Earth's equator.
 
   if (gs.fEquator) {
     DrawColor(kPurpleB);
@@ -1259,7 +1263,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
     }
   }
 
-  /* Draw chart latitude. */
+  // Draw chart latitude.
 
   if (us.fLatitudeCross && !fSky) {
     DrawColor(kMagentaB);
@@ -1272,7 +1276,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
 
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
@@ -1303,7 +1307,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
 
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
@@ -1319,8 +1323,8 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
   }
 #endif
 
-  /* Draw MC, IC, Asc, and Des lines for each object, as great circles    */
-  /* around the globe. The result is a (3D for globes) astro-graph chart. */
+  // Draw MC, IC, Asc, and Des lines for each object, as great circles around
+  // the globe. The result is a (3D for globes) astro-graph chart.
 
   if (fSky)
     goto LDone;
@@ -1381,6 +1385,11 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
             } else
               DrawWrap(xold, Min(yold, gs.yWin-1), x, y, 0, gs.xWin-1);
           }
+          if (j == 90) {
+            // Draw glyph to label minor house cusp line.
+            DrawSpot(x, y);
+            DrawObject(cuspLo-1 + k, x, y + 7*gi.nScale);
+          }
           xold = x; yold = y;
         } else
           xold = nNegative;
@@ -1388,7 +1397,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
     }
   }
 
-  /* Plot chart location. */
+  // Plot chart location.
 
   if (us.fLatitudeCross && !FMapCalc(
     Mod(rDegHalf - Lon + (!fGlobe ? deg : 0.0)), rDegQuad - Lat, &j, &k,
@@ -1398,7 +1407,7 @@ void DrawMap(flag fSky, flag fGlobe, real deg)
   }
 
 LDone:
-  /* Draw planet glyphs, and points for actual zenith locations. */
+  // Draw planet glyphs, and points for actual zenith locations.
   DrawObjects(rgod, objMax * arMax, 0);
 }
 
@@ -1413,7 +1422,7 @@ flag EnumStarsLines(flag fInit, ES **ppes1, ES **ppes2)
   static int iBase, iMax;
   int i1, i2;
 
-  /* Check for initialization and empty list cases. */
+  // Check for initialization and empty list cases.
   if (fInit) {
     pchCur = gs.szStarsLnk;
     iBase = iMax = 0;
@@ -1422,7 +1431,7 @@ flag EnumStarsLines(flag fInit, ES **ppes1, ES **ppes2)
   if (!*pchCur)
     return fFalse;
 
-  /* Parse first star index. */
+  // Parse first star index.
   i1 = iBase + atoi(pchCur);
   iMax = Max(iMax, i1);
   while (FNumCh(*pchCur))
@@ -1430,7 +1439,7 @@ flag EnumStarsLines(flag fInit, ES **ppes1, ES **ppes2)
   while (*pchCur && !FNumCh(*pchCur))
     pchCur++;
 
-  /* Parse second star index. */
+  // Parse second star index.
   i2 = iBase + atoi(pchCur);
   iMax = Max(iMax, i2);
   while (FNumCh(*pchCur))
@@ -1439,6 +1448,8 @@ flag EnumStarsLines(flag fInit, ES **ppes1, ES **ppes2)
     iBase = iMax + 1;
   while (*pchCur && !FNumCh(*pchCur))
     pchCur++;
+
+  // If both star indexes are valid, then return those stars.
   if (gi.rges == NULL ||
     !FBetween(i1, 0, gi.cStarsLin-1) || !FBetween(i2, 0, gi.cStarsLin-1))
     return fFalse;
@@ -1516,8 +1527,8 @@ void DrawChartX()
     XChartEsoteric();
     break;
   case gAstroGraph:
-    DrawMap(fFalse, fFalse, gs.rRot);  /* First draw map of world.           */
-    XChartAstroGraph();                /* Then draw astro-graph lines on it. */
+    DrawMap(fFalse, fFalse, gs.rRot);    // First draw map of world.
+    XChartAstroGraph();                  // Then draw astro-graph lines on it.
     break;
   case gCalendar:
     XChartCalendar();
@@ -1525,6 +1536,9 @@ void DrawChartX()
   case gEphemeris:
     XChartEphemeris();
     break;
+  case gLocal:
+    XChartLocal();
+    break;
 #ifdef WIN
   case gTraTraTim:
   case gTraTraInf:
@@ -1548,7 +1562,7 @@ void DrawChartX()
       XChartSphere();
     break;
   case gWorldMap:
-    /* First draw map of world, then maybe Ley lines. */
+    // First draw map of world, then maybe Ley lines.
     DrawMap(fSky, fFalse, gs.rRot);
     if (!fSky && !gs.fMollewide && gs.fAlt && us.fHouse3D)
       DrawLeyLines(gs.rRot);
@@ -1560,10 +1574,13 @@ void DrawChartX()
       break;
     }
 #endif
-    /* Fall through */
+    // Fall through
   case gPolar:
     DrawMap(fSky, fTrue, gs.rRot);
     break;
+  case gTelescope:
+    XChartTelescope();
+    break;
 #ifdef BIORHYTHM
   case gBiorhythm:
     XChartBiorhythm();
@@ -1571,7 +1588,7 @@ void DrawChartX()
 #endif
   }
 
-  /* Print text showing chart information at bottom of window. */
+  // Print text showing chart information at bottom of window.
 
   if (fAltWire)
     return;
@@ -1583,7 +1600,7 @@ void DrawChartX()
       sprintf(sz, "(Composite)");
     else {
       fSav = us.fAnsiChar;
-      us.fAnsiChar = (!gs.fFont || (gs.ft != ftPS && gs.ft != ftWmf)) << 1;
+      us.fAnsiChar = (gs.nFont == 0 || (gs.ft != ftPS && gs.ft != ftWmf)) << 1;
       i = DayOfWeek(Mon, Day, Yea);
       sprintf(sz, "%s%s%.3s %s %s (%cT Zone %s) %s%s%s",
         FSzSet(ciCore.nam) ? ciCore.nam : "", FSzSet(ciCore.nam) ? ", " : "",
@@ -1592,10 +1609,11 @@ void DrawChartX()
         FSzSet(ciCore.loc) ? " " : "", SzLocation(Lon, Lat));
       us.fAnsiChar = fSav;
     }
-    DrawSz(sz, gs.xWin/2, gs.yWin-3*gi.nScaleT, dtBottom | dtErase | dtScale2);
+    DrawSz(sz, gs.xWin/2, gs.yWin - gi.nScaleT - 2*gi.nScaleTextT,
+      dtBottom | dtErase | dtScale2);
   }
 
-  /* Draw a border around the chart if the mode is set and appropriate. */
+  // Draw a border around the chart if the mode is set and appropriate.
 
   if (fDrawBorder)
     DrawEdgeAll();
diff --git a/xcharts1.cpp b/xcharts1.cpp
index 9363662..ece55a1 100644
--- a/xcharts1.cpp
+++ b/xcharts1.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xcharts1.cpp
+** Astrolog (Version 7.10) File: xcharts1.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -422,7 +422,7 @@ void XChartAstroGraph()
 void XChartGrid()
 {
   char sz[cchSzDef], szT[cchSzDef];
-  int nScale, unit, siz, x, y, i, j, k, l;
+  int nScale, unit, siz, x, y, i, j, k, l, i0, j0, ig, jg;
   KI c;
 
   nScale = gi.nScale/gi.nScaleT;
@@ -435,21 +435,26 @@ void XChartGrid()
 
   /* Loop through each cell in each row and column of grid. */
 
-  for (y = 1, j = oEar-1; y <= gi.nGridCell; y++) {
+  for (y = 1, j0 = -1; y <= gi.nGridCell; y++) {
     do {
-      j++;
-    } while (!FProper(j) && j <= cObj);
+      j0++;
+      j = rgobjList[j0];
+    } while (!FProper(j) && j0 <= cObj);
     DrawColor(gi.kiGray);
     DrawDash(0, y*unit, siz, y*unit, !gs.fColor);
     DrawDash(y*unit, 0, y*unit, siz, !gs.fColor);
-    if (j <= cObj) for (x = 1, i = oEar-1; x <= gi.nGridCell; x++) {
+    if (j0 <= cObj) for (x = 1, i0 = -1; x <= gi.nGridCell; x++) {
       do {
-        i++;
-      } while (!FProper(i) && i <= cObj);
-      if (i <= cObj) {
+        i0++;
+        i = rgobjList[i0];
+      } while (!FProper(i) && i0 <= cObj);
+      ig = i; jg = j;
+      if ((i > j) != (i0 > j0))
+        SwapN(ig, jg);
+      if (i0 <= cObj) {
         gi.xTurtle = x*unit-unit/2;
         gi.yTurtle = y*unit-unit/2 - (nScale > 2 ? 5*gi.nScaleT : 0);
-        k = grid->n[i][j];
+        k = grid->n[ig][jg];
 
         /* If this is an aspect cell, draw glyph of aspect in effect. */
 
@@ -462,8 +467,8 @@ void XChartGrid()
         /* If this is a midpoint cell, draw glyph of sign of midpoint. */
 
         } else if (gs.fAlt ? x < y : x > y) {
-          DrawColor(c = kSignB(grid->n[i][j]));
-          DrawSign(grid->n[i][j], gi.xTurtle, gi.yTurtle);
+          DrawColor(c = kSignB(grid->n[ig][jg]));
+          DrawSign(grid->n[ig][jg], gi.xTurtle, gi.yTurtle);
 
         /* For cells on main diagonal, draw glyph of planet. */
 
@@ -480,15 +485,15 @@ void XChartGrid()
         /* When the scale size is 300+, we can print text in each cell: */
 
         if (nScale > 2 && gs.fLabel) {
-          l = NAbs(grid->v[i][j]); k = l / 60; l %= 60;
+          l = NAbs(grid->v[ig][jg]); k = l / 60; l %= 60;
           if (nScale > 3 && is.fSeconds)
             sprintf(szT, "%s%02d", x == y ? "'" : "", l);
 
           /* For the aspect portion, print the orb in degrees and minutes. */
 
           if (gs.fAlt ? x > y : x < y) {
-            if (grid->n[i][j]) {
-              sprintf(sz, "%c%d%c%02d'%s", grid->v[i][j] < 0 ?
+            if (grid->n[ig][jg]) {
+              sprintf(sz, "%c%d%c%02d'%s", grid->v[ig][jg] < 0 ?
                 (us.fAppSep ? 'a' : '-') : (us.fAppSep ? 's' : '+'),
                 k/60, chDeg2, k%60, szT);
               if (nScale == 3)
@@ -504,8 +509,8 @@ void XChartGrid()
           /* For the main diagonal, print degree and sign of each planet. */
 
           else {
-            c = kSignB(grid->n[i][j]);
-            sprintf(sz, "%.3s %02d%s", szSignName[grid->n[i][j]], k, szT);
+            c = kSignB(grid->n[ig][jg]);
+            sprintf(sz, "%.3s %02d%s", szSignName[grid->n[ig][jg]], k, szT);
           }
           DrawColor(c);
           DrawSz(sz, x*unit-unit/2, y*unit-3*gi.nScaleT, dtBottom);
@@ -578,17 +583,21 @@ void XChartHorizon()
   ObjDraw rgod[objMax];
   char sz[cchSzDef];
   flag fFlip = gs.fEcliptic && us.rHarmonic < 0.0;
+#ifdef CONSTEL
+  int m1, n1, m2, n2, xpT, ypT;
+#endif
 #ifdef SWISS
   ES es, *pes1, *pes2;
   int xp2, yp2;
 #endif
 
   unit = Max(12, 6*gi.nScale);
+  unit = Max(unit, yFontT);
   x1 = unit; y1 = unit; x2 = gs.xWin-1-unit; y2 = gs.yWin-1-unit;
   xs = x2-x1; ys = y2-y1; cx = (x1+x2)/2; cy = (y1+y2)/2;
 
-  /* Calculate the local horizon coordinates of each planet. First convert */
-  /* zodiac position and declination to zenith longitude and latitude.     */
+  // Calculate the local horizon coordinates of each planet. First convert
+  // zodiac position and declination to zenith longitude and latitude.
 
   lonM = Tropical(is.MC); latM = 0.0;
   EclToEqu(&lonM, &latM);
@@ -603,8 +612,7 @@ void XChartHorizon()
     rgod[i].f = fTrue;
   }
 
-  /* Draw Earth's equator. */
-
+  // Draw Earth's equator.
   if (gs.fEquator) {
     DrawColor(kPurpleB);
     for (i = 0; i <= nDegMax; i++) {
@@ -613,10 +621,28 @@ void XChartHorizon()
     }
   }
 
-  /* Draw sign and house boundaries if 3D house setting is in effect. */
+#ifdef CONSTEL
+  // Draw constellations.
+  if (gs.fConstel) {
+    EnumConstelLines(NULL, NULL, NULL, NULL, NULL);
+    while (EnumConstelLines(&m1, &n1, &m2, &n2, &i)) {
+      EquToHorizon((real)(nDegMax-m1), (real)(90-n1), x1, y1, xs, ys,
+        &xp, &yp);
+      if (i <= 0) {
+        DrawColor(kPurpleB);
+        EquToHorizon((real)(nDegMax-m2), (real)(90-n2), x1, y1, xs, ys,
+          &xpT, &ypT);
+        DrawWrap(xp, yp, xpT, ypT, x1, x2);
+      } else {
+        DrawColor(gi.kiGray);
+        DrawSz(szCnstlAbbrev[i], xp, yp, dtCent | dtScale2);
+      }
+    }
+  }
+#endif
 
+  // Draw zodiac sign boundary wedges.
   if (us.fVedic) {
-    /* Draw zodiac sign orange wedges. */
     if (!gs.fColorSign)
       DrawColor(kDkBlueB);
     for (i = 0; i < nDegMax; i++) {
@@ -634,7 +660,7 @@ void XChartHorizon()
       }
     }
     k = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     for (j = -80; j <= 80; j += 160)
       for (i = 1; i <= cSign; i++) {
         EclToHorizon((real)(i-1)*30.0+15.0, (real)j, x1, y1, xs, ys,
@@ -645,8 +671,9 @@ void XChartHorizon()
       }
     gi.nScale = k;
   }
+
+  // Draw house boundary wedges.
   if (gs.fHouseExtra) {
-    /* Draw house orange wedges. */
     if (!gs.fColorHouse)
       DrawColor(kDkGreenB);
     if (!us.fHouse3D) {
@@ -750,12 +777,12 @@ void XChartHorizon()
         sprintf(sz, "%dh", k/15);
       else
         sprintf(sz, "%d", k);
-      DrawSz(sz, j, y1-2*gi.nScaleT, dtBottom);
+      DrawSz(sz, j, y1-2*gi.nScaleT, dtBottom | dtScale2);
     }
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -763,6 +790,8 @@ void XChartHorizon()
       EclToHorizon(es.lon, es.lat, x1, y1, xs, ys, &xp, &yp);
       DrawStar(xp, yp, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -772,7 +801,7 @@ void XChartHorizon()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fTrue);
@@ -783,7 +812,7 @@ void XChartHorizon()
   }
 #endif
 
-  /* Draw planet glyphs, and spots for actual planet locations. */
+  // Draw planet glyphs, and spots for actual planet locations.
   DrawObjects(rgod, objMax, 0);
 }
 
@@ -860,19 +889,23 @@ void XChartHorizonSky()
   real lonM, latM, lonH, latH, s;
   CIRC cr;
   ObjDraw rgod[objMax];
+#ifdef CONSTEL
+  int m1, n1, m2, n2, xpT, ypT;
+#endif
 #ifdef SWISS
   ES es, *pes1, *pes2;
   int xp2, yp2;
 #endif
 
   unit = Max(12, 6*gi.nScale);
+  unit = Max(unit, yFontT);
   x1 = unit; y1 = unit; x2 = gs.xWin-1-unit; y2 = gs.yWin-1-unit;
   xs = x2-x1; ys = y2-y1; cx = (x1+x2)/2; cy = (y1+y2)/2;
   rx = (int)((real)xs/2.0/rSqr2); ry = (int)((real)ys/2.0/rSqr2);
   cr.xc = cx; cr.yc = cy; cr.xr = rx; cr.yr = ry;
 
-  /* Calculate the local horizon coordinates of each planet. First convert */
-  /* zodiac position and declination to zenith longitude and latitude.     */
+  // Calculate the local horizon coordinates of each planet. First convert
+  // zodiac position and declination to zenith longitude and latitude.
 
   lonM = Tropical(is.MC); latM = 0.0;
   EclToEqu(&lonM, &latM);
@@ -886,8 +919,7 @@ void XChartHorizonSky()
     rgod[i].f = fTrue;
   }
 
-  /* Draw Earth's equator. */
-
+  // Draw Earth's equator.
   if (gs.fEquator) {
     DrawColor(kPurpleB);
     for (i = 0; i <= nDegMax; i++) {
@@ -896,10 +928,27 @@ void XChartHorizonSky()
     }
   }
 
-  /* Draw sign and house boundaries if 3D house setting is in effect. */
+#ifdef CONSTEL
+  // Draw constellations.
+  if (gs.fConstel) {
+    EnumConstelLines(NULL, NULL, NULL, NULL, NULL);
+    while (EnumConstelLines(&m1, &n1, &m2, &n2, &i)) {
+      EquToHorizonSky((real)(nDegMax-m1), (real)(90-n1), &cr, &xp, &yp);
+      if (i <= 0) {
+        DrawColor(kPurpleB);
+        EquToHorizonSky((real)(nDegMax-m2), (real)(90-n2), &cr, &xpT, &ypT);
+        if (NAbs(xpT - xp) + NAbs(ypT - yp) < (xs+ys) >> 4)
+          DrawLine(xp, yp, xpT, ypT);
+      } else {
+        DrawColor(gi.kiGray);
+        DrawSz(szCnstlAbbrev[i], xp, yp, dtCent | dtScale2);
+      }
+    }
+  }
+#endif
 
+  // Draw zodiac sign boundary wedges.
   if (us.fVedic) {
-    /* Draw zodiac sign orange wedges. */
     if (!gs.fColorSign)
       DrawColor(kDkBlueB);
     for (i = 0; i < nDegMax; i++) {
@@ -917,7 +966,7 @@ void XChartHorizonSky()
       }
     }
     k = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     for (j = -80; j <= 80; j += 160)
       for (i = 1; i <= cSign; i++) {
         EclToHorizonSky((real)(i-1)*30.0+15.0, (real)j, &cr, &xp, &yp);
@@ -927,8 +976,9 @@ void XChartHorizonSky()
       }
     gi.nScale = k;
   }
+
+  // Draw house boundary wedges.
   if (gs.fHouseExtra) {
-    /* Draw house orange wedges. */
     if (!gs.fColorHouse)
       DrawColor(kDkGreenB);
     if (!us.fHouse3D) {
@@ -1003,11 +1053,11 @@ void XChartHorizonSky()
     DrawLine(x2-j, y2, x2-j, y2-k);
   }
   if (!gs.fEcliptic) {
-    DrawSz("N", cx, y1-2*gi.nScaleT, dtBottom);
-    DrawSz("E", x1/2, cy+2*gi.nScaleT, dtCent);
-    DrawSz("W", (gs.xWin+x2)/2, cy+2*gi.nScaleT, dtCent);
+    DrawSz("N", cx, y1-2*gi.nScaleT, dtBottom | dtScale2);
+    DrawSz("E", x1/2, cy+2*gi.nScaleT, dtCent | dtScale2);
+    DrawSz("W", (gs.xWin+x2)/2, cy+2*gi.nScaleT, dtCent | dtScale2);
     if (!gs.fText)
-      DrawSz("S", cx, gs.yWin-3*gi.nScaleT, dtBottom);
+      DrawSz("S", cx, gs.yWin-3*gi.nScaleT, dtBottom | dtScale2);
   }
   DrawColor(gi.kiOn);
   DrawEdge(x1, y1, x2, y2);
@@ -1019,7 +1069,7 @@ void XChartHorizonSky()
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -1027,6 +1077,8 @@ void XChartHorizonSky()
       EclToHorizonSky(es.lon, es.lat, &cr, &xp, &yp);
       DrawStar(xp, yp, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -1036,7 +1088,7 @@ void XChartHorizonSky()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fTrue);
@@ -1047,37 +1099,750 @@ void XChartHorizonSky()
   }
 #endif
 
-  /* Draw planet glyphs, and spots for actual planet locations. */
+  // Draw planet glyphs, and spots for actual planet locations.
   DrawObjects(rgod, objMax, 0);
 }
 
 
+/* Translate zodiac position or local horizon position into chart pixel   */
+/* coordinates, given local horizon, equatorial, or ecliptic coordinates, */
+/* for the -XZ switch telescope chart.                                    */
+
+void PlotTelescope(real lon, real lat, TELE *pte,
+  int *xp, int *yp, real *xr, real *yr)
+{
+  pte->lon = lon; pte->lat = lat;
+  *xr = (real)pte->xCent - (MinDifference(lon, pte->xBase) * pte->xScale);
+  *yr = (real)pte->yCent - ((lat - pte->yBase) * pte->yScale);
+  *xp = (int)(*xr + rRound);
+  *yp = (int)(*yr + rRound);
+}
+
+void LocToTelescope(real lon, real lat, TELE *pte,
+  int *xp, int *yp, real *xr, real *yr)
+{
+  if (!gs.fEcliptic) {
+    lon = Mod(rDegQuad - lon);
+    PlotTelescope(lon, lat, pte, xp, yp, xr, yr);
+  } else {
+    lon = rDegMax - lon;
+    CoorXform(&lon, &lat, is.latMC - rDegQuad);
+    lon = Mod(is.lonMC - lon + rDegQuad);
+    EquToTelescope(lon, lat, pte, xp, yp, xr, yr);
+  }
+}
+
+void EquToTelescope(real lon, real lat, TELE *pte,
+  int *xp, int *yp, real *xr, real *yr)
+{
+  if (!gs.fEcliptic) {
+    lon = Mod(is.lonMC - lon + rDegQuad);
+    EquToLocal(&lon, &lat, rDegQuad - is.latMC);
+    lon = rDegMax - lon;
+    LocToTelescope(lon, lat, pte, xp, yp, xr, yr);
+  } else {
+    EquToEcl(&lon, &lat);
+    lon = Mod(Untropical(lon));
+    EclToTelescope(lon, lat, pte, xp, yp, xr, yr);
+  }
+}
+
+void EclToTelescope(real lon, real lat, TELE *pte,
+  int *xp, int *yp, real *xr, real *yr)
+{
+  if (!gs.fEcliptic) {
+    lon = Tropical(lon);
+    EclToEqu(&lon, &lat);
+    EquToTelescope(lon, lat, pte, xp, yp, xr, yr);
+  } else
+    PlotTelescope(lon, lat, pte, xp, yp, xr, yr);
+}
+
+
+/* Draw a chart depicting a telescope view of the sky, showing planetary   */
+/* disks (including moon phases), as done with the -XZ switch. This is     */
+/* similar to a zoomed in version of the -Z -X switch local horizon chart. */
+
+void XChartTelescope()
+{
+  char sz[cchSzDef], szT[cchSzDef], *pch;
+  int rgobj[objMax], xunit, yunit, x1, y1, x2, y2, xs, ys, xc, yc, xp, yp,
+    xT, yT, xd, yd, i, j, k, i0, i2, dx, dy = 0, nEclipse;
+  real rglen[objMax], lonM, latM, lonH, latH, xBase, yBase, xScale, yScale,
+    xi, yi, radi, rRatio, len, ang, xo, yo, xr, yr, zr, xrSun, yrSun, xrT, yrT,
+    radiS, radiE, radiM, radiU, radiP, lenS, lenM, theta, rPct;
+  flag fRedoEarth, fSav, fShowLabel;
+  TELE te;
+#ifdef CONSTEL
+  int m1, n1, m2, n2;
+#endif
+#ifdef SWISS
+  ES es, *pes1, *pes2;
+#endif
+
+  // Initialize variables.
+  xunit = xFontT*4; yunit = 12*gi.nScaleTextT;
+  x1 = xunit; y1 = yunit; x2 = gs.xWin-1-xunit; y2 = gs.yWin-1-yunit;
+  xs = x2-x1; ys = y2-y1; xc = (x1+x2)/2; yc = (y1+y2)/2;
+
+  lonM = Tropical(is.MC); latM = 0.0;
+  EclToEqu(&lonM, &latM);
+  latM = Lat;
+  is.lonMC = lonM; is.latMC = latM;
+
+  // Determine point to center chart around.
+  if (gs.objTrack >= 0) {
+    xBase = planet[gs.objTrack], yBase = planetalt[gs.objTrack];
+    if (!gs.fEcliptic) {
+      xBase = Tropical(xBase);
+      EclToEqu(&xBase, &yBase);
+      xBase = Mod(is.lonMC - xBase + rDegQuad);
+      EquToLocal(&xBase, &yBase, rDegQuad - is.latMC);
+      xBase = rDegMax - xBase;
+      xBase = Mod(rDegQuad - xBase);
+    }
+  } else {
+    xBase = gs.rRot; yBase = gs.rTilt;
+  }
+
+  // Determine degrees the chart area covers.
+  len = (real)Min(xs, ys);
+  yScale = gs.rspace > 0.0 ? len / Min(gs.rspace, 90.0) :
+    len / (real)(1 << (4-gi.nScale/gi.nScaleT));
+  len = (real)ys/yScale/2.0;
+  if (yBase - len < -89.0)
+    yBase = len - 89.0;
+  else if (yBase + len > 89.0)
+    yBase = 89.0 - len;
+  if (len > 89.0 || !FBetween(yBase, -89.9, 89.0))
+    yBase = 0.0;
+  xScale = yScale * RSinD(rDegQuad - yBase);
+  dx = (int)xScale*10;
+  gs.rRot = xBase; gs.rTilt = yBase;
+  te.xCent = (real)xc; te.yCent = (real)yc;
+  te.xBase = xBase; te.yBase = yBase;
+  te.xScale = xScale; te.yScale = yScale;
+
+  // Sort planets in order of distance.
+  for (i = 0; i <= cObj; i++) {
+    rgobj[i] = i;
+    xr = space[i].x; yr = space[i].y; zr = space[i].z;
+    rglen[i] = RLength3(xr, yr, zr);
+  }
+  rglen[oEar] = 1/rSmall;
+  for (i = 1; i <= cObj; i++) {
+    j = i-1;
+    while (j >= 0 && rglen[rgobj[j]] < rglen[rgobj[j+1]]) {
+      SwapN(rgobj[j], rgobj[j+1]);
+      j--;
+    }
+  }
+  if (!gs.fLabelAsp) {
+    EclToTelescope(planet[oSun], planetalt[oSun], &te, &xp, &yp, &xr, &yr);
+    xrSun = te.lon; yrSun = te.lat;
+  }
+
+  // Draw grid of degree points.
+  xi = (real)xs/xScale; yi = (real)ys/yScale;
+  if (gs.fLabelCity && yScale >= 1.0 && xScale >= 1.0) {
+    DrawColor(gi.kiGray);
+    for (j = (int)(yBase - yi); j <= (int)(yBase + yi); j++) {
+      if (!FBetween(j, -90, 90))
+        continue;
+      yp = yc - (int)(((real)j - yBase) * yScale);
+      if (!FBetween(yp, y1, y2))
+        continue;
+      for (i = (int)(xBase - xi); i <= (int)(xBase + xi); i++) {
+        xp = xc + (int)(((real)i - xBase) * xScale);
+        if (!FBetween(xp, x1, x2))
+          continue;
+        DrawPoint(xp, yp);
+      }
+    }
+  }
+
+#ifdef CONSTEL
+  // Draw constellations.
+  if (gs.fConstel) {
+    EnumConstelLines(NULL, NULL, NULL, NULL, NULL);
+    while (EnumConstelLines(&m1, &n1, &m2, &n2, &i)) {
+      EquToTelescope((real)(nDegMax-m1), (real)(90-n1), &te, &xp, &yp,
+        &xr, &yr);
+      if (i <= 0) {
+        DrawColor(kPurpleB);
+        EquToTelescope((real)(nDegMax-m2), (real)(90-n2), &te, &xT, &yT,
+          &xr, &yr);
+        if ((real)NAbs(xT - xp) < xScale*rDegQuad)
+          DrawClip(xp, yp, xT, yT, x1, y1, x2, y2, 0);
+      } else {
+        DrawColor(gi.kiGray);
+        DrawSz(szCnstlAbbrev[i], xp, yp, dtCent | dtScale2);
+      }
+    }
+  }
+#endif
+
+  // Draw ecliptic and zodiac boundary wedges.
+  if (us.fVedic) {
+    if (!gs.fColorSign)
+      DrawColor(kMaroonB);
+    for (i = 0; i <= nDegMax; i++) {
+      EclToTelescope((real)i, 0.0, &te, &xp, &yp, &xr, &yr);
+      if (i > 0 && NAbs(xp - xT) < dx)
+        DrawClip(xT, yT, xp, yp, x1, y1, x2, y2, 0);
+      xT = xp; yT = yp;
+    }
+    for (k = 1; k <= cSign; k++) {
+      if (gs.fColorSign)
+        DrawColor(kSignB(k));
+      len = (real)((k-1)*30);
+      for (i = -90; i <= 90; i++) {
+        EclToTelescope(len, (real)i, &te, &xp, &yp, &xr, &yr);
+        if (i > -90 && NAbs(xp - xT) < dx)
+          if (FDrawClip(xT, yT, xp, yp, x1, y1, x2, y2, 0, &xd, &yd))
+            DrawSign(k, xd + ((xd == x1)-(xd == x2))*gi.nScale*6,
+              yd + ((yd == y1)-(yd == y2))*gi.nScale*8);
+        xT = xp; yT = yp;
+      }
+    }
+  }
+
+  // Draw house boundary wedges.
+  if (gs.fHouseExtra) {
+    if (!gs.fColorHouse)
+      DrawColor(kDkGreenB);
+    if (!us.fHouse3D) {
+      for (j = 1 + gs.fEquator; j <= cSign;
+        j += (gs.fEquator && j%6 == 0 ? 2 : 1)) {
+        if (gs.fColorHouse)
+          DrawColor(kSignB(j));
+        for (i = 0; i <= nDegHalf; i++) {
+          lonH = (real)(i + !FBetween(j, sCan, sSag)*180); latH = 0.0;
+          k = (j < sCan ? j-1 : (j < sCap ? j-7 : j-13))*30;
+          CoorXform(&lonH, &latH, (real)k);
+          LocToTelescope(Mod(lonH + rDegQuad), latH, &te, &xp, &yp, &xr, &yr);
+          if (i > 0 && NAbs(xp - xT) < dx)
+            if (FDrawClip(xT, yT, xp, yp, x1, y1, x2, y2, 0, &xd, &yd))
+              DrawHouse(j, xd + ((xd == x1)-(xd == x2))*gi.nScale*6,
+                yd + ((yd == y1)-(yd == y2))*gi.nScale*6);
+          xT = xp; yT = yp;
+        }
+      }
+    } else {
+      for (k = 1; k <= cSign; k++) {
+        if (gs.fColorHouse)
+          DrawColor(kSignB(SFromZ(chouse[k])));
+        for (i = -90; i <= 90; i++) {
+          EclToTelescope(chouse[k], (real)i, &te, &xp, &yp, &xr, &yr);
+          if (i > -90 && NAbs(xp - xT) < dx)
+            if (FDrawClip(xT, yT, xp, yp, x1, y1, x2, y2, 0, &xd, &yd))
+              DrawHouse(k, xd + ((xd == x1)-(xd == x2))*gi.nScale*6,
+                yd + ((yd == y1)-(yd == y2))*gi.nScale*6);
+          xT = xp; yT = yp;
+        }
+      }
+    }
+  }
+
+  // Draw horizon line.
+  if (gs.fEquator) {
+    DrawColor(gi.kiLite);
+    for (i = 0; i <= nDegMax; i++) {
+      LocToTelescope((real)i, 0.0, &te, &xp, &yp, &xr, &yr);
+      if (i > 0 && NAbs(xp - xT) < dx)
+        DrawClip(xT, yT, xp, yp, x1, y1, x2, y2, 0);
+      xT = xp; yT = yp;
+    }
+  }
+
+  // Draw planet disks.
+  for (k = 0; k <= 1; k++) {
+    fRedoEarth = fFalse;
+    for (i0 = 0; i0 <= cObj; i0++) {
+      i = rgobj[i0];
+      if (!FProper(i))
+        continue;
+LRedo:
+      xo = planet[i]; yo = planetalt[i];
+      if (FThing(i) && i <= oVes) {
+        if (!(i == oEar && us.objCenter == oEar)) {
+          radi = rObjDiam[i] / 2.0;
+          len = RLength3(space[i].x, space[i].y, space[i].z) * rAUToKm;
+          ang = RAtnD(radi / len);
+        } else {
+          // Earth object in geocentric chart is Earth's shadow.
+          inv(fRedoEarth);
+          xo = Mod(planet[oSun] + rDegHalf); yo = -planetalt[oSun];
+
+          radiS = rObjDiam[oSun] / 2.0;
+          radiE = rObjDiam[oEar] / 2.0;
+          radiM = rObjDiam[oMoo] / 2.0;
+          lenS = RLength3(space[oSun].x, space[oSun].y, space[oSun].z);
+          lenM = RLength3(space[oMoo].x, space[oMoo].y, space[oMoo].z);
+          lenS *= rAUToKm; lenM *= rAUToKm;
+
+          theta = RAsinD((radiS - radiE) / lenS);
+          radiU = radiE - lenM * RTanD(theta);
+          theta = RAsinD((radiE + radiS) / lenS);
+          radiP = (lenS + lenM) * RTanD(theta) - radiS;
+
+          // Calculate angular size in sky of Earth's umbra or penumbra.
+          ang = RAtnD((fRedoEarth ? radiP : radiU) / lenM);
+        }
+        radi = ang * yScale;
+        j = (int)(radi + rRound);
+      } else
+        j = 0;
+      EclToTelescope(xo, yo, &te, &xp, &yp, &xr, &yr);
+      if (!FBetween(xp, x1-j, x2+j) || !FBetween(yp, y1-j, y2+j))
+        goto LNext;
+      DrawColor(!fRedoEarth ? kObjB[i] : kDkGreenB);
+      if (j <= 0) {
+        if (k == !us.fLatitudeCross) {
+          if (gs.fAlt)
+            DrawPoint(xp, yp);
+          else
+            DrawSpot(xp, yp);
+        }
+      } else {
+        yd = (int)(radi * 2.0); yT = (int)(yr - radi + rRound);
+        rRatio = RSinD(rDegQuad - ((((real)yc - yr) / yScale) + yBase)) /
+          (xScale / yScale);
+        radi /= rRatio;
+        xd = (int)(radi * 2.0); xT = (int)(xr - radi + rRound);
+        if (!k) {
+          if (i <= oSun || FIgnore(oSun) || gs.fLabelAsp) {
+            // Sun will never be in shadow, so always draw it filled in.
+            DrawEllipse2(xT, yT, xT + xd, yT + yd);
+          } else {
+            // Determine tilt of crescent Moon (point it toward the Sun).
+            SphRatio(te.lon, te.lat, xrSun, yrSun, 0.01, &xrT, &yrT);
+            theta = RAngleD(MinDifference(te.lon, xrT), yrT - te.lat);
+            // Determine phase of Moon, or how much it's covered in shadow.
+            ang = RAngleD(space[oSun].x-space[i].x, space[oSun].y-space[i].y);
+            len = RAngleD(space[i].x, space[i].y);
+            ang = rDegHalf - MinDistance(ang, len);
+            len = 1.0 - (RCosD(ang) / 2.0 + 0.5);
+            // Display how full the Moon (or other planet) is.
+            if (gs.fText) {
+              sprintf(szT, "%%s: %%.%df%%%% Full (area), "
+                "%%.%df%%%% Full (time)", us.fSeconds*2, us.fSeconds*2);
+              sprintf(sz, szT, szObjDisp[i], 100.0 - (len*100.0),
+                100.0 - (ang / rDegHalf * 100.0));
+              DrawSz(sz, xc, y2 - gi.nScaleT*10 - dy*yFontT,
+                dtCent | dtBottom | dtScale2);
+              dy++;
+            }
+            DrawCrescent(xT, yT, xT + xd, yT + yd, len, theta + rDegHalf,
+              kDkBlueB, gi.kiCur);
+            // Draw a surrounding circle to indicate extent of Saturn's rings.
+            if (i == oSat) {
+              radi *= (rObjDiam[i] + 120700.0) / rObjDiam[i];
+              xd = (int)(radi * 2.0); xT = (int)(xr - radi + rRound);
+              radi *= rRatio;
+              yd = (int)(radi * 2.0); yT = (int)(yr - radi + rRound);
+              DrawColor(kObjB[i]);
+              DrawEllipse(xT, yT, xT + xd, yT + yd);
+            }
+          }
+        } else if (!us.fLatitudeCross)
+          DrawEllipse(xT, yT, xT + xd, yT + yd);
+      }
+      if (k && !fRedoEarth) {
+        yp += j + (i < starLo ? 7*gi.nScale : 9*gi.nScaleT);
+        if (FBetween(xp, x1, x2) && FBetween(yp, y1, y2))
+          DrawObject(i, xp, yp);
+        if (gs.fText && us.fEclipse) {
+          // Display eclipse information if any visible planets overlapping.
+          for (i2 = -1; i2 < i; i2++) {
+            if (i2 >= 0) {
+              if (!FProper(i2) || (i == oMoo && i2 == oEar))
+                continue;
+              nEclipse = NCheckEclipse(i2, i, &rPct);
+            } else {
+              if (!(i == oMoo && us.objCenter == oEar && !FIgnore(oEar)))
+                continue;
+              nEclipse = NCheckEclipseLunar(&rPct);
+            }
+            if (nEclipse > etNone) {
+              if (i2 >= 0) {
+                DrawColor(nEclipse >= etAnnular ? gi.kiOn : gi.kiLite);
+                sprintf(szT, "%%s & %%s: %%s %%s%%s %%.%df%%%%",
+                  us.fSeconds*2);
+                sprintf(sz, szT, szObjDisp[i2], szObjDisp[i],
+                  szEclipse[nEclipse], i2 == oSun ? "Solar " : "",
+                  i2 == oSun && i == oMoo ? "Eclipse" : "Occultation", rPct);
+              } else {
+                DrawColor(nEclipse >= etTotal ? gi.kiOn :
+                  (nEclipse <= etPenumbra ? gi.kiGray : gi.kiLite));
+                sprintf(szT, "%%s Lunar Eclipse %%.%df%%%%", us.fSeconds*2);
+                sprintf(sz, szT, szEclipse[nEclipse], rPct);
+              }
+              DrawSz(sz, xc, y2 - gi.nScaleT*10 - dy*yFontT,
+                dtCent | dtBottom | dtScale2);
+              dy++;
+            }
+          }
+        }
+      }
+LNext:
+      if (fRedoEarth)
+        goto LRedo;
+    }
+  }
+
+#ifdef SWISS
+  // Draw extra stars.
+  if (gs.fAllStar) {
+    DrawColor(gi.kiGray);
+    SwissComputeStar(0.0, NULL);
+    while (SwissComputeStar(is.T, &es)) {
+      EclToTelescope(es.lon, es.lat, &te, &xp, &yp, &xr, &yr);
+      if (!FBetween(xp, x1, x2) || !FBetween(yp, y1, y2))
+        continue;
+      DrawStar(xp, yp, &es);
+    }
+
+    // Draw constellation lines between stars.
+    DrawColor(gi.kiLite);
+    EnumStarsLines(fTrue, NULL, NULL);
+    while (EnumStarsLines(fFalse, &pes1, &pes2)) {
+      EclToTelescope(pes1->lon, pes1->lat, &te, &xp, &yp, &xr, &yr);
+      EclToTelescope(pes2->lon, pes2->lat, &te, &xT, &yT, &xr, &yr);
+      if ((!FBetween(xp, x1, x2) && !FBetween(xT, x1, x2)) ||
+        (!FBetween(yp, y1, y2) && !FBetween(yT, y1, y2)))
+        continue;
+      DrawClip(xp, yp, xT, yT, x1, y1, x2, y2, 0);
+    }
+  }
+
+  // Draw extra asteroids.
+  if (gs.nAstLo > 0) {
+    DrawColor(gi.kiGray);
+    SwissComputeAsteroid(0.0, NULL, fTrue);
+    while (SwissComputeAsteroid(is.T, &es, fTrue)) {
+      EclToTelescope(es.lon, es.lat, &te, &xp, &yp, &xr, &yr);
+      if (!FBetween(xp, x1, x2) || !FBetween(yp, y1, y2))
+        continue;
+      DrawStar(xp, yp, &es);
+    }
+  }
+#endif
+
+  // Label degree points on vertical axis.
+  DrawColor(gi.kiLite);
+  i = (yFont-2)*gi.nScaleT / Max((int)yScale, 1) + 1;
+  for (j = (int)(yBase - yi); j <= (int)(yBase + yi); j++) {
+    if (!FBetween(j, -90, 90))
+      continue;
+    yp = yc - (int)(((real)j - yBase) * yScale);
+    if (!FBetween(yp, y1, y2))
+      continue;
+    fShowLabel = ((j % i) == 0);
+    DrawBlock(x1, yp, x1 + (3+fShowLabel*2)*gi.nScaleT, yp);
+    DrawBlock(x2 - (3+fShowLabel*2)*gi.nScaleT, yp, x2, yp);
+    if (!fShowLabel)
+      continue;
+    sprintf(sz, "%s%d", j > 0 ? "+" : "", j);
+    DrawSz(sz, xFontT*2, yp + 2*gi.nScaleTextT, dtCent | dtScale2);
+    DrawSz(sz, gs.xWin-gi.nScaleT - xFontT*2, yp + 2*gi.nScaleTextT,
+      dtCent | dtScale2);
+  }
+
+  // Label degree points on horizontal axis.
+  j = us.nDegForm == 0 ? 5 : (us.nDegForm == 1 ? 7 : 4);
+  j = j*xFontT / Max((int)xScale, 1) + 1;
+  for (i = (int)(xBase - xi); i <= (int)(xBase + xi); i++) {
+    xp = xc + (int)(((real)i - xBase) * xScale);
+    if (!FBetween(xp, x1, x2))
+      continue;
+    fShowLabel = ((i % j) == 0);
+    DrawBlock(xp, y1, xp, y1 + (3+fShowLabel*2)*gi.nScaleT);
+    DrawBlock(xp, y2 - (3+fShowLabel*2)*gi.nScaleT, xp, y2);
+    if (!fShowLabel)
+      continue;
+    fSav = is.fSeconds; is.fSeconds = fFalse;
+    k = us.nDegForm; us.nDegForm = (gs.fEcliptic ? us.nDegForm : 2);
+    sprintf(sz, "%s", SzZodiac(Mod((real)(gs.fEcliptic ? i : 90-i))));
+    if (us.nDegForm == 0)
+      sz[5] = chNull;
+    else if (us.nDegForm == 2) {
+      sz[3] = chDeg2; sz[4] = chNull;
+    }
+    us.nDegForm = k;
+    is.fSeconds = fSav;
+    pch = sz + (sz[0] == ' ');
+    DrawSz(pch, xp, 2*gi.nScaleTextT, dtCent | dtTop | dtScale2);
+    if (!gs.fText)
+      DrawSz(pch, xp, gs.yWin - gi.nScaleT - 2*gi.nScaleTextT,
+        dtCent | dtBottom | dtScale2);
+  }
+
+  // Draw boundary of chart area.
+  DrawEdge(x1, y1, x2, y2);
+}
+
+
+/* Draw a chart depicting a map of the local area, showing cities and    */
+/* compass lines from the chart location to the zenith locations of each */
+/* planet, as done when the -Nl is combined with the -X switch. This is  */
+/* similar to a zoomed in version of the rectangular world map chart.    */
+
+void XChartLocal()
+{
+  char sz[cchSzDef];
+  int xunit, yunit, x1, y1, x2, y2, xs, ys, xc, yc, xp, yp, xp2, yp2,
+    m1, n1, m2, n2, i, j, k;
+  real lonMC, latMC, xBase, yBase, xScale, yScale, xr, yr, xi, yi, lon, lat,
+    len;
+  flag fShowLabel;
+  TELE te;
+  static real lonPrev = rLarge, latPrev = rLarge;
+  static int objPrev = nLarge;
+
+  // Initialize variables.
+  xunit = xFontT*4; yunit = 12*gi.nScaleTextT;
+  x1 = xunit; y1 = yunit; x2 = gs.xWin-1-xunit; y2 = gs.yWin-1-yunit;
+  xs = x2-x1; ys = y2-y1; xc = (x1+x2)/2; yc = (y1+y2)/2;
+
+  lonMC = Tropical(is.MC); latMC = 0.0;
+  EclToEqu(&lonMC, &latMC);
+
+  // Determine point to center chart around.
+  if (objPrev == nLarge)
+    objPrev = gs.objTrack;
+  if (gs.objTrack >= 0 && gs.objTrack != objPrev) {
+    objPrev = -1;
+    xBase = planet[gs.objTrack], yBase = planetalt[gs.objTrack];
+    EclToEqu(&xBase, &yBase);
+    xBase = Mod(xBase - lonMC - Lon + rDegHalf);
+  } else {
+    if (Lon != lonPrev || Lat != latPrev) {
+      lonPrev = Lon; latPrev = Lat;
+      gs.rRot = Mod(rDegHalf - lonPrev); gs.rTilt = latPrev;
+    }
+    xBase = gs.rRot; yBase = gs.rTilt;
+  }
+
+  // Determine degrees the chart area covers.
+  len = (real)Min(xs, ys);
+  yScale = gs.rspace > 0.0 ? len / Min(gs.rspace, 90.0) :
+    len / (real)(1 << (4-gi.nScale/gi.nScaleT));
+  len = (real)ys/yScale/2.0;
+  if (yBase - len < -89.0)
+    yBase = len - 89.0;
+  else if (yBase + len > 89.0)
+    yBase = 89.0 - len;
+  if (len > 89.0 || !FBetween(yBase, -89.9, 89.0))
+    yBase = 0.0;
+  xScale = yScale * RSinD(rDegQuad - yBase);
+  gs.rRot = xBase; gs.rTilt = yBase;
+  te.xCent = (real)xc; te.yCent = (real)yc;
+  te.xBase = xBase; te.yBase = yBase;
+  te.xScale = xScale; te.yScale = yScale;
+
+  // Draw grid of degree points.
+  xi = (real)xs/xScale; yi = (real)ys/yScale;
+  if (gs.fHouseExtra && yScale >= 1.0 && xScale >= 1.0) {
+    DrawColor(gi.kiGray);
+    for (j = (int)(yBase - yi); j <= (int)(yBase + yi); j++) {
+      if (!FBetween(j, -90, 90))
+        continue;
+      yp = yc - (int)(((real)j - yBase) * yScale + rRound);
+      if (!FBetween(yp, y1, y2))
+        continue;
+      for (i = (int)(xBase - xi); i <= (int)(xBase + xi); i++) {
+        xp = xc + (int)(((real)i - xBase) * xScale + rRound);
+        if (!FBetween(xp, x1, x2))
+          continue;
+        DrawPoint(xp, yp);
+      }
+    }
+  }
+
+  // Draw equator.
+  if (gs.fEquator) {
+    yp = yc - (int)(-yBase * yScale + rRound);
+    if (FBetween(yp, y1, y2)) {
+      DrawColor(gi.kiGray);
+      DrawLine(x1, yp, x2, yp);
+    }
+  }
+
+  // Draw world map.
+  EnumWorldLines(NULL, NULL, NULL, NULL, NULL);
+  while (EnumWorldLines(&m1, &n1, &m2, &n2, &k)) {
+    if (k >= 0)
+      DrawColor(k <= 0 ? kDkBlueB : (gs.fColorSign ? kRainbowB[k] : kLtGrayB));
+    xr = MinDifference(xBase, (real)m1);
+    if (RAbs(xr) > rDegHalf-2.0)
+      continue;
+    yr = (real)(90 - n1) - yBase;
+    xp = xc + (int)(xr * xScale + rRound);
+    yp = yc - (int)(yr * yScale + rRound);
+    xr = MinDifference(xBase, (real)m2);
+    yr = (real)(90 - n2) - yBase;
+    xp2 = xc + (int)(xr * xScale + rRound);
+    yp2 = yc - (int)(yr * yScale + rRound);
+    DrawClip(xp, yp, xp2, yp2, x1, y1, x2, y2, 0);
+  }
+
+#ifdef ATLAS
+  // Draw locations of cities from atlas.
+  if (FEnsureAtlas()) {
+    if (!gs.fLabelAsp)
+      DrawColor(kOrangeB);
+    KiCity(-1);
+    for (i = 0; i < is.cae; i++) {
+      lon = Mod(rDegHalf - is.rgae[i].lon);
+      lat = is.rgae[i].lat;
+      xr = MinDifference(xBase, lon); yr = lat - yBase;
+      xp = xc + (int)(xr * xScale + rRound);
+      yp = yc - (int)(yr * yScale + rRound);
+      if (!FBetween(xp, x1, x2) || !FBetween(yp, y1, y2))
+        continue;
+      if (gs.fLabelAsp)
+        DrawColor(KiCity(i));
+      if (gs.fAlt)
+        DrawPoint(xp, yp);
+      else
+        DrawSpot(xp, yp);
+      if (!gs.fLabelCity)
+        DrawSz(is.rgae[i].szNam, xp, yp + 9*gi.nScaleT, dtCent | dtScale2);
+    }
+  }
+#endif
+
+  // Draw zenith locations of planets.
+  for (i = 0; i <= cObj; i++) if (!FIgnore(i)) {
+    lon = Tropical(planet[i]);
+    lat = planetalt[i];
+    EclToEqu(&lon, &lat);
+    lon = Mod(lon - lonMC - Lon + rDegHalf);
+    xr = MinDifference(xBase, lon); yr = lat - yBase;
+    xp = xc + (int)(xr * xScale + rRound);
+    yp = yc - (int)(yr * yScale + rRound);
+    DrawColor(kObjB[i]);
+    if (FBetween(xp, x1, x2) && FBetween(yp, y1, y2)) {
+      if (gs.fAlt)
+        DrawPoint(xp, yp);
+      else
+        DrawSpot(xp, yp);
+      DrawObject(i, xp, yp + 9*gi.nScale);
+    }
+
+    // Draw line from chart location to planet's zenith location.
+    if (us.fVedic)
+      continue;
+    k = (int)SphDistance(Lon, Lat, lon, lat) + 1;
+    for (j = 0; j <= k; j++) {
+      SphRatio(rDegHalf - Lon, Lat, lon, lat, (real)j / (real)k, &xr, &yr);
+      xr = MinDifference(xBase, xr); yr -= yBase;
+      xp = xc + (int)(xr * xScale + rRound);
+      yp = yc - (int)(yr * yScale + rRound);
+      if (j > 0 && RAbs(xr) < rDegHalf-20.0)
+        if (FDrawClip(xp2, yp2, xp, yp, x1, y1, x2, y2, 0, &m1, &n1))
+          DrawObject(i, m1 + ((m1 == x1)-(m1 == x2))*gi.nScale*6,
+            n1 + ((n1 == y1)-(n1 == y2))*gi.nScale*6);
+      xp2 = xp; yp2 = yp;
+    }
+  }
+
+  // Mark chart location.
+  DrawColor(kMagentaB);
+  lon = Mod(rDegHalf - Lon); lat = Lat;
+  xr = MinDifference(xBase, lon); yr = lat - yBase;
+  xp = xc + (int)(xr * xScale + rRound);
+  yp = yc - (int)(yr * yScale + rRound);
+  if (FBetween(xp, x1, x2) && FBetween(yp, y1, y2))
+    DrawSpot(xp, yp);
+
+  // Label degree points on vertical axis.
+  DrawColor(gi.kiLite);
+  i = (yFont-2)*gi.nScaleT / Max((int)yScale, 1) + 1;
+  for (j = (int)(yBase - yi); j <= (int)(yBase + yi); j++) {
+    if (!FBetween(j, -90, 90))
+      continue;
+    yp = yc - (int)(((real)j - yBase) * yScale + rRound);
+    if (!FBetween(yp, y1, y2))
+      continue;
+    fShowLabel = ((j % i) == 0);
+    DrawBlock(x1, yp, x1 + (3+fShowLabel*2)*gi.nScaleT, yp);
+    DrawBlock(x2 - (3+fShowLabel*2)*gi.nScaleT, yp, x2, yp);
+    if (!fShowLabel)
+      continue;
+    sprintf(sz, "%d%c", NAbs(j), j >= 0 ? 'N' : 'S');
+    DrawSz(sz, xFontT*2, yp + 2*gi.nScaleTextT, dtCent | dtScale2);
+    DrawSz(sz, gs.xWin-1 - xFontT*2, yp + 2*gi.nScaleTextT, dtCent | dtScale2);
+  }
+
+  // Label degree points on horizontal axis.
+  j = us.nDegForm == 0 ? 5 : (us.nDegForm == 1 ? 7 : 4);
+  j = j*xFont*gi.nScaleT / Max((int)xScale, 1) + 1;
+  for (i = (int)(xBase - xi); i <= (int)(xBase + xi); i++) {
+    xp = xc + (int)(((real)i - xBase) * xScale + rRound);
+    if (!FBetween(xp, x1, x2))
+      continue;
+    fShowLabel = ((i % j) == 0);
+    DrawBlock(xp, y1, xp, y1 + (3+fShowLabel*2)*gi.nScaleT);
+    DrawBlock(xp, y2 - (3+fShowLabel*2)*gi.nScaleT, xp, y2);
+    if (!fShowLabel)
+      continue;
+    k = nDegHalf - i;
+    if (k > nDegHalf)
+      k -= nDegMax;
+    else if (k <= -nDegHalf)
+      k += nDegMax;
+    sprintf(sz, "%d%c", NAbs(k), k >= 0 ? 'W' : 'E');
+    DrawSz(sz, xp, 2*gi.nScaleTextT, dtCent | dtTop | dtScale2);
+    if (!gs.fText)
+      DrawSz(sz, xp, gs.yWin-1 - 2*gi.nScaleTextT,
+        dtCent | dtBottom | dtScale2);
+  }
+
+  // Draw boundary of chart area.
+  DrawEdge(x1, y1, x2, y2);
+}
+
+
 /* This is a subprocedure of XChartOrbit(). Adjust the coordinates of a    */
 /* planet so its distance from the central body is on a logarithmic scale. */
 
-void OrbitPlot(real *pxp, real *pyp, real *pzp, real sz, int obj, PT3R *space)
+void OrbitPlot(real *pxp, real *pyp, real *pzp, real sz, int obj, PT3R *rgspc)
 {
-  real xp, yp, zp, rDist;
+  real xp, yp, zp, xd, yd, zd, rDist;
+  int objCenter;
+  PT3R *spc;
 
-  /* Copy input parameters. Only care about Z-axis in 3D wireframe charts. */
+  // Copy input parameters. Only care about Z-axis in 3D wireframe charts.
   xp = *pxp; yp = *pyp;
   zp = pzp != NULL ? *pzp : 0.0;
 
-  /* Things orbiting the Earth should be appropriately scaled too. */
-  if (FGeo(obj)) {
-    xp = space->x + (xp - space->x) * 80.0;
-    yp = space->y + (yp - space->y) * 80.0;
-    zp = space->z + (zp - space->z) * 80.0;
+  // Things orbiting planets should be scaled to be more distant from it.
+  objCenter = ObjOrbit(obj);
+  if (objCenter > oSun) {
+    spc = rgspc + objCenter;
+    xd = (xp - spc->x);
+    yd = (yp - spc->y);
+    zd = (zp - spc->z);
+    xp = spc->x;
+    yp = spc->y;
+    zp = spc->z;
   }
 
-  /* Compute distance, determine ratio, and recompute coordinates. */
+  // Compute distance, determine ratio, and recompute coordinates.
   rDist = RLength3(xp, yp, zp);
   if (rDist < rSmall)
     return;
   rDist = (RLog(rDist / sz * 100.0 + 1.0) / rLog101) / (rDist / sz);
   xp *= rDist; yp *= rDist; zp *= rDist;
+  if (objCenter > oSun) {
+    xp += xd * 400.0;
+    yp += yd * 400.0;
+    zp += zd * 400.0;
+  }
 
-  /* Copy back to input parameters. */
+  // Copy back to input parameters.
   *pxp = xp; *pyp = yp;
   if (pzp != NULL)
     *pzp = zp;
@@ -1091,7 +1856,7 @@ void OrbitRecord()
 {
   int i, j;
 
-  /* Don't append coordinates to list if they haven't changed. */
+  // Don't append coordinates to list if they haven't changed.
   if (gs.cspace <= 0)
     return;
   for (i = 0; i <= oNorm; i++) {
@@ -1103,7 +1868,7 @@ void OrbitRecord()
   if (i > oNorm)
     return;
 
-  /* Append latest set of coordinates to list. */
+  // Append latest set of coordinates to list.
   j = gi.ispace*oNorm1;
   for (i = 0; i <= oNorm; i++) {
     gi.rgspace[j].x = space[i].x;
@@ -1132,7 +1897,7 @@ void XChartOrbit()
   int j2, k2;
 #endif
 
-  unit = Max(6*gi.nScale, 12*gs.fText*gi.nScaleText*gi.nScaleT);
+  unit = Max(6*gi.nScale, gs.fText*Max(12, yFont*gi.nScaleText)*gi.nScaleT);
   x1 = unit; y1 = unit; x2 = gs.xWin-1-unit; y2 = gs.yWin-1-unit;
 
   /* Determine the scale of the chart. For a scale size of 400, make the */
@@ -1153,16 +1918,16 @@ void XChartOrbit()
       xp /= rLYToAU; yp /= rLYToAU;
     }
     if (us.fHouse3D)
-      OrbitPlot(&xp, &yp, NULL, sz, i, &space[oEar]);
+      OrbitPlot(&xp, &yp, NULL, sz, i, space);
     rgod[i].x = cx-(int)(xp*sx); rgod[i].y = cy+(int)(yp*sy);
     rgod[i].obj = i;
     rgod[i].kv = ~0;
     rgod[i].f = fTrue;
   }
 
-  /* Draw the 12 sign boundaries from the center body to edges of screen. */
+  // Draw the 12 sign boundaries from the center body to edges of screen.
   nSav = gi.nScale;
-  gi.nScale = gi.nScaleText * gi.nScaleT;
+  gi.nScale = gi.nScaleTextT;
   if (!gs.fHouseExtra) {
     i = us.objCenter != oSun ? oSun : oEar;
     if (!gs.fColorSign)
@@ -1175,7 +1940,7 @@ void XChartOrbit()
       l = cy + 2*(int)((real)cy*RSinD((real)i*30.0));
       DrawClip(cx, cy, k, l, x1, y1, x2, y2, 1);
 
-      /* Draw sign glyphs near edge of screen. */
+      // Draw sign glyphs near edge of screen.
       k = (j == sGem || j == sCap) ? cx - (cx - x1) * 27 / 100 :
         ((j == sCan || j == sSag) ? cx + (cx - x1) * 27 / 100 :
         (FBetween(j, sLeo, sSco) ? x2 - gi.nScale*8 : x1 + gi.nScale*8));
@@ -1187,14 +1952,14 @@ void XChartOrbit()
   }
   gi.nScale = nSav;
 
-  /* Draw internal boundary. */
+  // Draw internal boundary.
   DrawColor(gi.kiLite);
   DrawEdge(x1, y1, x2, y2);
 
-  /* Draw orbital trails. */
+  // Draw orbital trails.
   if (gs.cspace > 0) {
     if (gi.rgspace == NULL) {
-      gi.rgspace = (PT3R *)PAllocate(sizeof(PT3R)*oNorm1*gs.cspace, "orbits");
+      gi.rgspace = RgAllocate(oNorm1*gs.cspace, PT3R, "orbits");
       if (gi.rgspace == NULL)
         return;
     }
@@ -1205,7 +1970,7 @@ void XChartOrbit()
         k = l*oNorm1 + j;
         xp = gi.rgspace[k].x; yp = gi.rgspace[k].y;
         if (us.fHouse3D)
-          OrbitPlot(&xp, &yp, NULL, sz, j, &gi.rgspace[k - j + oEar]);
+          OrbitPlot(&xp, &yp, NULL, sz, j, &gi.rgspace[k - j]);
         DrawColor(kObjB[j]);
         if (!gs.fLabelAsp)
           DrawPoint(cx-(int)(xp*sx), cy+(int)(yp*sy));
@@ -1215,7 +1980,7 @@ void XChartOrbit()
             oNorm1 + j;
           xp2 = gi.rgspace[k].x; yp2 = gi.rgspace[k].y;
           if (us.fHouse3D)
-            OrbitPlot(&xp2, &yp2, NULL, sz, j, &gi.rgspace[k - j + oEar]);
+            OrbitPlot(&xp2, &yp2, NULL, sz, j, &gi.rgspace[k - j]);
           DrawLine(cx-(int)(xp2*sx), cy+(int)(yp2*sy),
             cx-(int)(xp*sx), cy+(int)(yp*sy));
         }
@@ -1236,12 +2001,12 @@ void XChartOrbit()
     }
   }
 
-  /* Draw lines connecting planets which have aspects between them. */
+  // Draw lines connecting planets which have aspects between them.
   if (!gs.fEquator && us.nAsp > 0) {
     if (!FCreateGrid(fFalse))
       return;
     nSav = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     for (j = oNorm; j >= 1; j--)
       for (i = j-1; i >= 0; i--)
         if (grid->n[i][j] && FProper(i) && FProper(j)) {
@@ -1259,7 +2024,7 @@ void XChartOrbit()
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -1271,6 +2036,8 @@ void XChartOrbit()
       if (FInRect(j, k, x1, y1, x2, y2))
         DrawStar(j, k, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -1287,7 +2054,7 @@ void XChartOrbit()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (!gs.fAllStar && gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fTrue);
@@ -1302,7 +2069,7 @@ void XChartOrbit()
   }
 #endif
 
-  /* Draw planet glyphs, and spots for actual planet locations. */
+  // Draw planet glyphs, and spots for actual planet locations.
   DrawObjects(rgod, objMax, unit);
 }
 
@@ -1324,8 +2091,7 @@ void XChartSector()
   cx = gs.xWin/2 - 1; cy = gs.yWin/2 - 1;
   unitx = (real)cx; unity = (real)cy;
 
-  /* Draw lines across the whole chart at the four angles. */
-
+  // Draw lines across the whole chart at the four angles.
   DrawColor(gi.kiLite);
   DrawDash(cx+POINT1(unitx, 0.99, PX(0.0)),
            cy+POINT1(unity, 0.99, PY(0.0)),
@@ -1336,8 +2102,7 @@ void XChartSector()
            cx+POINT1(unitx, 0.99, PX(270.0)),
            cy+POINT1(unity, 0.99, PY(270.0)), !gs.fColor);
 
-  /* Draw circles and radial lines delineating the 36 sectors. */
-
+  // Draw circles and radial lines delineating the 36 sectors.
   DrawColor(gi.kiOn);
   for (i = 0; i < nDegMax; i += 10) {
     px = PX((real)i); py = PY((real)i);
@@ -1347,8 +2112,7 @@ void XChartSector()
   DrawCircle(cx, cy, (int)(unitx*0.95+rRound), (int)(unity*0.95+rRound));
   DrawCircle(cx, cy, (int)(unitx*0.81+rRound), (int)(unity*0.81+rRound));
 
-  /* Label the 36 sectors, with plus zones in red and normal in dark green. */
-
+  // Label the 36 sectors, with plus zones in red and normal in dark green.
   k = pluszone[cSector];
   for (i = 1; i <= cSector; i++) {
     j = pluszone[i];
@@ -1360,7 +2124,8 @@ void XChartSector()
       dtCent | dtScale);
     sprintf(sz, "%c", j ? '+' : '-');
     DrawSz(sz, cx+POINT1(unitx, 0.97, PX((real)(i*10+175))),
-      cy+POINT1(unity, 0.97, PY((real)(i*10+175)))+gi.nScaleT*2, dtCent);
+      cy+POINT1(unity, 0.97, PY((real)(i*10+175)))+gi.nScaleText*2,
+      dtCent | dtScale2);
     if (j != k) {
       DrawColor(gi.kiGray);
       DrawDash(cx, cy, cx+POINT2(unitx, 0.81, PX((real)(i*10+170))),
@@ -1369,16 +2134,17 @@ void XChartSector()
     k = j;
   }
 
+  // Compute the planets' sector positions.
   CopyRgb(ignore, ignoreSav, sizeof(ignore));
-  CastSectors();    /* Go compute the planets' sector positions. */
+  CastSectors();
 
-  for (i = 0; i <= cObj; i++)    /* Figure out where to put planet glyphs. */
+  // Figure out where to put planet glyphs.
+  for (i = 0; i <= cObj; i++)
     symbol[i] = xplanet[i] = Mod(rDegHalf - planet[i]);
   FillSymbolRing(symbol, 1.0);
 
-  /* For each planet, draw a small dot indicating where it is, and then */
-  /* a line from that point to the planet's glyph.                      */
-
+  // For each planet, draw a small dot indicating where it is, and then a line
+  // from that point to the planet's glyph.
   for (i = cObj; i >= 0; i--) if (FProper(i)) {
     if (gs.fLabel) {
       temp = symbol[i];
@@ -1400,9 +2166,8 @@ void XChartSector()
         cy+POINT1(unity, 0.65, PY(xplanet[i])));
   }
 
-  /* Draw lines connecting planets which have aspects between them. */
-
-  if (!gs.fEquator) {               /* Don't draw aspects in equator mode. */
+  // Draw lines connecting planets which have aspects between them.
+  if (!gs.fEquator) {            // Don't draw aspects in equator mode.
     if (!FCreateGrid(fFalse))
       return;
     for (j = cObj; j >= 1; j--)
@@ -1412,10 +2177,11 @@ void XChartSector()
             0.63);
   }
 
+  // Draw sidebar based on normal chart positions.
   CopyRgb(ignore, ignoreT, sizeof(ignore));
   cp1 = cp0;
   CopyRgb(ignoreSav, ignore, sizeof(ignore));
-  CastChart(fTrue);
+  CastChart(1);
   CopyRgb(ignoreT, ignore, sizeof(ignore));
   DrawSidebar();
   CopyRgb(ignoreSav, ignore, sizeof(ignore));
@@ -1431,15 +2197,18 @@ void DrawArrow(int x1, int y1, int x2, int y2)
 {
   real r, s, a;
 
-  r = DFromR(Angle((real)(x2-x1), (real)(y2-y1)));
+  // Shrink line by the scale amount.
+  r = RAngleD((real)(x2-x1), (real)(y2-y1));
   s = (real)(gi.nScale*8);
-  x1 += (int)(s*RCosD(r)); y1 += (int)(s*RSinD(r));    /* Shrink line by    */
-  x2 -= (int)(s*RCosD(r)); y2 -= (int)(s*RSinD(r));    /* the scale amount. */
+  x1 += (int)(s*RCosD(r)); y1 += (int)(s*RSinD(r));
+  x2 -= (int)(s*RCosD(r)); y2 -= (int)(s*RSinD(r));
   s = (real)(gi.nScale)*4.5;
-  DrawLine(x1, y1, x2, y2);                            /* Main segment. */
+  // Draw main arrow shaft segment.
+  DrawLine(x1, y1, x2, y2);
+  // Draw the two arrowhead line pieces.
   for (a = -1.0; a <= 1.0; a += 2.0)
-    DrawLine(x2, y2, x2 + (int)(s*RCosD(r + a*135.0)), /* The two arrow     */
-      y2 + (int)(s*RSinD(r + a*135.0)));               /* head line pieces. */
+    DrawLine(x2, y2, x2 + (int)(s*RCosD(r + a*135.0)),
+      y2 + (int)(s*RSinD(r + a*135.0)));
 }
 
 
@@ -1456,7 +2225,7 @@ void XChartDispositor()
   char sz[cchSzDef];
   int *rgRules, oNum, xLev, yLev, xSub, ySub, cx0, cy0, cx, cy, i, j, k;
 
-  /* Determine rulership and object sets to use. */
+  // Determine rulership and object sets to use.
 
   if (ignore7[rrStd] && ignore7[rrEso] && !ignore7[rrHie])
     rgRules = rgSignHie1;
@@ -1470,7 +2239,7 @@ void XChartDispositor()
       FBetween(i, oSun, oMain) : (FBetween(i, oEar, oMain) || i == oVul))))
       obj[++oNum] = i;
 
-  /* Set up screen positions of the 10 planets for the wheel graphs. */
+  // Set up screen positions of the 10 planets for the wheel graphs.
 
   cx0 = gs.xWin / 2; cy0 = gs.yWin / 2;
   for (i = 1; i <= oNum; i++) {
@@ -1479,13 +2248,12 @@ void XChartDispositor()
     yCirc[i] = (real)cy0*0.4*RSinD((real)j);
   }
 
-  /* Loop over the two basic dispositor types: sign based and house based. */
+  // Loop over the two basic dispositor types: sign based and house based.
 
   for (xSub = 0; xSub <= 1; xSub++) {
     cx = xSub * cx0 + cx0 / 2;
 
-    /* For each planet, get its dispositor planet for current graph type. */
-
+    // For each planet, get its dispositor planet for current graph type.
     for (i = 1; i <= oNum; i++) {
       k = obj[i];
       j = rgRules[xSub ? inhouse[k] : SFromZ(planet[k])];
@@ -1498,8 +2266,7 @@ void XChartDispositor()
       dLev[i] = 1;
     }
 
-    /* Determine the final dispositors (including mutual reception loops). */
-
+    // Determine the final dispositors (including mutual reception loops).
     do {
       j = fFalse;
       for (i = 1; i <= oNum; i++)
@@ -1507,36 +2274,33 @@ void XChartDispositor()
       for (i = 1; i <= oNum; i++)
         if (dLev[i])
           cLev[oDis[i]] = fTrue;
-      for (i = 1; i <= oNum; i++)     /* A planet isn't a final dispositor */
-        if (dLev[i] && !cLev[i]) {    /* if nobody is pointing to it.      */
+      for (i = 1; i <= oNum; i++)     // A planet isn't a final dispositor if
+        if (dLev[i] && !cLev[i]) {    // nobody is pointing to it.
           dLev[i] = 0;
           j = fTrue;
         }
     } while (j);
 
-    /* Determine the level of each planet, i.e. how many times you have to */
-    /* jump to your dispositor before reaching a final, with finals == 1.  */
-
+    // Determine the level of each planet, i.e. how many times you have to
+    // jump to your dispositor before reaching a final, with finals == 1.
     do {
       j = fFalse;
       for (i = 1; i <= oNum; i++)
         if (!dLev[i]) {
           if (!dLev[oDis[i]])
             j = fTrue;
-          else                              /* If my dispositor already has */
-            dLev[i] = dLev[oDis[i]] + 1;    /* a level, mine is one more.   */
+          else                              // If my dispositor already has a
+            dLev[i] = dLev[oDis[i]] + 1;    // level, mine is one more.
         }
     } while (j);
 
-    /* Count the number of planets at each dispositor level. */
-
+    // Count the number of planets at each dispositor level.
     for (i = 1; i <= oNum; i++)
       cLev[i] = 0;
     for (i = 1; i <= oNum; i++)
       cLev[dLev[i]]++;
 
-    /* Count the number of levels total, and max planets on any one level. */
-
+    // Count the number of levels total, and max planets on any one level.
     xLev = yLev = 0;
     for (i = 1; i <= oNum; i++)
       if (cLev[i]) {
@@ -1545,8 +2309,7 @@ void XChartDispositor()
           xLev = cLev[i];
       }
 
-    /* Loop over our two dispositor display formats: hierarchy and wheel. */
-
+    // Loop over our two dispositor display formats: hierarchy and wheel.
     for (ySub = 0; ySub <= 1; ySub++) {
       cy = ySub * cy0 + cy0 / 2;
       sprintf(sz, "%s dispositor %s", xSub ? "House" : "Sign",
@@ -1556,8 +2319,7 @@ void XChartDispositor()
 
       if (ySub) {
 
-        /* Draw a graph in wheel format. */
-
+        // Draw a graph in wheel format.
         for (i = 1; i <= oNum; i++) {
           k = obj[i];
           DrawObject(k, cx + (int)xCirc[i], cy + (int)yCirc[i]);
@@ -1578,8 +2340,8 @@ void XChartDispositor()
         }
       } else {
 
-        /* For level hierarchies, first figure out the screen coordinates    */
-        /* for each planet, based on its level, total levels, and max width. */
+        // For level hierarchies, first figure out the screen coordinates for
+        // each planet, based on its level, total levels, and max width.
 
         for (i = 1; i <= oNum; i++) {
           yo[i] = cy0*(dLev[i]*2-1)/(yLev*2);
@@ -1588,13 +2350,12 @@ void XChartDispositor()
             if (dLev[i] == dLev[j])
               k = j;
           if (k)
-            xo[i] = xo[k] + cx0/xLev;    /* One right of last one on level. */
+            xo[i] = xo[k] + cx0/xLev;    // One right of last one on level.
           else
             xo[i] = cx - ((cx0/xLev)*(cLev[dLev[i]]-1)/2);
         }
 
-        /* Draw graph in level hierarchy format. */
-
+        // Draw graph in level hierarchy format.
         for (i = 1; i <= oNum; i++) {
           k = obj[i];
           DrawObject(k, xo[i], yo[i]);
@@ -1619,7 +2380,7 @@ void XChartDispositor()
     }
   }
 
-  /* Draw boundary lines between the four separate dispositor graphs. */
+  // Draw boundary lines between the four separate dispositor graphs.
 
   if (gs.fBorder) {
     DrawColor(gi.kiLite);
@@ -1629,153 +2390,14 @@ void XChartDispositor()
 }
 
 
-/* Draw a chart showing a graphical ephemeris of Ray influences for the   */
-/* given month or year, with the date on the vertical axis and each Ray   */
-/* on the horizontal, as done when the -7 is combined with the -X switch. */
-
-void XChartEsoteric()
-{
-  real rRay[cRay+2], rRaySav[cRay+2], power1[objMax], power2[objMax],
-    power[oNorm+1];
-  char sz[cchSzDef];
-  int daytot, d = 1, day, mon, monsiz,
-    x1, y1, x2, y2, xs, ys, m, n, u, v = 0, i, j, k;
-  flag fYea;
-
-  EnsureRay();
-  fYea = (us.nEphemYears > 0);    /* Doing an entire year or just a month? */
-  if (fYea) {
-    daytot = DayInYear(Yea);
-    day = 1; mon = 1; monsiz = 31;
-  } else
-    daytot = DayInMonth(Mon, Yea);
-  x1 = (fYea ? 30 : 24) * gi.nScaleText * gi.nScaleT; y1 = 12 * gi.nScaleText;
-  x2 = gs.xWin - x1; y2 = gs.yWin - y1;
-  xs = x2 - x1; ys = y2 - y1;
-
-  /* Label Rays along the top axis. */
-
-  for (i = 1; i <= cRay+1; i++) {
-    m = x1 + NMultDiv(xs, i-1, cRay+1);
-    DrawColor(gi.kiGray);
-    DrawDash(m, y1, m, y2, 2);
-    if (i <= cRay)
-      sprintf(sz, "Ray %d", i);
-    else
-      sprintf(sz, "Average");
-    DrawColor(i <= cRay ? kRayB[i] : gi.kiOn);
-    DrawSz(sz, x1 + xs*(i-1)/8, y1 - 3*gi.nScaleText,
-      dtLeft | dtBottom | dtScale2);
-  }
-
-  /* Loop and display Ray influences for one day segment. */
-
-  while (d <= daytot + 1) {
-    n = v;
-    if (gs.fLabel && (fYea ? (mon == Mon && day == 1) : (d == Day))) {
-      if (fYea)
-        v = y1 + NMultDiv(ys, d-2+Day, daytot);
-      else
-        v = y1 + NMultDiv(ys, (d-1)*24 + (int)Tim, daytot*24);
-      DrawColor(kDkCyanB);
-      DrawLine(x1, v, x2, v);       /* Marker line for specific day. */
-    }
-    v = y1 + NMultDiv(ys, d-1, daytot);
-    if (!gs.fEquator && (!fYea || day == 1)) {
-      DrawColor(gi.kiGray);
-      DrawDash(x1, v, x2, v, 1);    /* Marker line for day or month. */
-    }
-    if (d > 1)
-      for (i = 1; i <= cRay+1; i++)
-        rRaySav[i] = rRay[i];
-    ciCore = ciMain;
-    if (fYea) {
-      MM = mon; DD = day;
-    } else
-      DD = d;
-    CastChart(fTrue);
-
-    /* Compute Ray influences for current day. */
-
-    for (i = 0; i <= cRay+1; i++)
-      rRay[i] = 0.0;
-    ComputeInfluence(power1, power2);
-    for (i = 0; i <= oNorm; i++) {
-      power[i] = power1[i] + power2[i];
-      if (FIgnore(i))
-        continue;
-      k = SFromZ(planet[i]);
-      for (j = 1; j <= cRay; j++)
-        if (rgSignRay2[k][j]) {
-          if (!gs.fAlt)
-            rRay[j] += power[i];
-          else
-            rRay[j] += power[i] / (420 / rgSignRay2[k][j]);
-        }
-    }
-    for (i = 0; i <= cRay; i++)
-      rRay[cRay+1] += rRay[i] / 7.0;
-
-    /* Draw a line segment for each Ray during this time section. */
-
-    if (d > 1)
-      for (i = 1; i <= cRay+1; i++) {
-        k = x1 + (i-1)*xs/8;
-        m = k + (int)((real)xs * rRaySav[i] / 8.0 / (real)gs.nRayWidth);
-        u = k + (int)((real)xs * rRay[i]    / 8.0 / (real)gs.nRayWidth);
-        DrawColor(i <= cRay ? kRayB[i] : gi.kiOn);
-        DrawLine(m, n, u, v);
-      }
-
-    /* Label months or days in the month along the left and right edges. */
-
-    if (d <= daytot && (!fYea || day == 1)) {
-      if (fYea) {
-        sprintf(sz, "%.3s", szMonth[mon]);
-        i = (mon == Mon);
-      } else {
-        sprintf(sz, "%2d", d);
-        i = (d == Day);
-      }
-      DrawColor(gs.fLabel && i ? gi.kiOn : gi.kiLite);
-      i = v + gi.nScaleT;
-      DrawSz(sz,      xFontT,              i, dtLeft | dtTop | dtScale2);
-      DrawSz(sz, x2 + xFontT - gi.nScaleT, i, dtLeft | dtTop | dtScale2);
-    }
-
-    /* Now increment the day counter. For a month we always go up by one. */
-    /* For a year we go up by four or until the end of the month reached. */
-
-    if (fYea) {
-      i = us.fSeconds ? 1 : 4;
-      day += i;
-      if (day > monsiz) {
-        d += i-(day-monsiz-1);
-        if (d <= daytot + 1) {
-          mon++;
-          monsiz = DayInMonth(mon, Yea);
-          day = 1;
-        }
-      } else
-        d += i;
-    } else
-      d++;
-  }
-  DrawColor(gi.kiLite);
-  DrawEdge(x1, y1, x2, y2);
-
-  ciCore = ciMain;    /* Recast original chart. */
-  CastChart(fTrue);
-}
-
-
 /* Draw one aspect event within a box in a calendar. Called from        */
 /* ChartInDaySearch() which computes aspect events, which is in turn    */
 /* called from XChartCalendar() which draws the graphic calendar chart. */
 
 void DrawCalendarAspect(InDayInfo *pid, int i, int iMax, int nVoid)
 {
-  int x1, y1, x2, y2, asp, x, y, z, s1, s2, s3, nT, k;
+  int x1, y1, x2, y2, asp, x, y, z, s1, s2, s3, nT, k,
+    nScale = gi.nScaleTextT;
   char sz[4], *szTime;
 
   // Get pixel coordinates of the calendar and pixel size of each box.
@@ -1783,12 +2405,12 @@ void DrawCalendarAspect(InDayInfo *pid, int i, int iMax, int nVoid)
   y1 = gi.rgzCalendar[pid->day*2 + 1];
   x2 = x1 + gi.rgzCalendar[0];
   y2 = y1 + gi.rgzCalendar[1];
-  z = gi.nScaleT * 10;
-  y = y2 - z*(iMax-i) + gi.nScaleT*3;
-  if (y - gi.nScaleT*5 <= y1)
+  z = nScale * 10;
+  y = y2 - z*(iMax-i) + nScale*3;
+  if (y - nScale*5 <= y1)
     return;
-  x = x2 + gi.nScaleT*3;
-  if (x - z*3 - gi.nScaleT*5 <= x1)
+  x = x2 + nScale*3;
+  if (x - z*3 - nScale*5 <= x1)
     return;
 
   // Get aspect event and time that it takes place.
@@ -1825,14 +2447,14 @@ void DrawCalendarAspect(InDayInfo *pid, int i, int iMax, int nVoid)
 
   // Draw the time that the aspect event takes place (if room).
   szTime = SzTime(s1, s2, s3);
-  nT = x - z*4 - CchSz(szTime)*xFont*gi.nScaleT;
+  nT = x - z*4 - CchSz(szTime)*xFont*nScale;
   if (nT <= x1)
     return;
   DrawColor(gi.kiGray);
-  DrawSz(szTime, nT, y+gi.nScaleT*2, dtLeft);
+  DrawSz(szTime, nT, y+nScale*2, dtLeft | dtScale2);
 
   // Draw extra information about the aspect event (if room).
-  nT -= 4*xFont*gi.nScaleT;
+  nT -= 4*xFont*nScale;
   if (nT <= x1)
     return;
   k = kSignB(SFromZ(planet[oMoo]));
@@ -1840,14 +2462,14 @@ void DrawCalendarAspect(InDayInfo *pid, int i, int iMax, int nVoid)
     (asp == aCon || asp == aOpp)) {
     DrawColor(k);
     DrawSz(asp == aCon ? (nVoid < 0 ? "NEW" : "N+v") :
-      (nVoid < 0 ? "FUL" : "F+v"), nT, y+gi.nScaleT*2, dtLeft);
+      (nVoid < 0 ? "FUL" : "F+v"), nT, y+nScale*2, dtLeft | dtScale2);
   } else if (nVoid >= 0) {
     DrawColor(k);
-    DrawSz("v/c", nT, y+gi.nScaleT*2, dtLeft);
+    DrawSz("v/c", nT, y+nScale*2, dtLeft | dtScale2);
   } else if (pid->source == oMoo && asp == aSig) {
     DrawColor(kSignB(pid->dest));
     sprintf(sz, "%.3s", szSignName[pid->dest]);
-    DrawSz(sz, nT, y+gi.nScaleT*2, dtLeft);
+    DrawSz(sz, nT, y+nScale*2, dtLeft | dtScale2);
   }
 }
 
@@ -1864,17 +2486,16 @@ void DrawCalendar(int mon, int x1, int y1, int x2, int y2)
   flag fSav;
 
   xs = x2 - x1; ys = y2 - y1;
-  day = DayOfWeek(mon, 1, Yea);    /* Day of week of 1st of month.     */
-  cday = DaysInMonth(mon, Yea);    /* Count of days in the month.      */
-  dayHi = DayInMonth(mon, Yea);    /* Number of last day in the month. */
-  cweek = us.fCalendarYear ? 6 : (day + cday + 6) / 7;   /* Week rows. */
-  xunit = xs/8;                    /* Hor. pixel size of each day box. */
-  yunit = ys/(cweek+2);            /* Ver. pixel size of each day box. */
-  x0 = x1 + (xs - xunit*7) / 2;    /* Blank space to left of calendar. */
-  y0 = y1 + yunit*3/2;             /* Blank space to top of calendar.  */
-
-  /* Print the month and year in big letters at top of chart. */
-
+  day = DayOfWeek(mon, 1, Yea);    // Day of week of 1st of month.
+  cday = DaysInMonth(mon, Yea);    // Count of days in the month.
+  dayHi = DayInMonth(mon, Yea);    // Number of last day in the month.
+  cweek = us.fCalendarYear ? 6 : (day + cday + 6) / 7;   // Week rows.
+  xunit = xs/8;                    // Hor. pixel size of each day box.
+  yunit = ys/(cweek+2);            // Ver. pixel size of each day box.
+  x0 = x1 + (xs - xunit*7) / 2;    // Blank space to left of calendar.
+  y0 = y1 + yunit*3/2;             // Blank space to top of calendar.
+
+  // Print the month and year in big letters at top of chart.
   DrawColor(gi.kiOn);
   sprintf(sz, "%s, %d", szMonth[mon], Yea);
   s = gi.nScale;
@@ -1882,15 +2503,13 @@ void DrawCalendar(int mon, int x1, int y1, int x2, int y2)
   gi.nScale = Max(gi.nScale-1, 1);
   DrawSz(sz, x1 + xs/2, y1 + (yunit*3/2-yFont*s)/2, dtCent | dtScale);
 
-  /* Draw the grid of boxes for the days. */
-
+  // Draw the grid of boxes for the days.
   for (gi.nScale = s; gi.nScale > 0 && xunit / (xFont*gi.nScale) < 3;
     gi.nScale--)
     ;
   for (x = 0; x <= cWeek; x++) {
 
-    /* Print days of week at top of each column (abbreviated if need be). */
-
+    // Print days of week at top of each column (abbreviated if need be).
     if (x < cWeek) {
       if (xunit / (xFont*gi.nScale) < 9)
         sprintf(sz, "%.3s", szDay[x]);
@@ -1905,8 +2524,7 @@ void DrawCalendar(int mon, int x1, int y1, int x2, int y2)
   for (y = 0; y <= cweek; y++)
     DrawLine(x0, y0 + y*yunit, x0 + 7*xunit, y0 + y*yunit);
 
-  /* Actually draw the day numbers in their appropriate boxes. */
-
+  // Actually draw the day numbers in their appropriate boxes.
   x = day; y = 0;
   for (day = 1; day <= dayHi; day = AddDay(mon, day, Yea, 1)) {
     rgz[day*2] = x0 + x*xunit;
@@ -1926,10 +2544,9 @@ void DrawCalendar(int mon, int x1, int y1, int x2, int y2)
     }
   }
 
-  /* Draw aspect events taking place within each day within the boxes. */
-
+  // Draw aspect events taking place within each day within the boxes.
   if (gs.fLabelAsp) {
-    gi.nScale = gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     rgz[0] = xunit; rgz[1] = yunit;
     gi.rgzCalendar = rgz;
     us.fInDayMonth = fTrue; us.fInDayYear = fFalse;
@@ -2054,12 +2671,14 @@ void XChartSphere()
   ES es, *pes1, *pes2;
 #endif
 
-  /* Initialize variables. */
+  // Initialize variables.
   if (gs.fText && !us.fVelocity)
     gs.xWin -= xSideT;
 
   fNoHorizon = ignorez[0] && ignorez[1] && ignorez[2] && ignorez[3];
-  zGlyph = 7*gi.nScale; zGlyph2 = 14*gi.nScale; zGlyphS = 9*gi.nScaleT;
+  zGlyph = Max(7*gi.nScale,
+    (gs.fText && us.fVelocity)*Max(12, yFont*gi.nScaleText)*gi.nScaleT);
+  zGlyph2 = 14*gi.nScale; zGlyphS = 9*gi.nScaleT;
   cr.xc = gs.xWin >> 1; cr.yc = gs.yWin >> 1;
   cr.xr = cr.xc - zGlyph; cr.yr = cr.yc - zGlyph;
   cr2 = cr;
@@ -2068,27 +2687,26 @@ void XChartSphere()
     (us.nRel <= rcDual) + (us.nRel <= rcTriWheel) + (us.nRel <= rcQuadWheel);
 
   if (us.nRel < rcNone)
-    CastChart(fTrue);
+    CastChart(1);
   lonMC = Tropical(is.MC); latMC = 0.0;
   EclToEqu(&lonMC, &latMC);
-  latMC = Lat;
-  is.lonMC = lonMC; is.latMC = latMC;
+  is.lonMC = lonMC; is.latMC = Lat;
 
-  /* Avoid default alignments of sphere that don't look as good. */
+  // Avoid default alignments of sphere that don't look as good.
   if (us.fSmartSave && !gi.fDidSphere && gs.rRot == 0.0 && gs.rTilt == 0.0) {
     gs.rRot = 7.0;
     gs.rTilt = -7.0;
   }
   gi.fDidSphere = fTrue;
 
-  /* Draw constellations. */
+  // Draw constellations.
   if (gs.fConstel) {
     neg(gs.rTilt);
     DrawMap(fTrue, fTrue, gs.rRot);
     neg(gs.rTilt);
   }
 
-  /* Draw horizon. */
+  // Draw horizon.
   if (!fNoHorizon || (!gs.fHouseExtra && !us.fHouse3D)) {
     if (!gs.fColorHouse)
       DrawColor(gi.kiOn);
@@ -2109,7 +2727,7 @@ void XChartSphere()
     }
   }
 
-  /* Draw Earth's equator. */
+  // Draw Earth's equator.
   if (gs.fEquator) {
     DrawColor(kPurpleB);
     for (i = 0; i <= nDegMax; i++) {
@@ -2122,7 +2740,7 @@ void XChartSphere()
     }
   }
 
-  /* Draw prime vertical. */
+  // Draw prime vertical.
   if (!fNoHorizon) {
     if (!gs.fColorHouse)
       DrawColor(gi.kiGray);
@@ -2143,7 +2761,7 @@ void XChartSphere()
     }
   }
 
-  /* Draw 3D house wedges and meridian. */
+  // Draw 3D house wedges and meridian.
   if (!gs.fColorHouse)
     DrawColor(kDkGreenB);
   for (j = -1; j <= cSign; j++) {
@@ -2177,7 +2795,7 @@ void XChartSphere()
     }
   }
 
-  /* Draw 2D house wedges. */
+  // Draw 2D house wedges.
   if (!gs.fHouseExtra && us.fHouse3D)
     for (i = 1; i <= cSign; i++) {
       if (gs.fColorHouse)
@@ -2192,11 +2810,11 @@ void XChartSphere()
       }
     }
 
-  /* Draw sign wedges. */
+  // Draw sign wedges.
   if (!us.fVedic) {
     if (!gs.fColorSign)
       DrawColor(kDkBlueB);
-    /* Draw ecliptic circle. */
+    // Draw ecliptic circle.
     for (i = 0; i <= nDegMax; i++) {
       if (gs.fColorSign)
         DrawColor(kSignB((i-1)/30 + 1));
@@ -2214,7 +2832,7 @@ void XChartSphere()
         DrawPoint(xp, yp);
       xo = xp; yo = yp;
     }
-    /* Draw sign boundaries. */
+    // Draw sign boundaries.
     for (i = 0; i < nDegMax; i += 30) {
       if (gs.fColorSign)
         DrawColor(kSignB(i/30 + 1));
@@ -2229,11 +2847,11 @@ void XChartSphere()
     }
   }
 
-  /* Draw outer boundary. */
+  // Draw outer boundary.
   DrawColor(gi.kiOn);
   DrawCircle(cr.xc, cr.yc, cr.xr, cr.yr);
 
-  /* Label signs. */
+  // Label signs.
   if (!us.fVedic) {
     nSav = gi.nScale;
     gi.nScale = gi.nScaleText * gi.nScaleT;
@@ -2248,7 +2866,7 @@ void XChartSphere()
     gi.nScale = nSav;
   }
 
-  /* Label houses. */
+  // Label houses.
   if (!gs.fHouseExtra) {
     nSav = gi.nScale;
     gi.nScale = gi.nScaleText * gi.nScaleT;
@@ -2268,7 +2886,7 @@ void XChartSphere()
     gi.nScale = nSav;
   }
 
-  /* Label directions. */
+  // Label directions.
   if (!fNoHorizon) {
     k = zGlyph >> 1;
     for (i = 0; i < nDegMax; i += 90) {
@@ -2282,29 +2900,29 @@ void XChartSphere()
           DrawColor(f ? gi.kiOn : gi.kiGray);
         FSphereLocal((real)i, 0.0, &cr2, &xp, &yp);
         sprintf(sz, "%c", szDir[j][0]);
-        DrawSz(sz, xp, yp + gi.nScale, dtCent);
+        DrawSz(sz, xp, yp + gi.nScale, dtCent | dtScale2);
       }
     }
-    /* Label zenith and nadir points. */
+    // Label zenith and nadir points.
     for (j = -90; j <= 90; j += nDegHalf) {
       f = FSphereLocal(0.0, (real)j, &cr2, &xp, &yp) ^ fDir;
       if (f || fAny) {
         DrawColor(gs.fColorHouse ? (f ? gi.kiOn : gi.kiGray) :
           kObjB[j <= 0 ? oMC : oNad]);
         sprintf(sz, "%c", j <= 0 ? 'Z' : 'N');
-        DrawSz(sz, xp, yp + gi.nScale, dtCent);
+        DrawSz(sz, xp, yp + gi.nScale, dtCent | dtScale2);
       }
     }
   }
 
-  /* Draw center point. */
+  // Draw center point.
   if (!fNoHorizon) {
     DrawColor(gi.kiOn);
     DrawSpot(cr.xc, cr.yc);
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -2313,6 +2931,8 @@ void XChartSphere()
       if (f)
         DrawStar(xp, yp, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -2323,7 +2943,7 @@ void XChartSphere()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fTrue);
@@ -2335,7 +2955,7 @@ void XChartSphere()
   }
 #endif
 
-  /* Determine set of planet data to use. */
+  // Determine set of planet data to use.
   for (iChart = cChart; iChart >= 1; iChart--) {
     FProcessCommandLine(szWheelX[iChart]);
     if (iChart <= 1)
@@ -2345,7 +2965,7 @@ void XChartSphere()
     cpSav = cp0;
     cp0 = *pcp;
 
-  /* Calculate planet coordinates. */
+  // Calculate planet coordinates.
   for (i = 0; i <= cObj; i++) {
     f = FProper(i);
     if (f) {
@@ -2358,11 +2978,11 @@ void XChartSphere()
       rgod[i].f = fFalse;
   }
 
-  /* Draw lines connecting planets which have aspects between them. */
+  // Draw lines connecting planets which have aspects between them.
   if (!FCreateGrid(fFalse))
     return;
   nSav = gi.nScale;
-  gi.nScale = gi.nScaleText * gi.nScaleT;
+  gi.nScale = gi.nScaleTextT;
   for (j = cObj; j >= 1; j--)
     for (i = j-1; i >= 0; i--)
       if (grid->n[i][j] && FProper(i) && FProper(j) &&
@@ -2378,11 +2998,11 @@ void XChartSphere()
       }
   gi.nScale = nSav;
 
-  /* Draw planet glyphs, and spots for actual planet locations. */
+  // Draw planet glyphs, and spots for actual planet locations.
   DrawObjects(rgod, objMax, 0);
 
     cp0 = cpSav;
-  } /* iChart */
+  } // iChart
   FProcessCommandLine(szWheelX[0]);
 
   DrawSidebar();
diff --git a/xcharts2.cpp b/xcharts2.cpp
index fea97ee..9eeadd8 100644
--- a/xcharts2.cpp
+++ b/xcharts2.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xcharts2.cpp
+** Astrolog (Version 7.10) File: xcharts2.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -80,6 +80,8 @@ flag FProper(int i)
     f &= !(gs.fAlt && (i == oMoo || i == oFor));
   else if (gi.nMode == gTraTraGra || gi.nMode == gTraNatGra)
     f &= FProperGraph(i);
+  else if (gi.nMode == gTelescope)
+    f &= (i != us.objCenter || us.objCenter == oEar);
   return f;
 }
 
@@ -94,14 +96,14 @@ void FillSymbolRing(real *symbol, real factor)
   real orb = DEFORB*256.0/(real)gs.yWin*(real)gi.nScale*factor, k1, k2, temp;
   int i, j, k = 1, l;
 
-  /* Keep adjusting as long as we can still make changes, or until we do 'n' */
-  /* rounds. (With many objects, there just may not be enough room for all.) */
+  // Keep adjusting as long as can still make changes, or until 'n' rounds are
+  // done. (With many objects, there just may not be enough room for all.)
 
   for (l = 0; k && l < us.nDivision*2; l++) {
     k = 0;
     for (i = 0; i <= cObj; i++) if (FProper(i)) {
 
-      /* For each object, determine who is closest on either side. */
+      // For each object, determine who is closest on either side.
 
       k1 = rLarge; k2 = -rLarge;
       for (j = 0; j <= cObj; j++)
@@ -115,15 +117,15 @@ void FillSymbolRing(real *symbol, real factor)
             k2 = temp;
         }
 
-      /* If an object's too close on one side, then we move to the other. */
+      // If an object's too close on one side, then move in other direction.
 
       if (k2 > -orb && k1 > orb) {
         k = 1; symbol[i] = Mod(symbol[i]+orb*0.51+k2*0.49);
       } else if (k1 < orb && k2 < -orb) {
         k = 1; symbol[i] = Mod(symbol[i]-orb*0.51+k1*0.49);
 
-      /* If we are bracketed by close objects on both sides, then let's move */
-      /* to the midpoint, so we are as far away as possible from either one. */
+      // If object bracketed by close objects on both sides, then move it to
+      // the midpoint, so it's as far away as possible from either one.
 
       } else if (k2 > -orb && k1 < orb) {
         k = 1; symbol[i] = Mod(symbol[i]+(k1+k2)*0.5);
@@ -151,14 +153,14 @@ void FillSymbolLine(real *symbol)
   else
     orb *= rDegMax/(real)gs.xWin;
 
-  /* Keep adjusting as long as we can still make changes. */
+  // Keep adjusting as long as can still make changes.
 
   for (l = 0; k && l < us.nDivision*2; l++) {
     k = 0;
     for (i = 0; i <= cObj*2+1; i++)
       if (FProper(i >> 1) && symbol[i] >= 0.0) {
 
-        /* For each object, determine who is closest to the left and right. */
+        // For each object, determine who is closest to the left and right.
 
         k1 = max-symbol[i]; k2 = -symbol[i];
         for (j = 0; j <= cObj*2+1; j++) {
@@ -171,7 +173,7 @@ void FillSymbolLine(real *symbol)
           }
         }
 
-        /* If an object's too close on one side, then we move to the other. */
+        // If an object's too close on one side, then move in other direction.
 
         if (k2 > -orb && k1 > orb) {
           k = 1; symbol[i] = symbol[i]+orb*0.51+k2*0.49;
@@ -212,7 +214,7 @@ real HousePlaceInX(real deg, real degalt)
     deg = Mod(chouse[in] +
       (rIn - RFloor(rIn)) * MinDistance(chouse[in], chouse[Mod12(in+1)]));
   }
-  if (gi.nMode == gWheel)    /* We only adjust for the -w -X combination. */
+  if (gi.nMode == gWheel)    // Only adjust for the -w -X combination.
     return deg;
   in = NHousePlaceIn2D(deg);
   return Mod(ZFromS(in)+MinDistance(chouse[in], deg)/
@@ -229,7 +231,7 @@ void DrawAspectRelation(int n1, int n2, real obj1[objMax], real obj2[objMax],
   CP cpA, cpB;
   int i, j;
 
-  /* Put the two sets of chart data to compare in cp1 and cp2. */
+  // Put the two sets of chart data to compare in cp1 and cp2.
   if (n1 != 1) {
     cpA = cp1;
     switch (n1) {
@@ -245,7 +247,7 @@ void DrawAspectRelation(int n1, int n2, real obj1[objMax], real obj2[objMax],
     }
   }
 
-  /* Compute and draw the aspect lines. */
+  // Compute and draw the aspect lines.
   if (!FCreateGridRelation(fFalse))
     goto LExit;
   for (j = cObj; j >= 0; j--)
@@ -280,8 +282,8 @@ void XChartWheelRelation()
   int cx, cy, i;
   real unitx, unity, temp;
 
-  /* Set up variables and temporarily automatically decrease the horizontal */
-  /* chart size to leave room for the sidebar if that mode is in effect.    */
+  // Set up variables and temporarily automatically decrease the horizontal
+  // chart size to leave room for the sidebar if that mode is in effect.
 
   if (gs.fText && !us.fVelocity)
     gs.xWin -= xSideT;
@@ -292,7 +294,7 @@ void XChartWheelRelation()
   if (us.fVedic)
     gi.rAsc = gs.objLeft ? (gs.objLeft < 0 ? 120.0 : -60.0)-gi.rAsc : 0.0;
 
-  /* Fill out arrays with the degree of each object, cusp, and sign glyph. */
+  // Fill out arrays with the degree of each object, cusp, and sign glyph.
 
   if (gi.nMode == gWheel) {
     for (i = 1; i <= cSign; i++)
@@ -309,8 +311,8 @@ void XChartWheelRelation()
   for (i = 0; i <= cObj; i++)
     xplanet2[i] = PZ(HousePlaceInX(cp2.obj[i], cp2.alt[i]));
 
-  /* Go draw the outer sign and house rings. We are drawing only the */
-  /* houses of one of the two charts in the relationship, however.   */
+  // Go draw the outer sign and house rings. We are drawing only the houses
+  // of one of the two charts in the relationship, however.
 
   DrawWheel(xsign, xhouse1, cx, cy, unitx, unity,
     0.70, 0.74, 0.78, 0.82, 0.885);
@@ -378,12 +380,12 @@ void XChartWheelRelation()
       xplanet1[i] = -1.0;
   FProcessCommandLine(szWheelX[0]);
 
-  /* Draw lines connecting planets between the two charts that have aspects. */
+  // Draw lines connecting planets between the two charts that have aspects.
 
   if (!gs.fEquator)
     DrawAspectRelation(1, 2, xplanet1, xplanet2, cx, cy, unitx, unity, 0.41);
 
-  /* Go draw sidebar with chart information and positions if need be. */
+  // Draw sidebar with chart information and positions if need be.
 
   DrawSidebar();
 }
@@ -400,8 +402,8 @@ void XChartWheelThreeFour()
   int cx, cy, i, fQuad;
   real unitx, unity, base;
 
-  /* Set up variables and temporarily automatically decrease the horizontal */
-  /* chart size to leave room for the sidebar if that mode is in effect.    */
+  // Set up variables and temporarily automatically decrease the horizontal
+  // chart size to leave room for the sidebar if that mode is in effect.
 
   if (gs.fText && !us.fVelocity)
     gs.xWin -= xSideT;
@@ -414,8 +416,8 @@ void XChartWheelThreeFour()
   fQuad = (us.nRel == rcQuadWheel);
   base = (fQuad ? 0.23 : 0.36);
 
-  /* Fill out arrays with the degrees of the cusps and sign glyphs, and the */
-  /* positions of the planet rings.                                         */
+  // Fill out arrays with the degrees of the cusps and sign glyphs, and the
+  // positions of the planet rings.
 
   if (gi.nMode == gWheel) {
     for (i = 1; i <= cSign; i++)
@@ -435,8 +437,8 @@ void XChartWheelThreeFour()
       xplanet4[i] = PZ(HousePlaceInX(cp4.obj[i], cp4.alt[i]));
   }
 
-  /* Go draw the outer sign and house rings. We are drawing the houses */
-  /* of only the outermost ring of the wheel, however.                 */
+  // Go draw the outer sign and house rings. We are drawing the houses of only
+  // the outermost ring of the wheel, however.
 
   if (gs.fColor) {
     DrawColor(kDkGreenB);
@@ -475,8 +477,8 @@ void XChartWheelThreeFour()
     if (!FProper(i))
       xplanet1[i] = -1.0;
 
-  /* Now draw the second to outermost ring of planets. Again, draw each */
-  /* glyph, a line to its true point, and a line to the innermost ring. */
+  // Now draw the second to outermost ring of planets. Again, draw each glyph,
+  // a line to its true point, and a line to the innermost ring.
 
   FProcessCommandLine(szWheelX[2]);
   for (i = 0; i <= cObj; i++)
@@ -500,8 +502,8 @@ void XChartWheelThreeFour()
     if (!FProper(i))
       xplanet2[i] = -1.0;
 
-  /* The third ring (either the innermost or second to innermost) is next. */
-  /* Chart was cast earlier, and draw the glyphs and lines to true point.  */
+  // The third ring (either the innermost or second to innermost) is next.
+  // Chart was cast earlier, and draw the glyphs and lines to true point.
 
   FProcessCommandLine(szWheelX[3]);
   for (i = 0; i <= cObj; i++)
@@ -515,8 +517,8 @@ void XChartWheelThreeFour()
 
   if (fQuad) {
 
-    /* If a fourth ring is being done, first finish the third one by */
-    /* drawing lines from the true positions to the inner ring.      */
+    // If a fourth ring is being done, first finish the third one by drawing
+    // lines from the true positions to the inner ring.
 
     for (i = cObj; i >= 0; i--) if (FProper(i)) {
       DrawColor(kObjB[i]);
@@ -531,8 +533,8 @@ void XChartWheelThreeFour()
       }
     }
 
-    /* If the fourth (innermost) ring is being done, take the chart that  */
-    /* was cast earlier, and draw glyphs and lines to the true positions. */
+    // If the fourth (innermost) ring is being done, take the chart that was
+    // cast earlier, and draw glyphs and lines to the true positions.
 
     FProcessCommandLine(szWheelX[4]);
     for (i = 0; i <= cObj; i++)
@@ -548,7 +550,7 @@ void XChartWheelThreeFour()
   }
   FProcessCommandLine(szWheelX[0]);
 
-  /* Draw lines connecting planets between the charts that have aspects. */
+  // Draw lines connecting planets between the charts that have aspects.
 
   if (!gs.fEquator) {
     base -= 0.02;
@@ -562,7 +564,7 @@ void XChartWheelThreeFour()
     }
   }
 
-  /* Go draw sidebar with chart information and positions if need be. */
+  // Draw sidebar with chart information and positions if need be.
 
   ciCore = ciMain;
   DrawSidebar();
@@ -577,7 +579,7 @@ void XChartWheelThreeFour()
 void XChartGridRelation()
 {
   char sz[cchSzDef], szT[cchSzDef];
-  int nScale, unit, siz, x, y, i, j, k, l;
+  int nScale, unit, siz, x, y, i, j, i0, j0, k, l;
   KI c;
 
   nScale = gi.nScale/gi.nScaleT;
@@ -588,12 +590,13 @@ void XChartGridRelation()
     return;
   us.fSmartCusp = i;
 
-  /* Loop through each cell in each row and column of grid. */
+  // Loop through each cell in each row and column of grid.
 
-  for (y = 0, j = -2; y <= gi.nGridCell; y++) {
+  for (y = 0, j0 = -2; y <= gi.nGridCell; y++) {
     do {
-      j++;
-    } while (j >= 0 && ignore[j] && j <= cObj);
+      j0++;
+      j = rgobjList[j0];
+    } while (j0 >= 0 && ignore[j] && j0 <= cObj);
     DrawColor(gi.kiGray);
     DrawDash(0, (y+1)*unit, siz, (y+1)*unit, !gs.fColor);
     DrawDash((y+1)*unit, 0, (y+1)*unit, siz, !gs.fColor);
@@ -601,20 +604,21 @@ void XChartGridRelation()
     DrawEdge(0, y*unit, unit, (y+1)*unit);
     DrawEdge(y*unit, 0, (y+1)*unit, unit);
     DrawEdge(y*unit, y*unit, (y+1)*unit, (y+1)*unit);
-    if (j <= cObj) for (x = 0, i = -2; x <= gi.nGridCell; x++) {
+    if (j0 <= cObj) for (x = 0, i0 = -2; x <= gi.nGridCell; x++) {
       do {
-        i++;
-      } while (i >= 0 && ignore[i] && i <= cObj);
+        i0++;
+        i = rgobjList[i0];
+      } while (i0 >= 0 && ignore[i] && i0 <= cObj);
 
-      /* Again, we are looping through each cell in each row and column. */
+      // Again, are looping through each cell in each row and column.
 
-      if (i <= cObj) {
+      if (i0 <= cObj) {
         gi.xTurtle = x*unit+unit/2;
         gi.yTurtle = y*unit+unit/2 - (nScale > 2 ? 5*gi.nScaleT : 0);
         k = i >= 0 && j >= 0 ? grid->n[i][j] : 0;
 
-        /* If current cell is on top row or left hand column, draw glyph */
-        /* of planet owning the particular row or column in question.    */
+        // If current cell is on top row or left hand column, draw glyph of
+        // planet owning the particular row or column in question.
 
         if (y == 0 || x == 0) {
           if (gs.fLabelAsp) {
@@ -625,8 +629,8 @@ void XChartGridRelation()
             DrawObject(y == 0 ? i : j, gi.xTurtle, gi.yTurtle);
         } else {
 
-        /* Otherwise, draw glyph of aspect in effect, or glyph of */
-        /* sign of midpoint, between the two planets in question. */
+        // Otherwise, draw glyph of aspect in effect, or glyph of sign of
+        // midpoint, between the two planets in question.
 
           if (gs.fAlt == us.fGridMidpoint) {
             if (k) {
@@ -639,11 +643,11 @@ void XChartGridRelation()
           }
         }
 
-        /* Again, when scale size is 300+, print some text in current cell: */
+        // When scale size is 300+, print some text in current cell.
 
         if (nScale > 2 && gs.fLabel) {
 
-          /* For top and left edges, print sign and degree of the planet. */
+          // For top and left edges, print sign and degree of the planet.
 
           if (y == 0 || x == 0) {
             if (x+y > 0) {
@@ -655,8 +659,8 @@ void XChartGridRelation()
                   (int)((y == 0 ? cp2.obj[i] : cp1.obj[j])*60.0)%60);
               sprintf(sz, "%.3s %02d%s", szSignName[k], l, szT);
 
-              /* For extreme upper left corner, print some little arrows */
-              /* pointing out chart1's planets and chart2's planets.     */
+              // For extreme upper left corner, print some little arrows
+              // pointing out chart1's planets and chart2's planets.
 
             } else {
               c = gi.kiLite;
@@ -667,7 +671,7 @@ void XChartGridRelation()
             if (nScale > 3 && is.fSeconds)
               sprintf(szT, "%02d", l);
 
-            /* For aspect cells, print the orb in degrees and minutes. */
+            // For aspect cells, print the orb in degrees and minutes.
 
             if (gs.fAlt == us.fGridMidpoint) {
               if (grid->n[i][j]) {
@@ -679,7 +683,7 @@ void XChartGridRelation()
               } else
                 sprintf(sz, "");
 
-            /* For midpoint cells, print degree and minute. */
+            // For midpoint cells, print degree and minute.
 
             } else
               sprintf(sz, "%2d%c%02d'%s", k/60, chDeg2, k%60, szT);
@@ -705,7 +709,7 @@ void XChartEphemeris()
     x1, y1, x2, y2, xs, ys, m, n, u, v = 0, i, j, dx;
   flag fSav;
 
-  cYea = us.nEphemYears;    /* Is this -Ey -X or just -E -X? */
+  cYea = us.nEphemYears;    // Is this -Ey -X or just -E -X?
   if (cYea) {
     daytot = 0;
     for (i = 0; i < cYea; i++)
@@ -713,14 +717,14 @@ void XChartEphemeris()
     day = 1; mon = 1; yea = Yea; monsiz = 31;
   } else
     daytot = DayInMonth(Mon, Yea);
-  x1 = (Min(cYea, 2)*xFont + 24)*gi.nScaleT; y1 = unit*2;
+  x1 = (3 + Min(cYea, 2))*xFontT; y1 = unit*2;
   x2 = gs.xWin - x1;
-  y2 = gs.yWin - y1 - gs.fText * (yFont*gi.nScaleText*gi.nScaleT);
+  y2 = gs.yWin - y1 - gs.fText*yFontT;
   xs = x2 - x1; ys = y2 - y1;
   dd = (daytot / ys + 2) * (2 - us.fSeconds);
   dd = Min(dd, 28);
 
-  /* Display glyphs of the zodiac along the bottom axis. */
+  // Display glyphs of the zodiac along the bottom axis.
 
   if (!us.fParallel)
     for (i = 1; i <= cSign+1; i++) {
@@ -741,13 +745,13 @@ void XChartEphemeris()
       j = i > cSign ? 1 : i;
       DrawColor(i ? gi.kiLite : gi.kiOn);
       sprintf(sz, "%s%d", i > 0 ? "+" : "", i);
-      DrawSz(sz, m, y2+2, dtTop);
+      DrawSz(sz, m, y2+2, dtTop | dtScale2);
       DrawColor(gi.kiGray);
       DrawDash(m, y1, m, y2, 2);
     }
   }
 
-  /* Loop and display planet movements for one day segment. */
+  // Loop and display planet movements for one day segment.
 
   while (d <= daytot + 1) {
     n = v;
@@ -775,7 +779,7 @@ void XChartEphemeris()
       MM = mon; DD = day; YY = yea;
     } else
       DD = d;
-    CastChart(fTrue);
+    CastChart(-1);
     if (us.fParallel)
       for (i = 0; i <= cObj; i++) {
         rT = (planetalt[i] * rDegHalf / (real)dx) + rDegHalf;
@@ -784,8 +788,7 @@ void XChartEphemeris()
         planet[i] = rT;
       }
 
-    /* Draw planet glyphs along top of chart. */
-
+    // Draw planet glyphs along top of chart.
     if (d <= 1) {
       for (i = 0; i <= cObj; i++) {
         j = !FProper(i);
@@ -810,8 +813,7 @@ void XChartEphemeris()
         }
       }
 
-    /* Draw a line segment for each object during this time section. */
-
+    // Draw a line segment for each object during this time section.
     } else
       for (i = cObj; i >= 0; i--) {
         if (!FProper(i))
@@ -823,8 +825,7 @@ void XChartEphemeris()
           !us.fParallel && ret[i] > 0.0 && i != oFor ? -x1 : x1, x2);
       }
 
-    /* Label months or days in the month along the left and right edges. */
-
+    // Label months or days in the month along the left and right edges.
     if (d <= daytot && (!cYea || (day == 1 && (cYea <= 1 || mon == 1)))) {
       if (cYea) {
         if (cYea <= 1)
@@ -837,15 +838,14 @@ void XChartEphemeris()
         i = (d == Day);
       }
       DrawColor(gs.fLabel && i ? gi.kiOn : gi.kiLite);
-      DrawSz(sz,     xFont   *gi.nScaleT, v + (yFont-2)*gi.nScaleT,
-        dtLeft | dtBottom);
-      DrawSz(sz, x2+(xFont-1)*gi.nScaleT, v + (yFont-2)*gi.nScaleT,
-        dtLeft | dtBottom);
+      DrawSz(sz,      xFontT/2, v + (yFont-2)*gi.nScaleTextT,
+        dtLeft | dtBottom | dtScale2);
+      DrawSz(sz, x2 + xFontT/2, v + (yFont-2)*gi.nScaleTextT,
+        dtLeft | dtBottom | dtScale2);
     }
 
-    /* Now increment the day counter. For a month we always go up by one. */
-    /* For a year we go up by four or until the end of the month reached. */
-
+    // Now increment the day counter. For a month we always go up by one.
+    // For a year we go up by four or until the end of the month reached.
     if (cYea) {
       day += dd;
       if (day > monsiz) {
@@ -867,8 +867,144 @@ void XChartEphemeris()
   DrawColor(gi.kiLite);
   DrawEdge(x1, y1, x2, y2);
 
-  ciCore = ciMain;    /* Recast original chart. */
-  CastChart(fTrue);
+  ciCore = ciMain;    // Recast original chart.
+  CastChart(1);
+}
+
+
+/* Draw a chart showing a graphical ephemeris of Ray influences for the   */
+/* given month or year, with the date on the vertical axis and each Ray   */
+/* on the horizontal, as done when the -7 is combined with the -X switch. */
+
+void XChartEsoteric()
+{
+  real rRay[cRay+2], rRaySav[cRay+2], power1[objMax], power2[objMax],
+    power[oNorm+1];
+  char sz[cchSzDef];
+  int daytot, d = 1, day, mon, monsiz,
+    x1, y1, x2, y2, xs, ys, m, n, u, v = 0, i, j, k;
+  flag fYea;
+
+  EnsureRay();
+  fYea = (us.nEphemYears > 0);    // Doing an entire year or just a month?
+  if (fYea) {
+    daytot = DayInYear(Yea);
+    day = 1; mon = 1; monsiz = 31;
+  } else
+    daytot = DayInMonth(Mon, Yea);
+  x1 = (3 + fYea) * xFontT; y1 = 12 * gi.nScaleTextT;
+  x2 = gs.xWin - x1; y2 = gs.yWin - y1;
+  xs = x2 - x1; ys = y2 - y1;
+
+  // Label Rays along the top axis.
+
+  for (i = 1; i <= cRay+1; i++) {
+    m = x1 + NMultDiv(xs, i-1, cRay+1);
+    DrawColor(gi.kiGray);
+    DrawDash(m, y1, m, y2, 2);
+    if (i <= cRay)
+      sprintf(sz, "Ray %d", i);
+    else
+      sprintf(sz, "Average");
+    DrawColor(i <= cRay ? kRayB[i] : gi.kiOn);
+    DrawSz(sz, x1 + xs*(i-1)/8, y1 - 3*gi.nScaleTextT,
+      dtLeft | dtBottom | dtScale2);
+  }
+
+  // Loop and display Ray influences for one day segment.
+
+  while (d <= daytot + 1) {
+    n = v;
+    if (gs.fLabel && (fYea ? (mon == Mon && day == 1) : (d == Day))) {
+      if (fYea)
+        v = y1 + NMultDiv(ys, d-2+Day, daytot);
+      else
+        v = y1 + NMultDiv(ys, (d-1)*24 + (int)Tim, daytot*24);
+      DrawColor(kDkCyanB);
+      DrawLine(x1, v, x2, v);       // Marker line for specific day.
+    }
+    v = y1 + NMultDiv(ys, d-1, daytot);
+    if (!gs.fEquator && (!fYea || day == 1)) {
+      DrawColor(gi.kiGray);
+      DrawDash(x1, v, x2, v, 1);    // Marker line for day or month.
+    }
+    if (d > 1)
+      for (i = 1; i <= cRay+1; i++)
+        rRaySav[i] = rRay[i];
+    ciCore = ciMain;
+    if (fYea) {
+      MM = mon; DD = day;
+    } else
+      DD = d;
+    CastChart(-1);
+
+    // Compute Ray influences for current day.
+    for (i = 0; i <= cRay+1; i++)
+      rRay[i] = 0.0;
+    ComputeInfluence(power1, power2);
+    for (i = 0; i <= oNorm; i++) {
+      power[i] = power1[i] + power2[i];
+      if (FIgnore(i))
+        continue;
+      k = SFromZ(planet[i]);
+      for (j = 1; j <= cRay; j++)
+        if (rgSignRay2[k][j]) {
+          if (!gs.fAlt)
+            rRay[j] += power[i];
+          else
+            rRay[j] += power[i] / (420 / rgSignRay2[k][j]);
+        }
+    }
+    for (i = 0; i <= cRay; i++)
+      rRay[cRay+1] += rRay[i] / 7.0;
+
+    // Draw a line segment for each Ray during this time section.
+    if (d > 1)
+      for (i = 1; i <= cRay+1; i++) {
+        k = x1 + (i-1)*xs/8;
+        m = k + (int)((real)xs * rRaySav[i] / 8.0 / (real)gs.nRayWidth);
+        u = k + (int)((real)xs * rRay[i]    / 8.0 / (real)gs.nRayWidth);
+        DrawColor(i <= cRay ? kRayB[i] : gi.kiOn);
+        DrawLine(m, n, u, v);
+      }
+
+    // Label months or days in the month along the left and right edges.
+    if (d <= daytot && (!fYea || day == 1)) {
+      if (fYea) {
+        sprintf(sz, "%.3s", szMonth[mon]);
+        i = (mon == Mon);
+      } else {
+        sprintf(sz, "%2d", d);
+        i = (d == Day);
+      }
+      DrawColor(gs.fLabel && i ? gi.kiOn : gi.kiLite);
+      i = v + gi.nScaleT;
+      DrawSz(sz,      xFontT/2,              i, dtLeft | dtTop | dtScale2);
+      DrawSz(sz, x2 + xFontT/2, i, dtLeft | dtTop | dtScale2);
+    }
+
+    // Now increment the day counter. For a month we always go up by one.
+    // For a year we go up by four or until the end of the month reached.
+    if (fYea) {
+      i = us.fSeconds ? 1 : 4;
+      day += i;
+      if (day > monsiz) {
+        d += i-(day-monsiz-1);
+        if (d <= daytot + 1) {
+          mon++;
+          monsiz = DayInMonth(mon, Yea);
+          day = 1;
+        }
+      } else
+        d += i;
+    } else
+      d++;
+  }
+  DrawColor(gi.kiLite);
+  DrawEdge(x1, y1, x2, y2);
+
+  ciCore = ciMain;    // Recast original chart.
+  CastChart(1);
 }
 
 
@@ -889,7 +1025,7 @@ void XChartTransit(flag fTrans, flag fProg)
   CI ciT;
   real rT, rPct;
 
-  /* Initialize variables. */
+  // Initialize variables.
   rgEph = (TransGraInfo *)PAllocate(sizeof(TransGraInfo),
     "transit graph grid");
   if (rgEph == NULL)
@@ -905,7 +1041,7 @@ void XChartTransit(flag fTrans, flag fProg)
   xo = yRow*3 + fTrans*gi.nScaleT*20;
   ymin = 1-fTrans;
 
-  /* Determine pixel width of chart based on time period being graphed. */
+  // Determine pixel width of chart based on time period being graphed.
   if (!fMonth)
     cSect = 24;
   else if (!fYear)
@@ -917,11 +1053,11 @@ void XChartTransit(flag fTrans, flag fProg)
   xWid = (gs.xWin - xo - 2) / cSect; xWid = Max(xWid, 1);
   cTot = cSect * xWid + 1;
 
-  /* Calculate and fill out aspect strength arrays for each aspect present. */
+  // Calculate and fill out aspect strength arrays for each aspect present.
   if (fTrans || fProg) {
     ciCore = ciMain;
     us.fProgress = fFalse;
-    CastChart(fTrue);
+    CastChart(0);
     cp1 = cp0;
   }
   if (!gs.fAlt) {
@@ -941,7 +1077,7 @@ void XChartTransit(flag fTrans, flag fProg)
   for (iw = 0; iw < cTot; iw++) {
     iSect = iw / xWid; iFrac = iw % xWid;
 
-    /* Cast chart for current time slice. */
+    // Cast chart for current time slice.
     ciCore = ciT;
     rT = (real)iFrac / (real)xWid;
     if (!fMonth) {
@@ -969,12 +1105,12 @@ void XChartTransit(flag fTrans, flag fProg)
       is.JDp = MdytszToJulian(MM, DD, YY, TT, SS, ZZ);
       ciCore = ciMain;
     }
-    CastChart(fTrue);
+    CastChart(-1);
     if (fTrans)
       for (obj = 0; obj <= oNorm; obj++)
         SwapN(ignore[obj], ignore2[obj]);
 
-    /* Compute aspects present for current time slice. */
+    // Compute aspects present for current time slice.
     if (!fTrans) {
       if (!FCreateGrid(fFalse))
         goto LDone;
@@ -984,7 +1120,7 @@ void XChartTransit(flag fTrans, flag fProg)
         goto LDone;
     }
 
-    /* For each aspect present in slice, add its strength to array. */
+    // For each aspect present in slice, add its strength to array.
     for (y = ymin; y <= cObj; y++) {
       if (FIgnore(y) || (!fTrans && !FProperGraph(y)))
         continue;
@@ -1011,7 +1147,7 @@ void XChartTransit(flag fTrans, flag fProg)
         rT /= GetOrb(x, y, asp);
         pw[iw] = 65535 - (int)(rT * (65536.0 - rSmall));
 
-        /* Check for and add eclipse information to array too. */
+        // Check for and add eclipse information to array too.
         if (fEclipse) {
           et = etNone;
           if (asp == aCon)
@@ -1038,9 +1174,9 @@ void XChartTransit(flag fTrans, flag fProg)
     }
   }
 
-  /* Print chart header row(s). */
-  yo = gi.nScaleT*gi.nScaleText*12;
-  yp = gi.nScaleT*gi.nScaleText*2;
+  // Print chart header row.
+  yo = gi.nScaleTextT*12;
+  yp = gi.nScaleTextT*2;
 
   DrawColor(gi.kiOn);
   if (!fMonth)
@@ -1051,7 +1187,7 @@ void XChartTransit(flag fTrans, flag fProg)
     sprintf(sz, "%4d", ciT.yea);
   else
     sz[0] = chNull;
-  if (CchSz(sz) * xFont * gi.nScaleText < xo)
+  if (CchSz(sz) * xFontT < xo)
     DrawSz(sz, yp, yp, dtLeft | dtTop | dtScale2);
 
   DrawColor(gi.kiLite);
@@ -1086,14 +1222,14 @@ void XChartTransit(flag fTrans, flag fProg)
     }
   }
 
-  /* Determine scrolling position if too many aspects to fit on bitmap. */
+  // Determine scrolling position if too many aspects to fit on bitmap.
 #ifdef WIN
   cRow = (cRow - (gs.yWin / (yRow + 1))) * wi.yScroll / nScrollDiv;
 #else
   cRow = 0;
 #endif
 
-  /* Draw the individual aspects present in order. */
+  // Draw the individual aspects present in order.
   iy = 0;
   for (y = ymin; y <= cObj; y++)
     for (x = 0; x < (fTrans ? cObj+1 : y); x++)
@@ -1112,11 +1248,11 @@ void XChartTransit(flag fTrans, flag fProg)
           goto LDone;
         xp = 0;
 
-        /* Draw the glyphs for the aspect in question. */
+        // Draw the glyphs for the aspect in question.
         if (fTrans) {
           DrawColor(gi.kiGray);
-          DrawSz(!fProg ? "T." : "P.",
-            xp + gi.nScaleT*5 + gi.nScale, yp2 + gi.nScaleT*2, dtCent);
+          DrawSz(!fProg ? "T." : "P.", xp + gi.nScaleT*5 + gi.nScale,
+            yp2 + gi.nScaleT*2, dtCent | dtScale2);
           xp += gi.nScaleT*10;
         }
         xp += yRow/2;
@@ -1128,7 +1264,7 @@ void XChartTransit(flag fTrans, flag fProg)
         if (fTrans) {
           DrawColor(kSignB(SFromZ(cp1.obj[y])));
           DrawSz("N.", xp + gi.nScaleT*5 - gi.nScale*5, yp2 + gi.nScaleT*2,
-            dtCent);
+            dtCent | dtScale2);
           xp += gi.nScaleT*10;
         }
         DrawObject(y, xp, yp2);
@@ -1137,7 +1273,7 @@ void XChartTransit(flag fTrans, flag fProg)
         if (iy <= 1)
           DrawBlock(0, yp - yRow, xo + iw - 1, yp - yRow);
 
-        /* Draw the graph itself for the aspect in question. */
+        // Draw the graph itself for the aspect in question.
         nMax = -1;
         for (iw = 0; iw < cTot; iw++) {
           n = pw[iw];
@@ -1161,6 +1297,8 @@ void XChartTransit(flag fTrans, flag fProg)
             DrawColor(n >= nMax || ((iw <= 0 || n > pw[iw-1]) &&
               (iw >= cTot-1 || n > pw[iw+1])) ? gi.kiOn : kAspB[asp]);
             DrawBlock(xo + iw, yp-1 - dyp, xo + iw, yp-1);
+
+            // Draw eclipse strength overlaying aspect strength, if present.
             if (fEclipse) {
               pw2 = (*rgEph)[y][x][asp];
               if (pw2 != NULL && pw2[iw] > 0) {
@@ -1180,10 +1318,10 @@ void XChartTransit(flag fTrans, flag fProg)
     DrawEdge(0, 0, xo + cTot, gs.yWin-1);
   }
 
-  /* Free temporarily allocated data, and restore original chart. */
+  // Free temporarily allocated data, and restore original chart.
   for (y = ymin; y <= cObj; y++)
-    for (x = 0; x < (fTrans ? cObj+1-10 : y); x++)
-      for (asp = 1; asp <= cAspect; asp++) {
+    for (x = 0; x < (fTrans ? cObj+1 : y); x++)
+      for (asp = 1; asp <= cAsp; asp++) {
         pw = (*rgEph)[x][y][asp];
         if (pw != NULL)
           DeallocateP(pw);
@@ -1197,7 +1335,7 @@ void XChartTransit(flag fTrans, flag fProg)
     DeallocateP(rgEph);
   ciCore = ciMain;
   us.fProgress = fFalse;
-  CastChart(fTrue);
+  CastChart(1);
 }
 
 
@@ -1215,12 +1353,12 @@ void XChartBiorhythm()
   real jd, r, a;
   int x1, x2, xs, cx, y1, y2, ys, cy, i, j, k, x, y, x0, y0;
 
-  k = xFont*6*gi.nScaleT;
+  k = xFontT*6;
   x1 = k; x2 = gs.xWin-k; xs = x2-x1; cx = (x1+x2)/2;
-  k = CELLSIZE;
+  k = CELLSIZE*gi.nScaleTextT;
   y1 = k; y2 = gs.yWin-k; ys = y2-y1; cy = (y1+y2)/2;
 
-  /* Create a dotted day/percentage grid to graph on. */
+  // Create a dotted day/percentage grid to graph on.
   DrawColor(gi.kiGray);
   DrawDash(x1, cy, x2, cy, 1);
   DrawDash(cx, y1, cx, y2, 1);
@@ -1232,7 +1370,7 @@ void XChartBiorhythm()
     }
   }
 
-  /* Now actually draw the three biorhythm curves. */
+  // Now actually draw the three biorhythm curves.
   for (i = 1; i <= 3; i++) {
     jd = RFloor(is.JD + rRound);
     switch (i) {
@@ -1249,24 +1387,24 @@ void XChartBiorhythm()
       if (j > -us.nBioday)
         DrawLine(x0, y0, x, y);
       else
-        DrawSz(c, x1/2, y+2*gi.nScaleT, dtCent);
+        DrawSz(c, x1/2, y+2*gi.nScaleT, dtCent | dtScale2);
       x0 = x; y0 = y;
     }
   }
 
   DrawColor(gi.kiLite);
-  /* Label biorhythm percentages along right vertical axis. */
+  // Label biorhythm percentages along right vertical axis.
   for (k = -100; k <= 100; k += 10) {
     sprintf(sz, "%c%3d%%", k < 0 ? '-' : '+', NAbs(k));
     y = y1 + NMultDiv(ys, 100-k, 200);
-    DrawSz(sz, (x2+gs.xWin)/2, y+2*gi.nScaleT, dtCent);
+    DrawSz(sz, (x2+gs.xWin)/2, y+2*gi.nScaleTextT, dtCent | dtScale2);
   }
-  /* Label days on top horizontal axis. */
+  // Label days on top horizontal axis.
   k = Max(us.nBioday/7, 1);
   for (j = -(us.nBioday/k)*k; j < us.nBioday; j += k) {
     x = x1 + NMultDiv(xs, j+us.nBioday, us.nBioday*2);
     sprintf(sz, "%c%d", j < 0 ? '-' : '+', NAbs(j));
-    DrawSz(sz, x, y1-2*gi.nScaleT, dtBottom);
+    DrawSz(sz, x, y1-2*gi.nScaleTextT, dtBottom | dtScale2);
   }
   DrawEdge(x1, y1, x2, y2);
 }
diff --git a/xdata.cpp b/xdata.cpp
index 4f18008..894c89e 100644
--- a/xdata.cpp
+++ b/xdata.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xdata.cpp
+** Astrolog (Version 7.10) File: xdata.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -75,14 +75,14 @@ GS gs = {
 #else
   0,
 #endif
-  200, 100, 0, 0, 0, 3, 0, 0, 0.0, 0.0, BITMAPMODE, 0, 8.5, 11.0, NULL,
+  200, 100, 0, 0, 0, 3, 0, 0, 0.0, 0.0, oMoo, BITMAPMODE, 0, 8.5, 11.0, NULL,
   0, 25, 11, oCore, 0.0, 1000, 0, 600, 1111, fFalse, fFalse, 7, "", ""};
 
 GI gi = {
   0, fFalse, -1,
   NULL, 0, NULL, NULL, 0.0, fFalse, fFalse,
-  2, 1, 1, 20, 10, kWhite, kBlack, kLtGray, kDkGray, 0, 0, 0, 0, -1, -1,
-  NULL, 0, 0, NULL,
+  2, 1, 1, 1, 20, 10, 1022, kWhite, kBlack, kLtGray, kDkGray, 0, 0, 0, 0,
+  -1, -1, NULL, 0, 0, NULL,
 #ifdef SWISS
   NULL, 0,
 #endif
@@ -105,10 +105,10 @@ WI wi = {
   (HINSTANCE)NULL, (HWND)NULL, (HWND)NULL, (HMENU)NULL, (HACCEL)NULL, hdcNil,
   hdcNil, (HWND)NULL, (HPEN)NULL, (HBRUSH)NULL, (HFONT)NULL, (HANDLE)NULL,
   0, 0, 0, 0, 0, 0, 0, -1, -1,
-  0, 0, 0, -1, fFalse, fTrue, fFalse, fTrue, fFalse, fFalse,
+  0, 0, 0, -1, fFalse, fTrue, fFalse, fTrue, fFalse, fFalse, fFalse,
   1, fFalse, {0, 0, 0, 0}, fFalse, fFalse,
 
-  /* Window user settings. */
+  // Window user settings.
   fFalse, fTrue, fTrue, fFalse, fTrue, fFalse, fFalse, fFalse, fFalse, fFalse,
   fFalse,
   0, kBlack, 1, 1000};
@@ -132,7 +132,7 @@ char *szFileTemp = szFileTempCore;
 #ifdef WCLI
 WI wi = {
   (HINSTANCE)NULL, (HWND)NULL, (HWND)NULL, hdcNil, (HPEN)NULL, (HBRUSH)NULL,
-  0, 0, fFalse, fFalse, fFalse};
+  0, 0, fFalse, fFalse, fFalse, fFalse, 0, 0, 0, kLtGray};
 #endif
 
 /* Color tables for Astrolog's graphics palette. */
@@ -152,8 +152,8 @@ CONST int ikPalette[cColor] =
 CONST int rgcmdMode[gMax] = {0,
   cmdChartList, cmdChartWheel, cmdChartGrid, cmdChartHorizon, cmdChartOrbit,
   cmdChartSector, cmdChartCalendar, cmdChartInfluence, cmdChartEsoteric,
-  cmdChartAstroGraph, cmdChartEphemeris, cmdTransit, cmdTransit,
-  cmdChartSphere, cmdChartMap, cmdChartGlobe, cmdChartPolar,
+  cmdChartAstroGraph, cmdChartEphemeris, cmdChartLocal, cmdTransit, cmdTransit,
+  cmdChartSphere, cmdChartMap, cmdChartGlobe, cmdChartPolar, cmdChartTelescope,
   0/*cmdRelBiorhythm*/, cmdChartAspect, cmdChartMidpoint, cmdChartArabic,
   cmdChartRising, cmdTransit, cmdTransit, cmdTransit, cmdTransit,
   cmdHelpSign, cmdHelpObject, cmdHelpAspect, cmdHelpConstellation,
@@ -169,9 +169,8 @@ char *szWheelX[4+1] = {NULL, NULL, NULL, NULL, NULL};
 KI kMainB[9], kRainbowB[cRainbow+1], kElemB[cElem], kAspB[cAspect+1],
   kObjB[objMax], kRayB[cRay+2];
 
-/* Some physical X window variables dealing with the window itself. */
-
 #ifdef X11
+// Some physical X window variables dealing with the window itself.
 XSizeHints hint;
 char xkey[10];
 #endif
@@ -183,175 +182,174 @@ char xkey[10];
 ******************************************************************************
 */
 
-#ifdef VECTOR
-//                                  ESMMVMJSUNPccpjvnslpveA23I56D89M12
-CONST char szObjectFont[oNorm+1] = ";QRSTUVWXYZ     <> ?  a  c     b  ";
-//                                    C OSTSisssqbssnbbtqPC
-CONST char szAspectFont[cAspect2+1] = "!\"#$'&%()+*         ";
-#endif
-
 CONST char *szDrawSign[cSign+2] = {"",
-  "ND4HU2HLGDFBR6EUHLGD2G",                /* Aries        */
-  "BL3D2F2R2E2U2H2NE2L2NH2G2",             /* Taurus       */
-  "BLU3LHBR7GLNL3D6NL3RFBL7ERU3",          /* Gemini       */
-  "BFNDERFDGLNHGL2HLHBU3NEDFREUHNLER2FRF", /* Cancer       */
-  "BF4H2UEU2H2L2G2D2FDGH",                 /* Leo          */
-  "BF4BLH2U3E2D5G2BU5U2HGND6HGND6H",       /* Virgo        */
-  "BGNL3HUER2FDGR3BD2L8",                  /* Libra        */
-  "BH4FND6EFND6EFD6FREU",                  /* Scorpio      */
-  "BG4E3NH2NF2E5NL2D2",                    /* Sagittarius  */
-  "BH3BLED4FND2EU2EUFNDERFDGLNHF2D2G",     /* Capricorn #1 */
-  "BG4EUEDFDEUEDFDEUEBU5GDGUHUGDGUHUGDG",  /* Aquarius     */
-  "NL4NR4BH4F2D4G2BR8H2U4E2",              /* Pisces       */
-  "BH4RFR2ER3G3D2GDFR2EU2HL3G2DG"};        /* Capricorn #2 */
+  "ND4HU2HLGDFBR6EUHLGD2G",                 // Aries
+  "BL3D2F2R2E2U2H2NE2L2NH2G2",              // Taurus
+  "BLU3LHBR7GLNL3D6NL3RFBL7ERU3",           // Gemini
+  "BFNDERFDGLNHGL2HLHBU3NEDFREUHNLER2FRF",  // Cancer
+  "BF4H2UEU2H2L2G2D2FDGH",                  // Leo
+  "BF4BLH2U3E2D5G2BU5U2HGND6HGND6H",        // Virgo
+  "BGNL3HUER2FDGR3BD2L8",                   // Libra
+  "BH4FND6EFND6EFD6FREU",                   // Scorpio
+  "BG4E3NH2NF2E5NL2D2",                     // Sagittarius
+  "BH3BLED4FND2EU2EUFNDERFDGLNHF2D2G",      // Capricorn #1
+  "BG4EUEDFDEUEDFDEUEBU5GDGUHUGDGUHUGDG",   // Aquarius
+  "NL4NR4BH4F2D4G2BR8H2U4E2",               // Pisces
+  "BH4RFR2ER3G3D2GDFR2EU2HL3G2DG"};         // Capricorn #2
 
 CONST char *szDrawSign2[cSign+2] = {"",
-  "BD8U7HU3HU2H2L2G2D2F2BR12E2U2H2L2G2D2GD3G",     /* Aries  */
-  "BH6BU2FDFRFNR4GLGDGD4FDFRFR4EREUEU4HUHLHEREUE", /* Taurus */
-  "BL3U6LHLHBR14GLGLNL6D12NL6RFRFBL14ERERU6",      /* Gemini */
-  "BF5NLRE2U2H2L2G2D2F2G2L4HL2H3BE6NH2D2G2L2H2U2E2R2E2R4FR2F3", /* Cancer */
-  "BF8H4U2E2U4HUHLHL4GLGDGD4FDFD2GL2HU",           /* Leo   */
-  "BF8BL2H3UHU5E4D9GDG3BU10U4H2G2ND12H2G2ND12H2",  /* Virgo */
-  "", /* Libra */
-  "BH8F2ND12E2F2ND12E2F2D12F2RE2U3NGF", /* Scorpio */
-  "", /* Sagittarius  */
-  "BH6BL2E2D4FD4FND4EU2EUEU2EUF2ND2E2R2F2D2G2L2NH2F4D4G2", /* Capricorn #1 */
+  "BD8U7HU3HU2H2L2G2D2F2BR12E2U2H2L2G2D2GD3G",      // Aries
+  "BH6BU2FDFRFNR4GLGDGD4FDFRFR4EREUEU4HUHLHEREUE",  // Taurus
+  "BL3U6LHLHBR14GLGLNL6D12NL6RFRFBL14ERERU6",       // Gemini
+  "BF5NLRE2U2H2L2G2D2F2G2L4HL2H3BE6NH2D2G2L2H2U2E2R2E2R4FR2F3",  // Cancer
+  "BF8H4U2E2U4HUHLHL4GLGDGD4FDFD2GL2HU",            // Leo
+  "BF8BL2H3UHU5E4D9GDG3BU10U4H2G2ND12H2G2ND12H2",   // Virgo
+  "",  // Libra
+  "BH8F2ND12E2F2ND12E2F2D12F2RE2U3NGF",             // Scorpio
+  "",  // Sagittarius
+  "BH6BL2E2D4FD4FND4EU2EUEU2EUF2ND2E2R2F2D2G2L2NH2F4D4G2",  // Capricorn #1
   "BG8EUE2UEDFD2FDEUE2UEDFD2FDEUE2UEBU10GDG2DGUHU2HUGDG2DGUHU2HUGDG2DG",
-    /* Aquarius */
-  "NL8NR8BH8F3DFD6GDG3BR16H3UHU6EUE3",             /* Pisces */
-  "BH8RFRFR4ER2ER4G5DGD2GDGD2F2R4E2U4H2L6G4DGDG"}; /* Capricorn #2 */
+    // Aquarius
+  "NL8NR8BH8F3DFD6GDG3BR16H3UHU6EUE3",              // Pisces
+  "BH8RFRFR4ER2ER4G5DGD2GDGD2F2R4E2U4H2L6G4DGDG"};  // Capricorn #2
 
 CONST char *szDrawSign3[cSign+2] = {"",
-  "BD12U10HU4HU2HU2H3L3G3D3F3BR18E3U3H3L3G3D2GD2GD4",     /* Aries  */
-  "BL9D6FDF3RFR6ERE3UEU6HUH3LHNL6ERE3UEBL18FDF3RFGLG3DG", /* Taurus */
-  "BL4U9L2HLH2BR21G2LGL2NL9D18NL9R2FRF2BL21E2RER2U9",     /* Gemini */
+  "BD12U10HU4HU2HU2H3L3G3D3F3BR18E3U3H3L3G3D2GD2GD4",      // Aries
+  "BL9D6FDF3RFR6ERE3UEU6HUH3LHNL6ERE3UEBL18FDF3RFGLG3DG",  // Taurus
+  "BL4U9L2HLH2BR21G2LGL2NL9D18NL9R2FRF2BL21E2RER2U9",      // Gemini
   "BF3ND3E3R3F3D3G3L3NH3G2LGL6HLHLH4BU9NE3D3F3R3E3U3H3NL3E2RER6FRFRF4",
-    /* Cancer */
-  "BF12H6U3E2UEU5HUH3LHL6GLG3DGD5FDFDFD3G2L2H2U",        /* Leo   */
-  "BF12BL3H5UHU8E6D14GDG5BU15U7H2L2G2ND19H2L2G2ND19H2L", /* Virgo */
-  "", /* Libra        */
-  "BH12RF2ND19E2R2F2ND19E2R2F2D20F2R3E2U5NG2F2", /* Scorpio */
-  "", /* Sagittarius  */
+    // Cancer
+  "BF12H6U3E2UEU5HUH3LHL6GLG3DGD5FDFDFD3G2L2H2U",          // Leo
+  "BF12BL3H5UHU8E6D14GDG5BU15U7H2L2G2ND19H2L2G2ND19H2L",   // Virgo
+  "",  // Libra
+  "BH12RF2ND19E2R2F2ND19E2R2F2D20F2R3E2U5NG2F2",           // Scorpio
+  "",  // Sagittarius
   "BH9BL3E3D4FD4FD4FND6EU2EUEU2EUEU2EUF3ND3E3R3F3D3G3L3NH3F5DFD4GDG2",
-    /* Capricorn #1 */
+    // Capricorn #1
   "BG12E2UEUEUE2D2FDFDFD2E2UEUEUE2D2FDFDFD2E2UEUEUE2BU15"
-    "G2DGDGDG2U2HUHUHU2G2DGDGDG2U2HUHUHU2G2DGDGDG2", /* Aquarius */
-  "NL12NR12BH12F4DFDFD8GDGDG4BR24H4UHUHU8EUEUE4", /* Pisces */
+    "G2DGDGDG2U2HUHUHU2G2DGDGDG2U2HUHUHU2G2DGDGDG2",       // Aquarius
+  "NL12NR12BH12F4DFDFD8GDGDG4BR24H4UHUHU8EUEUE4",          // Pisces
   "BH12RFRFR2FR6ER2ER2ER4G8DGD3GDGDGD3F3R6E3U6H3L8GLG4DGDGDG2"};
-    /* Capricorn #2 */
-
-CONST char *szDrawObjectDef[objMax+5] = {
-  "ND4NL4NR4U4LGLDGD2FDRFR2ERUEU2HULHL",    /* Earth   */
-  "U0BH3DGD2FDRFR2ERUEU2HULHL2GL",          /* Sun     */
-  "BG3E2U2H2ER2FRDFD2GDLGL2H",              /* Moon    */
-  "BD4UNL2NR2U2REU2HNEL2NHGD2FR",           /* Mercury */
-  "LHU2ER2FD2GLD2NL2NR2D2",                 /* Venus   */
-  "HLG2DF2RE2UHE4ND2L2",                    /* Mars    */
-  "BH3RFDGDGDR5NDNR2U6E",                   /* Jupiter */
-  "BH3R2NUNR2D4ND2E2RFDGDF",                /* Saturn  */
-  "BD4NEHURBFULU3NUNR2L2NU2DGBU5NFBR6GD3F", /* Uranus #1 */
-  "BD4U2NL2NR2U6NFNGBL3NGD2F2R2E2U2F",      /* Neptune   */
-  "D2NL2NR2D2BU8GFEHBL3D2F2R2E2U2",         /* Pluto  #1 */
-  "BG2LDFEULU3NURFRFBU5GLGLU2",             /* Chiron          */
-  "BD4UNL3NR3U2RE2UH2L2G",                  /* Ceres           */
-  "BD4UNL3NR3UE2HUHNUGDGF2",                /* Pallas Athena   */
-  "BD4UNL2NR2U4NL4NR4NE3NF3NG3NH3U3",       /* Juno            */
-  "BU4DBG3NLFDF2E2UERBH2GDGHUH",            /* Vesta           */
-  "BG2LGFEU2HU2E2R2F2D2GD2FEHL",            /* North Node      */
-  "BH2LHEFD2GD2F2R2E2U2HU2EFGL",            /* South Node      */
-  "BG4E8BG2FD2G2L2H2U2E2R2F",               /* Lilith #1       */
-  "NE2NF2NG2H2GD2F2R2E2U2H2L2G",            /* Part of Fortune */
-  "U2NHNEBD4NGNFU2L2NHNGR4NEF",             /* Vertex          */
-  "BH4NR3D4NR2D4R3BR2U8R2FD2GL2",           /* East Point      */
-  "BG4U4NR2U3EFD7BR2NURU2HU2RDBR3ULD5RU",   /* Ascendant  */
-  "BH3ER4FD2GLGLG2DR6",                     /* 2nd Cusp   */
-  "BH3ER4FD2GNL3FD2GL4H",                   /* 3rd Cusp   */
-  "BH4R2NR2D8NL2R2BR4NUL2U8R2D",            /* Nadir      */
-  "BG3FR4EU2HL5U4R6",                       /* 5th Cusp   */
-  "BE3HL4GD6FR4EU2HL4G",                    /* 6th Cusp   */
-  "BH4D8REU6HLBF7DRU2HU2RDBG4NRU3NRU2R",    /* Descendant */
-  "BL2GD2FR4EU2HNL4EU2HL4GD2F",             /* 8th Cusp   */
-  "BG3FR4EU6HL4GD2FR4E",                    /* 9th Cusp   */
-  "BG4U8F2ND6E2D8BR4NUL2U8R2D",             /* Midheaven  */
-  "BH3ED8NLRBR2RNRU8G",                     /* 11th Cusp  */
-  "BG4RNRU8GBR4ER2FD2GLG2D2R4",             /* 12th Cusp  */
-  "NU4D4NH3E3",                             /* Vulcan   */
-  "BH4BRFDG2DR8BG3UNL2NR2U5LUEFDL",         /* Cupido   */
-  "BENUNL2NR2D3ND2NR2L2H2U2E2R4",           /* Hades    */
-  "BU4NG2NF2D7NDBLHLBR6LGL2GLBR6LHL",       /* Zeus     */
-  "BU2D3ND3NR2L2BH2UE2R4F2D",               /* Kronos   */
-  "U3NLR2NRD3NL2NR2D4NRL2NLU4L4UEUH",       /* Apollon  */
-  "BUNU2NL2NR2D2ND3LHU2ENHR2NEFD2GL",       /* Admetos  */
-  "G2DGR6HUH2U4NG2F2",                      /* Vulcanus */
-  "ND4U4BL3DF2R2E2UBD8UH2L2G2D",            /* Poseidon */
-  "T", "T", "T", "T", "T", "T", "T", "T",   /* Stars    */
+    // Capricorn #2
+
+CONST char *szDrawObjectDef[objMax+9] = {
+  "ND4NL4NR4U4LGLDGD2FDRFR2ERUEU2HULHL",     // Earth
+  "U0BH3DGD2FDRFR2ERUEU2HULHL2GL",           // Sun
+  "BG3E2U2H2ER2FRDFD2GDLGL2H",               // Moon
+  "BD4UNL2NR2U2REU2HNEL2NHGD2FR",            // Mercury
+  "LHU2ER2FD2GLD2NL2NR2D2",                  // Venus
+  "HLG2DF2RE2UHE4ND2L2",                     // Mars
+  "BH3RFDGDGDR5NDNR2U6E",                    // Jupiter
+  "BH3R2NUNR2D4ND2E2RFDGDF",                 // Saturn
+  "BD4NEHURBFULU3NUNR2L2NU2DGBU5NFBR6GD3F",  // Uranus #1
+  "BD4U2NL2NR2U6NFNGBL3NGD2F2R2E2U2F",       // Neptune
+  "D2NL2NR2D2BU8GFEHBL3D2F2R2E2U2",          // Pluto  #1
+  "BG2LDFEULU3NURFRFBU5GLGLU2",              // Chiron
+  "BD4UNL3NR3U2RE2UH2L2G",                   // Ceres
+  "BD4UNL3NR3UE2HUHNUGDGF2",                 // Pallas Athena
+  "BD4UNL2NR2U4NL4NR4NE3NF3NG3NH3U3",        // Juno
+  "BU4DBG3NLFDF2E2UERBH2GDGHUH",             // Vesta
+  "BG2LGFEU2HU2E2R2F2D2GD2FEHL",             // North Node
+  "BH2LHEFD2GD2F2R2E2U2HU2EFGL",             // South Node
+  "BG4E8BG2FD2G2L2H2U2E2R2F",                // Lilith #1
+  "NE2NF2NG2H2GD2F2R2E2U2H2L2G",             // Part of Fortune
+  "U2NHNEBD4NGNFU2L2NHNGR4NEF",              // Vertex
+  "BH4NR3D4NR2D4R3BR2U8R2FD2GL2",            // East Point
+  "BG4U4NR2U3EFD7BR2NURU2HU2RDBR3ULD5RU",    // Ascendant
+  "BH3ER4FD2GLGLG2DR6",                      // 2nd Cusp
+  "BH3ER4FD2GNL3FD2GL4H",                    // 3rd Cusp
+  "BH4R2NR2D8NL2R2BR4NUL2U8R2D",             // Nadir
+  "BG3FR4EU2HL5U4R6",                        // 5th Cusp
+  "BE3HL4GD6FR4EU2HL4G",                     // 6th Cusp
+  "BH4D8REU6HLBF7DRU2HU2RDBG4NRU3NRU2R",     // Descendant
+  "BL2GD2FR4EU2HNL4EU2HL4GD2F",              // 8th Cusp
+  "BG3FR4EU6HL4GD2FR4E",                     // 9th Cusp
+  "BG4U8F2ND6E2D8BR4NUL2U8R2D",              // Midheaven
+  "BH3ED8NLRBR2RNRU8G",                      // 11th Cusp
+  "BG4RNRU8GBR4ER2FD2GLG2D2R4",              // 12th Cusp
+  "NU4D4NH3E3",                              // Vulcan
+  "BH4BRFDG2DR8BG3UNL2NR2U5LUEFDL",          // Cupido
+  "BENUNL2NR2D3ND2NR2L2H2U2E2R4",            // Hades
+  "BU4NG2NF2D7NDBLHLBR6LGL2GLBR6LHL",        // Zeus
+  "BU2D3ND3NR2L2BH2UE2R4F2D",                // Kronos
+  "U3NLR2NRD3NL2NR2D4NRL2NLU4L4UEUH",        // Apollon
+  "BUNU2NL2NR2D2ND3LHU2ENHR2NEFD2GL",        // Admetos
+  "G2DGR6HUH2U4NG2F2",                       // Vulcanus
+  "ND4U4BL3DF2R2E2UBD8UH2L2G2D",             // Poseidon
+  "T", "T", "T", "T", "T", "T", "T", "T",    // Stars
   "T", "T", "T", "T", "T", "T", "T", "T",
   "T", "T", "T", "T", "T", "T", "T", "T",
   "T", "T", "T", "T", "T", "T", "T", "T",
   "T", "T", "T", "T", "T", "T", "T", "T",
   "T", "T", "T", "T", "T", "T", "T",
-  "BD2D0BU6NG2NF2D4LGD2FR2EU2HL",           /* Uranus #2 */
-  "BL3R5EU2HL5D8R5",                        /* Pluto  #2 */
-  "UERHL2G2D2F2R2ELHU",                     /* Lilith #2 */
-  "ND4U4NG3F3",                             /* Pluto  #3 */
-  };
-CONST char *szDrawObject[objMax+5];
-
-CONST char *szDrawObjectDef2[objMax+5] = {
-  "ND8NL8NR8U8L2GLG3DGD4FDF3RFR4ERE3UEU4HUH3LHL2", /* Earth */
-  "U0BU8L2GLG3DGD4FDF3RFR4ERE3UEU4HUH3LHL2",       /* Sun   */
-  "BG6E3UEU2HUH3E2R4FRF3DFD4GDG3LGL4H2",           /* Moon  */
-  "", /* Mercury */
-  "", /* Venus   */
-  "BELHL4G3D4F3R4E3U4HUE7ND5L5",      /* Mars    */
-  "BH6BRRF2D2GDGDGDGDR10ND2NR4U12E2", /* Jupiter */
-  "", /* Saturn  */
-  "BD4LGD2FR2EU2HLU6NU2NR4L4NU4D2G2BU10NF2BR12G2D6F2",     /* Uranus #1 */
-  "BD8U4NL4NR4U12NF2NG2BL6DNFNGD3FDFRFR4EREUEU3NGNFU",     /* Neptune   */
-  "D4NL4NR4D4BU16LGD2FR2EU2HLBL6D4FDFRFR4EREUEU4",         /* Pluto  #1 */
-  "BG4LGD2FR2EU2HLU7RF2RF2RFBU10GLG2LG2BLU5",     /* Chiron        */
-  "BD8U2NL6NR6U4R3E3U4H3L4G2",                    /* Ceres         */
-  "BD8U2NL6NR6U2E4HUHUHUHNUGDGDGDGF4",            /* Pallas Athena */
-  "BD8U2NL4NR4U8NL7NR7NE5NF5NG5NH5U6",            /* Juno          */
-  "BU8D3BG5NL3DF2DF2DFEUE2UE2UR3BH4GDG2DGHUH2UH", /* Vesta         */
-  "BG4BDHL2GD2FR2EU5H2U4E4R4F4D4G2D5FR2EU2HL2G",  /* North Node    */
-  "BH4BUGL2HU2ER2FD5G2D4F4R4E4U4H2U5ER2FD2GL2H",  /* South Node    */
-  "", /* Lilith #1       */
-  "", /* Part of Fortune */
-  "", /* Vertex          */
-  "", /* East Point      */
-  "BG8U8NR4U6E2F2D14BR4NHREU3HLHU3ERFBR6HLGD8FRE", /* Ascendant */
-  "", /* 2nd Cusp  */
-  "", /* 3rd Cusp  */
-  "BH8R4NR4D16NL4R4BR8BUNUGL3HU14ER3FD", /* Nadir */
-  "", /* 5th Cusp  */
-  "", /* 6th Cusp  */
-  "BH8D16R2E2U12H2L2BF14BGFREU3HLHU3ERFBG9NR3U5NR3U5R3", /* Descendant */
-  "", /* 8th Cusp  */
-  "", /* 9th Cusp  */
-  "BG8U16F4ND12E4D16BR8BUNUGL3HU14ER3FD", /* Midheaven */
-  "", /* 11th Cusp */
-  "", /* 12th Cusp */
-  "", /* Vulcan    */
-  "BH8BR2F2D2G2DG2DR16BG6U2NL4NR4U10LHU2ER2FD2GL", /* Cupido    */
-  "", /* Hades     */
-  "BU8NG4NF4D14ND2BLHL2HLBR12LGL2GL2GL2GLBR12LHL2HL", /* Zeus      */
-  "", /* Kronos    */
-  "U6NL2R4NR2D6NL4NR4D8NR2L4NL2U8L8UE2U3H2", /* Apollon   */
-  "", /* Admetos   */
-  "G2DG2DG2R12H2UH2UH2U8NG4F4", /* Vulcanus  */
-  "", /* Poseidon  */
-  "", "", "", "", "", "", "", "", "", "",   /* Stars    */
+  "BD2D0BU6NG2NF2D4LGD2FR2EU2HL",            // Uranus #2
+  "BL3R5EU2HL5D8R5",                         // Pluto  #2
+  "UERHL2G2D2F2R2ELHU",                      // Lilith #2
+  "ND4U4NG3F3",                              // Pluto  #3
+  "BU3NGD8NLR",                              // 1st Cusp
+  "BR3L2ND4NU4L5U4",                         // 4th Cusp
+  "BH4BRR6DG6D",                             // 7th Cusp
+  "BG4RNRU8GBR4ER2FD6GL2HU6"};               // 10th Cusp
+CONST char *szDrawObject[objMax+9];
+
+CONST char *szDrawObjectDef2[objMax+9] = {
+  "ND8NL8NR8U8L2GLG3DGD4FDF3RFR4ERE3UEU4HUH3LHL2",  // Earth
+  "U0BU8L2GLG3DGD4FDF3RFR4ERE3UEU4HUH3LHL2",        // Sun
+  "BG6E3UEU2HUH3E2R4FRF3DFD4GDG3LGL4H2",            // Moon
+  "",  // Mercury
+  "",  // Venus
+  "BELHL4G3D4F3R4E3U4HUE7ND5L5",       // Mars
+  "BH6BRRF2D2GDGDGDGDR10ND2NR4U12E2",  // Jupiter
+  "",  // Saturn
+  "BD4LGD2FR2EU2HLU6NU2NR4L4NU4D2G2BU10NF2BR12G2D6F2",  // Uranus #1
+  "BD8U4NL4NR4U12NF2NG2BL6DNFNGD3FDFRFR4EREUEU3NGNFU",  // Neptune
+  "D4NL4NR4D4BU16LGD2FR2EU2HLBL6D4FDFRFR4EREUEU4",      // Pluto  #1
+  "BG4LGD2FR2EU2HLU7RF2RF2RFBU10GLG2LG2BLU5",           // Chiron
+  "BD8U2NL6NR6U4R3E3U4H3L4G2",                          // Ceres
+  "BD8U2NL6NR6U2E4HUHUHUHNUGDGDGDGF4",                  // Pallas Athena
+  "BD8U2NL4NR4U8NL7NR7NE5NF5NG5NH5U6",                  // Juno
+  "BU8D3BG5NL3DF2DF2DFEUE2UE2UR3BH4GDG2DGHUH2UH",       // Vesta
+  "BG4BDHL2GD2FR2EU5H2U4E4R4F4D4G2D5FR2EU2HL2G",        // North Node
+  "BH4BUGL2HU2ER2FD5G2D4F4R4E4U4H2U5ER2FD2GL2H",        // South Node
+  "",  // Lilith #1
+  "",  // Part of Fortune
+  "",  // Vertex
+  "",  // East Point
+  "BG8U8NR4U6E2F2D14BR4NHREU3HLHU3ERFBR6HLGD8FRE",  // Ascendant
+  "",  // 2nd Cusp
+  "",  // 3rd Cusp
+  "BH8R4NR4D16NL4R4BR8BUNUGL3HU14ER3FD",  // Nadir
+  "",  // 5th Cusp
+  "",  // 6th Cusp
+  "BH8D16R2E2U12H2L2BF14BGFREU3HLHU3ERFBG9NR3U5NR3U5R3",  // Descendant
+  "",  // 8th Cusp
+  "",  // 9th Cusp
+  "BG8U16F4ND12E4D16BR8BUNUGL3HU14ER3FD",  // Midheaven
+  "",  // 11th Cusp
+  "",  // 12th Cusp
+  "",  // Vulcan
+  "BH8BR2F2D2G2DG2DR16BG6U2NL4NR4U10LHU2ER2FD2GL",     // Cupido
+  "",  // Hades
+  "BU8NG4NF4D14ND2BLHL2HLBR12LGL2GL2GL2GLBR12LHL2HL",  // Zeus
+  "",  // Kronos
+  "U6NL2R4NR2D6NL4NR4D8NR2L4NL2U8L8UE2U3H2",           // Apollon
+  "",  // Admetos
+  "G2DG2DG2R12H2UH2UH2U8NG4F4",                        // Vulcanus
+  "",  // Poseidon
+  "", "", "", "", "", "", "", "", "", "",  // Stars
   "", "", "", "", "", "", "", "", "", "", 
   "", "", "", "", "", "", "", "", "", "", 
   "", "", "", "", "", "", "", "", "", "", 
   "", "", "", "", "", "", "",
-  "", /* Uranus #2 */
-  "", /* Pluto  #2 */
-  "", /* Lilith #2 */
-  "", /* Pluto  #3 */
-  };
-CONST char *szDrawObject2[objMax+5];
+  "",  // Uranus #2
+  "",  // Pluto  #2
+  "",  // Lilith #2
+  "",  // Pluto  #3
+  "",  // 1st Cusp
+  "",  // 4th Cusp
+  "",  // 7th Cusp
+  ""}; // 10th Cusp
+CONST char *szDrawObject2[objMax+9];
 
 CONST char *szDrawHouse[cSign+1] = {"",
   "BD2NLNRU4L", "BHBUR2D2L2D2R2", "BHBUR2D2NL2D2L2",
@@ -374,63 +372,63 @@ CONST char *szDrawHouse3[cSign+1] = {"",
   "BH6NG3D12NL3R3BR6NR6UE6U4HL4G"};
 
 CONST char *szDrawAspectDef[cAspect2+1] = {"",
-  "HLG2DF2RE2UHE4",                        /* Conjunction      */
-  "BGL2GDFREU2E2U2ERFDGL2",                /* Opposition       */
-  "BH4R8D8L8U8",                           /* Square           */
-  "BU4GDGDGDGDR8UHUHUHUH",                 /* Trine            */
-  "BLNH3NG3RNU4ND4RNE3F3",                 /* Sextile          */
-  "BG4EUEUEUEUNL4NR4BDFDFDFDF",            /* Inconjunct       */
-  "BH4FDFDFDFDNL4NR4BUEUEUEUE",            /* Semisextile      */
-  "BE4G8R8",                               /* Semisquare       */
-  "BD2L3U6R6D6L3D2R2",                     /* Sesquiquadrature */
-  "F4BU3U2HULHL2GLDGD2FDRFR2E3",           /* Quintile         */
-  "BD2U3NR3NU3L3BD5R6",                    /* Biquintile       */
-  "BU2D3NR3ND3L3BU5R6",                    /* Semiquintile     */
-  "BH3R6G6",                               /* Septile      */
-  "BR3L5HUER4FD4GL4H",                     /* Novile       */
-  "BF2UHL2GFR3DGL3BE6LNLU2NRLBL4LNLD2NLR", /* Binovile     */
-  "BL2R4G4BE6LNLU2NRLBL4LNLD2NLR",         /* Biseptile    */
-  "BL2R4G4BE6L7NLU2NLR3ND2R3ND2R",         /* Triseptile   */
-  "BF2UHL2GFR3DGL3BU6LNLU2NLRBR2F2E2",     /* Quatronovile */
-  "BU4BLD8BR2U8",                          /* Parallel       */
-  "BU4BLD8BR2U8BF3BLL6BD2R6"};             /* Contraparallel */
+  "HLG2DF2RE2UHE4",                         // Conjunction
+  "BGL2GDFREU2E2U2ERFDGL2",                 // Opposition
+  "BH4R8D8L8U8",                            // Square
+  "BU4GDGDGDGDR8UHUHUHUH",                  // Trine
+  "BLNH3NG3RNU4ND4RNE3F3",                  // Sextile
+  "BG4EUEUEUEUNL4NR4BDFDFDFDF",             // Inconjunct
+  "BH4FDFDFDFDNL4NR4BUEUEUEUE",             // Semisextile
+  "BE4G8R8",                                // Semisquare
+  "BD2L3U6R6D6L3D2R2",                      // Sesquiquadrature
+  "F4BU3U2HULHL2GLDGD2FDRFR2E3",            // Quintile
+  "BD2U3NR3NU3L3BD5R6",                     // Biquintile
+  "BU2D3NR3ND3L3BU5R6",                     // Semiquintile
+  "BH3R6G6",                                // Septile
+  "BR3L5HUER4FD4GL4H",                      // Novile
+  "BF2UHL2GFR3DGL3BE6LNLU2NRLBL4LNLD2NLR",  // Binovile
+  "BL2R4G4BE6LNLU2NRLBL4LNLD2NLR",          // Biseptile
+  "BL2R4G4BE6L7NLU2NLR3ND2R3ND2R",          // Triseptile
+  "BF2UHL2GFR3DGL3BU6LNLU2NLRBR2F2E2",      // Quatronovile
+  "BU4BLD8BR2U8",                           // Parallel
+  "BU4BLD8BR2U8BF3BLL6BD2R6"};              // Contraparallel
 CONST char *szDrawAspect[cAspect2+1];
 
 CONST char *szDrawAspectDef2[cAspect2+1] = {"",
-  "BELHL4G3D4F3R4E3U4HUE7",                /* Conjunction */
-  "BG3HL2G2D2F2R2E2U2HE6HU2E2R2F2D2G2L2H", /* Opposition  */
-  "", /* Square           */
-  "BU8GDGDGDGDGDGDGDGDR16UHUHUHUHUHUHUHUH",     /* Trine       */
-  "BU8D16BL8BU2E3RE3R2E3RE3BL16F3RF3R2F3RF3",   /* Sextile     */
-  "BG8EUEUEUEUEUEUEUEUNL8NR8BDFDFDFDFDFDFDFDF", /* Inconjunct  */
-  "BH8FDFDFDFDFDFDFDFDNL8NR8BUEUEUEUEUEUEUEUE", /* Semisextile */
-  "", /* Semisquare       */
-  "", /* Sesquiquadrature */
-  "BFF7BU6U4HUH3LHL4GLG3DGD4FDF3RFR4E6", /* Quintile */
-  "", /* Biquintile   */
-  "", /* Semiquintile */
-  "", /* Septile      */
-  "", /* Novile       */
-  "", /* Binovile     */
-  "", /* Biseptile    */
-  "", /* Triseptile   */
-  "", /* Quatronovile */
-  "", /* Parallel        */
-  ""}; /* Contraparallel */
+  "BELHL4G3D4F3R4E3U4HUE7",                      // Conjunction
+  "BG3HL2G2D2F2R2E2U2HE6HU2E2R2F2D2G2L2H",       // Opposition
+  "",  // Square
+  "BU8GDGDGDGDGDGDGDGDR16UHUHUHUHUHUHUHUH",      // Trine
+  "BU8D16BL8BU2E3RE3R2E3RE3BL16F3RF3R2F3RF3",    // Sextile
+  "BG8EUEUEUEUEUEUEUEUNL8NR8BDFDFDFDFDFDFDFDF",  // Inconjunct
+  "BH8FDFDFDFDFDFDFDFDNL8NR8BUEUEUEUEUEUEUEUE",  // Semisextile
+  "",  // Semisquare
+  "",  // Sesquiquadrature
+  "BFF7BU6U4HUH3LHL4GLG3DGD4FDF3RFR4E6",         // Quintile
+  "",  // Biquintile
+  "",  // Semiquintile
+  "",  // Septile
+  "",  // Novile
+  "",  // Binovile
+  "",  // Biseptile
+  "",  // Triseptile
+  "",  // Quatronovile
+  "",  // Parallel
+  ""}; // Contraparallel
 CONST char *szDrawAspect2[cAspect2+1];
 
 CONST char *szDrawCh[256-32] = {"",
   "BR2D4BD2D0", "BRD2BR2U2", "BD2R4BD2L4BFU4BR2D4", "BR2D6BENL3EHL2HER3",
   "RDLNUBR4G4BR4DLUR", "BD2NF4UEFDG2DFRE2", "BR2DG", "BR3G2D2F2", "BRF2D2G2",
   "BD2FNGRNU2ND2RNEF", "BD3R2NU2ND2R2", "BD5BR2DG", "BD3R4", "BD6BRRULD",
-  "BD5E4", /* Special Characters */
+  "BD5E4", // Special Characters
 
   "BDD4NE4FR2EU4HL2G", "BFED6NLR", "BDER2FDG4R4", "BDER2FDGNLFDGL2H",
   "D3R3NU3ND3R", "NR4D3R3FDGL2H", "BR3NFL2GD4FR2EUHL3", "R4DG4D",
-  "BDDFNR2GDFR2EUHEUHL2G", "BD5FR2EU4HL2GDFR3", /* Numbers */
+  "BDDFNR2GDFR2EUHEUHL2G", "BD5FR2EU4HL2GDFR3", // Numbers
 
   "BR2BD2D0BD2D0", "BR2BD2D0BD2G", "BR3G3F3", "BD2R4BD2L4", "BRF3G3",
-  "BDER2FDGLDBD2D0", "BF2DFEU2HL2GD4FR2", /* Special Characters */
+  "BDER2FDGLDBD2D0", "BF2DFEU2HL2GD4FR2", // Special Characters
 
   "BD6U4E2F2D2NL4D2", "D6R3EUHNL3EUHL3", "BR3NFL2GD4FR2E", "D6R2E2U2H2L2",
   "NR4D3NR3D3R4", "NR4D3NR3D3", "BR3NFL2GD4FR2EU2L2", "D3ND3R4NU3D3",
@@ -438,9 +436,9 @@ CONST char *szDrawCh[256-32] = {"",
   "ND6F4ND2U4", "BDD4FR2EU4HL2G", "R3FDGL3NU3D3", "BDD4FRENHNFEU3HL2G",
   "ND6R3FDGL2NLF3", "BR3NFL2GDFR2FDGL2H", "R2NR2D6", "D5FR2EU5",
   "D2FDFNDEUEU2", "D6E2NUF2U6", "DF4DBL4UE4U", "D2FRND3REU2",
-  "R4DG4DR4", /* Upper Case Letters */
+  "R4DG4DR4", // Upper Case Letters
 
-  "BR3L2D6R2", "BDF4", "BRR2D6L2", "BD2E2F2", "BD6R4", "BR2DF", /* Symbols */
+  "BR3L2D6R2", "BDF4", "BRR2D6L2", "BD2E2F2", "BD6R4", "BR2DF", // Symbols
 
   "BF4G2LHU2ER2FD3", "D5NDFR2EU2HL2G", "BF4BUHL2GD2FR2E", "BR4D5NDGL2HU2ER2F",
   "BD4R4UHL2GD2FR3", "BD3RNR3ND3U2ERF", "BD8R3EU4HL2GD2FR2E", "D3ND3ER2FD3",
@@ -448,31 +446,31 @@ CONST char *szDrawCh[256-32] = {"",
   "BD2DND3EFNDEFD3", "BD2DND3ER2FD3", "BD3D2FR2EU2HL2G", "BD2DND5ER2FD2GL2H",
   "BR4BD8U5HL2GD2FR2E", "BD2DND3ER2F", "BD6R3EHL2HER3", "BR2D2NL2NR2D4",
   "BD2D3FRE2NU2D2", "BD2DFDFEUEU", "BD2D3FENUFEU3", "BD2F2NG2NE2F2",
-  "BD2D3FR2ENU3D2GL3", "BD2R4G4R4", /* Lower Case Letters */
+  "BD2D3FR2ENU3D2GL3", "BD2R4G4R4", // Lower Case Letters
 
-  "BR3GDGFDF", "BR2D2BD2D2", "BRFDFGDG", "BFEFE", "", /* Symbols */
+  "BR3GDGFDF", "BR2D2BD2D2", "BRFDFGDG", "BFEFE", "", // Symbols
 
   "BR3NFLGDNRNLD2NRNLDFRE", "BR2FGHE", "BR2BD4DG", "BR4LGD2NRNLD2GL",
   "BD6EBFE", "BD6D0BR2D0BR2D0", "BR2DNL2NR2D4", "BR2DNL2NR2D4NL2NR2D",
   "BR2NGF", "RDLNUBR4G2L2BD2RDLUBR3RDLU", "BD5FR2EUHL2HUER2NFBU2GH", "BF2FG",
-  "BRNRGD4FRNR2U3NR2U3R2", "", "R4DG4DR4BU6BHHG", "", /* 80-8F */
+  "BRNRGD4FRNR2U3NR2U3R2", "", "R4DG4DR4BU6BHHG", "", // 80-8F
 
   "", "BR3GD", "BR2DG", "BFNDEBFNED", "BD2EUBR2DG", "BD3BRRDLU", "BD3BRR2",
   "BD3R4", "BFEFE", "RND2RBRND2FNDED2", "BD6R3EHL2HENR3BU2FE", "BF2GF",
   "BD4NED2FRNR2U2R2UHLNLD2", "", "BD6NR4E4L4BUBEFE",
-  "D2FRND3REU2BUBHD0BL2D0", /* 90-9F */
+  "D2FRND3REU2BUBHD0BL2D0", // 90-9F
 
   "", "BR2D0BD2D4", "BR2DND6NLRFBL4NED3FR2E", "BD6NR4EU2NLNR2U2ERF",
   "BDFEFNEFGNFGHNGHE", "F2NE2DNL2NR2D2NL2NR2D", "BR2D2BD2D2",
   "BD6R3EHNL2EHL2GFBU2HER3", "BRD0BR2D0", "BD2ER2FD2GL2HU2BR3LGFR",
   "BF4U2NUG2LHU2ER2F", "BD3NFEBR3GF", "BD2R4D", "BD3BRR2",
-  "BD2ER2FD2GL2HU2BRND2R2DLNLF", "BRR2", /* A0-AF */
+  "BD2ER2FD2GL2HU2BRND2R2DLNLF", "BRR2", // A0-AF
 
   "BR2FGHE", "BR2D2NL2NR2D2BG2R4", "BRR2DL2DR2", "BRR2DNLDL2", "BR3G",
   "BD3D2ND3FRE2NUD2", "BR4ND6L2ND6LGDFR", "BR2BD3D0", "BR2BD5DL", "BRRD2NLR",
   "BDD2FR2EU2HL2G", "BD2FGBR3EH", "RND2BR3BDG4BDBR4UNULU",
   "RND2BR3BDG4BDBR4LURUL", "RD2LBURBR3G4BDBR4UNULU",
-  "BR2D0BD2DLGDFR2E", /* B0-BF */
+  "BR2D0BD2DLGDFR2E", // B0-BF
 
   "BD6U4E2F2D2NL4D2BU7BLH", "BD6U4E2F2D2NL4D2BU7BL3E",
   "BD6U4E2F2D2NL4D2BU7BLHG", "BD6U4E2F2D2NL4D2BU8GHG",
@@ -480,27 +478,27 @@ CONST char *szDrawCh[256-32] = {"",
   "BD6U2NR2U2E2NR2D3NR2D3R2", "BR3NFL2GD4FR2EBG2DL", "NR4D3NR3D3R4BU7BLH",
   "NR4D3NR3D3R4BU7BL3E", "NR4D3NR3D3R4BU7BLHG", "NR4D3NR3D3R4BU8BLD0BL2D0",
   "BRRNRD6NLRBU7H", "BRRNRD6NLRBU7BL2E", "BRRNRD6NLRBU7HG",
-  "BRRNRD6NLRBU8D0BL2D0", /* C0-CF */
+  "BRRNRD6NLRBU8D0BL2D0", // C0-CF
 
   "BD3RNRD3RE2U2H2LD3", "ND6F4ND2U4BU2GHG", "BRGD4FR2EU4HNL2BUH",
   "BRGD4FR2EU4HL2BUE", "BRGD4FR2EU4HL2BUEF", "BRGD4FR2EU4HL2BUEFE",
   "BRGD4FR2EU4HL2BU2D0BR2D0", "BDF2NE2NG2F2", "BRGD4FR2EU4HNL2BRGDG2DG",
   "D5FR2EU5BHBLH", "D5FR2EU5BHBLE", "D5FR2EU5BHHG", "D5FR2EU5BHBUD0BL2D0",
-  "D2FRND3REU2BHBLE", "D5NDR3EU2HL3", "BD6U5ERFDGF2GL", /* D0-DF */
+  "D2FRND3REU2BHBLE", "D5NDR3EU2HL3", "BD6U5ERFDGF2GL", // D0-DF
 
   "BF4G2LHU2ER2FD3BU6BLH", "BF4G2LHU2ER2FD3BU6BL2E", "BF4G2LHU2ER2FD3BU6BLHG",
   "BF4G2LHU2ER2FD3BU7GHG", "BF4G2LHU2ER2FD3BU6BLD0BL2D0",
   "BF4G2LHU2ER2FD3BU6BL2D0", "BD2R3FDL3GDR2NR2U4", "BF4BUHL2GD2FR2EBG3RU2",
   "BD4R4UHL2GD2FR3BU5BL2H", "BD4R4UHL2GD2FR3BU6BLG", "BD4R4UHL2GD2FR3BU5BLHG",
   "BD4R4UHL2GD2FR3BU6BLD0BL2D0", "BRFBD2D3", "BR3GBD2D3", "BFENFBD3D3",
-  "BRD0BR2D0BLBD2D4", /* E0-EF */
+  "BRD0BR2D0BLBD2D4", // E0-EF
 
   "BR3DNLNRD4NDGLHUERF", "BD2DND3ER2FD3BU6GHG", "BD3D2FR2EU2HL2NGBEH",
   "BD3D2FR2EU2HL2NGBEE", "BD3D2FR2EU2HL2NGBUEF", "BD3D2FR2EU2HL2NGBUEFE",
   "BD3D2FR2EU2HL2NGBU2D0BR2D0", "BD3R4BH2D0BD4D0", "BD3D2FR2EU2HL2GD2BDE4",
   "BD2D3FRE2ND2U2BHBLH", "BD2D3FRE2ND2U2BHBLE", "BD2D3FRE2ND2U2BHHG",
   "BD2D3FRE2ND2U2BHBUD0BL2D0", "BD8R3EU2NU3GL2HU3BEBRE", "D5ND3FR2EU2HL2G",
-  "BD8R3EU2NU3GL2HU3BEBUD0BR2D0"}; /* F0-FF */
+  "BD8R3EU2NU3GL2HU3BEBUD0BR2D0"}; // F0-FF
 
 CONST char *szWorldData[62*3] = {
 "-031+70",
@@ -635,109 +633,109 @@ LLLLGGHGHGLLLGLDLLLLHLLGHGLLLLLLLLLLLLLLHLGLLLLLLLLLLLLLL",
 #ifdef CONSTEL
 CONST char *szDrawConstel[cCnstl+1] = {"",
 "550210+51DDd3r8d2Rr7d2Rr3Dd5l2d3r10uru6rUu2Rr2ur4u2RrUUu3Ll7d2l3DdLl5d2Lu2l4\
-Uul8Dd2Ll3Uul7", /* Andromeda */
-"660913-25d2Ll5Dl5d2l4d4LlDRRr8Uu5l6", /* Antila */
-"561804-68DDd3RRRRRr2Uu9LLLLl3Uu2Ll4", /* Apus */
-"362213+02Dd3Ll14DDd5RRrUUur7Dd4Rr6UUu2Ll9ul3dLl13", /* Aquarius */
-"562003+16Ddl3d7l3Dd9r7Dd2RRUu6r5Uu2l4u4r3Uu2l3u7Lld2l13dLl3", /* Aquila */
-"641803-45Dd7Rr5Dd8Ru3rur2u3r3UUu5LLl3", /* Ara */
-"560307+31DDrd9RRr3Uu6Llu2l7UuLl7", /* Aries */
-"650604+56d2l6Dl4d6Ll7Dd5Rr5Dd2RuRr2Ur4u6l3UUu3Ll3u3Ll4", /* Auriga */
-"431504+55d2l8DDdr4d7r4Dd5rDDd2RRr6UUu8LlUlUUu5Ll4", /* Bootes */
-"560501-27DDd3Rr2d3r5d3r4Uu3l5Ul2u3Ll", /* Caelum */
+Uul8Dd2Ll3Uul7", // Andromeda
+"660913-25d2Ll5Dl5d2l4d4LlDRRr8Uu5l6", // Antila
+"561804-68DDd3RRRRRr2Uu9LLLLl3Uu2Ll4", // Apus
+"362213+02Dd3Ll14DDd5RRrUUur7Dd4Rr6UUu2Ll9ul3dLl13", // Aquarius
+"562003+16Ddl3d7l3Dd9r7Dd2RRUu6r5Uu2l4u4r3Uu2l3u7Lld2l13dLl3", // Aquila
+"641803-45Dd7Rr5Dd8Ru3rur2u3r3UUu5LLl3", // Ara
+"560307+31DDrd9RRr3Uu6Llu2l7UuLl7", // Aries
+"650604+56d2l6Dl4d6Ll7Dd5Rr5Dd2RuRr2Ur4u6l3UUu3Ll3u3Ll4", // Auriga
+"431504+55d2l8DDdr4d7r4Dd5rDDd2RRr6UUu8LlUlUUu5Ll4", // Bootes
+"560501-27DDd3Rr2d3r5d3r4Uu3l5Ul2u3Ll", // Caelum
 "751407+86DdRr6d3RRr6u3Rr2UuRr9Dd7Rr12DDRr12u2Rr11Dd4Rr12d3RRr8u2r2u2rUu8l6Uu\
-7lULLl6u5LLLl5uLLLLLLl7", /* Camelopardalis */
-"550906+33DDDd3Rr14URrULu8l2Uu3Ll6", /* Cancer */
-"551309+52Dd2Ll2DDrd2Rr9UuRr8u2r5Uu4lUu2Ll9", /* Canes Venatici */
-"550707-11DDd3Rr12UUu9Ll7", /* Canis Major */
-"660714+13DLld3l2DRr10ur3Uu2l7ul5", /* Canis Minor */
-"562114-09DDd5r7d2Rr13UUul7Dd4Ll7Uul7", /* Capricornus */
-"360804-51d2l4d2l5d2LLLl5DDd5RRRUu6RRr2Uu2r4u3r6u2r2u2LLl4", /* Carina */
+7lULLl6u5LLLl5uLLLLLLl7", // Camelopardalis
+"550906+33DDDd3Rr14URrULu8l2Uu3Ll6", // Cancer
+"551309+52Dd2Ll2DDrd2Rr9UuRr8u2r5Uu4lUu2Ll9", // Canes Venatici
+"550707-11DDd3Rr12UUu9Ll7", // Canis Major
+"660714+13DLld3l2DRr10ur3Uu2l7ul5", // Canis Minor
+"562114-09DDd5r7d2Rr13UUul7Dd4Ll7Uul7", // Capricornus
+"360804-51d2l4d2l5d2LLLl5DDd5RRRUu6RRr2Uu2r4u3r6u2r2u2LLl4", // Carina
 "440310+77Dd2r6Dd3Rr6u2Rdr3d3r4d4r4DdRd2r10u2Rr5Uur3u2RrULl4u4l6u3Ll6Uu7LLLl1\
-0", /* Cassiopeia */
-"551501-30Dd3Rr11Dd5l6Dd4RRrUu5RrDd4r9Uu3r4UUu4Ll5u2l5ULLLl", /* Centaurus */
+0", // Cassiopeia
+"551501-30Dd3Rr11Dd5l6Dd4RRrUu5RrDd4r9Uu3r4UUu4Ll5u2l5ULLLl", // Centaurus
 "850805+88d3RRRr9DRRr4d3RRRr9Dd3Rr5d3r6DRrd3r7dr3d3r3u2RRr5UurdRu2l7u5l3Uu5r9\
-Uul12u5LLl14u2LLLLLLLLLLl5", /* Cepheus */
-"560306+11DDdRr4DDd4Rr4dRRrUUu4Ll7Uu3LLl2UuLl6", /* Cetus */
-"561313-75Dd3RRRRRRr6Uu5LLLLLLl13", /* Chamaeleon */
-"341507-55Ddr2d3r3d4RrDdRr2Uu5r2uLl10Uu5Ll7", /* Circinus */
-"660603-27Dd3l7Dd3Rr14UUu3Ll3", /* Columba */
-"561207+33d2Ll6Dd2l3Dd6RrdRUu8l2Uu3l5", /* Coma Berenices */
-"561905-37Dd5RRUu3Ll5", /* Corona Australis */
-"451606+39Dd4r2dRr11Uu2l4u7Ll6", /* Corona Borealis */
-"551214-12Dd3r4d2RrUu8Ll14", /* Corvus */
-"551114-07DDd5RrUrUu3Ll14", /* Crater */
-"561214-55Dd4RrUu5Ll14", /* Crux */
+Uul12u5LLl14u2LLLLLLLLLLl5", // Cepheus
+"560306+11DDdRr4DDd4Rr4dRRrUUu4Ll7Uu3LLl2UuLl6", // Cetus
+"561313-75Dd3RRRRRRr6Uu5LLLLLLl13", // Chamaeleon
+"341507-55Ddr2d3r3d4RrDdRr2Uu5r2uLl10Uu5Ll7", // Circinus
+"660603-27Dd3l7Dd3Rr14UUu3Ll3", // Columba
+"561207+33d2Ll6Dd2l3Dd6RrdRUu8l2Uu3l5", // Coma Berenices
+"561905-37Dd5RRUu3Ll5", // Corona Australis
+"451606+39Dd4r2dRr11Uu2l4u7Ll6", // Corona Borealis
+"551214-12Dd3r4d2RrUu8Ll14", // Corvus
+"551114-07DDd5RrUrUu3Ll14", // Crater
+"561214-55Dd4RrUu5Ll14", // Crux
 "552010+61Dd5LLlDd5RdrDd4r2Dd2RuRr4d2r6Ulu7lUu4r4u4rUu6l5u2l5ULl9ul",
-/* Cygnus */
-"542010+21DLl2d8RrDd4rd4r7u7r3Uu6l2Uul5", /* Delphinus */
-"570408-49Dd4Lld3l7DdLd3l8DRRr6Uur3u3r5u3Rr2u2Ll2Uul6", /* Dorado */
+// Cygnus
+"542010+21DLl2d8RrDd4rd4r7u7r3Uu6l2Uul5", // Delphinus
+"570408-49Dd4Lld3l7DdLd3l8DRRr6Uur3u3r5u3Rr2u2Ll2Uul6", // Dorado
 "352013+86d5r12Dd5l9Dd3r3d5RDr3d2r5d2r5Dd2Rr10UuRr14uRRr3ur8u2Rr8Uu2Rr7uRr14u\
-3Rr8Uu3RRr9UuLl13DdLl9d3LLlDdLd4Ll10ULl8u5Ll7Ul7u6LLLl13", /* Draco */
-"562107+13Dd8Rr2u4lUu2Ll3ul4", /* Equuleus */
+3Rr8Uu3RRr9UuLl13DdLl9d3LLlDdLd4Ll10ULl8u5Ll7Ul7u6LLLl13", // Draco
+"562107+13Dd8Rr2u4lUu2Ll3ul4", // Equuleus
 "430411+00d4Ll3DdRd3rDd7r3Dr2d7r5DRrd4r7d2r6d3Rr4Ddr4d3r4d4Rr8u5l3u2l4Uu2Ll6U\
-Llul7u4l4Uu6Rr4UUu9Ll10ULl11", /* Eridanus */
-"550312-24Dd5r4d4r7DRRr4Uu6LLl12", /* Fornax */
-"560713+35d2Ll2Dd2RDrd7r5dr7Dru2Rr9u6rUu2Ru6l10Uu5Ll13", /* Gemini */
-"442307-36DDd6Rr13UuRr8Uu4LLl7", /* Grus */
+Llul7u4l4Uu6Rr4UUu9Ll10ULl11", // Eridanus
+"550312-24Dd5r4d4r7DRRr4Uu6LLl12", // Fornax
+"560713+35d2Ll2Dd2RDrd7r5dr7Dru2Rr9u6rUu2Ru6l10Uu5Ll13", // Gemini
+"442307-36DDd6Rr13UuRr8Uu4LLl7", // Grus
 "551805+51Dd2rDDl3d4l7Dd8r8u2Rr9dRr2Dd6r10Uu6RUu2l2u3l2ul2Uu9Rr3UUu2LLldLl5",
-/* Hercules */
-"770404-40d9r2DdRr2d2r5d4r4Dd7Rr12Uu6l4u3l4UuLlu3l6u2l7ULl4", /* Horologium */
+// Hercules
+"770404-40d9r2DdRr2d2r5d4r4Dd7Rr12Uu6l4u3l4UuLlu3l6u2l7ULl4", // Horologium
 "760910+07DDd2Ll13Dld5LLl10u2LLl6d2LlDRRRr5d4r5d2RRru4r4Ur5u3Rr2u2r10URr5u2r3\
-u7r4UUu7Ll10", /* Hydra */
-"560203-58Dd7LLl9Dd5Rr8Dd2RRRr14Uu6l12dLl6UUu2Ll3", /* Hydrus */
-"742107-45d4Ll2DDd7Ll7Dd4RRr8UURr8Uu5Ll7", /* Indus */
-"562214+57DDd5r13uRrUu4LulUu3l3u3l3ul7", /* Lacerta */
-"551200+28DDr6Dd7Rr2Uu7Rr9UUUu3LDd2l9d5l4u2Ll2u3L", /* Leo */
-"451004+41Ddl9d6Ll2Dd5Rr2d2r4u5RUu3r9u6l5UuLl4", /* Leo Minor */
-"550603-11Dd7RRrUu6Lu3Ll3", /* Lepus */
-"551600-04DDdr3Dr11u5Rr9UUu2l6u7Ll3d3L", /* Libra */
-"331602-30Dd2Rr3d6r5Dd4r4dRr11Uu7LlUULl2", /* Lupus */
-"640703+62DLl9Dd4Ll5d5l6Ddr5d6RRr2u2r6Uu4RrUr4u4r6Uu2Ll3", /* Lynx */
-"551903+48d4l4Dd3rDrd5Rrur7Ur3Uu8Ll3", /* Lyra */
-"560608-70d5Ll9Dd5RRRRr8Uu5Ll9ULLl8", /* Mensa */
-"552107-27DDd5Rr8UUu3Ll7", /* Microscopium */
-"470701+12Dld9l3DLl3DdRRRrUu6Ll5UUlu2Ll", /* Monoceros */
-"561311-64dl2Dd5RRr10Uu6LLl11", /* Musca */
-"561609-42DDRr8u5r4ul4Uu2l5u6Ll9", /* Norma */
-"270000-74lDd2LLLl7d3LLLLl9u2LLLLLLLLLLLl4Uu6LLLLLL", /* Octans */
+u7r4UUu7Ll10", // Hydra
+"560203-58Dd7LLl9Dd5Rr8Dd2RRRr14Uu6l12dLl6UUu2Ll3", // Hydrus
+"742107-45d4Ll2DDd7Ll7Dd4RRr8UURr8Uu5Ll7", // Indus
+"562214+57DDd5r13uRrUu4LulUu3l3u3l3ul7", // Lacerta
+"551200+28DDr6Dd7Rr2Uu7Rr9UUUu3LDd2l9d5l4u2Ll2u3L", // Leo
+"451004+41Ddl9d6Ll2Dd5Rr2d2r4u5RUu3r9u6l5UuLl4", // Leo Minor
+"550603-11Dd7RRrUu6Lu3Ll3", // Lepus
+"551600-04DDdr3Dr11u5Rr9UUu2l6u7Ll3d3L", // Libra
+"331602-30Dd2Rr3d6r5Dd4r4dRr11Uu7LlUULl2", // Lupus
+"640703+62DLl9Dd4Ll5d5l6Ddr5d6RRr2u2r6Uu4RrUr4u4r6Uu2Ll3", // Lynx
+"551903+48d4l4Dd3rDrd5Rrur7Ur3Uu8Ll3", // Lyra
+"560608-70d5Ll9Dd5RRRRr8Uu5Ll9ULLl8", // Mensa
+"552107-27DDd5Rr8UUu3Ll7", // Microscopium
+"470701+12Dld9l3DLl3DdRRRrUu6Ll5UUlu2Ll", // Monoceros
+"561311-64dl2Dd5RRr10Uu6LLl11", // Musca
+"561609-42DDRr8u5r4ul4Uu2l5u6Ll9", // Norma
+"270000-74lDd2LLLl7d3LLLLl9u2LLLLLLLLLLLl4Uu6LLLLLL", // Octans
 "641806+14d2l5Dd4r5d2l2dr2DRrd4LlDRr3d2rUr7d6l7DDRr2u5r7UlurUu2Ru4l6Uu4l7Uu3L\
-l6uLl6", /* Ophiuchus */
-"560600+23dl5Dd2lDrDd4RrDdr11Uu6Rr4UrUu5Llul5dl4d3l3u6rUu3L", /* Orion */
-"552007-57DLl7Dd4RRRr11Uu2Rr5Uu3LLLl7", /* Pavo */
+l6uLl6", // Ophiuchus
+"560600+23dl5Dd2lDrDd4RrDdr11Uu6Rr4UrUu5Llul5dl4d3l3u6rUu3L", // Orion
+"552007-57DLl7Dd4RRRr11Uu2Rr5Uu3LLLl7", // Pavo
 "552201+36dLl9d2l4dLl2Ddld6lDd7r2d2RrDd2Rr2d6Rr3ur3dr2Uu3r4drUl3u4l3u4l4Uu6Ll\
-", /* Pegasus */
+", // Pegasus
 "460209+59d2Ll5d2l2d2Ll12DDd4r3d5RRr2u3r2u3rUUur7Dd2Rr3Uur4u4l4u3Lul9",
-/* Perseus */
-"650206-40d8RrDdr4d2r3d5RRr8UULLLl6", /* Phoenix */
-"640601-43Dd3l2d2l6d3l4Dd4Ru3r7Uu3r7u3Rr7Uu4l5u3LLl", /* Pictor */
+// Perseus
+"650206-40d8RrDdr4d2r3d5RRr8UULLLl6", // Phoenix
+"640601-43Dd3l2d2l6d3l4Dd4Ru3r7Uu3r7u3Rr7Uu4l5u3LLl", // Pictor
 "450108+33Ddl4Dd9Ll2Dd7RRr8Dd6Rru3Rr2Uu8Ll14UuLl2u2l2Uu2l10u3r2Uu3Ll8",
-/* Pisces */
-"562302-25Dd6RRr8Uu5LLl2", /* Piscis Austrinus */
-"570807-11DDDd3r6DdRRr14Uu7l9Uu7Ll7UUu9Ll7", /* Puppis */
-"560810-18DLl3d5l4Dd7Rr8UUu2l3", /* Pyxis */
-"560401-53d3l5d3l3Dd7Rr11Uu3l4u4Ll", /* Reticulum */
-"452005+22Dd4Rrur13u2RrUu2Ll5Dl9u2Ll5", /* Sagitta */
-"552002-12Dd7l5DDd5Rr10Uu3RRUr4Uu4LLu4Ll2", /* Sagittarius */
-"471606-08Dd9lDrd5l7DLLDd5Rr6u3r7UURr3u9LUUu2l6", /* Scorpius */
-"560111-25DDRRr8u4r5Uu5LLl11", /* Sculptor */
-"551900-04Dd6r9Uu6L", /* Scutum */
+// Pisces
+"562302-25Dd6RRr8Uu5LLl2", // Piscis Austrinus
+"570807-11DDDd3r6DdRRr14Uu7l9Uu7Ll7UUu9Ll7", // Puppis
+"560810-18DLl3d5l4Dd7Rr8UUu2l3", // Pyxis
+"560401-53d3l5d3l3Dd7Rr11Uu3l4u4Ll", // Reticulum
+"452005+22Dd4Rrur13u2RrUu2Ll5Dl9u2Ll5", // Sagitta
+"552002-12Dd7l5DDd5Rr10Uu3RRUr4Uu4LLu4Ll2", // Sagittarius
+"471606-08Dd9lDrd5l7DLLDd5Rr6u3r7UURr3u9LUUu2l6", // Scorpius
+"560111-25DDRRr8u4r5Uu5LLl11", // Sculptor
+"551900-04Dd6r9Uu6L", // Scutum
 "861814+06d4r4Dd4r4Dd6Rr11Ul7d2lu2Llu6RrULl6u3l2ur2u2l8bRbRbRbUbUd4l3Dd6l3Dd4\
-Rr12UUUu5Ll2d3RD", /* Serpens */
-"551013+07DDd2Rr5UUu7Ll13", /* Sextans */
-"640600+29d6r3Dd2ld6r3u3r4ur5dRr5DDRr5dr4UUUlUuLl9Dl4dLL", /* Taurus */
-"552007-45Dd7RRr12Uu5LLl7", /* Telescopium */
-"560211+37d3l2d3r5Dd2r7d2Rr3u3r4Uu5Ll2u2l9", /* Triangulum */
-"561609-60dl3d3l2dLd3l3DdRRRrUu2Ll2u4l3u3l2ULl9", /* Triangulum Australe */
-"360106-58DDd5Rr2uRr8Uu3Rr13Uu4Ll7d2LLl6", /* Tucana */
+Rr12UUUu5Ll2d3RD", // Serpens
+"551013+07DDd2Rr5UUu7Ll13", // Sextans
+"640600+29d6r3Dd2ld6r3u3r4ur5dRr5DDRr5dr4UUUlUuLl9Dl4dLL", // Taurus
+"552007-45Dd7RRr12Uu5LLl7", // Telescopium
+"560211+37d3l2d3r5Dd2r7d2Rr3u3r4Uu5Ll2u2l9", // Triangulum
+"561609-60dl3d3l2dLd3l3DdRRRrUu2Ll2u4l3u3l2ULl9", // Triangulum Australe
+"360106-58DDd5Rr2uRr8Uu3Rr13Uu4Ll7d2LLl6", // Tucana
 "641107+73Dd4Lld3Ll8dLl7Dd5r5Dd2Rr6Uu2Rr12Dd6rDDd2Rr13Uu3Rr2u6r9UuRr10u5Rr6UU\
-r6Uu3LLLl7", /* Ursa Major */
+r6Uu3LLLl7", // Ursa Major
 "342200+86RRRRrDr7d5Rr7DRr5d5RRu4r14Uu6l8u3Ll7Uu6RRRRRRr10u2RRRRRRRRRRrd2R",
-/* Ursa Minor */
-"560907-37DLLlDd7RRRr2u2r5u2r4u2r3Uu7l6Uu3Ll7", /* Vela */
-"551309+14Dd2LLl3DdRr3d7r6DDd3RRrUu8RrUu3r5UULu3l14uLl9", /* Virgo */
-"560900-64Dd5RRr7Uu6LLL", /* Volans */
-"462100+29dl8d4r3DRr5ur5uRrDr9u2Rru3Ll5u2l6u2LL"}; /* Vulpecula */
+// Ursa Minor
+"560907-37DLLlDd7RRRr2u2r5u2r4u2r3Uu7l6Uu3Ll7", // Vela
+"551309+14Dd2LLl3DdRr3d7r6DDd3RRrUu8RrUu3r5UULu3l14uLl9", // Virgo
+"560900-64Dd5RRr7Uu6LLL", // Volans
+"462100+29dl8d4r3DRr5ur5uRrDr9u2Rru3Ll5u2l6u2LL"}; // Vulpecula
 #endif /* CONSTEL */
 #endif /* GRAPH */
 
diff --git a/xdevice.cpp b/xdevice.cpp
index 5774292..35c10d6 100644
--- a/xdevice.cpp
+++ b/xdevice.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xdevice.cpp
+** Astrolog (Version 7.10) File: xdevice.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -71,7 +71,7 @@ void WriteXBitmap(FILE *file, CONST char *name, char mode)
   uint value;
   char szT[cchSzDef], *pchStart, *pchEnd;
 
-  /* Determine variable name from filename. */
+  // Determine variable name from filename.
   sprintf(szT, "%s", name);
   for (pchEnd = szT; *pchEnd != chNull; pchEnd++)
     ;
@@ -82,7 +82,7 @@ void WriteXBitmap(FILE *file, CONST char *name, char mode)
     ;
   *pchEnd = chNull;
 
-  /* Output file header. */
+  // Output file header.
   fprintf(file, "#define %s_width %d\n" , pchStart, gs.xWin);
   fprintf(file, "#define %s_height %d\n", pchStart, gs.yWin);
   fprintf(file, "static %s %s_bits[] = {",
@@ -91,7 +91,7 @@ void WriteXBitmap(FILE *file, CONST char *name, char mode)
     x = 0;
     do {
 
-      /* Process each row, eight columns at a time. */
+      // Process each row, eight columns at a time.
       if (y + x > 0)
         fprintf(file, ",");
       if (temp == 0)
@@ -111,7 +111,7 @@ void WriteXBitmap(FILE *file, CONST char *name, char mode)
         ChHex((value >> 4) & 15), ChHex(value & 15));
       temp++;
 
-      /* Is it time to skip to the next line while writing the file yet? */
+      // Is it time to skip to the next line while writing the file yet?
       if ((mode == 'N' && temp >= 12) ||
           (mode == 'C' && temp >= 15) ||
           (mode == 'V' && temp >= 11))
@@ -155,20 +155,20 @@ void WriteBmp(FILE *file)
   int x, y;
   dword value;
 
-  /* BitmapFileHeader */
+  // BitmapFileHeader
   PutByte('B'); PutByte('M');
   PutLong(14+40 + (gs.fColor ? 64 : 8) +
     (long)4*gs.yWin*(((gs.xWin-1) >> (gs.fColor ? 3 : 5))+1));
   PutWord(0); PutWord(0);
   PutLong(14+40 + (gs.fColor ? 64 : 8));
-  /* BitmapInfo / BitmapInfoHeader */
+  // BitmapInfo / BitmapInfoHeader
   PutLong(40);
   PutLong(gs.xWin); PutLong(gs.yWin);
   PutWord(1); PutWord(gs.fColor ? 4 : 1);
   PutLong(0 /*BI_RGB*/); PutLong(0);
   PutLong(0); PutLong(0);
   PutLong(0); PutLong(0);
-  /* RgbQuad */
+  // RgbQuad
   if (gs.fColor)
     for (x = 0; x < 16; x++) {
       PutByte(RGBB(rgbbmp[x])); PutByte(RGBG(rgbbmp[x]));
@@ -178,7 +178,7 @@ void WriteBmp(FILE *file)
     PutLong(0);
     PutByte(255); PutByte(255); PutByte(255); PutByte(0);
   }
-  /* Data */
+  // Data
   for (y = gs.yWin-1; y >= 0; y--) {
     value = 0;
     for (x = 0; x < gs.xWin; x++) {
@@ -245,8 +245,8 @@ void BeginFileX()
       gi.szFileOut = SzPersist(sz);
    }
 #else
-    /* If autosaving in potentially rapid succession, ensure the file isn't */
-    /* being opened by some other application before saving over it again.  */
+    // If autosaving in potentially rapid succession, ensure the file isn't
+    // being opened by some other application before saving over it again.
     if (wi.fAutoSave) {
       if (wi.hMutex == NULL)
         wi.hMutex = CreateMutex(NULL, fFalse, szAppName);
@@ -332,7 +332,7 @@ void EndFileX()
 ******************************************************************************
 */
 
-/* Table of PostScript header alias lines used by the program. */
+// Table of PostScript header alias lines used by the program.
 
 CONST char szPsFunctions[] =
 "/languagelevel where{pop languagelevel}{1}ifelse"
@@ -362,17 +362,19 @@ CONST char szPsFunctions[] =
 "/l{4 2 roll moveto lineto}bind def\n"
 "/t{lineto}bind def\n"
 "/el{newpath matrix currentmatrix 5 1 roll translate scale"
-" 0 0 1 0 360 arc setmatrix stroke}bind def\n";
+" 0 0 1 0 360 arc setmatrix stroke}bind def\n"
+"/ef{newpath matrix currentmatrix 5 1 roll translate scale"
+" 0 0 1 0 360 arc fill setmatrix stroke}bind def\n";
 
 
 /* Write a command to flush the PostScript buffer. */
 
 void PsStrokeForce()
 {
-  if (gi.cStroke > 0) {              /* render any existing path */
+  if (gi.cStroke > 0) {              // Render any existing path
     fprintf(gi.file, "stroke\n");
     gi.cStroke = 0;
-    gi.xPen = -1;                    /* Invalidate PolyLine cache */
+    gi.xPen = -1;                    // Invalidate PolyLine cache
   }
 }
 
@@ -382,7 +384,7 @@ void PsStrokeForce()
 void PsStroke(int n)
 {
   gi.cStroke += n;
-  if (gi.cStroke > 2000)    /* Whenever we reach a certain limit, flush. */
+  if (gi.cStroke > 2000)    // Whenever we reach a certain limit, flush.
     PsStrokeForce();
 }
 
@@ -434,7 +436,7 @@ void PsFont(int psfont)
 {
   int z;
 
-  if (psfont != gi.nFont && gs.fFont) {
+  if (psfont != gi.nFontPS && gs.nFont > 0) {
     if (psfont <= 2) {
       z = psfont == 1 ? 32*PSMUL : 23*PSMUL;
       fprintf(gi.file, "/Astro[%d 0 0 -%d 0 0]sf\n", z, z);
@@ -445,7 +447,7 @@ void PsFont(int psfont)
       z = 10*PSMUL;
       fprintf(gi.file, "/Courier[%d 0 0 -%d 0 0]sf\n", z, z);
     }
-    gi.nFont = psfont;
+    gi.nFontPS = psfont;
   }
 }
 
@@ -500,7 +502,7 @@ void PsEnd()
     fprintf(gi.file, "%%%%PageTrailer\n");
     fprintf(gi.file, "%%%%Trailer\n");
     fprintf(gi.file, "%%%%DocumentFonts: Times-Roman\n");
-    if (gs.fFont) {
+    if (gs.nFont > 0) {
       fprintf(gi.file, "%%%%+ Courier\n");
       fprintf(gi.file, "%%%%+ Astro\n");
     }
@@ -567,7 +569,7 @@ void MetaSelect()
     MetaTextAlign(gi.nAlignDes);
     gi.nAlignAct = gi.nAlignDes;
   }
-  gi.xPen = -1;    /* Invalidate PolyLine cache */
+  gi.xPen = -1;    // Invalidate PolyLine cache
 }
 
 
@@ -580,36 +582,36 @@ void MetaInit()
   int i, j, k;
 
   gi.pwMetaCur = (word *)gi.bm;
-  /* Placeable Metaheader */
+  // Placeable Metaheader
   MetaLong(0x9AC6CDD7L);
-  MetaWord(0);      /* Not used */
+  MetaWord(0);                      // Not used
   MetaWord(0); MetaWord(0);
   MetaWord(gs.xWin); MetaWord(gs.yWin);
-  MetaWord(gs.xWin/6);                     /* Units per inch */
-  MetaLong(0L);     /* Not used */
-  MetaWord(0x9AC6 ^ 0xCDD7 ^ gs.xWin ^ gs.yWin ^ gs.xWin/6);  /* Checksum */
-  /* Metaheader */
-  MetaWord(1);                      /* Metafile type                    */
-  MetaWord(9);                      /* Size of header in words          */
-  MetaWord(0x300);                  /* Windows version                  */
-  MetaLong(0L);                     /* Size of entire metafile in words */
-  MetaWord(16*5+1+(gs.fFont>0)*4);  /* Number of objects in metafile    */
-  MetaLong(17L);                    /* Size of largest record in words  */
-  MetaWord(0);                      /* Not used                         */
-  /* Setup */
+  MetaWord(gs.xWin/6);                     // Units per inch
+  MetaLong(0L);                     // Not used
+  MetaWord(0x9AC6 ^ 0xCDD7 ^ gs.xWin ^ gs.yWin ^ gs.xWin/6);  // Checksum
+  // Metaheader
+  MetaWord(1);                      // Metafile type
+  MetaWord(9);                      // Size of header in words
+  MetaWord(0x300);                  // Windows version
+  MetaLong(0L);                     // Size of entire metafile in words
+  MetaWord(16*5+1+(gs.nFont>0)*4);  // Number of objects in metafile
+  MetaLong(17L);                    // Size of largest record in words
+  MetaWord(0);                      // Not used
+  // Setup
   MetaEscape(17);
-  MetaLong(LFromBB('A', 's', 't', 'r'));  /* "Astr" */
-  MetaWord(4);                            /* Creator */
-  MetaLong(14L);                          /* Bytes in string */
-  MetaLong(LFromBB('A', 's', 't', 'r'));  /* "Astr" */
-  MetaLong(LFromBB('o', 'l', 'o', 'g'));  /* "olog" */
-  MetaLong(LFromBB(' ', szVerCore[0], '.', szVerCore[1]));  /* Version */
-  MetaWord(WFromBB(szVerCore[2], 0));     /* Version part 2 */
+  MetaLong(LFromBB('A', 's', 't', 'r'));  // "Astr"
+  MetaWord(4);                            // Creator
+  MetaLong(14L);                          // Bytes in string
+  MetaLong(LFromBB('A', 's', 't', 'r'));  // "Astr"
+  MetaLong(LFromBB('o', 'l', 'o', 'g'));  // "olog"
+  MetaLong(LFromBB(' ', szVerCore[0], '.', szVerCore[1]));  // Version
+  MetaWord(WFromBB(szVerCore[2], 0));     // Version part 2
   MetaSaveDc();
   MetaWindowOrg(0, 0);
   MetaWindowExt(gs.xWin, gs.yWin);
   MetaBkMode(1 /* Transparent */);
-  /* Colors */
+  // Colors
   for (j = 1; j <= 4; j++)
     for (i = 0; i < 16; i++) {
       k = j <= 1 ? gi.nPenWid : 0;
@@ -620,8 +622,8 @@ void MetaInit()
     MetaCreateBrush(0 /* BS_SOLID */, rgbbmp[i]);
   }
   MetaCreateBrush(1 /* BS_NULL */, 0L);
-  /* Fonts */
-  if (gs.fFont) {
+  // Fonts
+  if (gs.nFont > 0) {
     MetaCreateFont(5, 0, -8*gi.nScale, 2 /* Symbol Charset */);
     MetaWord(WFromBB(1 /* Draft */, 1 | 0x10 /* Fixed | Roman */));
     MetaLong(LFromBB('W', 'i', 'n', 'g'));
@@ -659,12 +661,12 @@ void WriteMeta(FILE *file)
 #if FALSE
   int i;
 
-  for (i = 16*5+1+(gs.fFont>0)*4; i >= 0; i--) {
+  for (i = 16*5+1+(gs.nFont > 0)*4; i >= 0; i--) {
     MetaDeleteObject(i);
   }
 #endif
   MetaRestoreDc();
-  MetaRecord(3, 0);    /* End record */
+  MetaRecord(3, 0);    // End record
   *(long *)(gi.bm + 22 + 6) =
     ((long)((pbyte)gi.pwMetaCur - gi.bm) - 22) / 2;
   for (w = (word *)gi.bm; w < gi.pwMetaCur; w++) {
@@ -697,14 +699,14 @@ void WriteWire(FILE *file)
   while (pw < gi.pwWireCur) {
     if (*pw != 32768) {
 
-      /* Output one line segment. */
+      // Output one line segment.
       x1 = (short)pw[0]; y1 = (short)pw[1]; z1 = (short)pw[2];
       x2 = (short)pw[3]; y2 = (short)pw[4]; z2 = (short)pw[5];
       fprintf(file, "%d %d %d %d %d %d\n", x1, y1, z1, x2, y2, z2);
       pw += 6;
     } else {
 
-      /* Output a color change. */
+      // Output a color change.
       if (gs.fColor) {
         n = pw[1];
         if (n < cColor) {
@@ -790,7 +792,7 @@ void WireStar(int x, int y, int z, ES *pes)
   char *pch = pes->sz;
   int n;
 
-  /* Determine star color. */
+  // Determine star color.
   if (gs.fColor) {
     if (pes->ki != kDefault)
       n = pes->ki;
@@ -801,7 +803,7 @@ void WireStar(int x, int y, int z, ES *pes)
     DrawColor(n);
   }
 
-  /* Draw star point. */
+  // Draw star point.
   if (!FOdd(gs.nAllStar)) {
     WireLine(x-1, y, z, x+1, y, z);
     WireLine(x, y-1, z, x, y+1, z);
@@ -809,7 +811,7 @@ void WireStar(int x, int y, int z, ES *pes)
   } else
     WireOctahedron(x, y, z, 3 * gi.nScaleT);
 
-  /* Draw star's name label. */
+  // Draw star's name label.
   if (!gs.fLabel || gs.nAllStar < 2)
     return;
   gi.zDefault = z + 8*gi.nScaleT;
@@ -827,10 +829,10 @@ void WireGlobeCalc(real x1, real y1, int *u, int *v, int *w, int rz, real deg)
 {
   real lonMC, latMC;
 
-  /* Compute coordinates for a general globe invoked with -XG switch. */
+  // Compute coordinates for a general globe invoked with -XG switch.
 
   if (gi.nMode == gSphere) {
-    /* Chart sphere coordinates are relative to the local horizon. */
+    // Chart sphere coordinates are relative to the local horizon.
     lonMC = Tropical(is.MC); latMC = 0.0;
     EclToEqu(&lonMC, &latMC);
     x1 = Mod(rDegMax - (x1 + lonMC) + rDegQuad);
@@ -839,9 +841,9 @@ void WireGlobeCalc(real x1, real y1, int *u, int *v, int *w, int rz, real deg)
     y1 = rDegQuad - y1;
   }
 
-  x1 = Mod(x1+deg);      /* Shift by current globe rotation value. */
+  x1 = Mod(x1+deg);       // Shift by current globe rotation value.
   if (gs.rTilt != 0.0) {
-    /* Do another coordinate shift if the globe's equator is tilted any. */
+    // Do another coordinate shift if the globe's equator is tilted any.
     y1 = rDegQuad - y1;
     CoorXform(&x1, &y1, gs.rTilt);
     x1 = Mod(x1); y1 = rDegQuad - y1;
@@ -877,194 +879,57 @@ void WireMapCalc(real x1, real y1, int *xp, int *yp, int *zp, flag fSky,
 
 void WireDrawGlobe(flag fSky, real deg)
 {
-  char *nam, *loc, *lin, chCmd;
   int X[objMax], Y[objMax], Z[objMax], M[objMax], N[objMax], O[objMax],
-    rz, lon, lat, unit = 12*gi.nScale,
-    x, y, z, xold, yold, zold, m, n, o, u, v, w, i, j, k, l, nScl = gi.nScale;
-  flag fNext = fTrue;
+    rz, unit = 12*gi.nScale,
+    x, y, z, xold, yold, zold, m, n, o, u, v, w, i, j, k, l;
   real planet1[objMax], planet2[objMax], x1, y1, rT;
-#ifdef CONSTEL
-  CONST char *pch;
-  flag fBlank;
-  int isz = 0, nC, xT, yT, xDelta, yDelta, xLo, xHi, yLo, yHi;
-#endif
 #ifdef SWISS
   ES es;
 #endif
-#ifdef ATLAS
-  real rgzon[iznMax], zon;
-  CI ci;
-#endif
 
-  /* Set up some variables. */
+  // Set up some variables.
   rz = Min(gs.xWin/2, gs.yWin/2);
   if (gi.nMode == gSphere)
     rz -= 7*gi.nScale;
 
-  loop {
-
-    /* Get the next chunk of data to process. Get the starting position, */
-    /* map it to the screen, and set the drawing color appropriately.    */
-
-    if (fNext) {
-      fNext = fFalse;
-
-      /* For constellations, get data for the next constellation shape. */
+  // Draw the map (either a constellation map, or a world map).
 
-      if (fSky) {
+  rT = fSky ? rDegMax - deg : deg;
 #ifdef CONSTEL
-        isz++;
-        if (isz > cCnstl)
-          break;
+  if (fSky)
+    EnumConstelLines(NULL, NULL, NULL, NULL, NULL);
+  else
+#endif
+    EnumWorldLines(NULL, NULL, NULL, NULL, NULL);
+  while (
+#ifdef CONSTEL
+    fSky ? EnumConstelLines(&xold, &yold, &x, &y, &i) :
+#endif
+    EnumWorldLines(&xold, &yold, &x, &y, &i)) {
+    if (fSky) {
+      if (i > 0)
+        DrawColor(gi.nMode == gSphere || !gs.fAlt ? gi.kiGray : kDkGreenB);
+      else
         DrawColor(gi.nMode == gSphere ? kPurpleB :
           (gs.fAlt ? kBlueB : kDkBlueB));
-        pch = szDrawConstel[isz];
-        lon = nDegMax -
-          (((pch[2]-'0')*10+(pch[3]-'0'))*15+(pch[4]-'0')*10+(pch[5]-'0'));
-        lat = 90-((pch[6] == '-' ? -1 : 1)*((pch[7]-'0')*10+(pch[8]-'0')));
-        if (lon >= nDegMax)
-          lon -= nDegMax;
-        pch += 9;
-        xLo = xHi = xT = xold = x = lon;
-        yLo = yHi = yT = yold = y = lat;
-        nC = 0;
-        WireGlobeCalc((real)x, (real)y, &m, &n, &o, rz, rDegMax - deg);
-        k = l = fTrue;
-#else
-        ;
-#endif
-
-      /* For world maps, get data for the next coastline piece. */
-
-      } else {
-        if (!FReadWorldData(&nam, &loc, &lin))
-          break;
-        i = nam[0]-'0';
+    } else {
+      if (i >= 0)
         DrawColor(!gs.fAlt && !gs.fColorHouse ? gi.kiGray :
           (i ? kRainbowB[i] : kDkBlueB));
-        lon = (loc[0] == '+' ? 1 : -1)*
-          ((loc[1]-'0')*100 + (loc[2]-'0')*10 + (loc[3]-'0'));
-        lat = (loc[4] == '+' ? 1 : -1)*((loc[5]-'0')*10 + (loc[6]-'0'));
-        x = 180-lon;
-        y = 90-lat;
-        WireGlobeCalc((real)x, (real)y, &m, &n, &o, rz, deg);
-        k = l = fTrue;
-      }
     }
-
-    /* Get the next unit from the string to draw on the screen as a line. */
-
-    if (fSky) {
-
-      /* For constellations we have a cache of how long we should keep    */
-      /* going in the previous direction, as say "u5" for up five should  */
-      /* move our pointer up five times without advancing string pointer. */
-
-#ifdef CONSTEL
-      if (nC <= 0) {
-        if (!(chCmd = *pch)) {
-          fNext = fTrue;
-          if (gs.fText) {
-
-            /* If we've reached the end of current constellation, compute */
-            /* the center location in it based on lower and upper bounds  */
-            /* we've maintained, and print the name of the constel there. */
-
-            xT = xLo + (xHi - xLo)*(szDrawConstel[isz][0]-'1')/8;
-            yT = yLo + (yHi - yLo)*(szDrawConstel[isz][1]-'1')/8;
-            if (xT < 0)
-              xT += nDegMax;
-            else if (xT > nDegMax)
-              xT -= nDegMax;
-            WireGlobeCalc((real)xT, (real)yT, &x, &y, &z, rz, deg);
-            DrawColor(gi.nMode == gSphere || !gs.fAlt ? gi.kiGray : kDkGreenB);
-            gi.zDefault = z;
-            DrawSz(szCnstlAbbrev[isz], x, y, dtCent);
-          }
-          continue;
-        }
-        pch++;
-
-        /* Get the next direction and distance from constellation string. */
-
-        if (fBlank = (chCmd == 'b'))
-          chCmd = *pch++;
-        xDelta = yDelta = 0;
-        switch (chCmd) {
-        case 'u': yDelta = -1; break;    /* Up    */
-        case 'd': yDelta =  1; break;    /* Down  */
-        case 'l': xDelta = -1; break;    /* Left  */
-        case 'r': xDelta =  1; break;    /* Right */
-        case 'U': yDelta = -1; nC = (yT-1)%10+1;    break;  /* Up until    */
-        case 'D': yDelta =  1; nC = 10-yT%10;       break;  /* Down until  */
-        case 'L': xDelta = -1; nC = (xT+599)%15+1;  break;  /* Left until  */
-        case 'R': xDelta =  1; nC = 15-(xT+600)%15; break;  /* Right until */
-        default: PrintError("Bad wire draw.");        /* Shouldn't happen. */
-        }
-        if (chCmd >= 'a')
-          nC = NFromPch(&pch);  /* Figure out how far to draw. */
-      }
-      nC--;
-      xT += xDelta; x += xDelta;
-      yT += yDelta; y += yDelta;
-      if (fBlank) {
-        xold = x; yold = y;    /* We occasionally want to move the pointer */
-        l = fFalse;            /* without drawing the line on the screen.  */
-        continue;
-      }
-      if (xT < xLo)         /* Maintain our bounding rectangle for this */
-        xLo = xT;           /* constellation if we crossed over it any. */
-      else if (xT > xHi)
-        xHi = xT;
-      if (yT < yLo)
-        yLo = yT;
-      else if (yT > yHi)
-        yHi = yT;
-#else
-      ;
-#endif
-
-    } else {
-
-      /* Get the next unit from the much simpler world map strings. */
-
-      if (!(chCmd = *lin)) {
-        fNext = fTrue;
-        continue;
-      }
-      lin++;
-
-      /* Each unit is exactly one character in the coastline string. */
-
-      if (chCmd == 'L' || chCmd == 'H' || chCmd == 'G')
-        x--;
-      else if (chCmd == 'R' || chCmd == 'E' || chCmd == 'F')
-        x++;
-      if (chCmd == 'U' || chCmd == 'H' || chCmd == 'E')
-        y--;
-      else if (chCmd == 'D' || chCmd == 'G' || chCmd == 'F')
-        y++;
+    // For globes, have to do a complicated transformation.
+    WireGlobeCalc((real)xold, (real)yold, &m, &n, &o, rz, rT);
+    if (fSky && i > 0) {
+      gi.zDefault = o;
+      DrawSz(szCnstlAbbrev[i], m, n, dtCent | dtScale2);
+      continue;
     }
-
-    /* Transform map coordinates to screen coordinates and draw a line. */
-
-    while (x >= nDegMax)    /* Take care of coordinate wrap around. */
-      x -= nDegMax;
-    while (x < 0)
-      x += nDegMax;
-
-    /* For globes, we have to go do a complicated transformation. */
-
-    WireGlobeCalc((real)x, (real)y, &u, &v, &w, rz, deg);
-    if (l && !(fSky && (x > xold || y > yold)))
-      WireLine(m, n, o, u, v, w);
-    m = u; n = v; o = w;
-    l = fTrue;
-    xold = x; yold = y;
+    WireGlobeCalc((real)x, (real)y, &u, &v, &w, rz, rT);
+    WireLine(m, n, o, u, v, w);
   }
 
-  /* Now, if we are in an appropriate bonus chart mode, draw each planet at */
-  /* its zenith or visible location on the globe, if not hidden.            */
+  // Now, if in an appropriate bonus chart mode, draw each planet at its
+  // zenith or visible location on the globe, if not hidden.
 
   if (gs.fAlt || gi.nMode == gAstroGraph || gi.nMode == gSphere)
     return;
@@ -1074,10 +939,10 @@ void WireDrawGlobe(flag fSky, real deg)
   for (i = 0; i <= cObj; i++) {
     planet1[i] = Tropical(planet[i]);
     planet2[i] = planetalt[i];
-    EclToEqu(&planet1[i], &planet2[i]);    /* Calculate zenith long. & lat. */
+    EclToEqu(&planet1[i], &planet2[i]);    // Calculate zenith long. & lat.
   }
 
-  /* Compute screen coordinates of each object, if it's even visible. */
+  // Compute screen coordinates of each object, if it's even visible.
 
   for (i = 0; i <= cObj; i++) if (FProper(i)) {
     WireMapCalc(planet1[i], planet2[i], &u, &v, &w, fSky,
@@ -1088,7 +953,7 @@ void WireDrawGlobe(flag fSky, real deg)
     M[i] = X[i]; N[i] = Y[i]; O[i] = Z[i]-unit/2;
   }
 
-  /* Draw ecliptic equator and zodiac sign wedges. */
+  // Draw ecliptic equator and zodiac sign wedges.
 
   if (gs.fHouseExtra) {
     if (!gs.fColorSign)
@@ -1100,10 +965,10 @@ void WireDrawGlobe(flag fSky, real deg)
         if (gs.fColorSign && l < 0 && i % 30 == 0)
           DrawColor(kSignB((i+90)/30 + (l < -1)*6 + 1));
         if (l >= 0) {
-          /* Coordinates for zodiac sign wedge longitude lines. */
+          // Coordinates for zodiac sign wedge longitude lines.
           j = l*30; k = i;
         } else {
-          /* Coordinates for ecliptic equator latitude line. */
+          // Coordinates for ecliptic equator latitude line.
           j = i+90 + (l < -1)*180; k = 0;
         }
         x1 = Tropical((real)j);
@@ -1116,7 +981,7 @@ void WireDrawGlobe(flag fSky, real deg)
     }
   }
 
-  /* Draw Earth's equator. */
+  // Draw Earth's equator.
 
   if (gs.fEquator) {
     DrawColor(kPurpleB);
@@ -1127,7 +992,7 @@ void WireDrawGlobe(flag fSky, real deg)
     }
   }
 
-  /* Draw chart latitude and plot chart location. */
+  // Draw chart latitude and plot chart location.
 
   if (us.fLatitudeCross && !fSky) {
     DrawColor(kMagentaB);
@@ -1142,7 +1007,7 @@ void WireDrawGlobe(flag fSky, real deg)
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
 
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
@@ -1156,7 +1021,7 @@ void WireDrawGlobe(flag fSky, real deg)
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
 
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
@@ -1172,58 +1037,24 @@ void WireDrawGlobe(flag fSky, real deg)
 #endif
 
 #ifdef ATLAS
-  /* Draw locations of cities from atlas. */
+  // Draw locations of cities from atlas.
 
   if (gs.fLabelCity && !fSky && FEnsureAtlas()) {
     if (!gs.fLabelAsp)
       DrawColor(kOrangeB);
-    if (gs.nLabelCity >= 4) {
-      // Initialize array of current offsets for each time zone area.
-      ci = ciMain;
-#ifdef WIN
-      l = wi.fNoPopup; wi.fNoPopup = fTrue;
-#endif
-      for (i = 0; i < iznMax; i++) {
-        DisplayTimezoneChanges(i, 0, &ci);
-        rgzon[i] = ci.zon - ci.dst;
-      }
-#ifdef WIN
-      wi.fNoPopup = l;
-#endif
-    }
+    KiCity(-1);
     for (i = 0; i < is.cae; i++) {
       x1 = nDegHalf - is.rgae[i].lon;
       y1 = rDegQuad - is.rgae[i].lat;
       WireGlobeCalc(x1, y1, &u, &v, &w, rz, deg);
-      if (gs.fLabelAsp) {
-        if (gs.nLabelCity < 3) {
-          l = is.rgae[i].icn;
-          if (gs.nLabelCity == 2 && (l == icnUS || l == icnCA))
-            DrawColor(kRainbowB[is.rgae[i].istate % 7 + 1]);
-          else
-            DrawColor(kRainbowB[l == icnUS ? 6 :
-              (l == icnFR ? 5 : l % 7 + 1)]);
-        } else if (FEnsureTimezoneChanges()) {
-          l = is.rgae[i].izn;
-          if (gs.nLabelCity == 3)
-            zon = ZondefFromIzn(l);
-          else
-            zon = rgzon[l];
-          if (zon == zonLMT)
-            DrawColor(kDkGrayB);
-          else if (zon == RFloor(zon)) {
-            l = (int)(zon + rDegMax) % 6;
-            DrawColor(kRainbowB[l + (l > 0) + 1]);
-          } else
-            DrawColor(kMagentaB);
-        }
-      }
+      if (gs.fLabelAsp)
+        DrawColor(KiCity(i));
       WirePoint(u, v, w);
     }
   }
 #endif
 
-  /* Draw ecliptic equator and zodiac sign wedges. */
+  // Draw ecliptic equator and zodiac sign wedges.
 
   if (us.fHouse3D) {
     if (!gs.fColorSign)
@@ -1235,10 +1066,10 @@ void WireDrawGlobe(flag fSky, real deg)
         if (gs.fColorSign && l < 0 && i % 30 == 0)
           DrawColor(kSignB((i+90)/30 + (l < -1)*6 + 1));
         if (l >= 0) {
-          /* Coordinates for zodiac sign wedge longitude lines. */
+          // Coordinates for zodiac sign wedge longitude lines.
           j = l*30; k = i;
         } else {
-          /* Coordinates for ecliptic equator latitude line. */
+          // Coordinates for ecliptic equator latitude line.
           j = i+90 + (l < -1)*180; k = 0;
         }
         x1 = Tropical((real)j);
@@ -1250,8 +1081,8 @@ void WireDrawGlobe(flag fSky, real deg)
     }
   }
 
-  /* Draw MC, IC, Asc, and Des lines for each object, as great circles */
-  /* around the globe. The result is a 3D astro-graph chart.           */
+  // Draw MC, IC, Asc, and Des lines for each object, as great circles around
+  // the globe. The result is a 3D astro-graph chart.
 
   if (!fSky) for (i = 0; i <= cObj; i++) if (FProper(i)) {
     for (k = 0; k < 4; k++) {
@@ -1299,7 +1130,7 @@ void WireDrawGlobe(flag fSky, real deg)
     }
   }
 
-  /* Now that we have the coordinates of each object, draw their glyphs. */
+  // Now that we have the coordinates of each object, draw their glyphs.
 
   for (i = 0; i <= cObj; i++) if (FProper(i)) {
     gi.zDefault = O[i];
@@ -1323,7 +1154,7 @@ void WireChartOrbit()
   int xT, yT, zT, x2, y2, z2;
 #endif
 
-  /* Compute coordinates of planets. */
+  // Compute coordinates of planets.
   i = gi.nScale/gi.nScaleT;
   sz = gs.rspace > 0.0 ? gs.rspace : (i <= 1 ? 90.0 : (i == 2 ? 30.0 :
     (i == 3 ? 6.0 : (gi.nScaleText <= 1 ? 1.0 : 0.006))));
@@ -1335,11 +1166,11 @@ void WireChartOrbit()
       xp /= rLYToAU; yp /= rLYToAU; zp /= rLYToAU;
     }
     if (us.fHouse3D)
-      OrbitPlot(&xp, &yp, &zp, sz, i, &space[oEar]);
+      OrbitPlot(&xp, &yp, &zp, sz, i, space);
     x[i] = -(int)(xp*sx); y[i] = (int)(yp*sx); z[i] = (int)(zp*sx);
   }
 
-  /* Draw zodiac lines. */
+  // Draw zodiac lines.
   if (!gs.fHouseExtra) {
     k = zWin;
     if (!gs.fColorSign)
@@ -1355,7 +1186,7 @@ void WireChartOrbit()
     }
   }
 
-  /* Draw lines connecting planets which have aspects between them. */
+  // Draw lines connecting planets which have aspects between them.
   if (!gs.fEquator && us.nAsp > 0) {
     if (!FCreateGrid(fFalse))
       return;
@@ -1367,14 +1198,14 @@ void WireChartOrbit()
         }
   }
 
-  /* Prepare to draw orbital trails. */
+  // Prepare to draw orbital trails.
   if (gs.cspace > 0 && gi.rgspace == NULL) {
-    gi.rgspace = (PT3R *)PAllocate(sizeof(PT3R)*oNorm1*gs.cspace, "orbits");
+    gi.rgspace = RgAllocate(oNorm1*gs.cspace, PT3R, "orbits");
     if (gi.rgspace == NULL)
       return;
   }
 
-  /* Draw planets. */
+  // Draw planets.
   for (i = 0; i <= cObj; i++) if (FProper(i)) {
     DrawColor(kObjB[i]);
     if (!gs.fAlt || i > oVes)
@@ -1385,19 +1216,19 @@ void WireChartOrbit()
     gi.zDefault = z[i] + (j + 5*gi.nScaleT);
     DrawObject(i, x[i], y[i]);
 
-    /* Draw orbital trails. */
+    // Draw orbital trails.
     for (j = 0; j < gi.cspace-1; j++) {
       k = (gi.ispace - gi.cspace + j + gs.cspace) % gs.cspace;
       k = k*oNorm1 + i;
       xp = gi.rgspace[k].x; yp = gi.rgspace[k].y; zp = gi.rgspace[k].z;
       if (us.fHouse3D)
-        OrbitPlot(&xp, &yp, &zp, sz, i, &gi.rgspace[k - i + oEar]);
+        OrbitPlot(&xp, &yp, &zp, sz, i, &gi.rgspace[k - i]);
 
       k = (gi.ispace - gi.cspace + j + 1 + gs.cspace) % gs.cspace;
       k = k*oNorm1 + i;
       xp2 = gi.rgspace[k].x; yp2 = gi.rgspace[k].y; zp2 = gi.rgspace[k].z;
       if (us.fHouse3D)
-        OrbitPlot(&xp2, &yp2, &zp2, sz, i, &gi.rgspace[k - i + oEar]);
+        OrbitPlot(&xp2, &yp2, &zp2, sz, i, &gi.rgspace[k - i]);
 
       k = gi.cspace - j;
       WireLine(-(int)(xp*sx), (int)(yp*sx), (int)(zp*sx) - k*gs.zspace,
@@ -1416,7 +1247,7 @@ void WireChartOrbit()
   OrbitRecord();
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -1428,6 +1259,8 @@ void WireChartOrbit()
       xT = -(int)(xp*sx); yT = (int)(yp*sx); zT = (int)(zp*sx);
       WireStar(xT, yT, zT, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -1445,7 +1278,7 @@ void WireChartOrbit()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (!gs.fAllStar && gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fFalse);
@@ -1531,7 +1364,7 @@ void WireChartSphere()
   ES es, *pes1, *pes2;
 #endif
 
-  /* Initialize variables. */
+  // Initialize variables.
   if (gs.fText && !us.fVelocity)
     gs.xWin -= xSideT;
 
@@ -1546,14 +1379,14 @@ void WireChartSphere()
   latMC = Lat;
   is.lonMC = lonMC; is.latMC = latMC;
 
-  /* Draw constellations. */
+  // Draw constellations.
   if (gs.fConstel) {
     neg(gs.rTilt);
     WireDrawGlobe(fTrue, rDegMax - gs.rRot);
     neg(gs.rTilt);
   }
 
-  /* Draw horizon. */
+  // Draw horizon.
   if (!fNoHorizon || (!gs.fHouseExtra && !us.fHouse3D)) {
     if (!gs.fColorHouse)
       DrawColor(gi.kiOn);
@@ -1573,7 +1406,7 @@ void WireChartSphere()
     }
   }
 
-  /* Draw Earth's equator. */
+  // Draw Earth's equator.
   if (gs.fEquator) {
     DrawColor(kPurpleB);
     for (i = 0; i <= nDegMax; i++) {
@@ -1584,7 +1417,7 @@ void WireChartSphere()
     }
   }
 
-  /* Draw prime vertical. */
+  // Draw prime vertical.
   if (!fNoHorizon) {
     if (!gs.fColorHouse)
       DrawColor(gi.kiGray);
@@ -1604,7 +1437,7 @@ void WireChartSphere()
     }
   }
 
-  /* Draw house wedges and meridian. */
+  // Draw house wedges and meridian.
   if (!gs.fColorHouse)
     DrawColor(kDkGreenB);
   for (j = 30; j < nDegMax; j += (j != 150 ? 30 : 60)) {
@@ -1641,7 +1474,7 @@ void WireChartSphere()
       }
     }
 
-  /* Draw sign wedges. */
+  // Draw sign wedges.
   if (!us.fVedic) {
     if (!gs.fColorSign)
       DrawColor(kDkBlueB);
@@ -1673,10 +1506,10 @@ void WireChartSphere()
     }
   }
 
-  /* Label signs. */
+  // Label signs.
   if (!us.fVedic) {
     nSav = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     for (j = -80; j <= 80; j += 160)
       for (i = 1; i <= cSign; i++) {
         WireSphereZodiac((real)(i*30-15), (real)j, zr, &xp, &yp, &zp);
@@ -1687,10 +1520,10 @@ void WireChartSphere()
     gi.nScale = nSav;
   }
 
-  /* Label houses. */
+  // Label houses.
   if (!gs.fHouseExtra) {
     nSav = gi.nScale;
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
     for (j = -82; j <= 82; j += 164)
       for (i = 1; i <= cSign; i++) {
         WireSpherePrime((real)(i*30-15), (real)j, zr, &xp, &yp, &zp);
@@ -1701,7 +1534,7 @@ void WireChartSphere()
     gi.nScale = nSav;
   }
 
-  /* Label directions. */
+  // Label directions.
   if (!fNoHorizon) {
     k = zGlyph >> 1;
     for (i = 0; i < nDegMax; i += 90) {
@@ -1727,7 +1560,7 @@ void WireChartSphere()
   }
 
 #ifdef SWISS
-  /* Draw extra stars. */
+  // Draw extra stars.
   if (gs.fAllStar) {
     DrawColor(gi.kiGray);
     SwissComputeStar(0.0, NULL);
@@ -1735,6 +1568,8 @@ void WireChartSphere()
       WireSphereZodiac(es.lon, es.lat, zr, &xp, &yp, &zp);
       WireStar(xp, yp, zp, &es);
     }
+
+    // Draw constellation lines between stars.
     DrawColor(gi.kiLite);
     EnumStarsLines(fTrue, NULL, NULL);
     while (EnumStarsLines(fFalse, &pes1, &pes2)) {
@@ -1744,7 +1579,7 @@ void WireChartSphere()
     }
   }
 
-  /* Draw extra asteroids. */
+  // Draw extra asteroids.
   if (gs.nAstLo > 0) {
     DrawColor(gi.kiGray);
     SwissComputeAsteroid(0.0, NULL, fFalse);
@@ -1755,7 +1590,7 @@ void WireChartSphere()
   }
 #endif
 
-  /* Determine set of planet data to use. */
+  // Determine set of planet data to use.
   for (iChart = 1; iChart <= cChart; iChart++) {
     FProcessCommandLine(szWheelX[iChart]);
     if (iChart <= 1)
@@ -1765,7 +1600,7 @@ void WireChartSphere()
     cpSav = cp0;
     cp0 = *pcp;
 
-  /* Draw planet glyphs, and spots for actual local location. */
+  // Draw planet glyphs, and spots for actual local location.
   for (i = 0; i <= cObj; i++) if (FProper(i)) {
     WireSphereZodiac(planet[i], planetalt[i], zr, &xp, &yp, &zp);
     rgx[i] = xp; rgy[i] = yp; rgz[i] = zp;
@@ -1775,7 +1610,7 @@ void WireChartSphere()
     WireOctahedron(rgx[i], rgy[i], rgz[i], gi.nScale);
   }
 
-  /* Draw lines connecting planets which have aspects between them. */
+  // Draw lines connecting planets which have aspects between them.
   if (!FCreateGrid(fFalse))
     return;
   for (j = cObj; j >= 1; j--)
@@ -1789,7 +1624,7 @@ void WireChartSphere()
   } /* iChart */
   FProcessCommandLine(szWheelX[0]);
 
-  /* Draw center point. */
+  // Draw center point.
   DrawColor(gi.kiOn);
   WireOctahedron(0, 0, 0, gi.nScale * 2);
 }
diff --git a/xgeneral.cpp b/xgeneral.cpp
index ac21ed1..1c3222c 100644
--- a/xgeneral.cpp
+++ b/xgeneral.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xgeneral.cpp
+** Astrolog (Version 7.10) File: xgeneral.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -76,7 +76,7 @@ void DrawColor(KI col)
 #ifdef PS
     if (gs.ft == ftPS) {
       if (gi.kiCur != col) {
-        PsStrokeForce();      /* Render existing path with current color */
+        PsStrokeForce();      // Render existing path with current color
         fprintf(gi.file, "%.2f %.2f %.2f c\n",
           (real)RGBR(rgbbmp[col])/255.0, (real)RGBG(rgbbmp[col])/255.0,
           (real)RGBB(rgbbmp[col])/255.0);
@@ -128,8 +128,7 @@ void DrawPoint(int x, int y)
 {
   if (gi.fFile) {
     if (gs.ft == ftBmp) {
-      /* Force the coordinates to be within the bounds of the bitmap array. */
-
+      // Force the coordinates to be within the bounds of the bitmap array.
       if (x < 0)
         x = 0;
       else if (x >= gs.xWin)
@@ -233,8 +232,7 @@ void DrawBlock(int x1, int y1, int x2, int y2)
 
   if (gi.fFile) {
     if (gs.ft == ftBmp) {
-      /* Force the coordinates to be within the bounds of the bitmap array. */
-
+      // Force the coordinates to be within the bounds of the bitmap array.
       if (x1 < 0)
         x1 = 0;
       if (x2 >= gs.xWin)
@@ -243,8 +241,9 @@ void DrawBlock(int x1, int y1, int x2, int y2)
         y1 = 0;
       else if (y2 >= gs.yWin)
         y2 = gs.yWin-1;
-      for (y = y1; y <= y2; y++)           /* For bitmap, we have to  */
-        for (x = x1; x <= x2; x++)         /* just fill in the array. */
+      // For bitmap, just fill in the array.
+      for (y = y1; y <= y2; y++)
+        for (x = x1; x <= x2; x++)
           BmSet(gi.bm, x, y, gi.kiCur);
     }
 #ifdef PS
@@ -278,7 +277,7 @@ void DrawBlock(int x1, int y1, int x2, int y2)
   else {
     wi.hbrush = CreateSolidBrush((COLORREF)rgbbmp[gi.kiCur]);
     SelectObject(wi.hdc, wi.hbrush);
-    PatBlt(wi.hdc, x1, y1, x2-x1 + 1, y2-y1 + 1, PATCOPY);
+    PatBlt(wi.hdc, x1, y1, x2-x1 + gi.nScaleT, y2-y1 + gi.nScaleT, PATCOPY);
     SelectObject(wi.hdc, GetStockObject(NULL_BRUSH));
     DeleteObject(wi.hbrush);
   }
@@ -299,10 +298,10 @@ void DrawBox(int x1, int y1, int x2, int y2, int xsiz, int ysiz)
 {
 #ifdef META
   if (gs.ft == ftWmf)
-    /* For thin boxes in metafiles, we can just output one rectangle record */
-    /* instead of drawing each side separately as we have to do otherwise.  */
+    // For thin boxes in metafiles, can just output one rectangle record
+    // instead of drawing each side separately as have to do otherwise.
     if (xsiz <= 1 && ysiz <= 1) {
-      gi.kiFillDes = kNull;          /* Specify a hollow fill brush. */
+      gi.kiFillDes = kNull;          // Specify a hollow fill brush.
       MetaSelect();
       MetaRectangle(x1, y1, x2, y2);
       return;
@@ -328,7 +327,7 @@ void DrawBox(int x1, int y1, int x2, int y2, int xsiz, int ysiz)
 /* Draw a character from the Astro or Wingdings fonts on the screen. Used  */
 /* to draw sign, planet, and aspect glyphs from these fonts within charts. */
 
-void WinDrawGlyph(char ch, int x, int y, flag fAstro)
+void WinDrawGlyph(char ch, int x, int y, int nFont)
 {
   HFONT hfont, hfontPrev;
   SIZE size;
@@ -337,9 +336,9 @@ void WinDrawGlyph(char ch, int x, int y, flag fAstro)
   int nSav;
 
   hfont = CreateFont(12*gi.nScale, 0, 0, 0, 400, fFalse, fFalse, fFalse,
-    fAstro ? ANSI_CHARSET : SYMBOL_CHARSET, OUT_DEFAULT_PRECIS,
+    nFont >= 1 ? ANSI_CHARSET : SYMBOL_CHARSET, OUT_DEFAULT_PRECIS,
     CLIP_DEFAULT_PRECIS, PROOF_QUALITY, VARIABLE_PITCH | FF_DECORATIVE,
-    fAstro ? "Astro" : "Wingdings");
+    nFont == 2 ? "EnigmaAstrology" : (nFont == 1 ? "Astro" : "Wingdings"));
   if (hfont == NULL)
     return;
   hfontPrev = (HFONT)SelectObject(wi.hdc, hfont);
@@ -356,6 +355,36 @@ void WinDrawGlyph(char ch, int x, int y, flag fAstro)
 }
 
 
+/* Draw a character from the Unicode Ariel font on the screen. Used to draw */
+/* sign, planet, and aspect glyphs from this font within charts.            */
+
+void WinDrawGlyphW(WCHAR wch, int x, int y, int nScale)
+{
+  HFONT hfont, hfontPrev;
+  SIZE size;
+  WCHAR wz[2];
+  KV kvSav;
+  int nSav;
+
+  hfont = CreateFont(12*gi.nScale*nScale/100, 0, 0, 0, 400, fFalse, fFalse,
+    fFalse, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
+    PROOF_QUALITY, VARIABLE_PITCH | FF_DECORATIVE, "Ariel");
+  if (hfont == NULL)
+    return;
+  hfontPrev = (HFONT)SelectObject(wi.hdc, hfont);
+  wz[0] = wch; wz[1] = chNull;
+  GetTextExtentPointW(wi.hdc, wz, 1, &size);
+  kvSav = GetTextColor(wi.hdc);
+  SetTextColor(wi.hdc, rgbbmp[gi.kiCur]);
+  nSav = SetBkMode(wi.hdc, TRANSPARENT);
+  TextOutW(wi.hdc, x - (size.cx >> 1), y - (size.cy >> 1), wz, 1);
+  SetBkMode(wi.hdc, nSav);
+  SetTextColor(wi.hdc, kvSav);
+  SelectObject(wi.hdc, hfontPrev);
+  DeleteObject(hfont);
+}
+
+
 /* Clear and erase the entire graphics screen on Windows. */
 
 void WinClearScreen(KI ki)
@@ -375,18 +404,18 @@ void DrawClearScreen()
 {
 #ifdef PS
   if (gs.ft == ftPS) {
-    /* For PostScript charts first output page orientation information. */
+    // For PostScript charts first output page orientation information.
     if (!gi.fEps) {
       if (gs.nOrient == 0)
         gs.nOrient = gs.xWin > gs.yWin ? -1 : 1;
       if (gs.nOrient < 0) {
-        /* chartx and charty are reversed for Landscape mode. */
+        // Values chartx and charty are reversed for Landscape mode.
         fprintf(gi.file, "%d %d translate\n",
           ((int)(gs.xInch*72.0+rRound) + gs.yWin)/2,
           ((int)(gs.yInch*72.0+rRound) + gs.xWin)/2);
         fprintf(gi.file, "-90 rotate\n");
       } else {
-        /* Most charts are in Portrait mode */
+        // Most charts are in Portrait mode.
         fprintf(gi.file, "%d %d translate\n",
           ((int)(gs.xInch*72.0+rRound) - gs.xWin)/2,
           ((int)(gs.yInch*72.0+rRound) + gs.yWin)/2);
@@ -400,21 +429,21 @@ void DrawClearScreen()
 #endif
 #ifdef META
   if (gs.ft == ftWmf)
-    MetaInit();    /* For metafiles first go write our header information. */
+    MetaInit();        // For metafiles first go write header information.
 #endif
 
-  /* Don't actually erase the screen if the -Xj switch is in effect. */
+  // Don't actually erase the screen if the -Xj switch is in effect.
   if (gs.fJetTrail)
     return;
 
   DrawColor(gi.kiOff);
 #ifdef WINANY
-  /* For Windows charts clear entire window, not just the chart area. */
+  // For Windows charts clear entire window, not just the chart area.
   if (!gi.fFile)
     WinClearScreen(gi.kiCur);
   else
 #endif /* WINANY */
-    DrawBlock(0, 0, gs.xWin - 1, gs.yWin - 1);    /* Clear bitmap screen. */
+    DrawBlock(0, 0, gs.xWin - 1, gs.yWin - 1);    // Clear bitmap screen.
 }
 
 
@@ -434,14 +463,14 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
   if (!gi.fFile) {
     if (!skip) {
 #ifdef X11
-      /* For non-dashed X window lines, let's have the Xlib do it for us. */
+      // For non-dashed X window lines, have the Xlib do it.
 
       XDrawLine(gi.disp, gi.pmap, gi.gc, x1, y1, x2, y2);
       // Some XDrawLine implementations don't draw the last pixel.
       XDrawPoint(gi.disp, gi.pmap, gi.gc, x2, y2);
 #endif
 #ifdef WINANY
-      /* For Windows lines, we have to manually draw the last pixel. */
+      // For Windows lines, have to manually draw the last pixel.
 
       MoveTo(wi.hdc, x1, y1);
       LineTo(wi.hdc, x2, y2);
@@ -463,9 +492,9 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
 #ifdef PS
   if (gs.ft == ftPS) {
 
-    /* For PostScript charts we can save file size if we output a LineTo  */
-    /* command when the start vertex is the same as the end vertex of the */
-    /* previous line drawn, instead of writing out both vertices.         */
+    // For PostScript charts can save file size if we output a LineTo command
+    // when the start vertex is the same as the end vertex of the previous
+    // line drawn, instead of writing out both vertices.
 
     PsLineCap(fTrue);
     PsDash(skip);
@@ -482,15 +511,15 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
 #ifdef META
   if (gs.ft == ftWmf) {
 
-    /* For metafile charts we can really save file size for consecutive */
-    /* lines sharing endpoints by consolidating them into a PolyLine.   */
+    // For metafile charts can save file size for consecutive lines sharing
+    // endpoints by consolidating them into a PolyLine.
 
     if (gi.xPen != x1 || gi.yPen != y1) {
       if (x1 != x2 || y1 != y2) {
         gi.kiLineDes = (gi.kiLineDes & 15) + 16*(skip > 3 ? 3 : skip);
         MetaSelect();
         gi.pwPoly = gi.pwMetaCur;
-        MetaRecord(8, 0x325);      /* Polyline */
+        MetaRecord(8, 0x325);      // Polyline
         MetaWord(2); MetaWord(x1); MetaWord(y1);
       } else {
         DrawPoint(x1, y1);
@@ -499,8 +528,8 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
     } else {
       *gi.pwPoly += 2;
       (*(gi.pwPoly+3))++;
-      /* Note: We should technically update the max record size in the   */
-      /* file header if need be here too, but it doesn't seem necessary. */
+      // Note: We should technically update the max record size in the file
+      // header here too, but it doesn't seem necessary.
     }
     MetaWord(x2); MetaWord(y2);
     gi.xPen = x2; gi.yPen = y2;
@@ -510,7 +539,7 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
 
 #ifdef WIRE
   if (gs.ft == ftWire) {
-    /* Solid non-dashed lines are supported in wireframe format. */
+    // Solid non-dashed lines are supported in wireframe format.
     if (skip == 0) {
       WireLine(x1, y1, gi.zDefault, x2, y2, gi.zDefault);
       return;
@@ -518,9 +547,9 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
   }
 #endif
 
-  /* If none of the above cases hold, then have to draw line dot by dot. */
+  // If none of the above cases hold, then have to draw line dot by dot.
 
-  /* Determine slope. */
+  // Determine slope.
   if (NAbs(dx) >= NAbs(dy)) {
     xInc = NSgn(dx); yInc = 0;
     xInc2 = 0; yInc2 = NSgn(dy);
@@ -534,7 +563,7 @@ void DrawDash(int x1, int y1, int x2, int y2, int skip)
   }
   d >>= 1;
 
-  /* Loop over long axis, adjusting short axis for slope as needed. */
+  // Loop over long axis, adjusting short axis for slope as needed.
   for (z = 0; z <= zMax; z++) {
     if (i < 1)
       DrawPoint(x, y);
@@ -557,11 +586,11 @@ void DrawWrap(int x1, int y1, int x2, int y2, int xmin, int xmax)
 {
   int xmid, ymid, i, j, k;
 
-  if (x1 < 0) {           /* Special case for drawing world map. */
+  if (x1 < 0) {           // Special case for drawing world map.
     DrawPoint(x2, y2);
     return;
   }
-  j = (xmin < 0);    /* Negative xmin means always draw forward. */
+  j = (xmin < 0);    // Negative xmin means always draw forward.
   if (j)
     neg(xmin);
   xmid = (xmax-xmin) / 2;
@@ -570,8 +599,7 @@ void DrawWrap(int x1, int y1, int x2, int y2, int xmin, int xmax)
   else
     k = xmid;
 
-  /* If endpoints aren't near opposite edges, just draw the line and return. */
-
+  // If endpoints aren't near opposite edges, just draw the line and return.
   if (NAbs(x2-x1) < k) {
     DrawLine(x1, y1, x2, y2);
     return;
@@ -579,8 +607,7 @@ void DrawWrap(int x1, int y1, int x2, int y2, int xmin, int xmax)
   if ((i = (xmax-xmin+1) + (!j && x1 < xmid ? x1-x2 : x2-x1)) == 0)
     i = 1;
 
-  /* Determine vertical coordinate where our line runs off edges of screen. */
-
+  // Determine vertical coordinate where our line runs off edges of screen.
   ymid = y1+(int)((real)(y2-y1)*
     (!j && x1 < xmid ? (real)(x1-xmin) : (real)(xmax-x1))/(real)i + rRound);
   DrawLine(x1, y1, !j && x1 < xmid ? xmin : xmax, ymid);
@@ -595,13 +622,15 @@ void DrawWrap(int x1, int y1, int x2, int y2, int xmin, int xmax)
 
 void ClipLesser(int *x1, int *y1, int *x2, int *y2, int s)
 {
-  *x1 -= (int)((long)(*y1-s)*(*x2-*x1)/(*y2-*y1));
+  if (*y2 - *y1)
+    *x1 -= NMultDiv(*y1 - s, *x2 - *x1, *y2 - *y1);
   *y1 = s;
 }
 
 void ClipGreater(int *x1, int *y1, int *x2, int *y2, int s)
 {
-  *x1 += (int)((long)(s-*y1)*(*x2-*x1)/(*y2-*y1));
+  if (*y2 - *y1)
+    *x1 += NMultDiv(s - *y1, *x2 - *x1, *y2 - *y1);
   *y1 = s;
 }
 
@@ -609,32 +638,45 @@ void ClipGreater(int *x1, int *y1, int *x2, int *y2, int s)
 /* Draw a line on the screen. This is just like DrawLine() routine earlier; */
 /* however, first clip the endpoints to the given viewport before drawing.  */
 
-void DrawClip(int x1, int y1, int x2, int y2, int xl, int yl, int xh, int yh,
-  int skip)
+flag FDrawClip(int x1, int y1, int x2, int y2, int xl, int yl, int xh, int yh,
+  int skip, int *x0, int *y0)
 {
-  if ((x1 < xl && x2 < xl) || (y1 < yl && y2 < yl) ||  /* Skip if outside */
-    (x1 > xh && x2 > xh) || (y1 > yh && y2 > yh))      /* bounding box.   */
-    return;
+  if ((x1 < xl && x2 < xl) || (y1 < yl && y2 < yl) ||  // Skip if outside
+    (x1 > xh && x2 > xh) || (y1 > yh && y2 > yh))      // bounding box.
+    return fFalse;
   if (x1 < xl)
-    ClipLesser (&y1, &x1, &y2, &x2, xl);    /* Check left side of window. */
+    ClipLesser (&y1, &x1, &y2, &x2, xl);    // Check left side of window.
   if (x2 < xl)
     ClipLesser (&y2, &x2, &y1, &x1, xl);
   if (y1 < yl)
-    ClipLesser (&x1, &y1, &x2, &y2, yl);    /* Check top side of window.  */
+    ClipLesser (&x1, &y1, &x2, &y2, yl);    // Check top side of window.
   if (y2 < yl)
     ClipLesser (&x2, &y2, &x1, &y1, yl);
   if (x1 > xh)
-    ClipGreater(&y1, &x1, &y2, &x2, xh);    /* Check right of window.  */
+    ClipGreater(&y1, &x1, &y2, &x2, xh);    // Check right of window.
   if (x2 > xh)
     ClipGreater(&y2, &x2, &y1, &x1, xh);
   if (y1 > yh)
-    ClipGreater(&x1, &y1, &x2, &y2, yh);    /* Check bottom of window. */
+    ClipGreater(&x1, &y1, &x2, &y2, yh);    // Check bottom of window.
   if (y2 > yh)
     ClipGreater(&x2, &y2, &x1, &y1, yh);
-  if (x1 < xl || x2 < xl || y1 < yl || y2 < yl ||  /* Skip if not inside */
-    x1 > xh || x2 > xh || y1 > yh || y2 > yh)      /* bounding box.      */
-    return;
-  DrawDash(x1, y1, x2, y2, skip);           /* Go draw the line.       */
+  if (x1 < xl || x2 < xl || y1 < yl || y2 < yl ||  // Skip if not inside
+    x1 > xh || x2 > xh || y1 > yh || y2 > yh)      // bounding box.
+    return fFalse;
+  DrawDash(x1, y1, x2, y2, skip);           // Go draw the line.
+
+  // Return coordinates at which drawn line crosses bounding box.
+  if (x0 != NULL) {
+    if (x1 == xl || x1 == xh || y1 == yl || y1 == yh) {
+      *x0 = x1; *y0 = y1;
+      return fTrue;
+    }
+    if (x2 == xl || x2 == xh || y2 == yl || y2 == yh) {
+      *x0 = x2; *y0 = y2;
+      return fTrue;
+    }
+  }
+  return fFalse;
 }
 
 
@@ -668,7 +710,7 @@ void DrawEllipse(int x1, int y1, int x2, int y2)
 #endif
 #ifdef META
     else {
-      gi.kiFillDes = kNull;    /* Specify a hollow fill brush. */
+      gi.kiFillDes = kNull;    // Specify a hollow fill brush.
       MetaSelect();
       MetaEllipse(x1+gi.nPenWid/3, y1+gi.nPenWid/3,
         x2+1+gi.nPenWid/3, y2+1+gi.nPenWid/3);
@@ -692,6 +734,163 @@ void DrawEllipse(int x1, int y1, int x2, int y2)
 }
 
 
+/* Draw a filled in circle or ellipse inside a bounding rectangle. */
+
+void DrawEllipse2(int x1, int y1, int x2, int y2)
+{
+  int rx, ry, r, i, j, iT, jT, q, qLo, qHi, m1, m2, n1, n2, x, y;
+#ifdef MACG
+  Rect rc;
+#endif
+
+  if (gi.fFile) {
+    x = (x1 + x2) >> 1; y = (y1 + y2) >> 1;
+    rx = NAbs(x2 - x1) >> 1; ry = NAbs(y2 - y1) >> 1;
+    if (gs.ft == ftBmp || gs.ft == ftWire) {
+      // This efficient algorithm has no calculations more complicated than
+      // addition (and multiplication to proportion in case of an ellipse).
+      if (rx == 0 || ry == 0) {
+        DrawBlock(x1, y1, x2, y2);
+        return;
+      }
+      r = Max(rx, ry);
+      j = r; q = r+1; qLo = 1; qHi = r+r-1;
+      m1 = (x1 + x2) >> 1; m2 = m1 + FOdd(x2 - x1);
+      n1 = (y1 + y2) >> 1; n2 = n1 + FOdd(y2 - y1);
+      for (i = 0; i <= r; i++) {
+        iT = (rx <= ry) ? i : i * ry / rx;
+        jT = (rx >= ry) ? j : j * rx / ry;
+        DrawBlock(m1 - jT, n1 - iT, m2 + jT, n1 - iT);
+        DrawBlock(m1 - jT, n2 + iT, m2 + jT, n2 + iT);
+        q -= qLo;
+        while (q < 0) {
+          q += qHi;
+          qHi -= 2;
+          j--;
+        }
+        qLo += 2;
+      }
+    }
+#ifdef PS
+    else if (gs.ft == ftPS) {
+      PsLineCap(fFalse);
+      PsStrokeForce();
+      PsDash(0);
+      fprintf(gi.file, "%d %d %d %d ef\n", rx, ry, x, y);
+    }
+#endif
+#ifdef META
+    else {
+      gi.kiFillDes = gi.kiCur;    // Specify a solid fill brush.
+      MetaSelect();
+      MetaEllipse(x1+gi.nPenWid/3, y1+gi.nPenWid/3,
+        x2+1+gi.nPenWid/3, y2+1+gi.nPenWid/3);
+    }
+#endif
+  }
+#ifdef X11
+  else
+    XFillArc(gi.disp, gi.pmap, gi.gc, x1, y1, x2-x1, y2-y1, 0, nDegMax*64);
+#endif
+#ifdef WINANY
+  else {
+    wi.hbrush = CreateSolidBrush((COLORREF)rgbbmp[gi.kiCur]);
+    SelectObject(wi.hdc, wi.hbrush);
+    Ellipse(wi.hdc, x1, y1, x2+1, y2+1);
+    SelectObject(wi.hdc, GetStockObject(NULL_BRUSH));
+    DeleteObject(wi.hbrush);
+  }
+#endif
+#ifdef MACG
+  else {
+    SetRect(&rc, x1, y1, x2, y2);
+    PaintOval(&rc);
+  }
+#endif
+}
+
+
+// Fast version of rotating that assumes the slow trigonometry values have
+// already been computed. Useful when rotating many points by the same angle.
+
+#define RotateR2(x1, y1, x2, y2, rS, rC) x2 = (x1)*(rC) - (y1)*(rS); \
+  y2 = (y1)*(rC) + (x1)*(rS)
+#define RotateR2Init(rS, rC, d) rS = RSinD(d); rC = RCosD(d)
+
+/* Draw a filled in circle or ellipse inside a bounding rectangle, which */
+/* has a proportion of it in phase or shadow, like a crescent Moon.      */
+
+void DrawCrescent(int x1, int y1, int x2, int y2, real rProp, real rRotate,
+  KI ki0, KI ki1)
+{
+  real xc, yc, rSq, dxy, rx, ry, dx, dy, dx2, dy2, rS, rC;
+  int x, y, xPrev;
+  KI ki, kiPrev;
+
+  // Can only draw up to a half Moon crescent. Any greater means to draw a
+  // crescent coming in from the inverse angle with the two colors reversed.
+  if (rProp <= 0.5)
+    rProp = 1.0 - rProp*2.0;
+  else {
+    rProp = (rProp - 0.5)*2.0;
+    rRotate += rDegHalf;
+    SwapN(ki0, ki1);
+  }
+
+  // Initialize variables.
+  xc = (real)(x1 + x2) / 2.0; yc = (real)(y1 + y2) / 2.0;
+  rx = (real)(x2 - x1) / 2.0; ry = (real)(y2 - y1) / 2.0;
+  rSq = Sq(rx) + rx/2.0;
+  dxy = rx / ry;
+  RotateR2Init(rS, rC, rRotate);
+  x1 = Max(x1, 0); x2 = Min(x2, gs.xWin-1);
+  y1 = Max(y1, 0); y2 = Min(y2, gs.yWin-1);
+
+  // Draw one row of the ellipse at a time.
+  for (y = y1; y <= y2; y++) {
+    xPrev = ki = kiPrev = ~0;
+    for (x = x1; x <= x2; x++) {
+      dx = (real)x - xc;
+      dy = (real)y - yc;
+      if (rx != ry)
+        dy *= dxy;
+      if (Sq(dx) + Sq(dy) > rSq) {
+        if (xPrev != ~0)
+          break;
+        continue;
+      }
+      if (rRotate != 0.0) {
+        RotateR2(dx, dy, dx2, dy2, rS, rC);
+      } else {
+        dx2 = dx; dy2 = dy;
+      }
+      ki = ki1;
+      if (dx2 > 0.0) {
+        dx2 /= rProp;
+        if (Sq(dx2) + Sq(dy2) > rSq)
+          ki = ki0;
+      }
+      // Don't draw anything in this row until the color changes.
+      if (xPrev == ~0)
+        xPrev = x;
+      if (kiPrev == ~0)
+        kiPrev = ki;
+      if (ki != kiPrev) {
+        DrawColor(kiPrev);
+        DrawBlock(xPrev, y, x-1, y);
+        kiPrev = ki;
+        xPrev = x;
+      }
+    }
+    // Draw the rest of the color in this row, if any.
+    if (ki != ~0) {
+      DrawColor(ki);
+      DrawBlock(xPrev, y, x-1, y);
+    }
+  }
+}
+
+
 /* Print a string of text on the graphic window at specified location. To  */
 /* do this we either use Astrolog's own "font" (6x10) and draw each letter */
 /* separately, or else specify system fonts for PostScript and metafiles.  */
@@ -702,7 +901,7 @@ void DrawSz(CONST char *sz, int x, int y, int dt)
 
   cch = CchSz(sz);
   if (dt & dtScale2)
-    gi.nScale = gi.nScaleText * gi.nScaleT;
+    gi.nScale = gi.nScaleTextT;
   else if (!(dt & dtScale))
     gi.nScale = gi.nScaleT;
   x += gi.nScale;
@@ -718,7 +917,7 @@ void DrawSz(CONST char *sz, int x, int y, int dt)
   }
   DrawColor(c);
 #ifdef PS
-  if (gs.ft == ftPS && gs.fFont) {
+  if (gs.ft == ftPS && gs.nFont > 0) {
     PsFont(4);
     fprintf(gi.file, "%d %d(%s)center\n",
       x + xFont*gi.nScale*cch/2, y + yFont*gi.nScale/2, sz);
@@ -728,7 +927,7 @@ void DrawSz(CONST char *sz, int x, int y, int dt)
 #endif
   while (*sz) {
 #ifdef META
-    if (gs.ft == ftWmf && gs.fFont) {
+    if (gs.ft == ftWmf && gs.nFont > 0) {
       gi.nFontDes = 3;
       gi.kiTextDes = gi.kiCur;
       gi.nAlignDes = 0x6 | 0 /* Center | Top */;
@@ -749,6 +948,10 @@ void DrawSz(CONST char *sz, int x, int y, int dt)
 }
 
 
+
+//                                      ATGCLVLSSCAPc
+CONST char szSignFontEnigma[cSign+3] = "1234567890-=+";
+
 /* Draw the glyph of a sign at particular coordinates on the screen.    */
 /* To do this we either use Astrolog's turtle vector representation or  */
 /* we may specify a system font character for PostScript and metafiles. */
@@ -756,20 +959,30 @@ void DrawSz(CONST char *sz, int x, int y, int dt)
 void DrawSign(int i, int x, int y)
 {
 #ifdef WINANY
-  if (!gi.fFile && gs.fFont) {
-    WinDrawGlyph('^' + i - 1, x, y, fFalse);
+  int nFont = gs.nFont/1000%10;
+
+  if (!gi.fFile && nFont > 0) {
+    if (nFont == 1)
+      WinDrawGlyph('^' + i - 1, x, y, 0);
+    else if (nFont == 2)
+      WinDrawGlyph('A' + i - 1, x, y, 1);
+    else if (nFont == 3)
+      WinDrawGlyph(szSignFontEnigma[i == sCap && gs.nGlyphs/1000 > 1 ? cSign :
+        i-1], x, y-gi.nScale, 2);
+    else
+      WinDrawGlyphW(0x2648 + i - 1, x, y, 100);
     return;
   }
 #endif
 #ifdef PS
-  if (gs.ft == ftPS && gs.fFont) {
+  if (gs.ft == ftPS && gs.nFont > 0) {
     PsFont(1);
     fprintf(gi.file, "%d %d(%c)center\n", x, y, 'A' + i - 1);
     return;
   }
 #endif
 #ifdef META
-  if (gs.ft == ftWmf && gs.fFont) {
+  if (gs.ft == ftWmf && gs.nFont > 0) {
     gi.nFontDes = 1;
     gi.kiTextDes = gi.kiCur;
     gi.nAlignDes = 0x6 | 0x8 /* Center | Bottom */;
@@ -783,11 +996,11 @@ void DrawSign(int i, int x, int y)
     i = cSign+1;
   if (gi.nScale % 3 == 0 && szDrawSign3[i][0]) {
     gi.nScale /= 3;
-    DrawTurtle(szDrawSign3[i], x, y);  /* Special hi-res sign glyphs. */
+    DrawTurtle(szDrawSign3[i], x, y);  // Special extra hi-res sign glyphs.
     gi.nScale *= 3;
   } else if (!FOdd(gi.nScale) && szDrawSign2[i][0]) {
     gi.nScale >>= 1;
-    DrawTurtle(szDrawSign2[i], x, y);  /* Special hi-res sign glyphs. */
+    DrawTurtle(szDrawSign2[i], x, y);  // Special hi-res sign glyphs.
     gi.nScale <<= 1;
   } else
     DrawTurtle(szDrawSign[i], x, y);
@@ -799,15 +1012,23 @@ void DrawSign(int i, int x, int y)
 
 void DrawHouse(int i, int x, int y)
 {
+#ifdef WINANY
+  int nFont = gs.nFont/100%10;
+
+  if (!gi.fFile && nFont > 0) {
+    WinDrawGlyphW(0x2460 + i - 1, x, y, 100);
+    return;
+  }
+#endif
 #ifdef PS
-  if (gs.ft == ftPS && gs.fFont) {
+  if (gs.ft == ftPS && gs.nFont > 0) {
     PsFont(3);
     fprintf(gi.file, "%d %d(%d)center\n", x, y, i);
     return;
   }
 #endif
 #ifdef META
-  if (gs.ft == ftWmf && gs.fFont) {
+  if (gs.ft == ftWmf && gs.nFont > 0) {
     gi.nFontDes = 2;
     gi.kiTextDes = gi.kiCur;
     gi.nAlignDes = 0x6 | 0x8 /* Center | Bottom */;
@@ -819,17 +1040,31 @@ void DrawHouse(int i, int x, int y)
 #endif
   if (gi.nScale % 3 == 0 && szDrawHouse3[i][0]) {
     gi.nScale /= 3;
-    DrawTurtle(szDrawHouse3[i], x, y);  /* Special hi-res house numbers. */
+    DrawTurtle(szDrawHouse3[i], x, y);  // Special extra hi-res house numbers.
     gi.nScale *= 3;
   } else if (!FOdd(gi.nScale) && szDrawHouse2[i][0]) {
     gi.nScale >>= 1;
-    DrawTurtle(szDrawHouse2[i], x, y);  /* Special hi-res house numbers. */
+    DrawTurtle(szDrawHouse2[i], x, y);  // Special hi-res house numbers.
     gi.nScale <<= 1;
   } else
     DrawTurtle(szDrawHouse[i], x, y);
 }
 
 
+#ifdef VECTOR
+//                                        ESMMVMJSUNPccpjvnslpveA23I56D89M12
+CONST char szObjectFontAstro[cuspHi+2] = ";QRSTUVWXYZ     <> ?  a  c     b  ";
+CONST char szObjectFontEnigma[uranHi+2] =
+// ESMMVMJSUNPcc___p___j___vnslpveA23I56D89M12___vchzkaavp
+  "eabcdfghijkw_\373\374\300{},   A        M  \311yz!@#$%&";
+#endif
+#ifdef WINANY
+CONST WCHAR wzObjectFontUnicode[oCore+1] = {
+  0x2295, 0x2609, 0x263d, 0x263f, 0x2640, 0x2642, 0x2643, 0x2644, 0x2645,
+  0x2646, 0x2647, 0/*26b7*/, 0/*26b3*/, 0/*26b4*/, 0/*26b5*/, 0/*26b6*/,
+  0x260a, 0x260b, 0/*26b8*/, 0/*2297*/, 0, 0};
+#endif
+
 /* Draw the glyph of an object at particular coordinates on the screen. */
 
 void DrawObject(int obj, int x, int y)
@@ -837,8 +1072,11 @@ void DrawObject(int obj, int x, int y)
   char szGlyph[4];
   flag fNoText = fFalse;
   int col;
+#ifdef WINANY
+  int nFont = gs.nFont/10%10;
+#endif
 
-  if (!gs.fLabel)    /* If we are inhibiting labels, then do nothing. */
+  if (!gs.fLabel)    // If inhibiting labels, then do nothing.
     return;
   if (obj < 0) {
     obj = -obj-1;
@@ -850,7 +1088,7 @@ void DrawObject(int obj, int x, int y)
   if (!us.fExpOff && FSzSet(us.szExpColObj)) {
     ExpSetN(iLetterY, obj);
     ExpSetN(iLetterZ, col);
-    NParseExpression(us.szExpColObj);
+    ParseExpression(us.szExpColObj);
     col = NExpGet(iLetterZ);
     if (!FValidColor(col))
       col = 0;
@@ -859,31 +1097,42 @@ void DrawObject(int obj, int x, int y)
   DrawColor(col);
 
 #ifdef WINANY
-  if (!gi.fFile && gs.fFont == 1 && obj < uranLo && szObjectFont[obj] != ' ') {
-    WinDrawGlyph(szObjectFont[obj], x, y, fTrue);
-    return;
+  if (!gi.fFile) {
+    if (nFont == 2 && obj <= cuspHi && szObjectFontAstro[obj] != ' ') {
+      WinDrawGlyph(szObjectFontAstro[obj], x, y, 1);
+      return;
+    } else if (nFont == 3 && obj <= uranHi && szObjectFontEnigma[obj] != ' ') {
+      WinDrawGlyph(szObjectFontEnigma[obj], x, y-gi.nScale, 2);
+      return;
+    } else if (nFont == 4 && obj <= oCore && wzObjectFontUnicode[obj] != 0) {
+      WinDrawGlyphW(wzObjectFontUnicode[obj], x, y,
+        FBetween(obj, oMer, oMar) ? 95 : 135);
+      return;
+    }
   }
 #endif
 #ifdef PS
-  if (gs.ft == ftPS && gs.fFont == 1 &&
-    obj < uranLo && szObjectFont[obj] != ' ') {
+  if (gs.ft == ftPS && gs.nFont == 1 &&
+    obj < uranLo && szObjectFontAstro[obj] != ' ') {
     PsFont(2);
-    fprintf(gi.file, "%d %d(%c)center\n", x, y, szObjectFont[obj]);
+    fprintf(gi.file, "%d %d(%c)center\n", x, y, szObjectFontAstro[obj]);
     return;
   }
 #endif
 #ifdef META
-  if (gs.ft == ftWmf && gs.fFont == 1 &&
-    obj < uranLo && szObjectFont[obj] != ' ') {
+  if (gs.ft == ftWmf && gs.nFont/10%10 == 2 &&
+    obj < uranLo && szObjectFontAstro[obj] != ' ') {
     gi.nFontDes = 4;
     gi.kiTextDes = gi.kiCur;
     gi.nAlignDes = 0x6 | 0x8 /* Center | Bottom */;
     MetaSelect();
     MetaTextOut(x, y+5*gi.nScale, 1);
-    MetaWord(WFromBB(szObjectFont[obj], 0));
+    MetaWord(WFromBB(szObjectFontAstro[obj], 0));
     return;
   }
 #endif
+
+  // Adjust glyph to alternate versions of it, if necessary.
   if (szDrawObject[obj] == szDrawObjectDef[obj]) {
     if (obj == oUra) {
       if ((gs.nGlyphs/100)%10 > 1)
@@ -894,8 +1143,11 @@ void DrawObject(int obj, int x, int y)
     } else if (obj == oLil) {
       if (gs.nGlyphs%10 > 1)
         obj = cObj + 3;
-    }
+    } else if (us.fHouseAngle && FAngle(obj))
+      obj = cObj + 5 + ((obj - cuspLo) / 3);
   }
+
+  // Draw the object's glyph.
   if (FOdd(gi.nScale) || !szDrawObject2[obj][0]) {
     if (ChCap(szDrawObject[obj][0]) != 'T') {
       DrawTurtle(szDrawObject[obj], x, y);
@@ -903,7 +1155,7 @@ void DrawObject(int obj, int x, int y)
     }
   } else {
     if (ChCap(szDrawObject2[obj][0]) != 'T') {
-      /* Draw special hi-res object glyphs. */
+      // Draw special hi-res object glyph.
       gi.nScale >>= 1;
       DrawTurtle(szDrawObject2[obj], x, y);
       gi.nScale <<= 1;
@@ -911,24 +1163,23 @@ void DrawObject(int obj, int x, int y)
     }
   }
 
-  /* Normally can just draw the glyph, however some objects don't have      */
-  /* glyphs (like stars) so for these draw their three letter abbreviation. */
+  // Normally can just draw the glyph, however some objects don't have glyphs
+  // (like stars) so for these draw their three letter abbreviation.
 
   if (fNoText)
     return;
   sprintf(szGlyph, "%.3s", szObjDisp[obj]);
 #ifdef CONSTEL
-  /* If doing constellations, give a couple stars more correct */
-  /* astronomical names.                                       */
+  // If doing constellations, give stars more correct astronomical names.
 
   if (gs.fConstel) {
     if (obj == oOri && szObjDisp[oOri] == szObjName[oOri])
-      sprintf(szGlyph, "Aln");    /* Alnilam, normally "Orion" */
+      sprintf(szGlyph, "Aln");    // Alnilam, normally "Orion"
     else if (obj == oAnd && szObjDisp[oAnd] == szObjName[oAnd])
-      sprintf(szGlyph, "M31");    /* M31, normally "Andromeda" */
+      sprintf(szGlyph, "M31");    // M31, normally "Andromeda"
   }
 #endif
-  DrawSz(szGlyph, x, y, dtCent);
+  DrawSz(szGlyph, x, y, dtCent | dtScale2);
 }
 
 
@@ -943,7 +1194,7 @@ void DrawStar(int x, int y, ES *pes)
   KV kv;
   int n;
 
-  /* Determine star color. */
+  // Determine star color.
   if (!gs.fColor)
     kv = rgbbmp[gi.kiCur];
   else if (pes->ki != kDefault)
@@ -956,7 +1207,7 @@ void DrawStar(int x, int y, ES *pes)
     kv = Rgb(n, n, n);
   }
 
-  /* Draw star point. */
+  // Draw star point.
   if (!gi.fFile
 #ifdef WIN
     && wi.hdcPrint == hdcNil
@@ -981,7 +1232,7 @@ void DrawStar(int x, int y, ES *pes)
   else
     DrawSpot(x, y);
 
-  /* Draw star's name label. */
+  // Draw star's name label.
 #ifdef WINANY
 LAfter:
 #endif
@@ -996,35 +1247,61 @@ void DrawStar(int x, int y, ES *pes)
 #endif
 
 
+#ifdef VECTOR
+//                                          C_OSTSisssqbssnbbtqPC
+CONST char szAspectFontAstro[cAspect2+1] = "!\"#$'&%()+*         ";
+CONST char szAspectFontEnigma[cAspect2+1] =
+// COSTSisssq___b___ss___n___b___b___tqPC
+  "BCEDFHGIJK\316\325N\334\321\332\333|OP";
+#endif
+#ifdef WINANY
+CONST WCHAR wzAspectFontUnicode[cAspect2] = {
+  0x260c, 0x260d, 0x25a1, 0x25b3, 0x04ff, 0, 0, 0, 0,
+  'Q', 0x00b1, 0, 0, 0, 0, 0, 0, 0};
+#endif
+
 /* Draw the glyph of an aspect at particular coordinates on the screen. */
 /* Again we either use Astrolog's turtle vector or a system Astro font. */
 
 void DrawAspect(int asp, int x, int y)
 {
+#ifdef WINANY
+  int nFont = gs.nFont%10;
+#endif
+
   if (us.fParallel && asp <= aOpp)
     asp += cAspect;
 #ifdef WINANY
-  if (!gi.fFile && gs.fFont == 1 && szAspectFont[asp-1] != ' ') {
-    WinDrawGlyph(szAspectFont[asp-1], x, y, fTrue);
-    return;
+  if (!gi.fFile) {
+    if (nFont == 2 && szAspectFontAstro[asp-1] != ' ') {
+      WinDrawGlyph(szAspectFontAstro[asp-1], x, y, 1);
+      return;
+    } else if (nFont == 3 && szAspectFontEnigma[asp-1] != ' ') {
+      WinDrawGlyph(szAspectFontEnigma[asp-1], x, y-gi.nScale, 2);
+      return;
+    } else if (nFont == 4 && wzAspectFontUnicode[asp-1] != 0) {
+      WinDrawGlyphW(wzAspectFontUnicode[asp-1], x, y, 100);
+      return;
+    }
   }
 #endif
 #ifdef PS
-  if (gs.ft == ftPS && gs.fFont == 1 && szAspectFont[asp-1] != ' ') {
+  if (gs.ft == ftPS && gs.nFont == 1 && szAspectFontAstro[asp-1] != ' ') {
     PsFont(2);
     fprintf(gi.file, "%d %d(%s%c)center\n", x, y,
-      asp == aSSq || asp == aSes ? "\\" : "", szAspectFont[asp-1]);
+      asp == aSSq || asp == aSes ? "\\" : "", szAspectFontAstro[asp-1]);
     return;
   }
 #endif
 #ifdef META
-  if (gs.ft == ftWmf && gs.fFont == 1 && szAspectFont[asp-1] != ' ') {
+  if (gs.ft == ftWmf && gs.nFont/10%10 == 2 &&
+    szAspectFontAstro[asp-1] != ' ') {
     gi.nFontDes = 4;
     gi.kiTextDes = gi.kiCur;
     gi.nAlignDes = 0x6 | 0x8 /* Center | Bottom */;
     MetaSelect();
     MetaTextOut(x, y+5*gi.nScale, 1);
-    MetaWord(WFromBB(szAspectFont[asp-1], 0));
+    MetaWord(WFromBB(szAspectFontAstro[asp-1], 0));
     return;
   }
 #endif
@@ -1032,7 +1309,7 @@ void DrawAspect(int asp, int x, int y)
     DrawTurtle(szDrawAspect[asp], x, y);
   else {
     gi.nScale >>= 1;
-    DrawTurtle(szDrawAspect2[asp], x, y);  /* Special hi-res aspect glyphs. */
+    DrawTurtle(szDrawAspect2[asp], x, y);  // Special hi-res aspect glyphs.
     gi.nScale <<= 1;
   }
 }
@@ -1074,31 +1351,31 @@ void DrawTurtle(CONST char *sz, int x0, int y0)
   while (chCmd = ChCap(*sz)) {
     sz++;
 
-    /* 'B' prefixing a command means just move the cursor, and don't draw. */
+    // 'B' prefixing a command means just move the cursor, and don't draw.
 
     if (fBlank = (chCmd == 'B')) {
       chCmd = ChCap(*sz);
       sz++;
     }
 
-    /* 'N' prefixing a command means don't update cursor when done drawing. */
+    // 'N' prefixing a command means don't update cursor when done drawing.
 
     if (fNoupdate = (chCmd == 'N')) {
       chCmd = ChCap(*sz);
       sz++;
     }
 
-    /* Here we process the eight directional commands. */
+    // Process the eight directional commands.
 
     switch (chCmd) {
-    case 'U': deltax =  0; deltay = -1; break;      /* Up    */
-    case 'D': deltax =  0; deltay =  1; break;      /* Down  */
-    case 'L': deltax = -1; deltay =  0; break;      /* Left  */
-    case 'R': deltax =  1; deltay =  0; break;      /* Right */
-    case 'E': deltax =  1; deltay = -1; break;      /* NorthEast */
-    case 'F': deltax =  1; deltay =  1; break;      /* SouthEast */
-    case 'G': deltax = -1; deltay =  1; break;      /* SouthWest */
-    case 'H': deltax = -1; deltay = -1; break;      /* NorthWest */
+    case 'U': deltax =  0; deltay = -1; break;      // Up
+    case 'D': deltax =  0; deltay =  1; break;      // Down
+    case 'L': deltax = -1; deltay =  0; break;      // Left
+    case 'R': deltax =  1; deltay =  0; break;      // Right
+    case 'E': deltax =  1; deltay = -1; break;      // NorthEast
+    case 'F': deltax =  1; deltay =  1; break;      // SouthEast
+    case 'G': deltax = -1; deltay =  1; break;      // SouthWest
+    case 'H': deltax = -1; deltay = -1; break;      // NorthWest
     default:
       deltax = deltay = 0;
       sprintf(szErr, "Bad draw turtle action character: '%c'", chCmd);
@@ -1106,7 +1383,7 @@ void DrawTurtle(CONST char *sz, int x0, int y0)
     }
     x = gi.xTurtle;
     y = gi.yTurtle;
-    i = NFromPch(&sz)*gi.nScale;    /* Figure out how far to draw. */
+    i = NFromPch(&sz)*gi.nScale;    // Figure out how far to draw.
     if (fBlank) {
       gi.xTurtle += deltax*i;
       gi.yTurtle += deltay*i;
@@ -1121,6 +1398,72 @@ void DrawTurtle(CONST char *sz, int x0, int y0)
     }
   }
 }
+
+
+#ifdef ATLAS
+// Return the color to use for displaying an atlas city.
+
+int KiCity(int iae)
+{
+  real zon;
+  KI ki = kOrangeB;
+  int i;
+  CI ci;
+#ifdef WIN
+  flag fSav;
+#endif
+
+  if (!FEnsureAtlas())
+    return fFalse;
+
+  // Initialize array of offsets for each time zone area, at chart's time.
+  if (iae < 0) {
+    if (gs.nLabelCity == 4 && FEnsureTimezoneChanges()) {
+      if (is.rgzonCol == NULL) {
+        is.rgzonCol = RgAllocate(iznMax, real, "timezone color");
+        if (is.rgzonCol == NULL)
+          return -1;
+      }
+      ci = ciMain;
+#ifdef WIN
+      fSav = wi.fNoPopup; wi.fNoPopup = fTrue;
+#endif
+      for (i = 0; i < iznMax; i++) {
+        DisplayTimezoneChanges(i, 0, &ci);
+        is.rgzonCol[i] = ci.zon - ci.dst;
+      }
+#ifdef WIN
+      wi.fNoPopup = fSav;
+#endif
+    }
+    return ki;
+  }
+
+  // Determine color of this city.
+  if (gs.nLabelCity <= 2) {
+    i = is.rgae[iae].icn;
+    if (gs.nLabelCity == 2 && (i == icnUS || i == icnCA))
+      ki = kRainbowB[is.rgae[iae].istate % 7 + 1];
+    else
+      ki = kRainbowB[i == icnUS ? 6 : (i == icnFR ? 5 : i % 7 + 1)];
+  } else if (gs.nLabelCity <= 4 && FEnsureTimezoneChanges()) {
+    i = is.rgae[iae].izn;
+    if (gs.nLabelCity == 4 && is.rgzonCol != NULL)
+      zon = is.rgzonCol[i];
+    else
+      zon = ZondefFromIzn(i);
+    if (zon == zonLMT)
+      ki = kDkGrayB;
+    else if (zon == RFloor(zon)) {
+      i = (int)(zon + rDegMax) % 6;
+      ki = kRainbowB[i + (i > 0) + 1];
+    } else
+      ki = kMagentaB;
+  } else
+    ki = kRainbowB[iae % 7 + 1];
+  return ki;
+}
+#endif
 #endif /* GRAPH */
 
 /* xgeneral.cpp */
diff --git a/xscreen.cpp b/xscreen.cpp
index 6aa3bcd..1a28fec 100644
--- a/xscreen.cpp
+++ b/xscreen.cpp
@@ -1,5 +1,5 @@
 /*
-** Astrolog (Version 7.00) File: xscreen.cpp
+** Astrolog (Version 7.10) File: xscreen.cpp
 **
 ** IMPORTANT NOTICE: Astrolog and all chart display routines and anything
 ** not enumerated below used in this program are Copyright (C) 1991-2020 by
@@ -48,7 +48,7 @@
 ** Initial programming 8/28-30/1991.
 ** X Window graphics initially programmed 10/23-29/1991.
 ** PostScript graphics initially programmed 11/29-30/1992.
-** Last code change made 6/4/2020.
+** Last code change made 9/30/2020.
 */
 
 #include "astrolog.h"
@@ -62,33 +62,33 @@
 */
 
 #ifdef X11
-/* This information used to define Astrolog's X icon (ringed planet with */
-/* moons) is similar to the output format used by the bitmap program.    */
-/* You could extract this section and run xsetroot -bitmap on it.        */
+// This information used to define Astrolog's X icon (ringed planet with
+// moons) is similar to the output format used by the bitmap program. You
+// could extract this section and run xsetroot -bitmap on it.
 
 #define icon_width 48
 #define icon_height 48
 CONST uchar icon_bits[] = {
- 0x0e,0x00,0x00,0x00,0x10,0x00,0x7f,0x00,0x00,0x00,0x00,0x00,0xff,0x01,0x00,
- 0x02,0x00,0x00,0xff,0x43,0x00,0x00,0x00,0x00,0xfe,0x0f,0x00,0x00,0x02,0x00,
- 0x9e,0x1f,0x00,0x00,0x00,0x10,0x1e,0x7c,0xc0,0x03,0x00,0x38,0x3c,0xf8,0x7e,
- 0x7d,0x00,0x10,0x3c,0xe0,0xab,0xaa,0x00,0x00,0x38,0xc0,0x5f,0x05,0x03,0x00,
- 0x70,0x60,0xb5,0x12,0x04,0x00,0xf0,0xf8,0x5f,0x85,0x18,0x0e,0xe0,0xf8,0xaa,
- 0x2a,0x90,0x33,0xc0,0xfd,0x5f,0x05,0xe0,0x47,0xc0,0xbf,0xb5,0x52,0xc0,0x4b,
- 0x80,0xff,0x5f,0x05,0xc0,0x85,0x00,0xff,0xaa,0x2a,0x80,0x83,0x80,0xff,0x5f,
- 0x05,0x00,0x87,0x80,0x7f,0xb5,0x92,0x00,0x4b,0x80,0xff,0x5f,0x05,0x00,0x45,
- 0x80,0xff,0xaa,0x2a,0x00,0x33,0x80,0xff,0x5f,0x05,0x00,0x0f,0xc0,0xff,0xb5,
- 0x52,0x00,0x02,0xc0,0xff,0x5f,0x05,0x00,0x02,0xc1,0xff,0xab,0x2a,0x00,0x02,
- 0xe0,0xff,0x5f,0x05,0x00,0x02,0x38,0x5f,0xbf,0x92,0x00,0x01,0x58,0xfe,0x5f,
- 0x05,0x00,0x81,0xbc,0xfc,0xbe,0x2a,0x00,0x01,0x7c,0xfc,0x7f,0x05,0x00,0x01,
- 0x3c,0xbc,0xf5,0x52,0x00,0x01,0x58,0xfe,0xff,0x05,0x80,0x00,0xb8,0xff,0xea,
- 0x2b,0xc0,0x01,0xe0,0xfe,0xdf,0x0f,0xc0,0x23,0x00,0x5c,0xb5,0x9f,0xa0,0x03,
- 0x00,0xf8,0x5f,0x3d,0x10,0x07,0x00,0xf8,0xaa,0xfa,0x18,0x0f,0x08,0xe0,0x5f,
- 0xf5,0x05,0x0e,0x1c,0xc0,0xb5,0xea,0x03,0x1c,0x08,0x00,0x5f,0x85,0x07,0x3c,
- 0x00,0x00,0xbe,0x7e,0x1f,0x3c,0x00,0x10,0xc0,0x03,0x3e,0x78,0x00,0x00,0x00,
- 0x00,0xf8,0x79,0x00,0x00,0x00,0x00,0xf0,0x7f,0x00,0x00,0x20,0x00,0xc0,0xff,
- 0x00,0x00,0x00,0x00,0x82,0xff,0x00,0x00,0x00,0x00,0x00,0xfe,0x40,0x00,0x00,
- 0x00,0x00,0x70};
+  0x0e,0x00,0x00,0x00,0x10,0x00,0x7f,0x00,0x00,0x00,0x00,0x00,0xff,0x01,0x00,
+  0x02,0x00,0x00,0xff,0x43,0x00,0x00,0x00,0x00,0xfe,0x0f,0x00,0x00,0x02,0x00,
+  0x9e,0x1f,0x00,0x00,0x00,0x10,0x1e,0x7c,0xc0,0x03,0x00,0x38,0x3c,0xf8,0x7e,
+  0x7d,0x00,0x10,0x3c,0xe0,0xab,0xaa,0x00,0x00,0x38,0xc0,0x5f,0x05,0x03,0x00,
+  0x70,0x60,0xb5,0x12,0x04,0x00,0xf0,0xf8,0x5f,0x85,0x18,0x0e,0xe0,0xf8,0xaa,
+  0x2a,0x90,0x33,0xc0,0xfd,0x5f,0x05,0xe0,0x47,0xc0,0xbf,0xb5,0x52,0xc0,0x4b,
+  0x80,0xff,0x5f,0x05,0xc0,0x85,0x00,0xff,0xaa,0x2a,0x80,0x83,0x80,0xff,0x5f,
+  0x05,0x00,0x87,0x80,0x7f,0xb5,0x92,0x00,0x4b,0x80,0xff,0x5f,0x05,0x00,0x45,
+  0x80,0xff,0xaa,0x2a,0x00,0x33,0x80,0xff,0x5f,0x05,0x00,0x0f,0xc0,0xff,0xb5,
+  0x52,0x00,0x02,0xc0,0xff,0x5f,0x05,0x00,0x02,0xc1,0xff,0xab,0x2a,0x00,0x02,
+  0xe0,0xff,0x5f,0x05,0x00,0x02,0x38,0x5f,0xbf,0x92,0x00,0x01,0x58,0xfe,0x5f,
+  0x05,0x00,0x81,0xbc,0xfc,0xbe,0x2a,0x00,0x01,0x7c,0xfc,0x7f,0x05,0x00,0x01,
+  0x3c,0xbc,0xf5,0x52,0x00,0x01,0x58,0xfe,0xff,0x05,0x80,0x00,0xb8,0xff,0xea,
+  0x2b,0xc0,0x01,0xe0,0xfe,0xdf,0x0f,0xc0,0x23,0x00,0x5c,0xb5,0x9f,0xa0,0x03,
+  0x00,0xf8,0x5f,0x3d,0x10,0x07,0x00,0xf8,0xaa,0xfa,0x18,0x0f,0x08,0xe0,0x5f,
+  0xf5,0x05,0x0e,0x1c,0xc0,0xb5,0xea,0x03,0x1c,0x08,0x00,0x5f,0x85,0x07,0x3c,
+  0x00,0x00,0xbe,0x7e,0x1f,0x3c,0x00,0x10,0xc0,0x03,0x3e,0x78,0x00,0x00,0x00,
+  0x00,0xf8,0x79,0x00,0x00,0x00,0x00,0xf0,0x7f,0x00,0x00,0x20,0x00,0xc0,0xff,
+  0x00,0x00,0x00,0x00,0x82,0xff,0x00,0x00,0x00,0x00,0x00,0xfe,0x40,0x00,0x00,
+  0x00,0x00,0x70};
 #endif
 
 
@@ -115,8 +115,8 @@ void InitColorsX()
   if (!gi.fFile) {
     cmap = XDefaultColormap(gi.disp, gi.screen);
 
-    /* Allocate colors from the present X11 colormap. Given strings like */
-    /* "magenta", allocate these colors and determine their values.      */
+    // Allocate colors from the present X11 colormap. Given RGB color strings,
+    // allocate these colors and determine their values.
 
     for (i = 0; i < cColor; i++) {
       kv = rgbbmp[i];
@@ -133,7 +133,7 @@ void InitColorsX()
 #endif
 
 #ifdef WIN
-  /* Don't print on a black background unless user really wants that. */
+  // Don't print on a black background unless user really wants that.
   if (wi.hdcPrint != NULL && us.fSmartSave)
     fInverse = fTrue;
 #endif
@@ -163,21 +163,123 @@ void InitColorsX()
 
 LRESULT API WndProcWCLI(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
 {
+  HDC hdc;
+  HPEN hpen, hpenOld;
+  int x, y;
+
   wi.hwnd = hwnd;
   switch (wMsg) {
 
-  /* The window has been resized. Change the chart size if need be. */
+  // The window has been resized. Change the chart size if need be.
   case WM_SIZE:
     wi.xClient = gs.xWin = LOWORD(lParam);
     wi.yClient = gs.yWin = HIWORD(lParam);
     wi.fDoResize = fTrue;
     break;
 
-  /* All or part of the window needs to be redrawn. Will do so later. */
+  // All or part of the window needs to be redrawn. Will do so later.
   case WM_PAINT:
     wi.fDoRedraw = fTrue;
     break;
 
+  // The mouse has been left clicked or dragged over the window.
+  case WM_LBUTTONDOWN:
+  case WM_MOUSEMOVE:
+    x = WLo(lParam);
+    y = WHi(lParam);
+    if (wMsg == WM_MOUSEMOVE) {
+
+      // Dragging with right mouse down rotates and tilts globes.
+      if ((wParam & MK_RBUTTON) != 0 && us.fGraphics && (fMap ||
+        gi.nMode == gLocal || gi.nMode == gSphere || gi.nMode == gGlobe ||
+        gi.nMode == gPolar || gi.nMode == gTelescope)) {
+        gs.rRot += (real)(x-WLo(wi.lParamRC)) * rDegHalf / (real)gs.xWin *
+          (gi.nMode == gLocal || gi.nMode == gTelescope ? -1 : 1);
+        gs.rTilt += (real)(y-WHi(wi.lParamRC)) * rDegHalf / (real)gs.yWin *
+          (gi.nMode == gGlobe ? -1 : 1);
+        while (gs.rRot >= rDegMax)
+          gs.rRot -= rDegMax;
+        while (gs.rRot < 0.0)
+          gs.rRot += rDegMax;
+        while (gs.rTilt > rDegQuad)
+          gs.rTilt = rDegQuad;
+        while (gs.rTilt < -rDegQuad)
+          gs.rTilt = -rDegQuad;
+        if (gi.nMode == gLocal || gi.nMode == gTelescope)
+          gs.objTrack = -1;
+        wi.lParamRC = lParam;
+        wi.fDoRedraw = fTrue;
+        break;
+      }
+
+      // Treat dragging with left mouse down as a Shift+left click.
+      if ((wParam & MK_LBUTTON) == 0 ||
+        (wParam & MK_SHIFT) || (wParam & MK_CONTROL))
+        break;
+      wParam = MK_SHIFT;
+    }
+
+    // Alt+click on a world map chart means relocate the chart there.
+    if (wMsg == WM_LBUTTONDOWN && GetKeyState(VK_MENU) < 0) {
+      if (fMap && !gs.fConstel && !gs.fMollewide) {
+        Lon = rDegHalf -
+          Mod((real)(x-gi.xOffset) / (real)gs.xWin*rDegMax - gs.rRot);
+        if (Lon < -rDegHalf)
+          Lon = -rDegHalf;
+        else if (Lon > rDegHalf)
+          Lon = rDegHalf;
+        Lat = rDegQuad-(real)(y-gi.yOffset)/(real)gs.yWin*rDegHalf;
+        if (Lat < -rDegQuad)
+          Lat = -rDegQuad;
+        else if (Lat > rDegQuad)
+          Lat = rDegQuad;
+        wi.xMouse = -1;
+        ciCore = ciMain;
+        wi.fDoCast = fTrue;
+      }
+      break;
+    }
+    hdc = GetDC(hwnd);
+    hpen = (HPEN)CreatePen(PS_SOLID, 0, (COLORREF)rgbbmp[wi.kiPen]);
+    hpenOld = (HPEN)SelectObject(hdc, hpen);
+
+    // Ctrl+click means draw a rectangle. Ctrl+Shift+click does ellipse.
+    if (wParam & MK_CONTROL) {
+      SelectObject(hdc, GetStockObject(NULL_BRUSH));
+      if (wParam & MK_SHIFT)
+        Ellipse(hdc, wi.xMouse, wi.yMouse, x, y);
+      else
+        Rectangle(hdc, wi.xMouse, wi.yMouse, x, y);
+
+    // Shift+click means draw a line from the last to current position.
+    } else if (wParam & MK_SHIFT) {
+      if (wi.xMouse >= 0) {
+        MoveTo(hdc, wi.xMouse, wi.yMouse);
+        LineTo(hdc, x, y);
+        if (wMsg == WM_MOUSEMOVE) {
+          wi.xMouse = x; wi.yMouse = y;
+        }
+      }
+
+    // A simple click means set a pixel and remember that location.
+    } else {
+      SetPixel(hdc, x, y, (COLORREF)rgbbmp[wi.kiPen]);
+      wi.xMouse = x; wi.yMouse = y;
+    }
+    SelectObject(hdc, hpenOld);
+    DeleteObject(hpen);
+    ReleaseDC(hwnd, hdc);
+    break;
+
+  // The mouse has been right clicked on the window.
+  case WM_RBUTTONDOWN:
+    if (us.fGraphics) {
+      if (fMap || gi.nMode == gLocal || gi.nMode == gSphere ||
+        gi.nMode == gGlobe || gi.nMode == gPolar || gi.nMode == gTelescope)
+        wi.lParamRC = lParam;
+    }
+    break;
+
   default:
     return DefWindowProc(hwnd, wMsg, wParam, lParam);
   }
@@ -208,12 +310,12 @@ void BeginX()
   hint.flags = PPosition | PSize | PMaxSize | PMinSize;
   gi.depth = DefaultDepth(gi.disp, gi.screen);
   if (gi.depth < 5) {
-    gi.fMono = fTrue;      /* Is this a monochrome display? */
+    gi.fMono = fTrue;      // Is this a monochrome display?
     gs.fColor = fFalse;
   }
   gi.root = RootWindow(gi.disp, gi.screen);
   if (gs.fRoot)
-    gi.wind = gi.root;     /* If -XB in effect, we'll use the root window. */
+    gi.wind = gi.root;     // If -XB in effect, then draw on the root window.
   else
     gi.wind = XCreateSimpleWindow(gi.disp, DefaultRootWindow(gi.disp),
       hint.x, hint.y, hint.width, hint.height, 5, fg, bg);
@@ -231,7 +333,7 @@ void BeginX()
   gi.gc = XCreateGC(gi.disp, gi.wind, 0, 0);
   XSetGraphicsExposures(gi.disp, gi.gc, 0);
   gi.pmgc = XCreateGC(gi.disp, gi.wind, 0, 0);
-  InitColorsX();                                  /* Go set up colors. */
+  InitColorsX();                                  // Go set up colors.
   if (!gs.fRoot)
     XSelectInput(gi.disp, gi.wind, KeyPressMask | StructureNotifyMask |
       ExposureMask | ButtonPressMask | ButtonReleaseMask | ButtonMotionMask);
@@ -345,14 +447,14 @@ void AddTime(CI *pci, int mode, int toadd)
 
   h = (int)RFloor(pci->tim);
   m = RFract(pci->tim)*60.0;
-  if (m < 60.0 && m + 1.0/rLarge >= 60.0)  /* Avoid roundoff error. */
+  if (m < 60.0 && m + 1.0/rLarge >= 60.0)  // Avoid roundoff error.
     m = 60.0;
   if (mode == 1)
-    m += 1.0/60.0*(real)toadd;         /* Add seconds. */
+    m += 1.0/60.0*(real)toadd;             // Add seconds.
   else if (mode == 2)
-    m += (real)toadd;                  /* Add minutes. */
+    m += (real)toadd;                      // Add minutes.
 
-  /* Add hours, either naturally or if minute value overflowed. */
+  // Add hours, either naturally or if minute value overflowed.
 
   if (m >= 60.0 || m < 0.0 || mode == 3) {
     if (m >= 60.0) {
@@ -363,7 +465,7 @@ void AddTime(CI *pci, int mode, int toadd)
     h += toadd;
   }
 
-  /* Add days, either naturally or if hour value overflowed. */
+  // Add days, either naturally or if hour value overflowed.
 
   if (h >= 24 || h < 0 || mode == 4) {
     if (h >= 24) {
@@ -374,7 +476,7 @@ void AddTime(CI *pci, int mode, int toadd)
     pci->day = AddDay(pci->mon, pci->day, pci->yea, toadd);
   }
 
-  /* Add months, either naturally or if day value overflowed. */
+  // Add months, either naturally or if day value overflowed.
 
   d = DayInMonth(pci->mon, pci->yea);
   if (pci->day > d || pci->day < 1 || mode == 5) {
@@ -387,7 +489,7 @@ void AddTime(CI *pci, int mode, int toadd)
     pci->mon += toadd;
   }
 
-  /* Add years, either naturally or if month value overflowed. */
+  // Add years, either naturally or if month value overflowed.
 
   if (pci->mon > 12 || pci->mon < 1 || mode == 6) {
     if (pci->mon > 12) {
@@ -398,12 +500,12 @@ void AddTime(CI *pci, int mode, int toadd)
     pci->yea += toadd;
   }
   if (mode == 7)
-    pci->yea += 10 * toadd;      /* Add decades.   */
+    pci->yea += 10 * toadd;      // Add decades.
   else if (mode == 8)
-    pci->yea += 100 * toadd;     /* Add centuries. */
+    pci->yea += 100 * toadd;     // Add centuries.
   else if (mode == 9)
-    pci->yea += 1000 * toadd;    /* Add millenia.  */
-  pci->tim = (real)h + m/60.0;   /* Recalibrate hour time. */
+    pci->yea += 1000 * toadd;    // Add millenia.
+  pci->tim = (real)h + m/60.0;   // Recalibrate hour time.
 }
 
 
@@ -417,8 +519,8 @@ void Animate(int mode, int toadd)
     ((gi.nMode == gWorldMap || gi.nMode == gGlobe || gi.nMode == gPolar) &&
     (gs.fAlt || gs.fAnimMap))) {
     gs.rRot += (real)toadd;
-    if (gs.rRot >= rDegMax)     /* For animating map displays, add */
-      gs.rRot -= rDegMax;       /* in appropriate degree value.    */
+    if (gs.rRot >= rDegMax)     // For animating map displays, add in
+      gs.rRot -= rDegMax;       // appropriate degree value.
     else if (gs.rRot < 0.0)
       gs.rRot += rDegMax;
     return;
@@ -427,14 +529,14 @@ void Animate(int mode, int toadd)
   mode = NAbs(mode);
   if (mode >= 10) {
 #ifdef TIME
-    /* For the continuous chart update to present moment */
-    /* animation mode, go get whatever time it is now.   */
+    // For the continuous chart update to present moment animation mode, go
+    // get whatever time it is now.
     FInputData(szNowCore);
 #else
     mode = 1;
     goto LNotNow;
 #endif
-  } else {  /* Otherwise add on appropriate time vector to chart info. */
+  } else {    // Otherwise add on appropriate time vector to chart info.
 #ifndef TIME
 LNotNow:
 #endif
@@ -459,7 +561,7 @@ void Animate(int mode, int toadd)
   if (us.nRel)
     CastRelation();
   else
-    CastChart(fTrue);
+    CastChart(0);
 }
 
 
@@ -508,13 +610,13 @@ void CommandLineX()
 
 void SquareX(int *x, int *y, flag fForce)
 {
-  if (!fForce && !fSquare)    /* Unless we want to force a square, realize */
-    return;                   /* that some charts look better rectangular. */
+  if (!fForce && !fSquare)    // Unless really want to force a square, realize
+    return;                   // that some charts look better rectangular.
   if (*x > *y)
     *x = *y;
   else
     *y = *x;
-  if (fSidebar)      /* Take into account chart's sidebar, if any. */
+  if (fSidebar)      // Take into account chart's sidebar, if any.
     *x += xSideT;
 }
 
@@ -607,10 +709,14 @@ void InteractX()
       wi.fDoRedraw = fFalse;
       fRedraw = fTrue;
     }
+    if (wi.fDoCast) {
+      wi.fDoCast = fFalse;
+      fCast = fTrue;
+    }
 #endif
 
-    /* Some chart windows, like the world maps and aspect grids, should */
-    /* always be a certain size, so correct if a resize was attempted.  */
+    // Some chart windows, like the world maps and aspect grids, should always
+    // be a certain size, so correct if a resize was attempted.
 
     if (fMap) {
       length = nDegMax*gi.nScale;
@@ -634,7 +740,7 @@ void InteractX()
         fResize = fTrue;
       }
 
-    /* Make sure the window isn't too large or too small. */
+    // Make sure the window isn't too large or too small.
 
     } else {
       if (gs.fKeepSquare && fSquare) {
@@ -665,12 +771,12 @@ void InteractX()
       }
     }
 
-    /* If in animation mode, ensure we are in the flicker free resolution. */
+    // Negative animation jump rate means first time with this rate.
 
     if (gs.nAnim < 0)
       neg(gs.nAnim);
 
-    /* Physically resize window if we've changed the size parameters. */
+    // Physically resize window if we've changed the size parameters.
 
     if (fResize) {
       fResize = fFalse;
@@ -688,7 +794,7 @@ void InteractX()
       fRedraw = fTrue;
     }
 
-    /* Recast chart if the chart information has changed any. */
+    // Recast chart if the chart information has changed any.
 
     if (fCast) {
       fCast = fFalse;
@@ -696,24 +802,22 @@ void InteractX()
       if (us.nRel)
         CastRelation();
       else
-        CastChart(fTrue);
+        CastChart(0);
       fRedraw = fTrue;
     }
     if (gs.nAnim && !fPause)
       fRedraw = fTrue;
 
-    /* Update the screen if anything has changed since last time around. */
+    // Update the screen if anything has changed since last time around.
 
     if (fRedraw && (!fPause || gs.nAnim)) {
       fRedraw = fFalse;
 
-      /* If we're in animation mode, change the chart info appropriately. */
-
+      // If we're in animation mode, change the chart info appropriately.
       if (gs.nAnim && !fPause)
         Animate(gs.nAnim, dir);
 
-      /* Clear the screen and set up a buffer to draw in. */
-
+      // Clear the screen and set up a buffer to draw in.
 #ifdef X11
       if (!gs.fJetTrail)
         XFillRectangle(gi.disp, gi.pmap, gi.pmgc, 0, 0, gs.xWin, gs.yWin);
@@ -747,8 +851,7 @@ void InteractX()
       else
         DrawChartX();
 
-      /* Make the drawn chart visible in the current screen buffer. */
-
+      // Make the drawn chart visible in the current screen buffer.
 #ifdef X11
       XSync(gi.disp, 0);
       XCopyArea(gi.disp, gi.pmap, gi.wind, gi.gc,
@@ -767,15 +870,14 @@ void InteractX()
 #endif
     }  /* if */
 
-    /* Now process what's on the event queue, i.e. any keys pressed, etc. */
+    // Now process what's on the event queue, i.e. any keys pressed, etc.
 
 #ifdef X11
     if (XEventsQueued(gi.disp, QueuedAfterFlush /*QueuedAfterReading*/) ||
       !gs.nAnim || fPause) {
       XNextEvent(gi.disp, &xevent);
 
-      /* Restore what's on window if a part of it gets uncovered. */
-
+      // Restore what's on window if a part of it gets uncovered.
       if (xevent.type == Expose && xevent.xexpose.count == 0) {
         XSync(gi.disp, 0);
         XCopyArea(gi.disp, gi.pmap, gi.wind, gi.gc,
@@ -783,8 +885,7 @@ void InteractX()
       }
       switch (xevent.type) {
 
-      /* Check for a manual resize of window by user. */
-
+      // Check for a manual resize of window by user.
       case ConfigureNotify:
         gs.xWin = xevent.xconfigure.width;
         gs.yWin = xevent.xconfigure.height;
@@ -796,8 +897,7 @@ void InteractX()
         XRefreshKeyboardMapping((XMappingEvent *)&xevent);
         break;
 
-      /* Process any mouse buttons the user pressed. */
-
+      // Process any mouse buttons the user pressed.
       case ButtonPress:
         mousex = xevent.xbutton.x; mousey = xevent.xbutton.y;
         if (xevent.xbutton.button == Button1) {
@@ -818,8 +918,7 @@ void InteractX()
           fBreak = fTrue;
         break;
 
-      /* Check for user dragging any of the mouse buttons across window. */
-
+      // Check for user dragging any of the mouse buttons across window.
       case MotionNotify:
         DrawColor(coldrw);
         DrawLine(mousex, mousey, xevent.xbutton.x, xevent.xbutton.y);
@@ -829,8 +928,7 @@ void InteractX()
         mousex = xevent.xbutton.x; mousey = xevent.xbutton.y;
         break;
 
-      /* Process any keys user pressed in window. */
-
+      // Process any keys user pressed in window.
       case KeyPress:
         length = XLookupString((XKeyEvent *)&xevent, xkey, 10, &keysym, 0);
         if (length == 1) {
@@ -867,7 +965,7 @@ void InteractX()
           }
           break;
         case updateEvt:
-          /*fRedraw = fTrue;*/
+          //fRedraw = fTrue;
           break;
         case keyDown:
         case autoKey:
@@ -887,7 +985,8 @@ void InteractX()
           case WM_PAINT:
             fRedraw = fTrue;
             break;
-          default: 
+          default:
+            wi.kiPen = coldrw;
             DispatchMessage(&msg);
           }
         } else {
@@ -1066,11 +1165,11 @@ void InteractX()
             fCast = fTrue;
             break;
 #endif
-          case 'N':                     /* The continuous update animation. */
+          case 'N':                        // The continuous update animation.
             gs.nAnim = gs.nAnim ? 0 : -10;
             break;
 
-          /* These are the nine different "add time to chart" animations. */
+          // These are the nine different "add time to chart" animations.
           case '!': gs.nAnim = -1; break;
           case '@': gs.nAnim = -2; break;
           case '#': gs.nAnim = -3; break;
@@ -1081,7 +1180,7 @@ void InteractX()
           case '*': gs.nAnim = -8; break;
           case '(': gs.nAnim = -9; break;
 
-          /* Should we go switch to a new chart type? */
+          // Should we go switch to a new chart type?
           case 'V': gi.nMode = gWheel;      fRedraw = fTrue; break;
           case 'A': gi.nMode = gGrid;       fRedraw = fTrue; break;
           case 'Z': gi.nMode = gHorizon;    fRedraw = fTrue; break;
@@ -1095,8 +1194,9 @@ void InteractX()
           case 'W': gi.nMode = gWorldMap;   fRedraw = fTrue; break;
           case 'G': gi.nMode = gGlobe;      fRedraw = fTrue; break;
           case 'P': gi.nMode = gPolar;      fRedraw = fTrue; break;
+          case 'T': gi.nMode = gTelescope;  fRedraw = fTrue; break;
 #ifdef BIORHYTHM
-          case 'Y':            /* Should we switch to biorhythm chart? */
+          case 'Y':                 // Should we switch to biorhythm chart?
             us.nRel = rcBiorhythm;
             gi.nMode = gBiorhythm;
             fCast = fTrue;
@@ -1165,7 +1265,7 @@ void InteractX()
             break;
           default:
             if (key > '0' && key <= '9') {
-              /* Process numbers 1..9 signifying animation rate. */
+              // Process numbers 1-9 signifying animation rate.
               dir = (dir > 0 ? 1 : -1)*(key-'0');
               break;
             } else if (FBetween(key, 201, 248)) {
@@ -1177,7 +1277,7 @@ void InteractX()
               is.fSzInteract = fFalse;
               break;
             }
-            putchar(chBell);    /* Any key not bound will sound a beep. */
+            putchar(chBell);    // Any key not bound will sound a beep.
           }  /* switch */
         }  /* if */
 #ifdef X11
@@ -1267,10 +1367,8 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
   case 'M':
     if (FBetween(ch1, '1', '4')) {
       i = (ch1 - '0') + (ch2 == '0');
-      if (argc <= i) {
-        ErrorArgc("XM");
+      if (FErrorArgc("XM", argc, i))
         return tcError;
-      }
       for (j = 1; j <= i; j++)
         szWheelX[(ch2 == '0' && j >= i) ? 0 : j] = SzPersist(argv[j]);
       darg += i;
@@ -1281,7 +1379,7 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
       return tcError;
     }
     if (ch1 == '0')
-      SwitchF(gs.fFont);
+      gs.nFont = FSwitchF(gs.nFont > 0) * gi.nFontPrev;
     gs.ft = FSwitchF2(gs.ft == ftWmf) * ftWmf;
     break;
 #endif
@@ -1301,10 +1399,8 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
       ErrorArgv("Xo");
       return tcError;
     }
-    if (argc <= 1) {
-      ErrorArgc("Xo");
+    if (FErrorArgc("Xo", argc, 1))
       return tcError;
-    }
     if (gs.ft == ftNone)
       gs.ft = ftBmp;
     gi.szFileOut = SzPersist(argv[1]);
@@ -1330,57 +1426,43 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
     break;
 
   case 'w':
-    if (argc <= 1) {
-      ErrorArgc("Xw");
+    if (FErrorArgc("Xw", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (argc > 2 && ((j = atoi(argv[2])) || argv[2][0] == '0')) {
+    i = NFromSz(argv[1]);
+    if (argc > 2 && ((j = NFromSz(argv[2])) || argv[2][0] == '0')) {
       argc--; argv++;
       darg++;
     } else
       j = i;
-    if (!FValidGraphx(i)) {
-      ErrorValN("Xw", i);
+    if (FErrorValN("Xw", !FValidGraphx(i), i, 1))
       return tcError;
-    }
-    if (!FValidGraphy(j)) {
-      ErrorValN("Xw", j);
+    if (FErrorValN("Xw", !FValidGraphy(j), j, 2))
       return tcError;
-    }
     gs.xWin = i; gs.yWin = j;
     darg++;
     break;
 
   case 's':
-    if (argc <= 1) {
-      ErrorArgc("Xs");
+    if (FErrorArgc("Xs", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
+    i = NFromSz(argv[1]);
     if (i < 100)
       i *= 100;
-    if (!FValidScale(i)) {
-      ErrorValN("Xs", i);
+    if (FErrorValN("Xs", !FValidScale(i), i, 0))
       return tcError;
-    }
     gs.nScale = i;
-    gi.nScale = gs.nScale/100;   /* So -XM2 works */
+    gi.nScale = gs.nScale/100;   // Refresh so -Xs within -XM2 works
     darg++;
     break;
 
   case 'S':
-    if (argc <= 1) {
-      ErrorArgc("XS");
+    if (FErrorArgc("XS", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
+    i = NFromSz(argv[1]);
     if (i < 100)
       i *= 100;
-    if (!FValidScale(i)) {
-      ErrorValN("XS", i);
+    if (FErrorValN("XS", !FValidScale(i), i, 0))
       return tcError;
-    }
     gs.nScaleText = i;
     darg++;
     break;
@@ -1424,21 +1506,19 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
     break;
 
   case 'E':
-    if (argc <= 2) {
-      ErrorArgc("XE");
+    if (FErrorArgc("XE", argc, 2))
       return tcError;
-    }
     if (FBetween(ch1, '0', '3'))
       gs.nAstLabel = (ch1 - '0');
-    gs.nAstLo = atoi(argv[1]);
-    gs.nAstHi = atoi(argv[2]);
+    gs.nAstLo = NFromSz(argv[1]);
+    gs.nAstHi = NFromSz(argv[2]);
     darg += 2;
     break;
 
 #ifdef ATLAS
   case 'L':
     SwitchF(gs.fLabelCity);
-    if (FBetween(ch1, '1', '4'))
+    if (FBetween(ch1, '1', '5'))
       gs.nLabelCity = (ch1 - '0');
     break;
 #endif
@@ -1452,15 +1532,11 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
       gs.objLeft = 0;
       break;
     }
-    if (argc <= 1) {
-      ErrorArgc("X1");
+    if (FErrorArgc("X1", argc, 1))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("X1", i);
+    if (FErrorValN("X1", !FItem(i), i, 0))
       return tcError;
-    }
     gs.objLeft = i+1;
     darg++;
     break;
@@ -1470,15 +1546,11 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
       gs.objLeft = 0;
       break;
     }
-    if (argc <= 1) {
-      ErrorArgc("X2");
+    if (FErrorArgc("X2", argc, 1))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("X2", i);
+    if (FErrorValN("X2", !FItem(i), i, 0))
       return tcError;
-    }
     gs.objLeft = -i-1;
     darg++;
     break;
@@ -1489,86 +1561,72 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
       ErrorArgv("Xd");
       return tcError;
     }
-    if (argc <= 1) {
-      ErrorArgc("Xd");
+    if (FErrorArgc("Xd", argc, 1))
       return tcError;
-    }
     gs.szDisplay = SzPersist(argv[1]);
     darg++;
     break;
 #endif
 
   case 'X':
-    if (argc > 1 && ((rT = atof(argv[1])) || argv[1][0] == '0')) {
+    if (argc > 1 && ((rT = RFromSz(argv[1])) || argv[1][0] == '0')) {
       darg++;
-      if (!FValidRotation(rT)) {
-        ErrorValR("XX", rT);
+      if (FErrorValR("XX", !FValidRotation(rT), rT, 1))
         return tcError;
-      }
       gs.rRot = rT;
-      if (argc > 2 && ((rT = atof(argv[2])) || argv[2][0] == '0')) {
+      if (argc > 2 && ((rT = RFromSz(argv[2])) || argv[2][0] == '0')) {
         darg++;
-        if (!FValidTilt(rT)) {
-          ErrorValR("XX", rT);
+        if (FErrorValR("XX", !FValidTilt(rT), rT, 2))
           return tcError;
-        }
         gs.rTilt = rT;
       }
     }
-    gi.nMode = gSphere;
+    gi.nMode = FSwitchF2(gi.nMode == gSphere) * gSphere;
     if (ch1 == '0')
       SwitchF(gs.fSouth);
     break;
 
   case 'W':
-    if (argc > 1 && ((rT = atof(argv[1])) || argv[1][0] == '0')) {
+    if (argc > 1 && ((rT = RFromSz(argv[1])) || argv[1][0] == '0')) {
       darg++;
-      if (!FValidRotation(rT)) {
-        ErrorValR("XW", rT);
+      if (FErrorValR("XW", !FValidRotation(rT), rT, 0))
         return tcError;
-      }
       gs.rRot = rT;
     }
-    gi.nMode = gWorldMap;
+    gi.nMode = FSwitchF2(gi.nMode == gWorldMap) * gWorldMap;
     if (ch1 == '0')
       SwitchF(gs.fMollewide);
     is.fHaveInfo |= gs.fAlt;
     break;
 
   case 'G':
-    if (argc > 1 && ((rT = atof(argv[1])) || argv[1][0] == '0')) {
+    if (argc > 1 && ((rT = RFromSz(argv[1])) || argv[1][0] == '0')) {
       darg++;
-      if (!FValidRotation(rT)) {
-        ErrorValR("XG", rT);
+      if (FErrorValR("XG", !FValidRotation(rT), rT, 1))
         return tcError;
-      }
       gs.rRot = rT;
-      if (argc > 2 && ((rT = atof(argv[2])) || argv[2][0] == '0')) {
+      if (argc > 2 && ((rT = RFromSz(argv[2])) || argv[2][0] == '0')) {
         darg++;
-        if (!FValidTilt(rT)) {
-          ErrorValR("XG", rT);
+        if (FErrorValR("XG", !FValidTilt(rT), rT, 2))
           return tcError;
-        }
         gs.rTilt = rT;
       }
     }
-    gi.nMode = gGlobe;
+    gi.nMode = FSwitchF2(gi.nMode == gGlobe) * gGlobe;
     if (ch1 == '0')
       SwitchF(gs.fSouth);
     is.fHaveInfo |= gs.fAlt;
     break;
 
   case 'P':
-    if (argc > 1 && ((rT = atoi(argv[1])) || argv[1][0] == '0')) {
+    if (argc > 1 && ((rT = RFromSz(argv[1])) || argv[1][0] == '0')) {
       darg++;
-      if (!FValidRotation(rT)) {
-        ErrorValR("XP", rT);
+      if (FErrorValR("XP", !FValidRotation(rT), rT, 0))
         return tcError;
-      }
     } else
       rT = 0.0;
     gs.rRot = rT;
-    gi.nMode = gPolar;
+    gi.nMode = FSwitchF2(gi.nMode == gPolar) * gPolar;
     if (ch1 == '0')
       SwitchF(gs.fSouth);
     else if (ch1 == 'v')
@@ -1576,6 +1634,18 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
     is.fHaveInfo |= gs.fAlt;
     break;
 
+  case 'Z':
+    if (argc > 1 && (i = NParseSz(argv[1], pmObject)) != -1) {
+      darg++;
+      if (!FValidObj(i))
+        i = -1;
+      gs.objTrack = i;
+      if (fAnd)
+        break;
+    }
+    gi.nMode = FSwitchF2(gi.nMode == gTelescope) * gTelescope;
+    break;
+
 #ifdef CONSTEL
   case 'F':
     if (!fMap && gi.nMode != gGlobe && gi.nMode != gPolar)
@@ -1587,14 +1657,12 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
 
 #ifdef ISG
   case 'n':
-    if (argc > 1 && (i = atoi(argv[1])))
+    if (argc > 1 && (i = NFromSz(argv[1])))
       darg++;
     else
       i = 10;
-    if (i < 1 || i > 10) {
-      ErrorValN("Xn", i);
+    if (FErrorValN("Xn", !FBetween(i, 1, 10), i, 0))
       return tcError;
-    }
     gs.nAnim = fAnd ? -i : i;
     break;
 
@@ -1607,7 +1675,7 @@ int NProcessSwitchesX(int argc, char **argv, int pos,
     ErrorSwitch(argv[0]);
     return tcError;
   }
-  /* 'darg' contains the value to be added to argc when we return. */
+  // 'darg' contains the value to be added to argc after returning.
   return darg;
 }
 
@@ -1625,40 +1693,30 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
   ch1 = argv[0][pos+1];
   switch (argv[0][pos]) {
 
-  /* No longer implemented, but still skip 2 parameters and do nothing for */
-  /* compatibility with old astrolog.as files.                             */
+  // No longer implemented, but still skip 2 parameters and do nothing for
+  // compatibility with old astrolog.as files.
   case chNull:
-    if (argc <= 2) {
-      ErrorArgc("YX");
+    if (FErrorArgc("YX", argc, 2))
       return tcError;
-    }
     darg += 2;
     break;
 
   case 'G':
-    if (argc <= 1) {
-      ErrorArgc("YXG");
+    if (FErrorArgc("YXG", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidGlyphs(i)) {
-      ErrorValN("YXG", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YXG", !FValidGlyphs(i), i, 0))
       return tcError;
-    }
     gs.nGlyphs = i;
     darg++;
     break;
 
   case 'D':
-    if (argc <= 3 - (ch1 == '1')) {
-      ErrorArgc("YXD");
+    if (FErrorArgc("YXD", argc, 3 - (ch1 == '1')))
       return tcError;
-    }
     i = NParseSz(argv[1], pmObject);
-    if (!FItem(i)) {
-      ErrorValN("YXD", i);
+    if (FErrorValN("YXD", !FItem(i), i, 0))
       return tcError;
-    }
     szDrawObject[i] = argv[2][0] ? SzPersist(argv[2]) : szDrawObjectDef[i];
     szDrawObject2[i] = (ch1 == '1' ? "" : (argv[3][0] ? SzPersist(argv[3]) :
       szDrawObjectDef2[i]));
@@ -1666,15 +1724,11 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case 'A':
-    if (argc <= 3 - (ch1 == '1')) {
-      ErrorArgc("YXA");
+    if (FErrorArgc("YXA", argc, 3 - (ch1 == '1')))
       return tcError;
-    }
     i = NParseSz(argv[1], pmAspect);
-    if (!FAspect(i)) {
-      ErrorValN("YXA", i);
+    if (FErrorValN("YXA", !FAspect(i), i, 0))
       return tcError;
-    }
     szDrawAspect[i] = argv[2][0] ? SzPersist(argv[2]) : szDrawAspectDef[i];
     szDrawAspect2[i] = (ch1 == '1' ? "" : (argv[3][0] ? SzPersist(argv[3]) :
       szDrawAspectDef2[i]));
@@ -1682,31 +1736,23 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case 'v':
-    if (argc <= 1) {
-      ErrorArgc("YXv");
+    if (FErrorArgc("YXv", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidDecaType(i)) {
-      ErrorValN("YXv", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YXv", !FValidDecaType(i), i, 1))
       return tcError;
-    }
     gs.nDecaType = i;
     darg++;
     if (argc > 2 && FNumCh(argv[2][0])) {
-      i = atoi(argv[2]);
-      if (!FValidDecaSize(i)) {
-        ErrorValN("YXv", i);
+      i = NFromSz(argv[2]);
+      if (FErrorValN("YXv", !FValidDecaSize(i), i, 2))
         return tcError;
-      }
       gs.nDecaSize = i;
       darg++;
       if (argc > 3 && FNumCh(argv[3][0])) {
-        i = atoi(argv[3]);
-        if (!FValidDecaLine(i)) {
-          ErrorValN("YXv", i);
+        i = NFromSz(argv[3]);
+        if (FErrorValN("YXv", !FValidDecaLine(i), i, 3))
           return tcError;
-        }
         gs.nDecaLine = i;
         darg++;
       }
@@ -1714,34 +1760,26 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case 'g':
-    if (argc <= 1) {
-      ErrorArgc("YXg");
+    if (FErrorArgc("YXg", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidGrid(i)) {
-      ErrorValN("YXg", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YXg", !FValidGrid(i), i, 0))
       return tcError;
-    }
     gs.nGridCell = i;
     darg++;
     break;
 
   case 'S':
-    if (argc <= 1) {
-      ErrorArgc("YXS");
+    if (FErrorArgc("YXS", argc, 1))
       return tcError;
-    }
-    gs.rspace = atof(argv[1]);
+    gs.rspace = RFromSz(argv[1]);
     darg++;
     break;
 
   case 'j':
-    if (argc <= 1) {
-      ErrorArgc("YXj");
+    if (FErrorArgc("YXj", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
+    i = NFromSz(argv[1]);
     if (ch1 != '0') {
       gs.cspace = i;
       if (gi.rgspace != NULL) {
@@ -1755,15 +1793,11 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case '7':
-    if (argc <= 1) {
-      ErrorArgc("YX7");
+    if (FErrorArgc("YX7", argc, 1))
       return tcError;
-    }
-    i = atoi(argv[1]);
-    if (!FValidEsoteric(i)) {
-      ErrorValN("YX7", i);
+    i = NFromSz(argv[1]);
+    if (FErrorValN("YX7", !FValidEsoteric(i), i, 0))
       return tcError;
-    }
     gs.nRayWidth = i;
     darg++;
     break;
@@ -1775,15 +1809,11 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case 'K':
-    if (argc <= 2) {
-      ErrorArgc("YXK");
+    if (FErrorArgc("YXK", argc, 2))
       return tcError;
-    }
     i = NParseSz(argv[1], pmColor);
-    if (!FValidColor(i)) {
-      ErrorValN("YXK", i);
+    if (FErrorValN("YXK", !FValidColor(i), i, 0))
       return tcError;
-    }
     rgbbmp[i] = NParseSz(argv[2], pmRGB);
     darg += 2;
     break;
@@ -1793,20 +1823,16 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     break;
 
   case 'a':
-    if (argc <= 1) {
-      ErrorArgc("YXa");
+    if (FErrorArgc("YXa", argc, 1))
       return tcError;
-    }
-    gs.nDashMax = atoi(argv[1]);
+    gs.nDashMax = NFromSz(argv[1]);
     darg++;
     break;
 
 #ifdef SWISS
   case 'U':
-    if (argc <= 2) {
-      ErrorArgc("YXU");
+    if (FErrorArgc("YXU", argc, 2))
       return tcError;
-    }
     gs.szStarsLin = SzPersist(argv[1]);
     gs.szStarsLnk = SzPersist(argv[2]);
     gi.cStarsLin = *gs.szStarsLin != chNull;
@@ -1825,31 +1851,27 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
 #endif
 
   case 'f':
-    if (argc <= 1) {
-      ErrorArgc("YXf");
+    if (FErrorArgc("YXf", argc, 1))
       return tcError;
-    }
-    gs.fFont = atoi(argv[1]);
+    gs.nFont = NFromSz(argv[1]);
+    if (gs.nFont != 0)
+      gi.nFontPrev = gs.nFont;
     darg++;
     break;
 
 #ifdef PS
   case 'p':
     if (ch1 == '0') {
-      if (argc <= 2) {
-        ErrorArgc("YXp0");
+      if (FErrorArgc("YXp0", argc, 2))
         return tcError;
-      }
-      gs.xInch = atof(argv[1]);
-      gs.yInch = atof(argv[2]);
+      gs.xInch = RFromSz(argv[1]);
+      gs.yInch = RFromSz(argv[2]);
       darg += 2;
       break;
     }
-    if (argc <= 1) {
-      ErrorArgc("YXp");
+    if (FErrorArgc("YXp", argc, 1))
       return tcError;
-    }
-    gs.nOrient = atoi(argv[1]);
+    gs.nOrient = NFromSz(argv[1]);
     darg++;
     break;
 #endif
@@ -1858,7 +1880,7 @@ int NProcessSwitchesRareX(int argc, char **argv, int pos,
     ErrorSwitch(argv[0]);
     return tcError;
   }
-  /* 'darg' contains the value to be added to argc when we return. */
+  // 'darg' contains the value to be added to argc after returning.
   return darg;
 }
 
@@ -1881,6 +1903,7 @@ int DetectGraphicsChartMode()
   else if (us.fAstroGraph)           nMode = gAstroGraph;
   else if (us.fCalendar)             nMode = gCalendar;
   else if (us.fEphemeris)            nMode = gEphemeris;
+  else if (us.fAtlasNear)            nMode = gLocal;
   else if (us.fInDayGra)             nMode = gTraTraGra;
   else if (us.fTransitGra)           nMode = gTraNatGra;
   else if (us.nRel == rcBiorhythm)   nMode = gBiorhythm;
@@ -1907,7 +1930,7 @@ flag FActionX()
   if (gi.nMode == 0)
     gi.nMode = DetectGraphicsChartMode();
 
-  /* Determine the pixel size the graphics chart is to have. */
+  // Determine the pixel size the graphics chart is to have.
 
   if (gi.nMode == gGrid) {
     if (us.nRel <= rcDual && us.fMidpoint && !us.fAspList)
@@ -1946,6 +1969,7 @@ flag FActionX()
   if (wi.hdcPrint != hdcNil)
     gi.nScaleT = METAMUL;
 #endif
+  gi.nScaleTextT = gi.nScaleText * gi.nScaleT;
 
   if (gi.fFile) {
     if (gs.xWin == 0)
@@ -1976,15 +2000,15 @@ flag FActionX()
         PrintWarning("Attempting to get maximum memory for metafile.");
       if (gi.cbMeta <= 0)
         return fFalse;
-      gs.xWin   *= METAMUL;  /* Increase chart sizes and scales behind the */
-      gs.yWin   *= METAMUL;  /* scenes to make graphics look smoother.     */
+      gs.xWin   *= METAMUL;  // Increase chart sizes and scales behind the
+      gs.yWin   *= METAMUL;  // scenes to make graphics look smoother.
       gs.nScale *= METAMUL;
     }
 #endif
 #ifdef WIRE
     else {
-      gs.xWin   *= WIREMUL;  /* Increase chart sizes and scales behind the */
-      gs.yWin   *= WIREMUL;  /* scenes to make graphics look smoother.     */
+      gs.xWin   *= WIREMUL;  // Increase chart sizes and scales behind the
+      gs.yWin   *= WIREMUL;  // scenes to make graphics look smoother.
       gs.nScale *= WIREMUL;
       for (gi.cbWire = MAXMETA; gi.cbWire > 0 &&
         (gi.bm = PAllocate(gi.cbWire, NULL)) == NULL;
@@ -2013,9 +2037,9 @@ flag FActionX()
   }
 #endif /* ISG */
 
-  if (gi.fFile || gs.fRoot)    /* Go draw the graphic chart. */
+  if (gi.fFile || gs.fRoot)    // Go draw the graphic chart.
     DrawChartX();
-  if (gi.fFile) {    /* Write bitmap to file if in that mode. */
+  if (gi.fFile) {    // Write bitmap to file if in that mode.
     EndFileX();
     if (gs.ft == ftBmp || gs.ft == ftWmf || gs.ft == ftWire) {
       DeallocateP(gi.bm);
@@ -2025,12 +2049,12 @@ flag FActionX()
 #ifdef ISG
   else {
 #ifdef X11
-    if (gs.fRoot) {                                         /* Process -XB. */
+    if (gs.fRoot) {                                           // Process -XB.
       XSetWindowBackgroundPixmap(gi.disp, gi.root, gi.pmap);
       XClearWindow(gi.disp, gi.root);
 
-      /* If -Xn in effect with -XB, then enter infinite loop where we */
-      /* calculate and animate chart, displaying on the root window.  */
+      // If -Xn in effect with -XB, then enter loop where continuously
+      // calculate and animate chart, displaying on the root window.
       while (gs.nAnim) {
         Animate(gs.nAnim, 1);
         if (!gs.fJetTrail)
@@ -2042,7 +2066,7 @@ flag FActionX()
     } else
 #endif
 #ifndef WIN
-      InteractX();    /* Window's up; process commands given to window now. */
+      InteractX();    // Window's up; process commands given to window now.
     EndX();
 #else
     DrawChartX();