@4@ *-----------------------------------------*g@ ! !@ ! *** W A R G A M E S *** !@ ! BY MARK MOTLEY !A ! !3A ! CONVERTED FROM CP/M TO THE C-128 !fA ! 1/30/86 BY BOB DODSON VERSION 1.5 !A ! CONFIG FOR AN RGB COLOR MONITOR! !A *-----------------------------------------*A ""B (215)128 "FORMATTED FOR 80 COLUMNS ONLY!":B 6,13 B%:B (14): LOWER CASELB 20,5,60,20WB "";aB 6,3rB I 1 15B ""BB ""B 5,8BBB " "%C " *** *** "SC " "C " "C " RITTEN BY ARK OTLEY ON 2/16/84 "C " " D! " ONVERTED TO THE OMMODORE 128 "9D" " BY OB ODSON ON 1/31/86 "gD# " "qD$ A$D% 0,0,79,24,1D& 6,7: 5,10D' "PLEASE ENTER RANDOM NUMBER ";RDMD( "PLEASE WAIT..."D) I 1 RDM: R (RDM): ID*E+E,LNEX 0E-W 3,E.S$ " SHORE"WE/ A(10,10),C(10,10),N$(10),D$(5),L$(5)E0 NO. AMERICA, AUSTRALIA, SO. AMERICA, RUSSIA,JAPAN,AFRICAE1 KOREA,CHINA,GREENLAND,ENGLAND,TROOPS,PLANES,ARTILLERYE2 TANKS,MISSLES,NORTH,SOUTH,EAST,WEST*F3 X 1 10: N$(X):X:X15: D$(X):XFF4 X 1 4: L$(X):XyF5 X 1 10: C(X,1)((5000(X))5000)10:XF6 X 1 10F7 J 2 5F8C(X,J) (50(X))25F9 JF: XF; J 1 10F< X 6 10G=C(J,X) (4(X))1 G> XG? J"G@ X 1 53GA J 1 10EGBA(X,J)C(X,J)RGCC(X,J)0YGDJ`GEXlGF(147)rGGGH "OULD YOU LIKE INSTRUCTIONS >";Z$GI(147):GJGK (Z$,1)"N"115 HL"AR AMES IS A GAME PLAYED AGAINST THE COMPUTER FOR CONTROL OF 10UHM"COUNTRIES WITH FOUR SHORES EACH UTILIZING FIVE DIFFERENT TYPES OFcHN"FORCES:iHOHP" ROOPSHQ" LANESHR" ANKSHS" RTILLERYIT" ISSLESIUaIV"O WIN, YOU MUST EITHER DESTROY EACH OF THE OPPOSING FIVE COUNTRIESIW"OR CAPTURE THEM. HE COMPUTER WILL NOT ATTACK YOUR COUNTRIES ORIX"MOVE ITS DEFENSES. O THE CONTEST IS BASED UPON WHERE AND HOW OFTENJY"YOU MANUEUVER YOUR FORCES.JZ J[CJ\" ANY KEY TO CONTINUE... "YJ] A$:(147)::J^"ANUEVER 1 LISTS YOUR FORCES IN EACH COUNTRY ON COMMAND.J_J` "ANUEVER 2 TRANSPORTS BY SEA YOUR FORCES WHICH ARE THEN OPEN TOKa"ATTACK OR STORMY WEATHER. KbSKc"ANUEVER 3 WILL TELL YOU WHOSE TROOPS ARE IN EACH COUNTRY AND WHOoKd"CONTROLS THE COUNTRY.uKeKf"ANUEVER 4 WILL SPY OUT THE ENEMY IN A COUNTRY AT A COST OF 10Kg"PLANES. YOU MAY NOT FIND OUT EVERYTHING, OR ANYTHING AT ALL.LhFLi"ANUEVER 5 STARTS THE ATTACK. F YOU OUTNUMBER THE ENEMY BYLj"1.5 TIMES, YOU WILL CAPTURE ITS REMAINING DEFENSES.LkLl"NEMY TROOPS IN THE FIRST LISTED COUNTRY (THE LOWEST NUMBER) ONMn"THE FIRST SHORE LISTED FIGHT FIRST, FOLLOWED BY OTHER FORCES IN2Mo"ORDER, AS DO YOUR FORCES.8MpLMq"GOOD LUCK!":}Mr" ANY KEY TO CONTINUE.... ":A$:(147)Ms(147)MtY6Y61MuMv"ANUEVER: (1) OUNTRY TATUSMw" (2) RANSPORTNx" (3) LOBAL TATUS"Ny" (4) PY@Nz" (5) TTACK\N{" (6) UITN|:"ANUEVER CHOICE........> ";MN} M6 115N~ M1 115N M 128,150,187,200,232,343N::" (1) ORTH MERICA (6) FRICA$O" (2) USTRALIA (7) OREARO" (3) OUTH AMERICA (8) HINAO" (4) USSIA (9) REENLANDO" (5) APAN (10) NGLANDOO "NTER COUNTRY FOR STATUS REPORT......> ";RO R 10 128P R 1 128PP#PAP " : ";N$(R)GPyP " P ""P X 1 5PD$(X);18);A(R,X);33);P A(R,X) 0 324Q RETURN FROM PSEUDO SUBROUTINEQRQ X: :" ANY KEY TO CONTINUE ": A$: 115oQ::" Q"":Q" (1) ORTH MERICA (6) FRICAR" (2) USTRALIA (7) OREA2R" (3) OUTH MERICA (8) HINAdR" (4) USSIA (9) REENLANDR" (5) APAN (10) NGLANDRR "ROM OUNTRY ...> ";:F:" O OUNTRY ...> ";:TR F10 150R F1 150S T10 150S T1 150S.S "(1) ROOPS?S"(2) LANESSS"(3) RTILLERYcS"(4) ANKSuS"(5) ISSLES{SS "NTER DEFENSE......> ";DS D5 163S D1 163S: "UANTITY: ";Q:Q0115S A(F,D) Q 176.T"OU ONLY HAVE ";A(F,D);" ";D$(D);" IN ";N$(F): 173@T F T 180PT F6 180hT A(F,D)Q 327T RETURN FROM PSEUDO SUBROUTINETA(T,D)A(T,D)Q:A(F,D)A(F,D)QT "HAT SHORE? (1)ORTH, (2)OUTH, (3)AST OR (4)EST...> ";LU L 4 181U L1 181:UA(T,(D5))L:((X)100)25 186DU 295sU:" ANY KEY TO CONTINUE ":A$:115yUUU " U "": V "OUNTRY ** OUR TROOPS ** ENEMIES' ** OUR COUNTRY?"DV ""UV X 1 10V N$(X);13);A(X,1);24);C(X,1);40);VK20V F2 1 5: C(X,F2) 0 K2 K2 1V F2: K20 "NO": 199V "YES"W X::" ANY KEY TO CONTINUE ":A$: 115W::" :":"":" (1) ORTH AMERICA (6) FRICAW" (2) USTRALIA (7) OREAW" (3) OUTH AMERICA (8) HINAX" (4) USSIA (9) REENLANDKX" (5) APAN (10) NGLANDQXX "ROM OUNTRY ...> ";:F:" O OUNTRY ...> ";:TX T 5 211XX "HERE IS NO NEED TO SPY ON YOUR ALLIES. UST ASK FOR A STATUS";&Y " REPORT."::" ANY KEY TO CONTINUE ":A$:115=Y A(F,2) 9 213Y: "OU DON'T HAVE ENOUGH PLANES IN ";N$(F)::" ANY KEY TO CONTINUE ": A$:115YA(F,2) A(F,2) 10YYYY " : ";N$(T)Z "":8Z ((X)100) 20 223XZ (50 (X)) 26 330|Z RETURN FROM PSUEDO SUBROUTINEZ "LANES SHOT DOWN OVER ";N$(T)::" ANY KEY TO CONTINUE ": A$: 115Z "EFENSE UANTITY OCATION"-[ "=[ X 1 5\[ ((X) 100) 40 231z[ D$(X);18);C(T,X);34);[ C(T,(X5)) 0 333[ RETURN FROM PSEUDO SUBROUTINE[[ X::" ANY KEY TO CONTINUE ": A$: 115#\:" "::K 04\ X 1 10D\ J 1 5\\ A(X,J) 0 244t\J: X: K0 232\H 0: K 0\ X 1 10\ J 1 5: C(X,J) 0 K K 1\ A(X,J) 0 H H 1\ J: X: K 0 318 ] H 0 310\] "O MORE ATTACKS POSSIBLE."::" ANY KEY TO CONTINUE ": A$: 115f]C 1~] C(X,C) 0 248]C C 1: C6 236] 245] A(X,(J5)) C(X,(C5)) 246]K K 1]]]^ "ATTLE IN ";N$(X);,^ " ON THE ";L$(A(X,(J5))) S$;"!"Q^ "NEMY ";D$(C),"LLIED ";D$(J)`^O C(X,C)p^O1 A(X,J)z^E O^E1 O1^ C1 J 1 290^ J 1 C 1 285^ E;24);E1: 307: E1 0 E8 1: 267 _ E 0 E8 0: 267,_ E1 E 1.7 E8 0: 267O_  E E1 1.5 E8 1: 267Y_  262i_  E;24);E1o_ _  "****** FOR THE ";_ E8 1 336_ RETURN FROM PSEDO SUBROUTINE_ "LLIES IN ";` N$(X);" ON THE ";L$(A(X,(J5))) S$"` "OTAL CASUALTIES: "B` "NEMY ";D$(C);": ";O Ec` "LLIED ";D$(J);": ";O1E1x` E8 1 339` RETURN`A(X,C) A(X,C) C(X,C)`C(X,C) 0`A(X,(C5)) C(X,(C5))` E;D$(C);" WERE CAPTURED. " a I 1 3000: I: 236/aC(X,(J5)) A(X,(J5)): 236^a E;24);E1: 307: E 0 E8 0: 267{a E1 0 E8 1: 267a E11000 E E8 0: 267a  E E1 1000 E8 1: 267a! 285a" E;24);E1: 307: E 0 E8 0: 267b# E1 0 E8 1: 267d?e@ "!!"OeA "OU HAVE CONQUERED THE WORLD IN ";Y6;" MANEUVERS!"UeB[eCueD L$(A(R,(X5))) S$eE 149eF 147eG "OU MUST MOVE ALL ";A(F,D);" ";D$(D)eH 173eI 179eJ "LL PLANES LOST AT SEA."fK:" ANY KEY TO CONTINUE ": A$: 115 fL 2215fM L$(C(T,(X5)))?fN 231IfO 229\fP "NEMY IN ";ffQ 273pfR 271fSC(X,J) C(X,J) A(X,J)fTA(X,J) 0fU 284fV 278fW "O YOU REALLY WANT TO QUIT";A$fX A$"Y" 345: 115 gY "LAY AGAIN (Y/N)";Z$gZ Z$"Y" -g[ Z$"N" 7g\ 345