FUNCTION PRINT_AT {
    PARAMETER DESCRIPTION.
    PARAMETER TEXT.
    PARAMETER STRING_NUM.

    PRINT DESCRIPTION AT(0,STRING_NUM) + "          " + TEXT AT(0,STRING_NUM).
}.


FUNCTION CIRCLING_FROM_PERIAPSIS {
    //At this point, our apoapsis is above 100km and our main loop has ended. Next
    //we'll make sure our throttle is zero and that we're pointed prograde
    PRINT "Disable engine".
    LOCK THROTTLE TO 0.

    PRINT "Waiting to rich APOAPSIS".

    UNTIL (ETA:APOAPSIS < 30) {
        SET MYSTEER TO HEADING(90,0).
        PRINT "Pitching to 0 degrees" AT(0,15).
        PRINT_AT("APOAPSIS",ROUND(SHIP:APOAPSIS,0),16).
        PRINT_AT("ALTITUDE",ROUND(SHIP:ALTITUDE,0),17).
        PRINT_AT("ETA:APOAPSIS",ETA:APOAPSIS,18).
    }.

    PRINT "Pitching to 0 degrees".
    SET MYSTEER TO HEADING(90,0).
    LOCK THROTTLE TO 1.0.

    UNTIL (ABS((SHIP:APOAPSIS - SHIP:PERIAPSIS)/SHIP:PERIAPSIS) < 0.05 ) {
        PRINT_AT("SHIP:APOAPSIS",SHIP:APOAPSIS,15).
        PRINT_AT("SHIP:PERIAPSIS",SHIP:PERIAPSIS,17).
        PRINT_AT("ABS(SHIP:APOAPSIS - SHIP:PERIAPSIS)",ABS(SHIP:APOAPSIS - SHIP:PERIAPSIS),23).


        IF ETA:APOAPSIS  { BREAK. }
    }.

    LOCK THROTTLE TO 0.
}.


CLEARSCREEN.


LOCK THROTTLE TO 1.0.


WHEN MAXTHRUST = 0 THEN {
    PRINT "Staging".
    STAGE.
    PRESERVE.
}.


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 < 800 {
        SET PITCH_ANG TO (SHIP:ALTITUDE - 24033)/(-282).
        SET MYSTEER TO HEADING(90,ROUND(PITCH_ANG,0)).
        PRINT "Pitching to " + PITCH_ANG + " degrees" AT(0,15).
        PRINT_AT("APOAPSIS",ROUND(SHIP:APOAPSIS,0),16).

    } ELSE IF SHIP:VELOCITY:SURFACE:MAG >= 800 {
        SET MYSTEER TO HEADING(90,10).
        PRINT "Pitching to 10 degrees" AT(0,15).
        PRINT_AT("APOAPSIS",ROUND(SHIP:APOAPSIS,0),16).
        PRINT_AT("ALTITUDE",ROUND(SHIP:ALTITUDE,0),18).
    }.

}.

CLEARSCREEN.

PRINT "100 km apoapsis reached, cutting throttle".

SET MYSTEER TO HEADING(90,0).
PRINT "Pitching to 0 degrees".

CIRCLING_FROM_PERIAPSIS()

SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.