% (14), I1 8:I,"": I6 100e 5200 : READ X,Y LOCATIONS FROM DATA 5300 : READ ADJACENCY MATRIX 5500 : READ CASTLE LOCATIONS 4000 : TITLE SCREEN AND STORY 5000 : PRINT MAP TO SCREEN& 6000 : PRE-GAME SET UPL( 2900 : CHOOSEING COUNTRIES- CH1 7000: 1700 : CHOOSEING COUNTRIES2 2500 : DISPERSING ORIGINAL ARMIES< JJ1 MX? PL(JJ)0 97A 4800F 2000 : START TURN ARMIESP 1000 : TURN MENU=R 2800 : CHECK FOR WINhS WI 1 14000 : WINNER SEQUENCEqUNP0a JJ: 60c DIMENSIONS FOR VARIABLESd XC(40),YC(40) : LOCATION ON SCREEN FOR ARMIESi AM(40,8) : ADJACENCY MATRIXHn CS$(40),PL(6) : NUMBER OF MEN ON THE COUNTRY/ NUMBER OF COUNTRIESps PC(6) : COLOR OF PLAYERx OC(40) : THE OWNER OF THE COUNTRY} PL$(6) : PLAYERS NAMES AD(3),DD(2) : DIE ROLLS RD(40) : ARRAY FOR RANDOM DISTRIBUTIONJ CX(40),CY(40) : LOCATION OF CASTLE~ CA(40) : EXISTANCE OF CASTLE ALREADY PC(0)10   MAIN TURN MENU  PL(JJ)0 : 8000 F10: 5,15  9000: F10 1006!! 8000:5,PC(JJ): 1,56,1,PL$(JJ): 5,15:! 1,56,2," "e! 1,52,3,"1-URRENDER (QUIT THE GAME)"! 1,52,4,"2-TRATEGIC MOVES(END TURN)"! AA$: (AA$)0 (AA$)1 (AA$)3 10000:1030!  (AA$) 1500,9500! NP1 : 1000" SURRENDER" 80003" 5,PC(JJ): 1,52,2,PL$(JJ)W" 5,15: 1,52,3," ?"y"A$: A$"Y" A$"" 1525"F10:" JK1 40": OC(JK)JJ :OC(JK)0: 5,7: 1,XC(JK),YC(JK),CS$(JK):#: JK:PL(0)PL(0)PL(JJ):PL(JJ)0:F11#2# COMPUTER DISTRUBUTION OF TERRITORIESM# J1 40:RD(J)J: J\# J1 40q#: A((1)40)1#: TTRD(J):RD(J)RD(A):RD(A)TT# J:I1# J 1 40#:$: OC(RD(J))I:CS$(RD(J))"01": 5,PC(I): 1,XC(RD(J)),YC(RD(J)),CS$(RD(J)):PL(I)PL(I)1.$: II1: IMX I16$ J<$R$ DISPERSE ARMIES[$TA0m$ 3000: 2700$TATA((PL(JJ)2)((1)101))$ 5,15: 1,52,18," "$FL0: 2400: FL0 TATA8: 1,52,19,"ESOURCE ISLANDS +8":%FL0: 2420: FL0 TATA6: 1,52,20,"CONOMIC NORTH +6"|%FL0: 2440: FL0 TATA7: 1,52,22,"NDUSTRIAL SOUTH +7"%FL0: 2460: FL0 TATA6: 1,52,21,"IDDLE FARM LAND +6"% 1,52,23," ": ZZ$: 8000% TAAT TAAT& 2030 &&& PLACE ARMY ROUTINE5& TA0 @& 2190b&: 5,PC(JJ): 1,52,3,PL$(JJ)|&: 5,15: 1,52,2,PA$&: 5,PC(JJ): 1,52,3,PL$(JJ)&: &: 5,15: 1,52,4,"OUNTRY"': 1,52,5:LN2:X52:Y5: 8100: (AA$)0 10000: 1,52,5," ": 20502': CC((AA$))c': FL0: ((CC40) (CC1))  : 10000': 1,52,5," ":FL1:' : FL1 2050' : FL0: (OC(CC)JJ) ((CS$(CC))12)  : 10000( : 1,52,5," ":FL1:(: FL1 2050/( TA1 DD1: 2100Y(: 1,52,6,"OW MANY (0 TO CANCEL)"(: 1,52,7:LN2:X52:Y7: 8100: (AA$)0 FF 5 7: 1,52,FF," ": FF: 2045(DD((AA$)).) : FL0: DD0  : FF5 7: 1,52,FF," ": FF:FL1:D)#: FL1 2045)%: FL0: DDTA DD1 ((CS$(CC))DD12)  : 10000)*: 1,52,7," ":FL1:)/: FL1 2075*4: CS$(CC)((((CS$(CC))DD)),2): (CS$(CC))10 CS$(CC)"0"(CS$(CC),1)>*6: 5,PC(JJ): 1,XC(CC),YC(CC),CS$(CC)*9: TATADD : 2190: FF 5 7: 1,52,FF," ": FF*> TA0*C+ 1,52,2," ": TA1 PA$"LACE"(TA)" ARMIES": PA$"LACE"(TA)" ARMY"+ 5,15: 1,52,2,PA$$+I+_ CHECK FOR OWNERSHIP OF ISLANDSV+` K112o+e : OC(K)JJ FL1w+j K}+o +t K1320+y : OC(K)JJ FL1+~ K+ + K3140+ : OC(K)JJ FL1+ K+ + K2130, : OC(K)JJ FL1, K, 7, BEGININNG ARMY PLACES, QQ((((1)20)40)MX)d, II 1 MXv, : JJ1 MX, : TAQQ, : 8000: 2030, : JJ, II, , CHECK FOR MAX ARMIES, AT0, J 1 40- : OC(J)JJ ATAT(12(CS$(J)))- J- 5- CHECK FOR WINNER>- WI0O- J 1 MXj- : PL(J) 0 WIWI1r- Jx- -S CHOICE BETWEEN CHOOSING COUNTRIES OR COMMPUTER-T 8000:-Y 5,15: 1,52,2,"OULD YOU LIKE TO" .^ 1,52,3,"1- HOOSE YOUR COUNTRIES"3.c 1,52,4,"2- ISTRIBUTED BY COMPUTER"e.h AA$: (AA$)1 (AA$)2 10000: 2900.m (AA$)1 CH1: CH0.r . EVENTS. EV ((1)100)1. EV40 . EV40 EV55 3100: EXTRA ARMIES/ EV55 EV68 3200: COUP ATTEMPT?/ EV68 EV78 3300: TAKE OVERf/ EV78 EV84 3400: PLAGUE/ EV84 EV93 3500: FORGEIN SUPPORT/ EV93 EV100 3600: CASTLE/ / EXTRA ARMIES/ E1 ((1)3)10! E1 3120,3130,3140E0& E1((1)6)2:TATAE1:A$"+"(E1)" ARMIES": 1,52,8,A$K0+ t00 1,52,10,"ETERANS RALLY SUPPORT":0: 1,52,10,"ILITARY SCHOOL": 1,52,11," GRADUATES ENTER ARMY":0D 1,52,10,"ARD CORE SUPPORTERS": 1,52,11," TAKE UP ARMS":1 COUP ATTEMPT&1 E1((1)PL(JJ))141 PS0:F20:1 H1 : PSPS1d1 : OC(PS)JJ F2F21r1 F2E11 (CS$(PS))1 E2((1)9)3: 3330:1 E2((1)(CS$(E1)))1: E20 E212 CS$(PS)(((CS$(PS))E2),2): (CS$(PS))10 CS$(PS)"0"(CS$(PS),1)D2 5,PC(OC(PS)): 1,XC(PS),YC(PS),CS$(PS)2 5,15:A$"-"(E2)" ARMIES": E21 A$"-"(E2)" ARMY"2 1,52,8,A$2 A$" COUP ATTEMPT IN"(PS): 1,52,10,A$2 1,54,11,"WAS THWARTED"2 2 REBELLION TAKE OVER&3 E1((1)PL(JJ))1:E2((1)9)343 PS0:F20:3 H3 : PSPS1d3 : OC(PS)JJ F2F21r3 F2E13 PL(JJ)PL(JJ)13 OC(PS)03 CS$(PS)((E2),2): E210 CS$(PS)"0"(CS$(PS),1)3 5,PC(0): 1,XC(PS),YC(PS),CS$(PS) 4 5,15: 1,52,10,"EBELS OVER THROUGH"A4 5,PC(JJ): 1,54,11,PL$(JJ)~4 A$"'S REGIME IN"(PS): 5,15: 1,(54(PL$(JJ))),11,A$4 4G THE PLAGUE4H E1((1)12)1: E2((1)28)124K 5,15: 1,52,8,"LAGUE RIPS THROUGH"5L 1,54,9,"COUNTRYSIDE"5M KK E1 E2(5O E4 ((1)10)1C5R : (0) .3333 3435i5W : (CS$(KK))E4 3445 : 5\ : CS$(KK)(((CS$(KK))E4),2): (CS$(KK))10 CS$(KK)"0"(CS$(KK),1)5a : 5,PC(OC(KK)): 1,XC(KK),YC(KK),CS$(KK)5f : 5k KK6p L6t THE COUNTRY WILL BE TURNED NUETRAL IF IT CANNOT SURVIVE THE PLAGUEq6u PL(OC(KK))PL(OC(KK))1:OC(KK)06w E3 ((1)4)26z CS$(KK)"0"((E3),1): 5,PC(0): 1,XC(KK),YC(KK),CS$(KK)6 7 E1((1)PL(JJ))1:E2((1)9)3:E3((1)MX)1!7 E3((1)MX)1: E3JJ /7 PS0:F2057 C7 : PSPS1_7 : OC(PS)JJ F2F21m7 F2E17 PL(JJ)PL(JJ)1:PL(E3)PL(E3)17 OC(PS)E37 CS$(PS)((E2),2): E210 CS$(PS)"0"(CS$(PS),1)8 5,PC(E3): 1,XC(PS),YC(PS),CS$(PS)L8 5,15: 1,52,10,"UPPORTERS OF ": 5,PC(E3): 1,66,10,PL$(E3): 5,15z8 A$"OVER THROUGH GOVERNMENT": 1,54,11,A$8 A$"IN"(PS): 1,54,12,A$8 8 CASTLE8 5,15: 1,52,8,"NGINEERS ARE READY": 1,54,9,"TO BUILD A CASTLE"c9: 1,52,10:LN2:X52:Y10: 8100: (AA$)40 (AA$)1 (AA$)0 1,52,10," ": 10000: 36059: OC((AA$))JJ CA((AA$))1 1,52,10," ": 10000: 36059WW((AA$))9$CA(WW)19) 5,15: 1,CX(WW),CY(WW),"*",19.: TITLE SCREEN:: 5$: 5,16H: 1,31,6,"ISKEY ARFARE": 5,8[: 1,37,15,"BY"y: 1,32,16,"AYNE ULING": 1,33,18," ": ZZ$: ZZ$"S" ZZ$"" : 0,18,79,24: 0,0,6: 5,160; " ISKEY ARFARE IS A GAME SIMILAR TO THE BOARD GAME . MAJOR DIFFERENCE,"9; 2; "NO BOARD! ACH PLAYER (2-6) GETS ARMIES AT THE BEGINNING OF THEIR TURN. ONUS "; 2; "ARMIES ARE GIVEN FOR CONTROLING A CERTAIN REGIONS, YOU HAVE TO FIGURE THEM OUT "; 3S< "ON YOUR OWN. T THE BEGINNING OF THE GAME, EVERY PLAYER PLACES A SET NUMBER OF"\< 2< "ARMIES FOR EVERY PLAYER. IE. THERE ARE THREE PLAYERS, THE RANDOM NUMBER IS 15, "< 2= "SO EACH PLAYER WILL PLACE 15 ARMIES THREE TIMES. HIS IS SO THE LAST PLAYER "= 2G= "WILL NOT HAVE A GREAT ADVANTAGE."P= 3= " VENTS ALSO ADD A LITTLE EXCITEMENT, THE EVENTS ARE SIMPLE TO UNDERSTAND BUT,"=  2 > "SOME MAY BE CONFUSING. OR EXAMPLE, YOU HAVE A CHANCE TO BUILD A CASTLE ANY - "> 2g> "WHERE. OU ARE LIMITED TO YOUR OWN COUNTRIES, YOU MAY WISH TO PLACE IT IN A"p> 3>" "TERRITORY THAT YOU MAY TAKE OVER AND NEED THE PROTECTION. HE CASTLE LIMITS ">' 2'?, "THE ATTACKER TO TWO OFFENSIVE DICE. HE CASTLE ALSO ADDS ONE TO THE DEFENDERS "0?1 2C?6 "HIGH ROLL."S?; 3: 4500?@ " F YOU FEEL LIKE DESERVE ANYTHING FOR MY TROUBLE, YOU CAN SEND IT TO: "?E 2?J " AYNE ULING"?L 2@O " 1121 LADIOLA RES."@Q 38@T " IRGINIA EACH "A@V 2i@^ " 23456"r@c 3@h "LEASE INCLUDE RETURN ADDRESS!"@m 2: " ": Z$'Ar "NY QUESTIONS OR ERRORS PLEASE CONTACT ME THROUGH E-MAIL < INK> OR CALL"0Aw 2_A| " (804) 427-3577"hA 2A "F YOU CALL ME LONG DISTANCE, DON'T REVERSE THE CHARGES, 'M A POOR COLLEGE "A 2!B "STUDENT WHO DOESN'T HAVE THE MONEY TO SPEND. WILL CHECK MY MAIL AS OFTEN AS "*B 2B "POSSIBLE, AT LEAST ONCE A WEEK. ON'T LEAVE QUESTIONS IN THE REMARK SECTION "B 2B "BECAUSE DON'T KNOW HOW OFTEN WILL CHECK IT."B 2$C " RESS THE '' KEY TO SKIP THIS MESSAGE WHEN IT SAYS ' ' BEFORE THIS"-C 2>C "MESSAGE."GC 2qC " "|C ZZ$C 0,0,79,24CC " WELVE ARMIES IS THE MOST ALLOWED ON ANY TERRITORY. TTACKS AND STRATEGIC "C 2LD "MOVES CAN ONLY BE MADE ON ADJACENT COUNTRIES. OU CAN MOVE THOUGH; FROM 1 TO 7"UD 2D "TO 10 TO 11. HEN A PERSON SURRENDERS, THEY TURN THE TERRITORIES THEY OWN "D 3E "NUETRAL. EBEL ARMIES TAKE ADVANTAGE OF ANYTHING, ESPECIALLY PLAGUE INFECTED "E 2&E "TROOPS./E 2E "- ON'T LEAVE INTERIOR COUNTRIES LIGHT WITH ARMIES. HE REBELS WILL TAKE"E 2E " OVER ANYWHERE"E 4:E INFORM NEXT PLAYER OF TURNE 8000F 5,PC(JJ): 1,52,2,PL$(JJ)*F 5,15: 1,(53(PL$(JJ))),2,","IF 1,52,3,"T IS YOUR TURN"OFYF MAPuF 5: 5,15: 5: (142)F "  14  15 16  18 "F "  17 "1G "  19ͯ "pG " 20 ͒ "G " 13  21 ͯη "G "  Β 22 23 "+H "  24 25 "jH "  12  ̯̯ηϷ "H "  ---- 28 29 30 "H "  26зͯ "%I "  32 33 34 "bI "  27 ͯ "I "  11  ͯ "I "  Β  31 Β "J "   ̯ 35 36η "^J "  10 9 -- 3738 η39 40 "J "   "J "  "K " ̯ "XK "  7 8   6 "K "   ͯ  "K "  1 ---  --  "L  "  2  3 4  5 "VL ""hL "";(14):LO INPUT FROM DATA FOR X,Y LOCATION FOR COUNTRIESLP J 1 40LU: XC(J),YC(J)LZ JL_L READ IN ADJACENCY MATRIXLC 1:P0M M: T"M: T9999 5340,MPP1":XX2: 5,15: 1,X,Y," ",1^WF10: I$}W I$(13) 1,X,Y," ":W (I$)20 PS1 1,X,Y," ":XX1: 1,X,Y," ",1:PSPS1:AA$(AA$,PS1): 8105WHH(I$)X HH32 (HH127 HH161) 8105X PS1LN 8105XXAA$AA$(I$,1): 1,X,Y,I$:PSPS1:XX1: 1,X,Y," ",1cX 8105pX'# ATTACK|X(# 8000:X-# 5,PC(JJ): 1,52,1,PL$(JJ)X/# 5,15: 1,52,2,"NTER 0 TO END"X0# 5,15: 1,52,3,"NTER 99 TO CANCEL"Y2# 5,15: 1,52,4,"TTACKING COUNTRY"IY7# 1,52,5:LN2:X52:Y5: 8100: (AA$)48 F11:`Y8# (AA$)99 9000Y9# (AA$)0 (AA$)40 (AA$)0 10000: 9000Y:# OC(((AA$)))JJ (CS$((AA$)))1 10000: 9000Y<#AT((AA$)) ZA# 5,15: 1,52,6,"EFENDING COUNTRY"AZF# 1,52,7:LN2:X52:Y7: 8100: (AA$)99 9000xZG# (AA$)0 (AA$)40 (AA$)0 10000: 9000ZH# OC(((AA$)))JJ 10000: 9000ZK#DE((AA$))ZP# 5400: C0 10000: 9000ZT# BATTLE SEQUENCE [U#EE(CS$(AT))1: EE3 EE3([W# CA(DE)1 EE2 EE2H[Z#FF(CS$(DE)): FF2 FF2d[]# FFEE GGEE: GGFF[^# P 8 12: 1,52,P," ": P[_# KL1EE:AD(KL)((1)6)1: KL[d# KL1FF:DD(KL)((1)6)1: KL[f# CA(DE)1 DD(1)DD(1)16\i# DD(2)DD(1) :TTDD(1):DD(1)DD(2):DD(2)TT:B\n# 11000h\o# 5,PC(OC(AT)): 1,53,10,(AD(1))\p# EE1 1,56,10,(AD(2))\q# EE2 1,59,10,(AD(3))\r# 5,PC(OC(DE)): 1,53,11,(DD(1))\s# FF1 1,56,11,(DD(2))\t# I1 GG]u#: AD(I)DD(I) r]v#: CS$(DE)(((CS$(DE))1),2): (CS$(DE))10 CS$(DE)"0"(CS$(DE),1):: ]x#: CS$(AT)(((CS$(AT))1),2): (CS$(AT))10 CS$(AT)"0"(CS$(AT),1):]}# I: (CS$(DE))0 9100^# 5,PC(OC(DE)): 1,XC(DE),YC(DE),CS$(DE)B^# 5,PC(OC(AT)): 1,XC(AT),YC(AT),CS$(AT)[^# (CS$(AT)) 1 ^# 5,7: 1,52,8,"ONTINUE (Y/N)": 1,52,9^# AA$:(AA$"Y" AA$"") (CS$(AT))1 9045: 8000:^#PL(OC(DE))PL(OC(DE))1:PL(OC(AT))PL(OC(AT))1_# 8000: 5,PC(OC(AT))z_#: CS$(DE)((EE),2): (CS$(DE))10 CS$(DE)"0"(CS$(DE),1): 1,XC(DE),YC(DE),CS$(DE)_#: CS$(AT)(((CS$(AT))EE),2): (CS$(AT))10 CS$(AT)"0"(CS$(AT),1): 1,XC(AT),YC(AT),CS$(AT)_#OC(DE)OC(AT)@`# (CS$(AT))1 : 5,15: 1,52,2,"OVE HOW MANY MORE?":: t`# 1,52,3:LN2:X52:Y3: 8100: (AA$)0 9130`# (AA$)((CS$(AT))1) (AA$)1 10000: 8000: 9110`# 5,PC(OC(AT))a#CS$(DE)(((CS$(DE))(AA$)),2): (CS$(DE))10 CS$(DE)"0"(CS$(DE),1)4a# 1,XC(DE),YC(DE),CS$(DE)a#CS$(AT)(((CS$(AT))(AA$)),2): (CS$(AT))10 CS$(AT)"0"(CS$(AT),1)a# 1,XC(AT),YC(AT),CS$(AT)a#a%NP1a% 8000:a!% 5,PC(JJ): 1,52,2,PL$(JJ)b#% 5,15: 1,52,3,"NTER 0 END TURN",b&% 5,15: 1,52,4,"OVE FROM COUNTRY"^b+% 1,52,5:LN2:X52:Y5: 8100: (AA$)48 b,% (AA$)0 (AA$)40 (AA$)0 OC(((AA$)))JJ (CS$((AA$)))1 10000: 9501b0%AT((AA$))b5% 5,15: 1,52,6,"TO COUNTRY",c:% 1,52,7:LN2:X52:Y7: 8100: (AA$)48 8000: 9510wc;% (AA$)0 (AA$)40 (AA$)0 OC(((AA$)))JJ 10000: 9501c?%DE((AA$))cD% 5400: C0 10000: 9501cN% (CS$(AT))1 : 5,15: 1,52,8,"OVE HOW MANY ?":: 10000: 9501,dS% 1,52,9:LN2:X52:Y9: 8100: (AA$)0 9501dX% (AA$)((CS$(AT))1) (AA$)1 ((CS$(DE))(AA$)) 12 10000: 1,52,9," ": 9550d]% 5,PC(OC(AT))db%CS$(DE)(((CS$(DE))(AA$)),2): (CS$(DE))10 CS$(DE)"0"(CS$(DE),1)eg% 1,XC(DE),YC(DE),CS$(DE)iel%CS$(AT)(((CS$(AT))(AA$)),2): (CS$(AT))10 CS$(AT)"0"(CS$(AT),1)eq% 1,XC(AT),YC(AT),CS$(AT)ev% 9501e' 1,1000,10:e* SORTe* J1 2e*: I2 3f+: AD(I)AD(J) :TTAD(I):AD(I)AD(J):AD(J)TT:f+ I: Jf +'f6 WINNER2f6 8000Rf6 J1 MX: PL(J)0 WIJZf6 Jzf6 5,PC(WI): 1,52,2,PL$(WI)f6 1,52,3,"OU ARE THE WINNER"f6 1,52,5,(142): 1,52,5:fa LOCATION ON THE SCREEN FOR THE NUMBER OF ARMIES^ga 6,22,10,20,25,21,30,21,39,21,41,20,6,20,15,20,8,17,4,17,4,13,3,8,4,2,12,1,20,1,27,2,35,3,44,2,7,4,14,4ga 25,6,33,6,42,6,15,8,19,8,14,10,18,10,28,8,38,8,45,8,19,14,24,12,33,11,40,11,30,12,36,13,19,16,24,16,33,16,44,15ga BORDER ARRAYha 2,7,-1,1,7,8,9,-1,4,8,-1,3,5,38,39,-1,4,6,-1[ha 5,40,-1,1,2,9,10,-1,2,3,37,-1,2,7,10,11,26,37,-1,7,9,11,-1ha 9,10,12,-1,11,13,19,24,-1,12,14,19,-1,13,15,19,20,-1,14,16,20,-1ha 15,17,21,-1,16,18,22,23,-1,17,23,-1,12,13,14,20,-1,14,15,19,24,25,-1Jia 16,22,25,28,-1,17,21,23,28,29,-1,17,18,22,29,30,-1,12,20,25,26,27,-1,20,21,24,27,28,-1ia 9,24,27,31,-1,24,25,26,28,31,32,-1,21,22,25,27,29,32,33,-1,22,23,28,30,33,34,-1,23,29,34,-1ja 26,27,32,37,-1,27,28,31,33,35,38,-1,28,29,32,34,35,36,-1,29,30,33,36,40,-1,32,33,36,38,39,-1ija 33,34,35,39,40,-1,8,9,31,38,-1,4,32,35,37,39,-1,4,35,36,38,40,-1,6,34,36,39,-1,9999ja CASTLE LOCATIONja 5,22,10,21,23,21,27,19,44,21,42,19,6,19,15,21,10,16,4,16,2,13,5,9,2,3,15,1,20,2,24,2,35,2,41,2,7,5,11,5cka 26,5,31,6,42,5,12,7,19,7,11,10,21,10,31,8,36,8,44,9,19,13,25,13,33,10,41,12,30,13,39,13,17,16,27,16,31,16,42,16