Ambush   5**SNIPER AMBUSH** @1983 MICHAEL BEWS RP(5,5):L(11 ,2):S(5,2):S$(2,2) ]TB=5000:TM=0:K$="0000000000":MN=0:AI=0:FR=0:MX=80P (4:7:1 2 600X d**KEYBOARD INPUT x8TM=TM+1:0;6;15,28;TM }(A=23556\:A=255200 :A=65A13 ,10 ;R$:MN=1:200 :A=90Z13 ,10 ;Q$:MN=0:200 0(A=66BMN=1)FR=1:200 &A=78NMX=MX-8:200 &A=77MMX=MX+8:200 120x *ACTION ROUTINE MX<0MX=0 MX>220MX=220 FR=0300, FR=0 Y=23 &MX<42*Y=Y+32 :250 %MX<70Fy=y+7:250 &MX<124|Y=Y+8:250 MX<164250 Y=Y-8 *TRACERSSOUND 1,82R,72H 1;MX-60<,Y /X=579535-1:.005y# =,X:X  1,82R,72H 1;MX-60<,Y *CHECK FOR HIT sMX>29MX<35#K$(1)>"0"5,4;"";0;4;"":K$(6)="1":290" sMX>61=MX<67CK$(2)>"0"8,8;"";0;4;"":K$(7)="1":290" vMX>101eMX<107kK$(3)>"0"8,13 ;"";0;4;"":K$(8)="1":290" vMX>144MX<155K$(4)>"0"9 ,19;"";0;4;"":K$(9 )="1":290" xMX>185MX<195K$(5)>"0"10 ,24;"";0;4;"":K$(10 )="1":290" !*CHECK FOR WIN ")K$(610 )="11111"850R +*SNIPER ROUTINE 6K=1+(*5) ;K$(K+5)="1"120x @FK$(K)="4"0;4;S(K,1),S(K,2);S$(2); J-K$(K)="5"(k$(k)="7"MN=0)400 TK$(K)=(K$(K)+1) ^QK$(K)>"7"0;4;S(K,1),S(K,2);S$(1);:K$(K)="0" h 120x *SNIPER FIRING N=1+(*P(K,4)) NX=N-P(K,3) $1;P(K,1),P(K,2) 1;NX,-P(K,5) /X=50247/-1:.005y# =,X:X $1;P(K,1),P(K,2) 1;NX,-P(K,5) MN=0 kP(K,1)+NX>78NP(K,1)+NX<86V13 ,10 ;Q$;15,9 ;P$;:830>  V W**INITIALISATION Z:1;7;"A M B U S H @1983 MICHAEL BEWS";4,0;"YOU HAVE BEEN AMBUSHED BY GUNMENIN A FOREST. THE ONLY SAFE PLACE IS A LOW WALL BEHIND WHICH YOU TAKE COVER." [9 ,0;1;7;"YOU MUST TRY TO KILL ALL GUNMEN BY AIMING OVER THE TOP OF THE WALL. BUT THE SNIPERS ARE QUITE GOOD SHOTS!";16,0;"HOW LONG CAN YOU SURVIVE?......." `Jf$=21+1+" "+21+0 bKG$=21+1+" "+21+0 gDx=07:y=19 :a:(143+y)+x,a:y:x l/x=07:a,b:""+x,a:""+x,b:x q3X=111 :L(X,1):L(X,2):X vJX=07:A:""+X,A:X:W$="" t$=""+f$+""+f$+"" $S$(1)="":S$(2)="" ,X=07:A:(156)+X,A:X /X=07:A,B:""+X,A:""+X,B:X /X=07:A,B:""+X,A:""+X,B:X EQ$=16+0+17+4+" "+G$+""+G$+"":P$="" <R$=16+0+17+4+""+G$+""+G$+" " 2X=15:S(X,1):S(X,2):X 4x=15:y=15:P(X,Y):Y:X 37;2;"PRESSTO FIND OUT!!!";X$ **PRINT SCENE** 8:6;1;"A M B U S H @1983 MICHAEL BEWS" Ax=10 264:0;4;1,x;t$:x @x=111 :0;L(X,1),L(X,2);t$;:X QX=311 :L(X,1)+2,L(X,2)+2;6;"";:X 40;15,0;T$;17,3;T$ 0;14,0;W$  13 ,10 ;Q$ %215,23;0;6;"TIME: " *h20,0;2;7;"SHOOT SNIPERS AS THEY FIRE. KEYS'A&Z'(UP/DN)'N&M'(AIM) 'B'(FIRE)" 4 100d =** PLAYER SHOT! >20,0;7;2;" ";20,0;1;"YOU HAVE BEEN SHOT! IN TIME:";TM;21,0;"THIS IS THE SNIPER WHO SHOT YOU^" @D0;4;1;S(K,1),S(K,2);S$(2); C.8L,1:5:.5,1:2:.3,1:.8L,1:.5,4:2:.4L,3:2:.4L,3:2:.5,1:1:.8L,1:4:.5,0:1,1 H 860\ Q**ALL SNIPERS DEAD RTB>TMTB=TM W20,0;7;2;" ";20,0;1;"YOU SHOT ALL SNIPERS IN TIME:";TM;21,0;"BEST TIME SO FAR:";TB YBY=15:X=110 :.05|L,X*2:X:Y \=0;7;1;"PRESS FOR NEXT GAME";X$ fMX=80P:K$="0000000000" p$TM=0:MN=0:FR=0 z 700  **tree 3,15,0,127,255,252,0,60<,8,3,255,192,63?,255,188,0,60<,0,15,255,240,557,247,248,0,60<,138,15,255,248,31,63?,248,0,60<,40(,126~,255,126~,31,60<,240,0,60<,138,127,255,254,24,60<,480,0,60<,162,255,255,252,0,60<,0,0,60<,160,127,223,252,0,60<,0,0,60<,32  * sniper 0,252,63?,252,2,124|,3,252,0,124|,1,252,1,124|,3,60< **tree PRINT AT FILE 2,4,1,18,3,6,2,20,3,24,4,11 ,4,29,6,10 ,6,15,7,21,8,26 **WALL P513,255,219,255,253,255,183,255 **MAN CROUCHING P249,113q,113q,33!,255,113q,123{,219  **MAN DOWN 0,0,0,0,0,0,0,0,160,0,247,224,255,241,247,255 #**MAN STANDING $248,115s,113q,255,115s,251,118v,255,38&,253,250,251,254,247,112p,255 -*sniper print at file .V5,6,8,10 ,8,15,9 ,21,10 ,26 7*sniper firing coords 847/,127,10 ,502,546,79O,110n,39',70F,37%,119w,110n,60<,60<,37%,167,102f,127,80P,29,207,94^,200,120x,21 7:7:0: T