This program is also compatible with your own function.
example:Fraction calculation
COMMON DEF FRAC(A)
VAR B,C,D%,I
WHILE !C && I<100000
I=I+1
B=ROUND(I*A)
C=B*(ABS((A/I-A))<1E-12
WEND
IF C && B<POW(2,31) THEN D%=B:R$=STR$(D%)+("/"+STR$(I))*(I>1)
RETURN A
END