кОС

*основная программа*

LOCK STEERING TO UP + R(0,0,180).
lock throttle to 1.0.
WAIT 2.
STAGE.

run fuel_check.

wait until  SHIP:ALTITUDE >  23000.
LOCK STEERING TO HEADING(90,45).

RCS ON.


wait until ship:apoapsis > 100000.
lock throttle to 0.00.

wait until ETA:APOAPSIS < 42.
LOCK STEERING TO HEADING(90,0).
PRINT "Flat part.".
lock throttle to 1.0.

wait until ship:periapsis > 90000.
lock throttle to 0.00.

wait until ETA:APOAPSIS < 31.
LOCK STEERING TO HEADING(90,0).
lock throttle to 1.0.

wait until (ship:periapsis + 2000) > ship:apoapsis.
lock throttle to 0.00.

*конец программы*


*fuel_check:*

WHEN (STAGE:LIQUIDFUEL + STAGE:SOLIDFUEL)< 0.01 THEN{
    STAGE.
    PRESERVE.
}