10MODE7:PROCINST:MODE2:COLOUR1:S%=0:W
%=1:VDU23;8202;0;0;0;
20FORC%=224TO233:VDU23,C%:FORB%=0TO7
30READB$:VDUEVAL("&"+B$):NEXT,
40DATA81,81,81,FF,FF,81,81,81,BD,BD,B
D,99,FF,3C,3C,3C,3C,24,24,24,24,E7,E7,00
,3C,3C,3C,18,FF,BD,BD,BD,FF,42,24,18,18,
24,42,FF,3C,7E,7E,FF,24,24,E7,00
50DATA18,3C,3C,18,7E,FF,BD,BD,BD,BD,2
4,66,42,42,24,E7,FF,FF,FF,FF,FF,FF,FF,FF
,28,78,D8,D8,CC,C6,60,20
60T%=300:REPEAT:VDU4:FORC%=0TO17STEP2
:FORR%=1TO28:VDU31,C%,R%,224:NEXT,:COLOU
R4:FORC%=0TO19:VDU31,C%,0,232:VDU31,C%,2
8,232:NEXT:FORI%=0TO28:VDU31,19,I%,232:N
EXT:COLOUR5
70VDU31,18,26,225,31,18,27,229,17,1,3
1,18,1,230,31,18,2,231:X%=0:Y%=1024-(32*
(RND(24)+3)):KY%=1:VDU5:GCOL3,6:MOVEX%,Y
%:VDU225:MOVEX%,Y%-32:VDU226:REPEAT:BY%=
1024-(32*(RND(24)+3))
80GCOL0,0:MOVEX%,BY%:VDU232:GCOL0,3:M
OVEX%,BY%:VDU233:REPEAT PROCMOVE
90UNTILY%=BY%-32ORY%=BY%+64ORKY%>=24O
RX%=1024
100IFKY%>=24ORX%=1024THEN160
110FORI%=50TO100:SOUND&0011,-5,I%,1:NE
XT:S%=S%+50:GCOL0,0:MOVEX%,BY%:VDU232:GC
OL0,1:MOVEX%,BY%:VDU224:GY%=1024-(32*(RN
D(24)+3)):GCOL0,3:MOVEX%+64,GY%:VDU228
120REPEAT PROCMOVE
130UNTIL(Y%=GY%+64ANDINKEY-67)OR(KY%>=
24)OR(X%=1024):FORI%=255TO200STEP-1:SOUN
D&0011,-10,I%,1:NEXTI%:S%=S%+10:IF(KY%>=
24)OR(X%=1024)THEN160 ELSE GCOL3,6:MOVEX
%,Y%:VDU225:MOVEX%,Y%-32:VDU226:X%=X%+64
:MOVEX%,Y%:VDU227:MOVEX%,Y%-32
140VDU226:MOVEX%,Y%:VDU227:MOVEX%,Y%-3
2:VDU226:X%=X%+64:IFX%=1024THEN160
150MOVEX%,Y%:VDU225:MOVEX%,Y%-32:VDU22
6
160UNTILKY%>=24ORX%=1024:IFKY%>=24THEN
200
170REPEAT:MOVEX%,Y%:VDU225:MOVEX%,Y%-3
2:VDU226:FORI=1TO100:NEXT:MOVEX%,Y%:VDU2
25:MOVEX%,Y%-32:VDU226:SOUND1,-15,Y%/32+
100,1
180Y%=Y%-32:FORI=1TO100:NEXT:UNTILY%=1
92:CLS:T%=T%-50:IFT%=0T%=50
190VDU4,17,9,31,4,16:PRINT"GET READY!"
:W%=W%+1:COLOUR1:FORI%=1TO9:FORI=200TO50
STEP-1:SOUND&0012,-15,I,1:NEXT,:CLS:UNTI
L0
200FORI=255TO50STEP-1:SOUND2,-10,I,1
210NEXT:*FX15
220GOTO330
230DEFPROCMOVE:COLOUR1
240IFTIME>T% KY%=KY%+1:VDU4,31,18,KY%-
1,32,31,18,KY%,32,31,18,KY%,230,31,18,KY
%+1,231:TIME=0:VDU17,3,31,0,29:PRINT"sco
re:";S%;:PRINTTAB(13,29)"sheet:";W%:VDU5
250IFNOT(INKEY-73ORINKEY-105)ENDPROC
260GCOL3,6:MOVEX%,Y%:VDU225
270MOVEX%,Y%-32:VDU226
280IFINKEY-73ANDY%<992Y%=Y%+32
290IFINKEY-105ANDY%>192Y%=Y%-32
300MOVEX%,Y%:VDU225:MOVEX%,Y%-32
310SOUND1,-5,Y%/32+100,1
320VDU226:ENDPROC
330FORI=1TO10000:NEXT
340MODE2
350PRINTTAB(2,15);"ANOTHER GAME? ";
360REPEAT A$=GET$:UNTILA$="Y"ORA$="N"
370IFA$="Y"THEN RUN ELSE CLS:END
380DEFPROCINST
390PRINTTAB(10)CHR$141;" BANANA-DRAMA"
400PRINTTAB(10)CHR$141;" BANANA-DRAMA"
410VDU28,5,24,39,4
420PRINT"The object of the game is to"
430PRINT"save the fair maiden at the"
440PRINT"right hand side of the screen
"
450PRINT"from the advancing GORILLA ."
460PRINT'"The GORILLA will move slowy"
470PRINT"in the first rounds but will"
480PRINT"speed up later on."
490PRINT'"To save her you must get to"
500PRINT"her by collecting BANANA'S"
510PRINT"which are on the ladder, for"
520PRINT"each BANANA the GORILLA will"
530PRINT"give you a girder to help you
"
540PRINT"cross the ladders."
550PRINT''"press space for next page"
560REPEAT UNTIL INKEY$0=" "
570CLS:PRINT''''
580PRINT"CONTROLS: /=down "
590PRINT" :=up"
600PRINT" x=cross girder"
610PRINT''"press space to start"
620REPEAT UNTIL INKEY$0=" "
630ENDPROC