15 lines
362 B
Text
15 lines
362 B
Text
start$ = "0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,0"
|
|
|
|
dim x$(1)
|
|
|
|
for k = 1 to 10
|
|
n = token(start$, x$(), ",")
|
|
redim x$(n+1)
|
|
start$ = ""
|
|
for j = 1 to n
|
|
if val(x$(j)) then print "#"; else print "_"; end if
|
|
test = abs(val(x$(j-1)) + val(x$(j)) + val(x$(j+1)) = 2)
|
|
start$ = start$ + str$(test) + ","
|
|
next j
|
|
print
|
|
next k
|