orbital info display

set sgfirst to 0.
set sgp to 0.
set sggo to true.
set sgf to 8.
set sgpr to 4.
function sgd {
parameter l. parameter d.
If l:length > sgpr set sgpr to l:length.
print (l:padleft(sgpr) + ": " +round(d,2)):padright(terminal:width) at (0, sgp).
set sgp to sgp + 1.
}.
set sggo to false. wait 1. set sggo to true.
On round(kuniverse:realtime * sgf) {
set sgp to sgfirst.
sgd("Apoapsis", apoapsis).
sgd("ETA Apoapsis", CHOOSE eta:apoapsis IF apoapsis > 0 ELSE -1).

sgd("Periapsis", periapsis).
sgd("ETA Periapsis", eta:periapsis).
sgd("Vertical Speed", ship:verticalspeed).
sgd("AP/PE Diff",apoapsis-periapsis).
sgd("alt radar",alt:radar).
sgd("groundspeed",groundspeed).
sgd("Ox",ship:oxidizer).

sgd("Lat",latitude).
sgd("Long",longitude).
Print "":padright(terminal:width) at (0,sgp).
set sgp to sgp + 1.
return sggo.
}