[ RunLife a j; #IFDEF DEBUG; if (debug_flag & 2 ~= 0) TraceAction(2, j); #ENDIF; reason_code = j; return RunRoutines(a,life); ];