Evolution 1 113
1170 LOCATE X+1,Y+1:CALL 360:KK=PEEK(367 ):LOCATE X+2,Y+1:CALL 360:KY=PEEK(367) ileo IF KK=247 OR KY=247 THEN SOUND 1,75 ,3:FI=FI+1:LOCATE 16,I:PRINT FI;:IF FI=I 0 THEN LOCATE X1+1,Y1+1:PRINT" ";:LOCAT E X+1,Y+1:PEN 2:PRINT A$;:PEN 1:FOR FF=1
TO 30:SOUND 1,INT(RND*FF+100),3:NEXT:GO TO 1300
1190 LOCATE X1+1,Y1+1:PRINT" ";:LOCATE G1+1,F1+1:PRINT" ";:LOCATE X+1,Y+I:PEN 2 :PRINT A$;:PEN I:LOCATE G+1,F+1:PRINT CH R$(248);
1200 Y1=Y:X1=X:F1=F:G1=G
1210 IF F=Y THEN IF G=X OR G=X+1 THEN FO R FF=1 TO 20 :SOUND 1,(FF*2+100),3:NEXT: GOTO 1320
1220 IF INKEY(1)=0 THEN A$=CHR$(242)+CHR $(243):X=X-2*(X<29)
1230 IF INKEY(8)=0 THEN A$=CHR$(244)+CHR $(245):X=X+2*(X>1)
1240 IF INKEY(0)=0 THEN IF Y>5 THEN Y=Y- 1
1250 IF INKEY(2)=0 THEN Y=Y-(Y<20)
1260 F=INT(F+RND*1.5-RND*1.5-(F<Y)+(F>Y) ):G=G+1
1270 IF F<5 OR F>20 THEN F=-20*,(F>20)-5* (F<5)
1280 IF G=31 THEN G=0
1290 GOTO 1160
1300 CLS:PRINT:PRINT"Well done! You sury ived as a beaver and you can continue to the next stage if you wish."
1310 GOTO 1330
1320 CLS:PRINT:PRINT"Bad luck! You can e volve no morebecause you have been destr oyed by the crab.":FOR ss=1 TO 1000:NEXT :GOTO 1330
1330 PEN 3:PRINT:PRINT CHR$(24);"Press t he key which corresponds to what you wan t to do next.	";CHR$(24);:PEN 1
1340 PEN 2:PRINT:PRINT"I....Amoeba stage .":PEN I
1350 PRINT:PRINT"2....Frog stage."
1360 PEN 3:PRINT:PRINT"3....Beaver stage .":PEN I