codinghorror

Civil War BASIC game from Basic Computer Games book in 1973

Dec 6th, 2020
1,564
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 2 PRINT TAB(26) "CIVIL WAR"
  2. 4 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 6 PRINT : PRINT : PRINT
  4. 20 REM ORIGINAL GAME DESIGN: CRAM, GOODIE, HIBBARD LEXINGTON H.S.
  5. 30 REM MODIFICATIONS: G. PAUL, R. HESS (TIES), 1973
  6. 50 DIM S(4),C$(14),M1(14),M2(14),C1(14),C2(14),M(14)
  7. 60 REM UNION INFO ON LIKELY CONFEDERATE STRATEGY
  8. 70 S(1)=25 : S(2)=25 : S(3)=25 : S(4)=25
  9. 82 REM READ HISTORICAL DATA.
  10. 84 FOR D=1 TO 14
  11. 86 READ C$(D),M1(D),M2(D),C1(D),C2(D),M(D)
  12. 88 NEXT D
  13. 89 LET D=RND(-1)
  14. 90 PRINT
  15. 100 PRINT "DO YOU WANT INSTRUCTIONS";
  16. 110 INPUT X$
  17. 120 IF X$="YES" THEN 160
  18. 130 IF X$="NO" THEN 370
  19. 140 PRINT "YES OR NO -- ";
  20. 150 GOTO 110
  21. 160 PRINT : PRINT : PRINT : PRINT
  22. 170 PRINT "THIS IS A CIVIL WAR SIMULATION."
  23. 180 PRINT "TO PLAY TYPE A RESPONSE WHEN THE COMPUTER ASKS."
  24. 190 PRINT "REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR"
  25. 200 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE"
  26. 210 PRINT "BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT"
  27. 220 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!"
  28. 230 PRINT
  29. 240 PRINT "THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS ";
  30. 245 PRINT "POSSIBLE."
  31. 250 PRINT
  32. 260 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:"
  33. 270 PRINT " (1) ARTILLERY ATTACK"
  34. 280 PRINT " (2) FORTIFICATION AGAINST FRONTAL ATTACK"
  35. 290 PRINT " (3) FORTIFICATION AGAINST FLANKING MANEUVERS"
  36. 300 PRINT " (4) FALLING BACK"
  37. 310 PRINT " YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:"
  38. 320 PRINT " (1) ARTILLERY ATTACK"
  39. 330 PRINT " (2) FRONTAL ATTACK"
  40. 340 PRINT " (3) FLANKING MANEUVERS"
  41. 350 PRINT " (4) ENCIRCLEMENT"
  42. 360 PRINT "YOU MAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY."
  43. 370 PRINT : PRINT : PRINT : PRINT "ARE THERE TWO GENERALS PRESENT ";
  44. 380 PRINT "(ANSWER YES OR NO)";
  45. 390 INPUT B$
  46. 400 IF B$="YES" THEN 430
  47. 410 IF B$ <> "NO" THEN 380
  48. 420 PRINT : PRINT "YOU ARE THE CONFEDERACY. GOOD LUCK!"
  49. 425 PRINT
  50. 430 LET D=1
  51. 440 IF B$ <> "YES" THEN 460
  52. 450 LET D=2
  53. 460 PRINT "SELECT A BATTLE BY TYPING A NUMBER FROM 1 TO 14 ON"
  54. 470 PRINT "REQUEST. TYPE ANY OTHER NUMBER TO END THE SIMULATION."
  55. 480 PRINT "BUT '0' BRINGS BACK EXACT PREVIOUS BATTLE SITUATION"
  56. 490 PRINT "ALLOWING YOU TO REPLAY IT"
  57. 500 PRINT
  58. 510 PRINT "NOTE: A NEGATIVE FOOD$ ENTRY CAUSES THE PROGRAM TO "
  59. 520 PRINT "USE THE ENTRIES FROM THE PREVIOUS BATTLE"
  60. 530 PRINT
  61. 540 PRINT "AFTER REQUESTING A BATTLE, DO YOU WISH ";
  62. 550 PRINT "BATTLE DESCRIPTIONS ";
  63. 560 PRINT "(ANSWER YES OR NO)";
  64. 570 INPUT X$
  65. 580 IF X$="YES" THEN 600
  66. 590 IF X$ <> "NO" THEN 560
  67. 600 L=0:W=0:R1=0:Q1=0:M3=0:M4=0:P1=0:P2=0:T1=0:T2=0
  68. 610 F(2)=0:H(2)=0:B(2)=0:R2=0:Q2=0:C6=0:F=0:W0=0:Y=0:Y2=0:U=0:U2=0
  69. 620 PRINT : PRINT : PRINT
  70. 630 PRINT "WHICH BATTLE DO YOU WISH TO SIMULATE";
  71. 640 INPUT A
  72. 650 IF A <> 0 THEN 660
  73. 655 IF R <> 0 THEN 1140
  74. 660 IF A <=0 THEN 2860
  75. 665 IF A >= 15 THEN 2860
  76. 670 LET C$=C$(A)
  77. 680 LET M1=M1(A)
  78. 690 LET M2=M2(A)
  79. 700 LET C1=C1(A)
  80. 710 LET C2=C2(A)
  81. 720 LET M=M(A)
  82. 960 LET U=0
  83. 970 REM INFLATION CALC
  84. 980 LET I1=10+(L-W)*2
  85. 990 LET I2=10+(W-L)*2
  86. 1000 REM - MONEY AVAILABLE
  87. 1010 LET D(1)=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5)
  88. 1020 LET D(2)=100*INT(M2*(100-I2)/2000+.5)
  89. 1030 IF B$ <> "YES" THEN 1050
  90. 1040 LET D(2)=100*INT((M2*(100-I2)/2000)*(1+(R2-Q2)/(R2+1))+.5)
  91. 1050 REM - MEN AVAILABLE
  92. 1060 LET M5=INT(M1*(1+(P1-T1)/(M3+1)))
  93. 1070 LET M6=INT(M2*(1+(P2-T2)/(M4+1)))
  94. 1080 LET F1=5*M1/6
  95. 1090 PRINT : PRINT : PRINT : PRINT : PRINT
  96. 1100 PRINT "THIS IS THE BATTLE OF ";C$
  97. 1110 IF X$="NO" THEN 1150
  98. 1120 IF A>11 THEN 1130
  99. 1125 ON A GOTO 3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890
  100. 1130 ON A-11 GOTO 3920,3950,3980
  101. 1140 PRINT C$" INSTANT REPLAY"
  102. 1150 PRINT
  103. 1160 PRINT " ","CONFEDERACY"," UNION"
  104. 1170 PRINT "MEN"," "M5," "M6
  105. 1180 PRINT "MONEY","$";D(1),"$";D(2)
  106. 1190 PRINT "INFLATION"," ";I1+15;"%"," ";I2;"%"
  107. 1195 PRINT
  108. 1200 REM - ONLY IN PRINTOUT IS CONFED INFLATION = I1+15%
  109. 1210 REM - IF TWO GENERALS, INPUT CONFED. FIRST
  110. 1220 FOR I=1 TO D
  111. 1230 IF B$ <> "YES" THEN 1260
  112. 1240 IF I=2 THEN 1260
  113. 1250 PRINT "CONFEDERATE GENERAL---";
  114. 1260 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR"
  115. 1270 PRINT " - FOOD......";
  116. 1280 INPUT F
  117. 1290 IF F >= 0 THEN 1360
  118. 1300 IF R1 <> 0 THEN 1330
  119. 1310 PRINT "NO PREVIOUS ENTRIES"
  120. 1320 GOTO 1270
  121. 1330 PRINT "ASSUME YOU WANT TO KEEP SAME ALLOCATIONS"
  122. 1340 PRINT
  123. 1350 GOTO 1510
  124. 1360 LET F(I)=F
  125. 1370 PRINT " - SALARIES..";
  126. 1380 INPUT H(I)
  127. 1390 LET N=1
  128. 1400 IF H(I)<0 THEN 1490
  129. 1410 PRINT " - AMMUNITION";
  130. 1420 INPUT B(I)
  131. 1430 LET N=2
  132. 1440 IF B(I)<0 THEN 1490
  133. 1450 PRINT
  134. 1460 IF F(I)+H(I)+B(I) <= D(I) THEN 1510
  135. 1470 PRINT "THINK AGAIN! YOU HAVE ONLY $"D(I)
  136. 1480 GOTO 1270
  137. 1490 PRINT "NEGATIVE VALUES NOT ALLOWED."
  138. 1500 ON N GOTO 1370,1410
  139. 1510 IF B$ <> "YES" THEN 1550
  140. 1520 IF I=2 THEN 1550
  141. 1530 PRINT "UNION GENERAL---";
  142. 1540 NEXT I
  143. 1550 FOR Z=1 TO D
  144. 1560 IF B$ <> "YES" THEN 1620
  145. 1570 ON Z GOTO 1580,1600
  146. 1580 PRINT "CONFEDERATE ";
  147. 1590 GOTO 1620
  148. 1600 PRINT " UNION ";
  149. 1610 REM - FIND MORALE
  150. 1620 LET O=((2*F(Z)^2+H(Z)^2)/F1^2+1)
  151. 1630 IF O<10 THEN 1660
  152. 1640 PRINT "MORALE IS HIGH"
  153. 1650 GOTO 1700
  154. 1660 IF O<5 THEN 1690
  155. 1670 PRINT "MORALE IS FAIR"
  156. 1680 GOTO 1700
  157. 1690 PRINT "MORALE IS POOR"
  158. 1700 IF B$ <> "YES" THEN 1760
  159. 1710 LET O(Z)=O
  160. 1720 NEXT Z
  161. 1730 LET O2=O(2)
  162. 1740 LET O=O(1)
  163. 1750 PRINT "CONFEDERATE GENERAL---";
  164. 1760 REM - ACTUAL OFF/DEF BATTLE SITUATION
  165. 1770 IF M <> 3 THEN 1800
  166. 1780 PRINT "YOU ARE ON THE OFFENSIVE"
  167. 1790 GOTO 1840
  168. 1800 IF M <> 1 THEN 1830
  169. 1810 PRINT "YOU ARE ON THE DEFENSIVE"
  170. 1820 GOTO 1840
  171. 1830 PRINT "BOTH SIDES ARE ON THE OFFENSIVE "
  172. 1840 PRINT
  173. 1850 REM - CHOOSE STRATEGIES
  174. 1860 IF B$ <> "YES" THEN 1910
  175. 1870 FOR I=1 TO 2
  176. 1880 ON I GOTO 1890,1920
  177. 1890 PRINT "CONFEDERATE STRATEGY ";
  178. 1900 GOTO 1920
  179. 1910 PRINT "YOUR STRATEGY ";
  180. 1920 INPUT Y
  181. 1930 IF ABS(Y-3)<3 THEN 1960
  182. 1940 PRINT "STRATEGY";Y;"NOT ALLOWED."
  183. 1950 GOTO 1910
  184. 1960 IF B$="YES" THEN 2000
  185. 1970 IF Y=5 THEN 2830
  186. 1980 GOSUB 3110
  187. 1990 GOTO 2170
  188. 2000 IF I=2 THEN 2040
  189. 2010 LET Y1=Y
  190. 2020 PRINT "UNION STRATEGY ";
  191. 2030 NEXT I
  192. 2040 LET Y2=Y
  193. 2050 LET Y=Y1
  194. 2060 IF Y2=5 THEN 2020
  195. 2070 REM : SIMULATED LOSSES-NORTH
  196. 2080 LET C6=(2*C2/5)*(1+1/(2*(ABS(Y2-Y)+1)))
  197. 2090 LET C6=C6*(1.28+(5*M2/6)/(B(2)+1))
  198. 2100 LET C6=INT(C6*(1+1/O2)+.5)
  199. 2110 REM - IF LOSS > MEN PRESENT, RESCALE LOSSES
  200. 2120 LET E2=100/O2
  201. 2130 IF INT(C6+E2)<M6 THEN 2190
  202. 2140 LET C6=INT(13*M6/20)
  203. 2150 LET E2=7*C6/13
  204. 2160 LET U2=1
  205. 2170 REM - CALCULATE SIMULATED LOSSES
  206. 2180 PRINT
  207. 2190 PRINT : PRINT : PRINT ,"CONFEDERACY","UNION"
  208. 2200 LET C5=(2*C1/5)*(1+1/(2*(ABS(Y2-Y)+1)))
  209. 2210 LET C5=INT(C5*(1+1/O)*(1.28+F1/(B(1)+1))+.5)
  210. 2220 LET E=100/O
  211. 2230 IF C5+100/O<M1*(1+(P1-T1)/(M3+1)) THEN 2270
  212. 2240 LET C5=INT(13*M1/20*(1+(P1-T1)/(M3+1)))
  213. 2250 LET E=7*C5/13
  214. 2260 LET U=1
  215. 2270 IF D=1 THEN 2500
  216. 2280 PRINT "CASUALTIES",C5,C6
  217. 2290 PRINT "DESERTIONS",INT(E),INT(E2)
  218. 2300 PRINT
  219. 2310 IF B$ <> "YES" THEN 2350
  220. 2320 PRINT "COMPARED TO THE ACTUAL CASUALTIES AT "C$
  221. 2330 PRINT "CONFEDERATE:"INT(100*(C5/C1)+.5)"% OF THE ORIGINAL"
  222. 2340 PRINT "UNION: "INT(100*(C6/C2)+.5)"% OF THE ORIGINAL"
  223. 2350 PRINT
  224. 2360 REM - 1 WHO ONE
  225. 2370 IF U <> 1 THEN 2380
  226. 2375 IF U2=1 THEN 2460
  227. 2380 IF U=1 THEN 2420
  228. 2390 IF U2=1 THEN 2440
  229. 2400 IF C5+E=C6+E2 THEN 2460
  230. 2410 IF C5+E<C6+E2 THEN 2440
  231. 2420 PRINT "THE UNION WINS "C$
  232. 2430 GOTO 2600
  233. 2440 PRINT "THE CONFEDERACY WINS "C$
  234. 2450 GOTO 2660
  235. 2460 PRINT "BATTLE OUTCOME UNRESOLVED"
  236. 2470 LET W0=W0+1
  237. 2480 IF A=0 THEN 2790
  238. 2490 GOTO 2680
  239. 2500 LET C6=INT(17*C2*C1/(C5*20))
  240. 2510 LET E2=5*O
  241. 2520 GOTO 2280
  242. 2530 PRINT "YOUR CASUALTIES WERE "INT(100*(C5/C1)+.5)"% OF "
  243. 2540 PRINT "THE ACTUAL CASUALTIES AT ";C$
  244. 2550 PRINT
  245. 2560 REM - FIND WHO WON
  246. 2570 IF U=1 THEN 2590
  247. 2580 IF C5+E<17*C2*C1/(C5*20)+5*O THEN 2630
  248. 2590 PRINT "YOU LOSE ";C$
  249. 2600 IF A=0 THEN 2790
  250. 2610 LET L=L+1
  251. 2620 GOTO 2680
  252. 2630 PRINT "YOU WIN ";C$
  253. 2640 REM - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICAL
  254. 2650 REM RESOURCES AVAILABLE.IF A REPLAY DON'T UPDATE.
  255. 2660 IF A=0 THEN 2790
  256. 2670 LET W=W+1
  257. 2680 LET T1=T1+C5+E
  258. 2690 LET T2=T2+C6+E2
  259. 2700 LET P1=P1+C1
  260. 2710 LET P2=P2+C2
  261. 2720 LET Q1=Q1+(F(1)+H(1)+B(1))
  262. 2730 LET Q2=Q2+(F(2)+H(2)+B(2))
  263. 2740 LET R1=R1+M1*(100-I1)/20
  264. 2750 LET R2=R2+M2*(100-I2)/20
  265. 2760 LET M3=M3+M1
  266. 2770 LET M4=M4+M2
  267. 2780 GOSUB 3300
  268. 2790 U=0:U2=0
  269. 2800 PRINT "---------------"
  270. 2810 GOTO 620
  271. 2820 REM------FINISH OFF
  272. 2830 PRINT "THE CONFEDERACY HAS SURRENDERED"
  273. 2840 GOTO 2860
  274. 2850 PRINT "THE UNION HAS SURRENDERED."
  275. 2860 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  276. 2870 PRINT "THE CONFEDERACY ";
  277. 2880 PRINT "HAS WON "W" BATTLES AND LOST "L
  278. 2890 IF Y=5 THEN 2940
  279. 2900 IF Y2=5 THEN 2920
  280. 2910 IF W <= L THEN 2940
  281. 2915 IF Y=5 THEN 2940
  282. 2920 PRINT "THE CONFEDERACY HAS WON THE WAR"
  283. 2930 GOTO 2950
  284. 2940 PRINT "THE UNION HAS WON THE WAR"
  285. 2950 PRINT
  286. 2960 IF R1=0 THEN 3100
  287. 2970 PRINT "FOR THE "W+L+W0" BATTLES FOUGHT (EXCUDING RERUNS)"
  288. 2980 PRINT " "," "," ";
  289. 2990 PRINT "CONFEDERACY"," UNION"
  290. 3000 PRINT "HISTORICAL LOSSES",INT(P1+.5),INT(P2+.5)
  291. 3010 PRINT "SIMULATED LOSSES",INT(T1+.5),INT(T2+.5)
  292. 3020 PRINT
  293. 3030 PRINT " % OF ORIGINAL",INT(100*(T1/P1)+.5),INT(100*(T2/P2)+.5)
  294. 3040 IF B$="YES" THEN 3100
  295. 3050 PRINT
  296. 3060 PRINT "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED "
  297. 3070 PRINT "STRATEGIES 1, 2, 3, 4 IN THE FOLLOWING PERCENTAGES"
  298. 3080 PRINT S(1);S2(2);S(3);S(4)
  299. 3090 REM---------------------------------
  300. 3100 STOP
  301. 3110 REM - UNION STRATEGY IS COMPUTER CHOSEN
  302. 3120 PRINT "UNION STRATEGY IS ";
  303. 3130 IF A <> 0 THEN 3180
  304. 3140 INPUT Y2
  305. 3150 IF Y2 <=0 THEN 3160
  306. 3155 IF Y2<5 THEN 3290
  307. 3160 PRINT "ENTER 1 , 2 ,3 , OR 4 (USUALLY PREVIOUS UNION STRATEGY)"
  308. 3170 GOTO 3140
  309. 3180 LET S0=0
  310. 3190 LET R=100*RND(0)
  311. 3200 FOR I=1 TO 4
  312. 3210 LET S0=S0+S(I)
  313. 3220 REM - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS
  314. 3230 REM THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STATEGY.
  315. 3240 IF R<S0 THEN 3270
  316. 3250 NEXT I
  317. 3260 REM - IF ACTUAL STRAT. IN,THEN HERE IS Y2= HIST. STRAT.
  318. 3270 LET Y2=I
  319. 3280 PRINT Y2
  320. 3290 RETURN
  321. 3300 REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES
  322. 3310 REM - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S
  323. 3320 REM PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5%.
  324. 3330 LET S=3
  325. 3340 LET S0=0
  326. 3350 FOR I=1 TO 4
  327. 3360 IF S(I) <= 5 THEN 3390
  328. 3370 LET S(I)=S(I)-S
  329. 3380 LET S0=S0+S
  330. 3390 NEXT I
  331. 3400 LET S(Y)=S(Y)+S0
  332. 3410 RETURN
  333. 3420 REM - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING
  334. 3430 REM DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ
  335. 3440 DATA "BULL RUN",18000,18500,1967,2708,1
  336. 3450 DATA "SHILOH",40000.,44894.,10699,13047,3
  337. 3460 DATA "SEVEN DAYS",95000.,115000.,20614,15849,3
  338. 3470 DATA "SECOND BULL RUN",54000.,63000.,10000,14000,2
  339. 3480 DATA "ANTIETAM",40000.,50000.,10000,12000,3
  340. 3490 DATA "FREDERICKSBURG",75000.,120000.,5377,12653,1
  341. 3500 DATA "MURFREESBORO",38000.,45000.,11000,12000,1
  342. 3510 DATA "CHANCELLORSVILLE",32000,90000.,13000,17197,2
  343. 3520 DATA "VICKSBURG",50000.,70000.,12000,19000,1
  344. 3530 DATA "GETTYSBURG",72500.,85000.,20000,23000,3
  345. 3540 DATA "CHICKAMAUGA",66000.,60000.,18000,16000,2
  346. 3550 DATA "CHATTANOOGA",37000.,60000.,36700.,5800,2
  347. 3560 DATA "SPOTSYLVANIA",62000.,110000.,17723,18000,2
  348. 3570 DATA "ATLANTA",65000.,100000.,8500,3700,1
  349. 3580 PRINT "JULY 21, 1861. GEN. BEAUREGARD, COMMANDING THE SOUTH, MET"
  350. 3590 PRINT "UNION FORCES WITH GEN. MCDOWELL IN A PREMATURE BATTLE AT"
  351. 3600 PRINT "BULL RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK."
  352. 3610 GOTO 1150
  353. 3620 PRINT "APRIL 6-7, 1862. THE CONFEDERATE SURPRISE ATTACK AT"
  354. 3630 PRINT "SHILOH FAILED DUE TO POOR ORGANIZATION."
  355. 3640 GOTO 1150
  356. 3650 PRINT "JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE"
  357. 3660 PRINT "OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN"
  358. 3670 PRINT "AND THE UNION FORCES AWAY FROM RICHMOND."
  359. 3680 GOTO 1150
  360. 3690 PRINT "AUG 29-30, 1862. THE COMBINED CONFEDERATE FORCES UNDER";
  361. 3695 PRINT " LEE"
  362. 3700 PRINT "AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON."
  363. 3710 GOTO 1150
  364. 3720 PRINT "SEPT 17, 1862. THE SOUTH FAILED TO INCORPORATE MARYLAND"
  365. 3730 PRINT "INTO THE CONFEDERACY."
  366. 3740 GOTO 1150
  367. 3750 PRINT "DEC 13, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY"
  368. 3760 PRINT "REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE."
  369. 3770 GOTO 1150
  370. 3780 PRINT "DEC 31, 1862. THE SOUTH UNDER GEN. BRAGG WON A CLOSE ";
  371. 3785 PRINT "BATTLE."
  372. 3790 GOTO 1150
  373. 3800 PRINT "MAY 1-6, 1863. THE SOUTH HAD A COSTLY VICTORY AND LOST"
  374. 3810 PRINT "ONE OF THEIR OUTSTANDING GENERALS, 'STONEWALL' JACKSON."
  375. 3820 GOTO 1150
  376. 3830 PRINT "JULY 4, 1863. VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH"
  377. 3840 PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI."
  378. 3850 GOTO 1150
  379. 3860 PRINT "JULY 1-3, 1863. A SOUTHERN MISTAKE BY GEN. LEE AT ";
  380. 3865 PRINT "GETTYSBURG"
  381. 3870 PRINT "COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE WAR."
  382. 3880 GOTO 1150
  383. 3890 PRINT "SEPT. 15, 1863. CONFUSION IN A FOREST NEAR CHICKAMAUGA LED"
  384. 3900 PRINT "TO A COSTLY SOUTHERN VICTORY."
  385. 3910 GOTO 1150
  386. 3920 PRINT "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'"
  387. 3930 PRINT "ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE."
  388. 3940 GOTO 1150
  389. 3950 PRINT "MAY 5, 1864. GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO"
  390. 3960 PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG."
  391. 3970 GOTO 1150
  392. 3980 PRINT "AUGUST, 1864. SHERMAN AND THREE VETERAN ARMIES CONVERGED"
  393. 3990 PRINT "ON ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY."
  394. 4000 GOTO 1150
  395. 4010 END
RAW Paste Data