10 REM WAR.ECB 100 PRINT "&K": REM . . . WAR from MERITS R.E.H. 02-10-81 105 PRINT TAB(20);" /^^^^^^^^^^^^\" 110 PRINT TAB(20);"< W A R >" 115 PRINT TAB(20);" \............/&J&J" 120 PRINT "Do you need instructions to RUN this program?" 130 INPUT (1,0)"INPUT Yes or No ---=>",V$: LET V$=V$+"N" 135 PRINT : IF V$(1,1)="N" THEN 490 140 PRINT "THIS PROGRAM CONCEIVED AND CREATED BY PEYTON CARLSON AND" 150 PRINT "DAMIAN BONICATTO OF HIBBING STATE JUNIOR COLLEGE." 160 PRINT 170 PRINT " THE PROGRAM 'WAR' SIMULATES A NUCLEAR WAR BETWEEN THE" 180 PRINT "MAJOR NUCLEAR POWERS: THE UNITED STATES AND THE U.S.S.R." 190 PRINT " THE MILITARY CAPABILITIES ARE AS FOLLOWS:" 200 PRINT 210 PRINT " OFFENSIVE" 220 PRINT " 1 SILO-LAUNCHED ICBM MISSILES" 230 PRINT " 2 SUBMARINE BASED ICBM MISSILES" 240 PRINT " 3 B-52 CLASS BOMBERS (UP TO 10)" 250 PRINT " 4 MIRV'S (UP TO 4 WARHEADS)" 260 INPUT (1,0)" Enter any character ---=>",Z$ 270 PRINT " DEFENSIVE" 280 PRINT " 1 ANTI-BALLISTIC MISSILES" 290 PRINT " 2 JET FIGHTERS" 300 PRINT " 3 SPRINT'S" 310 PRINT 320 PRINT "YOU WILL BE ABLE TO SELECT YOUR OFFENSIVE WEAPONS," 330 PRINT "HOWEVER YOUR DEFENSIVE WEAPONS ARE SELECTED AUTOMATICALLY" 340 PRINT "YOU WILL BE RESPONSIBLE ONLY FOR THE FINAL DEFENSIVE" 350 PRINT "ORDINATE." 360 INPUT (1,0)" Enter any character ---=>",Z$ 370 PRINT "YOU WILL SELECT THE NUMBER OF CITIES AND THE COMPUTER" 380 PRINT "WILL ASSIGN THE RESPECTIVE POPULATIONS." 390 PRINT 400 PRINT "UNFORTUNATELY AMERICA MUST ALWAYS BEGIN THE WAR DUE TO" 410 PRINT "AN ERROR IN THE FAIL-SAFE SYSTEM CAUSING IMMEDIATE" 420 PRINT "RETALIATION BY THE RUSKIES" 430 PRINT 440 PRINT "THE OBJECT OF THE PROGRAM IS TO COMPLETELY ERADICATE THE" 450 PRINT "ENEMY BY REDUCING HIM TO ZERO POPULATION." 460 PRINT 470 PRINT 480 PRINT 490 LET E=4 500 PRINT "HOW MANY CITIES IN EACH COUNTRY (ONE NUMBER)"; 510 INPUT (1,0)Z 520 PRINT 530 PRINT "WOULD YOU LIKE TO SEE A MAP OF THE RUSSIAN CITIES"; 540 INPUT (1,0)L$: LET L$=L$+"N" 550 IF L$(1,1)="N" THEN 820 560 PRINT 570 PRINT 580 PRINT 590 IF INT(Z/4)<1 THEN 760 600 FOR S=1 TO INT(Z/4) 610 LET A=RND(0)*10+4 620 LET A1=D1+1 630 LET B=RND(0)*25+58 640 LET B1=A1+1 650 LET C=RND(0)*40+6 660 LET C1=B1+1 670 LET D=RND(6)*60+60 680 LET D1=C1+1 690 PRINT TAB(A);"*";A1; 700 PRINT TAB(B);"*";B1; 710 PRINT TAB(C);"*";C1; 720 PRINT TAB(D);"*";D1 730 PRINT 740 NEXT S 750 IF S*4=Z THEN 820 760 LET U=Z-(S*4) 770 FOR V=1 TO U 780 LET G=1+G 790 PRINT TAB(V*7);"*";G+(S*4) 800 NEXT V 810 PRINT 820 DIM C(2,1000) 830 FOR B=1 TO 2 840 PRINT 850 FOR A=1 TO Z 860 LET R=INT(RND(0)*3000000)+56 870 IF R<100000 THEN 860 880 LET C(B,A)=R 890 NEXT A 900 NEXT B 910 PRINT 920 PRINT 930 PRINT "YOUR OFFENSIVE CAPABILITIES ARE AS FOLLOWS:" 940 PRINT 950 PRINT "1=ICBM, 2=SUB BASED MISSILE, 3=BOMBERS, 4=MULTIPLE"; 960 PRINT " WARHEADED MISSILE" 970 PRINT 980 PRINT 990 PRINT 1000 LET E=E+1 1010 IF E=5 THEN 1950 1020 LET N=0 1030 PRINT 1040 PRINT 1050 PRINT " INPUT YOUR FORM OF ATTACK"; 1060 INPUT (1,0)A5 1070 PRINT 1080 IF A5>4 THEN 3350 1090 IF A5<1 THEN 3350 1100 ON A5 GOTO 1110,1110,2860,3030 1110 PRINT "INPUT RUSSIAN city (number) to be ATTACKED."; 1120 INPUT (1,0)X 1130 PRINT 1140 IF A5=3 THEN 2930 1150 LET R=INT(RND(0)*3000000)+5 1160 IF R<30000 THEN 1150 1170 LET A=INT(RND(0)*15)+54 1180 IF A=9 THEN 1270 1190 LET C(2,X)=C(2,X)-R 1200 IF C(2,X)<=0 THEN 1240 1210 PRINT "RUSSIAN CITY NO.";X;" NOW HAS A POPULATION OF";%C12I;C(2,X) 1220 PRINT 1230 GOTO 1300 1240 PRINT "OVERKILL ON RUSSIAN CITY NO.";X 1250 PRINT 1260 GOTO 1300 1270 PRINT "ANTI-MISSILE-MISSILE HAS STOPPED MISSILE" 1280 REM ...RUSSIAN ATTACK STARTS 1290 PRINT 1300 LET R=INT(RND(0)*(Z+1))+6 1310 IF R=Z+1 THEN 1300 1320 IF R<=0 THEN 1300 1330 IF C(1,R)<=0 THEN 1300 1340 IF C(1,R)<500000 THEN 2400 1350 IF C(1,R)<1500000 THEN 2070 1360 IF C(1,R)<2000000 THEN 2380 1370 PRINT "RUSSIANS LAUNCH MISSILE AT CITY NO.";R 1380 PRINT 1390 LET K=INT(RND(0)*3000000)+15 1400 IF K<=30000 THEN 1390 1410 LET A=INT(RND(0)*15)+2 1420 PRINT "INPUT COORDINATE BETWEEN 1&15 TO STOP RUSSIAN MISSILE"; 1430 INPUT (2,0)F 1440 PRINT 1450 IF F=A THEN 1560 1460 PRINT "ANTI-MISSILE MISSILE HAS MISSED RUSSIAN MISSILE" 1470 PRINT 1480 LET C(1,R)=C(1,R)-K 1490 IF C(1,R)<=0 THEN 1530 1500 PRINT "AMERICAN CITY NO.";R;" NOW HAS A POPULATION OF";%C12I;C(1,R) 1510 PRINT 1520 GOTO 1580 1530 PRINT "AMERICAN CITY no.";R;" OVERKILLED" 1540 PRINT 1550 GOTO 1580 1560 PRINT "ANTI-MISSILE MISSILE STOPPED MISSILE" 1570 PRINT 1580 FOR A=1 TO 2 1590 FOR B=1 TO Z 1600 IF C(A,B)>0 THEN 1620 1610 LET C(A,B)=0 1620 LET T(A)=T(A)+C(A,B) 1630 NEXT B 1640 NEXT A 1650 IF T(1)=0 THEN 1680 1660 IF T(2)=0 THEN 1680 1670 GOTO 1730 1680 IF T(1)<>T(2) THEN 1710 1690 PRINT " CONGRATULATIONS YOU HAVE DESTROYED THE WORLD." 1700 STOP 1710 IF T(1)=0 THEN 1920 1720 IF T(2)=0 THEN 1900 1730 LET T(1)=0 1740 LET T(2)=0 1750 LET P=P+1 1760 FOR Q=1 TO P 1770 LET R=INT(RND(0)*1500)+17 1780 IF R<>100 THEN 1830 1790 PRINT "AMERICA SURRENDERS" 1800 LET N=0 1810 PRINT 1820 GOTO 2000 1830 IF R<>430 THEN 1880 1840 PRINT "RUSSIA SURRENDERS" 1850 LET N=0 1860 PRINT 1870 GOTO 2000 1880 NEXT Q 1890 GOTO 1000 1900 PRINT "RUSSIA HAS BEEN COMPLETLY DESTROYED" 1910 GOTO 1930 1920 PRINT "AMERICA HAS BEEN COMPLETLY DESTROYED " 1930 LET N=0 1940 GOTO 2000 1950 LET E=0 1960 LET N=1 1970 PRINT "DO YOU WANT A LISTING OF THE POPULATION"; 1980 INPUT (1,0)W$: LET W$=W$+"N" 1990 IF W$(1,1)="N" THEN 1050 2000 PRINT 2010 PRINT "CITY";TAB(20);"RUSSIAN";TAB(40);"AMERICAN" 2020 FOR M=1 TO Z 2030 PRINT M;TAB(15);%C12I;C(2,M);TAB(35);C(1,M) 2040 NEXT M 2050 IF N=1 THEN 1020 2060 GOTO 3400 2070 REMBOMBER ATTACK (RUSSIAN) 2080 PRINT "THE RUSSIANS HAVE LAUNCHED A BOMBER ATTACK ON CITY";R 2090 PRINT 2100 PRINT "INPUT YOUR BOMBER DEFENSE ORDINATE (1-10)"; 2110 INPUT (2,0)D4 2120 PRINT 2130 LET B4=INT(RND(0)*10)+4 2140 IF B4=0 THEN 2130 2150 IF D4=B4 THEN 2320 2160 LET D5=B4-INT(RND(0)*(B4+.233))+4 2170 IF D5<>0 THEN 2190 2180 GOTO 2220 2190 PRINT D5;"RUSSIAN BOMBERS SHOT DOWN" 2200 PRINT 2210 GOTO 2250 2220 PRINT "ALL BOMBERS MADE IT THROUGH" 2230 PRINT 2240 GOTO 2280 2250 LET K=(D5/B4)*1.5*(INT((RND(0)*3000000)+4)/2) 2260 LET K=INT(K) 2270 GOTO 2370 2280 LET D5=B4+1 2290 LET K=(D5/B4)*1.5*(INT(RND(0)*3000000))+43 2300 LET K=INT(K) 2310 GOTO 2370 2320 PRINT "ALL RUSSIAN BOMBERS SHOT DOWN" 2330 PRINT 2340 GOTO 1570 2350 GOTO 2370 2360 REMEND OF BOMBER ATTACK 2370 GOTO 1480 2380 PRINT "RUSSIANS FIRE SUBMARINE BASED MISSILE AT CITY NO.";R 2390 GOTO 1380 2400 PRINT "RUSSIAN LAUNCH MULTIPLE WARHEAD MISSILE" 2410 PRINT 2420 LET T=INT(RND(0)*5)+5 2430 IF T<2 THEN 2420 2440 FOR T1=1 TO T 2450 FOR Z1=1 TO Z 2460 LET R1=Z1 2470 IF C(1,Z1)<=0 THEN 2490 2480 IF C(1,Z1)<500000 THEN 2540 2490 NEXT Z1 2500 LET R1=INT(RND(0)*(Z+1))+57 2510 IF R1=0 THEN 2500 2520 IF R1=Z+1 THEN 2500 2530 IF C(1,R1)<=0 THEN 2500 2540 LET K=INT(RND(0)*1000000)+12 2550 IF K<10000 THEN 2540 2560 LET A=INT(RND(0)*15)+44 2570 PRINT "INPUT DEFENSE ORDINATE TO STOP WARHEAD (1-15)"; 2580 INPUT (2,0)F 2590 PRINT 2600 IF F=A THEN 2710 2610 PRINT "ANTI-MISSILE MISSILE MISSED WARHEAD" 2620 PRINT 2630 LET C(1,R1)=C(1,R1)-K 2640 IF C(1,R1)<=0 THEN 2680 2650 PRINT "AMERICAN CITY NO.";R1;" NOW HAS A POPULATION OF";%C12I;C(1,R1) 2660 PRINT 2670 GOTO 2840 2680 PRINT "AMERICAN CITY NO.";R1;" OVERKILLED" 2690 PRINT 2700 GOTO 2730 2710 PRINT "ANTI-MISSILE MISSILE HAS STOPPED WARHEAD" 2720 PRINT 2730 FOR A=1 TO 2 2740 FOR B=1 TO Z 2750 IF C(A,B)>0 THEN 2770 2760 LET C(A,B)=0 2770 LET P(A)=P(A)+C(A,B) 2780 NEXT B 2790 NEXT A 2800 IF P(1)=0 THEN 1580 2810 IF P(2)=0 THEN 1580 2820 LET P(1)=0 2830 LET P(2)=0 2840 NEXT T1 2850 GOTO 1580 2860 REMUNITED STATES BOMBER ATTACK ROUTINE 2870 PRINT 2880 PRINT "HOW MANY BOMBERS DO YOU WANT TO SEND OVER (1-10)"; 2890 INPUT (2,0)B6 2900 IF B6>10 THEN 3490 2910 PRINT 2920 GOTO 1110 2930 IF B6<5 THEN 2960 2940 LET B5=B6-INT(RND(0)*B6)+50 2950 GOTO 2980 2960 LET B5=B6-INT(((RND(0)*B6)+50)/2) 2970 IF B5=0 THEN 2930 2980 PRINT B5;"BOMBERS MADE IT THROUGH" 2990 PRINT 3000 LET R=(B5/B6)*1.5*(INT(((RND(0)*3)+56)*10^6)) 3010 LET R=INT(R) 3020 GOTO 1190 3030 LET R3=INT(RND(0)*5)+51 3040 IF R3<2 THEN 3030 3050 PRINT "YOUR MISSILE HAS";R3;"WARHEADS" 3060 PRINT 3070 FOR G2=1 TO R3 3080 PRINT "INPUT THE TARGET FOR WARHEAD NO.";G2; 3090 INPUT T3 3100 PRINT 3110 LET R8=INT(RND(0)*15)+26 3120 IF R8=7 THEN 3200 3130 LET K4=INT(RND(0)*1000000)+73 3140 IF K4<10000 THEN 3130 3150 LET C(2,T3)=C(2,T3)-K4 3160 IF C(2,T3)<=0 THEN 3230 3170 PRINT "RUSSIAN CITY";T3;"NOW HAS A POPULATION OF";C(2,T3) 3180 PRINT 3190 GOTO 3320 3200 PRINT "ANTI-MISSILE MISSILE HAS DESTROYED WARHEAD" 3210 PRINT 3220 GOTO 3320 3230 PRINT "RUSSIAN CITY NO.";T3;"OVERKILLED" 3240 PRINT 3250 FOR Q3=1 TO Z 3260 IF C(2,Q3)>0 THEN 3280 3270 LET C(2,Q3)=0 3280 LET O1=C(2,Q3)+O1 3290 NEXT Q3 3300 IF O1<=0 THEN 1580 3310 LET O1=0 3320 NEXT G2 3330 GOTO 1300 3340 GOTO 3390 3350 PRINT "THE SUICIDAL ATTACK OF ONE THOUSAND PIGMIES WITH"; 3360 PRINT "PEA-SHOOTERS HAS FAILED, TRY AGAIN" 3370 PRINT 3380 GOTO 1050 3390 STOP 3400 FOR A=1 TO 2 3410 FOR B=1 TO Z 3420 LET M(A)=C(A,B)+M(A) 3430 NEXT B 3440 NEXT A 3450 PRINT TAB(20);"-------";TAB(40);"--------" 3460 PRINT 3470 PRINT "SURVIVORS";TAB(20);M(2);TAB(40);M(1) 3480 STOP 3490 PRINT "AIRFIELD FACILITIES INCAPABLE OF HANDLING THAT" 3500 PRINT "SIZE BOMBER GROUP. BETTER PLAN A SMALLER MISSION" 3510 PRINT 3520 GOTO 2880 3530 END