Mercurial > repo

comparison ply-3.8/example/BASIC/gcd.bas @ 7267:343ff337a19b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<ais523> ` tar -xf ply-3.8.tar.gz
author HackBot
date Wed, 23 Mar 2016 02:40:16 +0000
parents
children
comparison
equal deleted inserted replaced
7266:61a39a120dee 7267:343ff337a19b
1 10 PRINT "A","B","C","GCD"
2 20 READ A,B,C
3 30 LET X = A
4 40 LET Y = B
5 50 GOSUB 200
6 60 LET X = G
7 70 LET Y = C
8 80 GOSUB 200
9 90 PRINT A, B, C, G
10 100 GOTO 20
11 110 DATA 60, 90, 120
12 120 DATA 38456, 64872, 98765
13 130 DATA 32, 384, 72
14 200 LET Q = INT(X/Y)
15 210 LET R = X - Q*Y
16 220 IF R = 0 THEN 300
17 230 LET X = Y
18 240 LET Y = R
19 250 GOTO 200
20 300 LET G = Y
21 310 RETURN
22 999 END