lnfraction = .875

lcfraction = getfraction(lnfraction)

? lcfraction

return

procedure getfraction (tndec as number) as character

  lndenominator = 100000
  lnnumerator = tndec * lndenominator
  lnfactor = 1
  i = 2
  lnend = lndenominator/2
  do while i < lnend
    if lnnumerator % i = 0 and lndenominator % i = 0 && factor of both numerator and denominator
      lnfactor = lnfactor * i
      lnnumerator = lnnumerator/i
      lndenominator = lndenominator/i
      lnend = lndenominator/2
    else  && try next higher
      i = i + 1
    endif
  enddo

  return alltrim(str(lnnumerator))+"/"+alltrim(str(lndenominator))

endproc