22 lines
500 B
Plaintext
22 lines
500 B
Plaintext
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
|