\,zP?71z!6D:\+zE8W P P P 8MPv>>BB<DHpHDB@~BfZBBBBbRJFB|<@<~B~<|@~|>B<<x~<|<B<<~B~~B~B% B@BBBBbBb@BBB@D@B@BB@DBBBBbDBBB@BB@D@@f)B@BDfBB@B@B@BBBbD@@@@DBBfB@D@@@bDDBBBBBf@@BBBB@@BDbBBD@@BBDBBB@B@@b@fD% ~|BBBBRBR<~BB|B|@@BB|BBBBBR(BBB<BB<(<|Z)B<BBZBB@B|~|@BBRB|@||(BBZB<B|||RB(BBB~BZ|<BBB~@|B(R@BB|<BB(~BB|~||R|Z(% B@|~BBJ~JB~B@B@@@~|@BB~|BJBB|~|@B)~~BB|~@B@B@N|~JB@@@@BBBBB@@@JBBB|BBB@~|BB@@|JNBB@|BB~B@B@@J@B% B@@B$BFBFBBB$@D@B@BD@DZBDBFBBDBBDBB@B(BBBDBDB@B@B@BDBFD@@@@BBBBBD@@@FDBBDBBB@BBDZB@@DFBBD@BDBBBB@B@@F@B$ B~@BBB<BB~x~<~BB~x$BBBB~<@B~~~B>B<<x~<B<BB<@B~~B~B$<@@<<|<BBx~|<<>B~><B<~<@xB@@@BB@BbD@BDBBBBBbBB@BB@fBB@bBDBBBBbBB@B@@BB@BDB@DBBB@BB@@@@B@DBB@@bDB@fBbf@@Bb@BBDB@B@BBB@6DBBBBB@BB@@BB@B@DB@@<BB<BRB|B(BBB@BRBB@BB|ZB@|RB(BB@BRBB@~|<BB|@(B|(BBB<BB|@||B<(BB<|RB~|ZBRZ<<BR<~BBB@~~(B|B<<>~><$<@<~x<<<|B|~B~~B~BBBB<|~<|<<~<|<~|<<B<|<@@|~<>~B~<<BBB<<B~B<BB<B~B@<<<$>~~B~<>~~<<715 5Z=0:X=0:Y=0:STARS=5*(G) LIM=5+(G) 2S(STARS):H(2*LIM,3):L(LIM):M(LIM) FSTARS=0:ESTARS=0: PNTS=0: PNTR=1: DIST=0: SG=0: TO=0: TIME=1: M=0 #W$="" (A=07 - B:"A"+A,B 2A 7G8,42*,28,127,28,42*,8,0 <$S(1)=(10 +*010 ) F"S(STARS)=-(10 +*10 ) KA=2STARS-1 P>.75@S(A)=999 UA d+X(Z)=((Z-1)/5)+1 i,Y(Z,X)=Z-(5*(X-1)) :A=15 *1+3*A,0;(64@+A) A  A=1G 18,4*A;A A  Z=1:4000 G0,10 ;1;"AD7001";2,8;"TURN NO: ";TIME %4,4;ys;"";S(1) A=2STARS-1 !Z=A:4000 #S(A)=999595S &S(A)>0I=ys:580D 0S(A)<0I=hs:580D :S(A)=0I=ns D&1+3*Y,4*X;I;"*"; F 0 IS(A)0;I;(S(A)) SA UZ=STARS:4000 W01+3*Y,4*X;hs;"";S(STARS) X7("HOW MANY SHIPS DO YOU WANT TO MOVE? 999=QUIT "),M [M=9992600( ]M=0700 bcM<0#1;1;1;"NO NEGATIVE NUMBERS ALLOWED":1,10 :6000p d<MM#1;"NOT ALLOWED!":1,16:600X g'("ENTER TAKE-OFF SECTOR e.g. a4 "),W$ lW$2615g qY=W$-96` vX=W$(2) {4Y<1Y>5X<1X>7615g  4100 eS(Z)5X<1X>7650  4100 bS(Z)=999#1;1;1;"NO STAR IN THAT SECTOR":1,20:650  A=1 H(A,1)=0H(A,1)=TIME+(X-X1)+(Y-Y1):H(A,2)=M:4100:H(A,3)=Z:X=X1:Y=Y1:4100:S(Z)=S(Z)-M:700 'A=A+1:A2*LIM675  COMPU_LOGIC .PNTS=0:FSTARS=0:ESTARS=0 A=1STARS-1 S(A)=999795 %S(A)<0ESTARS=ESTARS+1 %S(A)>0FSTARS=FSTARS+1  B=1 M(B)=A795 B=B+1:BLIM735 B=2STARS 8S(B)>-2Ž((+.1}L)*S(B))PNTSPNTS=C:M(PNTR)=A:TO=B:D=DIST B A  PNTS=0900 % A=1 *H(A,1)=0H(A,1)=TIME+D:B=S(TO):H(A,2)=S(TO)+1:H(A,3)=M(PNTR):S(TO)=-1:8160:8182:8204 /A=A+1:810* 0;TO=STARSH(A,2)=(B/5):S(TO)=B-H(A,2) 1 2STO=STARSM(PNTR)=1H(A,2)=(B*2/3):S(TO)=B-H(A,2) 3 4PNTR=PNTR+1 9PNTR>LIMPNTR=1 TIME=TIME+1 A=12*LIM H(A,1)TIME1100L "H(A,2)<01050 "H(A,2)>01020 :"ERROR: ";H(A,2): %S(H(A,3))01030  2000 H(A,1)=0 %B>CS(H(A,3))=B:1090B %C>BS(H(A,3))=C:1090B .S(H(A,3))=S(H(A,3))+H(A,2)  1090B %S(H(A,3))010808  2000 $%B>CS(H(A,3))=B:1090B .%C>BS(H(A,3))=C:1090B 8.S(H(A,3))=S(H(A,3))+H(A,2) BH(A,1)=0 LA  S(1)<02600( S(STARS)>02500 #S(1)=S(1)+(*FSTARS) )S(STARS)=S(STARS)-(*1.5@*ESTARS)  500 :1,5;1;"BATTLE_REPORT:";3,5;"STAR CO-ORDS:";5,5;"FORCES ENGAGED";7,5;"PAVONIAN SHIPS:";8,5;"YOUR SHIPS";10 ,5;"LOSSES";12 ,5;"PAVONIAN SHIPS";13 ,5;"YOUR SHIPS" Z=H(A,3):4000 W$=(64@+Y)+X 3,23;W$ "H(A,2)<02030 B=S(H(A,3)) C=H(A,2)  2040 B=H(A,2) C=S(H(A,3)) )7,23;B;8,23;C K((1+)*C)>((1+)*B)C1=((C*B*)/10 ):B1=B:2060  B1=((C*B*)/10 ):C1=C  B1>BB1=B-1 C1>CC1=C-1 -12 ,23;B1;13 ,23;C1 B=-(B-B1):C=C-C1 /#1;"Press any key to continue":0  K:5,0;"WELL_DONE,_YOU_WON_THE_WAR_AFTER";TIME;" STAR_MONTHS" A=70-1 A B=04 &.3,6*B-3*A+5 B A  9000(# (J:5,0;"BAD LUCK! YOU LOST AFTER ",TIME;" STAR_MONTHS" 9000(# X=X(Z)  Y=Y(Z,X)   Z=Y+5*(X-1) g mX=X(Z):X1=X(Z1) rY=Y(Z,X):Y1=Y(Z1,X1) wDIST=(X-X1)+(Y-Y1)  @K1;"C";0;"oulor or ";1;"B";0;"lack and white?" J=""8010J T="c"85004! ^="b"8600! h 8010J !4&ys=3:hs=5:ns=7: !&ys=3:hs=1:ns=7: #(''"Play again y/n?" #2 ="y" #< ="n" #F 90102# gcdzxytariN  +)+ starstarntntisimmiWc1""  pavonian `