10PRINT"{CLEAR}{RVS ON}  CONWAY'S GAME OF LIFE  "
20PRINT:PRINT"IN MEMORIAM JOHN H CONWAY"
25PRINT"26 DEC 1937 - 11 APR 2020":PRINT
30INPUT"WIDTH, HEIGHT (EG, 8,8)";W,H
40IF W<4 THEN W=4
50IF W>39 THEN W=39
60IF H<4 THEN H=4
70IF H>24 THEN H=24
80PRINT:PRINT"PROPABILITY OF INITIAL POPULATION:":INPUT"(0>P<1)  0.5{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}";P
90IF P<=0 OR P>=1 THEN P=0.5
100G=0:A=0:W=W+1:H=H+1:D1=W+1:D2=W-1:K=0:GN=1:XM=W-1:YM=W*H-W:R=40:N=0
110DIM M%(1,W*H+W):V=32768:PRINT"{CLEAR}"
120FORY=WTOYM STEPW:FORX=1TOXM:M%(0,Y+X)=RND(0)<P:NEXT:NEXT
130PRINT"{HOME}GEN.:";N
140P=V+R-1:FORY=WTOYM STEPW:FORX=1TOXM:POKEP+X,32-M%(G,Y+X)*49:NEXT:P=P+R:NEXT
150P=0:FORY=WTOYM STEPW:FORX=1TOXM:A=Y+X
160K=M%(G,A-D1)+M%(G,A-W)+M%(G,A-D2)+M%(G,A-1)+M%(G,A+1)
170K=K+M%(G,A+D2)+M%(G,A+W)+M%(G,A+D1):M%(GN,A)=(K=-2ANDM%(G,A)=-1)ORK=-3
180P=P+M%(GN,A):NEXT:NEXT:G=GN:GN=1-G:N=N+1:IFP<0THEN130
190PRINT"{CLEAR}NO LIFE DETECTED AT GEN.";N:PRINT
200INPUT"DO YOU WANT TO START OVER (Y/N)  Y{LEFT}{LEFT}{LEFT}";K$
210IF LEFT$(K$,1)="Y" THEN CLR:GOTO 10
220END