gcd.bas (359B)
110 PRINT "A","B","C","GCD" 220 READ A,B,C 330 LET X = A 440 LET Y = B 550 GOSUB 200 660 LET X = G 770 LET Y = C 880 GOSUB 200 990 PRINT A, B, C, G 10100 GOTO 20 11110 DATA 60, 90, 120 12120 DATA 38456, 64872, 98765 13130 DATA 32, 384, 72 14200 LET Q = INT(X/Y) 15210 LET R = X - Q*Y 16220 IF R = 0 THEN 300 17230 LET X = Y 18240 LET Y = R 19250 GOTO 200 20300 LET G = Y 21310 RETURN 22999 END