annotate ply-3.8/example/BASIC/gcd.bas @ 11242:b5782aaf3f99
<shachaf> slwd mothology//s.myths.&, mouths,.
author |
HackBot |
date |
Mon, 20 Nov 2017 00:19:01 +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
|