"GROUND WAR",8,14|䧆LH1fGJP3W>/f YL ""Z SC53281:BC53280:MC54272:PE(1)1065:PE(2)1145:PY(3)1825:PY(2)1745:AH0t BC,0:SC,0:MF0:IP0EP(20):YP(20):EM(20):YM(20):PC(20):CM(11):AK(16)A19:PE(1)PE(1)3:EP(A)PE(1):A A1018:PE(2)PE(2)3:EP(A)PE(2):A EP(19)1234:EP(20)1240F A19:PY(3)PY(3)3:YP(A)PY(3):Ap A1018:PY(2)PY(2)3:YP(A)PY(2):A YP(19)1677:YP(20)1683 :A16:D:HM(A)D:A A111:D:CM(A)D:A #A116:D:AK(A)D:A 2"***COMPUTER SETUP***" 7N0:A110:FP((0)6)1:A. <A1128:D:DPDH >DP0NN1:NFP70O @Ai FA120:D:EM(A)D:A KA120:EM(A)1FFA LA PN$(2)"S":N$(3)"Y":N$(4)"L":N$(5)"G":N$(6)"T":N$(7)"B" d"****OPENING SCREEN****" e"":A180:SC,0:BC,1:SC,1:BC,0:A$ fBC,5:SC,5M i" ɰ ݰ ݰq k" m" o" q" s u" ɰ# w" C y" ݫc {" }" ::: " BY:ANDREW BLEVINS : " HIT ANY KEY FOR INSTRUCTIONS A$:A$""135 A15::SC,0:BC,0:SC,1:BC,1:A) 500M "***OPENING SETUP PRINTOUT***"c 53280,5:53281,5m 1000 " **USE THE F1 KEY TO PLACE PLAYER**" CK0:DT0:440 "DEPLOY YOUR FLAG..";DTDT1:DT2220/400:CK0DTDT1:212GPC(CP)1350:214oPC(CP)1:YP(CP),134:YM(CP)1:HHCPCK0:DT0:440"DEPLOY YOUR GENERAL..";DTDT1:DT2226400:CK0DTDT1:221PC(CP)1350:221%PC(CP)1:YP(CP),135:YM(CP)58CK0:DT0:440q"DEPLOY YOUR LEIUTENANT..";DTDT1:DT2232400:CK0DTDT1:227PC(CP)1350:227PC(CP)1:YP(CP),140:YM(CP)4CK0:DT0:440%"DEPLOY YOUR TRAPS..";<DTDT1:DT3239]400:AR0:CK0DTDT1:233uPC(CP)1350:233PC(CP)1:YP(CP),148:YM(CP)6AR1:233CK0:DT0:AR0:440"DEPLOY YOUR BOMBS..";DTDT1:DT5246)400:AR0:CK0DTDT1:240APC(CP)1350:240cPC(CP)1:YP(CP),130:YM(CP)7qAR1:240CK0:DT0:AR0:440"DEPLOY YOUR SPYS..";DTDT1:DT6253400:AR0:CK0DTDT1:247 PC(CP)1350:247.PC(CP)1:YP(CP),153:YM(CP)3<AR1:247"DEPLOYING YOUR SCOUTS...... "" "A120:PC(A)0YP(A),147:YM(A)2:B1500:BAB1800:BD"STUDY YOUR SETUP NOW....... "UB12000:B"BATTLE NOW BEGINS" A11500:A:TI$"000000""800^A15_"PLAYER ALREADY CHOSEN TRY AGAIN.. " `B1100:BRa"PLAYER ALREADY CHOSEN TRY AGAIN.. "YbAecDTDT1kh"****DEPLOY PLAYERS****"AR1411"L=LEFT R=RIGHT"CP0A$:A$""415A$"L"A$"R"A$""417414YP(CP)MC,6A$"L"CK1:4230A$"R"CK1:426>A$""G415XCPCP1:429iCPCP1:430~CP1CP20:432CP20CP1YP(CP)MC,7414" ""******INSTRUCTIONS******"$BC,3:SC,37""qA110:" ":A"1.CAREFULLY ENTER EACH PLACE OF EACH"" SOLDIER BY COMPUTERS PROMPT.""2.MOVE EACH PLAYER BY ROLL NUMBER IN A"'" STRATEGIC MANNER TO ATTACK THE"T" COMPUTER OPPONENTS PLAYERS IN HOPES"" TO CAPTURE THE OPPONENTS FLAG PIECE."3.IN SETUP PROTECT YOUR FLAG WITH HIGH"" RANKED PIECES. THE POWER OF EACH" " PLAYING PIECE IS LISTED ON GAMEBOARD."::9" "PA$:A$(13)550Y 520d&30000X"***COMP FLAG MOVEMNT***"YMO0ZRL44018]A120000:AcDR40gPK(EP(BC)DR):PK102635lA111:PKCM(A)625mAn635qDR1DR40:6153rDR40DR1:615JsDR1DR40:615atDR40DR1:615jv615v{MOMO1EP(BC),102:EP(BC)MC,0EP(BC)DR,160:EP(BC)DRMC,7EP(BC)EP(BC)DRMORL800A1150:A611"****CHOOSE PLAYER TO MOVE****"V" L=LEFT R=RIGHT"_CP0sA$:A$""715YP(CP)MC,6A$"L"YP(CP),160:725A$"R"YP(CP),160:726A$(13)CP0715A$(13)715CPCP1:729CPCP1:730&CP1CP20:7316CP20CP1?739[YP(CP)MC,7:YP(CP),NMd715wYM(CP)0718YM(CP)1NM134YM(CP)2NM147YM(CP)3NM153YM(CP)4NM140YM(CP)5NM135YM(CP)6NM148 YM(CP)7NM130732- "*****GAMEPLAY*****"F!"*****MOVE YM*****"O"KP1Y#1000w%A110:RL((0)9)2:A,MO0:"YOU ROLL A <";RL">".A11500:A/" "B0"CHOOSE PIECE TO MOVE";:7001" "2"U=UP/D=DN/R=RGT/L=LFT >";RL" "3A$:A$""8194A$"U"MV40:8255A$"D"MV40:825,6A$"R"MV1:825C7A$"L"MV1:825L8819X9MOMO1l;PK(YP(CP)MV)=A111:PKCM(A)950>ACYP(CP),102:YP(CP)MC,0HYP(CP)MV,NM:YP(CP)MVMC,6IYP(CP)YP(CP)MVJMORL850M8196RT(1)1YP(PN(1))PP(1):YM(PN(1))PP(4):T(1)0:PP(1)0qST(2)1YP(PN(2))PP(2):YM(PN(2))PP(5):T(2)0:PP(2)0TT(3)1YP(PN(3))PP(3):YM(PN(3))PP(6):T(3)0:PP(3)0W4000"****CHECK COLLISION****" PK203PK202PK201PK213PK192PK221MOMO1:818? PK106PK116PK119PK111MOMO1:818i A120:YP(CP)MVYP(A)MOMO1:818p A Z120:YP(CP)MVEP(Z)2000 Z MOMO1:818 "***GAMEBOARD PRINTOUT***" " "#!A120:" ":AH!" "s!"ɒ!" ݒ!" ݒ!"ݒ"" ݦ ݒ'"" ˒H"" ˒k""ɑ""ˑ"" G R O U N D  W A R  """"30)":POWER:""30)":VALUE:"##30)"FLAG=1"&#30)"SCOUT=2"7#30)"SPY=3"J#30)"LIEUT=4"[#30)"GEN=5"m#30)"TRAP=6"#30)"BOMB=7"# :""30)"HR MN SC"TI$"::"# :AH01055# 30)":PLAYER:"# 30)":AMOUNTS:"#$30)"FLAGS=1"$$30)"GENS=1"8$30)"LIEUTS=1"K$30)"TRAPS=2"^$30)"BOMBS=4"p$30)"SPYS=5"$30)"SCOUTS=6":AH5$A120:EP(A),160:EP(A)MC,2:A$$A120:YP(A),160:YP(A)MC,6:A$.Q13:PP(Q),160:PP(Q)MC,0:Q%/V13:QQ(V),160:QQ(V)MC,0:V%%D%"****BATTLE SEQUENCE****"^%"***YOUR BATTLES***"q%EM(Z)15000%EM(Z)7YM(CP)72516%EM(Z)6YM(CP)62516%YM(CP)72511%EM(Z)72520&YM(CP)6XZ:TP(2)EP(X):PTEM(X):EP(X)0:EM(X)0:TP(4)1:2525Z&EM(Z)6YCP:TP(1)YP(Y):TPYM(Y):YP(Y)0:YM(Y)0:TP(3)1:2500r&EM(Z)YM(CP)2516&EM(Z)YM(CP)2511&EM(Z)YM(CP)2520& "YOUR MAN TRAPPED 1-3 MOVES....... "' B11500:B:8000:4000F' "YOU CAPTURE OPPONENT ";:9000u' B11500:B:YP(CP)MV,NM:YP(CP)MVMC,6' YP(CP),102:YP(CP)MC,0:EP(Z)0:EM(Z)0:YP(CP)YP(CP)MV' YM(CP)7YM(CP),102:YM(CP)MC,0:YP(CP)0:YM(CP)0' 850=( "AN EQUAL CAPTURE BOTH ELIMINATED......."( B11000:B:YP(CP)MV,102:YP(CP)MVMC,0:YP(CP)0:YM(CP)0( EP(Z),102:EP(Z)MC,0:EP(Z)0:EM(Z)0:850( "OPPONENT CAPTURES YOU ";:9000+) B11500:B:YP(CP),102:YP(CP)MC,0:YP(CP)0:YM(CP)0_) EM(Z)7EP(Z),102:EP(Z)MC,0:EM(Z)0:EP(Z)0) YM(CP)7YP(CP),102:YP(CP)MC,0:YM(CP)0:YP(CP)0) 850) "OPPONENT TRAPPED 1-3 MOVES...... "* B11500:B:8500:850)* "****BATTLE SEQUENCE COMP****"=* YM(ZP)16000R* IP1IP0:4119* " "* EM(BC)7YM(ZP)73516* EM(BC)6YM(ZP)63516* EM(BC)73511* YM(ZP)73520B+ EM(BC)6YZP:TP(1)YP(Y):TPYM(Y):YP(Y)0:YM(Y)0:TP(3)1:3525+ YM(ZP)6XBC:TP(2)EP(X):PTEM(X):EP(X)0:EM(X)0:TP(4)1:3500+ YM(ZP)EM(BC)3516+ YM(ZP)EM(BC)3511+ YM(ZP)EM(BC)3520, "OPPONENT TRAPPED 1-3 MOVES...... "7, B11500:B:8500:800w, "OPPONENT CAPTURES YOU ";:9000, B11500:B:EP(BC),102:EP(BC)MC,0:EP(BC)YP(ZP), YP(ZP)0:YM(ZP)0:EP(BC),160:EP(BC)MC,2- EM(BC)7EP(BC),102:EP(BC)MC,0:EM(BC)0:EP(BC)0!- 4275i- "AN EQUAL CAPTURE BOTH ELIMINATED......."- B11000:B:EP(BC)MV,102:EP(BC)MVMC,0:EP(BC)0:EM(BC)0- YP(ZP),102:YP(ZP)MC,0:YP(ZP)0:YM(ZP)0:4275. "YOU CAPTURE OPPONENT ";:9000Z. B11500:B:EP(BC),102:EP(BC)MC,0:EP(BC)0:EM(BC)0. YM(ZP)7YP(ZP),102:YP(ZP)MC,0:YM(ZP)0:YP(ZP)0. 4275. "YOUR TRAPPED 1-3 MOVES...... "/ B11500:B:8000:4275/"****COMP MOVES***"1/KP2:CO0:MFMF1J/F0:G0:H0:I0:MO0T/1000]/BC0{/A110:RL((0)8)3:A/"OPPONENT ROLLS A <";RL"> AND THINKS..."/MF5BCFF:MF0:4031/200010BC((0)20)1:40200BCBC1:BC20BC100EP(BC)04018:07000Y0"***FIND HIGHER PIECE***"{0EM(BC)1BCBC1:BC20BC10EP(BC)0BCBC1:40360YM(AC)EM(BC)YM(AC)EM(BC)40460ABC1:A20A10B140EM(A)EM(BC)BCA:40461AA1:A1A201B21"***COMP DIRECTION***"I1TT(YP(AC)EP(BC))e1TT13TT0DR1:41001TT13TT0DR1:41001TT40TT50DR1:41001TT40TT30DR1:41001TT40TT30DR1:41001TT40TT30DR1:41002TT40TT50DR1:410002YP(AC)EP(BC)DR40J2YP(AC)EP(BC)DR40\2TT40DR40o2TT40DR402TT1DR12TT1DR12PK(EP(BC)DR)2 A110:PKCM(A)41182A242002PK16042102DR40FF1:41353DR40GG1:4138)3DR1HH1:4141@3"DR1II1:4144U3'F1DR1:4104j3(F2DR1:41043)F3DR40:41043*G1DR1:41043+G2DR1:41043,G3DR40:41043-H1DR40:41043.H2DR40:41044/H3DR1:410440I1DR40:4104-41I2DR40:4104B42I3DR1:4104T4hPK1604210^4m42504rZP120:EP(BC)DRYP(ZP)30004wZP4|A120:EP(BC)DREP(A)41194}A4~40464MOMO1:F0:G0:H0:I04EP(BC),102:EP(BC)MC,05EP(BC)DR,160:EP(BC)DRMC,705EP(BC)EP(BC)DRA5MORL4275K540465R(1)1EP(NP(1))QQ(1):EM(NP(1))QQ(4):R(1)0:QQ(1)05R(2)1EP(NP(2))QQ(2):EM(NP(2))QQ(5):R(2)0:QQ(2)05R(3)1EP(NP(3))QQ(3):EM(NP(3))QQ(6):R(3)0:QQ(3)06800#6"*****WIN SEQUENCE*****"9653280,0:53281,0Q6""s6A12:" ":A~6200006""6A13:" ":A6" "6200007""+7A15:" ":AF7" "a7" "l7200007""7A17:" ":A7" "7" "8" "820000C8""q8A19:" ":A8" "8" "8" "8" "820000"9""S9A110:" ":Au9" "9" "9" "9" "9" ":200004:""k:A115:" ":A:" ":" ":" " ;" "3;" "[;" "g;A110;" ";" ";"YOU CAPTURE FLAG....";20000-<" "P<" "<" "<"YOU CAPTURELAG...."<20000<" "<A=RT0:A120:YM(A)0RTRT1$=A-=""_=RT0RT4N$"YOUR RATING IS A CAMP COOK..."=RT3RT6N$"YOUR RATING IS A FIELD SCOUT..."=RT5RT9N$"YOUR RATING IS A SLY SPY..."=RT8RT13N$"YOUR RATING IS A GOOD TRAPPER..."1>RT12RT16N$"YOUR RATING IS A FLAG SNATCHER..."f>RT15RT18N$"YOUR RATING IS A LIEUTENANT!!!">RT17RT21N$"YOUR RATING IS A DECORATED GENERAL!!!">P"";N$:"AND YOU SCORE A -->";RT5NG5?Q"GAME OVER":A150:A5?R"GAME OVER"G?SA$:A$""Q?U5201[?5299z?p"*****LOSE SEQUENCE*****"?q53280,0:53281,0?r""?z" ?{" ?|" @}" "@~" >@" ^@" @" @" @" @" "A" MA" pA" A" A" A" A" AA150B"*"8B" "?BAKBA140iB"*"B" "BABA130B"*"B" "BABA150 C"*"+C" "2CA>CA120_C"*"C" "CACA150C53280,1:53281,1C53280,0:53281,0C" YOUR FLAG IS CAPTURED!"DA D""DW52007DX"***FIND A CAPTURE COMP***"ADYACHHTDZEM(BC)1600aDdXC120nDfYC120DhGS(EP(XC)YP(YC))DlB116:GSAK(B)BCXC:ACYC:7045DqBDyYCD{XCD~IP1D4046DEP(BC)1597ACHH:IP1:4046E4034 E@"***TRAPS PGM YOURS***"9EEQ13:T(Q)08010@EFQjEJT(Q)1:PP(Q)TP(1):PP(Q3)TP:PN(Q)YpEOE4!"***TRAPS PGM COMP***"E9!V13:R(V)08510E:!VE>!R(V)1:QQ(V)TP(2):QQ(V3)PT:NP(V)XEC!E(#"***NAME THE CAPTURED***" F)#KP19100F*#KP29500HF#EM(Z)7N$(7);"X";N$(YM(CP));" ":uF#YM(CP)7N$(7);"X";N$(EM(Z));" ":F#YM(CP)6N$(6);"X";N$(EM(Z));" ":F#EM(Z)6N$(6);"X";N$(YM(CP));" ":G#EM(Z)YM(CP)N$(YM(CP));"X";N$(EM(Z));" ":;G#EM(Z)YM(CP)N$(EM(Z));"X";N$(YM(CP));" ":iG%YM(ZP)7N$(7);"X";N$(EM(BC));" ":G%EM(BC)7N$(7);"X";N$(YM(CP));" ":G!%EM(BC)6N$(6);"X";N$(YM(ZP));" ":G&%YM(ZP)6N$(6);"X";N$(EM(BC));" ":+H+%YM(ZP)EM(BC)N$(EM(BC));"X";N$(YM(ZP));" ":cH0%YM(ZP)EM(BC)N$(YM(ZP));"X";N$(EM(BC));" ":zH'14,15,16,20,10,18H'203,202,201,213,106,116,221,192,111,119,160H' -123,-120,-117,-82,-80,-78H'-3,-2,2,3,78,80,82,117,120,123I'0,2,7,1,2,7,3,2,2,2,3,3,5,7,2,7,6,3,3,4,6NI$'0,2,2,2,3,2,2,1,7,2,4,7,3,7,3,7,6,3,5,3,6}I.'0,2,2,2,2,2,6,1,7,2,6,7,3,3,3,5,7,3,3,7,4I8'0,2,3,7,2,3,2,2,2,2,7,6,1,7,3,7,5,3,3,4,6IB'0,1,2,2,2,3,2,2,7,2,7,7,3,3,4,7,5,6,3,3,6 JL'0,2,2,7,1,4,3,2,2,2,3,3,7,6,7,7,6,3,3,2,5J NB1150::0J!N"***HIT MEN***"UJ"NNH0:A16:EM(HM(A))0NHNH1\J#NAlJ$NNH54015~J%NB((1)6)1J&NB6B1J*NEM(HM(B))0BCHM(B):4031J/NBB1:20002J0u"**CAPTURE VALUE INSTRUCTION**" K1u"GROUND WAR CAPTURE VALUES":::)K2u"BOMB ALL + EXPLODES":OK3u"TRAP TRAPS GENERALS AND DOWN":sK4u"GENERAL GENERAL AND DOWN":K5u"LEIUTENANT LEIUTENANT AND DOWN":K6u"SPY SPY AND DOWN":K7u"SCOUT SCOUT AND DOWN":L8u"ANY TWO EQUALS ELIMINATES EACH OTHER"3L;u" "CL