Mercurial > repo
annotate ply-3.8/example/BASIC/gcd.bas @ 11979:f04a3527bfa9 draft
<kspalaiologos> learn the bfasm The brainfuck assembler. Documentation and samples: https://raw.githubusercontent.com/KrzysztofSzewczyk/asmbf/master/doc/bfasm.doc
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 23 Oct 2019 17:51:27 +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 |