10 'CONWAY'S GAME OF LIFE BY D10D3 2017
20 SCREEN 0,0:CLS
30 PRINT@88,"CONWAY'S GAME OF LIFE";
40 PRINT@281,"(UP TO 5 DIGITS)";
50 PRINT@240," ";
60 INPUT"ENTER RANDOM SEED";SEED%
70 DIM GRID$(320)
80 DIM RGRID$(401) 'REFERENCE GRID
90 GRID$(319)=" ":GRID$(320)=" "
100 GEN=INT(RND(SEED%*-2))
110 FOR I=0TO318
120 PRINT@I,"*";
130 GEN=INT(RND(1)*2)
140 IF GEN=1 THEN GRID$(I)="O"
150 IF GEN=0 THEN GRID$(I)=" "
160 PRINT@I,GRID$(I);
170 NEXT I
180 '***START LIFE LOOP***
190 'COPY CURRENT GRID TO REFERENCE
200 S=361
210 FOR I=0TO39
220 RGRID$(S)=GRID$(I)
230 S=S+1
240 NEXT I
250 S=1
260 FOR I=280TO319
270 RGRID$(S)=GRID$(I)
280 S=S+1:NEXT I
290 S=41
300 FOR I=0TO319
310 RGRID$(S)=GRID$(I)
320 S=S+1:NEXT I
330 RGRID$(0)=GRID$(319)
340 '***START LIFE RULES***
350 S=41
360 FOR I=0 TO 318
370 PRINT@I,"*";
380 N=0 'NEIGHBORS
390 IF RGRID$(S-1)="O"THEN N=N+1
400 IF RGRID$(S+1)="O"THEN N=N+1
410 IF RGRID$(S-40)="O" THEN N=N+1
420 IF RGRID$(S-41)="O"THEN N=N+1
430 IF RGRID$(S-39)="O"THEN N=N+1
440 IF RGRID$(S+40)="O"THEN N=N+1
450 IF RGRID$(S+39)="O"THEN N=N+1
460 IF RGRID$(S+41)="O"THEN N=N+1
470 IF N<2 THEN GRID$(I)=" "
480 IF N>3 THEN GRID$(I)=" "
490 IF GRID$(I)=" "AND N=3 THEN GRID$(I)="O"
500 S=S+1
510 PRINT@I,GRID$(I);
520 NEXT I
530 GOTO 180