10 DESTROY ALL @ RANDOMIZE @ PRINTER IS :DISPLAY
20 PWIDTH INF
30 OPTION BASE 1 @ R=15 @ C=32
40 DIM B$[R*C],X$(2)[R*C]
50 G=0
60 X$(1)="" @ X$(2)=""
70 B$=""
80 PRINT CHR$(27)&"E"&CHR$(27)&"<CONSTRUCTING BOARD..."
90 FOR I=1 TO R*C
100 B$=B$&"* "[RND+1][1,1]
110 PRINT B$[I,I];
120 NEXT I
130 PRINT CHR$(27)&"H";B$;
140 PRINT "     GENERATION #";G;CHR$(27)&"J"; @ G=G+1
150 B$=LIFE$(B$,C,1)
160 IF B$#X$(1) AND B$#X$(2) THEN X$(2)=X$(1) @ X$(1)=B$ @ GOTO 130
170 PRINT CHR$(27)&"%"&CHR$(0)&CHR$(15)&"STABLE AT GENERATION #";G-1;
180 END