%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:268
File Name:DEC-FRAC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"CONVERT DECIMAL TO   FRACTION"
"DECIMAL="?\->D
\For 1\->E \To 99
\If \Frac (D*\10^xE)=0
\Then E\->R
\Break
\IfEnd
\Next 
\For 0\->E \To 99
\If \Int (D/\10^xE)=0
\Then E\->L
\Break
\IfEnd
\Next 
L+R=10\ Or L+R=15\=>\Goto1
D*\10^xR\->N
N\ab/c\10^xR\->F
\Goto0
\Lbl 1
\For 1\->E \To R
D*\10^xE\->N
\For 0\->A \To E-1
D*\10^xA\->G
\Frac (G*\10^x(R-E))/\10^x(R-E)\->C
\If \Frac (N-G+C)=0
\Then (N-G+C)\ab/c(\10^xE-\10^xA)\->F
\Goto0
\IfEnd
\Next 
\Next 
\Lbl 0
\Stop
F
%End