new tasks

Task/Arrays/BASIC/arrays-2.bas

@@ -0,0 +1 @@
+ DIM myArray(-10 TO 10) AS INTEGER

Task/Arrays/BASIC/arrays-3.bas

@@ -0,0 +1,6 @@
+ 'Specify that the array is dynamic and not static:
+ '$DYNAMIC
+ DIM SHARED myArray(-10 TO 10, 10 TO 30) AS STRING
+ REDIM SHARED myArray(20, 20) AS STRING
+ myArray(1,1) = "Item1"
+ myArray(1,2) = "Item2"

Task/Arrays/BASIC/arrays-4.bas

@@ -0,0 +1,6 @@
+ DIM month$(12)
+ DATA January, February, March, April, May, June, July
+ DATA August, September, October, November, December
+ FOR m=1 TO 12
+    READ month$(m)
+ NEXT m

Task/Arrays/BASIC/arrays-5.bas

@@ -0,0 +1 @@
+ Dim myArray(1 To 2, 1 To 5) As Integer => {{1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}}

Task/Arrays/BASIC/arrays-6.bas

@@ -0,0 +1,7 @@
+10 REM TRANSLATION OF QBASIC STATIC VERSION
+20 REM ELEMENT NUMBERS TRADITIONALLY START AT ONE
+30 DIM A%(11): REM ARRAY OF ELEVEN INTEGER ELEMENTS
+40 LET A%(1) = -1
+50 LET A%(11) = 1
+60 PRINT A%(1), A%(11)
+70 END

Task/Arrays/BASIC/arrays-7.bas

@@ -0,0 +1,6 @@
+DIM staticArray(10) AS INTEGER
+
+staticArray(0) = -1
+staticArray(10) = 1
+
+PRINT staticArray(0), staticArray(10)

Task/Arrays/BASIC/arrays-8.bas

@@ -0,0 +1,9 @@
+REDIM dynamicArray(10) AS INTEGER
+
+dynamicArray(0) = -1
+PRINT dynamicArray(0)
+
+REDIM dynamicArray(20)
+
+dynamicArray(20) = 1
+PRINT dynamicArray(0), dynamicArray(20)

Task/Arrays/BASIC/arrays.bas

@@ -0,0 +1,2 @@
+ OPTION BASE 1
+ DIM myArray(100) AS INTEGER