14479Sbinkertn@umich.edu10 PRINT "A","B","C","GCD" 24479Sbinkertn@umich.edu20 READ A,B,C 34479Sbinkertn@umich.edu30 LET X = A 44479Sbinkertn@umich.edu40 LET Y = B 54479Sbinkertn@umich.edu50 GOSUB 200 64479Sbinkertn@umich.edu60 LET X = G 74479Sbinkertn@umich.edu70 LET Y = C 84479Sbinkertn@umich.edu80 GOSUB 200 94479Sbinkertn@umich.edu90 PRINT A, B, C, G 104479Sbinkertn@umich.edu100 GOTO 20 114479Sbinkertn@umich.edu110 DATA 60, 90, 120 124479Sbinkertn@umich.edu120 DATA 38456, 64872, 98765 134479Sbinkertn@umich.edu130 DATA 32, 384, 72 144479Sbinkertn@umich.edu200 LET Q = INT(X/Y) 154479Sbinkertn@umich.edu210 LET R = X - Q*Y 164479Sbinkertn@umich.edu220 IF R = 0 THEN 300 174479Sbinkertn@umich.edu230 LET X = Y 184479Sbinkertn@umich.edu240 LET Y = R 194479Sbinkertn@umich.edu250 GOTO 200 204479Sbinkertn@umich.edu300 LET G = Y 214479Sbinkertn@umich.edu310 RETURN 224479Sbinkertn@umich.edu999 END 23