Initial data commit

Task/Balanced-brackets/Run-BASIC/balanced-brackets.basic

@@ -0,0 +1,21 @@
+dim brk$(10)
+brk$(1)  = "[[[][]]]"
+brk$(2)  = "[[[]][[[][[][]]]]]"
+brk$(3)  = "][][]][["
+brk$(4)  = "[][][]"
+brk$(5)  = "[][]][]][[]]][[["
+brk$(6)  = "]][[[[]]]][]]][[[["
+brk$(7)  = "[[][[[]]][]]"
+brk$(8)  = "[]][][][[[]]"
+brk$(9)  = "][]][["
+brk$(10) = "[]][][][[]"
+
+for i = 0 to 10
+  b$ = brk$(i)
+  while instr(b$,"[]") <> 0
+    x = instr(b$,"[]")
+    if x > 0 then b$ = left$(b$,x - 1) + mid$(b$,x + 2)
+  wend
+  if trim$(b$) = "" then print "    OK "; else print "Not OK ";
+  print brk$(i)
+next i