29 lines
857 B
Plaintext
29 lines
857 B
Plaintext
import("library/lib_ascent").
|
|
runOncePath("0:/library/lib_input_terminal").
|
|
|
|
if status = "PRELAUNCH" {
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
print "Enter Launch Profile: ".
|
|
set profile to terminal_input_number(22, 0, 4, 0.7).
|
|
print "Verical Ascent: ".
|
|
set turn_start to terminal_input_number(16, 1, 6, 1000).
|
|
print "Target Orbit: ".
|
|
set target_orbit to terminal_input_number(14, 2, 8, 96000).
|
|
print "Inclination: ".
|
|
set inclination to terminal_input_number(13, 3, 8, 0).
|
|
print "Circularization: ".
|
|
set circ to terminal_input_number(17, 4, 8, 3).
|
|
|
|
clearScreen.
|
|
|
|
sas off.
|
|
Ascent(target_orbit:toscalar(0), turn_start:toscalar(0), profile:toscalar(0), circ:toscalar(0), inclination:toscalar(0)).
|
|
|
|
|
|
wait 30.
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
sas on.
|
|
SHUTDOWN.
|
|
} |