From 32309e019f2ff7d9f69f3e0016f67439e81b8b30 Mon Sep 17 00:00:00 2001
From: Louis Burda <quent.burda@gmail.com>
Date: Sat, 30 Mar 2024 15:37:05 +0100
Subject: Rename to solve

---
 solve/ply-2.2/example/BASIC/gosub.bas | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 solve/ply-2.2/example/BASIC/gosub.bas

(limited to 'solve/ply-2.2/example/BASIC/gosub.bas')

diff --git a/solve/ply-2.2/example/BASIC/gosub.bas b/solve/ply-2.2/example/BASIC/gosub.bas
new file mode 100644
index 0000000..99737b1
--- /dev/null
+++ b/solve/ply-2.2/example/BASIC/gosub.bas
@@ -0,0 +1,13 @@
+100 LET X = 3
+110 GOSUB 400
+120 PRINT U, V, W
+200 LET X = 5
+210 GOSUB 400
+220 LET Z = U + 2*V + 3*W
+230 PRINT Z
+240 GOTO 999
+400 LET U = X*X
+410 LET V = X*X*X
+420 LET W = X*X*X*X + X*X*X + X*X + X
+430 RETURN
+999 END
-- 
cgit v1.2.3-71-gd317