100  REM MLIFE (MOD'D SIM)
110  DIM A[35,20],B[35,20]
120  PRINT
130  MAT A=ZER
140  MAT B=ZER
150  G=B=D=0
160  FOR X=2 TO 34
170  FOR Y=2 TO 19
180  A[X,Y]=INT(RND(1)*2)
190  NEXT Y
200  NEXT X
210  PRINT "'27E CONWAY'S GAME OF LIFE";
220  PRINT "     CONTROL-SPACE TO STOP"
230  PRINT "'27H"
240  PRINT ".---------------------------------";
250  PRINT "----------------------------------."
260  FOR Y=2 TO 19
270  PRINT ": ";
280  FOR X=2 TO 34
290  IF A[X,Y]=1 THEN 320
300  PRINT "  ";
310  GOTO 330
320  PRINT "O ";
330  NEXT X
340  PRINT ":"
350  NEXT Y
360  PRINT "`---------------------------------";
370  PRINT "----------------------------------'"
380  PRINT " GENERATION:";G;"    ";
390  L=B
400  B=0
410  FOR X=2 TO 34
420  FOR Y=2 TO 19
430  C=A[X-1,Y-1]
440  C=C+A[X,Y-1]
450  C=C+A[X+1,Y-1]
460  C=C+A[X-1,Y]
470  C=C+A[X+1,Y]
480  C=C+A[X-1,Y+1]
490  C=C+A[X,Y+1]
500  C=C+A[X+1,Y+1]
510  GOTO C-1 OF 540,560
520  B[X,Y]=0
530  GOTO 570
540  B[X,Y]=A[X,Y]
550  GOTO 570
560  B[X,Y]=1
570  IF B[X,Y]=1 THEN 590
580  GOTO 600
590  B=B+1
600  NEXT Y
610  NEXT X
620  MAT A=B
630  G=G+1
640  IF L#B THEN 680
650  D=D+1
660  IF D>9 THEN 120
670  GOTO 230
680  D=0
690  GOTO 230
700  END
