Evolution 2 117
310 B=40:8=0
320 BY=INT(RND*15+2):BX=INT(RND*26+2) 330 LOCATE BX+1,BY+1:CALL 360:KK=PEEK(36 7):IF KK<>32 THEN 320
340 LOCATE BX+1,BY+1:PRINT CHR$(235); 350 LOCATE 4,1:PRINT MID$(STR$(B),2);:LO GATE 29,1:PRINT MID$(STR$(S),2);
360 LOCATE X1+1,Y1+1:PRINT" ";:LOCATE X 1+1,Y1+2:PRINT" ";:LOCATE X+1,Y+1:PRINT
CHR$(231);CHR$(232);:LOCATE X+1,Y+2:PRI NT CHR$(233);CHR$(234);:LOCATE G1+1,F1+1 :PEN 3:PRINT CHR$(MK);:PEN 1
370 LOCATE 6+1,F+1:CALL 360:MK=PEEK(367) :IF MK<>237 AND MK<>149 THEN MK=32
380 LOCATE 6+1,F+1:PRINT CHR$(236);:LOCA TE BX+1,BY+1:PRINT CHR$(235);
390 IF Y=BY THEN IF X=BX OR X+1=BX THEN GOSUB 480
400 IF F=BY THEN IF G=BX THEN B=B-1:LOCA TE 4,1:PRINT" ";:LOCATE 4,1:PRINT M1D$( STR$(B),2);:SOUND 1,60,3:GOSUB 500
410 Y1=Y:X1=X
420 F1=F:G1=G
430 Y=Y-(INKEY(2)=0 AND Y<18)+(INKEY(0)= 0 AND Y>2):X=X-(INKEY(1)=0 AND X<28)+(IN KEY(8)=0 AND )02)
440 LOCATE X+1,Y+1:CALL 360:K(1)=PEEK(36 7):LOCATE X+1,Y+2:CALL 360:K(2)= PEEK(36 7):LOCATE X+2,Y+1:CALL 360:K(3)=PEEK(367 ):LOCATE X+2,Y+2:CALL 360:K(4)=PEEK(367) FOR KK=1 TO 4:IF K(KK)=32 OR (K(KK)>230
AND K(KK)<236) THEN NEXT KK ELSE Y=Y1:X =X1
450 F=F-(F<BY)+(F>BY):G=G-(G<BX)+(G>BX) 460 REM
470 GOTO 360
480 S=S+1:B=B-1:LOCATE 4,1:PRINT" ";:LO GATE 4,I:PRINT MID$(STR$(B),2);:LOCATE 2 9,1:PRINT MID$(STR$(5),2);
490 SOUND 1,90,3
500 IF S=6 THEN 590
510 IF B=0 THEN 560
520 BY=INT(RND*15)+2:BX=INT(RND*26+2) 530 LOCATE BX+1,BY+1:CALL 360:W=PEEK(36 7):IF KK<>32 THEN 520