Evolution1i i hk 0:0:7: d&0,6;"E V O L U T I O N" n'6'"This semi-scientific series of"'5'"routines gives you the chance to"'4'"evolve from an amoeba to a human"'7'"based on the theory that only"'6'"the strong survive."''5'"Press ENTER to continue." x 0: z"This program goes from amoeba to frog to beaver."'5'"The next program goes from gorilla to caveman."'4'"The final program of this trio involves the present stage of evolution - MAN and his tech- nology." { '"The intention is that you shouldtry the stages in the correct order but after each stage you are given a menu of options." |('"Press ENTER to continue.":0: 1000 a"The first stage is as an amoeba ( ). You have to eat 5 spores ( ) while avoiding and ." 6'"This is also a battle against time, for when the clock at the top of the screen says 0, it means that you have starved because you did not eat the spores in time." 5'"Move about in the water with thecursor keys 5-8." A5'"Press ENTER to start stage 1.":0::1050 7a=0:1010:f="a""d"+7:g:f,g:f O120x,132,180,178,129,153,85U,513 ;a,24,36$,90Z,90Z,36$,24,a Ca,73I,42*,28,127,28,42*,73I Ea,60<,66B,145,133,145,66B,60<  140 ?ay=15:ax=14:y(6):x(6):a$="" t=100d:sc=0 $\f=16:y(f)=(*22):x(f)=(*32 ):1;y(f),x(f);f;a$(f):f L ay,ax;"" V*f=152:i=ff+1 `Ty(i),x(i);" ":y(i)=(y(i)+*2-*2):x(i)=(x(i)+*3-*3) eIf<5y(i)=y(i)+(y(i)ay):x(i)=x(i)+(x(i)ax) j%y(i)21y(i)=11 t%x(i)31x(i)=15 ~1;f;y(i),x(i);a$(i) (ay,ax)61200  ay,ax;" " (ay=ay+(="6"ay<21)-(="7"ay>a) (ax=ax+(="8"ax<31)-(="5"ax>a) 1t=t-1:a,15;t;" ":t=a1200 /(ay,ax)7ƫ(ay,ax)61200  ay,ax;"" i:f:1100L (ay,ax)<69E1210 U1;ay,ax;"":j=115:.01z# =,*20:j:j=56 ay=y(j)ax=x(j)wh=j Fj:y(wh)=(*22):x(wh)=(*32 ):wh;y(wh),x(wh);a$(wh) 'sc=sc+1:sc<51177 ^:"Well done you survived the first"'6'"stage of evolution as an amoeba.":8000@ rf=5305:.01z# =,f:f::'"Bad luck! You failed in the 1st stage of evolution.":8000@ Џ"In this stage you have to catch flies on your tongue, while avoiding the birds which swoop down to try and capture their prey- YOU !" 6'"Press 0 to stick your tongue out6 to move left, and 7 to move right."'5'"You have survived this stage when you have consumed 10 flies without falling prey to the birds."'4'"Press ENTER to start."  0: ,2040:f="a""g"+7:g:f,g:f 28,34",78N,79O,568,32 ,64@,480,568,68D,114r,242,28,4,2,12 15,480,64@,92\,88X,84T,82R,249,240,12 ,2,58:,26,42*,74J,159  E0,0,0,34",85U,63?,24,0 0,0,0,63?,127,143,1,15,31,124|,240,192,224,255,0,0 4x=15:y(1)=*6+13 :x(1)=0:y(2)=0:x(2)=0:y(3)=y(2):x(3)=x(2):f=0 >65:0,7:255,0:4 H0,15;f;19,x;" ";20,x;" ";6;y(1),x(1);"";y(3),x(3);" ";5;y(2),x(2);"" J.y(3)=y(2):x(3)=x(3) M="0"2200 RV"".003xD,1:.003xD,2:.003xD,3:.003xD,4 \+(18,x+2)=52250 fy(2)=18y(2),x(2);" ":y(2)=0:x(2)=x+9 :x(2)>30x(2)=30 kdx(1)>29y(1),x(1);" ":x(1)=0:y(1)=*6+13 p8y(1),x(1);" ";y(2),x(2);" " y(2)=y(2)+2:x(2)=x(2)+(x(2)x+1):y(1)=y(1)+*1.5@-*1.5@:x(1)=x(1)+*1.5@:y(1)>20y(1)=14 *x=x-(="6"x>0)+(="7"x<28)  2120H /x*8+12 ,17:0,579 ).05|L,-10 :.05|L,-6 A1;x*8+12 ,17:1;0,579 (y(1),x(1))=4f=f+1:.1}L,-30:y(1),x(1);" ":x(1)=0:y(1)=*6+13 f=10 :f=10 0-1:.05|L,f:f:'"Well done! You consumed 10 fliesand can therefore evolve to the next stage.":8000@  if=120:.01z# =,f:f::'"You have been consumed and can evolve no further.":8000@ 7:"You have now evolved to a beaver"'6'"In this stage you have to eat"'5'"10 fish before you are eaten by"'4'"the patrolling crab." '"Move using 5-8 and try to eat the fish before the fresh-water crab does. Make sure that you avoid the crab because if it comes into contact with you it will eat you and you will evolveno further." -5'"Press ENTER to start.":0: ,3040 :f="a""g"+7:g:f,g:f 0,0,15,16,224,159,8,12 ,0,32 ,220,10 ,1,254,16,24 0,4,59;,80P,128,127,8,24,0,0,240,8,7,249,16,480 0,0,8,61=,191,255,255,255,12 ,30,10111010,255,255,10111110,30,12 O195,60<,255,126~,235,66B,165,165 ?21,0;1;"" Xf=520:1;1;f,0;"":f Fy=20:x=15:y1=y:x1=x:f=5:g=0:f1=f:g1=g +a$="":fi=0:0,15;fi ^>.95s3331;٥*4+3;1;*15+5,*29+1;"" (y,x)>64@ū(y,x+1)>64@.1}L,0:fi=fi+1:0,15;fi:fi=10 y1,x1;1;1;"";4;1;y,x;a$:f=130:.07}\(,*20:f:3250 Ny1,x1;1;1;" ";f1,g1;" ";4;y,x;a$;6;f,g;"" +y1=y:x1=x:f1=f:g1=g -Ff=yg=xg=x+1f=120:.01z# =,f:f:3300 0*="8"a$="":x=x+(2x<29) :)="5"a$="":x=x-(2x>1) D="7"y>5y=y-1 N="6"y=y+(y<20) X9f=(f+*1.5@-*1.5@+(fy)):g=g+1 bCf<5f>20f=(20f>20)+(5f<5) lg=31g=0 v 3090 b:'"Well done! You survived as a beaver and you can continue to the next stage if you wish." 8000@ y:'"Bad luck! You can evolve no"'6'"further because you have been"'5'"destroyed by the crab.":8000@ @A'"Press the key which corresponds to what you want to do next." J6'"1....Amoeba stage."''"2....Frog stage."''"3....Beaver stage."''"4....Load stages 4&5."''"5....Exit from the program." T=""8020T ^="1":130 h="2":2000 r="3":3000 | ="4"""  ="5"  8020T