>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 >ENDDO >>
lcAmount = LTRIM(LEFT(STR(lnAmount,15,3),14))