Data commit

Task/Arrays/DBL/arrays.dbl

@@ -0,0 +1,52 @@
+;
+;       Arrays for DBL version 4 by Dario B.
+;
+
+.DEFINE NR,5
+
+        RECORD
+
+VNUM1,  5D8             ;array of number
+VNUM2,  [5]D8           ;array of number
+VNUM3,  [5,2]D8         ;two-dimensional array of number
+
+VALP1,  5A10            ;array of strings
+VALP2,  [5]A10          ;array of strings
+VALP3,  [5,2]A10        ;two-dimensional array of strings
+
+VALP4,  [NR]A10         ;array of strings
+
+    PROC
+;------------------------------------------------------------------
+
+        ;Valid uses of arrays
+        VNUM1(1)=12345678
+
+        VNUM2(1)=VNUM1(1)               ; = 12345678
+        VNUM2[2]=VNUM1(1)               ; = 12345678
+
+        VNUM2[3]=VNUM2[1](3:2)          ; = 34
+
+        VNUM3[1,1]=1
+        VNUM3[1,2]=2
+        VNUM3[2,1]=3
+
+
+        VALP1(1)="ABCDEFGHIJ"
+
+        VALP2(2)=VALP1(1)               ; = "ABCDEFGHIJ"
+        VALP2[2]=VALP1(1)               ; = "ABCDEFGHIJ"
+
+        VALP2[3](3:2)=VALP2[1](3:2)     ; = "  CD      "
+
+        VALP3[1,1]="ABCDEFGHIJ"
+        VALP3[1,2]=VALP3[1,1]           ;= "ABCDEFGHIJ"
+        VALP3[2,1](3:2)=VALP3[1,2](3:2) ;= "   CD      "
+
+        VALP4[1]="ABCDEFGHIJ"
+
+        ;Clear arrays
+        CLEAR VNUM1(1:5*8),VNUM3(1:5*2*8)
+        VNUM2(1:5*8)=
+        CLEAR VALP1(1:5*8),VALP2(1:5*10)
+        VALP3(1:5*2*10)=