Mercurial > repo
annotate ply-3.8/example/BASIC/gcd.bas @ 12264:5430316485e2 draft
<oerjan> t mkx bin/fnord//echo \'? No such file or directory\'
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 15 Dec 2019 21:57:09 +0000 |
parents | 343ff337a19b |
children |
rev | line source |
---|---|
7267 | 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 |