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