AnthonyKOS1

Set SASMODE To "STABILITYASSIST".
SAS on.
RCS on.
Lights on.
Lock Throttle to 0.
Gear off.
Toggle Brakes.

//Setting the angle and roll
Function Tilt {
	Parameter minimum_altitude.
	Parameter angle.

	Wait Until Altitude > minimum_altitude.
	Print "Locking heading to " + angle + " degrees".
	Lock Steering To Heading(90, angle).
}

When Groundspeed >= 300 Then {
	Lock Throttle To 0.75.
	Preserve.
}
When  Groundspeed >= 500 Then {
	Lock Throttle to 0.45.
	Preserve.
}

When  Groundspeed >= 600 Then {
	Lock Throttle to 0.25.
	Preserve.
}

When Maxthrust = 0 And Altitude > 200 And Stage:Number > 1 Then {
	Lock Throttle to 0.
	Stage.
	Lock Throttle to 1.
	Preserve.
}

When Ship:Apoapsis = 75000 Then {
	Lock Throttle to 0.
}

Print "Launch Program Initiated".
Tilt(0, 90).
Lock Throttle to 1.

Wait 2. Print "Launching!".
Stage.

Tilt(200, 85).
Tilt(3000, 75).
SAS off.
Tilt(10000, 65).
Tilt(20000, 50).
Tilt(30000, 35).

Wait Until ETA:APOAPSIS < 20.
Tilt(90, 0). Wait 5. Lock Throttle To 1.

Wait Until PERIAPSIS = 72000.
Lock Throttle To 0.
Wait 5.
SAS on.
Set Ship:Control:Pilotmainthrottle to 0.
Shutdown.