Data update

Task/Nested-templated-data/FreeBASIC/nested-templated-data.basic

@@ -0,0 +1,26 @@
+Dim As Integer t(2, 3) = {{1,2},{3,4,1},{5}}
+Dim As Integer i, j, p(6)
+Dim As String pStr(6) = {"Payload#0", "Payload#1", "Payload#2", "Payload#3", "Payload#4", "Payload#5", "Payload#6"}
+Dim As Boolean q(6)
+
+For i = Lbound(t) To Ubound(t)
+    For j = Lbound(t, 2) To Ubound(t, 2)
+        If t(i, j) <> 0 Then
+            q(t(i, j)) = True
+            t(i, j) += 1
+        End If
+    Next j
+Next i
+
+For i = Lbound(t) To Ubound(t)
+    For j = Lbound(t, 2) To Ubound(t, 2)
+        If t(i, j) <> 0 Then Print pStr(t(i, j)-1); " ";
+    Next j
+    Print
+Next i
+
+For i = Lbound(q) To Ubound(q)
+    If q(i) = False Then Print pStr(i); " is not used"
+Next i
+
+Sleep