112 Evolution 1
960 RETURN
970 FOR f=-10 TO 20:SOUND 1,(RND*f+100), 3:NEXT:CLS:PRINT:PRINT"You have been con sumed and can evolve no further.":FOR s s=1 TO 2000:NEXT:GOTO 1330
980 WINDOW #0,5,36,1,25:BORDER 0:INK 0,1 1:INK 1,24:INK 2,0:INK 3,6:PAPER #0,0:PE N #0,1
990 PEN 3:PRINT CHR$(24);"	E V 0 L
U T I O N	";CHR$(24);:PEN 1
1000 PEN 2:LOCATE 1,5:PRINT"You have no w evolved to a	beaver. In this stag
e you haveto eat TEN fish before you are eaten by the patrolling crab.":PEN 1 1010 PRINT:PRINT"MOVE USING THE CURSOR K EYS and try to eat the fish before the
fresh water crab does. Make sure"
1020 PEN 2:PRINT:PRINT"that you avoid th e crab because if it comes into contact with	you it will eat you and you wille
valve no further.":PEN 1
1030 PEN 3:LOCATE 1,21:PRINT CHR$(24);" PRESS ANY KEY TO START	";CHR$(24
);:PEN 1
1040 IF INKEY$<>"" THEN 1040
1050 IF INKEY$="" THEN 1050 ELSE CLS 1060 SYMBOL 242,0,0,15,16,224,159,8,12 1070 SYMBOL 243,0,32,220,10,1,254,16,24 1080 SYMBOL 244,0,4,59,80,128,127,8,24 1090 SYMBOL 245,0,0,240,8,7,249,16,48 1100 SYMBOL 246,0,0,8,61,191,255,255,255 1110 SYMBOL 247,12,30,186,255,255,190,30 ,12
1120 SYMBOL 248,195,60,255,126,235,66,16 5,165
1130 PEN 3:LOCATE 1,22:PRINT STRING$(32, 246);:PEN 1
1140 Y=20:X=15:Y1=Y:X1=X:F=5:G=0:F1=F:G1 =G
1150 A$=CHR$(242)+CHR$(243):FI=0:LOCATE 16,1:PRINT FI;
1160 IF RND>0.95 THEN LOCATE INT(RND*29) +2,INT(RND*15)+6:PEN 3:PRINT CHR$(247);: PEN 1