10 COLOR 1,15,8:SCREEN2:C=120:O=RND(-TIME)
20 DIM P(300,2),L(300,2)
30 P(1,1)=10:P(1,2)=170:P(2,1)=240:P(2,2)=170:L(1,1)=1:L(1,2)=2:PTS=2:LNS=1:J=PTS:K=LNS
40 FOR I=1 TO LNS:J=J+1:K=K+1:S=LNS
50 IF I=1 THEN P1=J-1:P2=K-1:DIM Q3(S),Q4(S),Q5(S),Q6(S)
60 A=L(I,1):B=L(I,2):X1=P(A,1):Q3(I)=X1:Y1=P(A,2):Q4(I)=Y1
70 X2=P(B,1):Q5(I)=X2:Y2=P(B,2):Q6(I)=Y2:LINE(X1,Y1)-(X2,Y2):IF I=<A5 THEN GOSUB 140
80 A1=RND(1):P(J,1)=(X1+X2)/2:P(J,2)=(Y1+Y2)/2-C*A1:L(I,2)=J:L(K,1)=J:L(K,2)=B:A6=A6+1:IF A6=1 THEN DIM X3(S),Y3(S),X4(S),Y4(S)
90 NEXT:ERASE X3,X4,Y3,Y4:GOSUB 110:ERASE Q3,Q4,Q5,Q6
100 PTS=J:LNS=K:C=C/1.8:F=F+1:ANQ$=INKEY$:IF ANQ$="p" THEN GOTO 150
105 IF F<6THEN GOTO 40 ELSE F=0:C=130*RND(1):GOTO 30
110 J=P1:K=P2:FOR I=1 TO LNS:J=J+1:K=K+1:S=LNS:A5=S
120 FOR I=1 TO LNS:J=J+1:K=K+1:A5=LNS:IF I=1 THEN DIM X3(S),X4(S),Y3(S),Y4(S)
130 X3(I)=Q3(I):Y3(I)=Q4(I):X4(I)=Q5(I):Y4(I)=Q6(I):NEXT:RETURN
140 LINE(X3(I),Y3(I))-(X4(I),Y4(I)),15:RETURN
150 GOTO 150
160 MEE$=INKEY$:IF MEE$="" THEN 160 ELSE GOTO 105