set PID to pidloop( 1, 1, 0.02, -1, 1).

lock THROTTLE to 0.
sas off.
rcs off.
stage.
set KUNIVERSE:TIMEWARP:RATE to 50.
until SHIP:LONGITUDE > 110
{
	wait 1.
}
set KUNIVERSE:TIMEWARP:RATE to 1.
until KUNIVERSE:TIMEWARP:RATE = 1
{
	wait 1.
}
sas on.
wait 1.
set sasmode to "RETROGRADE".
wait 10.
lock THROTTLE to 1.
until SHIP:PERIAPSIS < 60000
{
	wait 1.
}
lock THROTTLE to 0.
wait 1.
lock THROTTLE to 0.1.
until ADDONS:TR:IMPACTPOS:LNG < -74
{
	wait 1.
}
lock THROTTLE to 0.
set SASMODE to "PROGRADE".
set NAVMODE to "SURFACE".
wait 10.
set KUNIVERSE:TIMEWARP:RATE to 50.
until SHIP:ALTITUDE < 70000
{
	wait 1.
}
set KUNIVERSE:TIMEWARP:RATE to 1.
wait 10.
rcs on.
set PID:SETPOINT to -74.5576726244574.
clearscreen.
until SHIP:ALTITUDE < 100
{
	print "predicted= "+ADDONS:TR:IMPACTPOS:LNG at(0,0).
	set R to PID:UPDATE( TIME:SECONDS, ADDONS:TR:IMPACTPOS:LNG).
	if R < -0.1 or 0.1 < R
	{
		set SHIP:CONTROL:FORE to R.
	}
	wait 0.1.
	set SHIP:CONTROL:FORE to 0.
}