1 REM *** BBC VERSION *** 2 REM *** SNIPER AMBUSH *** 10 DIMP(5,5),L(11,2),S(5,2),S$(2) 20 TB=5000:TM=0:K$="0000000000":MN=0:AI=0: FR=0:MX=RND(27)*8 30 GOTO520 40 TM=TM+1:COLOUR3:PRINTTAB(28,15);TM 50 A=INKEY(2):IFA<0 GOTO130 60 COLOUR0 70 IFA=65 PRINTTAB(10,13)R$:MN=1:GOTO130 80 IFA=90 PRINTTAB(10,13)Q$:MN=0:GOTO130 90 IFA=66 AND MN=1 FR=1:GOTO130 100 IFA=78 MX=MX-8:GOTO130 110 IFA=77 MX=MX+8:GOTO130 120 GOTO40 130 IFMX<0 MX=0 140 IFMX>220 MX=220 150 IFFR=0 GOTO350 160 FR=0 170 Y=23 180 IFMX<42 Y=Y+32:GOTO230 190 IFMX<70 Y=Y+7:GOTO230 200 IFMX<124 Y=Y+8:GOTO230 210 IFMX<164 GOTO230 220 Y=Y-8 230 GCOL3,3:PLOT69,328,288 240 PLOT1,(MX-60)*4,Y*4 250 SOUND&10,-15,5,3:SOUND0,-12,6,3 260 PLOT69,328,288 270 PLOT1,(MX-60)*4,Y*4 280 COLOUR2 290 IFMX>29 AND MX<35 AND MID$(K$,1,1)>"0" PRINTTAB(4,5)CHR$241;CHR$242;:COLOUR0:PRINTCH R$230;CHR$231:K$=LEFT$(K$,5)+"1"+RIGHT$(K$,4) :GOTO340 300 IFMX>61 AND MX<67 AND MID$(K$,2,1)>"0" PRINTTAB(8,8)CHR$241;CHR$242;:COLOUR0:PRINTCH R$230;CHR$231:K$=LEFT$(K$,6)+"1"+RIGHT$(K$,3) :GOTO340 310 IFMX>101 AND MX<107 AND MID$(K$,3,1)>"0 " PRINTTAB(13,8)CHR$241;CHR$242;:COLOUR0:PRIN TCHR$230;CHR$231:K$=LEFT$(K$,7)+"1"+RIGHT$(K$ ,2):GOTO340 320 IFMX>144 AND MX<155 AND MID$(K$,4,1)>"0 " PRINTTAB(19,9)CHR$241;CHR$242;:COLOUR0:PRIN TCHR$230;CHR$231:K$=LEFT$(K$,8)+"1"+RIGHT$(K$ ,1):GOTO340 330 IFMX>185 AND MX<195 AND MID$(K$,4,1)>"0 " PRINTTAB(24,10)CHR$241;CHR$242;:COLOUR0:PRI NTCHR$230;CHR$231:K$=LEFT$(K$,9)+"1" 340 IFRIGHT$(K$,5)="11111" GOTO850 350 K=RND(5) 360 IFMID$(K$,K+5,1)="1" GOTO40 370 IFMID$(K$,K,1)="4" COLOUR2:PRINTTAB(S(K ,2),S(K,1))S$(2) 380 IFMID$(K$,K,1)="5" OR(MID$(K$,K,1)="7" AND MN=0) GOSUB420 390 K$=LEFT$(K$,K-1)+CHR$(ASC(MID$(K$,K,1)) +1)+RIGHT$(K$,10-K) 400 IFMID$(K$,K,1)="7" COLOUR0:PRINTTAB(S(K ,2),S(K,1))S$(1):K$=LEFT$(K$,K-1)+"0"+RIGHT$( K$,10-K) 410 GOTO40 420 N=RND(P(K,4)) 430 NX=N-P(K,3) 440 GCOL3,3:PLOT69,P(K,1)*4,P(K,2)*4 450 PLOT1,NX*4,-P(K,5)*4 460 SOUND&10,-15,4,3:SOUND0,-12,5,3 470 PLOT69,P(K,1)*4,P(K,2)*4 480 PLOT1,NX*4,-P(K,5)*4 490 IFMN=0 RETURN 500 IFP(K,1)+NX>78 AND P(K,1)+NX<86 COLOUR0 :PRINTTAB(10,13)Q$;TAB(9,15)P$:GOTO820 510 RETURN 520 MODE7:PRINT'CHR$141;CHR$&81;SPC(14)"Amb ush."'CHR$141;CHR$&81;SPC(14)"Ambush." 530 PRINT''''"You have been ambushed by gun men in a forest. The only safe place is a l ow wall behind which you can take cover." 540 PRINT''"You must try to kill all gunmen by aiming over the top of the wall,but the snipers are quite good shots!" 550 PRINTTAB(0,20)"How long can you survive ?........" 560 F$=STRING$(29,CHR$9) 570 G$=STRING$(31,CHR$9) 580 FORX=0TO7:FORY=0TO8:READA:?(&C00+Y*8+X) =A:NEXT, 590 FORX=0TO7:READA,B:?(&C00+72+X)=A:?(&C 00+80+X)=B:NEXT 600 FORX=1TO11:READL(X,1),L(X,2):NEXT 610 FORX=0TO7:READA:?(&C00+88+X)=A:NEXT:W $=STRING$(32,CHR$235) 620 T$=CHR$224+CHR$225+CHR$226+F$+CHR$227 +CHR$228+CHR$229+F$+CHR$230+CHR$231+CHR$232 630 S$(1)=CHR$230+CHR$231:S$(2)=CHR$233+C HR$18+CHR$0+CHR$234 640 FORX=0TO7:READA:?(&C00+104+X)=A:NEXT 650 FORX=0TO7:READA,B:?(&C00+136+X)=A:?(& C00+144+X)=B:NEXT 660 FORX=0TO7:READA,B:?(&C00+152+X)=A:?(& C00+160+X)=B:NEXT 670 Q$=" "+G$+CHR$235+G$+CHR$236:P$=CHR$2 41+CHR$242 680 R$=CHR$243++G$+CHR$244+G$+" " 690 FORX=1TO5:READS(X,1),S(X,2):NEXT 700 FORX=1TO5:FORY=1TO5:READP(X,Y):NEXT, 710 INPUTTAB(0,22)"Press <RETURN> to fi nd out!!!!"X$ 720 MODE1:COLOUR129:VDU28,4,27,35,4,19, 1,2;0;29,128;192;:CLS 730 COLOUR0:FORX=10TO26STEP4:PRINTTAB(X ,1)T$:NEXT 740 FORX=1TO11:PRINTTAB(L(X,2),L(X,1))T $:NEXT 750 COLOUR2:FORX=3TO11:PRINTTAB(L(X,2)+ 2,L(X,1)+2)CHR$232:NEXT 760 COLOUR0:PRINTTAB(0,15)T$;TAB(3,17)T $ 770 PRINTTAB(0,14)W$ 780 PRINTTAB(23,15)"TIME: " 790 PRINTTAB(0,22)"Shoot snipers as the y fire. Keys'A&Z'(Up/Dn)'N&M'(Aim)'B'(Fire)"; 800 PRINTTAB(10,13)Q$ 810 GOTO40 820 PRINTTAB(0,22)SPC(63);TAB(0,22)"You have been shot! in time:";TM;TAB(0,23)"This is the one that shot you"; 830 FORI=100TO60STEP-1:SOUND1,-15,I,1:N EXT 840 FORI=0TO10:COLOUR2:PRINTTAB(S(K,2), S(K,1))S$(2):FORJ=0TO500:NEXT:COLOUR1:PRINTTA B(S(K,2),S(K,1))S$(2):FORJ=0TO500:NEXT,:GOTO8 80 850 IFTB>TM TB=TM 860 PRINTTAB(0,22)SPC(63);TAB(0,22)"Y ou shot all snipers in time:";TM;TAB(0,23)"Be st time so far:";TB; 870 FORI=60TO100:SOUND1,-15,I,1:NEXT 880 *FX15 890 FORI=0TO7000:NEXT:COLOUR2:INPUTTA B(0,22)"Press <RETURN> for next game."SPC(34) X$ 900 MX=RND(27)*8:K$="0000000000" 910 TM=0:MN=0:FR=0 920 GOTO720 930 DATA3,15,0,127,255,252,0,60,8,3,2 55,192,63,255,188,0,60,0,15,255,240,55,247,24 8,0,60,138,15,255,248,31,63,248,0,60,40,126,2 55,126,31,60,240,0,60,138,127,255,254,24,60,4 8,0,60,162,255,255,252,0,60,0,0,60,160,127,22 3,252,0,60,0,0,60,32 940 DATA0,252,63,252,2,124,3,252,0,12 4,1,252,1,124,3,60 950 DATA2,4,1,18,3,6,2,20,3,24,4,11,4 ,29,6,10,6,15,7,21,8,26 960 DATA51,255,219,255,253,255,183,25 5 970 DATA249,113,113,33,255,113,123,21 9 980 DATA0,0,0,0,0,0,0,0,160,0,247,224 ,255,241,247,255 990 DATA248,115,113,255,115,251,118,2 55,38,253,250,251,254,247,112,255 1000 DATA5,6,8,10,8,15,9,21,10,26 1010 DATA47,127,10,50,54,79,110,39,70, 37,119,110,60,60,37,167,102,127,80,29,207,94, 200,120,21