%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:170
File Name:BESTFRAC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Number"?\->A
\Abs A\->A
"Denom digits"?\->H
\10^x\Abs \Int H\->H
1\->D
\For 1\->F \To H
\Int FA\->E
\Abs (A-E/F)\->G
\If G<D
\Then E\->B
F\->C
G\->D
\IfEnd
E+1\->E
\Abs (A-E/F)\->G
\If G<D
\Then E\->B
F\->C
G\->D
\IfEnd
\Next 
"Numerator"
B\Disp"Denominator"
C
%End