Evolution 1 109 280 SYMBOL 232,0,24,36,90,90,36,24,0 290 SYMBOL 233,0,73,42,28,127,28,42,73 7.00 SYMBOL 234,0,60,66,145,133,145,66,60 310 GOTO 150 320 BORDER 0:INK 0,0:INK 1,24:INK 2,20:1 NK ,6: WINDOW #0,5,36,1,25:PAPER #0,0:PE N #0,1:CLS #0 330 AY=15:AX=14:A$=CHR$(232)+CHR$(232)+C HR$(233)+CHR$(233)+CHR$(234)+CHR$(234) 340 T=150:SC=0 350 FOR F=1 TO 6:Y(F)=INT(RND*22):X(F)=I NT(RND*32):LOCATE X(F)+1,Y(F)+1:PRINT MI D$(A$,F,1);:NEXT 360 PEN 3:LOCATE AX+1,AY+1:PRINT CHR$(23 1);:PEN 1 370 FOR F=1 TO 5 STEP 2:FOR I=F TO F+1 380 LOCATE X(I)+1,Y(I)+1:PRINT" ":Y(I)=I NT(Y(I)+RND*2-RND*2):X(I)=INT(X(I)+RND*3 -RND*3) 390 IF F-(5 THEN Y(I)=Y(I)-(Y(I)(AY)+(Y(I )>AY):X(I)=X(I)-(X(I)AX) 400 IF Y(I)21 THEN Y(I)=11 410 IF X(I)31 THEN X(I)=15 420 LOCATE X(I)+1,Y(I)+1:PRINT MID$(A$,I 0); 430 LOCATE AX+1,AY+1:PRINT" "; 440 AY=AY-(INKEY(2)=0 AND AY<21)+(INKEY( 0)=0 AND AY }A) 450 AX=AX-(INKEY(1)=0 AND AX<31)+(INKEY( 8)=0 AND AX>A) 460 PEN 2:T=T-1:LOCATE 12,1:PRINT "TIME: "; T; :PEN 1:IF T=A THEN 560 470 LOCATE AX+1,AY+1:CALL 360:KK=PEEK(3 67):IF KK=232 OR KK=233 THEN 560 ELSE IF KK=234 THEN 510 480 LOCATE AX+1,AY+1:PEN 3:PRINT CHR$(23 1);:PEN 1 490 NEXT I,F:GOTO 360 500 REM 510 LOCATE AX+1,AY+1:PRINT CHR$(231);:F0 R J=1 TO 25:SOUND 1,INT(RND*J+100),3:NEX T J:FOR J=5 TO 6 520 IF AY=Y(J) AND AX=X(J) THEN WH=J