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
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| README | File | 2.45 KB | 0644 |
|
| basic.py | File | 1.5 KB | 0644 |
|
| basiclex.py | File | 1.15 KB | 0644 |
|
| basiclog.py | File | 1.65 KB | 0644 |
|
| basinterp.py | File | 16.88 KB | 0644 |
|
| basparse.py | File | 8.69 KB | 0644 |
|
| dim.bas | File | 224 B | 0644 |
|
| func.bas | File | 73 B | 0644 |
|
| gcd.bas | File | 359 B | 0644 |
|
| gosub.bas | File | 216 B | 0644 |
|
| hello.bas | File | 57 B | 0644 |
|
| linear.bas | File | 420 B | 0644 |
|
| maxsin.bas | File | 217 B | 0644 |
|
| powers.bas | File | 268 B | 0644 |
|
| rand.bas | File | 60 B | 0644 |
|
| sales.bas | File | 375 B | 0644 |
|
| sears.bas | File | 481 B | 0644 |
|
| sqrt1.bas | File | 78 B | 0644 |
|
| sqrt2.bas | File | 56 B | 0644 |
|