116 Evolution 2
120 IF INKEY$="" THEN 120 ELSE CLS
130 PEN 3:PRINT CHR$(24);"	E V
O L U T I O N	";CHR$(24);:PE
N1
140 LOCATE 1,7:PEN 2:PRINT"MOVE WITH CUR SOR ARROW KEYS, but note that you cann ot go through the trees."
150 PEN 1:PRINT:PRINT:PRINT"You pick up a banana by aligning the tophalf of your body with the banana.":PEN 1
160 PEN 3:LOCATE 1,24: PRINT CHR$(24);" PRESS ANY KEY TO CONTINUE ;CHR$(24);:PEN 1
170 IF INKEY$<>"" THEN 170
180 IF INKEY$="" THEN 180 ELSE CLS:WINDO
W	#0,5,36,1,25:PAPER #0,0:PEN #0,1:CLS #
0
190 SYMBOL AFTER 230
200 SYMBOL 231,64,99,101,41,63,31,13,7 210 SYMBOL 232,0,192,160,192,248,252,190 ,231
220 SYMBOL 233,7,7,7,14,12,12,12,28
230 SYMBOL 234,227,224,224,112,48,48,48, 56
240 SYMBOL 235,2,2,6,14,28,56,240,0
250 SYMBOL 236,25,25,255,188,156,60,36,1 02
260 SYMBOL 237,8,60,126,254,255,127,126, 60
270 PEN 3:FOR F=0 TO 31:LOCATE F+1,1: PR INT CHR$(237);:LOCATE F+1,21:PRINT CHR$( 237);:LOCATE F+1,2:PRINT CHR$(149)::LOCA TE F+1,22:PRINT CHR$(149);:NEXT:PEN 1
280 PEN 3:FOR F=2 TO 18 STEP 2:LOCATE 1, F+1:PRINT CHR$(237);CHR$(237);:LOCATE 31 ,F+1:PRINT CHR$ (237) ; CHR$ (237) ; : LOCATE 1 ,F+2:PRINT CHR$(149);CHR$(149);:LOCATE 3 1,F+2:PRINT CHR$(149);CHR$(149);:NEXT:PE
N1
290 PEN 3:FOR F=1 TO 12:X=INT(RND*27+2): Y=INT(RND*16+2):LOCATE X+1,Y+1:PRINT CHR $(237);:LOCATE X+1,Y+2:PRINT CHR$(149);: NEXT:PEN 1
300 G=2:F=2:G1=G:F1=F:Y=18:X=28:Y1=Y:X1= X