10 REM UGAND.ECB
   11 REM ....UGANDA.......05-05-80.....LAST CHANGE....R.E.H.
   12 PRINT "&K*****     WELCOME TO THE GAME OF UGANDA     *******&J&J"
   14 PRINT "    EACH NATIVE NEEDS AT LEST 20 BUSHELS TO LIVE"
   17 PRINT "    EACH NATIVE CAN PLANT UP TO 10 ACRES"
   19 PRINT "    TO PLANT 2 ACRES OF LAND IT TAKES 1 BUSHEL&J"
   21 PRINT "    YOU NEED 1 SOLDIER FOR EVERY 10 NATIVES"
   22 PRINT "    YOU NEED 2 SOLDIERS FOR EVERY 10 NATIVES TO GO TO WAR"
   23 PRINT "    IF YOU DO NOT HAVE AN ARMY YOU WILL BE INVADED!&J"
   25 PRINT "    WHEN YOU GO TO WAR YOU CAN MAKE MONEY OR LOSE MONEY"
   26 PRINT "***************************************************&J"
   40 PRINT "READY TO SEE MORE ? ---=>";: GOSUB 5800
   50 DIM G$(20)
  100 LET V3=0,P1=0,F9=0,Y6=1,M7=0,I1=0
  140 LET P=INT(50+100*RND(0))
  150 FOR V2=1 TO 25: LET W3=V2*2: NEXT V2
  160 PRINT "&K&J"
  180 PRINT "MAJOR GENERAL IDI AMIN SAYS:&J&J"
  190 PRINT ,"Welcome, New Country leader!&J&J"
  210 FOR V6=1 TO 10: LET W3=V2*3: NEXT V6
  220 PRINT "YOUR POPULATION IS ";P;" RESTLESS NATIVES."
  230 LET A=INT(950+RND(0)*250)
  240 PRINT "YOUR NATION OWNS ";A;" ACRES."
  250 LET S=INT(2500+2000*RND(0))
  260 PRINT "YOUR NATION HAS ";S;" BUSHELS OF GRAIN."
  270 IF P1=0 THEN 990
  280 IF S-(P*50)<0 THEN 430
  290 LET Y4=INT(Y/3.75)
  300 PRINT
  310 PRINT
  320 PRINT "THE WORLD GRAIN BANK IS NOW ACCEPTING DEPOSITS AT ";Y4;" %"
  330 PRINT "HOW MANY BUSHELS WOULD YOU LIKE TO DEPOSIT  ---=>";
  340 INPUT Y5
  350 IF Y5>S OR Y5=0 THEN 330
  360 LET S=S-Y5
  370 LET Y6=Y6+Y5
  380 LET Y6=Y6+INT(Y6*(Y4/100))
  390 PRINT
  400 PRINT "YOU PRESENTLY HAVE ";Y6;" BUSHELS ON DEPOSIT."
  410 PRINT
  420 GOTO 740
  430 LET Y6=Y6+INT(Y6*(Y4/100))
  440 IF P1<10 OR P>100 THEN 720
  450 LET F9=F9+1
  460 IF F9=4 THEN 710
  470 PRINT
  480 PRINT "YOUR COUNTRY IS IN BAD SHAPE, YOU NEED FOREIGN AID!"
  490 PRINT
  500 PRINT "TO DETERMINE THE AMOUNT OF AID, TELL THE UNITED STATES"
  510 PRINT "HOW MANY PEOPLE ARE IN YOUR COUNTRY.  ---=>";
  520 INPUT F2
  530 IF F2=1805 THEN 610
  540 IF F2=406 THEN  LET A=A*1E6
  550 IF F2=406 THEN  LET S=S*1E6
  560 IF F2=406 THEN  LET P=P+1E6
  570 IF F2=1470 THEN 590
  580 IF F2>P*2 THEN 660
  590 IF F2=1470 THEN  INPUT F2
  600 LET F3=INT((F2*76)*RND(0))
  610 IF F2=1805 THEN  LET F3=1.805E+9
  620 PRINT
  630 PRINT "THE U.S. HAS GIVEN YOU ";F3*3;" DOLLARS, WHICH BUY ";F3;" BUSHELS"
  640 PRINT
  650 GOTO 710
  660 PRINT
  670 PRINT "CONGRESS THINKS YOUR LYING, BUT THEY FEEL SORRY FOR YOU."
  680 LET F3=INT((RND(0)*1.76)*P)
  690 PRINT "AND GIVE YOU ";F3*3;" DOLLARS, WHICH BUY ";F3;" BUSHELS."
  700 PRINT
  710 LET S=S+F3
  720 IF P=0 THEN 1810
  730 IF P1=0 THEN 990
  740 IF A/P<20 THEN 840
  750 PRINT
  760 PRINT "THE SLAVE DEALER FROM SOUTH AFRICA IS IN TOWN, THE GOING"
  770 LET S1=INT((Y*3.6)*RND(0))
  780 PRINT "PRICE IS ";S1;" BUSHELS PER SLAVE, HOW MANY DO YOU WANT ---=>";
  790 INPUT V4
  800 IF V4*Y>S THEN  PRINT "YOUR CREDITS NO GOOD, I WILL BE BACK IN A FLASH."
  810 PRINT
  820 IF V4*Y>S THEN 850
  830 LET P=P+V4
  840 LET S=S-(V4*Y)
  850 IF ((A*Y)+S)/(Y*10)+22>P THEN 990
  860 PRINT
  870 PRINT "THE SLAVE DEALER FROM LIBERIA IS IN TOWN, THE GOING"
  880 LET S1=INT(Y/1.8)
  890 PRINT "PRICE IS ";S1;" BUSHELS PER SLAVE, HOW MANY DO YOU SELL ---=>";
  900 INPUT V9
  910 IF V9>P-1 THEN  PRINT
  920 IF V9>P-1 THEN  PRINT "NO DEAL, CHARLIE."
  930 IF V9>P-1 THEN 990
  940 IF V9=<0 THEN 990
  950 LET S=S+(S1*V9)
  960 LET P=P-V9
  970 PRINT
  980 PRINT "YOUR COUNTRY NOW HAS ";S;" BUSHELS."
  990 LET P1=P1+1
 1000 IF P1/10=INT(P1/10) THEN 2490
 1010 LET Y=INT(20+8*RND(0))
 1020 PRINT
 1030 PRINT "LAND= ";Y;" BUSHELS/ACRE."
 1040 PRINT
 1050 PRINT "BUY?   ---=>";
 1060 INPUT Q
 1070 IF Q<0 THEN 2200
 1080 IF Q=0 THEN 1150
 1090 IF Y*Q-S<=0 THEN 1120
 1100 GOSUB 2030
 1110 GOTO 1050
 1120 LET S=S-Y*Q
 1130 LET A=A+Q
 1140 GOTO 1240
 1150 PRINT "SELL?   ---=>";
 1160 INPUT Q
 1170 IF Q<0 THEN 2240
 1180 IF Q<=A THEN 1210
 1190 GOSUB 2120
 1200 GOTO 1150
 1210 LET A=A-Q
 1220 LET S=S+Y*Q
 1230 IF Q=0 THEN 1260
 1240 PRINT "YOUR NATION NOW HAS ";A;" ACRES AND ";S;" BUSHELS."
 1250 PRINT
 1260 PRINT "HOW MUCH GRAIN DO YOU GIVE THE NATIVES TO EAT  ---=>";
 1270 INPUT F
 1280 IF F<=0 THEN 2240
 1290 IF F<=S THEN 1320
 1300 GOSUB 2030
 1310 GOTO 1260
 1320 LET S=S-F
 1330 IF P<100 THEN 1350
 1340 GOSUB 4360
 1350 PRINT
 1360 PRINT "HOW MANY ACRES TO PLANT  ---=>";
 1370 INPUT T
 1380 IF T<0 THEN 2240
 1390 IF T<=A THEN 1420
 1400 GOSUB 2120
 1410 GOTO 1360
 1420 IF T/2<=S THEN 1450
 1430 GOSUB 2030
 1440 GOTO 1360
 1450 IF T-10*P-1<=0 THEN 1490
 1460 GOSUB 2140
 1470 GOTO 1360
 1480 LET S=S-INT(T/2)
 1490 LET H=INT(9*RND(0)+2)
 1500 LET D=0
 1510 LET I1=I1+1
 1520 PRINT "AT THE END OF YEAR ";I1
 1530 IF INT(F/20)>=P THEN 1580
 1540 LET D=ABS(INT(F/20)-P)
 1550 LET D=INT(D)
 1560 PRINT D;" STARVED.     THANKS TO YOU."
 1570 LET R=INT(.6*S*RND(0))
 1580 LET R=INT(.25*S*RND(0))
 1590 LET G=INT(P*10-T)*50
 1600 LET R=R-G
 1610 IF R<0 THEN  LET R=0
 1620 LET N=INT(.075*P*RND(0))
 1630 LET N=N-G
 1640 IF N<0 THEN  LET N=0
 1650 IF D=P THEN 2240
 1660 LET G1=RND(0)*G/1000
 1670 LET G2=RND(0)*S/P/200
 1680 LET I=INT(G1+G2+RND(0)*A/P/5)
 1690 IF D>0 THEN  LET I=0
 1700 LET C=INT(.01*P+RND(0)*P/25)
 1710 LET U=INT(.02*P+RND(0)*P/17)
 1720 LET X=RND(0)
 1730 IF X<.92 THEN 1820
 1740 IF P1/7=INT(P1/7) THEN 1820
 1750 LET U=INT(.3*P+RND(0)*.4*P)*.1
 1760 PRINT "***  A BOAT OF SWAHILI TOURISTS HAS LANDED  ***"
 1770 PRINT
 1780 LET I=0
 1790 LET B=INT(B*5)
 1800 LET I=INT(P-U)-C*.2
 1810 GOTO 1830
 1820 LET B=INT(.04*P+RND(0)*P/20)
 1830 LET P=INT(P+I+B-D-C-U)
 1840 LET S=S-R+INT(H*T)
 1850 IF P<0 THEN  LET P=0
 1860 PRINT INT(C);" ACC. DEATHS & ";INT(U);" DISEASE DEATHS"
 1870 PRINT B;" BIRTHS AND ";INT(I);" MOVED IN."
 1890 LET G8=0
 1900 LET G4=0
 1910 LET G7=0
 1920 PRINT "NEW POPULATION = ";INT(P)
 1930 IF P=0 THEN 2240
 1940 IF T=0 THEN 1980
 1950 PRINT
 1960 PRINT "HARVEST = ";H;" BUSHELS/ACRE."
 1980 GOSUB 3110
 1990 PRINT "NEW POPULATION = ";INT(P)
 2000 LET Q1=P
 2010 PRINT "YOU NOW HAVE ";A;" ACRES AND ";S;" BUSHELS."
 2020 GOTO 280
 2030 PRINT "BUT YOU HAVE ONLY ";S;" BUSHELS IN STORE."
 2040 PRINT
 2050 PRINT "YOU HAVE ";Y6;" BUSHELS ON DEPOSIT, HOW MANY DO YOU WITHDRAW --=>";
 2060 INPUT Y5
 2070 IF Y5<=0 THEN 2110
 2080 IF Y5>Y6 THEN 2040
 2090 LET S=S+Y5
 2100 LET Y6=Y6-Y5
 2110 RETURN
 2120 PRINT "BUT YOU HAVE ONLY ";A;" ACRES."
 2130 GOTO 2150
 2140 PRINT "BUT YOU HAVE ONLY ";P;" PEOPLE."
 2150 PRINT
 2160 RETURN
 2170 PRINT "&K"
 2200 PRINT "PRESIDENT ELECT, MAJOR GENERAL IDI AMIN SAYS:"
 2210 PRINT
 2220 PRINT "YOU HAVE BEEN REPLACED BY A MILITARY JUNTA."
 2230 STOP
 2240 PRINT "MR PRESIDENT, RADIO KAMPALA HAS BROADCAST AN IMPORTANT"
 2250 PRINT "MESSAGE ----- IT READS: US NATIVES IN COUNTRY FEED UP."
 2260 PRINT
 2270 IF V3=2 THEN 2170
 2280 PRINT "DO YOU RUN FOR YOUR LIFE, MR. PRESIDENT? ---=>";
 2290 INPUT A
 2300 IF A=1 THEN 2410
 2310 PRINT "&K"
 2340 PRINT "YOU ARE NOW KING, ABI-DUDU CONSISTS OF FIVE STUPID"
 2350 PRINT "NATIVES, TWENTY ACRES OF LAND, AND TWO HUNDRED BUSHELS."
 2360 LET A=20
 2370 LET P=5
 2380 LET S=200
 2390 LET V3=V3+1
 2400 GOTO 280
 2410 LET P=INT(4044*RND(0))
 2420 LET A=INT(36000*RND(0))
 2430 LET S=INT(12E4*RND(0))
 2440 PRINT P;" NATIVES FROM A NEAR BY TOWN HAVE JOINED YOUR WORTHLESS"
 2450 PRINT "CAUSE AND OVER THROWN THE REVOLUTION.  AS A GIFT THEY HAVE"
 2460 PRINT "GIVEN YOU ";A;" ACRES OF THEIR LAND AND ";S;" BUSHELS OF GRAIN."
 2470 LET V3=V3+1
 2480 GOTO 300
 2490 RESTORE
 2500 LET P1=P1+1
 2510 PRINT
 2520 PRINT "YOU HAVE STAYED IN OFFICE FOR TEN YEARS; ITS RE-ELECTION TIME."
 2530 PRINT
 2540 PRINT "ENTER:  Y = YES   OR  N = NO"
 2550 PRINT
 2560 LET V=0
 2570 LET F9=0
 2580 PRINT "DO YOU TRY TO KILL THE PERSON RUNNING AGAINST YOU ---=>";
 2590 GOSUB 5800
 2600 IF S9=1 THEN  LET V=V+.05 ELSE  LET V=V+.02
 2610 PRINT
 2620 IF S9=1 AND P<3 THEN 2950
 2630 PRINT "DO YOU BRIBE HIGH OFFICIALS AND BUY VOTES ---=>";
 2640 GOSUB 5800
 2650 IF S9=1 AND P>200 THEN  LET V=V+.15 ELSE  LET V=V+.2
 2660 IF S9=1 AND P>1E5 THEN  LET V=V-.11
 2670 PRINT
 2680 IF S9=1 AND P<10 THEN  LET V=V-.06
 2690 PRINT "ARE YOU IN FAVOR OF HIGHER WAGES ---=>";
 2700 GOSUB 5800
 2710 IF A>2500 AND S9=1 THEN  LET V=V+.1 ELSE  LET V=V+.05
 2720 IF S9=1 AND P>1E5 THEN  LET V=V+.14
 2730 PRINT
 2740 IF S9=1 AND P<100 THEN  LET V=V-.06
 2750 PRINT "ARE YOU IN FAVOR OF FREEDOM OF THE PRESS ---=>";
 2760 GOSUB 5800
 2770 PRINT
 2780 IF S9=0 AND P<50 THEN  LET V=V-.07
 2790 IF S9=1 THEN  LET V=V+.05 ELSE  LET V=V+.25
 2800 PRINT "ARE YOU IN FAVOR OF THE UGANDA FREEWAY? ---=>";
 2810 GOSUB 5800
 2820 IF S9=0 AND A>1E4 THEN  LET V=V+.01 ELSE  LET V=V+.12
 2830 PRINT
 2840 PRINT "IF ELECTED, WILL YOU SUSPEND THE CONSTITUTION, DISBAND"
 2850 PRINT "CONGRESS, AND INACT MARTIAL LAW? ---=>";
 2860 GOSUB 5800
 2870 IF S9=0 THEN  LET V=V+.07 ELSE  LET V=V+.19
 2880 IF P>25 AND S9=1 THEN  LET V=V-.22
 2890 LET V=V*100
 2900 PRINT
 2910 PRINT
 2920 PRINT "THE RESULTS ARE IN, YOU HAVE RECEIVED ";INT(V);" % OF THE VOTE."
 2930 PRINT "&J&J&J&J&J"
 2940 IF V<50 THEN 3020
 2950 LET A=A+INT((A*1.75)*RND(0))
 2960 LET S=S+INT((S*1.50)*RND(0))
 2970 LET P=P+INT((P*1.25)*RND(0))
 2980 PRINT "YOUR NATION NOW HAS, ";A;" ACRES, AND ";S;" BUSHELS OF GRAIN"
 2990 PRINT "AND ALSO CAPTURED MANY MORE SLAVES TO BRING THE POP. TO ";P
 3000 PRINT
 3010 GOTO 1000
 3020 PRINT "YOU HAVE LOST (TOO BAD), BUT SINCE YOU ARE SO"
 3030 PRINT "EVIL YOU HAD THE WINNER KILLED (TERRIBLE)."
 3040 PRINT
 3050 LET V=V/100
 3060 LET P=INT(P*V)
 3070 PRINT "BUT ONLY ";P;" PEOPLE HAVE REMAINED IN YOUR COUNTRY."
 3080 PRINT
 3090 GOTO 1000
 3100 PRINT
 3110 IF R>0 THEN  PRINT "RATS ATE ";R;" BUSHELS.&J"
 3120 IF R>0 THEN  PRINT
 3130 IF N>0 THEN  PRINT "*LIONS EAT ";N;" NATIVES,TOO BAD*" ELSE 3160
 3140 LET P=P-N
 3150 PRINT
 3160 IF P1/3=INT(P1/3) AND P>100 THEN  LET Z1=INT((P*.037)*RND(0)) ELSE 3200
 3170 IF P>1E5 THEN 3200
 3180 PRINT "ELEPHANTS RUN THROUGH VILLAGE AND STEP ON ";Z1;" STUPID NATIVES."
 3190 LET P=P-Z1
 3200 IF P1/4=INT(P1/4) AND P>150 THEN  LET Z2=INT((P*.05)*RND(0)) ELSE 3260
 3210 IF P>1E6 THEN 3260
 3220 PRINT
 3230 PRINT "A BAND OF WILD GORILLAS ATTACK YOUR BANANA"
 3240 PRINT "PLANTATION AND CARRY OFF ";Z2;" NATIVES."
 3250 LET P=P-Z2
 3260 IF P1/5=INT(P1/5) AND P>25 THEN  LET Z3=INT((P*.05)*RND(0)) ELSE 3340
 3270 IF P>1E6 THEN  LET Z3=INT((P*.015)*RND(0))
 3280 LET P=P-Z3
 3290 PRINT "THE BLACK DEATH PASSES THROUGH YOUR"
 3300 PRINT "COUNTRY AND KILLS ";Z3;" NATIVES."
 3310 PRINT
 3320 PRINT
 3330 PRINT
 3340 IF P1/6=INT(P1/6) AND P>2 THEN  LET P=P-1 ELSE 3380
 3350 PRINT
 3360 PRINT "A RUNAWAY RHINO TRAMPELS"
 3370 PRINT "YOUR WITCH DOCTOR!"
 3380 IF P1/8=INT(P1/8) AND P>200 THEN  LET Z4=INT((P*.07)*RND(0)) ELSE 3490
 3390 PRINT
 3400 PRINT "BUBBLE BUBBLE.........BUBBLE........"
 3410 PRINT
 3420 PRINT
 3430 PRINT "FLOOD WASHES AWAY ";Z4;" NATIVES."
 3440 LET P=P-Z4
 3450 LET Z6=INT(A*.04)
 3460 PRINT "ALONG WITH ";Z6;" ACRES OF LAND."
 3470 PRINT
 3480 LET A=A-Z6
 3490 IF P1/9=INT(P1/9) THEN 3500 ELSE 3580
 3500 LET F6=INT(P*.03)+2
 3510 IF P>5E5 THEN 3580
 3520 PRINT
 3530 PRINT "A GERMAN 747 AIRLINER TRIES TO LAND AT ENTEBBE AIRPORT"
 3540 PRINT
 3550 PRINT "THE ONLY PROBLEM IS THE AIRPORT IS STILL NOT FINISHED!"
 3560 LET P=P-F6
 3570 PRINT "747 LANDS ON ";F6;" NATIVES INSTEAD OF THE RUNWAY!!!!"
 3580 IF P1/18=INT(P1/18) THEN 3590 ELSE 3680
 3590 IF P<100 THEN 3680
 3600 LET F1=INT(P*.01)+2
 3610 IF P>1E7 THEN 3680
 3620 PRINT
 3630 PRINT "EXTRA EXTRA!!!  READ ALL ABOUT IT!"
 3640 PRINT
 3650 PRINT "POLAND - UGANDA, JOINT FLIGHT TO"
 3660 PRINT "THE SUN FAILS.... ";F1;" NATIVES ARE LOST!"
 3670 PRINT
 3680 IF P1/9=INT(P1/9) AND P>500 THEN  LET Z5=INT((P*.025)*RND(0)) ELSE 3730
 3690 PRINT "A BAND OF WILD MEN FROM THE HILLS STEAL"
 3700 PRINT Z5;" OF YOUR COUNTRIES WOMEN (TOO BAD)."
 3710 LET P=P-Z5
 3720 PRINT
 3730 IF P1/15=INT(P1/15) AND P>9 THEN  LET Z7=INT((P*.03)*RND(0))+4 ELSE 3790
 3740 PRINT "A COLONY OF ARMY ANTS HAS CHOSEN TO WALK"
 3750 PRINT "THROUGH YOUR COUNTRY, THEY HAVE CARRIED"
 3760 PRINT "AWAY ";Z7;" NATIVES.....THE ANTS GO IN..."
 3770 LET P=P-Z7
 3780 PRINT
 3790 IF P1/20=INT(P1/20) THEN  LET Z8=INT((P*.02)*RND(0)) ELSE 3880
 3800 IF P1/20=INT(P1/20) THEN  LET Z9=INT((A*.04)*RND(0))
 3810 PRINT
 3820 PRINT "RUMBLE....RUMBLE....CRACK...."
 3830 PRINT "EARTHQUAKE.... ";Z8;" NATIVES FALL IN."
 3840 PRINT "ALSO ";Z9;" ACRES OF LAND FALL IN THE CRACK."
 3850 PRINT
 3860 LET P=P-Z8
 3870 LET A=A-Z9
 3880 IF P1/25=INT(P1/25) THEN  LET Y1=INT((S*.16)*RND(0)) ELSE 3970
 3890 IF P<1E6 THEN  LET Y2=INT((P*.04)*RND(0))
 3900 PRINT "FLASH....BLAZING BRUSH FIRE BURNS"
 3910 PRINT Y1;" BUSHELS AND ";Y2;" NATIVES."
 3920 PRINT
 3930 PRINT "ONLY YOU CAN PREVENT FOREST FIRES*****"
 3940 PRINT
 3950 LET S=S-Y1
 3960 LET P=P-Y2
 3970 IF M2>(Q1*.1) THEN 4210
 3980 IF P1=0 OR P1=1 THEN 4350
 3990 LET M4=M2/(Q1*.1)
 4000 LET M4=1-M4
 4010 LET M5=INT(M4*P)
 4020 LET M6=INT(M4*A)
 4030 LET M7=M7+1
 4040 IF M7=20 THEN  RESTORE
 4050 IF M7=20 THEN  LET M7=1
 4060 READ G$
 4070 DATA "KENYA","TANZANIA","SUDAN","RWANDA"
 4080 DATA "ZAIRE","ETHIOPIA","BOTSWANA","RHODESIA","THE CONGO","ZAMBIA"
 4090 DATA "SOUTH AFRICA","SWAZILAND","NIGERIA","NIGER","GAMBIA"
 4100 DATA "ALGERIA","KENYA","TANZANIA","SPANISH SAHARA","LESOTHO","ABI DUDU"
 4110 IF Q1<100 THEN 4220
 4120 IF P<100 THEN 4350
 4130 PRINT "&K"
 4140 PRINT "YOUR COUNTRY HAS BEEN INVADED BY ";G$
 4150 PRINT
 4160 PRINT "SOLDIERS FROM ";G$;" CARRY OFF ";M5;" NATIVES,"
 4170 PRINT "AND CAPTURE ";M6;" ACRES OF LAND."
 4180 PRINT
 4190 LET P=P-M5
 4200 LET A=A-M6
 4210 IF M2>(Q1*.1)*2 THEN 4500
 4220 IF P1/30=INT(P1/30) THEN  LET Y3=INT((P*.08)*RND(0)) ELSE 4320
 4230 LET Y4=INT(A*.16)*RND(0)
 4240 LET Y5=INT(S*.32)*RND(0)
 4250 PRINT
 4260 PRINT "RUMBLE...RUMBLE...CRACK....POOF...."
 4270 PRINT
 4280 PRINT "...VOLCANO...RUN FOR YOUR LIFE*****"
 4290 PRINT
 4300 PRINT "LAVA COVERS ";Y3;" NATIVES, AND ";Y4;" ACRES"
 4310 PRINT "OF LAND, ALONG WITH ";Y5;" BUSHELS OF GRAIN."
 4320 IF P<0 THEN  LET P=0
 4330 IF P=0 THEN 2240
 4340 PRINT
 4350 RETURN
 4360 PRINT
 4370 LET M1=INT(Y*2.4)
 4380 PRINT "THIS YEAR AN ARMY COST ";M1;" BUSHELS PER SOLDIER."
 4390 PRINT "HOW LARGE OF AN ARMY DO YOU WANT? ---=>";
 4400 INPUT M2
 4410 LET Q1=P
 4420 IF S-(M1*M2)>0 THEN 4470
 4430 PRINT
 4440 PRINT "SMOOTH MOVE EX-LAX, YOU ONLY HAVE ";S;" BUSHELS."
 4450 GOSUB 2040
 4460 GOTO 4390
 4470 LET S=S-(M1*M2)
 4480 PRINT
 4490 RETURN
 4500 LET M7=M7+1
 4510 IF P<100 THEN 4350
 4520 PRINT "&J&J&J&J&J"
 4550 PRINT "THE PEOPLE OF YOUR NATION HAVE DECIDED TO GO TO WAR!"
 4560 IF P>1E7 THEN 5280
 4570 PRINT
 4580 PRINT "     0)SMALL   1-500 POPULATION"
 4590 PRINT "     1)MEDIUM  501-1000 POPULATTION"
 4600 PRINT "     2)LARGE   1001-1500 POPULATION"
 4610 PRINT "     3)GIANT   15000-150000 POPULATION"
 4620 PRINT "     4)????    1 MILLION - 1 BILLION POPULATION"
 4630 PRINT
 4640 PRINT
 4650 PRINT "WHICH TYPE OF COUNTRY DO YOU ATTACK ---=>";
 4660 INPUT G8
 4670 IF G8>4 THEN 4640
 4680 IF G8=4 THEN 5260
 4690 READ G9
 4700 IF G8=0 THEN  LET G8=INT(G9*.25)
 4710 IF G8=1 THEN  LET G8=INT(G9*.55)
 4720 IF G8=2 THEN  LET G8=G9
 4730 IF G8=3 THEN  LET G8=INT((G9*Y)*RND(0))
 4740 LET M7=M7+1
 4750 IF M7=20 THEN  RESTORE
 4760 IF M7=20 THEN  LET M7=1
 4770 READ G$
 4780 PRINT
 4790 PRINT "POPULATION = ";INT(P)
 4800 PRINT
 4810 PRINT "HOW MANY NATIVES DO YOU SEND INTO BATTLE ---=>";
 4820 INPUT G3
 4830 IF G3>P OR G3<1 THEN 4770
 4840 LET G7=RND(0)
 4850 IF G3-(G8*G7)<0 THEN 5050
 4860 PRINT "&J&J&J&J&J"
 4890 LET G9=INT(G8*G7)
 4900 PRINT "YOUR ARMY OF ";G3;" NATIVES, HAS DEFEATED"
 4910 PRINT "THE ARMY OF ";G$;" ,WITH ";G9;" SOLDIERS."
 4920 PRINT
 4930 IF G8=4 THEN 5710
 4940 LET A=A+INT(G9*10)
 4950 LET S=S+INT(G9*20)
 4960 LET P=P+G9
 4970 PRINT
 4980 PRINT "YOUR COUNTRY HAS CAPTURED MANY THINGS, YOUR NATION NOW OWNS"
 4990 PRINT
 5000 PRINT A;" ACRES"
 5010 PRINT S;" BUSHELS"
 5020 PRINT P;" NATIVES"
 5030 PRINT
 5040 GOTO 4350
 5050 LET P=P+INT(G3*.05)
 5060 LET P=P-G3
 5070 LET A=A-INT((A*.435)*RND(0))
 5080 LET S=S-INT((S*.345)*RND(0))
 5090 LET G9=INT(G8*G7)
 5100 PRINT
 5110 PRINT
 5120 PRINT "GENERAL AMIN'S MARCH OF CONQUEST HAS FAILED."
 5130 PRINT
 5140 IF INT(G3*.05)<1 THEN 5160
 5150 PRINT "ONLY ";&BE=II*.05);" SOLDIERS HAVE RETURNED FROM BATTLE"
 5160 PRINT "IDI AMIN TRIED TO TAKE ON THE ";G$;" ARMY OF ";G9;" SOLDIERS."
 5170 PRINT
 5180 PRINT "THE ARMY OF ";G$;" HAS SACKED AND LOOTED YOUR NATION"
 5190 PRINT "HERE IS A LIST OF WHAT IS LEFT."
 5200 PRINT
 5210 PRINT
 5220 IF G8=4 THEN 5750
 5230 GOTO 4990
 5240 DATA 2800,2200,3300,2500,2600,1200,2300
 5250 DATA 2100,1800,2850,3400,2400,2000,3000
 5260 PRINT
 5270 PRINT "SO YOU THINK YOUR COUNTRY CAN WHIP A SUPER POWER."
 5280 PRINT "&J&J&J&J&J"
 5290 PRINT "1) U.S.A.       2) U.S.S.R."
 5300 PRINT "3) CHINA        4) UNITED KINGDOM"
 5310 PRINT "5) FRANCE       6) WEST GERMANY"
 5320 PRINT "7) BRAZIL       8) INDIA"
 5330 PRINT "9) AUSTRALIA   10)CANADA"
 5340 PRINT
 5350 PRINT "WHICH COUNTRY DO YOU ATTACK ---=>";
 5360 INPUT S3
 5370 IF S3<1 OR S3>10 THEN 5340
 5380 IF S3=1 THEN  LET G$="THE UNITED STATES"
 5390 IF S3=1 THEN  LET G4=208101136
 5400 IF S3=1 THEN  LET G5=3615125*640
 5410 IF S3=2 THEN  LET G$="THE SOVIET UNION"
 5420 IF S3=2 THEN  LET G4=2509E5
 5430 IF S3=2 THEN  LET G5=8599300*640
 5440 IF S3=3 THEN  LET G$="CHINA"
 5450 IF S3=3 THEN  LET G4=85E7
 5460 IF S3=3 THEN  LET G5=3691500*640
 5470 IF S3=4 THEN  LET G$="THE UNITED KINGDOM"
 5480 IF S3=4 THEN  LET G4=56475000
 5490 IF S3=4 THEN  LET G5=94211*640
 5500 IF S3=5 THEN  LET G$="FRANCE"
 5510 IF S3=5 THEN  LET G4=52010200
 5520 IF S3=5 THEN  LET G5=210039*640
 5530 IF S3=6 THEN  LET G$="WEST GERMANY"
 5540 IF S3=6 THEN  LET G4=60293760
 5550 IF S3=6 THEN  LET G5=95959*640
 5560 IF S3=7 THEN  LET G$="BRAZIL"
 5570 IF S3=7 THEN  LET G4=1056E5
 5580 IF S3=7 THEN  LET G5=3286487*640
 5590 IF S3=8 THEN  LET G$="INDIA"
 5600 IF S3=8 THEN  LET G4=584704000
 5610 IF S3=8 THEN  LET G5=1226603
 5620 IF S3=9 THEN  LET G$="AUSTRALIA"
 5630 IF S3=9 THEN  LET G4=13472000
 5640 IF S3=9 THEN  LET G5=2967894*640
 5650 IF S3=10 THEN  LET G$="CANADA"
 5660 IF S3=10 THEN  LET G4=22307000
 5670 IF S3=10 THEN  LET G5=3851809*640
 5680 LET G6=G4*22
 5690 LET G8=G4
 5700 GOTO 4800
 5710 LET P=P+G4
 5720 LET A=A+G5
 5730 LET S=S+G6
 5740 GOTO 4970
 5750 LET P=P+INT(G3*.05)
 5760 LET P=P-G3
 5770 LET A=INT(A*RND(0))
 5780 LET S=INT(S*RND(0))
 5790 GOTO 5230
 5800 INPUT (1,0)I$: LET I$=I$+"Y"
 5810 IF I$(1,1)="Y" THEN  LET S9=1 ELSE  LET S9=0
 5820 IF I$(1,1)="Y" THEN  LET S9=1
 5830 RETURN
 5970 END