NEBULA ` M6b 80:0:0:0:0:0: Z1;7;10 ,7;"NEBULA IS LOADING";12 ,10 ;"PLEASE WAIT" )A=-60<60<:.017{ C,A:A: ("" 2"" <21,0;"" F-1:1:8:8:8 P20,0; Z"" =<^CHARACTERS8:T|(88||88T0z0|T88||8(DDp0`rT88TPRETTY PIC@Pb 0@ 3@0 7P@> <EH@0<P @` x @  HHI$0@ !@>0  @8`@@+!@y0@` q@B @@"NHAp@00@80@ԑ@08  B HcI0@F @0000H! <`DO 0 B <dNHA 000 @ >0<PH7|@p@ Dx HI$3 <00@" 00A "<0 ` ?@ A@ @@ b 00 @0p$ 0 !<0P 8 8A@2@? 0 @@10 @ 0 $ 0!   B<B$B@  <@00@$!G`30 $@y`??>a!2|? L N`?$Bfx $@!f|?f?~`@?0??2  @  | @  @?x$`x p@$@>?pp >?@???<"B` 2  00@8?p$@ 0}10@$! ?| 0y@? @I????"B02@ @@`0?$`0}F@$> `;0?|a 0?@ @H0??C&L  @ @ sC,`? $8`?}H$0 v`p?|`?  pp@|??0 @ `  NL4? $ ,?}@$~?~v|?@L??!@  04 9 <08$( ?0p $@~Y?|&ـ?>dp?y?@@????À@d `??p?>@` ? ?  @FC ?E+@ #`?? @ 8l?8 00PG?8`0 ~?p@Q0`(`??*k@`??0 8f?  l?`0 @` ?@ 2`E ?_@0?0??@Ɂ ?p? `@?$"l0 h@?i D 0` ?~? ``p`@"`AJK?Gc "~ C??03>p??`C.p|8`H$? TG?Y 8 x ?? }? @??- DI<# A?` ??0@3 ??  @?C0K`?J! À""?FFFFFFFFFBBBBGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBGGGGDGGDGGGGGGGGGGGGGGGGGBBBBBBBGGGGGGGGGGGGGGGGEGGGGGBBBBBBBBBGGGGGGGGGGGGGDGGGGGGGBBBBBBBBBBGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBGGGG@GGGGGGGGGGGGGGGGBBBBBBBBBGGGGGGGGGGGGGGGGFFGGGFGGBBBBBBBGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBEEGGGGGGGGGGGGGGGGGGGGGGGBBBBEEEGGGGGGGGGGGGGGGGGGEGGGEEEGFFEEEEGGEGEGEEEGGGGGGGCCEECCEFEFFEEEEEEEEEEEEEEGGGGGGGGCEEEEEFFFEEEEEEEEEEEEEEEGGGFGGGFFFFFEFFFEEEEEEEEEEEEEE@EGGFGEECFFFFFFEFFEEEEEEEEEEEEEFGEGGEEEEFFFFFFFFFFEEEEEEEEEEEEGFEGFFFFFFFFFFFFFFFEEEEEEEEEEEEEEEEGCFFFFFFFFFFFFBDEEEEEEEEEEEEEEEEFFFFFFFFFFFDDfEEEEEEEEEEEEEFFFFFFFFFFFFFFFDdaaEEEEEEEEEEEEEFFFFFFFFFFFEFFDdaaaEEEEEEEEGEEEFFFFFFFFFFFFEDDDaaaaEEEEEEEEEEAGFFFFFFFFFECEEEDeaaaaݍݍߍS:65478:23675{\,199:23676|\,255::0:0: tDK=0:V1=0:E9=0:E3=0:E8=0:R(7):g(14,14):236099\,20 a$(7):a$(1)="":a$(2)="":a$(3)="":a$(4)="":a$(5)="":a$(6)="":a$(7)="" <1:0:0: d1:a=1200:8;128,87W:((*5)+2),120x*(A*/100d),65A*(A*/100d):.01z# =,a/4-20:a n.a=300-.5:.01z# =,a:a s)a=0:0:G$(2,2) xx5:9 ,6;" ";10 ,6;" ";11 ,6;" ";12 ,6;" ":200 |a=a+1:9 ,10 ;"";10 ,10 ;"";11 ,10 ;" ";12 ,10 ;"":200 |a=a+1:9 ,13 ;"";10 ,13 ;"";11 ,13 ;" ";12 ,13 ;"":200 |a=a+1:9 ,16;" ";10 ,16;" ";11 ,16;" ";12 ,16;" ":200 |a=a+1:9 ,19;" ";10 ,19;" ";11 ,19;" ";12 ,19;"":200 a=a+1:9 ,22;" ";10 ,22;" ";11 ,22;" ";12 ,22;" ":200 0:210 K.1}L,a:.1}L,a+4:.1}L,a+7:.1}L,a+12 : <14,8;"BY JULIAN GOLLOP":4080 HA=2113 -1:B=031:A,B;" ":B:A 14,4;"Which Galaxy do you want?";15,8;"1.Two Arm Spiral";16,8;"2.Crab Nebula";17,8;"3.Cloud Nebula";18,8;"4.Four Arm Spiral" ,Q$=:Q$<491ůQ$>524230 )a=09 :.01z# =,0:a 200+Q$*502 &1:0:0:7: oA=114:B=114:G:A,B;a$(g):G7(G-G)*10 +2,A,B+16;"0" G(A,B)=G:B:A a=17:r(a):a 9900& {7,7,7,7,6.1C333,1.1 ,6.2Ffff,6.1C333,6.1C333,7,7,7,7,7 w7,7,7,7,7,7,7,7,6.2Ffff,2.1fff,2.1fff,7,7,7 }7,7,7,2.1fff,6.3I,6.1C333,1.1 ,7,7,7,1.2,2.1fff,7,7 7,5.1#333,5.1#333,2.1fff,1.1 ,2.1fff,6.2Ffff,1.1 ,6.1C333,7,7,2.1fff,2.1fff,7 5.1#333,1.1 ,2.2 ,5.1#333,7,7,1.2,1.2,2.1fff,1.1 ,7,1.1 ,1.1 ,7 5.1#333,5.2&fff,7,7,7,7,7,1.1 ,1.1 ,2.1fff,7,7,1.1 ,2.1fff 2.1fff,5.1#333,7,7,7,2.1fff,1.2,1.1 ,1.2,1.2,7,7,1.1 ,4.3 5.2&fff,5.1#333,7,7,1.2,1.1 ,1.3&fff,1.1 ,1.1 ,7,7,7,4.1333,4.2fff 5.1#333,2.1fff,7,7,2.1fff,2.1fff,1.1 ,7,7,7,7,7,4.1333,2.1fff 7,3.1Ffff,3.1Ffff,7,2.2 ,1.1 ,3.2L,1.1 ,7,7,1.1 ,4.3 ,4.1333,4.2fff 7,2.1fff,2.2 ,7,7,2.1fff,3.1Ffff,3.3S333,3.1Ffff,1.2,4.1333,3.1Ffff,4.1333,7 }7,7,2.1fff,3.2L,7,7,7,2.1fff,3.2L,2.1fff,4.1333,7,7,7 w7,7,7,2.1fff,2.3333,2.2 ,7,7,7,7,7,7,7,7 {7,7,7,7,7,2.1fff,2.2 ,2.1fff,3.1Ffff,3.1Ffff,7,7,7,7 @29,31,11 ,10 ,10 ,9 ,120x ,u7,7,7,7,4.1333,7,2.2 ,7,7,7,7,7,7,7 -q7,7,7,7,7,7,7,7,7,7,7,7,7,7 .y7,7,4.2fff,7,2.3333,7,7,7,7,7,3.1Ffff,3.2L,7,7 /{7,2.1fff,7,7,7,7,7,7,7,3.2L,3.1Ffff,3.3S333,3.1Ffff,7 07,2.1fff,7,6.1C333,7,7,7,7,4.1333,6.1C333,3.1Ffff,4.1333,1.1 ,7 1}2.1fff,7,7,7,7,7,7,6.1C333,6.2Ffff,4.1333,7,7,4.1333,1.1 24.3 ,7,6.1C333,7,6.1C333,7,6.2Ffff,6.1C333,6.1C333,7,1.2,7,7,1.1 32.1fff,7,7,2.2 ,7,6.1C333,6.1C333,6.2Ffff,7,6.1C333,7,6.1C333,7,4.3 4}2.1fff,4.2fff,7,7,4.1333,6.2Ffff,6.1C333,7,7,7,7,7,7,1.1 57,2.1fff,4.1333,5.1#333,6.1C333,4.1333,7,7,7,7,6.1C333,7,1.1 ,7 6{7,5.1#333,5.3),5.1#333,5.2&fff,7,7,7,7,7,7,7,1.1 ,7 7y7,7,5.2&fff,5.1#333,7,7,7,7,7,1.3&fff,7,4.2fff,7,7 8q7,7,7,7,7,7,7,7,7,7,7,7,7,7 9u7,7,7,7,7,7,7,1.2,7,4.1333,7,7,7,7 ;<9 ,9 ,7,14,7,18,75K ^s7,7,7,7,7,7,7,7,6.3I,7,7,7,7,7 _w7,7,7,6.1C333,7,7,6.1C333,7,7,7,6.2Ffff,7,7,7 `q7,7,7,7,7,7,7,7,7,7,7,7,7,7 ay7,1.1 ,7,7,1.3&fff,7,7,7,6.2Ffff,7,7,7,3.1Ffff,7 by7,7,7,7,1.2,7,4.1333,6.1C333,7,6.1C333,7,7,7,7 cy7,7,1.2,7,7,1.1 ,7,7,4.1333,7,7,3.1Ffff,7,7 d6.1C333,7,7,7,4.3 ,7,4.2fff,4.1333,7,4.1333,3.3S333,7,7,3.2L e}7,7,1.1 ,7,7,4.1333,4.1333,4.2fff,6.1C333,7,7,3.2L,7,7 fy7,7,7,7,6.1C333,7,7,4.1333,7,4.1333,7,7,7,3.1Ffff g{6.3I,7,7,2.2 ,7,7,4.2fff,7,7,2.1fff,7,3.1Ffff,7,7 hu7,7,7,7,2.3333,7,7,7,6.3I,7,7,7,7,7 iu7,7,7,7,7,7,2.1fff,7,7,7,6.1C333,7,7,7 js7,7,7,2.1fff,7,7,7,7,7,7,7,7,7,7 ku7,7,7,7,7,2.1fff,7,7,7,6.1C333,7,7,7,7 m<6,6,7,12 ,6,14,67C w7,7,7,7,7,7,7,6.1C333,6.3I,6.1C333,7,7,7,7 {7,7,5.1#333,7,7,6.1C333,6.1C333,7,7,7,6.2Ffff,6.1C333,7,7 z 7,5.2&fff,7,7,6.2Ffff,6.1C333,7,7,7,7,7,7,6.1C333,7 7,6.2Ffff,7,3.1Ffff,6.1C333,7,7,6.1C333,6.3I,6.1C333,6.1C333,7,7,7 5.1#333,7,7,3.1Ffff,3.1Ffff,7,4.2fff,4.1333,6.1C333,6.1C333,6.2Ffff,2.1fff,7,7 6.1C333,7,7,3.3S333,3.1Ffff,7,4.1333,6.2Ffff,7,7,7,2.2 ,2.1fff,7 5.2&fff,7,7,3.1Ffff,4.1333,3.1Ffff,4.2fff,6.1C333,4.1333,4.2fff,7,7,2.1fff,7 7,5.3),7,7,3.2L,4.1333,4.1333,4.2fff,4.1333,6.1C333,4.1333,7,7,6.1C333 7,5.1#333,5.1#333,7,7,7,6.1C333,4.1333,7,6.2Ffff,2.1fff,7,7,6.3I 7,7,5.2&fff,1.1 ,1.1 ,1.1 ,4.1333,1.1 ,7,6.1C333,2.1fff,7,7,6.1C333 7,7,7,1.1 ,4.3 ,4.1333,1.1 ,7,7,2.3333,2.1fff,7,6.2Ffff,7 y7,1.1 ,7,7,7,7,7,7,2.1fff,2.1fff,7,7,6.1C333,7 {7,7,1.2,1.1 ,7,7,7,2.1fff,2.1fff,7,7,6.1C333,7,7 w7,7,7,7,1.3&fff,1.1 ,1.1 ,7,7,7,7,7,7,7 >12 ,12 ,8,16,8,32 ,98b @1:0:18,7;"HOW MANY PLAYERS?"; ,w$=:W$<491ůW$>535510 5"";w$:a=120:.02{# =,4:a  81050:P$(6,8):P$(6)=" DRAKAR"  Y(6):Y(6)=1 Ka=1(w$):18,2;"NAME OF PLAYER ";a;"? "; o$:o$>8532 @A1=4-((O$)/2+.5):p$(a,(A1+1))=o$ P1;7;18,20;P$(A):I=010 :.05|L,I:I :1050:18,2;"WHAT COLOUR?(2 TO 6)" ,O$=:O$<502ůO$>546540 (I=15:Y(I)=O$540 I  7I=10 0-1:.01z# =,I:I:Y(A)=O$ !1050:A "M1050:VP=(R(7)/W$+.5):W$="1"VP=(R(7)/4) #17,3;"HOW MANY VICTORY POINTS TO";18,3;"WIN?.INPUT ";18,14;VP;" TO ";R(7) $S$:S$=""548$ %5A=1̱S$:S$<480ůS$>579548$ &A (=23658j\,8:VC=S$:VCR(7)548$ /.04|# =,20 0I570::1050:R$(7,9 ):A=16:R$(A):A :A"ARACHTON","TRIPTON","QUADRAPOD","OCULID","HOMINID","STELLASOR" D?X(6,7):P(14,14):S(6,10 ) NL=8:C=8 S17,7;"CHOOSE SEAT PHASE";19,3;"POSITION CURSOR AND PRESS";20,3;" S FOR SELECTION. ":0:a=1200:a:1050 UQ(6,2) XZ=1(W$) ] 1000 b0:7:2000 l0="S"P(L,C)=0G(L,C)7625q n 610b q 0 vS(Z,G(L,C)+3)=1:Q(Z,1)=L:Q(Z,2)=C:1,-20:P(L,C)=Z:1;Y(Z);L,C;A$(G(L,C)):0 {B=10 *(G(L,C)-G(L,C)):S(Z,1)=S(Z,1)+B:S(Z,3)=S(Z,3)+B:8;8;L,C+16;10 *(G(L,C)-G(L,C)) Z .C=8:L=8:J=11000  9100# 100d:1050:17,9 ;"";18,9 ;"MILLENIUM ";J;18,22;"";19,9 ;""  100d 'A=1200:A:Z=1̰W$ 1050:1;17,0;"";18,0;" FORCE POINT INCREASE PHASE ";19,0;""  0 )A=114:B=1730 ((A,B))<491730 OQ=(A,B)-480+(1+E9)*(10 *(G(A,B-16)-G(A,B-16))) (A,B)1289750& Q>9 Q=9 НC=12:8;1;7;8;A,B;"":.01z# =,(A*(B-16))/4-20:C:8;8;0;8;A,B;Q B:A  E9=0 J=1770 GZ=1̰W$:L=Q(Z,1):C=Q(Z,2):1050:3000 1:9 ;18,5;P$(Z);18,13 ;",DO YOU WANT TO";19,3;"REPOSITION THE SEAT OF YOUR";20,7;"EMPIRE? (Y OR N)" -V$=:V$="N".5,-10 :769 V$"Y"V$=""744 +.5,15:1050:1000 2000:="S"749  747 .P(L,C)Zū(L,C+16)64@747 Y0;0;8;Q(Z,1),Q(Z,2);A$(G(Q(Z,1),Q(Z,2))) MQ(Z,1)=L:Q(Z,2)=C:0;1;8;L,C;A$(G(L,C))  5500| Z 1050:17,6;"";18,6;"EXPENDITURE PHASE";19,6;"" iA=1150:A:Z=1̰W$:L=Q(Z,1):C=Q(Z,2):S(Z,2)80P790 1050:3000 :1:9 ;18,12 ;P$(Z);19,6;"DO YOU WANT TO SPEND";20,5;"FORCE POINTS? (Y OR N)" &D$=:D$=""D$"Y"D$"N"773 5D$="N".5,-10 :1050:790 "Y"773 :A=-10 10 10 :.1}L,A:A:1000  ?2000:D$=:D$480ƯD$579D$="K"779   777   oA=-10 10 5:.1}L,A:A:D$="K"M=10 -10 -1:.01z# =,M:M:790  P(L,C)Z777  1050:3000 :9 ;1;19,1;"CURRENT COST OF INCREASE= ";((20.5$+S(Z,2)/2))/20 eH=D$:A=((L,C+16))-480:H1=A-H:H1<1.02{# =,20:1000:777  u8;8;8;7;L,C+16;H1:S(Z,2)=S(Z,2)+H/(1+(S(Z,2)/40()) gA=10 -10 -5:.1}L,A:A:S(Z,2)80PS(Z,2)=80P:790 #1050:1000:777  Z A:1050:0;17,6;"";18,6;"";18,25;"";19,6;" COMMAND PHASE ";20,6;"";20,25;"";21,6;"" PF=-2010 :.03{u\,F:.03{u\,F+4:.03{u\,F+7:F NEG=0:B(6):C(20,10 ):U=1:X=1900 1050:17,10 ;"";18,10 ;" ROUND ";X;18,21;"";19,10 ;"":1.3&fff,-40(:Z=1̰W$:(S(Z,1)+.5)(20-V1)B(Z)=1 B(Z)=1900 [L=Q(Z,1):C=Q(Z,2):1050:1000:Z=62000:9300T$ 82000:K$=:5850:K$="S"K$="K"801!  ="0"B(Z)=1:900  798 !K$="K"900 "P(L,C)Z798 #A=110 :.02{# =,A:.02{# =,A+1:A:C(U,1)=L:C(U,2)=C:C(U,10 )=P(L,C):8;8;1;8;1;1;L,C;"":Z=69400$ $ 2000 %,K$=:K$480ƯK$579807' & 804$ 'C(U,3)=L:C(U,4)=C:Q3=0:P(L,C)>0Q3=0:L=Q(P(L,C),1)C=Q(P(L,C),2)P(C(U,1),C(U,2))P(L,C)Q3=1 (C(U,1)=LC(U,2)=CG(L,C)=7Q3=18;8;0;1;1;C(U,1),C(U,2);"":804$ * K1=K$:1050:3000 + L3=C(U,1):C3=C(U,2):S1=(((L3,C3+16))):K1>S1ƫ(L3,C3)<128K1+1>S1ƫ(L3,C3)1289 ;1;19,11 ;"TOO MANY":A=110 :.03{u\,0:.03{u\,4:A:1050:1000:804$ ,qC1=L-C(U,1):C2=C-C(U,2):D=((C1*C1+C2*C2)+.5):D1=K$-480-D+(S(Z,2)/80P*D) /P3=P(L3,C3):RD=G(L3,C3):K1S1D1.5RS=10 *(G(L3,C3)-G(L3,C3)):P(L3,C3)=0:1:1:8:0:0;7;L3,C3;"";8;7;L3,C3+16;"":0:0:4060 0<K1S1D1.5X(P3,RD)=15200P:3000 1 1 4D1<.59 ;19,3;"NOT ENOUGH FORCE TO TRAVEL";8;8;7;0;1;1;C(U,1),C(U,2);"":A=18:.02{# =,0:.02{# =,4:.02{# =,7:.02{# =,4:A:1050:Z=6903 6D1<.5797 9K9 ;19,5;"DEPARTING=";K$;",ARRIVING=";(D1+.5) >7;8;1;1;8;0;L3,C3;"":C(U,5)=(D1+.5):8;8;8;L3,C3+16;(((C(U,1),C(U,2)+16))-K$+.5) @oA=-36$12 12 :.04|# =,A:.04|# =,A+5:.04|# =,A+6:.04|# =,A+12 :A CV1;8;8;8;1;1;C(U,3),C(U,4);"" H6C(U,6)=(21-C(U,1))*8+4 M-C(U,7)=(C(U,2))*8+4 R2C(U,8)=(C(U,1)-C(U,3))*8 W4C(U,9 )=(C(U,4)-C(U,2))*8 \M=U:3050  U=U+1 Z=6903 Z j1050:EG1DK=1ƺ(S(6,1)+.5)XU<(20-V1)Z=6:797 GB(1)+B(2)+B(3)+B(4)+B(5)=W$905 X 1050:1:17,6;"";18,6;"";18,25;"";19,6;" RESOLUTION PHASE ";20,6;"";20,25;"";21,6;"" h0:A=10 -20-1:.03{u\,A:.03{u\,A+4:.03{u\,A+7:A 5E=120:C(E,5)=0995 UP2=C(E,10 ):L3=C(E,3):C3=C(E,4):P3=P(C(E,3),C(E,4)) a L6=C(E,1):C6=C(E,2):RA=G(L6,C6):RD=G(L3,C3):RS=10 *(G(L3,C3)-G(L3,C3)) 6NP=0:P2P(L3,C3)P(L3,C3)0NP=1 %OP=0:P2=P(L3,C3)OP=1 M=E:3050 4(L3,C3+16)>480P(L3,C3)P2931  5880  5870 OP=04000 COP=18;Y(P2);0;1;1;L3,C3;"" .02{# =,20:953  5870 *AF=C(E,5):DF=((L3,C3+16)) CH=(AF/(AF+DF))*100d L6=C(E,1):C6=C(E,2):RA=G(L6,C6):RD=G(L3,C3):RA=RDCH=CH-10 :A=14:.01z# =,12 :.01z# =,16:A "X(P2,RA)=1CH=CH+10 P(L3,C3)=0946 "X(P3,RD)=1CH=CH-10 h4050:*100d+1>CH8;0;1;1;8;L3,C3;"":995 K0;8;7;8;8;L3,C3+16;C(E,5) P(L3,C3)04060 5000:4000 5S(P2,RD+3)R(RD)X(P2,RD)=05100 *S(P2,RD+3)R(RD)X(P2,RD)=1 P3=0995 5S(P3,RD+3)VC5700D ,A=1̰W$:S(A,3)VC5700D A:V1=0:5800:J 0:0:1:16,11 ;"";:16,0;" ";17,0;"   RES= " 18,0;" GOVT= ";19,0;" TECH= " 20,0;"  VP.s= FORCE= ";21,0;" " 0:Y(Z);9 ;16,12 ;P$(Z);16,20;0;7;" ";18,18;s(z,1);19,18;(s(z,2)+.5);20,18;s(z,3)  Q=12 RI=16:X(Z,I)=11;Y(Z);21,Q;A$(I):Q=Q+1  I  0  \W=1621:0;W,0;" ":W: h$= LL=L+((H$="Z"H$="X"H$="C")L<14)-((H$="Q"H$="W"H$="E")L>1) LC=C+((H$="E"H$="D"H$="C")C<14)-((H$="Q"H$="A"H$="Z")C>1) I8:8:8:8:1:L,C;"";L,C+16;"" .02{# =,-20 L,C;"":L,C+16;"" 0:8:0:1:17,1;R$(G(L,C));17,29;10 *(G(L,C)-G(L,C));20,29;(L,C+16) .P(L,C)020,1;P$(P(L,C)) .P(L,C)=020,1;" "  1:Y(Z)-1:Y(Z):17,0;"";18,0;"";31;"";19,0;"";31;"";20,0;"";31;"";21,0;"" 0: -1:8:8:0:8 A=17:C(M,7),C(M,6):C(M,9 ),C(M,8):.01z# =,-7:8;1;1;C(M,1),C(M,2)+16;" ";C(M,3),C(M,4)+16;" ":A l8;1;1;C(M,1),C(M,2)+16;" ";C(M,3),C(M,4)+16;" " 0: uQ1=Q(P2,1):Q2=Q(P2,2):S(P2,1)=S(P2,1)+(RS/(((Q1-L3)*(Q1-L3)+(Q2-C3)*(Q2-C3)))+.5) -S(P2,3)=S(P2,3)+RS:P(L3,C3)=P2 +S(P2,RD+3)=S(P2,RD+3)+1 71;1;0;8;Y(P2);L3,C3;""  xA=0-39'-1:1:1:8:L3,C3;"":.025{L,A:L3,C3;"":.02{# =,A:A:0  uQ1=Q(P3,1):Q2=Q(P3,2):S(P3,1)=S(P3,1)-(RS/(((Q1-L3)*(Q1-L3)+(Q2-C3)*(Q2-C3)))+.5)  S(P3,3)=S(P3,3)-RS +S(P3,RD+3)=S(P3,RD+3)-1  GT(66B):U=1:A=312 3:G=18 Q=(G*/4) 1T(U)=A*Q:T(U+1)=A*Q:U=U+2:G:A  [1:8:8:8:Y=(21-L3)*8+3:X=C3*8+4 aF=12:A=166B2:X,Y:T(A),T(A+1):A:F:.5,-45-  0: 1050:17,7;"THE ";17,11 ;R$(RD);17,21;"RACE";18,7;"HUMBLY SUBMITS TO";21,12 ;P$(P2) A=15:.1}L,0:.1}L,0:.1}L,7:.1}L,7:.1}L,4:.1}L,4:.1}L,12 :.1}L,12 :A:.6,0 7S(P2,1)=S(P2,1)+(R(RD)/4+.5) gS(P2,2)=S(P2,2)+(R(RD)/4+.5):S(P2,2)>80PS(P2,2)=80P 1050: PX(P3,RD)=0:1050:17,6;"THE ";17,11 ;R$(RD);17,22;"RACE";18,6;"REGRETS THAT IT";19,6;"CANN0T SUPPORT YOUR";20,6;"EMPIRE ANY LONGER" UC=15:.1}L,0:.1}L,0:.1}L,7:.1}L,7:.1}L,3:.1}L,3:.1}L,12 :.1}L,12 :C:.6,0 Z7S(P3,1)=S(P3,1)-(R(RD)/4+.5) _eS(P3,2)=S(P3,2)-(R(RD)/4+.5):S(P3,2)<0S(P3,2)=0 d1050: |1050:17,0;"RECALCULATING GOVERNMENT POINTS";19,14;"";20,14;" ";21,14;"" mS(Z,1)=0:F=16:X(Z,F)=1S(Z,1)=S(Z,1)+(R(F)/4+.5) 67;1;20,15;S(Z,1):F (I=114:F=114 P(I,F)Z5545 @Q1=Q(Z,1):Q2=Q(Z,2):RQ=10 *(G(I,F)-G(I,F)) I=Q(Z,1)F=Q(Z,2)S(Z,1)=S(Z,1)+RQ:7;1;20,15;S(Z,1):.02{# =,10 :5545 EA=Q2-F:U=Q1-I:S(Z,1)=S(Z,1)+(RQ/(A*A+U*U)+.5) G7;1;20,15;S(Z,1):.02{# =,10 F:I 6.4L,0:.2~L,0:.8L,7  D@1:0::7;1,9 ;"THE WINNER IS" N*U(5):F=15:U(F)=F:F PzF=16:B=25:S(U(B),3)>S(U(B-1),3)P=U(B-1):U(B-1)=U(B):U(B)=P QB:F SW$"1"5720X T[S(6,3)>S(1,3)U(1)=6:U(2)=1:5720X U(U(1)=1:U(2)=6 XY(U(1)):4,11 ;"";5,11 ;"";9 ;Y(U(1));P$(U(1));0;Y(U(1));5,20;"";6,11 ;"" ]\Y(U(1));9 ;8,5;"WITH ";S(U(1),3);" VICTORY POINTS" b>R$(4,3):5735g:A=14:R$(A):A g"2nd","3rd","4th","5th" hU=0:W$="1"U=1 lA=2̰W$+U qsY(U(A));9 ;8+A,1;R$(A-1);".> ";P$(U(A));" WITH ";S(U(A),3);" ";25;" VP.s " vA {47;19,6;"ANOTHER GAME?(Y OR N)" !K$=:K$"Y"K$"N"5760 K$="Y":1  W$="1"8600! E80E8 A (6000p+((*29))*100d A:  K$"U" ?(L,C+16)<64@ū(L,C+16)128798 uL1=L-Q(Z,1):L2=Q(Z,2):*25>(20-((L1*L1+L2*L2)+.5)).6,-40(:900 C0;0;7;8;L,C+16;(L,C+16) /A=010 :.01z# =,A:A:900 j(C(E,1),C(E,2)+16)1288;1;1;1;L3,C3+16;""  X=((L3,(C3+16))) EX=((L3,(C3+16))):X3=X+C(E,5):X3>9 X3=9 80;8;8;8;L3,C3+16;X3  X-E3=E3+1:1050:0:6:17,11 ;"";20;"";18,12 ;"";19;"";19,10 ;"";20;"";20,12 ;"";19;"";21,11 ;"";20;"";19,13 ;"UNREST" YSA=110 :.02{# =,20:.02{# =,19:.02{# =,21:A Z(A=114:B=114 ]<P(A,B)=0P(A,B)=6ū(A,B)1287050 bQC=P(A,B):*8>3-(G(Q(C,1),Q(C,2))=G(A,B))7050 lkK$=(A,B+16):0;8;8;1;A,B+16;K$:.02{# =,10 :U=U+1 B:A  E3=E3+1:1050:5:0:A=1718:A,11 ;"":A:19,0;"REVOLUTION":A=2021:A,11 ;"":A ?A=1152:B=AA+5:.015zu\,B:B:A (A=114:B=114 @(A,B+16)<64@ū(A,B+16)12874808 5P3=P(A,B):RD=G(A,B):RS=10 *(G(A,B)-G(A,B)) D*6>4-(G(Q(P3,1),Q(P3,2))=RD)74808 P(A,B)=0:4060  |0:1:7:U=110 :ٺ(*7):A,B;"":.02{# =,10 :A,B;"":.02{# =,12 :U 0;0;A,B;A$(RD) C0;8;8;7;A,B+16;(A,B+16) X(P3,RD)=15200P 8B:A G LE8>0 N#E8>0ƥ<.2~L90102# Q1050:2:6:1;17,5;"GALACTIC PLAGUE";0;19,1;"SYSTEMS AFFECTED LOSE 1 FORCE";20,1;"POINT PER TURN AND ARE SHOWN ";21,1;"AS FLASHING CHARACTERS " V$A=060<:.01z# =,A:A `E8>07525e b_L=(*14+1):C=(*14)+1:G(L,C)=7ū(L,C)1287522b cG$(1,1)=L:G$(2,1)=L:G$(1,2)=C:G$(2,2)=C:1;8;8;7;1;1;L,C+16;"" dE8=7502N eBL=G$(1,1):L=L+(+.5):L>14L=14 fZG$(1,1)=L:L=G$(1,2):L=L+(+.5):L>14L=14 gXG$(1,2)=L:L=G$(2,1):L=L-(+.5):L<1L=1 hXG$(2,1)=L:L=G$(2,2):L=L-(+.5):L<1L=1 iG$(2,2)=L:L=G$(2,1)̯G$(1,1):C=G$(2,2)̯G$(1,2):G(L,C)=7ū(L,C)64@ū(L,C+16)1287590 j>.733337;8;8;1;1;1;L,C+16;"":.04|# =,-10 C:L  =1050:E9=(*2)+1:7690 +E9*20 1;17,9 ;"TRADE BOOM";0;19,1;" EMPIRES TAKE ADVANTAGE OF ";20,1;" SMUGGLING,SLAVERY AND GREED. ";21,1;"DOUBLE FP. INCREASE NEXT TURN" ( 7740< 2E9=-1:1;17,8;"TRADE SLUMP";0;19,0;" A SUDDEN SLUMP RESULTS FROM ";20,0;"UNCONTROLLED ECONOMIC EXPANSION";21,0;" NO FP.INCREASE NEXT TURN " <7A=016*E9E9/2:.2~L,A:A:  7500L @h1050:17,10 ;"BLACK HOLE";19,8;"SYSTEM IS CONSUMED" JL=(*14)+1 OC=(*14)+1 T-G(L,C)=7ū(L,C)1288010J ^P(L,C)=08080 hMP3=P(L,C):L3=L:C3=C:RD=G(L,C):RS=10 *(G(L,C)-G(L,C)):4060 u7:0:0:0:A=26-10 -2:0;L,C;"";L,C+16;"":.02{# =,A /L,C;" ";L,C+16;" ":P(L,C)=0:A /R(G(L,C))=R(G(L,C))-1:G(L,C)=7  V1=(*10 )+5:1050:17,0;"COMMAND COMMUNICATIONS SUFFER";19,0;" MAXIMUM OF ";20-V1;" ";19,16;" COMMANDS NEXT ";20,0;" COMMAND PHASE DUE TO EXCESSIVE ";21,10 ;"BEAUROCRACY" OA=20-10 -1:.03{u\,A:.03{u\,A-5:A:400  l1050:17,0;"NEW RESOURCES DISCOVERED";19,1;"SYSTEMS INCREASE IN RES LEVEL" v+V=1̺(*6)+2:U=0 {?U=U+1:L=(*14)+1:C=(*14+1) }U>5028380 -P(L,C)=0ū(L,C)1288315{ %G(L,C)-G(L,C)>.2~L8315{ G(L,C)=G(L,C)+.1}L P3=P(L,C):S(P3,3)=S(P3,3)+1:L6=Q(P3,1)-L:C6=Q(P3,2)-C:S(P3,1)=S(P3,1)+(1/((L6*L6)+(C6*C6))+.5) G7:10 *(G(L,C)-G(L,C))+2:8:8:1 JA=011 :L,C+16;"":.02{# =,A:L,C+16;"":A V 0: !41050:17,0;"OVER EXPLOITATION OF RESOURCES";19,1;"SYSTEMS DECREASE IN RES LEVEL" !>+V=1̺(*6)+3:U=0 !C?U=U+1:L=(*14)+1:C=(*14)+1 !EU>5028580! !H-P(L,C)=0ū(L,C)1288515C! !M%G(L,C)-G(L,C)<.2~L8515C! !OG(L,C)=G(L,C)-.1}L !PP3=P(L,C):S(P3,3)=S(P3,3)-1:L6=Q(P3,1)-L:C6=Q(P3,2)-C:S(P3,1)=S(P3,1)-(1/((L6*L6)+(C6*C6))+.5) !RG7:10 *(G(L,C)-G(L,C))+2:8:8:1 !WUA=11 0-1:L,C+16;"":.02{# =,A:L,C+16;"":A !V ! 0: !DK=1 !(1050:17,1;"";18,1;"";19,1;" DRAKAR INVADE THE GALAXY ";20,1;"";21,1;"" !!DK=1:U=100d !;A=-3020:.02{# =,A:.02{# =,A+4:A !?L=(*14)+1:C=(*14)+1:U=U-1 !,W$="1"G(L,C)-G(L,C)<.38615! !cU=01050:7;0;1;18,2;"THE DRAKAR INVASION FAILS": !+G(L,C)=7P(L,C)08615! !Q(6,1)=L:Q(6,2)=C:P(L,C)=6:RS=10 *(G(L,C)-G(L,C)):S(6,1)=RS:S(6,3)=RS !@1;7;0;1;1;1;L,C;"" !;0;7;8;0;L,C+16;9 ! #) #21050:E8=0:1;17,6;"MEDICAL BREAKTHROUGH";0;19,10 ;"END OF PLAGUE" #<)L=114:C=1730 #>.01z# =,L+C #A@0;8;8;7;1;1;L,C;"" #FC:L #K #w1050:6;0;1;18,1;"DO YOU WANT TO SAVE THE GAME ?";20,13 ;"Y OR N" #!K$=:K$"N"K$"Y"9110# #.2~L,20:K$="N" # 1050 #"SAVED NEB."9200# #"NEB-SCREEN" # #"" # 0 # 650 $T#JP=(+.5)*13 +1 $U&SP=1:JP=14SP=-1 $V*I=JP15-JPSP:T=JP15-JPSP $Y+G(I,T)=7P(I,T)<69320h$ $^5P(I,T)=6ư(I,T+16)>29340|$ $hT:I $mEG=1:903 $|L=I:C=T:803# $rL1=0:S=0:R=0:F=(L,C+16):K=((F-2)/1.5@+.5):A=L-KL+K:B=C-KC+K $7A<1A>14B<1B>149500% $VG(A,B)=7P(A,B)=6ū(A,B)128ū(A,B+16)1289500% $RS=10 *(G(A,B)-G(A,B)) $RS>SS=RS:L1=A:C1=B $.RS=SRS>0ƥ>.6S=RS:L1=A:C1=B %B:A %!nL1=07;0;8;8;1;1;C(U,1),C(U,2);"":9320h$ %&OL=L1:C=C1:C(U,3)=L1:C(U,4)=C1:K$=(F+47/):810* & 1050:500 &LK$=(A,B):0;8;8;8;7;A,B;(K$)-1 &.C=2015-1:.01z# =,C:C &$P(A,B-16)=0730 & L3=A:C3=B-16:RD=G(L3,C3):P3=P(L3,C3):K$="1"7;8;0;1;1;A,B;"":RS=10 *(G(L3,C3)-G(L3,C3)):4060:P(L3,C3)=0:7;0;8;8;1;1;L3,C3;"" &%7X(P3,RD)=1K$="1"X(P3,RD)=0:5200P &* 730 &t0:f=0127127:a=130:l=64@*(a*/60<):c=64@*(a*/60<) &f,47/:64@-l,64@-c:f,175:64@-l,c-64@:128+f,47/:l-64@,64@-c:128+f,175:l-64@,c-64@ &a:f:1050 &