FRACTION accepts as input a real number (or any expression
which can be evaluated as a real number) and yields as
output the numerator and denominator of that real
number in reduced fractional form.
Thanks to:
Doug Norris
University Liggen School
Grosse Pointe Woods, MI 48326
Prgm1:FRACTION
:Lbl 2
:Input N
:0->D
:Lbl 1
:D+1->D
:If FPart Round(ND,7)
:Goto 1
:ND->N
:Disp N
:Disp D
:Goto 2