10 PRINT "A", "B", "GCD"
20 READ A, B
30 LET X = A
40 LET Y = B
50 GOSUB 200
90 PRINT A, B, G
100 GOTO 20
110 DATA 60, 90
120 DATA 38456, 64872
200 LET Q = INT(X/Y)
210 LET R = X - Q*Y
220 IF R = 0 THEN 300
230 LET X = Y
240 LET Y = R
250 GOTO 200
300 LET G = Y
310 RETURN
999 END
