summaryrefslogtreecommitdiff
path: root/ext/ply/example/BASIC/dim.bas
diff options
context:
space:
mode:
Diffstat (limited to 'ext/ply/example/BASIC/dim.bas')
-rw-r--r--ext/ply/example/BASIC/dim.bas14
1 files changed, 14 insertions, 0 deletions
diff --git a/ext/ply/example/BASIC/dim.bas b/ext/ply/example/BASIC/dim.bas
new file mode 100644
index 000000000..87bd95b32
--- /dev/null
+++ b/ext/ply/example/BASIC/dim.bas
@@ -0,0 +1,14 @@
+5 DIM A(50,15)
+10 FOR I = 1 TO 50
+20 FOR J = 1 TO 15
+30 LET A(I,J) = I + J
+35 REM PRINT I,J, A(I,J)
+40 NEXT J
+50 NEXT I
+100 FOR I = 1 TO 50
+110 FOR J = 1 TO 15
+120 PRINT A(I,J),
+130 NEXT J
+140 PRINT
+150 NEXT I
+999 END