Data commit

Task/Arrays/OxygenBasic/arrays.basic

@@ -0,0 +1,22 @@
+'CREATING A STATIC ARRAY
+float fs[100]
+
+'SETTING INDEX BASE
+indexbase 1 'default
+
+'FILLING PART OF AN ARRAY
+fs[20]={2,4,6,8,10,12}
+
+'MAPPING AN ARRAY TO ANOTHER
+float *g
+@g=@fs[20]
+print g[6] 'result 12
+
+'DYNAMIC (RESIZEABLE) ARRAYS
+redim float fd(100)
+fd={2,4,6,8}               'assign some values
+redim float fd(200)        'expand array
+print fd(2)                'original values are preserved by default
+redim float fd(200) clear  'array elements are cleared
+print fd(2)                'value set to 0.0
+redim float fd(0)          'release allocated memory          '