RosettaCodeData/Task/Greatest-common-divisor/GW-BASIC/greatest-common-divisor.basic
2023-07-01 13:44:08 -04:00

11 lines
171 B
Text

10 INPUT A, B
20 IF A < 0 THEN A = -A
30 IF B < 0 THEN B = -B
40 GOTO 70
50 PRINT A
60 END
70 IF B = 0 THEN GOTO 50
80 TEMP = B
90 B = A MOD TEMP
100 A = TEMP
110 GOTO 70