Remainder = CorrectRemainder - DivisorRepro:
CLEAR #DEFINE DIVIDEND 10 #DEFINE DIVISOR 3 ? " Dividend Divisor Quotient Remainder "; +" Check Expected Remainder" compute( DIVIDEND , DIVISOR) compute( DIVIDEND , -DIVISOR) compute(-DIVIDEND , DIVISOR) compute(-DIVIDEND , -DIVISOR) PROCEDURE compute(nDividend , nDivisor) nQuotient = INT(m.nDividend / m.nDivisor) nremainder = m.nDividend % m.nDivisor ? m.nDividend , m.nDivisor , m.nQuotient , nremainder , ; m.nQuotient * m.nDivisor + m.nremainder, m.nDividend - m.nQuotient * m.nDivisorOn MS SQL the % operation return expected remainders.