| 10 PRINT "A","B","C","GCD" | |
| 20 READ A,B,C | |
| 30 LET X = A | |
| 40 LET Y = B | |
| 50 GOSUB 200 | |
| 60 LET X = G | |
| 70 LET Y = C | |
| 80 GOSUB 200 | |
| 90 PRINT A, B, C, G | |
| 100 GOTO 20 | |
| 110 DATA 60, 90, 120 | |
| 120 DATA 38456, 64872, 98765 | |
| 130 DATA 32, 384, 72 | |
| 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 |