24 lines
337 B
QBasic
24 lines
337 B
QBasic
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 |