mirror of
https://github.com/servo/servo.git
synced 2025-08-05 21:50:18 +01:00
8be014ee46
This directory now contains third_party software that is vendored into the Servo source tree. The idea is that it would eventually hold webrender and other crates from mozilla-central as well with a standard patch management approach for each.
22 lines
359 B
QBasic
22 lines
359 B
QBasic
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
|