Hi again Tomas,

I wrote that example rather quick, just trying to beat Melanie to the punch.  After looking at it again, I saw that it could be reduced even further. This way uses fewer variables, and is a bit shorter too.
Code:
a          var  word      ' 0-60000
result     var  word[2]   ' 32-bit result, although largest is 17-bit
 ResHigh   var  result[1]
 ResLow    var  result[0]

a = 60000    ' a test number

ResLow = a / 3
ResHigh = ((ResLow - 13107) >> 15) ^ 1
ResLow = ResLow * 5 + (a // 3 * 15 / 10)
Best regards,
   Darrel