Add code for unmanned science return probe.

prog/reentry.ks

@@ -0,0 +1,17 @@
+
+@lazyglobal off.
+
+SAS off.
+lock STEERING to SHIP:SRFRETROGRADE.
+
+for p in SHIP:PARTS {
+  if p:MODULES:Find("ModuleRTAntenna") > -1 and p:GetModule("ModuleRTAntenna"):ALLEVENTNAMES:Find("Deactivate") > -1 {
+    p:GetModule("ModuleRTAntenna"):DoEvent("Deactivate").
+  }
+}
+
+when SHIP:ALTITUDE - SHIP:GEOPOSITION:TERRAINHEIGHT < 2500 then {
+  CHUTES on.
+}
+
+wait until false.