LOCAL lnSlash, lcDivider, lnDivider, lcAmount, lnAmount _SCREEN.Show SET STEP ON lnSlash = 0 lcDivider = '' lnDivider = 0 lcAmount = '' lnAmount = 0 CLOSE DATABASES USE "c:\windmill 12-7-10-1" EXCLUSIVE GO top DO WHILE NOT EOF() IF '/' $ retail lnSlash = ATC('/',retail) IF lnSlash > 0 lcDivider = LEFT(retail,lnSlash -1) lnDivider = VAL(lcDivider) lcAmount = SUBSTR(retail,lnSlash + 1) lnAmount = VAL(lcAmount) IF lnDivider <> 0 lnAmount = lnAmount / lnDivider ENDIF lcAmount = ALLTRIM(STR(lnAmount,15,2)) REPLACE retail WITH lcAmount ENDIF ENDIF SKIP ENDDOand the lcAmount comes out as 5.00, not 4.99.