TITLE: Greatest Common Denominator
AUTHOR: Mark Stuart
DATE:   22 April, 1996
MAKE:   CASIO 
MODEL:  fx-7700G
SIZE:   
NOTES:  Enter two integers; GCD will be displayed 
__________________________________________
'GCD'
"NUM 1"
?->A
"NUM 2"
?->B
1->C
Lbl 1
Int(A-B)->D
A-B*Int(A-B)->C
C=0=>Goto 2
B->A
C->B
Goto 1
Lbl 2
B
_______________________________