Add command-line-run programs for satellites.

prog/circ.ks

@@ -0,0 +1,15 @@
+@lazyglobal off.
+
+runoncepath("/lib/navigation").
+
+parameter where is "a".
+parameter whereStr is "apoapsis".
+
+local usePeri is false.
+if where = "p" {
+  set usePeri to true.
+  set whereStr to "periapsis".
+}
+
+CreateCircularizationNode(usePeri).
+print "Circularization node created at " + whereStr.

prog/execnode.ks

@@ -0,0 +1,4 @@
+@lazyglobal off.
+
+runoncepath("/lib/node").
+ExecuteNode().

prog/nodestats.ks

@@ -0,0 +1,15 @@
+@lazyglobal off.
+
+runoncepath("/lib/node").
+
+if not HASNODE {
+  print "No node planned.".
+  return.
+}
+
+print "Node dV: " + NEXTNODE:DELTAV:MAG.
+print "Burn time: " + BurnTime(NEXTNODE:DELTAV:MAG).
+print "Lead time: " + BurnTime(NEXTNODE:DELTAV:MAG / 2).
+print "Node UT: " + NEXTNODE:TIME.
+print "Node ETA: " + NEXTNODE:ETA.
+print "Will stage? " + choose "yes" if WillStage(NEXTNODE:DELTAV:MAG) else "no".