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