From 4007ea18f294aefb6128cbe82c5446cd8cb72c50 Mon Sep 17 00:00:00 2001
From: Louis Burda <quent.burda@gmail.com>
Date: Thu, 14 Mar 2024 21:30:16 +0100
Subject: Add solution

---
 chall/ply-2.2/example/BASIC/gcd.bas | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 chall/ply-2.2/example/BASIC/gcd.bas

(limited to 'chall/ply-2.2/example/BASIC/gcd.bas')

diff --git a/chall/ply-2.2/example/BASIC/gcd.bas b/chall/ply-2.2/example/BASIC/gcd.bas
new file mode 100644
index 0000000..d0b7746
--- /dev/null
+++ b/chall/ply-2.2/example/BASIC/gcd.bas
@@ -0,0 +1,22 @@
+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
-- 
cgit v1.2.3-71-gd317