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