Evolution 1 111
760 X=15:Y(1)=INT(RND*6)+13:X(1)=0:Y(2)= 0:X(2)=30:Y(3)=Y(2):X(3)=X(2):F=0
770 PLOT 64,62:DRAWR 510,0,3
780 IF Y(1)<5 THEN Y(1)=5
790 LOCATE 16,1:PRINT F;:LOCATE X+1,20:P EN 3-PRINT" ";CHR$(235);CHR$(236);" ";:L OCATE X+1,21:PRINT" ";CHR$(237);CHR$(238 );" ";:PEN 1:LOCATE X(1)+1,Y(1)+1:PRINT CHR$(239);
800 LOCATE X(3)+1,Y(3)+1:PRINT" ";:LOCA TE X(2)+1,Y(2)+1:PEN 2:PRINT CHR$(240);C HR$(241);:PEN 1
910 Y(3)=Y(2):X(3)=X(2)
820 IF INKEY(9)=0 THEN GOSUB 910
830 IF INKEYS<>" THEN SOUND 1,180,3:SOU ND 1,120,3:SOUND 1,90,3
Eme IF (X(2)=X+2 OR X(2)=X+1) AND Y(2)=1 8 THEN GOTO 970
850 IF Y(2)=18 THEN LOCATE X(2)+1,Y(2)+1 :PRINT" ";:Y(2)=0:X(2)=X+12:IF X(2)>30 THEN X(2)=30
860 IF X(1)>29 THEN LOCATE X(1),Y(1):PRI NT" ";:X(1)=0:Y(1)=INT(RND*6+13)
870 LOCATE X(1)+1,Y(1)+1:PRINT" ";:LOCAT E X(2)+1,Y(2)+1:PRINT"	";
880 Y(2)=Y(2)+2:x(2)--x(2)-(x(2)-(x+1)+(x( 2) >x+1):Y(1)--y(1)+INT(0.5+RND*2-RND*2):x
(1)=X(1)+INT(RND*1.5):IF Y(1)>20 THEN Y( 1)=14
890 X=X+(INKEY(8)=0 AND X>0)-(INKEY(1)=0 AND X<28)
900 GOTO 780
910 PLOT X*16+92,88,3:DRAWR 0,114,3 920 SOUND 1,200,3:SOUND 1,120,3
930 PLOT X*16+92,88,0:DRAWR 0,114,0
940 IF X(1)=X+1 AND Y(1)<19 AND Y(1)>9 T HEN F=F+1:LOCATE X(1)+1,Y(1)+1:PRINT "
X(1)=0:Y(1)=INT(RND*6+13):SOUND 1,30,4 950 IF F=5 THEN CLS:FOR 6=1 TO 3:FOR F=1
TO 10:ENT 1,100,-F,3:SOUND 1,100,7,7,0, 1:NEXT F,G:PRINT:PRINT"Well done! You co nsumed 5 fliesand can therefore evolve to the next stage.":FOR ss=1 TO 1500:NEX T:GOTO 1330