# TITLE:  Decimal to Fraction Conversion
# AUTHOR: Roy F.A. Maclean
#         (based on idea by Karl Ove Hufthammer)
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro                    
# DATE:   13Jan2000, 18Jan2000, 27Oct2006
# MAKE:   CASIO
# MODEL:  Any      
# NOTES:  Type in a decimal number. The fraction form will be given.
#	Program "EUCSUB" is the euclidean algorithm subroutine.


@@ Program "DECFRAC"

"N"?->M~N
Lbl 1
10M->M
Frac M<>0=>Goto 1
M->X
M/N->Y
Prog "EUCSUB"
"NUMERATOR":M/X_
"DENOMINATOR":Ans/N


@@ Program "EUCSUB"

1->A~B:0->C~D
Lbl 1
Int (X/Y)          
X-AnsY->R
A-AnsD->E
C-AnsB->F
D->A:B->C:E->D
F->B:Y->X:R->Y
Y<>0=>Goto 1