---

5.6.1.3 Step By Step Imperative Program Execution Example

    x1f4_head_program(program);
    while (!x1f4_tail_program(program)) {
	status = x1f4_slip_program(program);

	check for temporaries and dispose if any

	if (status) {
	    x1f4_flat_program(program);
	    break;
	}
    }

or

    void *subtext;

    x1f4_rail_program(program);

    status = x1f4_near_routine(&subtext, program);
    if (status) {
    } else {
	int excess;

	x1f4_head_routine(subtext);
	while (1) {
	    status = x1f4_step_routine(subtext);
	    if (status == X1f4_EX_COMPLETED) {
		status = 0;
		break;
	    } else {
		if (status == X1f4_EX_LEAD_CALL) {
		    action to be taken outside interpreter control
		} else {
		    check for temporaries and dispose if any

		    if (status) {
			break;
		    }
		}
	    }
	}

	excess = x1f4_side_routine(&subtext, program);
	if (excess) {
	    if (status) {
	    } else {
		status = excess;
	    }
	}
    }

See x1f4_head_routine.

See x1f4_head_program.

See x1f4_near_routine.

See x1f4_rail_program.

See x1f4_side_routine.

See x1f4_slip_program.

See x1f4_step_routine.

See x1f4_tail_program.

See Execution Conditions.