10 REM CIVIL.ECB 100 REM ======== LAST CORRECTED 07/14/77 R.E.H. 110 REM *ADAPTED FROM HP2000B BASIC TO UNIVAC UBASIC*OCT.72 120 REM ******BY SCOT WILCOXON, LAKE CRYSTAL, MN****** 125 DIM C$(20),X$(30),Y$(30),Z$(40) 130 LET A$=" " 140 LET X$="[[[[[[[[[[[[===]]]]]]]]]]]]" 150 LET Y$="[[[ ]]]" 160 LET Z$=" TYPE IN ANY LETTER TO CONTINUE----" 170 PRINT TAB(10);X$ 180 PRINT TAB(10);Y$ 190 PRINT TAB(10);"[[[ C I V I L - W A R ]]]" 200 PRINT TAB(10);Y$ 210 PRINT TAB(10);X$ 220 PRINT A$ 230 PRINT A$ 240 PRINT "DO YOU WANT DESCRIPTIONS"; 250 INPUT X$ 260 IF X$="YES" THEN 300 265 IF X$="Y" THEN 300 270 IF X$="NO" THEN 720 275 IF X$="N" THEN 720 280 PRINT "YES OR NO -- "; 290 GOTO 250 300 PRINT A$ 310 PRINT A$ 320 PRINT A$ 330 PRINT "THIS IS A CIVIL WAR SIMULATION." 340 PRINT "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." 350 PRINT " REMEMBER THAT ALL FACTORS ARE INTERRELATED AND" 360 PRINT " THAT YOUR RESPONSES COULD CHANGE HISTORY. FACTS" 370 PRINT " AND FIGURES USED ARE BASED ON ACTUAL OCCURRENCE." 380 PRINT " MOST BATTLES TEND TO RESULT AS THEY DID IN THE" 390 PRINT " CIVIL WAR, BUT IT ALL DEPENDS ON YOU !" 400 PRINT A$ 410 PRINT Z$; 420 INPUT I$ 430 PRINT A$ 440 PRINT "THE OBJECT OF THE GAME IS TO WIN AS MANY" 450 PRINT " BATTLES AS POSSIBLE......" 460 PRINT A$ 470 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 480 PRINT " (1) ARTILLERY ATTACK" 490 PRINT " (2) FORTIFICATION AGAINST FRONTAL ATTACK" 500 PRINT " (3) FORTIFICATION AGAINST FLANKING MANEUVERS" 510 PRINT " (4) FALLING BACK" 520 PRINT " (5) SURRENDER" 530 PRINT A$ 540 PRINT Z$; 550 INPUT I$ 560 PRINT A$ 570 PRINT " YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 580 PRINT " (1) ARTILLERY ATTACK" 590 PRINT " (2) FRONTAL ATTACK" 600 PRINT " (3) FLANKING MANEUVERS" 610 PRINT " (4) ENCIRCLEMENT" 620 PRINT " (5) SURRENDER" 630 PRINT A$ 640 PRINT Z$; 650 INPUT I$ 660 PRINT A$ 670 PRINT "YOU ARE THE CONFEDERACY. GOOD LUCK" 680 PRINT A$ 690 PRINT " SELECT A BATTLE BY TYPING A NUMBER FROM" 700 PRINT " 1 TO 14 ON REQUEST." 710 PRINT " TYPE ANY OTHER NUMBER TO END THE SIMULATION." 720 LET M4=0: LET P1=0: LET P2=0: LET T1=0: LET T2=0 725 LET L=0: LET W=0: LET R1=0: LET Q1=0: LET M3=0 730 PRINT A$ 740 PRINT "WHICH BATTLE DO YOU WISH TO SIMULATE"; 750 INPUT A 760 IF A<=0 THEN 2470 770 IF A>=15 THEN 247 780 RESTORE 790 FOR Q7=1 TO A 800 READ C$,M1,M2,C1,C2,M 810 NEXT Q7 820 LET U=0 830 LET I1=10+(L-W)*2 840 LET I2=10+(W-L)*2 850 LET D1=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5) 860 LET D2=100*INT(M2*(100-I2)/2000+.5) 870 LET M5=INT(M1*(1+(P1-T1)/(M3+1))) 880 LET M6=INT(M2*(1+(P2-T2)/(M4+1))) 890 LET F1=5*M1/6 900 PRINT A$ 910 PRINT A$ 920 PRINT A$ 930 PRINT "THIS IS THE BATTLE OF ";C$ 940 IF X$="NO" THEN 990 945 IF X$="N" THEN 990 950 LET N=A 960 IF N>8 THEN 980 970 ON N GOTO 1950,2000,2030,2070,2110,2140,2170,2190 980 ON N-8 GOTO 2230,2260,2290,2320,2360,2400 990 PRINT A$ 1000 PRINT A$,"CONFEDERACY"," UNION" 1010 PRINT "MEN",A$;M5,A$;M6 1020 PRINT "MONEY","$";D1,"$";D2 1030 PRINT "INFLATION",A$;I1+15;"%",A$;I2;"%" 1040 PRINT A$ 1050 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR" 1060 PRINT " - FOOD......"; 1070 INPUT F 1080 LET N=1 1090 IF F<0 THEN 1220 1100 PRINT " - SALARIES.."; 1110 INPUT S 1120 LET N=2 1130 IF S<0 THEN 1220 1140 PRINT " - AMMUNITION..."; 1150 INPUT B 1160 LET N=3 1170 IF B<0 THEN 1220 1180 PRINT A$ 1190 IF F+S+B<=D1 THEN 1240 1200 PRINT "THINK AGAIN--YOU HAVE ONLY $";D1 1210 GOTO 1040 1220 PRINT "NEGATIVE VALUES NOT ALLOWED." 1230 ON N GOTO 1060,1100,1140 1240 LET O=((2*F^2+S^2)/F1^2+1) 1250 IF O<10 THEN 1280 1260 PRINT "MORALE IS HIGH" 1270 GOTO 1320 1280 IF O<5 THEN 1310 1290 PRINT "MORALE IS FAIR" 1300 GOTO 1320 1310 PRINT "MORALE IS POOR" 1320 IF M<>3 THEN 1350 1330 PRINT "YOU ARE ON THE OFFENSIVE" 1340 GOTO 1390 1350 IF M<>1 THEN 1380 1360 PRINT "YOU ARE ON THE DEFENSIVE" 1370 GOTO 1390 1380 PRINT "BOTH SIDES ARE ON THE OFFENSIVE " 1390 PRINT A$ 1400 PRINT "YOUR STRATEGY "; 1410 INPUT Y 1420 IF Y=5 THEN 2440 1430 IF ABS(Y-3)<3 THEN 1460 1440 PRINT "STRATEGY";Y;"NOT ALLOWED." 1450 GOTO 1390 1460 PRINT A$ 1470 PRINT A$,"CONFEDERACY","UNION" 1480 LET C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND(1)+1)-Y)+1))) 1490 LET C5=INT(C5*(1+1/O)*(1.28+F1/(B+1))+.5) 1500 IF C5+100/O=0 THEN 1620 1600 PRINT "YOUR CASUALTIES WERE"INT(100*(C1-C5)/C1+.5);" PERCENT LESS" 1610 GOTO 1630 1620 PRINT "YOUR CASUALTIES WERE",INT(100*(C5-C1)/C1+.5);" PERCENT MORE" 1630 PRINT "THAN THE ACTUAL CASUALTIES AT ";C$ 1640 PRINT A$ 1650 IF U=1 THEN 1670 1660 IF C5+E<17*C2*C1/(C5*20)+5*O THEN 1700 1670 PRINT "YOU LOSE ";C$ 1680 LET L=L+1 1690 GOTO 1720 1700 PRINT "YOU WIN ";C$ 1710 LET W=W+1 1720 LET T1=T1+C5+E 1730 LET T2=T2+17*C2*C1/(C5*20)+5*O 1740 LET P1=P1+C1 1750 LET P2=P2+C2 1760 LET Q1=Q1+(F+S+B) 1770 LET R1=R1+M1*(100-I1)/20 1780 LET M3=M3+M1 1790 LET M4=M4+M2 1800 GOTO 720 1810 DATA "BULL RUN",18000,18500,1967,2708,1 1820 DATA "SHILOH",40000.,44894.,10699,13047,3 1830 DATA "SEVEN DAYS",95000.,115000.,20614,15849,3 1840 DATA "SECOND BULL RUN",54000.,63000.,10000,14000,2 1850 DATA "ANTIETAM",40000.,50000.,10000,12000,3 1860 DATA "FREDERICKSBURG",75000.,120000.,5377,12653,1 1870 DATA "MURFREESBORO",38000.,45000.,11000,12000,1 1880 DATA "CHANCELLORSVILLE",32000,90000.,13000,17197,2 1890 DATA "VICKSBURG",50000.,70000.,12000,19000,1 1900 DATA "GETTYSBURG",72500.,85000.,20000,23000,3 1910 DATA "CHICKAMAUGA",66000.,60000.,18000,16000,2 1920 DATA "CHATTANOOGA",37000,60000,3670,5800,2 1930 DATA "SPOTSYLVANIA",62000.,110000.,17723,18000,2 1940 DATA "ATLANTA",65000.,100000.,8500,3700,1 1950 PRINT "JULY 21, 1861 GEN. BEAUREGARD COMMANDING THE" 1960 PRINT " SOUTH MET THE UNION FORCES WITH GEN MCDOWELL" 1970 PRINT " IN A PREMATURE BATTLE AT BULL RUN." 1980 PRINT " GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 1990 GOTO 990 2000 PRINT "APRIL 6-7,1862. THE CONFEDERATE SURPRISE ATTACK" 2010 PRINT " AT SHILOH FAILED DUE TO POOR ORGANIZATION." 2020 GOTO 990 2030 PRINT "JUNE 25-JULY 1,1862 GENERAL LEE (CSA) UPHELD THE" 2040 PRINT " OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MC-" 2050 PRINT " -CLELLAN AND THE UNION FORCES AWAY FROM RICHMOND." 2060 GOTO 990 2070 PRINT "AUG. 29-30, 1862. THE COMBINED CONFEDERATE" 2080 PRINT " FORCES UNDER LEE AND JACKSON DROVE THE" 2090 PRINT " UNION FORCES BACK INTO WASHINGTON." 2100 GOTO 990 2110 PRINT "SEPT 17,1862 THE SOUTH FAILED TO INCORPORATE" 2120 PRINT " MARYLAND INTO THE CONFEDERACY." 2130 GOTO 990 2140 PRINT "DEC 13,1862 LEE'S CONFEDERATE ARMY SUCCESSFULLY" 2150 PRINT "REPULSED AN ATTACK BY THE UNION'S GEN. BURNSIDE." 2160 GOTO 990 2170 PRINT "DEC 31,1862 THE SOUTH'S GEN. BRAGG WON A CLOSE BATTLE" 2180 GOTO 990 2190 PRINT "MAY 1-6, 1863 THE SOUTH HAD A COSTLY VICTORY" 2200 PRINT "AND LOST ONE OF THEIR OUTSTANDING GENERALS," 2210 PRINT " 'STONEWALL' JACKSON." 2220 GOTO 990 2230 PRINT "JULY 4, 1863 THE SOUTH'S COSTLY DEFEAT AT VICKSBURG" 2240 PRINT " GAVE THE UNION ACCESS TO THE MISSISSIPPI." 2250 GOTO 990 2260 PRINT "JULY 1-3,1863. A SOUTHERN MISTAKE BY GEN. LEE" 2270 PRINT " MOST CRUCIAL BATTLES OF THE WAR." 2280 GOTO 990 2290 PRINT "SEPT. 15, 1863. CONFUSION IN A FOREST NEAR" 2300 PRINT " CHICKAMAUGA LED TO A COSTLY SOUTHERN VICTORY." 2310 GOTO 990 2320 PRINT "NOV. 25,1863. AFTER THE SOUTH HAD LAIN SIEGE TO" 2330 PRINT " GEN. ROSENCRANS' ARMY FOR 3 MONTHS," 2340 PRINT " GEN. GRANT BROKE THROUGH THE SIEGE." 2350 GOTO 990 2360 PRINT "MAY 5, 1864. GRANT'S PLAN TO KEEP LEE ISOLATED 2370 PRINT " BEGAN TO FAIL HERE, AND CONTINUED" 2380 PRINT " AT COLD HARBOR AND PETERSBURG." 2390 GOTO 990 2400 PRINT "AUGUST, 1864 SHERMAN AND THREE VETERAN " 2410 PRINT " ARMIES CONVERGED ON ATLANTA AND DEALT THE" 2420 PRINT " DEATH BLOW TO THE CONFEDERACY." 2430 GOTO 990 2440 PRINT "THE CONFEDERACY HAS SURRENDERED" 2450 GOTO 2470 2460 PRINT "THE UNION HAS SURRENDERED." 2470 PRINT A$ 2480 PRINT "YOU HAVE WON ";W;" BATTLES AND LOST ";L;" BATTLES." 2490 IF Y=5 THEN 2530 2500 IF W<=L THEN 2530 2510 PRINT "THE CONFEDERACY HAS WON THE WAR" 2520 GOTO 2540 2530 PRINT "THE UNION HAS WON THE WAR" 2540 END