Hey George

Her is one that I think is better...

LPARAMETER lcString
LOCAL lnNum, lnDom, lnMax, lnDecimal, lnPower
lnMax = 64
lnNum = 1
lnDom = 2
lnPower = 1
lnDecimal = VAL(lcString)
* Decimal part only
DO WHILE lnDom <= lnMax
  lnDom = 2^lnPower
  lnNum = lnDecimal * lnDom
  IF ROUND(lnNum,0) == lnNum
    EXIT
  ENDIF
  lnPower = lnPower + 1
ENDDO
RETURN ALLTRIM(STR(lnNum)) + "/" + ALLTRIM(STR(lnDom))+["]

Still need to take into consideration rounding for a generic function

TGIF

Thank George it's Friday