run "library/lib_math".

clearScreen.
BRAKES on.
print "Preparing to launch".
from { local c is 5.} until c = 0 step {set c to c - 1.} do {
	print c.
	wait 1.
}
print "Launching!".
lock throttle to 100.
lock steering to heading(90, 0, 0).

print "Phase: Takeoff".
wait until surfaceSpeed > 140.

print "Phase: Rotate".
lock steering to heading(90, 3, 0).
wait 1.
print "Gear up".
gear off.

print "Phase: Athmospheric Climb".
lock steering to heading(90, 15, 0).
wait until altitude > 20000.

print "Phase: Mode Switch".
ag1 on. //Switch engine mode
lock steering to heading(90, 25, 0).
wait until apoapsis > 80000.

print "Phase: Sub-Orbital Coast".
lock throttle to 0.
lock steering to prograde.

when altitude > 70000 then {
	print "Deploying Solar".
	ag2 on. //deploy solar
	print "Opening Docking Port".
	ag3 on. //open docking port
}

lock distToApo to apoapsis - altitude.
wait until distToApo < 100.
print "Phase: Circularize".
lock throttle to 100.
wait until periapsis > 79000.
unlock throttle.

print "In orbit. Releasing controls".