//****************************************************************************************************
public void Execute(interpr.logic.Subroutine.Moment pos) {
vartypes.VarBase v = m_expr.Calculate();
if (!v.IsSingle())
throw new CalcException("«начение услови¤ не может быть массивом");
if ((v as vartypes.SingleVar).ToBool())
pos.Next();
else
pos.GoTo(m_looppos + 1);
}
//****************************************************************************************************
public void Execute(interpr.logic.Subroutine.Moment pos) {
m_for_op.Step(pos, m_for_pos);
}