******** ********************* 30 REM**************************************************************** 40 REM**************************************************************** 50 REM*TANK BATTLE*************TANK BATTLE*************TANK BATTLE**** 60 REM**************************************************************** 800 POKE515,0 900 TA=53769:TE=53785:RL=53392:RR=53394:X=1:Y=5 910 TR(1)=1:TR(2)=-31:TR(3)=-32:TR(4)=-33:TR(5)=-1:TR(6)=31:TR(7)=32 920 TR(8)=33:TG(1)=250:TG(2)=249:TG(3)=248:TG(4)=255:TG(5)=254 930 TG(6)=253:TG(7)=252:TG(8)=251 950 GOSUB7000 1000 PRINTCHR$(30) 1010 POKETA,250:POKETE,254 1020 FORRP=1TO24:POKERL,140:POKERR,139:RL=RL+32:RR=RR+32:NEXTRP 1030 POKE53584,203:POKE53585,132:POKE53586,206:POKE53616,32 1040 POKE53618,32:POKE53648,204:POKE53649,131:POKE53650,205 1050 POKE53904,203:POKE53905,132:POKE53906,206:POKE53936,32 1060 POKE53938,32:POKE53968,204:POKE53969,131:POKE53970,205 1100 GOSUB9000 2000 POKE530,1 2010 POKE57088,253 2020 IFPEEK(57088)=127THENX=X+1:IFX=9THENX=1 2030 POKETA,TG(X):POKETA-TR(X),32:POKETE,TG(Y):POKETE-TR(Y),32 2035 IFPEEK(57088)=239GOTO10000 2040 IFPEEK(57088)=191THENTA=TA+TR(X) 2050 IFPEEK(57088)=223THENX=X-1:IFX=0THENX=8 2060 IFPEEK(57088)=253THENY=Y-1:IFY=0THENY=8 2070 IFPEEK(57088)=251THENTE=TE+TR(Y) 2080 IFPEEK(57088)=247THENY=Y+1:IFY=9THENY=1 2090 IFPEEK(57088)=186THENTA=TA+TR(X):TE=TE+TR(Y) 2100 IFPEEK(57088)=125THENX=X+1:Y=Y-1 2110 IFPEEK(57088)=123THENX=X+1:TE=TE+TR(Y) 2120 IFPEEK(57088)=119THENX=X+1:Y=Y+1 2130 IFPEEK(57088)=189THENTA=TA+TR(X):Y=Y-1 2140 IFPEEK(57088)=187THENTA=TA+TR(X):TE=TE+TR(Y) 2150 IFPEEK(57088)=183THENTA=TA+TR(X):Y=Y+1 2160 IFPEEK(57088)=221THENX=X-1:Y=Y-1 2170 IFPEEK(57088)=219THENX=X-1:TE=TE+TR(Y) 2180 IFPEEK(57088)=215THENX=X-1:Y=Y+1 2200 IFTA<53381GOTO10000 2210 IFTA>54140GOTO10000 2220 IFTE<53381GOTO10000 2230 IFTE>54140GOTO10000 2990 IFX=0THENX=8 2991 IFY=9THENY=1 2992 IFX=9THENX=1 2993 IFY=0THENY=8 2994 IFPEEK(TA+TR(X))<>32THENTA=TA-TR(X) 2995 IFPEEK(TE+TR(Y))<>32THENTE=TE-TR(Y) 2996 POKE57088,254 2997 IFPEEK(57088)=252THENGOSUB8000 2998 IFPEEK(57088)=250THENGOSUB8000 2999 IFPEEK(57088)=248THENGOSUB8000 3000 GOTO2010 7000 REM ******** INSTRUCTIONS ** 7010 PRINTCHR$(30) 7020 PRINT" TANK BATTLE" 7030 PRINT"------------------------" 7040 PRINT" The two tanks are enemies." 7050 PRINT"CONTROLS:-" 7060 PRINT"Left tank:- Q-slew left A- forward.Z-slew right":PRINT 7070 PRINT"Right tank:- /-slew left ;-forward.P-slew right" 7080 PRINT"Left & right SHIFT are fire buttons":PRINT 7090 PRINT"The tanks can only cross the river at the bridges." 7100 PRINT"The tanks can fire across the river but " 7110 PRINT"they have a limit to their range" 7120 PRINT:INPUT"ANY KEY TO START";S$ 7130 PRINTCHR$(30) 7140 FORPR=1TO10:PRINT:NEXTPR 7150 PRINT" WARNING":PRINT 7160 PRINT" THE TANKS CANNOT TURN ON THE BRIDGES !!!!!" 7170 FORDL=1TO2000:NEXTDL 7180 RETURN 8000 IFPEEK(57088)<>252GOTO8050 8005 A=1 8010 FORST=1TO12:SH=TE+(ST*TR(Y)) 8020 IFPEEK(SH)=32THENPOKESH,46 8025 IFPEEK(SH-TR(Y))=46THENPOKESH-TR(Y),32 8030 IFPEEK(SH)>247THENPOKESH,233:GOTO10000 8040 NEXTST 8050 IFPEEK(57088)<>250GOTO8100 8055 B=1 8060 FORST=1TO12:SO=TA+(ST*TR(X)) 8070 IFPEEK(SO)=32THENPOKESO,46 8075 IFPEEK(SO-TR(X))=46THENPOKESO-TR(X),32 8080 IFPEEK(SO)>247THENPOKESO,233:GOTO10000 8090 NEXTST 8100 IFPEEK(57088)<>248GOTO8164 8105 A=1:B=1 8110 FORST=1TO12:SO=TA+(ST*TR(X)):SH=TE+(ST*TR(Y)) 8120 IFPEEK(SH)=32THENPOKESH,46 8125 IFPEEK(SH-TR(Y))=46THENPOKESH-TR(Y),32 8130 IFPEEK(SO)=32THENPOKESO,46 8135 IFPEEK(SO-TR(X))=46THENPOKESO-TR(X),32 8137 IFPEEK(SH)ANDPEEK(SO)>247THENPOKESH,233:POKESO,233:GOTO10000 8140 IFPEEK(SH)>247THENPOKESH,233:GOTO10000 8150 IFPEEK(SO)>247THENPOKESH,233:GOTO10000 8160 NEXTST 8164 IFA=1THENPOKESH,32 8166 IFB=1THENPOKESO,32 8170 RETURN 9000 LA=53380:LE=53405 9010 FORLI=1TO24 9020 LA=LA+32:LE=LE+32 9030 POKELA,96:POKELE,96 9070 NEXTLI 9080 FORS=53338TO53373:POKES,96:NEXTS 9090 FORS=54148TO54173:POKES,96:NEXTS 9100 POKE53413,32 9120 RETURN 10000 PRINT"HIT!!!!!":POKE530,0:END OK RUN