Evolution2..k0*EVOLUTIN 2* 0:7:0: e'"If you have tried the previous program this will be the 4th stage in the evolution sequence." 6'"If you haven't then the object is to evolve as far as possible in a role-playing series of different programs." }5'"In this stage you play the part of a gorilla who competes against a smaller monkey who is faster than you." (4'"You have to eat only 10 out of 40 bananas which are placed in the forest in random positions, but the monkey likes bananas as well!" 2('"Press ENTER to continue.":0: 2):x=x+(="8"x<28)-(="5"x>2) hm(y,x)<23ū(y+1,x)<23ū(y,x+1)<23ū(y+1,x+1)<23y=y1:x=x1 |&f=f+(fby):g=g+(gbx) ^(f,g)<23f=(f1+*1.5@-*1.5@):g=(g1+*1.5@-*1.5@):390  300, Os=s+1:b=b-1:7;0,3;b;" ";0,28;s .1}L,10 s=10 800  b=0700 4by=(*15+2):bx=(*26+2) 6;by,bx;""  0:0:7: R'"Bad luck! You are not fast enough to progress any further in evolution."  1810  0:7:0::'"Well done! You managed to eat the bananas before you starved and therefore you can proceed to the next stage."  1810 '"The object here is to stop othercavemen from attacking yor cave"'5'"Your cave is in the middle of 8 others, and from any of these can come rivals who are preparedto kill you in order to steal your property." 5'"You can spin round with 6 and 7 and throw a spear with 0. You have successfully defended your cave when 30 attacks have been made. However, you are given 3 lives to make your task easier." "4'"Press ENTER to start."  0: ,1050:f="a""i"+7:g:f,g:f  8,28,8,8,8,8,8,8,0,6,6,8,16,32 ,64@,0,0,0,2,255,2,0,0,0,0,64@,32 ,16,8,6,6,0 $ 8,8,8,8,8,8,28,8,0,2,4,8,16,96`,96`,0,0,0,64@,255,64@,0,0,0,0,96`,96`,16,8,4,2,0 .G28,28,8,62>,8,28,20,20 3|f=16:s,c:s,c;٥*5+2;9 ,0;" ";30;" ";11 ,0;" ";30;" " 5h1,5,1,14,1,23,20,3,20,25,20,14 7p4;8,14;" ";9 ,13 ;" ";11 ,13 ;" ";12 ,14;" " 8 q=1 =0,0;"LIVES: " B0a$="":a=1:s=0:c=0 C k=0 D90,21;"ATTEMPTS:";c:c=301700 G$((*8)*10 )+1400x L#10 ,15;4;a$(a) V-y,x;" ":y=y+dy:x=x+dx:y,x;5;"" [$y=10 x=151600@ `1sf,g;" ":f=f+dy2:g=g+dx2:f,g;3;b$ js(f=yx=g)(f+dy2=yg+dx2=x)f,g;" ":w=70-1:w;y,x;"":.02{# =,f:w:s=0:c=c+1:1092D t$1/(c+20),(y+x)/2 ]a=a+(="7"a<8)-(7Ʀ="7"a=8)-(="6"a>1)+(7Ʀ="6"a=1) V="0"s=0b$=a$(a):f=10 :g=15:s=1:1510+a*10  1100L xy=q:x=6:dy=q:dx=q: %y=q:x=15:dy=q:dx=0:  y=q:x=24:dy=q:dx=-q: -y=10 :x=31:dy=0:dx=-q: (y=21:x=26:dy=-q:dx=-q: -y=21:x=15:dy=-q:dx=0: &y=21:x=4:dy=-q:dx=q: +y=10 :x=0:dy=0:dx=q: dy2=-1:dx2=0: dy2=-1:dx2=1: dy2=0:dx2=1: dy2=1:dx2=1: dy2=1:dx2=0: "dy2=1:dx2=-1: ,dy2=0:dx2=-1: 6dy2=-1:dx2=-1: @f,g;" ";1;y,x;"":f=120:.01z# =,f:.01z# =,10 -f:f:y,x;a$(a):k=k+1:0,k+6;" " Ek=31800 G s=0 J 1092D v:"Well done! Defending your cave was not easy, but you did very well and you can evolve further if you wish to."  1810 B:"Bad luck! You failed in your attempt to defend your cave." I4'"Press the key which corresponds to what you want to do next." 5'"1...Start the gorilla stage."''"2...Start the caveman stage."''"3...Load the 6th stage."''"4...Exit from the program." &=""1830& 0="1":30 :="2":1000 D ="3""" N ="4" X 1830&