lock steering to heading (90,89).
rcs on.wait 1.set x to 88.LOCK STEERING TO HEADING(90,x).
lock x to 7.32602*10^(-9)*ship:altitude^2 - 0.00168158*ship:altitude + 94.6117.
LOCK THROTTLE TO 1. set thrust to 100.
when ship:altitude > 4000 then{
  ship:
  when ship:maxthrustat(0) < 1 then {STAGE. wait.5.}
  when SHIP:APOAPSIS >90000 then {LOCK THROTTLE TO 0.}
}
when ship:altitude > 50000 then{
  until (ship:periapsis - ship:apoapsis) > 2000 {
  when ship:apoapsis < 90000 then {lock throttle to .5. wait until ship:apoapsis > 90000. lock throttle to 0.}
  when ship:maxthrustat(0) < 1 then {STAGE.wait.5.}
  When Eta:apoapsis < 25 then { lock throttle to 75000 - ship:periapsis.}
  }
}