# TITLE:  GCD
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro                  
# DATE:   17Dec1995, 27Oct2006
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   37
#
# Enter two integers a,b. The GCD(a,b) will be returned.


@@ Program 1

?->X:?->Y
Lbl 1
X-Y*Int (X/Y)
Y->X:Ans->Y
Y<>0=>Goto 1
X