launch and circo p1

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.
STAGE.
when ship:altitude > 4000 then{
  when ship:maxthrustat(0) < 1 then {STAGE. wait.5.}
  when SHIP:APOAPSIS >90000 then {LOCK THROTTLE TO 0.}
}
until (ship:altitude >50000 and ship:altitude < 80000) then {
  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.}
}