10 REM ENDLESS RULE 30
20 W=78
30 DIM A(79),B(79)
40 FOR I=1 TO W
50 A(I)=INT(RND(1)*2)
60 NEXT I
70 E$=CHR$(27)
80 PRINT E$;"[2J";E$;"[H";

90 A(0)=A(W)
100 A(W+1)=A(1)

110 FOR I=1 TO W
120 POKE 48128,32+10*A(I)
130 B(I)=ABS(A(I-1)-(A(I) OR A(I+1)))
140 NEXT I

150 POKE 48128,10

160 FOR I=1 TO W
170 A(I)=B(I)
180 NEXT I

190 GOTO 90