loader  ""save loader":"loader"20 31:0:0:0::62899 4"":13 ,0:0:6:6: ("":13 ,0:"" a @~B<|~<|BB<<~~<|~|~~~~~~~BD888`f`ff`|DD@|f|ff|?BDx8>f|f||B<@f`~|`| <~~|!!B@Bb@~~x$B@BR<`~~x!~~@~J`~~|!!B@BFB``fBB~BB><`|f<`|fZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvqqqqqqqqqqqqqqqqqqqqqqvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrrvvrrvrrrrrrrrrrrrvvvvvvrrrrrrrrrvrrrrrrrrrrrrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrvvvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrvvvvvvpppppvppppppppvvvvrrrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrvvvvllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZCODE K M $$$~$$~$>(> >bd&F(*D:  >>> ~bRJFF~~B~`~~BF~@@hh~~B@~~~@@~bb~~ @~BB~bb~~BB~ >>!d:x\_͵>222>2:G?2:G?2: !w:G> w:w:G>w :w: w:G> w:w:G>w :w:<2:<2: I:8>22:28I2I 888&. {(z>!@P P .@$= !@Z Zɰ .@$= > G^>>VG![~(M:\ >w<ݾw(4(0G~ ((2\^Ð k~^S[~<^z2k!`[6~0707::;;{[[#S[ @{ _S[5 {>_S[~< !P"[![!@"[!q"6\![~<(=##!<"6\!@!H!P\} o6|$c ![ 6C ![ 6 #~# o&)))[6\( R[{\[[~#[[{S[zX >@WS[@W񇇇_S[ p8|||||||||||||||||>>>>>>>>>>>>>>>>>! $ '" % (" % (" % (#*&*) Neptune Computing 1983&Xz0$G{( oq*\:\![~wx x ! ͵ !\6#:F\:|\ |6~(r:\Fw(e(b !͵~ w2\>2\> 2\G^m0 2x )~(Z=wF<2\>2\>2\^> 2\^7&[~2\~2\w^>2\^~w2\"\Ð  PRINT=+24191 COC[*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xT88T<<&<~~<<~~<BB~BBB>>BB<DD8TT8BB< v\Av#jj#  @'''4#Ѷ\\]b45c1]k||v\&Bm\?X!!@P!!d K SR PU ![~G~w~G~w ~~=w~=ww w b^6`|g}o"[~ ,^,^I^![~ ]b^U]]F ~w d8w ~=w8 w ~2\*["\^>2\^>2\~2\~<2\^>2\^"{\*x\|g~g,͵v*[ ͵R"[![ w#[{\n &[:\8֐_*{\ [6\o&)))@K\y 0lx0g8 zW򇇇_:[( #~#:[ :[O[\&Xz0$G{( oq[\{ S\Ð 423635S\,23637U\:23636T\,23638V\ ![6>2\>2\>2\>22[^^>02[ ^> 2\>2\^6w6w w 6 >2[~8> 2[> 2\6>2\>2\^6~9832[x0wxO2\>2\^>2\y2\^>2{\6>2[>O2\Wx2\z2\^< >2\=2\`>2\x2\`>2\>2\`>X2{\q^6^^r^6^^s^ *x\|g~Gg͵v!͵R|.a!͵R| ɗ2[!\2\2\>2[6^6^6^6^6^6^>2\^>2\^6^6^6^6^6^6 >2[c. b> 2[ b&.>(2[ b&. b& . bLB{2\y2\^ y Ð + 423636T\,23638V\:23635S\,23637U\ 23659k\,0 a9500%:"9500":y()=(o,o)ɰ"31":x()=(1+*8):z()=y()+q(9 ):t="9950" sta=o:kli+base9240$ ;#0;"COMMAND ":23457[,7:2700 :""  sr=o:w A$5P=o ;anti=tu64109m:3600:64100d:10 anti=wanti=tu en>5en=en-5 time=time-w:SCo=SCO-.2~L time700:9250"$ +>.99}panti=-wa=abb=bb6000p dae1900l ba8410 newws$"l"f(a,b)fx>x-tufxy-tufy128700 >8:8:s$="":a>8a8b5Z(A,B)=8 ""z(a,b)=8k(a,b)3062 $?newws$"l"f(a,b)fx>x-tufxy-tufy8a<1b>8b<1s$="l": Wy*2-1,x*2-1;5;1;""q(9 );" "q(9 ) 0a$=(""q(9 ))+(" "q(9 )):2 z=1s(a,b) 6c(z)=(1+*8):d(z)=(1+*8) 0n=d(z)*2-1:m=c(z)*2-1 (n,m)5410  n,m;a$:z f(a,b)445 yfx=(1+*8):fy=(1+*8):m=fx*2-1:n=fy*2-1:(n,m)5435 71;5;n,m;""q(9 );" "q(9 ) l(a,b)460 ‡lx=(1+*8):ly=(1+*8):el=500:m=lx*2-1:n=ly*2-1:(n,m)5450 .3;n,m;""q(9 );" "q(9 ) z=1b(a,b) g(z)=(*8+1):h(z)=(*8+1):n=h(z)*2-1:m=g(z)*2-1:(n,m)5480 n,m;o;" ":z 0nn=w :'a$=(""q(9 ))+(" "q(9 )) 8a8b>4;y(n)*tu-w,x(n)*tu-w;""q(9 );" "q(9 ) Hn RN5;y*2-1,x*2-1;""q(9 );" "q(9 ) \ q(4) sa=x():sb=x() a=sab=sb910 y$=" *SUBSPACE MESSAGE*":s:Y$="QUADRANT "+SA+"-"+SB+" STATUS "+F(SA,SB)+"-"+L(SA,SB)+"-"+K(SA,SB)+"-"+S(SA,SB):s: >w/tuŨY()1070. hx=lx:hy=ly dx=lx-x:dy=y-ly Ldx>dydy=dy/dx-.2~L+:dy=dydyw+dy*(dy>w):dx=-dx:1060$ 7dx=dx/dy-.2~L*:dx=-dxdxw+dx*(dx>w):dy=dy $&w$="VAGAN PLASMA BOLT":2400` : .dx=lx:dy=ly:2600( 84w:EN=EN-EL*SHE*10 /(9 +(LX-X)+(LY-Y)) B(2900T :*SHE>.61800 DEN09000(# G Vm=(1+*k(a,b)) `dx=x(m):dy=y(m):2600( j7EN=EN-E(m)*SHe*10 /(9 +(X(M)-X)+(Y(M)-Y)) o 2900T tEN09000(# ~*SHE>.9ffff1800  SC=o:HSC=SC A1=x():B1=x() ]K(A1,B1)L(A1,B1)F(A1,B1)A1>A-3A1B-3B18N>81280 -SC=K(N,M)+11 *L(N,M)+(14F(N,M)) SC>HSCHSC=SC:AH=N:BH=M M:N hsc13302  N=(*K(A1,B1)+1) K(AH,BH)>MK-NN=MK-K(AH,BH) *K(AH,BH)=K(AH,BH)+N:K(A1,B1)=K(A1,B1)-N ('F(AH,BH)K(AH,BH)>48300l < n=(1+*11 ) !2o*24869%a:c$="HAS ":N=3C$="HAVE " &tQ(N)Y$=Q$(N,R(N))+C$:i=5:S:Y$="SUSTAINED MORE DAMAGE":i=5:S:Q(N)=Q(N)+(2++11 ): 0N=3SHE=2 :Q(N)=(2+*11 ):DAE=DAE+1:Y$=Q$(N,R(N))+C$:i=5:S:Y$="BEEN DAMAGED":i=5:S:n=9 èy()750 N vN=111 Q(N)1970 Q(N)=Q(N)-1 Q(N)1970 "c$="HAS ":n=3C$="HAVE " CDAE=DAE-1:Y$="DAMAGED "+Q$(N):S:Y$=C$+"BEEN REPAIRED":S N=3SHE=1 n=9 èy()720 N   m=1 e(m)>02080  (qx=tu*x(m)-w:qy=tu*y(m)-w:2950 bi=6:y$="VAGAN SHIP DESTROYED AT "+X(M)+"-"+Y(M):350^:i=6:Y$=W$:350^ "SCO=SCO+1:KLI=KLI-1 M=K(A,B)2065  0X(M)=X(K(A,B)):Y(M)=Y(K(A,B)):E(M)=E(K(A,B)) K(A,B)=K(A,B)-1 MK(A,B)2020  M=M+1 *MK(A,B)2020 4  z=0  A$="" .A$(1)=" "A$=A$(2):2210 n=1̱A$ +A$(n)>579ůA$<480A$(n)" " A$(n)=" "2270 n %n=n-1:z=2z=0: p(z+c)=A$(n):z=z+1 &A$>nA$=A$(n+1):2210  `gj=0:wx=hx:wy=hy:23446[,q(9 ):23442[,hx:23443[,hy:23451[,16 ohy=hy+dy:hx=hx+dx t&ey=(hy+.5):ex=(hx+.5) ~8j=j+1:eyexex>8ey>82640P 23447[,ex:23448[,ey %wx=ex:wy=ey:ex=xey=y2560 ,z=(ey*2-1,ex*2-1) z=52410j \q1:z=oi=5:Y$=W$+" FALLEN":S:i=5:Y$="INTO BLACK HOLE AT "+EX+"-"+EY:S w:qx=tu*ex-w:qy=tu*ey-w:u=47:.01z# =,(u-5)*10 :qy,qx;u;" ":u:.01z# =,30:qy,qx;7;1;" ":o:z22510 k=1s(a,b) ex=c(k)ey=d(k)i=5:Y$="STAR DESTROYED AT "+EX+"-"+EY:S:i=5:Y$="BY "+W$:S:C(K)=C(S(A,B)):D(K)=D(S(A,B)):S(A,B)=S(A,B)-1:b(a,b)=b(a,b)+1:g(b(a,b))=ex:h(b(a,b))=ey:2580 k Οz=3i=6:SCO=SCO+5:Y$="VAGAN BASE DESTROYED AT "+EX+"-"+EY:S:i=6:Y$="BY "+W$:S:L(A,B)=0:BASE=BASE-1:2580 z69E2530 bi=3:Y$="STARBASE DESTROYED AT "+EX+"-"+EY:S:i=3:Y$="BY "+W$:S:F(A,B)=0 SCO=SCO-10 ba8480 ! 2580 K=1K(A,B) X(K)=EXY(K)=EYi=6:SCo=SCo+1:Y$="VAGAN SHIP DESTROYED AT "+EX+"-"+EY:S:i=6:Y$="BY "+W$:S:X(K)=X(K(A,B)):Y(K)=Y(K(A,B)):E(K)=E(K(A,B)):K(A,B)=K(A,B)-1:KLI=KLI-1::2580 K  q1:she=tu9000(# i=4:Y$="HIT ON ANDROMEDA BY":S:i=4:y$=W$:S:m=1̺(1+*2):1800:m:0;2*Y-1,2*X-1;""q(9 ): -5*(z2);tu*wy-w,wx*tu-w;" "  Qw;o;8;(tu*23443[)-w,(tu*23442[)-w;""q(9 ):o*v: (]èz():1:dx*16-4,179-dy*16:(x-dx)*16,(dy-y)*16 2>bo=23624H\:6:װ".01",o:"23624",bo:װ".01","5" .32723 Cn=1200-le*20:23455[=02880@ n s$="l"2740 )w/tu8000@ %<.001wn900:2880@ (<.00004r'ŬF6000p:2880@ 1200 @23455[2710 J=A$="":N=1̾23458[:A$=A$+¾(23459[+N):N: T enDYDY=DY/DX:Dx=Dx:3160X NDX=DX/DY:DY=DY X 2400` bN: y()700 YQ(5)Q(6)I=3:FL=1:Y$="BOTH LASERS ARE DAMAGED":350^: C#o;"DIRECTION(S) (0360) ":23457[,23:2700 :""  a$="AB" 'c=1:2200:Z2330 Q=Z 6#o;"ENERGIES ":23457[,8:2700 :"" % a$="AB" *(C=3:2200:ZQ3360 4fQ=1Q(5)Z=2:Q=2:p(2)=p(1):p(4)=p(3):3410R >IZ=w:Q(5)I=4:FL=w:z=tu:Y$="LASER 1 DAMAGED":350^ HYQ=2Q(6)Q=1:I=4:FL=1:Y$="LASER 2 DAMAGED":350^ RN=ZQ:o*"24901" \UP(N+2)>ENY$="LASER "+N+" FAILED,NOT ENOUGH":s:Y$="ENERGY":s:3580 f:en=en-p(n+2):p(n+2)=p(n+2)*2.01 ks$="l"3580 pL(A,B)3510 zDX=LX-X:DY=Y-LY DYDY=1E-3wn RAN=(DX/DY)*180/+(180DY<0)+(360hDX<0DY0) *L=(P(N)-AN):L>350^L=360h-L L<10 EL=EL-P(N+2)*(10 -N)/(9 +DX+DY):EL>0i=6:Y$="LASER "+N+" HIT ON VAGAN BASE":350^:i=6:Y$="AT "+LX+"-"+LY:350^ EL<0qy=ly*2-1:qx=lx*2-1:2950 :i=6:SC=SC+5:Y$="VAGAN BASE DESTROYED AT "+LX+"-"+LY:BASE=BASE-w:L(A,B)=o:s M=1K(A,B) *DX=X(M)-X:DY=Y-Y(M):DYDY=1E-3wn TAN=(180/)*(DX/DY)+(180DY<0)+(360hDY0DX<0) *L=(P(n)-AN):L>350^L=360h-L ަL<10 E(M)=E(M)-P(n+2)*(10 -L)/(8+DX+DY):E(M)>0Y$="LASER "+N+" HIT ON VAGAN SHIP":350^:Y$="AT "+X(M)+"-"+Y(M):350^ M +K(A,B)w$="HIT BY LASER "+N:2000 2900T :N: Kanti=-1Y$="YOU HAVE USED YOUR ONLY":S:Y$="ANTIMATTER BOMB":S: $ANTI3670V .:6:1:e$="WARNING":9450$:4:0:7,0;"ANTI-MATTER BOMB HAS BEEN PRIMED";10 ,3;"DETONATION 1 STARYEAR" 8M19,0;"DO YOU WISH TO ABORT DETONATION (YN)":8:8 B>="y""ANTI-MATTER DETONATION ABORTED":.3,20: Lo="n"21,0;"ANTI-MATTER BOMB RELEASED":ANTI=1-2*(s$="l"):AB=A:BB=B:.4L,o: Q 3650B V 200: `1;" DESTROYED":KLI=KLI-K(AB,BB):K(AB,BB)=0 ~jL(AB,BB)SC=SC+2:14,0;"1 VAGAN BASE DESTROYED":BASE=BASE-1:L(AB,BB)=0 VF(AB,BB)SC=SC-10 :17,0;"1 STARBASE DESTROYED":F(AB,BB)=0 Fn=1ba:u(n)=bbt(n)=abu(n)=u(ba):t(n)=t(ba):ba=ba-1 n 3n=1300,:n=n:n:200:700 A=ABB=Bb9000(#  ANTI=-w: y()700  a1=a:b1=b Gq(tu)i=4:fl=1:y$=q$(tu,r(tu))+"DAMAGED":350^: F#0;"COURSE (0 TO 360) ":23457[,17:2700 :""  A$="AB" N=1̱a$ -a$(N)>579ůA$(N)<4804030 N ANG=A$*/180 GIM=8:#O;"POWER (1 6) ":23457[,14:2700 :""  a$="AB" q(tu)4020 3A$1ůA$>546ůA$<4914080 WA=A$ DENX=(X+8*wa*DX+.5):Y=(Y+8*wa*dY+.5) h1Y>8Y=Y-8:B=B+1:4200h r1Y<1Y=Y+8:B=B-1:4210r |1X>1X=X-8:A=A+1:4220| 1X<1X=X+8:A=A-1:4230 P0:0::ex=638008:7:7::30:400: 5#8:8:y()700 : b2=b:a2=a DHq(1)i=4:fl=1:y$="ION DRIVE DAMAGED":350^: N=#O;"COURSE (0360) ":23457[,17:2700 :"" S A$="AB" XA$=""űA$>34430N bN=1̱A$:M=A$(N) l#M>579M<4804430N vN ANG=A$*/180 @#0;"POWER (17) ":23457[,14:2700 :""  A$="AB" q(w)4420D 3A$1ůA$<491ůA$>5574500 IM=A$ ZEN8X=X-8:a2=a2+1 'X<1X=X+8:a2=a2-1  'Y>8Y=Y-8:b2=b2+1 *'Y<1Y=Y+8:b2=b2-1 >"A2AB2BA=A2:B=B2:400 C-8:8:8,23;x;",";y H L23446[,q(9 ):23442[,x:23443[,y:23451[,32 c$=" " dy=-ang:dx=ang  ex=x:ey=y (dx>dydy=dy/dx:dx=dx:4840 dx=dx/dy:dy=dy n=1im .hy=(y+n*dy+.5):hx=(x+n*dx+.5) |hy>8hy<1hx>8hx<10;ey*2-1,ex*2-1;" "Q(9 ):4940L: Dj=(hy*2-1,hx*2-1):j5:4880 ex=hx:ey=hy:n:4940L: ?j=0ex=hx:ey=hy:c$="b":b=x():a=x():4940L: ac$=("STARBASE"J=69E)+("VAGAN BASE"J=3)+("STAR"J=2)+("VAGAN SHIP"J=4) $ 4940L .YY$="EMERGENCY REVERSE THRUST APPLIED":350^:Y$=C$+" AT "+HX+"-"+HY:350^: ~(23447[,ex:23448[,ey:o*v: long range scan 6:0:0::0,0;2;"Q ";A;",";B;0,27;"S ";X;",";Y;6;0,8;"LONG RANGE SCAN" -Q(10 )14,10 ;"DAMAGED": g20,1;"-STARBASES -STARS";21,1;"-VAGAN SHIPS -VAGAN BASES" Jn=02:4+n*5,0;""'""'""'"":n  N=14828-40( "15,N:239,0:N N=1525580P $N,148:0,-120x:N .n=a-1a+1:m=b-1b+1 5m<1n<1n>8m>85200P =(m-b)*5+9 ,(n-a)*10 +12 ;""f(n,m)  >(m-b)*5+12 ,(n-a)*10 +12 ;""l(n,m) 2(m-b)*5+10 ,(n-a)*10 +12 ; $2:j=1s(n,m):"";:j (2(m-b)*5+11 ,(n-a)*10 +12 ; 2$4:j=1k(n,m):"";:j Pm:n Z zC=(*4) Vc$=("ELECTRICAL"C)+("RADIATION"C=1)+("DUST"C=2)+("ENERGY"C=3) /Y$=" **"+C$+" STORM**":S $m=1̥*4:1800:m S$="l"6060 K(A,B)ƥ>.5N=(*K(A,B)+1):Y$=N+" VAGAN SHIP"+("S HAVE"N1)+(" HAS"N=1):S:Y$="BEEN DESTROYED":S:K(A,B)=K(A,B)-n:kli=kli-n:èy()j=k(a,b)+1k(a,b)+n:0;5;y(j)*2-1,x(j)*2-1;" ":j _>.73333C=3Y$="DI-LITHIUM CRYSTALS HAVE BEEN":S:Y$="RECHARGED":S:EN=4000  6mx=a+(*3-1):my=b+(*3-1) b[0:4:0::23532[,0:5:e$=" GALAXY CHART":9450$ l246328` &N=18:M=18 z(m,n)=07150 =Z(M,N)=3;4+2*N,2+M*3;"" @Z(M,N)=1;4+2*N,2+M*3;"" =Z(M,N)=2;4+2*N,3+M*3;"" DZ(M,N)=45;4+N*2,2+M*3;"XX" HZ(M,N)=81;4+N*2,2+M*3;"" M:N ;s$"l"5;4+b*2,2+a*3;""  *.o:o::4:e$="DAMAGE REPORT":"9450" >Q(11 )7420 H8DAE5;10 ,7;"ALL SYSTEMS A.O.K": Rk6;4,o;"SYSTEM";5,o;"DAMAGED";4,22;"TIME TO";5,22;"REPAIR"' \6N=111 :Q(N)3;'Q$(N);" ";Q(N) fN: o:o 6:5:e$="*STATUS REPORT*":9450$:4 _Q(11 )N=-10 ̺(*100d):*21,*31;º(*130+33!):N: _6:4,o;"ANDROMEDA AT QUADRANT ";A;"-";B;5,14;"SECTOR ";X;"-";Y .4:7,0;"CLOSEST STARBASE" S$="l"7443 ;f(a,b)7,19;"SECTOR ";FX;"-";FY:7450 cN=A-1A+1:M=B-1B+1:n<1m<1N>8M>87445 ;F(N,M)7,19;"QUADRANT ";N;"-";M:7450 M:N 7,23;"UNKNOWN" $5:9 ,0;"STATUS" 9 ,23;"LOST "S$="l";"DOCKED"S$="d";6;"YELLOW"S$="";4;"GREEN "S$="g";"*RED* "S$="r" $310 ,0;"ENERGY";10 ,23;EN .:3:12 ,0;"NO OF SYSTEMS DAMAGED ";DAE 8?6:14,0;"STARDATE";14,23;DATE B715,0;"TIME LEFT";15,23;TIME LG4:17,0;"PLASMA BOLTS LEFT";17,23;NPO VT18,0;"ANTI-MATTER BOMB";18,23;"UNUSED"ANTI;"USED"ANTI `F2:20,0;"VAGAN SHIPS LEFT";20,23;KLI j>21,0;"VAGAN BASES LEFT";21,23;BASE t @y() ^*mx=a+(*3-w):my=b+(*3-w) h7mx8my8mx=amy=b8200 r k(mx,my)l(mx,my)8200 |n=(*k(mx,my)+1) n+k(a,b)>mkn=mk-k(a,b) &k(a,b)=k(a,b)+n:k(mx,my)=k(mx,my)-n kn.2~L,-10 :.4L,0:y$=n+" VAGAN"+("S"n>1)+" ENTERED QUADRANT":S:281  NN=K(A,B)-N+w:qq=w:570:  vN=1BA AH=u(N)BH=T(N) N 6F(AH,BH)=10 :BA=BA+1:U(BA)=AH:T(BA)=BH q(4)n=12:.1}L,-10 :.1}L,20:n:Y$=" *SUBSPACE MESSAGE*":350^:Y$="STARBASE UNDER ATTACK AT "+AH+"-"+BH:350^:Z(AH,BH)=8  N=1 |k(u(n),t(n))u(n)=u(ba):t(n)=t(ba):ba=ba-1:y$="CONGRATULATIONS ON SAVING YOUR":S:Y$="STARBASE":S:8450! =F(U(N),T(N))=F(U(N),T(N))-1:F(U(N),t(N))8460 ! Q(N)z(U(n),t(n))=2:Y$=" *SUBSPACE MESSAGE*":S:Y$="STARBASE DESTROYED BY VAGAN":S:Y$="FIRE AT "+U(N)+"-"+T(N):S Ma=u(n)b=t(n)0;5;fy*2-1,fx*2-1;" " 'U(N)=U(BA):T(N)=T(BA):BA=BA-1 !NBA8415 ! N:5:0,5;"*SUBSPACE MESSAGE*";3,0;"FROM : STARFLEET COMMAND";5,0;"TO : USS ANDROMEDA" !H8,0;"A FLEET OF";9 ,10 ;6;KLI;5;9 ,14;"VAGAN SHIPS WITH";10 ,10 ;6;BASE;10 ,14;5;"VAGAN BASES" !R11 ,0;"HAVE INVADED ";O$;".";13 ,0;"YOU HAVE ";6;TIME;5;" STARYEARS TO"'"DESTROY THESE VAGANS BEFORE"'O$;" IS DESTOYED" !\17,0;6;F;5;" STARBASES HAVE BEEN SENT TO"'"ASSIST YOU ON YOUR MISSION.";20,0;"GOOD LUCK !";#0;" PLEASE WAIT A MOMENT" "V "`le=o:8870" "jle=9 8800`" "t%.1}L,0:o$:le=le+1 "~1"":#o;"BATTLE ZONE *";O$;"*";27;"(Y/N)" "="n"8810j" "="y".1}L,5: " 8840" "\"SIRIUS","ALDEBARAN","NEPTUNE","ANDROMEDA","PLEIADES","RIGEL","BETELGEUSE","DENEB","ORION" #' #(,0:0:0:y()700 # j=o7 #64003,8+j #64007,8-j #64005,8+j #64009 ,8-j #n=1250502 #620011,n #64000 #n #j #64003,21 #64007,o #64005,31 #64009 ,o #n=52505 #64001,n #(*8) #64000 #n #s=s+w:64001,7 #o:o:"":64e3 $23455[,o:SCO=SCO-10 :I=4:y$="ANDROMEDA DESTROYED":S:Y$="":S:Y$="POSTHUMOUS RANK IS:":S:Y$="":S:9345$ $SCO=SCO+20+LE*5 $!I=6:Y$="MESSAGE FROM STARFLEET COMMAND":S:I=4:Y$="ALL VAGANS HAVE BEEN DESTROYED":S:I=5:Y$=" "+O$+" IS SAVED":S:Y$="YOUR NEW RANK IS:":S:9345$ $#I=6:Y$="MESSAGE FROM STARFLEET COMMAND":S:I=4:Y$="VAGANS NOW CONTROL "+O$:S:I=5:Y$="OUT OF TIME - MISSION OVER":S:Y$="YOUR NEW RANK IS:":S:9345$ $,y()700 $-vI=6:Y$="ANDROMEDA OUT OF ENERGY":S:Y$=" MISSION ENDED":S:Y$="":S:I=4:Y$="YOUR NEW RANK IS:":S $,scooy$="INTERGALACTIC COOK":9375$ $Psco70Fy$="CREW HAND":X=1+((60<-SCO)/14):9375$ $Qsco120xy$="ADJUTANT":X=1+((110n-SCO)/10 ):9375$ $Rsco160y$="LIEUTENANT":X=1+((160-SCO)/8):9375$ $Osco200y$="CAPTAIN":X=1+((200-SCO)/8):9375$ $Y$="ADMIRAL" $:Y$=" "+Y$+(" CLASS "+XSCO>0SCO<200):S $423455[,o:"":#0;"Play again (y or n)?" $="y"5 $="n"0 $ 9385$ $23532[,0 $ E$=E$+"" $+J$(17):J$(9 -E$/2)=E$ $-J=117:23391_[+J,j$(J):J %64256 % %&236066\,180:236077\,244:64100d:o=0:w=1:tu=w+w::w:w:6:23624H\,14:23658j\,o %*923659k\,2:fl=0:i=7:DAE=0 %+s$="":c$="" %55::23532[,0:E$="VAGAN ATTACK":9450$:3;8,6;"Written by";4;11 ,11 ;"JOHN GREEN";6;21,8;" 1983 JOHN GREEN":6 %C 8800`" %date=(*"3e3"+"2e3") %base=(tu+le+*le) %)time=(40(+15*le+*20) %!mk=(5+le/tu):mo=3 %*kli=(10 +le*10 +*le*5) %f=(tu+*6) %k=kli:l=base % 85004! %db(8,8):s(8,8):k(8,8):f(8,8):l(8,8) %en=4480 %1q(11 ):q$(11 ,20):r(11 ) %/9710%:n=111 :q$(n),r(n):n %"ION DRIVE",10 ,"TETRON DRIVE",13 ,"SHIELDS",8,"SUBSPACE RADIO",15,"LASER 1",8,"LASER 2",8,"PLASMA TUBE 1",14,"PLASMA TUBE 2",14,"SHORT RANGE SCANNER",20,"LONG RANGE SCANNER",19,"COMPUTER",9 %In=18:m=18:s(n,m)=(1+9 *):m:n & n=1base &$x=x():y=x():l(x,y)9750& & <l(x,y)=1:kl=(1+*4):k(x,y)=kl:k=k-kl &*n &4x=x():y=x():kl=(w+*mk) &> kl>kkl=k &Ck(x,y)+kl>mkkl=mk-k(x,y) &Hk(x,y)=k(x,y)+kl &Rk=k-kl:k97804& &\ n=1f &fx=x():y=x() &p*k(x,y)>5f(x,y)l(x,y)9830f& &z f(x,y)=w:n & a=x():b=x():x=x():y=x() &q1=2591 :v=23762\:o=0:w=1:tu=w+w:P=o:new=p:T=9950&:SCO=p:ab=p:bb=p:qq=p:ANTI=o:SM=3:ba=p:she=w:NPO=12 :S=350^ &U(8):T(8):z(8,8):p(4):x(10 ):y(10 ):c(10 ):d(10 ):e(10 ):g(13 ):h(13 ) &3"":1;#0;" PRESS ANY KEY TO START" &\0:23674z\,(date/64@):23673y\,date-64@*23674z\:400: &1#0;"PRESS ANY KEY TO CONTINUE":0: 'P"a":"CODE"62900,2635K :" "23556\,54000-23556\: " "23556\,54000-23556\:9999'  v\\v