---

6.6.1.3 Step By Step Procedural Program Execution Example

    void *subtext;

    x1f4_rail_shuffle(program);

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

	x1f4_head_shuffle(subtext);
	while (!x1f4_tail_shuffle(subtext)) {
	    status = x1f4_slip_shuffle(subtext);

	    check for temporaries and dispose if any

	    if (status) {
		break;
	    }
	}

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

or

    void *subtext;

    x1f4_rail_shuffle(program);

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

	x1f4_head_shuffle(subtext);
	while (1) {
	    status = x1f4_step_shuffle(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_shuffle(&subtext, program);
	if (excess) {
	    if (status) {
	    } else {
		status = excess;
	    }
	}
    }

See Procedural Temporaries.

See x1f4_rail_shuffle.

See x1f4_near_shuffle.

See x1f4_head_shuffle.

See x1f4_slip_shuffle.

See x1f4_step_shuffle.

See x1f4_tail_shuffle.

See x1f4_side_shuffle.

See Execution Conditions.