arraybase 1
dim start = {0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,0}
dim sgtes(start[?]+1)

for k = 0 to 9
    print "Generation "; k; ": ";
    for j = 0 to start[?]-1

        if start[j] then print "#"; else print "_";
        if start[j-1] + start[j] + start[j+1] = 2 then sgtes[j] = 1 else sgtes[j] = 0
    next j
    print
    for j = 0 to start[?]-1
        start[j] = sgtes[j]
    next j
next k