Apollo Kerbin Return

@clobberbuiltins on.
clearscreen.
return1().

function return1 {
    lock altit to ship:altitude.
    set status1 to "Controls are unlocked.Waiting for return to Kerbin".
    until altit < 150000 {
        printing().
    }

    lock steering to srfretrograde.
    stage.
    set status1 to "SM has Separated".
    until altit < 70000 {
        printing().
    }

    set status1 to "CM did enter the atmosphere of Kerbin".
    until altit < 3750 {
        printing().
    }

    stage.
    wait 1.
    stage.
    set status1 to "Heat Shield Separation and Drogue Chutes Deploy".
    until altit < 1750 {
        printing().
    }

    ag8 on.
    stage.
    set status1 to "Main Chutes Deploy".
    until ship:status = "Landed" or ship:status = "Splashed" or ship:status = "Crashed" {
        printing().
    }

    set status1 to "Touchdown".
    print "Touchdown of CM.Welcome to Kerbin".
}

function printing {
    clearscreen.
    set t to (time:seconds-now1)/60.
    print "T+: " + t + " Minutes".
    print "Status: " + status1.
    wait 0.1.
}