110 Evolution 1
530 NEXT 3:Y(WH)=INT(RND*22):X(WH)=INT(R ND*32):LOCATE X(WH)+1,Y(WH)+1:PRINT AS(W H )
540 SC=SC+1:IF SC<5 THEN 480
550 CLS:PEN 3:PRINT"Well done you surviv ed the first
stage of amoeba.":PEN 1:GOTO 1330 560 FOR 6=1 TO 4:FOR F=1 TO 20:ENT 1,100 ,-F,3:SOUND 1,170,3,7,1,1,0:NEXT F,G:CLS :PRINT"Bad luck! You failed in the 1st s tage of evolution.":GOTO 1330
570 STOP
580 BORDER 0:INK 0,0:INK 1,24:INK 2,20:1 NK 3,18:WINDOW #0,5,36,1,25:PAPER #0,0:P EN #0,1:CLS #0
590 PEN 2:LOCATE 8,1:PRINT CHR$(24);"E V OLUTIO N";CHR$(24):PEN 1
600 PRINT:PRINT"	Frog stage."
610 LOCATE 1,5:PEN 3:PRINT"In this stage you have to catch flies on your tongue, while	avoiding the birds which swoo
p down to try and capture their	prey
- YOU!!":PEN 1
620 PRINT:PRINT"Use for controls:"
630 PEN 2:PRINT:PRINT"COPY...to stick yo ur tongue out Left arrow...to move left
Right arrow.. .to move right":PEN 1 640 PEN 3:PRINT:PRINT"You have survived this stage	when you have consumed 5
flies without falling prey to the	bi
rds.":PEN 1
650 LOCATE 1,24:PEN 2:PRINT CHR$(24);" PRESS ANY KEY TO START	";CHR$(24)
--PEN 1
660 IF INKEYS<>" THEN 660
670 IF INKEYS=" THEN 670 ELSE CLS 680 RESTORE 690
690 SYMBOL 235,28,34,7E3,79,56,32,64,48 700 SYMBOL 236,56,68,114,242,28,4,2,12 710 SYMBOL 237,15,46,64,92,88,84,62,249 720 SYMBOL 238,240,12,2,58,26,42,74,159 730 SYMBOL 239,0,0,0,34,85,63,24,0
740 SYMBOL 240,0,0,0,63,127,143,1,15
750 SYMBOL 241,31,124,240,192,224,255,0, 0