Evolution 2 119
780 DATA 2,6,2,8,2,15,2,17,2,24,2,26,3,6 ,3,7,3,15,3,17,3,25,3,26,9,15,9,17,10,1, 10,2,10,14,10,18,10,30,10,31,12,1,12,2,1 2,14,12,18,12,30,12,31,13,15,13,17,21,4, 21,5,21,15,21,17,21,26,21,27,22,4,22,6,2 2,15,22,17,22,26,22,28
790 LOCATE 2,1:PEN 2:PRINT"LIVES: ";CHR$ (247);CHR$(247);
800 AS=":FOR KK=239 TO 246:AS=Afi+CHRS(K K):NEXT:C=0:A=1:S=0
sio K=0
820 LOCATE 22,1:PEN 2:PRINT"ATTEMPTS:"01 IDI:(STRS(C),2);:PEN 1:IF C=30 THEN 1170 830 KK=INT(RND*8)+1:0N KK GOSUB 970,980, 990,1000,1010,1020,1030,1040
840 REM
850 LOCATE X+1,Y+1:PRINT" ";:Y=Y+DY:X=X+ DX: LOCATE X+1,Y+1:PRINT CHR$(247);
860 FOR rx=1 TO 2
e70 LOCATE 16,1I:PRINT MIDS(A$,A,1); Eleo IF Y=10 THEN IF X=15 THEN 1130
890 IF S<>0 THEN LOCATE G+1,F+1:PRINT" ;: F=F+DY2:G=G+DX2:F=-(F<1)-21*(F>21)-F* (F>=1 AND F(=21):G=-(G<I)-31*(G>31)-G*(G ./-=-1 AND G<=3I):LOCATE G+1,F+1:PRINT B$
900 IF S<>0 THEN IF (F=Y AND X=G) OR (F+ DY2=Y AND G+DX2=X) THEN LOCATE G+1,F+1:P RINI" ";:LOCATE X+1,Y+1:PRINT" ";:S=0:C= C+1:GOTO 820
910 SOUND I,100-Y+X,3
920 IF INKEY(47)=0 THEN IF S=0 THEN BS=M ID$(A$,A,1):F=10:G=15:S=1:0N A GOSUB 105
0,1060,1070,1060,1090,1100,1110,1120
930 A=A-(INKEY(1)=0 AND A<8)+7*(INKEY(1) =0 AND A=8)+(INKEY(8)=0 AND A>1)-7*(INKE Y(8)=0 AND A=1)
940 IF INKEY(47)=0 THEN IF S=0 THEN BS=M ID$(A$,A,1):F=10:G=15:S=1:0N A GOSUB 105
0,1060,1070,1080,1090,1100,1110,1120 950 FOR ZZ=1 TO 20:NEXT:SOUND 1,30,2
960 NEXT rx:GOTO 840
970 Y=Q:X=6:DY=Q:DX=Q:RETURN 980 Y=Q:X=15:DY=Q:DX=0:RETURN