100 GOTO855
105 POKE53281,0:POKE53280,0:GOSUB665:GOTO430
110 LA%=LA%-1:CL=TL+G1:EX%=PEEK(CL):IFLA%<1THENLA%=0:RETURN
115 IFEX%=31THENLS%=LS%+25:GOSUB210:GOSUB210:RETURN
120 IFCL=TRTHENIFRL%>0THENRL%=RL%-1:LS%=LS%+200:GOSUB210:RETURN
125 IFEX%=60THENIFCL=1422THENLS%=LS%+500:GOSUB210:GOSUB210:GOSUB210:RETURN
130 IFEX%=61THENIFCL=1302THENLS%=LS%-500:GOSUB210:GOSUB210:RETURN
135 GOTO210
140 RA%=RA%-1:CL=TR-G2:EX%=PEEK(CL):IFRA%<1THENRA%=0:RETURN
145 IFEX%=31THENRS%=RS%+25:GOSUB210:GOSUB210:RETURN
150 IFCL=TLTHENIFLL%>0THENLL%=LL%-1:RS%=RS%+200:GOSUB210:RETURN
155 IFEX%=60THENIFCL=1505THENRS%=RS%+500:GOSUB210:GOSUB210:GOSUB210:RETURN
160 IFEX%=63THENIFCL=1625THENRS%=RS%-500:GOSUB210:GOSUB210:RETURN
165 GOTO210
170 POKESW,0:POKESV,15:POKESH,S1:POKESL,S2:POKESA,S3:POKESS,S4:POKESW,S5
175 RP=INT(RND(0)*30)+1
180 IFRP<6THENPOKE1505,60:POKE1505+AC,6
185 IFRP>25THENPOKE1422,60:POKE1422+AC,2
190 IFRP=22THENPOKE1625,63:POKE1625+AC,6
195 IFRP=20THENPOKE1302,61:POKE1302+AC,2
200 IFFG=1THENRETURN
205 FORD=54272TO54296:POKED,0:NEXT:RETURN
210 POKECL,27:POKECL+AC,7:IFLL%>0THENPOKETL,LS:POKETL+AC,6
215 IFRL%>1THENPOKETR,RS:POKETR+AC,2
220 POKECL,28:POKECL+AC,8
225 S1=2:S2=120:S3=8:S4=0:S5=129:GOSUB170:GOSUB170:POKECL,32:POKECL+AC,0
230 RETURN
235 IFPEEK(CR)=31THENPOKETR,32:TR=CR:RL%=RL%-1:POKETR,RS:POKETR+AC,2
240 IFPEEK(CR)=RSTHENCL=CR:GOSUB210:GOTO355
245 IFPEEK(CR)=60THENRF%=300:RA%=30:GOTO350
250 IFCR=1625THENIFLL%<2THENGOSUB350:GOTO555
255 IFPEEK(CR)=215THENRL%=2:RF%=RF%/2:RS%=RS%+100:GOTO350
260 RETURN
265 IFPEEK(CR)=31THENPOKETL,32:TL=CR:LL%=LL%-1:POKETL,LS:POKETL+AC,6
270 IFPEEK(CR)=LSTHENCL=CR:GOSUB210:GOTO380
275 IFPEEK(CR)=60THENLF%=300:LA%=30:GOTO375
280 IFCR=1302THENIFRL%<2THENGOSUB375:GOTO555
285 IFPEEK(CR)=209THENLL%=2:LF%=LF%/2:LS%=LS%+100:GOTO375
290 RETURN
295 PRINTM1$G1TAB(30)M2$G2
300 FORX=0TO16:PRINT:NEXT
305 IFLL%<1THENLL%=0:LA%=0:LF%=0
310 IFRL%<1THENRL%=0:RA%=0:RF%=0
315 LF%=LF%-1:RF%=RF%-1:IFLF%<1THENLF%=0
320 IFRF%<1THENRF%=0
325 PRINTM3$"   "TAB(23)M4$"   "
330 PRINTM5$LA%TAB(23)M4$RA%
335 PRINTM6$"       "TAB(23)M7$"      ":PRINTM8$LF%TAB(23)M7$RF%
340 PRINTN1$"     "TAB(23)N2$"      ":PRINTN3$LL%TAB(23)N2$RL%
345 PRINTN4$"       "TAB(23)N5$"       ":PRINTN6$LS%TAB(23)N5$RS%:RETURN
350 POKETR,32:TR=TR+E%
355 IFJ2<3THENRV=RV+AD
360 IFJ2>3THENRH=RH+AD
365 AD=0:IFF2=0THENIFRA%>0THENGOSUB140
370 RETURN
375 POKETL,32:TL=TL+E%
380 IFJ1<3THENLV=LV+AD
385 IFJ1>3THENLH=LH+AD
390 AD=0:IFF1=0THENIFLA%>0THENGOSUB110
395 RETURN
400 IFRF%<1THENRETURN
405 IFPEEK(TR+E%)=32THEN350
410 CR=TR+E%:GOTO235
415 IFLF%<1THENRETURN
420 IFPEEK(TL+E%)=32THEN375
425 CR=TL+E%:GOTO265
430 GOSUB295:J1=PEEK(P1):J2=PEEK(P2):F1=J1AND16:F2=J2AND16
435 J1=15-(J1AND15):J2=15-(J2AND15)
440 POKESV,6:POKESH,0:POKESL,240:IFF2=0THENIFJ2=1THENG2=G2+1:IFG2>9THENG2=9
445 POKESA,128:POKESS,128:POKESW,33:IFF1=0ANDJ1=1THENG1=G1+1:IFG1>9THENG1=9
450 IFF2=0THENIFJ2=1THENG2=G2+1:IFG2>9THENG2=9
455 IFF1=0THENIFJ1=2THENG1=G1-1:IFG1<1THENG1=1
460 IFF2=0THENIFJ2=2THENG2=G2-1:IFG2<1THENG2=1
465 IFF1=0THENIFLA%>0THENIFJ1=0THENGOSUB110
470 IFF2=0THENIFRA%>0THENIFJ2=0THENGOSUB140
475 IFLF%=0THENIFRF%=0THEN555
480 IFF1<>0THENIFJ1=1THENIFLV>1THENAD=-1:E%=-40:LS=36:GOSUB415
485 IFF2<>0THENIFJ2=1THENIFRV>1THENAD=-1:E%=-40:RS=38:GOSUB400
490 IFF1<>0THENIFJ1=2THENIFLV<15THENAD=1:E%=40:LS=36:GOSUB415
495 IFF2<>0THENIFJ2=2THENIFRV<15THENAD=1:E%=40:RS=38:GOSUB400
500 IFJ1=8THENIFLH<38THENAD=1:E%=1:GOSUB415:LS=37
505 IFJ2=8THENIFRH<38THENAD=1:E%=1:GOSUB400:RS=39
510 IFJ1=4THENIFLH>0THENAD=-1:E%=-1:GOSUB415:LS=37
515 IFJ2=4THENIFRH>0THENAD=-1:E%=-1:GOSUB400:RS=39
520 IFLL%>0THENPOKETL,LS:POKETL+AC,6
525 IFRL%>0THENPOKETR,RS:POKETR+AC,2
530 IFRL%<2THENPOKE1364,215:POKE1364+AC,2
535 IFLL%<2THENPOKE1523,209:POKE1523+AC,6
540 GETQ$:IFQ$="[209]"THENCR=0:GOTO555
545 IFQ$="[208]"THENGOSUB650
550 GOTO430
555 FG=1:IFCR=1302THENLS%=LS%+1000
560 IFCR=1625THENRS%=RS%+1000
565 GOSUB295:PRINT"";:FORX=0TO39:PRINTCHR$(32);:NEXT
570 IFCR=1302THENPRINT"     *    VICTORY BY BLUE ARMY    *"
575 IFCR=1302THENPOKECR,36:POKECR+AC,6:GOTO605
580 IFCR=1625THENPRINT"     *    VICTORY BY RED ARMY     *"
585 IFCR=1625THENPOKECR,38:POKECR+AC,2:GOTO605
590 PRINTCHR$(19)TAB(11)" * *    TIE    * * "
595 IFRS%>LS%THENPRINT" RED ARMY VICTORY "
600 IFLS%>RS%THENPRINT" BLUE ARMY VICTORY "
605 DU=102:S3=0:S4=240:S5=33
610 PRINTTAB(11)"     F1   [146] TO QUIT"
615 PRINTTAB(11)"  ANY KEY [146] TO PLAY"
617 GETQ$:IFQ$=""THEN617
618 IFQ$="[133]"THEN1000
620 RESTORE:POKE198,0:FORX=0TO108:READA:NEXTX
630 READA,B:S1=A:S2=B:IFA=-1THEN620
635 GOSUB170:FORX=0TODU:NEXT:IFQ$=""THEN625
640 GOSUB205:FG=0:IFQ$=CHR$(133)THEN1000
645 RUN2
650 PRINT"":FORDU=0TO18:PRINT:NEXTDU:PRINT" /PAUSE/ ":POKE198,0
655 GETQ$:IFQ$=""THEN655
660 RETURN
665 LS=37:RS=39:LH=0:LV=5:RH=38:RV=12:P2=56320:P1=56321
670 SV=54296:SH=54273:SL=54272:SA=54277:SS=54278:SW=54276
675 TL=1304:TR=1623:AC=54272:LA%=30:RA%=30:G1=5:G2=5
680 LF%=400:RF%=400:LL%=9:RL%=9
685 M1$="ELEV":M2$="ELEV"
690 M3$="AMMO   :":M4$="AMMO   :":M5$="[145]AMMO   :"
695 M6$="FUEL   :":M7$="FUEL   :":M8$="[145]FUEL   :"
700 N1$="LIVES  :":N2$="LIVES  :":N3$="[145]LIVES  :"
705 N4$="SCORE  :":N5$="SCORE  :":N6$="[145]SCORE  :"
710 PRINT"[147]"TAB(15)"B[149]AT[153]T[153]L[129]E[149]F[150]IEL[153]D"
715 PRINT:FORX=0TO39:PRINT"[149]+";:NEXT:FORX=0TO14:PRINT:NEXT
720 FORX=0TO39:PRINT"+";:NEXT:X=INT(RND(0)*30)+10:C=5
725 FORXX=0TOX:T=INT(RND(0)*500):POKET+1144,43:POKET+55416,C:IFC=5THENC=6
730 C=C+1:IFC>9THENC=5
735 NEXT
740 X=INT(RND(0)*10)+4
745 FORXX=0TOX:T=INT(RND(0)*500):POKET+1144,31:POKET+55416,11:NEXT
750 X=INT(RND(0)*6)+4
755 FORXX=0TOX:T=INT(RND(0)*500):POKET+1144,31:POKET+55416,0:NEXT:XX=0
760 FORX=0TO14:POKE1162+XX,31:POKE1163+XX,31:POKE1164+XX,31:POKE1165+XX,31
765 POKE1162+AC+XX,11:POKE1163+AC+XX,11
770 POKE1164+AC+XX,11:POKE1165+AC+XX,11:XX=XX+40:NEXT
775 D1=1505:D2=1422:POKED1,60:POKED2,60:POKE55777,6:POKE55694,2
780 H1=1625:H2=1302:POKEH1,63:POKEH2,61:POKE55897,6:POKE55574,2
785 POKEH1+1,31:POKEH2-1,31:POKEH1+1+AC,11:POKEH2-1+AC,11
790 POKEH1-40,31:POKEH2-40,31:POKEH1-40+AC,11:POKEH2-40+AC,11
795 POKEH1+40,31:POKEH2+40,31:POKEH1+40+AC,11:POKEH2+40+AC,11
800 POKETL,LS:POKETL+AC,6:POKETR,RS:POKETR+AC,2:RETURN
805 DATA 63,0,255,219,219,195,219,219,255,61,0,255,219,219,195,219,219,255
810 DATA 60,255,142,180,180,142,255,192,192,43,36,94,187,127,234,119,92,16
815 DATA 36,0,238,254,232,199,232,254,238,37,254,254,104,71,104,254,254,0
820 DATA 38,0,119,127,23,227,23,127,119,39,127,127,22,226,22,127,127,0
825 DATA 31,0,204,0,51,0,204,0,51,27,16,147,199,235,203,203,8,8
830 DATA 28,22,52,8,3,216,4,62,38,29,66,0,194,11,68,34,65,152,-1
835 DATA23,181,29,223,29,223,29,223,23,181,29,223,29,223,29,223,23
840 DATA181,29,223,29,223,29,223,23,181,17,195,17,195,17,195,17,195
845 DATA 29,223,29,223,23,181,17,195,23,181,29,223,29,223,29,223,23
850 DATA 181,29,223,29,223,29,223,23,181,-1,-1
855 POKE53281,0:POKE53280,0
860 PRINTCHR$(147)CHR$(142):FORX=0TO24:PRINT:NEXTX
865 PRINT"     [223][146]  [169] [223][146]  [169]     [223][146]  [169]     [223][146]   [146]  [169]   [223]"
870 PRINT" [146]     [146]   [146]  [146]      [146]         [146]      [146]   [146]"
875 PRINT" [146]     [146]   [146]  [146]      [146]         [146]      [146]   [146]"
880 PRINT" [162][162][162][162] [146]   [162] [146]      [146]         [146]      [146]   [162][162][162]"
885 PRINT" [146]     [146]   [146]  [146]      [146]         [146]      [146]   [146]"
890 PRINT" [146]     [146]   [146]  [146]      [146]         [146]      [146]   [146]"
895 PRINT"     [146][169]   [146]  [146]      [146]         [146]      [146]  [223]    [146][169]"
900 PRINT:PRINTTAB(13)"G.FIELDS/PF/TPC"
905 PRINT:PRINT"                  1985                  "
910 FORXX=0TO6:FORX=0TO300:NEXTX:PRINT:NEXTXX
915 PRINT"             WAIT 35 SECONDS            ";
920 PRINT"      WHILE THE TROOPS GET DRESSED      "
925 PRINT"":FORX=0TO11:PRINT:NEXT
930 PRINT"                                        ";
935 PRINT" BLUE ARMY: PORT 1   RED ARMY: PORT 2   ";
940 PRINT"                                        ";
945 PRINT" TO WIN: CAPTURE ENEMY HEADQUARTERS (H) ";
950 PRINT" FOR FUEL: PASS THRU EITHER DEPOT (FLAG)";
955 PRINT" FOR AMMO: PASS THRU EITHER DEPOT (FLAG)";
960 PRINT" ELEVATE GUN: FIRE BUTTON & MOVE UP/DOWN"
965 POKE56,48:CLR
970 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
975 FORI=0TO2047:POKE12288+I,PEEK(53248+I):NEXT
980 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
985 READA:IFA=-1THEN995
990 FORI=0TO7:READB:POKE12288+A*8+I,B:NEXT:GOTO985
995 POKE53272,(PEEK(53272)AND240)OR12:RUN105
1000 PRINT"[147]":POKE56,160:POKE53272,(PEEK(53272)AND240)OR4:LOAD"HELLO CONNECT",8