CLEARSCREEN.

//

lock THROTTLE to MYTHROTTLE.	//Locks Throttle to Variable

lock STEERING to MYSTEER.	//Locks Steering to Variable

lock P to 90 - VANG(SHIP:FACING:VECTOR, SHIP:UP:VECTOR).

lock R_K to SHIP:ALTITUDE + BODY("Kerbin"):RADIUS.	//Distance from Kerbin
lock R_M to SHIP:ALTITUDE + BODY("Mun"):RADIUS.		//Distance from Mun

lock M_K to BODY("Kerbin"):MASS.						//Mass Kerbin
lock M_M to BODY("Mun"):MASS.						//Mass Mun

lock F_g to CONSTANT():G * ((SHIP:MASS * BODYMASS) / ( S * S )).	//Gravitational Acceleration from Body		//S = Distance between Ship and Body
lock W to (SHIP:MASS) * F_g.												//Weight in SOI of Body relative to Altitude

lock TH_P to (TargetTWR * W) / ((SHIP:MAXTHRUST +0.001) * cos(P)).	//Percentage of Thrust for specific TWR

lock StageOneTWR to 1.5.	//TWR Constant for Stage One
lock StageTwoTWR to 0.6.	//TWR Constant for Stage Two

lock H to (90-(ALTITUDE/1000)*4.5).	//Constant for Pitch relative to Altitude

//

set MYTHROTTLE to 0.						//Sets THROTTLE to 0%
	print "Thrust:" + MYTHROTTLE.
set S to R_K.							//Sets Distance to Ship-Kerbin
	print "Distance: Kerbin - Ship".
set BODYMASS to M_K.						//Sets Mass 2 to Kerbin Mass
	print "Body: Kerbin".
set TargetTWR to StageOneTWR.				//Sets Desired TWR to 1.5
	print "Target TWR set to 1.5".
set MYSTEER to HEADING(90,90).			//Sets Heading to 90,90
	print "Heading 90,90".
SAS OFF.								//Disables SAS
	print "SAS - OFF".

//

print "".

wait 2.

print "Pitch: "		  + P.
print "F_g: "		  + F_g.
print "W: "		      + W.
print "TargetTWR: "   + TargetTWR.
print "TH_P: "	   	  + TH_P.
print "H: " 		  + H.
print "S: " 	 	  + S.

print "".

wait 3.

//

print "Counting Down:".
from {local COUNTDOWN is 10.} until COUNTDOWN = 0 step {set COUNTDOWN to COUNTDOWN - 1.} do {
	print COUNTDOWN + "...".
	wait 1.

if COUNTDOWN = 5 {
	set MYTHROTTLE TO 1.	//Throttles up to 100%
	print "Thrust:" + MYTHROTTLE.}

if COUNTDOWN = 3 {
	toggle AG1.
	print "Releasing Tower".}

if COUNTDOWN = 2 {
	toggle AG2.
	print "Releasing Clamps".}

if COUNTDOWN = 1 {
	stage.
	print "Ignition".}
}

//

print "Liftoff".

//

lock MYTHROTTLE to TH_P.
	print "Locked TWR to 1.5".

//

wait until ALTITUDE > 1000 and SHIP:VELOCITY:SURFACE:MAG > 100.
	lock MYSTEER to HEADING(90,H).
	print "Executed Code 1".

wait until ALTITUDE > 10000.
	unlock MYSTEER.
	set MYSTEER TO HEADING(90,45).
	print "Executed Code 2".
	print "Throttle: " + MYTHROTTLE.
	print "TH_P: "	   + TH_P.

wait until SHIP:APOAPSIS > 30000.
	set MYSTEER TO HEADING(90,30).
	print "Executed Code 3".

wait until SHIP:APOAPSIS > 40000.
	set MYSTEER TO HEADING(90,20).
	set TargetTWR to StageTwoTWR.				//Sets Desired TWR to 0.6
	print "Locked TWR to 0.6".
	print "Executed Code 4".

wait until SHIP:APOAPSIS > 50000.
	set MYSTEER TO HEADING(90,10).
	print "Executed Code 5".

wait until SHIP:APOAPSIS > 60000.
	set MYSTEER TO HEADING(90,0).
	print "Executed Code 6".

wait until SHIP:APOAPSIS > 80000.
	set MYSTEER TO HEADING(90,0).
	unlock MYTHROTTLE.
	set MYTHROTTLE to 0.
	print "Executed Code 7".
//

//

wait until (MAXTHRUST = 0 and SHIP:APOAPSIS < 70000) or (SHIP:APOAPSIS -10 < SHIP:ALTITUDE). //Flight Abort Sequence
	print "executing Abort Sequence".
	set MYSTEER TO HEADING(90,180).
		wait 5.
			set MYTHROTTLE to 1.
			wait 2.
			unlock MYSTEER.
			lock MYTHROTTLE to 0.
	Toggle AG10.
//