[Title: DECIMAL TO FRACTION]
'D2F
0->A~B: 
Ans=0=>Goto 0: 
 Ans->A: 1->B: Abs A: 
 Ans>1=>Goto 1: 
  Ans->B: 1: 
 Lbl 1: 
  BFrac (Ans/B)->C: 
  Abs C<=\10^(-)5=>Goto 2: 
 B: C->B: Goto 1: 
  Lbl 2: 
   Fix 0: 
   B\^-1: Rad: Ans->C: 
   A/B: Rad: Ans->A: A+C\10^(-)4Abs A/A: 
   Fix 4: 
Lbl 0: