8V65305:W54272:SM3072:CM2048:V,11:V4,0:""g"";9);"***** FUTURE WAR! *****"13);"BY B.W.BEHLING"11);"(C) COPYRIGHT 1984" 12: 22: 56 ** VARIABLES **PN$(2,6),P(2,6),SE(9,4,6),D%(12):TR36,I16:CL$:PN$(1,I)CL$:CL$:PN$(2,I)CL$:I`I19:A%(I)::I29:B%(I)::I09:C%(I):f} ** DELAY LOOP **DL02000:DL: ** PRINT MESSAGE **"";MSG$: 22: ** ERASE MESSAGE ** SR38724071:SR,32:SR:'" ** PLAYER INFO **[$"";PN$(0,PT);",";MSG$:r& ** BOMB SOUND **(I022:WI,0:I:W24,10:W5,80:W12,160*W6,255:W13,252:W4,17:W4,16,I2552001:54273,I:I.I255751:54273,I20J15:::W1,10:W8,1:W5,112:W6,252I2W4,129:W11,129Y4I1200:Ir6W4,128:W11,128:8" NUMBER OF PLAYERS";:NP:NP7 62<" SORRY, NO MORE THAN SIX CAN PLAY!": 22: 56>NP1 56@NP3NP5 68"B" CAN I PLAY WITH YOU";:CP$: 700DCP0: 74LF(CP$,1)"N"CP0: 74UHCP1aJI1NPL" PLAYER #";I;:"NAME";PN$(0,I)N(PN$(0,I))11 84P" THAT NAME IS TOO LARGE!"R" NO MORE THAN 10 LETTERS PLEASE.": 76$T" ";PN$(0,I);",YOUR COLOR IS ";PN$(1,I);".":I5VNP 90, 104?X 112dZ" PLAYER # 2 NAME? COMPUTER 2"\PN$(0,2)"COMPUTER 2":P(2,2)1^" ";PN$(0,2);",YOUR COLOR IS ";PN$(1,2);".":I3`" PLAYER # 3 NAME? COMPUTER 3"bPN$(0,3)"COMPUTER 3":P(2,3)17d" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"."FfNP3: 120kh" PLAYER # 3 NAME? COMPUTER 3"jPN$(0,3)"COMPUTER 3":P(2,3)1l" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"."nNP3: 120pCP1 120rNPNP1:" PLAYER #";NP;"NAME? COMPUTER";NP/tPN$(0,NP)"COMPUTER"(NP)mv" ";PN$(0,NP);",YOUR COLOR IS ";PN$(1,NP);".":P(2,NP)1{x 22: 22zAR32((NP3)5):PT(NP(0))1|I16:P(1,I)AR:I~ ** DRAW SCREEN **"":I040:S:SMI,S128:CMI,7:II7975940:SMI,160:CMI,7;SMI1,160:CMI1,7:IdI761799:S:SMI,S128:CMI,7:II14:1)" Σ Σ Σ Σ Σ"1)" ͤ ͤ ͤ ͤ "1)" Σ Σ Σ Σ "11)" ͤ ͤ ͤ ͤ ͤ":IZ5)" "6)"ͤ ͤ ͤ ͤ"MSG$"  NOW WE CHOOSE SECTORS ": 26: 30R1(9(0))1:R24:R3(9(0))1:R41 ** PICKING SECTORS ** MSG$" PICK A SECTOR.": 344P(2,PT)1 180`"ENTER #";:PI$:(PI$)2 30: 154((PI$,1))49 ((PI$,1))57 30: 154((PI$,1))49 ((PI$,1))52 30: 154A((PI$,1)):B((PI$,1))"SE(A,B,0)0SE(A,B,PT)1:SE(A,B,0)1:P(1,PT)P(1,PT)1: 172LMSG$"  ALREADY PICKED "` 26: 30: 154 246:TRTR1:PTPT1:PTNPTPT1TR0 154MSG$"  ALL SECTORS OCCUPIED ": 26: 30 MSG$"  NOW YOU MUST REINFORCE ": 26: 30: 208( ** COMP. TERR. PICK **:"ENTER #?";IPT2 196aSE(R3,R4,0)0 194R4R41:R44R41:R3R31R39R31 186AR3:BR4:ZR310R4: 206SE(R1,R2,0)0 204R2R21:R21R24:R1R11R11R19 196!AR1:BR2:ZR110R2>PI$(Z):PI$: 22: 166_ ** INITIAL REINFORCEING **MSG$"": 34:"YOU HAVE";P(1,PT);"ARMIES LEFT"P(2,PT)1 234"REINFORCE #";FO$:(FO$)2 30: 210((FO$,1))49 ((FO$,1))57 30: 2103((FO$,1))49 ((FO$,1))52 30: 210SA((FO$,1)):B((FO$,1))SE(A,B,PT)1SE(A,B,0)SE(A,B,0)1:P(1,PT)P(1,PT)1: 228MSG$"  NOT YOUR SECTOR! " 26: 30: 210 246:PTPT1:PTNPTPT1P(1,PT)0 210BMSG$"  PREPARE FOR BATTLE!! ": 26: 30: 274c ** COMPUTER REINFORCING **x"REINFORCE #?";RA(9(0))1:RB(4(0))1PCRB4:SE(RA,PC,PT)1PC: 238ARA:BPC:PCRA10PCPI$(PC):PI$: 22: 222 ** UPDATE SECTORS **1 TA2:I1A:TATA4:IK "":A2(A2) 262f B 254, 256, 258, 260 TA);"";PN$(2,PT): 272 TA);"";PN$(2,PT): 272 TA);"";PN$(2,PT): 272 TA);"";PN$(2,PT): 272!B 264, 266, 268, 2701!TA);"";PN$(2,PT): 272U! TA);"";PN$(2,PT): 272}! TA);"";PN$(2,PT): 272!TA);"";PN$(2,PT)!TA);" ":TA);SE(A,B,0): 30:! ** MAIN ROUTINE **("AM0:EA%0:EA0:X19:Y14:SE(X,Y,PT)1AMAM.75:EAEA2@"Y:EA8EA%EA%EAW"EA0:X:AM0 286o"PTPT1:PTNPPT1y" 274"AM3AM3" P(1,PT)(AM):AB(0).5:P(1,PT)(P(1,PT)(ABP(1,PT)))EA%#"MSG$"": 34:"YOU HAVE";P(1,PT);"ARMIES TO STATION"#$P(2,PT)1 590E#&"WHAT SECTOR #";RI$:(RI$)2 30: 290u#(((RI$,1))49 ((RI$,1))57 30: 290#*((RI$,1))49 ((RI$,1))52 30: 290#,A((RI$,1)):B((RI$,1))#.SE(A,B,PT)1 308$0MSG$"  NOT YOUR SECTOR! "$2 26: 30: 290I$4" ":"HOW MANY";ST%$6ST%P(1,PT)SE(A,B,0)SE(A,B,0)ST%:P(1,PT)P(1,PT)ST%: 316$8MSG$"  YOU DON'T HAVE THAT MANY! "$: 26: 30: 290$< 246:P(1,PT)0 290$%>MSG$"  ALL TROOPS ON STATION! ": 26: 30V%@MSG$"DO YOU WANT TO ATTACK? [Y/N]": 30: 34j%BP(2,PT)1 510~%DK$:K$"" 324%FK$"N" 450%H"ATTACK WHAT SECTOR";DS$%J(DS$)2 30: 320%L((DS$,1))49 ((DS$,1))57 30: 320'&N((DS$,1))49 ((DS$,1))52 30: 320I&PAD((DS$,1)):BD((DS$,1))b&RSE(AD,BD,PT)0 344&TMSG$"  THAT'S ONE OF YOUR SECTORS! "&V 26: 30: 320&X"FROM";AS$&Z(AS$)2 30: 320'\((AS$,1))49 ((AS$,1))57 30: 3200'^((AS$,1))49 ((AS$,1))52 30: 320R'`AA((AS$,1)):BA((AS$,1))k'bSE(AA,BA,PT)1 360'dMSG$"  THAT'S NOT ONE OF YOUR SECTORS! "'f 26: 30: 320'hSE(AA,BA,0)1 366'jMSG$"  NOT ENOUGH ARMIES FOR THIS ATTACK "(l 26: 30: 320<(nAAAD BABD1 AAAD BABD1 382Z(pAAAD1 AAAD1 378q(rAD2(AD2) 376(tBABD BABD1 382(v 378(xBABD BABD1 382(zMSG$"  SECTORS DO NOT CONNECT "(| 26: 30: 320)~SE(AA,BA,0)11AS%1: 388R)MSG$"": 30: 34:"ATTACKING STRENGTH [1 -";SE(AA,BA,0)1;n)"]";:AS%:AS%1 382)AS%SE(AA,BA,0)1 382)AL0:DL0:AT1AS%:A1(6(0))1:D1(6(0))1)ALAL1:A1D1ALAL1:DLDL1)SE(AD,BD,0)DL1 400*SE(AA,BA,0)AL2 402'*AT: 402W*AS%SE(AA,BA,0)ALAS%SE(AA,BA,0)(AL1)*AAA:BBA: 30: 38:SE(A,B,0)SE(A,B,0)AL: 246*AAD:BBD:SE(A,B,0)SE(A,B,0)DL:TPPT*S16:SE(A,B,S)1PTS: 246*S:PTTP:SE(A,B,0)1 422+SE(AA,BA,0)2W24,0: 320Q+MSG$" SAME ATTACK AGAIN? [Y/N]":W24,0: 30: 34e+P(2,PT)1 580y+K$:K$"" 416+K$"Y" 30: 382+ 320+MSG$"  SECTOR CONQUERED ":W24,0: 26: 30+S16:SE(A,B,S)0:S:SE(A,B,PT)1&,X19:Y14:SE(X,Y,PT)1TTTT1=,Y:X:TT36TT0b,AS%SE(AA,BA,0)1OA%AS%: 442,MSG$"": 34:"YOU MUST MOVE IN";AS%;"ARMIES MINIMUM",P(2,PT)1 584,"HOW MANY";OA$:C1(OA$):C$(OA$,C,1),(C$)49(C$)57 432 -C:OA%(OA$)2-OA%AS% OA%SE(AA,BA,0)1 432r-SE(A,B,0)OA%: 246:AAA:BBA:SE(A,B,0)SE(A,B,0)OA%: 246-TT36 650- 320-MSG$" MOVE TROOPS? [Y/N]": 30: 34-P(2,PT)1K$"N":31);"N": 22: 456-K$:K$"" 454 .K$"N" 30: 506!."MOVE FROM";MF$5.(MF$)2 450_.((MF$,1))49 ((MF$,1))57 450.((MF$,1))49 ((MF$,1))52 450.AF((MF$,1)):BF((MF$,1)).SE(AF,BF,PT)1 474.MSG$"  THAT'S NOT ONE OF YOUR SECTORS! "/ 26: 450/"MOVE TO";MT$,/(MT$)2 450V/((MT$,1))49 ((MT$,1))57 450/((MT$,1))49 ((MT$,1))52 450/AT((MT$,1)):BT((MT$,1))/SE(AT,BT,PT)1 470/AFAT BFBT1 BFBT1 498/AFAT1 AFAT1 4960AT2(AT2) 494/0BFBT BFBT1 498I0BFBT BFBT1 4980MSG$"  SECTORS DO NOT CONNECT ": 26: 4500MSG$"": 30: 34:"HOW MANY";TM%0TM%SE(AF,BF,0)1 4981SE(AF,BF,0)SE(AF,BF,0)TM%:SE(AT,BT,0)SE(AT,BT,0)TM%$1AAF:BBF: 246:AAT:BBT: 246<1PTPT1:PTNPPT1F1 274h1 ** COMPUTER MAIN ROUTINE **1Z%((0)100)1:Z%90 5161 22: 4501RA%(9(0))11RA19:RA%RA%1:RA%9RA%11RB14:SE(RA%,RB,PT)1RB:RA: 514!2 ADRA%:BDRB:DSAD10BD:DS$(DS)02 BD1 530g2AAAD:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562v2BD4 5322AAAD:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 5622AD1 5382AAAD1:BABD:SE(AA,BA,PT)1 SE(AA,BA,0)2 5623AD9 54093AAAD1:BABD:SE(AA,BA,PT)1 SE(AA,BA,0)2 562Q3AD2(AD2) 550`3BD4 5603 AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 5623"AAAD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 5623$RB:RA: 5143&BD1 5603(AD1 55834*AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 562B4,AD9 560{4.AAAD1:BABD1:SE(AA,BA,PT)1 SE(AA,BA,0)2 56240RB:RA: 51442SE(AA,BA,0)SE(AD,BD,0)2RB:RA: 51444"ATTACK WHAT SECTOR?";46ASAA10BA:AS$(AS)58DS$: 22:"FROM?";AS$: 2225:AS%((0)(SE(AA,BA,0)1))1L5<SE(AA,BA,0)11 3905>SE(AA,BA,0)1SE(AD,BD,0)AS%(SE(AD,BD,0)1.5) 5705@MSG$"": 30: 34:"ATTACKING STRENGTH [1 -";SE(AA,BA,0)1;5B"]?";AS%: 22: 3906DSE(AA,BA,0)SE(AD,BD,0)2 5706F 320+6HOA%((0)SE(AA,BA,0))=6JOA%AS% 584]6L"HOW MANY?";OA%: 22: 442|6N *** COMPUTER STATION ***6P"WHAT SECTOR #?";6RRA(9(0))1:RB(4(0))16TSE(RA,RB,PT)1 5946VADRA:BDRB6XBD1 6067ZAAAD:BABD1:SE(AA,BA,PT)1 638#7\BD4 608J7^AAAD:BABD1:SE(AA,BA,PT)1 638Y7`AD1 6147bAAAD1:BABD:SE(AA,BA,PT)1 6387dAD9 6167fAAAD1:BABD:SE(AA,BA,PT)1 6387hAD2(AD2) 6267jBD4 6368lAAAD1:BABD1:SE(AA,BA,PT)1 638'8nAAAD1:SE(AA,BA,PT)1 63818p 594@8rBD1 636O8tAD1 634x8vAAAD1:BABD1:SE(AA,BA,PT)1 6388xAD9 6368zAAAD1:BABD1:SE(AA,BA,PT)1 6388| 5948~AAA:BBA:ZAA10BA8RI$(Z):RI$: 229" ":"HOW MANY?";=9ST%((0)P(1,PT))1:ST%10 648n9ST%P(1,PT)5ST%(P(1,PT)5):ST%1ST%19ST%: 22: 3109 ** GAME OVER **9P(2,PT)1 6709MSG$" ********** YOU WON! **********"9 30: 26):V,14:V1,6:"* * * * * * "Y:I13:7);" * * * * *  ":7);"* * * * * * ":I:I13:7);" ":7);" ":I;MSG$" YOU ARE A TRUE CHAMPION!!": 34:B;MSG$"  YOU HUMANS ARE SO EASY TO BEAT! "R; 30: 26:j; ** DATA STARTS **;"WHITE","PL#1","RED","PL#2","BLUE","PL#3","YELLOW";"PL#4","PURPLE","PL#5","GREEN","PL#6"4<1,2,3,4,5,6,7,8,9,15,13,4,14,6,7,8,9,10,11,12,13,4,14,6,7,8,9~<32,32,32,49,49,32,32,50,49,32,32,51,49,32,32,52,49,32,32,53,49,32,32<54,49,32,32,55,49,32,32,56,49,32,32,57,49,32,32,32,32=32,32,49,52,32,32,50,52,32,32,51,52,32,32,52,52,32,32,53,52,32,328=54,52,32,32,55,52,32,32,56,52,32,32,57,52,32,32,32