Added support for AtPark and Park

MeadeAutostar497/AscomClasses/Telescope.cs

@@ -342,8 +342,9 @@ namespace ASCOM.MeadeAutostar497
         {
             get
             {
-                tl.LogMessage("AtPark", "Get - " + false.ToString());
-                return false;
+                var atPatk = _telescopeController.AtPark;
+                tl.LogMessage("AtPark", "Get - " + atPatk.ToString());
+                return atPatk;
             }
         }
 
@@ -634,8 +635,8 @@ namespace ASCOM.MeadeAutostar497
 
         public void Park()
         {
-            tl.LogMessage("Park", "Not implemented");
-            throw new ASCOM.MethodNotImplementedException("Park");
+            tl.LogMessage("Park", "Parking telescope");
+            _telescopeController.Park();
         }
 
         public void PulseGuide(GuideDirections Direction, int Duration)

MeadeAutostar497/Controller/ITelescopeController.cs

@@ -13,7 +13,9 @@ namespace ASCOM.MeadeAutostar497.Controller
         double SiteLatitude { get; set; }
         double SiteLongitude { get; set; }
         AlignmentModes AlignmentMode { get; set; }
+        bool AtPark { get; }
         void AbortSlew();
         void PulseGuide(GuideDirections direction, int duration);
+        void Park();
     }
 }

MeadeAutostar497/Controller/TelescopeController.cs

@@ -293,6 +293,10 @@ namespace ASCOM.MeadeAutostar497.Controller
             }
         }
 
+        private bool _parked = false;
+
+        public bool AtPark => _parked;
+
         public void AbortSlew()
         {
             SerialPort.Command("#:Q#");
@@ -335,6 +339,15 @@ namespace ASCOM.MeadeAutostar497.Controller
             }
         }
 
+        public void Park()
+        {
+            if (_parked)
+                return;
+
+            _parked = true;
+            _serialPort.Command(":hP#");
+        }
+
         public bool UserNewerPulseGuiding { get; set; } = true; //todo make this a device setting
     }
 }