Ambush 97
260 Y=Y-8
270 REM TRACERS AND SOUNDS
280 PLOT 82*2+64,72*2+48,1
290 DRAWR (MX-60)*2,Y*2,1
300 FOR X=25 TO 30:SOUND 1,X,2:NEXT 310 PLOT 82*2+64,72*2+48,0
320 DRAWR (MX-60)*2,Y*2,0
330 REM CHECK FOR HIT
340 IF MX>29 AND MX<35 AND MID$(K$,1,1)> "0" THEN LOCATE 5,6:PRINT CHR$(244);CHR$ (245);:PEN 3:PRINT CHR$(237);CHR$(238);: PEN 1:MID$(K$,6,1)="1":6010 400
350 IF MX>61 AND MX<67 AND MID$(K$,2,1)> 110" THEN LOCATE 9,9:PRINT CHR$(244);CHR$ (245);:PEN 3:PRINT CHR$(237);CHR$(238);: PEN 1:MID$(K$,7,1)="1":6010 400
360 IF MX>101 AND MX<107 AND M1D$(K$,3,1 )>"0" THEN LOCATE 14,9:PRINT CHR$(244);C HR$(245);:PEN 3:PRINT CHR$(237);CHR$(238
:PEN 1:MID$(K$,8,1)="1":GOTO 400
370 IF MX>144 AND MX<155 AND MID$W$,4,1 )>"0" THEN LOCATE 20,10:PRINT CHR$(244); CHR$(245);:PEN 3:PRINT CHR$(237);CHR$(23 8);:PEN 1:MID$(K$,9,1)="1":GOTO 400
380 IF MX>185 AND MX<195 AND MID$(K$,5,1 )>"0" THEN LOCATE 25,11:PRINT CHR$(244); CHR$(245);:PEN 3:PRINT CHR$(237);CHR$(23 8);:PEN 1:MID$(K$00,1)="1"
390 REM CHECK FOR WIN
400 IF MID$W$,6,5)="11111" THEN ewa 410 REM SNIPER ROUTINE
420 K=1+INT(RND*5)
430 IF MID$(K$,K+5,1)="1" THEN 90
440 IF MID$(K$,K,1)="4" THEN PEN 3:LOCAT E S(K,2)+4,S(K,1)+1:PRINT S$(2);:PEN 1 450 IF MID$(K$,K,1)="5" OR (MID$W$,K,1) ="7" AND MN=0) THEN GOSUB 490
460 MID$W$,K,1)=CHR$(A5C(MID$(K$,K,1))+ 1)
470 IF MID$(K$,K,1)>"7" THEN PEN 3:LOCAT E S(K,2)+1,S(K,1)+1:PRINT S$(1);:PEN 1:M ID$(K$,K,1)="0"
480 GOTO 90
490 REM SNIPER FIRING