home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug026.ark / CIVILWAR.ASC < prev    next >
Text File  |  1984-04-29  |  8KB  |  242 lines
  1. 100 LET L=0:LET W=0:LET R1=0:LET P1=0
  2. 110 LET Q1=0:LET M3=0:LET M4=0
  3. 120 LET P2=0:LET T1=0:LET T2=0
  4. 130 REMARKABLE PROGRAM BY L. CRAM , L. GOODIE , AND D. HIBBARD 
  5. 140 PRINT "DO YOU WANT DESCRIPTIONS (0=YES, 1=NO)";
  6. 150 INPUT Z
  7. 160 FOR U=1 TO 6 
  8. 170 PRINT
  9. 180 NEXT U 
  10. 190 IF Z=1 THEN 420
  11. 200 PRINT "THIS IS A CIVIL WAR SIMULATION."
  12. 210 PRINT "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." 
  13. 220 PRINT "REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR" 
  14. 230 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 
  15. 240 PRINT "BASED ON THE ACTUAL OCCURENCE. MOST BATTLES TEND TO RESULT" 
  16. 250 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!"
  17. 260 PRINT
  18. 270 PRINT "THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS POSSIBLE" 
  19. 280 PRINT
  20. 290 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 
  21. 300 PRINT "       (1) ARTILLERY ATTACK"
  22. 310 PRINT "       (2) FORTIFICATION AGAINST FRONTAL ATTACK"
  23. 320 PRINT "       (3) FORTIFICATION AGAINST FLANKING MANUEVERS"
  24. 330 PRINT "       (4) FALLING BACK"
  25. 340 PRINT "YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 
  26. 350 PRINT "       (1) ARTILLERY ATTACK"
  27. 360 PRINT "       (2) FRONTAL ATTACK"
  28. 370 PRINT "       (3) FLANKING MANUEVERS"
  29. 380 PRINT "       (4) ENCIRCLEMENT"
  30. 390 PRINT "YOU MAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY." 
  31. 400 PRINT
  32. 410 PRINT "YOU ARE THE CONFEDERACY.       GOOD LUCK!"
  33. 420 READ M1,M2,C1,C2,M,A,U 
  34. 430 LET I1=10+(L-W)*2
  35. 440 LET I2=10+(W-L)*2
  36. 450 LET D1=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5)
  37. 460 LET D2=100*INT(M2*(100-I2)/2000+.5) 
  38. 470 LET F1=5*M1/6
  39. 480 LET A1=Z 
  40. 490 FOR U=1 TO 4 
  41. 500 PRINT
  42. 510 NEXT U 
  43. 520 PRINT "THIS IS THE BATTLE OF ";
  44. 530 GOSUB 1530
  45. 540 PRINT " ","CONFEDERACY","  UNION"
  46. 550 PRINT "MEN"," ";INT(M1*(1+(P1-T1)/(M3+1)))," ";
  47. 560 PRINT INT(M2*(1+(P2-T2)/(M4+1))) 
  48. 570 PRINT "MONEY","$";D1,"$";D2
  49. 580 PRINT "INFLATION"," ";I1+15;"%"," ";I2;"%" 
  50. 590 PRINT
  51. 600 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR FOOD";
  52. 610 INPUT F
  53. 620 IF F<0 THEN 1480
  54. 630 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR SALARIES";
  55. 640 INPUT S
  56. 650 IF S<0 THEN 1480
  57. 660 PRINT "HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION";
  58. 670 INPUT B
  59. 680 IF B<0 THEN 1480
  60. 690 PRINT
  61. 700 IF F+S+B<=D1 THEN 730
  62. 710 PRINT "THINK AGAIN!   YOU HAVE ONLY $" D1
  63. 720 GOTO 590 
  64. 730 LET O=((2*F^2+S^2)/F1^2+1) 
  65. 740 IF O<10 THEN 770 
  66. 750 PRINT "MORALE IS HIGH" 
  67. 760 GOTO 810 
  68. 770 IF O<5 THEN 800
  69. 780 PRINT "MORALE IS FAIR" 
  70. 790 GOTO 810 
  71. 800 PRINT "MORALE IS POOR" 
  72. 810 IF M<>3 THEN 840 
  73. 820 PRINT "YOU ARE ON THE OFFENSIVE" 
  74. 830 GOTO 880 
  75. 840 IF M<>1 THEN 870 
  76. 850 PRINT "YOU ARE ON THE DEFENSIVE" 
  77. 860 GOTO 880 
  78. 870 PRINT "BOTH SIDES ARE ON THE OFFENSIVE"
  79. 880 PRINT
  80. 890 PRINT "YOUR STEGY"; 
  81. 900 INPUT Y
  82. 910 IF Y=5 THEN 2380 
  83. 920 IF ABS(Y-3)<3 THEN 950 
  84. 930 PRINT "YOU JERK!  USE THE OTHER SET OF STRATEGIES!!" 
  85. 940 GOTO 880 
  86. 950 PRINT
  87. 960 PRINT " ","CONFEDERACY","UNION"
  88. 970 LET C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND(1)+1)-Y)+1))) 
  89. 980 LET C5=INT(C5*(1+1/O)*(1.28+F1/(B+1))+.5) 
  90. 990 IF C5+100/O<M1*(1+(P1-T1)/(M3+1)) THEN 1040 
  91. 1000 LET C5=INT(13*M1/20*(1+(P1-T1)/(M3+1)))
  92. 1010 LET E=7*C5/13
  93. 1020 LET U=1
  94. 1030 GOTO 1050 
  95. 1040 LET E=100/O
  96. 1050 PRINT "CASUALTIES",C5,INT(17*C2*C1/(C5*20)+.5)
  97. 1060 PRINT "DESERTIONS",INT(E),INT(5*O) 
  98. 1070 PRINT
  99. 1080 IF C5-C1>=0 THEN 1110 
  100. 1090 PRINT "YOUR CASUALTIES WERE"INT(100*(C1-C5)/C1+.5);"% LESS THAN"
  101. 1100 GOTO 1120 
  102. 1110 PRINT "YOUR CASUALTIES WERE"INT(100*(C5-C1)/C1+.5);"% MORE THAN"
  103. 1120 PRINT "THE ACTUAL CASUALITIES AT ";
  104. 1130 LET A1=1 
  105. 1140 GO SUB800
  106. 1150 IF U=1 THEN 1170
  107. 1160 IF C5+E<17*C2*C1/(C5*20)+5*O THEN 1200
  108. 1170 PRINT "YOU LOSE "; 
  109. 1180 LET L=L+1
  110. 1190 GOTO 1220 
  111. 1200 PRINT "YOU WIN ";
  112. 1210 LET W=W+1
  113. 1220 GOSUB 1530
  114. 1230 IF W=8 THEN 2400 
  115. 1240 LET T1=T1+C5+E 
  116. 1250 LET T2=T2+17*C2*C1/(C5*20)+5*O 
  117. 1260 LET P1=P1+C1 
  118. 1270 LET P2=P2+C2 
  119. 1280 LET Q1=Q1+(F+S+B)
  120. 1290 LET R1=R1+M1*(100-I1)/20 
  121. 1300 LETM3=M3+M1
  122. 1310 LET M4=M4+M2 
  123. 1320 IF A=14 THEN 2410
  124. 1330 GOTO 420 
  125. 1340 DATA 18000,18500,1967,2708,1,1,0 
  126. 1350 DATA 40000,44894,10699,13047,3,2,0 
  127. 1360 DATA 95000,115000,20614,15849,3,3,0
  128. 1370 DATA 54000,63000,10000,14000,2,4,0 
  129. 1380 DATA 40000,50000,10000,12000,3,5,0 
  130. 1390 DATA 75000,120000,5377,12653,1,6,0 
  131. 1400 DATA 38000,45000,11000,12000,1,7,0 
  132. 1410 DATA 32000,90000,13000,17197,2,8,0 
  133. 1420 DATA 50000,70000,12000,19000,1,9,0 
  134. 1430 DATA 72500,85000,20000,23000,3,10,0
  135. 1440 DATA 66000,60000,18000,16000,2,11,0
  136. 1450 DATA 37000,60000,6700,5800,2,12,0
  137. 1460 DATA 62000,110000,17723,18000,2,13,0 
  138. 1470 DATA 65000,100000,8500,3700,1,14,0 
  139. 1480 PRINT "GO TO JAIL."
  140. 1490 PRINT "GO DIRECTLY TO JAIL." 
  141. 1500 PRINT "DO NOT PASS GO."
  142. 1510 PRINT "DO NOT COLLECT $200"
  143. 1520 GOTO 490 
  144. 1530 IF A<>1 THEN 1600 
  145. 1540 PRINT "BULL RUN" 
  146. 1550 IF A1=1 THEN 2360
  147. 1560 PRINT"JULY 21,1861    GEN. BEAUREGARD COMMANDING THE SOUTH MET THE" 
  148. 1570 PRINT"UNION FORCES WITH GEN MCDOWELL IN A PREMATURE BATTLE AT BULL" 
  149. 1580 PRINT"RUN.  GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK."
  150. 1590 GOTO 2360 
  151. 1600 IF A<>2 THEN 1660 
  152. 1610 PRINT "SHILOH" 
  153. 1620 IF A1=1 THEN 2360
  154. 1630 PRINT"APRIL 6-7,1862    THE CONFEDERATE SURPRISE ATTACK AT SHILOH"
  155. 1640 PRINT"FAILED DUE TO POOR ORGANIZATION." 
  156. 1650 GOTO 2360 
  157. 1660 IF A<>3 THEN 1730 
  158. 1670 PRINT "SEVEN DAYS" 
  159. 1680 IF A1=1 THEN 2360
  160. 1690 PRINT"JUNE 25-JULY 1,1862    GENERAL LEE (CSA) UPHELD THE OFFENSIVE"
  161. 1700 PRINT"THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN AND THE UNION"
  162. 1710 PRINT"FORCES AWAY FROM RICHMOND." 
  163. 1720 GOTO 2360 
  164. 1730 IF A<>4 THEN 1790
  165. 1740 PRINT "THE SECOND BULL RUN"
  166. 1750 IF A1=1 THEN 2360
  167. 1760 PRINT"AUG 29-30,1862    THE COMBINED CONFEDERATE FORCES UNDER LEE AND"
  168. 1770 PRINT"JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 
  169. 1780 GOTO 2360 
  170. 1790 IF A<>5 THEN 1850
  171. 1800 PRINT "ANTIETAM" 
  172. 1810 IF A1=1 THEN 2360
  173. 1820 PRINT"SEPT 17,1862    THE SOUTH FAILED TO INCORPORATE MARYLAND INTO"
  174. 1830 PRINT"THE CONFEDERACY." 
  175. 1840 GOTO 2360 
  176. 1850 IF A<>6 THEN 1910
  177. 1860 PRINT "FREDERICKSBURG" 
  178. 1870 IF A1=1 THEN 2360
  179. 1880 PRINT"DEC 13,1862 THE CONFEDERACY UNDER LEE SUCESSFULLY REPULSED" 
  180. 1890 PRINT"AN ATTACK BY THE UNION UNDER GEN. BURNSIDE."
  181. 1900 GOTO 2360
  182. 1910 IF A <>7 THEN 1960 
  183. 1920 PRINT "MURFREESBORO" 
  184. 1930 IF A1=1 THEN 2360
  185. 1940 PRINT"DEC 31,1862    THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE" 
  186. 1950 GOTO 2360
  187. 1960 IF A<>8 THEN 2020
  188. 1970 PRINT "CHANCELLORSVILLE" 
  189. 1980 IF A1=1 THEN 2360
  190. 1990 PRINT"MAY 1-6,1863    THE SOUTH HAD A COSTLY VICTORY AND LOST ONE"
  191. 2000 PRINT"OF THEIR OUTSTANDING GENERALS, 'STONEWALL' JACKSON."
  192. 2010 GOTO 2360
  193. 2020 IF A<>9 THEN 2080
  194. 2030 PRINT "VICKSBURG"
  195. 2040 IF A1=1AT COLD HARBOR AND PETERSBURG." 
  196. 2310 GOTO 2360
  197. 2320 PRINT "ATLANTA"
  198. 2330 IF A1=1 THEN 2360
  199. 2340 PRINT"AUGUST, 1864   SHERMAN AND THREE VETERAN ARMIES CONVERGED ON" 
  200. 2350 PRINT"ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 
  201. 2360 PRINT
  202. 2370 RETURN 
  203. 2380 PRINT "THE CONFEDERACY HAS SURRENDERED"
  204. 2390 GOTO 2410
  205. 2400 PRINT "THE UNION HAS SURRENDERED"
  206. 2410 PRINT
  207. 2420 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 
  208. 2430 IF Y=5 THEN 2470 
  209. 2440 IF W<=L THEN 2470
  210. 2450 PRINT "THE CONFEDE SOUTH HAD SIEGED GEN. ROSENCRANS'" 
  211. 2180 PRINT"ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE." 
  212. 2190 GOTO 2360
  213. 2200 IF A<>12 THEN 2260 
  214. 2210 PRINT "CHATTANOOGA"
  215. 2220 IF A1=1 THEN 2360
  216. 2230 PRINT"SEPT 15,1863    CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 
  217. 2240 PRINT"TO A COSTLY SOUTHERN VICTORY."
  218. 2250 GOTO 2360
  219. 2260 IF A<>13 THEN 2320 
  220. 2270 PRINT "SPOTSYLVANIA" 
  221. 2280 IF A1=1 THEN 2360
  222. 2290 PRINT"MAY 5,1864    GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO FAIL"
  223. 2300 PRINT"HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 
  224. 2310 GOTO 2360
  225. 2320 PRINT "ATLANTA"
  226. 2330 IF A1=1 THEN 2360
  227. 2340 PRINT"AUGUST, 1864   SHERMAN AND THREE VETERAN ARMIES CONVERGED ON" 
  228. 2350 PRINT"ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 
  229. 2360 PRINT
  230. 2370 RETURN 
  231. 2380 PRINT "THE CONFEDERACY HAS SURRENDERED"
  232. 2390 GOTO 2410
  233. 2400 PRINT "THE UNION HAS SURRENDERED"
  234. 2410 PRINT
  235. 2420 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 
  236. 2430 IF Y=5 THEN 2470 
  237. 2440 IF W<=L THEN 2470
  238. 2450 PRINT "THE CONFEDERACY HAS WON THE WAR"
  239. 2460 STOP 
  240. 2470 PRINT "THE UNION HAS WON THE WAR"
  241. 2480 END
  242.