>Remainder = CorrectRemainder - Divisor >>
>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.nDivisor >>