26 lines
769 B
Plaintext
26 lines
769 B
Plaintext
import("library/lib_ascent").
|
|
runOncePath("0:/library/lib_input_terminal").
|
|
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
|
|
|
|
print "Enter Launch Profile: ".
|
|
set profile to terminal_input_number(22, 0, 4, 1.2).
|
|
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, 120000).
|
|
print "Inclination: ".
|
|
set inclination to terminal_input_number(13, 3, 8, 0).
|
|
|
|
print "Waiting for Engine Start...".
|
|
WaitForEngineStart().
|
|
clearScreen.
|
|
|
|
sas off.
|
|
Ascent(target_orbit:toscalar(0), turn_start:toscalar(0), profile:toscalar(0), 3, inclination:toscalar(0)).
|
|
|
|
|
|
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
|
|
sas on.
|
|
SHUTDOWN. |