Ambush 99
730 WINDOW #0,5,36,1,25:PAPER #0,0:PEN # 0,1:CLS #0
740 REM PRINT THE SCENE
750 FOR X=10 TO 26 STEP 4:LOCATE X+I,2:P EN 3:PRINT T$(1);:LOCATE X+1,3:PRINT T$( 2);:LOCATE X+1,4:PRINT T$ (3) ; : PEN I:NEXT
X
760 FOR X=1 TO 11:LOCATE L(X,2)+1,L(X,1) +1:PEN 3:PRINT T$(1);:LOCATE L(X,2)+1,L( X,1)+2:PRINT T$(2);:LOCATE L(X,2)+I,L(X, 1)+3:PRINT T$(3);:PEN 1:NEXT
770 FOR X=3 TO 11:LOCATE L(X,2)+3,L(X,1) +3:PRINT CHR$(239);:NEXT
780 LOCATE 1,16:PEN 3:PRINT T$(1);:LOCAT E 1,17:PRINT T$(2);:LOCATE 1,18:PRINT T$ (3) ; : LOCATE 4,18:PRINT T$(1);:LOCATE 4,1 9: PRINT T$(2);:LOCATE 4,20:PRINT T$(3);: PEN 1
790 LOCATE 1,15:PRINT W$
800 LOCATE 11,14:PRINT Q$(1);:LOCATE 11, 15:PRINT 0$(2);:LOCATE 11,16:PRINT Q$(3)
810 LOCATE 24,16:PRINT"TIME:
820 GOTO 80
830 REM PLAYER SHOT
840 LOCATE 1,21:PRINT CHR$(24);"You have been shot! In time:";CHR$(24);MID$(STR$ (TM),2);:LOCATE 1,13:PEN 2:PRINT"This is the";:PEN 1:PRINT" sniper ";:PEN 2:PRIN T"who shot you";:PEN
850 LOCATE S(K,2)+1,S(K,1)+1:PRINT S$ (2)
860 SOUND 1,1000,30:SOUND 1,2000,30:SOUN D 1,3000,30:SOUND 1,4000,30
870 GOTO 920
880 REM ALL SNIPERS DEAD
890 IF TB>TM THEN TB=TM
900 LOCATE 1,2I:PRINT CHR$(18);:LOCATE 1 ,21:PRINT"You shot all the snipers in "; MID$(STR$(TM),2);:LOCATE 1,22:PRINT"Best
time so -far:";TB;
910 FOR X=1 TO 30:SOUND 1,50+INT(RND*150 ),4:NEXT
920 LOCATE 4,24:PRINT"PRESS ANY KEY TO R ESTART"