Look

PART:STAGE.

STAGE 1.

LOCK STEERING TO HEADING(90,10).

PROGRAM launch.

DO {
    STAGE.
    WAIT UNTIL ALTITUDE > 10000.
    STAGE.
} WHILE VERTICALSPEED < 4.

STAGE 2.

SET SHIP:CONTROL:STAGE to 2.

PROGRAM transfer.

SET SHIP:CONTROL:MAIN to OFF.

SET SHIP:CONTROL:TRUST to 100.

PROGRAM midcourse.

DO {
    WAIT UNTIL ALTITUDE > 100000.
    STAGE.
} WHILE VERTICALSPEED < 200.

STAGE 3.

SET SHIP:CONTROL:STAGE to 4

PROGRAM capture.

DO {
    WAIT UNTIL ALTITUDE > 100000.
    WAIT UNTIL ALTITUDE > 110000.
    STAGE.
} WHILE VERTICALSPEED < 150.

PROGRAM mun:orbit.

DO {
    WAIT UNTIL SHIP:ALTITUTE > 40000.
} WHILE VERTICALSPEED > 10.

PROGRAM mun:surface:entry.

DO {
    WAIT UNTIL SHIP:ALTITUTE > 10000.
} WHILE VERTICALSPEED > 200.

PROGRAM mun:surface:landing.

PROGRAM mun:surface:launch.

END PROGRAM