FUNCTION RNDU(R)
	N = 10 && round up to 10c
         * N = 5 && round up to 5c
	R = ROUND(R * 100,0)
	
	IF (R%N) = 0
		R = R - (R%N)        
		*//(R%N)=1,2,3,4
	ELSE
		IF (R%N) >4  && if 1 to 4 cents, round down to 0
			R = (R - (R%N))+N   
		ELSE     && if 5 to 9 cents, round up
			R = (R - (R%N)) 
		endif	     
		*//(R%N)=1,2,3,4
	ENDIF
	R = R/100
RETURN R