cell.fc

1.1 S OLD(2)=1; S OLD(3)=1; S OLD(4)=1; S OLD(6)=1; S OLD(7)=1
1.2 S OLD(9)=1; S OLD(11)=1; S OLD(13)=1; S OLD(15)=1; S OLD(18)=1
1.3 F N=1,10; D 2
1.4 Q

2.1 F X=1,20; D 3
2.2 F X=1,20; D 6
2.3 F X=1,20; S OLD(X)=NEW(X)
2.4 T !

3.1 I (OLD(X-1)+OLD(X)+OLD(X+1)-2)4.1,5.1,4.1

4.1 S NEW(X)=0

5.1 S NEW(X)=1

6.1 I (-OLD(X))7.1,8.1,8.1

7.1 T "#"

8.1 T "."