IIK COWBOYS AND INDIANS FOR THE ZX-SPECTRUM 2 1000 < 1100L F 1200 P 1500 Z 1600@ d 2700 n0K=1 S=S+1:K=0:2700 xCM=0 160 C=7:1700 CY=CY+CM:CM=0 C=5:1700 BE=0 270 C=7:1900l BX=BX+1 %BX>30 BE=0:170 P=(BY,BX)-568 -P=7 C=2:1900l:70F /P=4 2000:BE=0:270 J=1 3 JBY>Y(J)-3 BY1 CM=-1 7(I$="Z"I$="z") CR=0 CY<18 CM=1 5I$=(13 ) CR=0 BE=0 2500 Z=40( 440 'CR=CR+(CR) :CR<20 460 *MX=MI-5:MX=0 2800 :  80P J=1 3 8I(J)=1 H(J)=0 ƥ<.01z# = M(J)=1 J J=1 3 (H(J)=0 I(J)=0 520 BI(J)=I(J)+1:I(J)=MX+10 M(J)=1:I(J)=1 J 9I(1)+I(2)+I(3)=0 2600( :  110n  INITIALIZE $MX=25:S=0:BN=0 0Y(3):I(3):H(3):M(3)  LDEFINE CHARACTERS VI=65A 82R `J=0 7 jD t (I)+J,D ~J :I  DISPLAY TITLE  &4,14;2;"COWBOYS" "6,16;4;"AND" &8,14;5;"INDIANS" ,0:16,0;" A TO GO UP" " Z TO GO DOWN" "ENTER TO FIRE" I=1 500 :I   SET UP VARIABLES 1CX=2:CY=18:CR=0:CM=1 $BX=0:BY=0:BE=0 >Y(1)=3:Y(2)=10 :Y(3)=17 <I(1)=1:I(2)=1:I(3)=1 <H(1)=1:H(2)=1:H(3)=1 <M(1)=1:M(2)=1:M(3)=1 ""IX=4:K=0:Z=0 , @DISPLAY GAME SCREEN J 7: TC=1:21004 ^C=2:21004 hC=3:21004 r  DRAW COWBOY C CY,CX;(144) CY+1,CX;(145) CY+2,CX;(146)   DRAW INDIAN C 'Y(J)-H(J)*2,MX+IX;(159) &/Y(J)-H(J)*2+1,MX+IX;(160) 0/Y(J)-H(J)*2+2,MX+IX;(161) : l DRAW BULLET vBY,BX;C;"-"  SPLAT CACTUS  7 BY-1,BX;" "  BY,BX;" " BY+1,BX;" "  4 DRAW CACTUS > 4 H1Y(C),MX;(147);(152);(155) R9Y(C)+1,MX;(148);(153);(156) \9Y(C)+2,MX;(149);(154);(157) f9Y(C)+3,MX;(150);(153);(158) p9Y(C)+4,MX;(151);(153);(158) z  BANG SOUND NI=1 15 2:0.01z# =/I,0:0.01z# =/I,10 :I   PING SOUND .05|L,24  `LEAD INDIAN SOUND j.2~L,-10 t GUN FIRE ROUTINE 9BE=1:BX=CX+1:BY=CY+1:BN=BN+1 4BN=7 BN=0:BE=0 :CR=1: 2200  ( PLAYER WON 2 :0 <"THE REST OF THE INDIANS" F"HAVE RUN AWAY. YOU SAVED" P"THE VILLAGE!" Z DISPLAY SCORE 00,0;0;"INDIANS KILLED: ";S  PLAYER LOST :0 "YOU HAVE BEEN OVERWHELMED" "BY THE INDIANS. BAD LUCK!"  K60<,60<,255,60<,60<,60<,568,254 Q146,146,146,146,186,154,138,138 K138,254,40(,40(,40(,40(,44,,480 C0,0,0,0,0,4,14,14 G14,14,14,14,14,15,7,1 F0,0,8,28,28,28,28,28 I29,28,28,28,28,28,28,31 B15,7,0,0,0,0,0,0 P568,124|,124|,254,254,254,254,254 &Q254,254,254,254,254,254,254,254 0Q255,255,255,254,254,254,254,254 :B0,0,0,0,0,0,0,32 DQ112p,112p,112p,112p,112p,112p,112p,112p NG240,224,192,0,0,0,0,0 XA0,0,0,0,0,0,0,0 F4,8,8,60<,60<,60<,60<,28 J124|,68D,68D,68D,68D,68D,68D,68D K124|,40(,40(,40(,40(,40(,104h,24