1 &(9)=50;clear ;print "LIFE SYNTHESIS
   3 B=0;D=0;Z=1;E=36;F=75;I=0;H=39;Q=0;T=0;S=0;R=0;L=0;M=0;N=0;P=9;O=0
   5 print ;print "input (X,Y)for 9 CELLS
  10 for A=1to 9;print #1,"CELL#",A;input "X"@(A)
  15 input "Y"@(A+10);next A;W=118
  20 clear ;box 56,19,48,48,1;box 56,19,46,46,2
  21 for G=36to 76step 10;box G,41,1,1,1;box G,-4,1,1,1;next G
  22 for U=0to 40step 10;box 33,U,1,1,1;box 78,U,1,1,1;next U
  25 CX=-77;CY=-16;print #1,"POPULATION=",P
  30 for A=1to 9;box @(A),@(A+10),1,1,1;next A
  40 if Qif T E=36;F=75;goto 50
  41 if Qif T=0if S E=36;F=66;goto 50
  42 if Qif T=0if S=0if R E=36;F=56;goto 50
  43 if Qif T=0if S=0if R=0E=36;F=46;goto 50
  44 if Q=0if Rif T E=46;F=75;goto 50
  45 if Q=0if Rif Sif T=0E=46;F=66;goto 50
  46 if Q=0if Rif S=0if T=0E=46;F=56;goto 50
  47 if Q=0if R=0if Sif T E=56;F=75;goto 50
  48 if Q=0if R=0if S=0if T E=66;F=75;goto 50
  49 if Q=0if R=0if Sif T=0E=56;F=66
  50 Q=0;R=0;S=0;T=0
  51 if Lif O H=39;I=0;goto 61
  52 if Lif O=0if N H=39;I=10;goto 61
  53 if Lif O=0if N=0if M H=39;I=20;goto 61
  54 if Lif O=0if N=0if M=0H=39;I=30;goto 61
  55 if L=0if Mif O H=30;I=0;goto 61
  56 if L=0if Mif Nif O=0H=30;I=10;goto 61
  57 if L=0if Mif N=0if O=0H=30;I=20;goto 61
  58 if L=0if M=0if Nif O H=20;I=0;goto 61
  59 if L=0if M=0if N=0if O H=10;I=0;goto 61
  60 if L=0if M=0if Nif O=0H=20;I=10
  61 L=0;M=0;N=0;O=0
  80 &(0)=116;&(1)=116;&(2)=118;&(3)=118
  81 BC=116;FC=114;&(9)=27
  90 CY=40;print "CURRENT
  99 CY=32;print #1,"GENERATION#",Z
 100 for X=Eto F;for Y=Hto Istep -1
 103 box X,43,1,1,1;box 31,Y,1,1,1
 110 if PX(X,Y)=0gosub 500
 120 if PX(X,Y)gosub 600
 130 next Y;box 31,19,1,48,2;next X;box 55,43,48,1,2;Z=Z+1;goto 40
 500 C=0;gosub 1000
 510 if C=3&(2)=147;&(3)=147;box X,Y,1,1,1;B=B+1;CY=24;print #1,"BIRTHS=",B;C=0;P=P+1;&(2)=W;&(3)=W;gosub 2000;return 
 520 C=0;return 
 600 C=0;gosub 1000
 610 if (C>3)+(C<2)&(2)=90;&(3)=90;box X,Y,1,1,2;D=D+1;CY=16;print #1,"DEATHS=",D;C=0;P=P-1;&(2)=W;&(3)=W;gosub 2000;return 
 615 if X<46Q=1
 616 if X<56if X>45R=1
 617 if X<66if X>55S=1
 618 if X>65T=1
 619 if Y>29L=1
 620 if Y>19if Y<31M=1
 621 if Y>9if Y<21N=1
 622 if Y<11O=1
 630 C=0;return 
1000 C=0;if PX(X,Y-1)C=C+1
1010 if PX(X-1,Y-1)C=C+1
1020 if PX(X-1,Y)C=C+1
1030 if PX(X-1,Y+1)C=C+1
1040 if PX(X,Y+1)C=C+1
1050 if PX(X+1,Y+1)C=C+1
1060 if PX(X+1,Y)C=C+1
1070 if PX(X+1,Y-1)C=C+1
1080 return 
2000 NT=0;CX=-11;CY=-16;print #1,P,"  ";NT=3
2010 if P=0;CY=-24;print "COLONY";print "TERMINATED";STOP
2015 return 
:return ;TV=13;NT=3;run