Listing of file='CIVILWAR' on disk='vmedia/more_games.wvd.zip'
# Sector 433, program filename = 'CIVILWAR' 0010 REM *CIVILWAR* : LOAD DC T#6,"GAMES" 0020 REM THE CIVIL WAR GAME <ADAPTED TO THE 2200 BY JOEL G. EHRLICH * FROM A P DP-8 PROGRAM BY RONALD SERVI, UNDERGRADUATE AT STAMFORD UNIVERSITY> : DIM K$1 : R=28 : F=15 : A2=3.7E+9 : A4=1.14E+9 0030 B2,C1,C2,A3,B1,A1=3E5 : C3=1E5 : C4=2E5 : C5=45E4 : C6=27E3 : D1=7E8 0040 D2=5E8 0050 C4=INT(C4+2E5-A3/2) : IF A1>0THEN 60 : A1=R 0060 C9=C9+45E4 : D1=D1-(((A1+A5)*F)+((A1+A5)*40)+C7*50) : IF C4>0THEN 70 : C4=0 0070 IF D1<2E5THEN 460 : %REPORT CURRENT STATUS 0080 PRINT HEX(03);"CIVIL WAR GAME" : PRINT "AN ECONOMIC SIMULATION OF AN HISTORICAL SITUATION." : INPUT "DO YOU WISH TO REVIEW THE INSTRUCTIONS",K$ : IF K$="N"THEN 90 : GOTO 510 0090 PRINT HEX(03);" REPORT TO COMMANDER IN CHIEF" : PRINT " UNION ARMY" 0100 PRINT "ENEMY STATISTICS:" : PRINT " CONFEDERATE MEN ELIGIBLE FOR THE DRAFT";A4 : PRINT " CONFEDERATE TROOP LEVEL AT";A3 : PRINT " CONFEDERATE MEN DRAFTED ";A6 0110 PRINT " CONFEDERATE MEN KILLED IN PAST THREE MONTHS";G2 0120 PRINT " CONFEDERATE MEN KILLED BY DISEASE";G5 : PRINT " CONFEDERATE MONEY REMAINING";D2;"DOLLARS" : PRINT " CONFEDERATE WEAPON SUPPLY";C4;"RIFLES" 0130 PRINT "PRESS 'EXECUTE' TO CONTINUE." 0140 KEYIN K$,150,140 : GOTO 140 0150 PRINT HEX(03) 0160 PRINT "UNION ARMY STATISTICS:" : PRINT " TROOP DATA:" : PRINT " UNION TROOP LEVEL AT";A1 : PRINT " UNION MEN DRAFTED IN PAST THREE MONTHS";A5 0170 PRINT " UNION MEN ELIGIBLE FOR THE DRAFT";A2 0180 PRINT " UNION MEN KILLED BY DISEASE";G3 : PRINT " UNION MEN KILLED IN PAST THREE MONTHS";G1 : PRINT " UNION MEN WHO DODGED OR DESERTED";H1+H2 0190 PRINT " UNION WEAPON SUPPLY";C9;"RIFLES" 0200 PRINT "PRESS 'EXECUTE' TO CONTINUE." 0210 KEYIN K$,220,210 : GOTO 210 0220 PRINT HEX(03) : PRINT " MONEY:" : PRINT " SPENT ON FOOD";A1*40;"DOLLARS" : PRINT " SPENT ON WEAPONS";C7*50;"DOLLARS" : PRINT " SPENT FOR PAY";A1*F;"DOLLARS" 0230 PRINT " TOTAL MONEY SPENT";A1*(90+F);"DOLLARS" : PRINT " UNION TREASURY";D1;"DOLLARS" : INPUT "DO YOU WISH TO CONTINUE",K$ 0240 IF K$="N"THEN 500 : %SELECT STRATEGY 0250 INPUT "WHICH STRATEGY WOULD YOU LIKE TO EMPLOY FOR THE NEXT THREE MO NTHS",E : %DRAFT 0260 INPUT "HOW MANY MEN WOULD YOU LIKE TO ENLIST TO ADD TO YOUR PRESENT TR OOP LEVEL",A5 : IF A5<=A2THEN 290 0270 PRINT HEX(0307);"THE MAXIMUM NUMBER OF TROOPS YOU CAN DRAFT AT ONE TIME I S";A2 : FOR X=1TO 350 : NEXT X 0280 GOTO 260 : %PAY 0290 INPUT "HOW MUCH DO YOU WANT TO PAY EACH MAN IN YOUR ARMY FOR THE NEXT TH REE MONTHS",F : %WEAPONS 0300 INPUT "HOW MANY WEAPONS DO YOU WANT FOR YOUR ARMY FOR THE NEXT THREE MO NTHS",C7 : IF C7<=C9THEN 320 : PRINT HEX(0307);"YOU ONLY HAVE";C9;"WEAPONS!" : FOR X=1TO 350 : NEXT X 0310 GOTO 300 : %SIMULATE WAR 0320 IF D1<2E5THEN 460 : IF E=3THEN 350 : IF E=4THEN 360 : GOSUB 410 : G1=9E3+R*100 : GOSUB 410 : G2=11E3+R*100 0330 GOTO 370 0340 GOSUB 410 0350 G1=6E3+R*50 : GOSUB 410 : G2=6E3+R*50 : GOTO 370 0360 GOSUB 410 : G1=3E3+R*50 : GOSUB 410 : G2=2E3+R*50 0370 IF C7>=A1THEN 380 : G4=INT(1/3*A1) 0380 D2=D2-(115*(A3+A6)) : IF D2<=2E5THEN 480 : C9=INT(C9-(C7/2)) : H1=INT(1/5*A5) : G3=INT(36/11*G1) : G5=INT(258/94*G2) : IF F>=45THEN 400 0390 H2=INT(1/45*(45-F)*A1) 0400 A1=INT(A1+A5-H1-H2-G1-G3-G4) : GOTO 420 0410 R1=ABS(R*A1*3.1415*RND(1)) : R2=R1/41 : R=R2-INT(R2) : R=INT(41*R) : RETURN 0420 GOSUB 410 : A6=R*5E3 : H3=INT(1/5*A6) : IF C4>=A6THEN 430 : A7=(A6-C4)*1/3 0430 A3=A3+A6-H3-G2-G5 : A2=A2-A5 : A4=A4-A6 : IF A1+A2<3E5THEN 470 0440 IF A4+A3<3E5THEN 490 : G2=G2+A7+G5 : G1=G1+G4+G3 0450 GOTO 90 : %ITS OVER 0460 PRINT HEX(0307);"THE NORTH HAS SURRENDERED BECAUSE OF LACK OF FUNDS" : GOTO 500 0470 PRINT HEX(0307);"THE NORTH HAS SURRENDERED BECAUSE OF THE LACK OF MEN" : GOTO 500 0480 PRINT HEX(0307);"THE SOUTH HAS SURRENDERED BECAUSE OF LACK OF FUNDS" : GOTO 500 0490 PRINT HEX(0307);"THE SOUTH HAS SURRENDERED BECAUSE OF LACK OF MAN POWER" 0500 END 0510 PRINT HEX(03);"THIS EDUCATIONAL GAME IS INTENDED TO INTRODUCE THE ECONOMI C REALITIES OF A CONFLICT BETWEEN TWO STATES (NATIONS)."; 0520 PRINT "THE GAME STARTS BY CREATING THE ACTUAL FINANCIAL, MANPOWER AND MI LITARY SITUATIONS IN THE UNION AND THE CONFEDERACY AT THE START OF TH E WAR."; 0530 PRINT "YOU ARE THE UNION AND MAKE QUARTERLY DECISIONS (EVERY THREE MO NTHS) ON YOUR TROOPS AND SPENDING."; : PRINT "THE 2200 IS THE CONFEDERACY." : PRINT "PRESS 'EXECUTE' TO CONTINUE." 0540 KEYIN K$,550,540 : GOTO 540 0550 PRINT HEX(03);"FOUR TIMES EACH YEAR (AS YOU SEE, THE WAR CAN GO ON FOREVE R), YOU DECIDE WHETHER TO CONTINUE, WHICH STRATEGY TO EMPLOY (MORE"; 0560 PRINT "ABOUT THAT LATER), HOW MANY MEN TO DRAFT, HOW MUCH TO PAY THEM AN D HOW MANY GUNS TO BUY."; 0570 PRINT "YOU CANNOT DRAFT MORE MEN THAN YOU HAVE GUNS FOR AND YOU CANNOT BU Y MORE GUNS THAN YOU HAVE MONEY TO PAY FOR."; 0580 PRINT "YOU MUST PROVIDE EACH SOLDIER WITH A GUN, FOOD AND A MINIMUM PAYOF $45. THE GUN COSTS $50 AND FOOD COSTS $40."; 0590 PRINT "IF YOU PAY TOO LITTLE OR DON'T PROVIDE ENOUGH FOOD, STARVATION, DE SERTION AND DESEASE INCREASE."; : PRINT " PRESS EXECUTE TO CONTINUE." 0600 KEYIN K$,610,600 : GOTO 600 0610 PRINT HEX(03);"THE SIDE WHOSE MONEY GOES DOWN TO $200,000 OR WHOSE MANPOW ER DROPS UNDER 300,000 LOSES."; 0620 PRINT "YOU WIN BY OUTLASTING THE CONFEDERACY AND COSTING THEM MEN AND MO NEY (JUST AS IN A REAL WAR)."; 0630 PRINT "YOU MAY SELECT BETWEEN THE FOLLOWING STRATEGIES:"; : PRINT "ATTACK: ENTER 2, HIGHEST LEVEL OF FIGHTING, GREATEST LOSS OF MENAN D GUNS."; 0640 PRINT "DEFEND: ENTER 3, MODERATE LEVEL OF FIGHTING, REDUCED LOSSES."; 0650 PRINT "RETREAT: ENTER 4, LOW LEVEL OF FIGHTING, SMALL LOSS ON BOTH SI DES." : PRINT "PRESS 'EXECUTE' TO START THE GAME." 0660 KEYIN K$,90,660 : GOTO 660