// My First Launch PROGRAM//



//PRE-COUNTDOWN SEQUENCE AND FINAL SYSTEM CHECK//

CLEARSCREEN.
PRINT "                     ".
PRINT "LAUNCH SEQUENCE START".
PRINT "                     ".
WAIT 1.
PRINT "              ".
PRINT "STBY COUNTDOWN".
PRINT "              ".
WAIT 2.
LOCK STEERING TO UP.
PRINT "                   ".
PRINT "GUIDANCE CONFIGURED".
PRINT "                   ".
WAIT 1.5.
PRINT "            ".
PRINT "THROTTLE SET".
PRINT "            ".
LOCK THROTTLE TO 0.6.
WAIT 1.5.
PRINT "                          ".
PRINT "FINAL COUNTDOWN INITIALIZED".
PRINT "                          ".
WAIT 1.0.

//ACTUAL NUMERICAL COUNTDOWN//


PRINT "-10".
WAIT 1.
PRINT "-9".
WAIT 1.
PRINT "-8".
WAIT 1.
PRINT "-7".
WAIT 1.
PRINT "-6".
WAIT 1.
PRINT "-5".
WAIT 1.
PRINT "-4".
WAIT 1.
PRINT "-3".
WAIT 1.
PRINT "-2".
WAIT 1.
PRINT "-1".
WAIT 1.
PRINT "        ".
PRINT "IGNITION".
PRINT "        ".
STAGE.
WAIT 1.5.
PRINT "           ".
PRINT "ARM RETRACT".
PRINT "           ".
STAGE.

IF ALTITUDE > 15 {
PRINT "       ".
PRINT "LIFTOFF".
PRINT "

//COUNTDOWN ENDS. NOW THE STAGING AND GUIDANCE PART BEGINS.//

WHEN MAXTHRUST = 0 THEN {
    STAGE.
    PRINT "                    ".
    PRINT "1ST STAGE SEPARATION".
    PRINT "                    ".
}

IF SHIP:APOAPSIS < 100000 {

    WHEN ALTITUDE > 2000 THEN {
        LOCK STEERING TO HEADING(80,80).
    }
    WHEN ALTITUDE > 10000 THEN {
        LOCK STEERING TO HEADING(80,70).
    }
    WHEN ALTITUDE > 14000 THEN {
        LOCK STEERING TO HEADING(80,60).
    }
    WHEN ALTITUDE > 17000 THEN {
        LOCK STEERING TO HEADING(80,50).
    }
    WHEN ALTITUDE > 20000 THEN {
        LOCK STEERING TO HEADING(80,40).
    }
    WHEN ALTITUDE > 26000 THEN {
        LOCK STEERING TO HEADING(80,30).
    }
    WHEN ALTITUDE > 28000 THEN {
        LOCK STEERING TO HEADING(80,20).
    }
    WHEN ALTITUDE > 31000 THEN {
        LOCK STEERING TO HEADING(80,6).
    }
    WHEN ALTITUDE > 36000 THEN {
        LOCK STEERING TO HEADING(80,0).
    }
}

WHEN ALTITUDE > 50000 THEN {
    AG2 ON.
    PRINT "                ".
    PRINT "FAIRING JETTISON".
    PRINT "                ".
}

WHEN ALTITUDE > 72000 THEN {
    AG1 ON.
    PRINT "                      ".
    PRINT "COMMS ANTENNA DEPLOYED".
    PRINT "                      ".
}

//GRAVITY TURN IS COMPLETE. WAITING FOR MECO.//

WAIT UNTIL APOAPSIS > 100000.
PRINT "                                    ".
PRINT "ENGINE SHUTDOWN - STBY FOR CIRC BURN".
PRINT "                                    ".
LOCK THROTTLE TO 0.0.
WAIT 1.5.
LOCK STEERING TO PROGRADE.

// LAUNCH IS COMPLETE. WAITING FOR THE CIRCULARIZATION BURN @ 100KM.//


WAIT UNTIL ETA:APOAPSIS < 7.0.
PRINT "                      ".
PRINT "CIRC BURN - STBY ORBIT".
PRINT "                      ".
LOCK THROTTLE TO 1.0.
WAIT UNTIL PERIAPSIS > 90000.
LOCK THROTTLE TO 0.0.
PRINT "                                     ".
PRINT "ORBIT ESTABLISHED - STBY BOOSTER JETT".
PRINT "                                     ".

//CIRCULAR ORBIT IS ESTABLISHED. WAITING FOR THE BOOSTER STAGE TO JETTISON.//


WAIT 5.0.
PRINT "                ".
PRINT "BOOSTER JETTISON".
PRINT "                ".
STAGE.
WAIT 2.
PRINT "  ".
PRINT ":)".
PRINT "  ".

//DUN//