Hi Darrel , thanks again. I used your DIV32 remainder tip to do the rounding to 1mm.
I still have enough flash for my refinements
circ = puls * 1000
circ = (DIV32 fctr)
@ MOVE?WW R2, _Remainder ; Get remainder of Div32
if remainder*10/fctr>4 then circ=circ+1

Hebe