Aalaunch

CLEARSCREEN.
SWITCH TO 0.
COPY ABORBIT TO 1.
COPY ACORBIT TO 1.
COPY ADORBIT TO 1.
SWITCH TO 1.

LOCK THROTTLE TO 1.0.   // 1.0 is the max, 0.0 is idle.

PRINT "Counting down:".
FROM {local countdown is 10.} UNTIL countdown = 0 STEP {SET countdown to countdown - 1.} DO {
    PRINT "..." + countdown.
    WAIT 1.
}

WHEN MAXTHRUST = 0 THEN {
    STAGE.
    Preserve.
      }

On ship:maxthrustat(0) {
if stage:ready{
stage.
}
return stage: number > 0.
}

print "Jebediah:	 I forgot my snacks!".


SET MYSTEER TO HEADING(90,90).
LOCK STEERING TO MYSTEER.
UNTIL SHIP:APOAPSIS > 100000 {

    IF SHIP:VELOCITY:SURFACE:MAG < 100 {
        SET MYSTEER TO HEADING(90,90).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 100 AND SHIP:VELOCITY:SURFACE:MAG < 200 {
        SET MYSTEER TO HEADING(90,80).
        PRINT "Pitching to 80 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).


    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 200 AND SHIP:VELOCITY:SURFACE:MAG < 300 {
        SET MYSTEER TO HEADING(90,70).
        PRINT "Pitching to 70 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 300 AND SHIP:VELOCITY:SURFACE:MAG < 400 {
        SET MYSTEER TO HEADING(90,60).
        PRINT "Pitching to 60 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 400 AND SHIP:VELOCITY:SURFACE:MAG < 500 {
        SET MYSTEER TO HEADING(90,50).
        PRINT "Pitching to 50 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 500 AND SHIP:VELOCITY:SURFACE:MAG < 600 {
        SET MYSTEER TO HEADING(90,40).
        PRINT "Pitching to 40 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 600 AND SHIP:VELOCITY:SURFACE:MAG < 700 {
        SET MYSTEER TO HEADING(90,30).
        PRINT "Pitching to 30 degrees" AT(0,15).
        PRINT ROUND(SHIP:APOAPSIS,0) AT (0,16).

    }.

}.

PRINT "100km apoapsis reached, cutting throttle".

SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.

global throt is 0.
lock throttle to throt.
lock steering to prograde.
until periapsis >= 100000 {
IF eta:apoapsis < 30 AND throt <1 {
SET throt to 1.}
If eta:apoapsis >50 and throt >0 {
Set throt to 0. }
IF eta:apoapsis >1000 and throt <1 {
Set throt to 1. }
}
unlock steering.
unlock throttle.

Print "check".

print "all go".

run aborbit(749750).