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