# TITLE:  Euclidean Algorithm
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   17Dec1995, 26Mar1996, 18Jan2000, 27Oct2006
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   97
# NOTES:  Enter two integers a,b. The GCD(a,b) will be returned.
#         To write GCD as linear combination of a & b i.e. d=ax+by,
#         x and y will also be returned.
#         On some models the squiggle '~' symbol appears after 
#         pressing the alpha button.
#

@@ Program 1

1->A~B
0->C~D
?->X:?->Y
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
"GCD":X_
"X":A_
"Y":C