00005 DIM V(512)
00010 B=0:GOSUB 900
00015 B=B+1:GOSUB 800
00020 GOSUB 700
00070 M=0
00080 N=0
00090 A=0
00100 I=M-1
00110 J=N-1
00120 GOSUB 200:J=J+1:IF J<=N+1 THEN 120
00130 I=I+1: IF I<=M+1 THEN 110
00140 GOSUB 300
00150 N=N+1:IF N<=15 THEN 90
00160 M=M+1:IF M<=15 THEN 80
00170 GOTO 15
00200 IF I=M IF J=N RETURN
00205 K=I+16:L=J
00210 IF K<16 K=31
00215 IF K>31 K=16
00220 IF J<0 L=15
00225 IF J>15  L=0
00230 A=A+V(16*K+L)
00240 RETURN
00300 IF V(16*M+N)=0 IF A=3 V(16*M+N)=1
00305 IF V(16*M+N)=1 IF A<2 V(16*M+N)=0
00310 IF V(16*M+N)=1 IF A>3 V(16*M+N)=0
00315 RETURN
00700 I=16:J=0
00705 C=0
00710 V(16*I+C)=V(16*J+C):C=C+1:IF C<15 THEN 710
00715 I=I+1:J=J+1:IF J<15 THEN 705
00720 RETURN
00800 PRINT
00810 M=0
00815 N=0
00820 IF V(16*M+N)=0 PRINT " ";:GOTO 830
00825 PRINT "*";
00830 N=N+1:IF N<15 THEN 820
00835 PRINT
00840 M=M+1: IF M<15 THEN 815
00845 PRINT "GEN ";B
00850 RETURN
00900 I=5:J=7:V(16*I+J)=1
00910 I=6:J=6:V(16*I+J)=1:J=7:V(16*I+J)=1:J=8:V(16*I+J)=1
00920 I=7:J=6:V(16*I+J)=1:J=8:V(16*I+J)=1
00930 I=8:J=6:V(16*I+J)=1:J=7:V(16*I+J)=1:J=8:V(16*I+J)=1
00940 I=9:J=7:V(16*I+J)=1
00950 RETURN