21 lines
358 B
Text
21 lines
358 B
Text
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 "."
|