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