100 REM *** UNITED STATES WAR GAME, EAST VERSUS WEST *** 200 REM *** WRITTEN BY GARTH DOLLAHITE *** 300 REM *** FRANKLIN HIGH SCHOOL *** 400 REM *** STOCKTON CALIFORNIA *** 500 REM *** HP2000 BASIC MAY 1978 *** 600 REM *** MICROSOFT VERSION (SN) APRIL 1979 *** 1010 DIM M(47,19),G(33) 1020 FOR I=1 TO 33: G(I)=1: NEXT I 1030 S$="LANDBASEGUN MINEARMY" 1040 C$="WEEA" 1050 PRINT "ARE YOU AN EASTERNER OR WESTERNER"; 1060 INPUT P$ 1070 IF LEFT$(P$,2)="WE" THEN P=-1 ELSE P=1 1080 IF P<-1 THEN 1050 1090 FOR I=1 TO 47: FOR J=1 TO 19: M(I,J)=0: NEXT J: NEXT I 1100 C=0 1110 RESTORE 1220 1120 FOR Y=19 TO 1 STEP -1 1130 IF Y<19 THEN 1160 1140 READ A,B 1150 IF A<=C THEN 1210 1160 FOR X=A TO B 1170 M(X,Y)=SGN(X-23.5)*P 1180 NEXT X 1190 C=B 1200 GOTO 1140 1210 NEXT Y 1220 DATA 45,45,45,47,3,30,34,37,44,46,2,36,42,46 1230 DATA 2,37,40,46,2,36,39,44,1,43,1,43,1,43,2,43 1240 DATA 2,43,3,42,4,41,5,40,8,41,11,12,15,34,40,42 1250 DATA 19,20,22,28,41,43,23,25,42,43,24,25,0,0 1260 PRINT "DO YOU NEED INSTRUCTIONS"; 1270 INPUT X$ 1280 IF LEFT$(X$,1)="Y" THEN 5980 1290 PRINT "LOCATION FOR BASE"; 1300 GOSUB 5300 1310 M(A,B)=2 1320 B(3)=A 1330 B(4)=B 1340 FOR X=1 TO 4 1350 PRINT "MINE"X; 1360 GOSUB 5300 1370 IF A<22 OR A>25 THEN 1400 1380 PRINT "TOO CLOSE TO THE FRONT LINES" 1390 GOTO 1350 1400 M(A,B)=4 1410 NEXT X 1420 FOR X=3 TO 15 STEP 3 1430 PRINT "GUN"X/3; 1440 GOSUB 5300 1450 M(A,B)=3 1460 G(X-1)=A 1470 G(X)=B 1480 NEXT X 1490 F=40+RND(0)*25: T=F 1500 GOSUB 1520 1510 GOTO 1840 1520 PRINT "DISTRIBUTE YOUR FORCES" 1530 IF T<.1 THEN 5090 1540 PRINT USING "OF###.# FORCE OF ";T-0.05; 1550 REM 1560 LINE INPUT X$: S=VAL(X$) 1570 IF S THEN 1600 1580 PRINT 1590 GOTO 5090 1600 IF S>0 THEN 1630 1610 GOSUB 4800 1620 GOTO 1530 1630 IF S<=T THEN 1660 1640 PRINT: PRINT "ONLY"T"LEFT" 1650 GOTO 1540 1660 IF S<10 THEN 1690 1670 PRINT: PRINT "LESS THAN TEN" 1680 GOTO 1530 1690 PRINT TAB(22)"AT"; 1700 GOSUB 5300 1710 S=S/10 1720 IF INT(M(A,B))=5 THEN 1760 1730 T=T-S*10 1740 S=S+4 1750 GOTO 1810 1760 IF M(A,B)+S<6 THEN 1790 1770 S=5.99-M(A,B) 1780 PRINT "MAX. OF " S*10 " ENTERED" 1790 T=T-S*10 1800 IF M(A,B)+S>5.98 THEN 1820 1810 S=S+.01 1820 M(A,B)=M(A,B)+S 1830 GOTO 1530 1840 REM COMPUTER CHOOSES POSITIONS 1850 GOSUB 5410 1860 M(A,B)=-2 1870 B(1)=A 1880 B(2)=B 1890 FOR X=17 TO 32 STEP 3 1900 GOSUB 5410 1910 M(A,B)=-3 1920 G(X)=A 1930 G(X+1)=B 1940 GOSUB 5440 1950 IF X>23 THEN 1970 1960 A=23+.5-P/2-INT(RND(0)*2)*P 1970 IF M(A,B)<>-1 THEN 1940 1980 M(A,B)=-4 1990 NEXT X 2000 FOR X=1 TO F+5 2010 B=INT(RND(0)*17)+1 2020 C=23+.5-P/2 2030 IF M(C,B)<-4 THEN 2060 2040 IF M(C,B)<>-1 THEN 2010 2050 M(C,B)=-5 2060 IF M(C,B)<-5.9 THEN 2010 2070 M(C,B)=M(C,B)-.1 2080 NEXT X 2090 FOR I=1 TO 10: T(I)=0:NEXT I 2100 REM *** START GAME *** 2110 ON SGN(B(1))+SGN(B(3))*2+1 GOTO 6520,6550,6590 2120 FOR I=1 TO 10: L(I)=0 : NEXT I 2130 FOR X=1 TO 47 2140 FOR Y=1 TO 19 2150 IF M(X,Y)=0 THEN 2230 2160 N=(SGN(M(X,Y))+3)/2 2170 L(N)=L(N)+1 2180 IF M(X,Y)<-4 THEN 2210 2190 IF M(X,Y)<5 THEN 2230 2200 M(X,Y)=M(X,Y)-9.9999E-03 2210 IF ABS(M(X,Y))>5.01 THEN 2230 2220 M(X,Y)=SGN(M(X,Y)) 2230 NEXT Y 2240 NEXT X 2250 IF T(5) THEN 2290 2260 IF RND(0)>.4 THEN 2330 2270 T=RND(0) 2280 GOTO 2300 2290 T=L(2)/100 2300 PRINT "REINFORCEMENTS" 2310 GOSUB 1530 2320 T(5)=0 2330 PRINT "OBJECT TO MOVE"; 2340 GOSUB 5260 2350 A1=A 2360 B1=B 2370 N=M(A,B) 2380 IF N>1 THEN 2430 2390 PRINT "YOU HAVE NOTHING THERE" 2400 GOTO 2330 2410 A=A1 2420 B=B1 2430 GOSUB 5110 2440 IF C=0 THEN 3200 2450 IF A=0 THEN 2410 2460 M=M(A,B) 2470 IF INT(N)=5 THEN 2620 2480 IF M<>1 THEN 2410 2490 M(A1,B1)=1 2500 M(A,B)=N 2510 IF N=3 THEN 2560 2520 IF N=4 THEN 3200 2530 B(3)=A 2540 B(4)=B 2550 GOTO 3200 2560 FOR K=2 TO 14 STEP 3 2570 IF G(K)=A1 AND G(K+1)=B1 THEN 2590 2580 NEXT K 2590 G(K)=A 2600 G(K+1)=B 2610 GOTO 3200 2620 REM MOVE ARMY 2630 T(3)=A 2640 T(4)=B 2650 IF INT(M)+5>0 THEN ON INT(M)+5 GOTO 3190,3000,3000,3020,2410,3020,2410,2410,2410,3020 2660 REM ARMY BATTLE 2670 D=SQR((T(3)-A1)^2+(T(4)-B1)^2)/100 2680 IF RND(0)+(N+ABS(M)-10+D)>N-5 THEN 2970 2690 PRINT "YOU WIN THE BATTLE, ENEMY "; 2700 N=(N-5)*(.75+(RND(0)*24)/100)+5: M(A1,B1)=N 2710 Q=1: T(5)=Q 2720 FOR X=A-1 TO A+1 2730 IF X<1 OR X>47 THEN 2790 2740 FOR Y=B-1 TO B+1 2750 IF Y<1 OR Y>19 OR (A=X AND B=Y) THEN 2780 2760 IF M(X,Y)<>-1 THEN 2780 2770 Q=0 2780 NEXT Y 2790 NEXT X 2800 IF Q THEN 2940 2810 A2=A 2820 B2=B 2830 PRINT "RETREATS" 2840 A=A2 2850 B=B2 2860 C=INT(RND(0)*8)+1 2870 GOSUB 5130 2880 IF A=0 THEN 2840 2890 IF M(A,B)<>-1 THEN 2840 2900 M(A,B)=(M+5)*RND(0)-5 2910 A=A2 2920 B=B2 2930 GOTO 2950 2940 PRINT "IS DESTROYED" 2950 M(A,B)=1 2960 GOTO 3020 2970 PRINT "BATTLE LOST" 2980 M(A1,B1)=(N-5)*RND(0)+5 2990 GOTO 3200 3000 PRINT "YOU'VE CAPTURED A ";MID$(S$,ABS(M)*4-3,4) 3010 GOSUB 5690 3020 PRINT "OF"(N-5)*10"HOW MANY TO MOVE"; 3030 INPUT L 3040 IF L<0 THEN 3020 3050 L=L/10 3060 IF INT(M)<>5 OR M+L<6 THEN 3090 3070 PRINT "TOO MUCH" 3080 GOTO 3020 3090 IF L5 THEN 3170 3150 M(A,B)=M+L 3160 GOTO 3200 3170 M(A,B)=5+L 3180 GOTO 3200 3190 GOSUB 5920 3200 REM SHOOT GUNS 3210 FOR X=1 TO 31 STEP 3 3220 G(X)=G(X)+1 3230 NEXT X 3240 Y=1 3250 FOR F2=1 TO 2 3260 GOSUB 5630 3270 IF G THEN 3310 3280 IF F2=2 THEN 3690 3290 PRINT "YOU HAVE NO GUNS TO FIRE" 3300 GOTO 3690 3310 PRINT "GUN TO FIRE "; 3320 GOSUB 5250 3330 IF M(A,B)=3 THEN 3360 3340 PRINT "THERE IS NO GUN THERE" 3350 GOTO 3310 3360 FOR Z=1 TO 13 STEP 3 3370 IF G(Z+1)=A AND G(Z+2)=B THEN 3390 3380 NEXT Z 3390 IF G(Z) THEN 3420 3400 PRINT "THAT GUN IS TEMPORARILY OUT OF ORDER" 3410 GOTO 3310 3420 PRINT "TARGET "; 3430 GOSUB 5250 3440 IF SQR((A-G(Z+1))^2+(B-G(Z+2))^2)47 THEN 3760 3780 NEXT X 3790 V=M(A(3),A(4)) 3800 IF V<>-1 AND (INT(V)<>-6 OR V<5.89) THEN 3750 3810 IF V=-1 THEN 3840 3820 M(A(3),A(4))=V-.1 3830 GOTO 3850 3840 M(A(3),A(4))=-5.1 3850 T=T-1 3860 IF T>0 THEN 3730 3870 GOTO 3880 3880 REM COMPUTER MOVES 3890 T(1)=0 3900 FOR T2=1 TO 2 3910 FOR A=1 TO 47 3920 FOR B=1 TO 19 3930 IF M(A,B)<-4 THEN 3990 3940 NEXT B 3950 NEXT A 3960 IF T2=2 THEN 4630 3970 PRINT "I WON'T MOVE" 3980 GOTO 4630 3990 A1=A 4000 B1=B 4010 FOR C=1 TO 8 4020 A=A1 4030 B=B1 4040 GOSUB 5140 4050 IF A=0 THEN 4070 4060 IF M(A,B)>0 THEN 4110 4070 NEXT C 4080 A=A1 4090 B=B1 4100 GOTO 3940 4110 GOSUB 5440 4120 M=M(A,B) 4130 IF INT(M)<>-6 THEN 4110 4140 A1=A 4150 B1=B 4160 C=INT(RND(0)*8)+1 4170 A=A1 4180 B=B1 4190 GOSUB 5140 4200 IF A=0 THEN 4160 4210 N=M(A,B) 4220 IF N<1 THEN 4110 4230 IF N<>4 THEN 4260 4240 GOSUB 5920 4250 GOTO 4620 4260 A2=A 4270 B2=B 4280 IF N>4 THEN 4340 4290 PRINT "I TAKE"; 4300 GOSUB 5480 4310 GOSUB 5690 4320 PRINT 4330 GOTO 4560 4340 PRINT "I ATTACK"; 4350 GOSUB 5480 4360 IF RND(0)*(N+ABS(M)-10)>N-5 THEN 4600 4370 PRINT "SUCCESSFULLY" 4380 FOR X=A-1 TO A+1 4390 IF X<1 OR X>47 THEN 4440 4400 FOR Y=B-1 TO B+1 4410 IF Y<1 OR Y>19 THEN 4430 4420 IF M(X,Y)=1 THEN 4470 4430 NEXT Y 4440 NEXT X 4450 PRINT "YOUR MEN ARE TRAPPED AND DEAD" 4460 GOTO 4560 4470 PRINT "RETREAT "; 4480 A=A2 4490 B=B2 4500 GOSUB 5110 4510 IF A=0 THEN 4470 4520 IF M(A,B)<>1 THEN 4470 4530 M(A,B)=(N-5)*RND(0)+5 4540 T(1)=A2 4550 T(2)=B2 4560 N=(M+5)*RND(0) 4570 M(A2,B2)=N-5 4580 M(A1,B1)=M-N 4590 GOTO 4620 4600 PRINT "IN VAIN" 4610 M(A1,B1)=(M+5)*RND(0)-5 4620 NEXT T2 4630 REM COMPUTER SHOOTS 4640 Y=16 4650 GOSUB 5630 4660 FOR X=1 TO G 4670 GOSUB 5440 4680 IF M(A,B)<1 THEN 4670 4690 IF X=2 THEN 4710 4700 PRINT "ENEMY GUNS DESTROY"; 4710 GOSUB 5480 4720 IF X=G THEN 4740 4730 PRINT "AND"; 4740 GOSUB 5690 4750 M(A,B)=0 4760 GOSUB 5510 4770 NEXT X 4780 PRINT 4790 GOTO 2100 4800 REM PRINT SUBROUTINE 4810 PRINT 4820 GOSUB 5080 4830 FOR V=19 TO 1 STEP -1 4840 IF V=INT(V/5)*5 THEN 4870 4850 PRINT " "; 4860 GOTO 4880 4870 PRINT "-"; 4880 FOR U=1 TO 47 4890 W=M(U,V) 4900 IF W THEN 4930 4910 PRINT " "; 4920 GOTO 5030 4930 IF W<0 THEN 5020 4940 IF W<5 THEN 4970 4950 PRINT CHR$(48+INT(10*(W-5))); 4960 GOTO 5030 4970 IF W=1 THEN 5000 4980 PRINT MID$(S$,W*4-3,1); 4990 GOTO 5030 5000 PRINT ":"; 5010 GOTO 5030 5020 PRINT MID$(C$,(3-P)/2,1); 5030 NEXT U 5040 IF V<>INT(V/5)*5 THEN 5060 5050 PRINT "-"; 5060 PRINT 5070 NEXT V 5080 PRINT " ! 1 ! 2 ! 3 ! 4 !" 5090 RETURN 5100 GOSUB 4800 5110 PRINT "DIRECTION"; 5120 INPUT C 5130 IF C<1 OR C>8 THEN 5210 5140 IF C=8 THEN 5160 5150 B=B+SGN(4-C) 5160 IF C=2 THEN 5210 5170 IF C<>1 THEN 5200 5180 A=A-1 5190 GOTO 5210 5200 A=A+SGN(6-C) 5210 IF A>0 AND A<48 AND B>0 AND B<20 THEN 5230 5220 A=0 5230 RETURN 5240 GOSUB 4800 5250 PRINT "CO-ORDINATES"; 5260 INPUT A,B 5270 IF A<1 OR B<1 OR A>47 OR B>19 THEN 5240 5280 RETURN 5290 PRINT ", CO-ORDINATES"; 5300 GOSUB 5260 5310 N=M(A,B) 5320 IF N THEN 5350 5330 PRINT "THERE IS NOTHING THERE"; 5340 GOTO 5290 5350 IF N>0 THEN 5380 5360 PRINT "THAT IS ENEMY TERRITORY"; 5370 GOTO 5290 5380 IF N=1 OR N>4 THEN 5280 5390 PRINT "THERE IS ALREADY SOMETHING THERE"; 5400 GOTO 5290 5410 GOSUB 5440 5420 IF M(A,B)<>-1 OR (A>21 AND A<26) THEN 5410 5430 RETURN 5440 A=INT(RND(0)*47)+1 5450 B=INT(RND(0)*19)+1 5460 IF M(A,B) THEN 5430 5470 GOTO 5440 5480 PRINT USING " (##!##) ";A,",",B; 5490 REM 5500 RETURN 5510 FOR E=A-1 TO A+1 5520 IF E<1 OR E>47 THEN 5610 5530 FOR F=B-1 TO B+1 5540 IF F<1 OR F>19 THEN 5600 5550 IF ABS(M(E,F))<>3 THEN 5600 5560 FOR K=2 TO 32 STEP 3 5570 IF G(K)=E AND G(K+1)=F THEN 5590 5580 NEXT K 5590 G(K-1)=-1 5600 NEXT F 5610 NEXT E 5620 RETURN 5630 G=0 5640 FOR X=Y TO (-(Y=16))*18+13 STEP 3 5650 IF G(X)<1 OR G(X+1)=0 OR G=2 THEN 5670 5660 G=G+1 5670 NEXT X 5680 RETURN 5690 IF ABS(M(A,B))<>2 THEN 5750 5700 FOR K=1 TO 3 STEP 2 5710 IF B(K)=A AND B(K+1)=B THEN 5730 5720 NEXT K 5730 B(K)=0 5740 RETURN 5750 IF ABS(M(A,B))<>3 THEN 5800 5760 FOR K=2 TO 32 STEP 3 5770 IF G(K)=A AND G(K+1)=B THEN 5790 5780 NEXT K 5790 G(K)=0: G(K-1)=0 5800 RETURN 5810 REM ANYWHERE TO DISTRIBUTE MEN? 5820 Q=1 5830 FOR A=T(3)-1 TO T(3)+1 5840 IF A<1 OR A>47 THEN 5900 5850 FOR B=T(4)-1 TO T(4)+1 5860 IF B<1 OR B>47 THEN 5900 5870 IF M(A,B)<>-1 AND (INT(M(A,B))<>-6 OR M(A,B)<5.89) THEN 5890 5880 Q=0 5890 NEXT B 5900 NEXT A 5910 RETURN 5920 PRINT "B"CHR$(7)"O"CHR$(7)"O"CHR$(7)"M HIT MINE AT:"; 5930 GOSUB 5480 5940 PRINT 5950 M(A1,B1)=SGN(M(A1,B1)) 5960 M(A,B)=0 5970 RETURN 5980 PRINT:PRINT "A LOBBY, HEADED BY THE DESTROY INTERNATIONAL STUPID" 5990 PRINT "COMPUTERS MOVEMENT OF THE "MID$(C$,2-P,2)"ST COAST HAS CONVINCED" 6000 PRINT "THE GOVERNMENT TO OUTLAW COMPUTERS. WE CANNOT ALLOW THIS." 6010 PRINT "THE "MID$(C$,2+P,2)"STERN STATES HAVE DECIDED TO SECEDE FROM" 6020 PRINT "THE UNION. A BATTLE FRONT HAS DEVELOPED IN THE CENTRAL" 6030 PRINT "STATES.": PRINT 6040 PRINT "YOU HAVE BEEN APPOINTED SECRETARY OF WAR. YOU ARE TO WIN" 6050 PRINT "INDEPENDENCE FOR THE "MID$(C$,2+P,2)"ST, EVEN IF YOU HAVE TO" 6060 PRINT "DESTROY THE ENTIRE CONTINENT. WE MUST MAKE THE WORLD SAFE" 6070 PRINT "FOR COMPUTERS BY STOPPING THE D.I.S.C. MOVEMENT.": PRINT 6080 PRINT "YOU WILL BE LOCATED AT A BASE. FROM THERE, YOU ARE TO" 6090 PRINT "CO-ORDINATE ALL ACTIVITIES. IF YOU CAN DESTROY THE" 6100 PRINT MID$(C$,2-P,2)"ST'S BASE, THEIR EFFORTS WILL BE HALTED AND" 6110 PRINT "COMPUTERS WILL BE SAFE.": PRINT 6120 PRINT "<>" 6130 LINE INPUT X$ 6140 PRINT "THE COUNTRY WILL BE REPRESENTED ON A 47 X 19 MAP:" 6150 GOSUB 4800 6160 PRINT "THE DOTS SHOW YOUR TERRITORY. YOU WILL NOT BE SHOWN" 6170 PRINT "WHERE ANYTHING IS LOCATED IN THE "MID$(C$,2-P,2)"ST, BUT ONLY" 6180 PRINT "WHICH LAND IS OCCUPIED.": PRINT 6181 PRINT "<>" 6182 LINE INPUT X$ 6190 PRINT "BOTH SIDES WILL HAVE THE FOLLOWING:": PRINT 6200 PRINT "BASE LOSE IT AND THE WAR IS OVER. THE CLOSER IT IS TO" 6210 PRINT TAB(7)"YOUR ARMIES, THE STRONGER THE ARMY.": PRINT 6220 PRINT "GUNS THESE ARE MISSILE SITES WHICH CAN LAUNCH MISSLES" 6230 PRINT TAB(7)"TO DESTROY ANYTHING. THEY WILL HIT WITHIN ONE UNIT" 6240 PRINT TAB(7)"PROVIDED IT IS NOT SHOT OUT OF RANGE. THE MAXIMUM" 6250 PRINT TAB(7)"RANGE IS BETWEEN 15 AND 25 UNITS. IF OUT OF RANGE," 6260 PRINT TAB(7)"IT MAY LAND ANYWHERE IN THE PATH. YOU MAY NOT USE" 6270 PRINT TAB(7)"THE SAME GUN SIGHT TWICE IN A ROW. ALSO, A GUN SIGHT" 6280 PRINT TAB(7)"WILL BE INOPERATIVE FOR ONE TURN IF A MISSLE LANDS" 6290 PRINT TAB(7)"IN AN ADJACENT SPACE. YOU WILL BE ALLOWED TWO SHOTS" 6300 PRINT TAB(7)"PER TURN.": PRINT 6301 PRINT "<>" 6302 LINE INPUT X$ 6310 PRINT "ARMIES WILL BE REPRESENTED AS INTEGERS LESS THAN TEN, THE" 6320 PRINT TAB(7)"HIGHER THE NUMBER, THE STRONGER THE ARMY. ARMIES CAN" 6330 PRINT TAB(7)"BE USED AS DEFENSE OR OFFENSE. THEY CAN PROTECT YOUR" 6340 PRINT TAB(7)"BASE OR GUNS AGAINST ENEMY ARMIES OR ADVANCE INTO THE" 6350 PRINT TAB(7);MID$(C$,2-P,2)"STERN TERRITORY. ARMIES ARE THE ONLY" 6360 PRINT TAB(7)"OBJECTS WHICH MAY ADVANCE INTO AND CAPTURE ENEMY" 6370 PRINT TAB(7)"TERRITORY. ARMIES WILL ALSO BE REFERRED TO AS FORCES." 6380 PRINT TAB(7)"YOU WILL BE GIVEN REINFORCEMENTS AFTER WINNING A BATTLE." 6390 PRINT TAB(7)"THE MORE LAND YOU CONTROL, THE HIGHER REINFORCEMENT" 6400 PRINT TAB(7)"STRENGTH.": PRINT 6401 PRINT "<>" 6402 LINE INPUT X$ 6410 PRINT "MINES ARE USED AS DEFENSE AGAINST ENEMY ARMY ATTACKS." 6420 PRINT TAB(7)"THEY WILL DESTROY ANY ATTACKING ARMY.": PRINT 6430 PRINT "IDENTIFICATION OF OBJECTS WILL BE BY CO-ORDINATES, COLUMN," 6440 PRINT "ROW, STARTING FROM THE LOWER LEFT OF THE MAP." 6450 PRINT "INVALID CO-ORDINATES, SUCH AS 0,0 WILL GIVE AN 1 2 3" 6460 PRINT "UPDATED MAP. MOVEMENTS CAN BE MADE ONE UNIT IN 8 + 4" 6470 PRINT "ANY DIRECTION. DIRECTIONS ARE LABLED AT THE 7 6 5" 6480 PRINT "RIGHT.": PRINT 6490 PRINT "THE FOLLOWING IS TO SET UP THE GAME. ENTER WHERE ON THE MAP" 6500 PRINT "YOU WISH EACH IS TO BE PLACED.": PRINT 6510 GOTO 1290 6520 PRINT "BOTH OF OUR BASES HAVE BEEN DESTROYED. FOREIGN POWERS" 6530 PRINT "WILL MOVE IN AND TAKE OVER." 6540 GOT 6560 6550 PRINT "YOU AND YOUR COMMAND HEADQUARTERS HAVE BITTEN THE DUST" 6560 PRINT "FOR BEING KILLED, YOU HAVE JUST BEEN FIRED AS LEADER" 6570 PRINT "OF THE REVOLUTION. COMPUTERS WILL NEVER FORGIVE YOU." 6580 GOTO 6610 6590 PRINT "MY HEADQUARTERS HAS BEEN DESTROYED. MY TROOPS SURRENDER." 6600 PRINT "YOU ARE NOW THE LEADER OF YOUR NEW COUNTRY." 6610 L(1)=0: L(3)=0 6620 FOR X=1 TO 47 6630 FOR Y=1 TO 19 6640 IF M(X,Y)=0 THEN 6660 6650 L(SGN(M(X,Y))+2)=L(SGN(M(X,Y))+2)+1 6660 NEXT Y 6670 NEXT X 6680 A=276 6690 B=292 6700 IF P$="E" THEN 6730 6710 B=A 6720 A=292 6730 PRINT "PERCENTAGES OF LAND LEFT:" 6740 PRINT "YOUR LAND"L(3)/B*100 6750 PRINT MID$(C$,2-P,2)"ST LAND"L(1)/A*100 6760 PRINT: PRINT "TOTAL PERCENT LAND LEFT"(L(1)+L(3))/5.68 6770 END