summaryrefslogtreecommitdiffstats
path: root/third_party/python/ply/example/BASIC/gosub.bas
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/python/ply/example/BASIC/gosub.bas')
-rw-r--r--third_party/python/ply/example/BASIC/gosub.bas13
1 files changed, 13 insertions, 0 deletions
diff --git a/third_party/python/ply/example/BASIC/gosub.bas b/third_party/python/ply/example/BASIC/gosub.bas
new file mode 100644
index 0000000000..99737b16f1
--- /dev/null
+++ b/third_party/python/ply/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