Launch v3

LOCK STEERING TO HEADING(90, 90).
LOCK THROTTLE TO 1.0.
PRINT "Activating antenna.".
TOGGLE AG1.
WAIT 3.
PRINT "Lift-off!".
STAGE.

WHEN STAGE:LIQUIDFUEL <0.1 THEN {
	PRINT "Staging.".
	STAGE.
}

FUNCTION GradualTurn {
	PARAMETER initalt.
	PARAMETER topalt.
	PARAMETER initpitch.
	PARAMETER toppitch.

	SET deltapitch TO initpitch-toppitch.
	SET deltaalt TO topalt-initalt.
	SET changepitch TO deltapitch/deltaalt.
	LOCK deviation2 TO (ALTITUDE-initalt)*changepitch.
	LOCK turnpitch TO initpitch-deviation2.
	LOCK STEERING TO HEADING (90,turnpitch).
	WAIT UNTIL ALTITUDE > topalt.
	LOCK STEERING TO HEADING (90,toppitch).
}

WAIT UNTIL ALTITUDE > 100.
PRINT "Following pitch program.".
GradualTurn(100,10000,90,45).
GradualTurn(10000,20000,45,30).

WAIT UNTIL ALTITUDE > 25000.
PRINT "Following prograde".
LOCK STEERING TO PROGRADE.

WAIT UNTIL ALT:APOAPSIS > 90000.
PRINT "Apoapsis is over 90 km. Waiting to apoapsis".
LOCK THROTTLE TO 0.0.

WAIT UNTIL ETA:APOAPSIS < 20.
SET WARP TO 0.
PRINT "Heading towards horizontal for circularization.".
LOCK STEERING TO HEADING(90,0).
RCS ON.

WAIT UNTIL ETA:APOAPSIS < 10.
PRINT "Burning!".
LOCK THROTTLE TO 1.0.

WAIT UNTIL ALT:PERIAPSIS > 85000.
LOCK THROTTLE TO 0.
SAS ON.
WAIT 1.
RCS OFF.
SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.
PRINT "We are in orbit.".