Hathi VI to orbit

set shipbounds to ship:bounds.
SetAngle(90).
startup(turbos).
startup(vectors).
lock x to 90.
lock p to 0.
lock steering to heading(x,p).
ImtheRedBaron(false).
lock throttle to (101e3-apoapsis)/1000.
when shipbounds:bottomaltradar > 1 then {gear off.}
when airspeed > 100 then {
    lock p to 12.
}
when airspeed > 220 then props off.
when airspeed > 400 then {
    shutoff(vectors).
}
when airspeed > 1100 then {
    startup(vectors).
    startup(nukes).
}
when altitude > 30e3 then shutoff(turbos).

when altitude > body:atm:height and eta:apoapsis < 15 then {
    info("circularize").
    lock desiredVel to vxcl(up:vector,velocity:orbit):normalized * sqrt(body:MU/(body:Radius + altitude)).
    lock dV to desiredVel - velocity:orbit.
    lock steering to lookdirup(dV, ship:facing:topvector).
    when true then {
        if vang(facing:vector,dV) > 2 lock throttle to 0. else lock throttle to dv:mag / 2.
        if dv:mag > 0.03 return true. else {
            print "complete".
            lock throttle to 0.
            GoToSleep().
            displayDV().
            set complete to true.
            }
        }
}