0DEFFNN="TwoGame" 10ONERRORRUN 20GOTO1030 30D=0 40MODE1 50VDU23,1,0;0;0;0; 60GOSUB440 70MODE2:VDU24,0;0;1279;959;:VDU28,0,1 ,19,0 80VDU23,1,0;0;0;0; 90*TV255,1 100COLOUR6 110ENVELOPE1,1,6,7,7,255,255,255,116,- 1,1,-9,126,70 120PRINT"CATCH'EM BY L0 & BLK"; 130GCOL0,5 140MOVE0,0:DRAW1279,0:DRAW1279,959:DRA W0,959:DRAW0,0 150X%=640:Y%=512:A%=320:B%=512 160RX%=0:RY%=-4:RA%=0:RB%=-4 170REPEAT 180GCOL0,2 190PLOT69,X%,Y% 200IFINKEY(-41)RY%=4:RX%=0 210IFINKEY(-89)RY%=-4:RX%=0 220IFINKEY(-103)RX%=-8:RY%=0 230IFINKEY(-104)RX%=8:RY%=0 240X%=X%+RX% 250Y%=Y%+RY% 260IFPOINT(X%,Y%)D=2:GOTO350 270GCOL0,3:PLOT69,A%,B% 280IFINKEY(-66)RB%=-4:RA%=0 290IFINKEY(-17)RB%=4:RA%=0 300IFINKEY(-67)RA%=-8:RB%=0 310IFINKEY(-83)RA%=8:RB%=0 320A%=A%+RA% 330B%=B%+RB% 340IFPOINT(A%,B%)D=1:GOTO350 350UNTILD 360CLS:PRINT"No. ";D;" is dead!"; 370SOUND0,1,4+D,30 380FORF=1TO800:NEXT 390D=0 400*FX15,0 410A=GET 420*FX15,0 430GOTO70 440COLOUR1:PRINT" CATCH'EM b y L0 & BLK" 450VDU19,1,11,0,0,0 460COLOUR2 470PRINT''"PLAYER NUMBER ONE:(YELLOW)" ''"LEFT: X"'"RIGHT: C"'"UP: Q"'"DOWN : A"'' 480COLOUR3 490PRINT"PLAYER NUMBER TWO:(GREEN)"''" LEFT: ,"'"RIGHT: ."'"UP: £"'"DOWN: ]"'' 500COLOUR1 510PRINT''''" PRESS ANY KEY TO BEGIN THE GAME" 520*FX15,0 530A=GET:RETURN 540CLS 550*TV255 560MODE1 570PRINT" PRIKKOMANI"'''"U SE THE KEYS: Q-UP, A-DOWN, K-LEFT & L-R IGHT TO CONTROL THE DOT"'''' 580*FX15,0 590INPUT"LEVEL?(1-300)"S:IFS<1ORS>300T HEN590 600*FX11,1 610*FX12,1 620MODE2 630VDU23,1,0;0;0;0; 640VDU24,0;0;1279;991; 650VDU28,0,0,19,0 660CLS:PRINT" COLLISIONS:0"; 670FORF%=200TO1200STEP16 680C=RND(7):IFC=4GOTO680ELSEGCOL0,C 690A=RND(500) 700B=RND(400-S)+A+120:IFB>1023GOTO700 710MOVEF%,0:DRAWF%,A 720MOVEF%,B 730DRAWF%,1023 740NEXT 750GCOL0,7 760HIT=0 770RX%=8:RY%=-8 780X%=50:Y%=700 790IF POINT(X%,Y%)<>0 GOTO920 800PLOT69,X%,Y% 810FORP%=0TO200:NEXT 820GX%=X%:GY%=Y% 830*FX15,0 840IF INKEY(-66)RY%=-8 850IF INKEY(-17)RY%=8 860IF INKEY(-71)RX%=-8 870IF INKEY(-87)RX%=8 880X%=X%+RX%:IFX%>1210 GOTO950 890Y%=Y%+RY%:IFY%>990OR Y%<0 RY%=-RY%: SOUND2,-5,150,1:GOTO890 900GCOL0,0:PLOT69,GX%,GY%:GCOL0,7 910GOTO790 920SOUND1,-5,100,1 930RX%=-RX%:HIT=HIT+1:PRINT TAB(15,0); HIT; 940GOTO880 950REM 960ENVELOPE1,1,6,6,6,255,255,255,126,- 1,0,-10,126,80:SOUND1,1,100,30:FORF=1TO3 0:NEXT:SOUND2,1,50,30 970FORF=1TO2000:NEXT:GOTO980 980*FX11,20 990*FX12,10 1000VDU23,1,1;0;0;0; 1010*FX15,0 1020GOTO540 1030MODE6:PRINT"Two strange games for t he Beeb........" 1040PRINT'''''"Hit:"''"1 CATCH'EM"''"2 PRIKKOMANI"'''''' 1050*FX15,1 1060 IF INKEY(-49)GOTO30 1070IF INKEY(-50)GOTO540 1080GOTO1050