(50g) USER key ": division" a) decimal into (pi) fractions b) no limits

[Gil]

Thanks to John Keith, I could simplify the
end of the conversion user assignment key 65.1
from decimal to fractions of integers.
Here below in bold :

\<< RCLF \-> x f
\<< RAD x TYPE 9 \=/
IF
THEN x DUP DUP ABS 1 <
IF
THEN \->Q
ELSE \->Q DUP PROPFRAC
END
ELSE x DUP PROPFRAC DUP2 SAME
IF
THEN DROP
END
END \->STR "+-" "-" SREPL DROP OBJ\-> f STOF
\>>
\>>

Regards,
Gil