0p=p*n)q<>0q=q*n)r=c:s=d:q$(c,d)="."l2=1t:l=r+p:m=s+ql>0l<=107160n)+27430,7250,7250m>0m<=107180n)+27430,7190,71d4(4)=06980:y1=0:f=f+300 Df=f-50*t4*y1+.2*(2500-e1)*x1Nf>1000n=1-1)^2)*x6+1'Xc5$="Docked"n=n-s8*(2-1)^2))#bn=0n=((f+200*1))/150)-5)ln=0vn>0x6<1.5n)>s8n=n)*s8)t=n):n>0t>y6t=y6(l)=f3: 122407620:Ia=1:b=1:k=1nh:c=k4(k):d=k5(k):q$(c,d)="C"dx=k:k=nh::k=dx:6910k8n=0:f=k6(k)+100*nh:x6=k7(k):y6=x6):s4=0f=f+1000d4(3)=0d4(4)=06940f=f+1000:6990x1=1:y1=1:d4(3)=06960&x1=0:f=f+30006810r:"Entering the ";,|l5=0g2$;" quadrant (";q1;"-";q2;")"l5<>0n9$;"!"l5<>0m8=1q$(s6,s7)=s5$,1):7680:q$(s6,s7)=s5$,1)l5=1k3=06880,l=1k3:f3=(f4-k4(l))^2+(f5-k5(l))^2)"k8(l)=.5*(f3+k7(l)):k7x7=10*(q1-1)+s6:y7=10*(q2-1)+s7x1=x7+10*d1*b8*d4+.5) "y1=y7+10*d1*b8*d6+.5):l6=0(,l5=0:x1<0x1>80y1<0y1>80l5=16tl5=0m8=0 @t5<>0#Jq1=(x1+9)/10):q2=(y1+9)/10)#Ts6=x1-10*(q1-1):s7=y1-10*(q2-1)^l5=08240hm8=1-k-s6=x7-d4+.5):f4=s6:s7=y7-d6+.5):f5=s7e1>06820f9=4:4400:s6=x1:s7=y1:10410:rv=1f4=s6:f5=s7:6820k3=06670,l=1k3:f3=(x1-k4(l))^2+(y1-k5(l))^2)k8(l)=.5*(f3+k7(l)):g(q1,q2)<>1000920 a2<>0# Entered ***":67500dt6=1:k=50*d1/t1:d1=.1*(s6=x1)^2+(s7-y1)^2).na$=q$(x1,y1):a$="K"a$="C"a$="R"6600xs5$;" blocked by ";,16050:a$;" at sector ";x1;"-";y1:6550rv=1:"Emergency stop required ";r(k);" units of energy."e1=e1q$(x1,y1)<>" "dx=l:l=h9::l=dx:6500 l d1=.1*(s6-x1)^2+(s7-y1)^2)s6=x1:s7=y1(f4=s6:f5=s7#2x1<1x1>10y1<1y1>106820<q$(x1,y1)<>"O"6820Ft2=a(1):t3=a(1)-Pq1=a(1):q2=a(1):s6=b(1):s7=b(1):)Z"*** Space Portalh9=10*d1*b8+.5)l5=1q$(s6,s7)=" "h9=06440l=1h9-x7=x7+d4:x1=x7+.5):y7=y7+d6:y1=y7+.5)(x1<1x1>10dx=l:l=h9::l=dx:6620(y1<1y1>10dx=l:l=h9::l=dx:6620*q$(x1,y1)="O"dx=l:l=h9::l=dx:6420;q$(x1,y1)<>"."62605j"Mr. Sulu - 'Leaving standard orbit, Sir.'":io=0td4=-a5):d6=a5):b8=d4)~d6)>b8b8=d6)d4=d4/b8:d6=d6/b8:t5=0:t6=0d0+t106220:"L.R. Scan for ";/l5=0"quadrant ";q1;"-";q2:" the ";n9$i=q1-1:j=q1+1:k=q2-1:l=q2+1m=ij:n=klm<=0m>86150n<=0n>86150d4(11)=0ps=1s2(m,n)=1g(m,n)<100061r ";r;"-";s12240:)i=q1+(l+9)/10)-1:j=q2+(m+9)/10)-1i<1i>87610j<1j>87610 $g(i,j)+10*ns(i,j)>9997610<.l3=1r2:c1(l3)=ic2(l3)=jdx=l3:l3=r2::l3=dx:7610,8b4=q1b5=q1dx=l3:l3=r2::l3=dx:7610*Bk6(k)>1000dx=l3:l3=r2::l3=dx:7610%Ll3:"*** Commander Escapes to ";3V"quadrant ";i;"-";j;" (and regains strength)"7`k4(k)=k4(nh):k5(k)=k5(nh):k7(k)=k7(nh):k8(k)=k8(nh)%jk6(k)=k6(nh):nh=nh-1:k3=k3-1:c3=0tc5$<>"Docked"7620 ~12240+g(q1,q2)=g(q1,1):y1=y1+s7-h4(m,2):k=k+1:8870"a$<>"C"8850"v=1nh/$"k4(v)=j5k5(v)=j6dx=v:v=nh::v=dx:8760."v#8"k6(v)=k6(v)-800:k6(v)<=08850%B"n5=j5+j5-h4(m,1):n6=j6+j6-h4(m,2)5L""*** Commander at sector ";j5;"-";j6;" damaged";#V"n5<1n5>10*** Starship buffeted by Nova shockwave.":s4<>08650!e1=e1-1500:8680!s3=>15008700'!d6=1500-s3:e1=e1-d6:7620:s3=0:s4=0>!"*** Starship Shields knocked out.":d4(8)=.005*d5*1)*d6!e1>08710!f9=7:4400:!s3=s3-15001"x1=x1+s6-h4(m!f9=6:4400:f!a$<>"B"8620!p!g(q1,q2)=g(q1,q2)-10:v=1r3z!b2(v)<>q1b3(v)<>q28590!b2(v)=b2(r3):b3(v)=b3(r3)&!v:r3=r3-1:b6=0:b7=0:b1=b1+1:76206!"*** Starbase at sector ";j5;"-";j6;" destroyed." !8860!s6<>j5s7<>j68720"@"8550!>!ns(q1,q2)=ns(q1,q2)-1:pk=pk+14H!"*** Planet at sector ";j5;"-";j6;" destroyed."4R!i=15:pl(ip,i)=0::ip=0:px=0:py=0:ld<>18860\)=a5:h4(b9,2)=a6 m=b9t6:q=13:j=13 j*q=48870! j5=h4(m,1)+q-2:j6=h4(m,2)+j-2 j5<1j5>108870 j6<1j6>108870& a$=q$(j5,j6):a$="."a$="O"8870 a$<>"*"8500!1)>.28470!x2=j5:y2=j6:11740:7!t7=t7+1:h4(t7,1)l):l=q2N l<=48290 X l=q2-4b g3$="IV":l=48310l g3$=g4$,l)v g2$=g2$+" "+g3$: 1)>.28340 11740:< q$(a5,a6)=".":"*** Star at sector ";a5;"-";a6;" Novas." g(q1,q2)=g(q1,q2)-1:s1=s1+1 b9=1:t6=1:t7=1:k=0:x1=0:y1=0 h4(b9,1b(1):t=b(1):q$(s,t)<>"."8190 q$(s,t)="O":V "Spock - 'Captain, my sensors detect a space warp somewhere in this quadrant.'":% a=110:b=110:q$(a,b)="."::& q$(s6,s7)=s5$,1):0 g4$="III":l=2:q2=>58260: l=1D g2$=g1$(2*(q1-1)+b6<>08180d4(9)>08170E:10);"You have entered the Romulan Neutral Zone! Unless you"@12);"leave immediately, we shall start an attack against"914);"your puny starship.....We are waiting......."nz=1t2<>q1t3<>q2)s=8080Ahi=1np:ip=i:pl(i,1)=q1pl(i,2)=q2dx=i:i=np::i=dx:8060ri:ip=0:8080)|s=b(1):t=b(1):q$(s,t)<>"."8060q$(s,t)="@":px=s:py=t7620:u<1a=1u)s=b(1):t=b(1):q$(s,t)<>"."8100q$(s,t)="*":rh=0k3<>0i=jnh9s=b(1):t=b(1):k4(i)=s:k5(i)=t:q$(s,t)<>"."79506q$(s,t)="R":k7(i)=(s6-s)^2+(s7-t)^2):k8(i)=k7(i)"k6(i)=450+400*1)+50*s8: ,122406u<108030 @u=u-10-Jb6=b(1):b7=b(1):q$(b6,b7)<>"."8010Tq$(b6,b7)="B"^np=0="K":k7(a)=(s6-s)^2+(s7-t)^2):k8(a)=k7(a)l5<>0q$(s6,s7)=" "k6(a)=1)*150+300+25*s8:r2=07930a=1r2/c1(a)=q1c2(a)=q2dx=a:a=r2::a=dx:7920:7930.q$(s,t)="C":k6(k3)=950+400*1)+50*s8:c3=1rh=07980j=k3+1::b=110:q$(a,b)="."::Zq$(s6,s7)=s5$,1)du<1007930nk3>01)>.7rh=0z3=1xz3=078206:"** Klingons equipped with Cloaking devices **"u=u-100*k3:a=1k3%s=b(1):k4(a)=s:t=b(1):k5(a)=tq$(s,t)<>"."78306q$(s,t)&z3=0:j4=1:b6=0:b7=0:k3=0:c3=0:nh=0' px=0:py=0:rh=0:ip=0:nz=0:io=0:ld=-1l5=07730%a=110:b=110:q$(a,b)=" "::(q$(s6,s7)=s5$,1):2u=g(q1,q2):v=ns(q1,q2)<u>9998220.Frh=v/10):pn=v-rh*10:k3=.01*u):nh=k3+rh%Pa=110,q2)-100:g(i,j)=g(i,j)+100 l3=1r24c1(l3)=q1c2(l3)=q2dx=l3:l3=r2::l3=dx:7600l3c1(l3)=i:c2(l3)=j:a=-a:b=-b:7330c5$="Green"l5=07650c5$="Orange":e1<1000c5$="Yellow"(g(q1,q2)>99ns(q1,q2)>9c5$="RED"n6<1n6>108840)`"" and buffeted to sector ";n5;"-";n6#j"q$(n5,n6)="C":k4(v)=n5:k5(v)=n6,t"k7(v)=(s6-n5)^2+(s7-n6)^2):k8(v)=k7(v)~"q$(j5,j6)="."":8870)"a5=j5:a6=j6:t2$=q$(j5,j6):2900:8870":q$(j5,j6)=".""j:q:m"t6=t78900"b9=t6+1:t6=t7:8380"k=0"d1=k*.1"x1<>0x1=x1)"y1<>0y1=y1)"i=3*(x1+1)+y1+2"d2=c5(i)#d2=0d1=0 #d1=0*#:"Force of Nova displaces starship."#6230:(#p=2:j3=12#c5$<>"Docked"9030=<#"Phasers can't be filanet at ";a5;"-";a6;" destroyed.":pk=pk+1:io=03'ns(q1,q2)=ns(q1,q2)-1:i=15:pl(ip,i)=0::ip=0)'px=0:py=0:q$(a5,a6)=".":ld<>110380'f9=14:4400:(a$<>"*"10320 (1)>.1510280C("*** Star at sector ";a5;"-";a6;" unaffected by Photon bed...Congratulations..You Turkey!"'s2(q1,q2)<0s2(q1,q2)=0'w=1r3 'b2(w)<>q1b3(w)<>q210170'b2(w)=b2(r3):b3(w)=b3(r3)&'w:q$(a5,a6)=".":r3=r3-1:b6=0:b7=0-'g(q1,q2)=g(q1,q2)-10:b1=b1+1:7620:10380'q$(a5,a6)<>"@"10240:'"*** P'q$(p,q)=q$(a5,a6):q$(a5,a6)=".":"Damaged--"/L'" Displaced by blast to sector ";p;"-";q.V'k4(v)=p:k5(v)=q:k7(v)=(s6-p)^2+(s7-q)^2)`'k8(v)=k7(v)j'12240:10380)t'"Damaged, but not destroyed.":10380~'a$<>"B"10190<'"*** Starbase destroy$=q$(a5,a6):2900:103801&a$=q$(a5,a6):16050:a$;" at ";a5;"-";a6;" ";'a7=a8+2.5*(1)-.5)*'w3=-a7)):a7))>w3w3=a7))'x7=-a7)/w3:y7=a7)/w3$'p=a5+x7+.5):q=a6+y7+.5) .'p<1p>10q<1q>10101008'q$(p,q)<>"."101000B)>.19910E&"*** Commander as sector ";a5;"-";a6;" used anti-photon device!"&&" Torpedo neutralized.":10380&v=1nh&a5=k4(v)a6=k5(v)9940&v&k=k6(v):w3=200+800*1)&k) 09980&t2=s6:y5=s7"4&l9=115:x5=x5+x4:a5=x5+.5)>&a5<1a5>1010370H&y5=y5+y4:a6=y5+.5)R&a6<1a6>1010370\&l9=5l9=9f&r(x5);"-";r(y5);", ";p&a$=q$(a5,a6):a$<>"."9860 z&10360&:a$="K"a$="R"9910&a$<>"C"10110&1"Docked"r=r+.001*s3*r%a3=c6+.25*r:n=19740#%a8=(15-a3+(2-z6)*g2)*.5235988:.&"Track for Torpedo number ";z7;"--":9750-&:"Torpedo track --":a8=(15-a3)*.5235988&x4=-a8):y4=a8):b8=x4) &y4)>x4)b8=y4)!*&x4=x4/b8:y4=y4/b8:x5r=(r+1))*.5-.5%r=>-.4r<=.49700%r=(1)+1.2)*r:n=39660$%"*** Torpedo Misfires...":9670,%"*** Torpedo number ";z6;" Misfires..."%1)>.29700+%"*** Photon Tubes damaged by misfire."%d4(4)=d5*(1+2*1)):10390'%s4<>0c5$=:n=1:%b$,1)="-"9490#D%b$,1)="N"b$,1)="n"9590,N%b$,1)<>"Y"b$,1)<>"y"=-1:95205X%"Spread angle: (0 - 45 degrees) ";g2:g2<09490b%g2>45=-1:9560l%g2=g2/60:n=3v%z6=1n%c5$<>"Docked"t4=t4-1%z7=z6:r=1)%sted.":9490$z=094604$zm=0:"Sector coordinates: ";i,j:i<0j<09490%$a3=0:a4=100*i+j:2390:zm=19430$c6=d2:9470$"Torpedo Course: ";c6$d1$="D"c6=d(c6)%c6=>09500 %j3=0:%t4>29520 &%n=1:95900%"Burst of 3? ";b$:i=dx:9330^$h3(i)=h5(i):e=e-r7h$i:9340r$h3(i)=h3(i)+e:e=0 |$5490$e<>0a2=09370 $j3=1:4$r(e);" units expended on empty space.":j3=1:$j3=1:d4(4)=09400"$"Photon Tubes damaged.":9490$t4>09420&$"Torpedo supply exhau.":#e=p1:nh=09370#e=0:t5=(nh*(nh+1))/2#$i=1nh:h3(i)=((nh+1-i)/t5)*p1$h5(i)=k6(i))/(p*.9^k7(i))$h3(i)<=h5(i)9260!"$e=e+(h3(i)-h5(i)):h3(i)=h5(i),$i6$e=09340@$i=1nh:r7=h5(i)-h3(i)J$r7<=09320"T$r7=>edx=i:i=nh: #j3=0:5#"Phasers locked on target. Energy available: ";#.01*100*e1).#"Units to fire? ";p1:p1=>e1=-1:9110#p1>09160 #j3=0:#e1=e1-p1#d4(11)=09200#p1=p1*(1)*.5+.5)8#:"Computer malfunction hampers Phaser accuracyred through Starbase shields.":9100F#d4(3)=09050"P#"Phaser Banks damaged.":9100Z#s4=090702d#"Shields must be down to fire Phasers.":9100n#nh>09110>x#:"Mr. Spock - 'Captain, my sensors detect no Klingons ";#"in this quadrant.'"last." (10380!((x2=a5:y2=a6:8320:a5=x2:a6=y22(g(q1,q2)=1000 <(a2<>0 F(103808P(:"AAAAAAAAARRRRRRRRRRRRRGGGGGGGGGGGGHHHHHHHHHHH!!",Z(" Hack! Hack! Cough! *Choke*"1d(:"Mr. Spock - 'Fascinating!'":q$(a5,a6)="."n(t2=0:t3=0:10380x(l9(:"Torpedo missed!"(Z6 (r1<>0(f9=1:4400:1(:"*** RED ALERT!! RED ALERT!! ***":!("*** COLLISION IMMINENT!!":.(14640:w7=.75:a$=q$(s6,s7):a$="R"w7=1.1(a$="C"w7=1.58(s5$;" on collision course with v - 'Warp factor ";w1;", Captain.'":O-"Engineer Scott - 'Aye, Captain, but our maximum safe speed is Warp 6.'":J(-"Engineer Scott - 'Aye, Captain, but our engines may not take it.'":=2-"Ensign Chekov - 'We can't go below Warp 1, Captain.'":=<-ٺ,ns(x,y)=ns(x,y)+10::i=d0)::s0=0,,t2=a(1):t3=a(1):g(t2,t3)<10011460,7680::12370:6020:$,"Warp factor: ";k::k<111570,k>1011580,j=w1:w1=k:w2=w1*w1,w1<=jw1<=611540-w1<=811550 -w1>8115607-"Ensign Cheko'j,g(x,y)=g(x,y)+100:c1(i)=x:c2(i)=y:t,i=1np'~,x=a(1):y=a(2):ns(x,y)>0113905,ns(x,y)=1:pl(i,1)=x:pl(i,2)=y:pl(i,3)=1)*3)+1$,pl(i,4)=1.95*1)):pl(i,5)=0:,i=1rr(,x=a(1):y=a(1):x=q1y=q211430,ns(x,y)=>1011430'=a(1):g(x,y)+n>99911270,x=q1y=q211270&,g(x,y)=g(x,y)+n:k=k-m:k<>011250$,i=1i41.,x=a(1):y=a(1):g(x,y)<991)<.75113108,x=q1y=q211310B,g(x,y)>89911310L,i=111370*V,m=i-1:j=1m:c1(j)=xc2(j)=y11310`,j+i<211220/+k=i-1:j=1k:d1=(b2(j)-x)^2+(b3(j)-y)^2)!+d1<2dx=j:j=k::j=dx:11160+j2+b2(i)=x:b3(i)=y:s2(x,y)=-1:g(x,y)=g(x,y)+10:I%+b1=0:k=i1-i4:l=.25*s8*(9-l2)+1) +l>9l=9+m=(1-1)^2)*l):m>km=k+n=100*m*,x=a(1):y1e30%R+f1(2)=d0-1.5*(i5/r2)*1)):i6=0\+f1(3)=d0-.3*i5*1))&f+f1(6)=1e30:f1(5)=1e30:s8<311130p+f1(5)=d0-i5*1)))z+i=18:j=18:k=1)*9+1):i6=i6+k+g(i,j)=k:::s1=0+i=1i2+x=1)*6+2):y=1)*6+2)+g(x,y)=>10111601):s7=b(1):i9=10:t4=i9! +w1=5:w2=25:i=1v9:d4(i)=0:3*+rk=0:i6=0:im=0:cr=0:ic=0:pk=0:sc=1:ld=-1:cp=.05<4+j2=100*21*1)+30):d0=j2:k1=0:k2=0:n1=0:n2=0:r6=0:c4=07>+a1=1:d3=.25:i=18:j=18:s2(i,j)=0:ns(i,j)=0::%H+f1(1)=d0-.5*i5*1)):f1(4)=s$(s8);" game";58);l>*15);"-------------------------------------------------""*48);"Total";58);j;" **":$*a2=0:g1=0:1980:s5$="Enterprise"+pr=3:ps=0:z3=05+i7=5000:e1=i7:i8=2500:s3=i8:s4=0:s9=s4:j1=4:l1=j17+q1=a(1):q2=a(1):s6=b(100*b1*pk=010910,*10750;pk,"Planet(s) destroyed",-10*pk*n1=0109302*10750;n1,"SOS call(s) to a Starbase",-35*n1*c4=010950)*10750;c4,"Casualties incurred",-c4*m=010960*g1=010980:*15);"Bonus for winning the ";oyed",20*rk:*rr=0g1=010830(D*10750;rr,"Romulan(s) captured",rrN*k=0108506X*10750;r(n),"Klingons per Stardate, average",kb*s1=010870)l*10750;s1,"Star(s) destroyed",-3*s1v*b1=010890/*10750;b1,"Starbase(s) destroyed",-et, you have no score.":#)"Your score --"::k1=010770) 3#.2#,8X,42A,4#.2#5*10750;k1,"Ordinary Klingon(s) destroyed",10*k1*k2=0107906*10750;k2,"Klingon Commander(s) destroyed",50*k2&*rk=010810,0*10750;rk,"Romulan(s) destrr1=010650 )p<5p=5!)n=(k2+k1)/p:k=500*n+.5):l=0)g1<>0l=100*s8)i=0:s5$,1)="E"m=0)s5$,1)="D"m=1)s5$,1)=""m=20)j=10*k1+50*k2+k+l-100*b1-100*m-35*n1-3*s1-c4")j=j+20*rk-10*pk:g1<>0j=j+rr):j<>010740#)"As ys6,s7))")2900:"*** ";s5$;" heavily damaged.";,)k=5+1)*20):"*** Sickbay reports ";k;" casualties!"6)c4=c4+k:l=1v9@)d4(l)<010600J)j=(3*w7*1)+1)*d5 T)l=6j=0^)d4(l)=d4(l)+jh)lr)s4=0:r1<>0|)f9=1:4400:)p=d0-j2:p<>0";:16050:a$;" at";(" sector ";s6;"-";s7:*("Sulu - 'Shall we ram him, Sir?' ";b$$(b$,1)="Y"b$,1)="y"10510)(:"Scotty - ''Full reverse warp!'":)6540:#)"*** ";s5$;" rams ";a$;" at ";2)"sector ";s6;"-";s7:a5=s6:a6=s7:t2$=q$("Ensign Chekov - 'Our top speed is Warp 10, Captain.'":F-j3=0:d4(8)<>011710P-s4<>0116406Z-"The Shields are down. Do you want them up? ";b$$d-b$,1)="Y"b$,1)="y"11670n-6x-"The Shields are up. Do you want them down? ";b$$-b$,1)="Y"b$,1)="y"11700-&-s4=1:s9=1:c5$<>"Docked"e1=e1-50$-"Shields raised.":e1<=011720 -j3=1:(-s4=0:s9=1:"Shields lowered.":j3=1:"-"Shields damaged and down.":/-:"Shields use up the last of the energy."-f9=4:4400:ptain.'"$(2:s3=s3+e1-10000:e1=10000:1286022e1=e1+s3-j:s3=j%<2"-- Energy Transfer Complete --"=F2"(Ship energy=";r(e1);" Shield energy=";r(s3);")"P2j3=1'Z2t1=.1:p5=(nh+4*c3)/48:p5<.1p5=.1d2p5>1)920 n2a2<>0x23370: 2""Scotty - 'The Shields can't hold more than 2500 ";$1"units, Captain.'":=-1:127602e1+s3-j>012820> 2"Mr. Scott - 'We only have ";r(e1+s3);" units left.'":2e1+s3-j<=1000012850C2"Scotty - 'The reserves will hold only 10000 units, Ca;" left":12730%1"In flight to ";xi;"-";yi:127301" Klingons left ";r1*1i:k);" Time Left ";s(r5):%1"Short range sensors damaged.":1j3=0:d4(12)<>01293011"Number of units to the Shields? ";j:j<01j<=25001280081cr=0"No" `112730"j1" Torpedos ";t4:127307t1" Shields ";:b$="Down, ":s4<>0b$="Up, "~1d4(8)>0b$="Damaged, "91b$;100*s3/i8+.5);"% (";s3+.5);" units )":12730,1" Probe Status ";:f1(6)<1e30127101"Idle: ";pr1;"-";q2;", ";s6;"-";s71l5<>0" ";n9$ 112730*$1" Life Support ";:d4(5)<>012600.1"Active":12730(81"Damaged, Reserves=";s(l1):12730'B1" Warp Factor ";r(w1):12730:L1" Energy ";.01*100*e1);"/ ";:cr=1"Yes"V1k$0i12490,12500,12540,12580,12610&0i-512620,12650,12660,12690,12720'0" Stardate ";r(d0):127300c5$<>"Docked"7620*0" Condition ";c5$;:io=1125300:127300" / in Orbit":127300" Position ";$1l5=0q0z4<>012260H0R0d4(1)<>012740\0k=35:l5=0s2(q1,q2)=1*f0:" 1 2 3 4 5 6 7 8 9 10"p0i=110:i<10" ";z0i;" ";:j=1100z3=012450&0q$(i,j)<>"K"q$(i,j)<>"C"124500".";" ";:124600q$(i,j);" "; 0j:=;" has just destroyed the last Klingon.'"/f9=1:4400:/a2=0/f9=8:4400: /nh<=1 /a=nh-1/z4=0"/o=1a:k7(o)<=k7(o+1)12340/k7(o),k7(o+1)0k8(o),k8(o+1)0k4(o),k4(o+1)0k5(o),k5(o+1) 0k6(o),k6(o+1)*0z4=140>n/10)*10):b1=b1+n/10)#l/k1=k1+r:k2=k2+q:pk=pk+c:rk=rk+a-v/s2(x,y)>0d4(9)<>0s2(x,y)=g(x,y)+1000%/d4(9)=0(q1=xq2=y)s2(x,y)=1/g(x,y)=1000/r1<>0(x=q1y=q2)122208/:"Mr. Spock - 'Captain, a supernova in quadrant ";5/x;"-";yc=012070+/l=1np:pl(l,1)<>xpl(l,2)<>y12060/m=15:pl(l,m)=0:/&/r3=012110'0/l=1r3:b2(l)<>xb3(l)<>y121007:/b2(l)=b2(r3):b3(l)=b3(r3):b2(r3)=0:b3(r3)=0:r3=r3-1D/N/x2=012150X/n=g(x,y)-g(x,y)/100)*100&b/s1=s1+(n-11960.k3=0:c3=0:rh=0:nh=0.r=012020.r1=r1-r:r2=012020'.l=1r2:c1(l)<>xc2(l)<>y12010/.c1(l)=c1(r2):c2(l)=c2(r2):c1(r2)=0:c2(r2)=0'.r2=r2-1:r=r-1:q=1:r2=0f1(2)=1e30.5.x6=ns(x,y):ns(x,y)=0:a=x6/10):rr=rr-a:c=x6-10*a.511930;r."*** Emergency Auto-Override Jammed ***":a2=1:11930|.d4(9)<>011930?.:"Message from Star Fleet Command...Stardate: ";r(d0):>."'Supernova in quadrant ";x;"-";y;".....Caution advised'".n=g(x,y):r=n/100):q=0.x<>q1y<>q2"11830>,.n=n-1:n=0dx=y2:y2=10::y2=dx:dx=x2:x2=10::x2=dx:118406.:-@.:"*** RED ALERT!! RED ALERT!! ***"J.x3=x2:y3=y2:BT."*** INCIPIENT SUPERNOVA DETECTED AT SECTOR ";x3;"-";y3#^.x=q1:y=q2:k=(x2-s6)^2+(y2-s7)^2h.14640:k>1.-x2<>011840"-n=1)*i6+1):x=18:y=18N-n=n-(g(x,y)-g(x,y)/10)*10):n<=0dx=y:y=8::y=dx:dx=x:x=8::x=dx:11780-y:x:.x<>q1y<>q211900.j4<>011900(.n=1)*(g(x,y)-g(x,y)/10)*10))+1.".x2=110:y2=110:q$(x2,y2)<>"*Transfer panel damaged.":2"Which direction? ";zx:2j3=0:zx<02d1$="D"zx=d(zx)2zx<=1213010"2"Use 0 to ";:d1$="C""12";2d1$="D""360";2" only.":12940'2t1=.05:p=(k3+4*c3)/48:p<.05p=.052p>1)920 2a2<>023370:j3=1:a2<>0j4=1#2d5=(zx/12)*8+1.5):d5>8d5=1'3i=15:j=15:v$(i,j)=" ":::n=03v$(3,3)=s5$,1)73d513090,13130,13170,13210,13250,13290,13330,133707"3i=s6-2:j=s7-2:v$(1,1)=q$:j>0i>0v$(1,1)=q$(i,j)7,3i=s6-1:j=s7-1:v$ost ";100*t1/r5);" percent of our remaining time."+<7=9:"Are you sure this is wise? ";b$:F7d4(10)=-1015780"P7d4(10))+214170,14190,14180(Z7"The Darius has no shuttlecraft.":d7"Shuttlecraft damaged.":Tn7"Are you sure you want to abantt here - ";*6"'We've just blown the Warp engines."77" We'll have to shut 'er down here, Captain.'" 7d4(6)=d5*(3*1)+1) 7j3=1:7"Warp Engines damaged.":F(7"Spock - 'Captain, I compute that such an operation will require"B279);"almn::l=dx:1401076y=y+y1:r=y+.5):r<1r>10dx=l:l=n::l=dx:140106q$(q,r)="."140006q4=0666230:a2<>0)6e1=e1-d1*w1*w1*w1*(s4+1):e1>0140406f9=4:4400:6t1=10*d1/w26q4=01410076:"Engineering to Bridge -":" Sco6-w1)^2/66.66666:p>1)q4=1B6q4<>0d1=1)*d1L6q4=014010'V6a=(15-d2)*.5235998:x1=-a):x2=a)#`6b8=x1):x2)>x1)b8=x2)0j6x1=x1/b8:y1=y1/b8:n=10*d1*b8+.5):x=s6:y=s7t6n=014010~6l=1n76x=x+x1:q=x+.5):q<1q>10dx=l:l= it at Warp ";g5s4<>0138105*5" if you'll lower the shields.":@5" We can't do it, Captain. We haven't got the energy."6 6t1=10*d1/w2:t1<.8*r513870614120:b$,1)="Y"13870 $6j3=0:.6q4=0:w=0:w1<=614010(86p=d1*(1+.5)*w1^3*(s4+1):p e113770G5" We haven't the energy to go that far with the shields up.":+5w=(e1/(d1+.05))^.333333):w<=013820@5" We haven't the energy, but we could do=0:D4(6)<>014110H5LD<>113660R56010:E\5C5$="Docked":"Mr. Sulu - 'We must undock first, Captain.'":f5z=013700p52370:a4<0a3<0 z513710(5"Enter Course and Distance: ";d2,d15d2<0d1<=05d1$="D"d2=d(d2)&5p=(db$,1)<>"Y"b$,1)<>"y"4r6=14z5<=0r6=04r6=04t1=z5:z6=z54k3=0135704t1=1+1):z5 053370:j3=1:a2<>0 5z5=z5-z6:l5<>013510*5g(q1,q2)<>10001351045r6=0:t1=0:>5J3v$(2,1)=q$:i>0j>0v$(2,1)=q$(i,j) b413090l4i=151v4v$(i,1)=" "v$(i,3)=" "v$(i,5)=" "13460 4" ";4j=15:v$(i,j);" ";::4:.4J3=0:"How many Stardates? ";z5$:z5=z5$)4z5 0v$(4,2)=q$(i,j)&4n=n+1:n=313420104j=s7-2:v$(4,1)=q$:i<11j>0v$(4,1)=q$(i,j),:4j=s7-2:v$(3,1)=q$:j>0v$(3,1)=q$(s6,j),D4j=s7-1:v$(3,2)=q$:j>0v$(3,2)=q$(s6,j)N4n=n+1:n=3134207X4i=s6-1:j=s7-2:5,4)=q$:i<11j<11v$(5,4)=q$(i,j)-3i=s6+2:v$(5,3)=q$:i<11v$(5,3)=q$(i,s7)-3i=s6+1:v$(4,3)=q$:i<11v$(4,3)=q$(i,s7)3n=n+1:n=31342084i=s6+2:j=s7-1:v$(5,2)=q$:i<11j>0v$(5,2)=q$(i,j)84i=s6+2:j=s7-2:v$(5,1)=q$:i<11j>0v$(5,1)=q$(i4)=q$:j<11v$(3,4)=q$(s6,j)3n=n+1:n=31342093i=s6+1:j=s7+2:v$(4,5)=q$:i<11j<11v$(4,5)=q$(i,j)93i=s6+2:j=s7+2:v$(5,5)=q$:i<11j<11v$(5,5)=q$(i,j)93i=s6+1:j=s7+1:v$(4,4)=q$:i<11j<11v$(4,4)=q$(i,j)3n=n+1:n=31342023i=s6+2:v$((1,4)=q$(i,j)8r3i=s6-2:j=s7+2:v$(1,5)=q$:i>0j<11v$(1,5)=q$(i,j)8|3i=s6-1:j=s7+1:v$(2,4)=q$:i>0j<11v$(2,4)=q$(i,j)3n=n+1:n=31342013j=s7+2:v$(2,5)=q$:i>0j<11v$(2,5)=q$(i,j)-3j=s7+2:v$(3,5)=q$:j<11v$(3,5)=q$(s6,j)-3j=s7+1:v$(3,(2,2)=q$:i>0j>0v$(2,2)=q$(i,j)63n=n+1:n=3134200@3i=s6-2:v$(1,2)=q$:i>0j>0v$(1,2)=q$(i,j),J3i=s6-2:v$(1,3)=q$:i>0v$(1,3)=q$(i,s7),T3i=s6-1:v$(2,3)=q$:i>0v$(2,3)=q$(i,s7)^3n=n+1:n=3134208h3i=s6-2:j=s7+1:v$(1,4)=q$:i>0j<11v$don the ship? ";b$:b$,1)<>"Y"b$,1)<>"y"Ds7:"76C";"***** ABANDON SHIP! ABANDON SHIP! *****":Bx7"76C";"***** ALL HANDS ABANDON SHIP *****": 71464057"You and the Bridge crew escape in the Galileo."Z7"The remainder of the crew beams down to the nearest habitable planet.":r3<>0142507f9=9:4400:R7:" You are captured by the Klingons and released to the Federation in a"Q7"prisoner-of-war exchange. Star Fleet puts you in command of another shidamaged.":d4(10)<>07;:"Spock - 'I suggest we use the Galileo, Sir.'":;io<>015320:;"Mr. Chekov - 'We are not in standard orbit, Sir.'":;s4=015340?;"Scotty - 'We can't beam through the shields, Captain.'":;pl(ip,5)=115360RMr. Sulu - 'Entering standard orbit, Sir...":7620`;j3=1:3370:a2<>0j;l5<>015230t;g(q1,q2)=1000 ~;j4<>00;ht=1400+7200*1)):13);"Altitude: ";ht;;" Kilometers.'":io=1:;i=11000::;d4(14)=015300);"Transporter 'We are already in standard orbit, Sir.'":;d4(6)=0d4(7)=015150*$;"Warp and Impulse engines damaged.":.;px=015170(8;(s6-px)<=1)(s7-py)<=1)15180*B;s5$;" is not adjacent to a planet.":&L;t1=.05+.03*1):d4(6)>0t1=t1*108V;"";10);"Dilithium"::i=1np:pl(i,5)=0150909:j=1:16);pl(i,1);" - ";pl(i,2);34);pl(i,3)+76);":50);:l=pl(i,4):l=0" No":l<>0"Yes":i:j=1.:=19:"No information is available yet.":;j3=0:io=015130<;"Mr. Sulu -eless!":14900@p:" and beams up the mining crew just in time!":im=0150007z:im=0::"The crystals mined were ";:1)>.514990:"lost.":15000:"saved.":cr=1::ig<>0:ic=0:f9=15:4400:::j=0:=141:"Quadrant";10);"Class'"::ig=1 :ld<>115000*:d4(14)=0149104:f9=6:4400:1>::"Scotty rushes to the Transporter room..."H:s4<>014950R:d4(14)=014960@\:" but with the Transporter damaged, it's hopeless!":149007f:" but with the Shields up, it's hop$<>"Docked"e1=e1-200999:"Format is 'X,Y'...Comma is required. Range of ";'9"X and Y is from 1 to 8."::147509c5$="Docked"1485059"Mr. Sulu - 'But, Captain, we're not docked!'": :76203:"Mr. Sulu - 'Undocking maneuver completed.e - 'Sorry, Captain, we haven't the energy to spare.'"929"Destination quadrant: ";xi,yi:xi<0yi<0 9xi<>xi)yi<>yi)14810"9xi<1xi>8yi<1yi>81481059f1(6)=d0+(3*1)+1)::"Expect Probe report at ";19r(f1(6)):pr=pr-1:c5a:::::9f1(6)=1e3014680?D9"Mr. Sulu - 'We already have a Probe in flight, Captain.'"N9X9pr>014700:b9"Mr. Sulu - 'We haven't any Probes left, Captain.'":l9d4(13)=014720v9"Probe launch damaged.":9e1>20014750F9"Scott her1k:k6(l)*k7(l)>w14580)8a5=k4(l):a6=k5(l):t2$=q$(a5,a6):29008dx=l:l=k::l=dx:145408l8f9=10:4400:9"Password-Rejected"9"Continuity-Affected"::9m=150:k=k-k::7);:&9k=1:i=110:12470:)09i=125:7);:m=14:a=a-equence-Otherwise-Destruct"48"Sequence-Will-Be-Aborted...";b$:b$<>x$146008"Password-Accepted":j=10&8i=51-1:j);i:14620:j=j+3:?8:"******** Entropy of ";s5$;" Maximized ********" 8:w=20*e18nh=0r1=014590&8k=nh:l=execute destruct sequence."J8T8:" ---- Working ----""^8:"Identification - Positive"+h8"Self-Destruct-Sequence-Activated":j=3 r814640'|8i=106-1:j);i:14620:j=j+3:.8"Enter-Your-Mission-Password-to-Continue"08"Self-Destruct-Sdx=l:l=3::l=dx:14350 8l:1429008s5$="Darius":q$(s6,s7)=s5$,1):c5$="Docked".8l=1v9:d4(l)=0::d4(10)=-1:e1=3000:i7=e17"8s3=1500:i8=s3:t4=6:i9=t4:l1=3:j1=l1:s4=0:w1=5:w2=25,8cr=0:im=0:pr=1:68d4(11)=014420;@8"Computer damaged - cannot p,"57"the Darius, which is somewhat antiquated, but";67" still usable.":n=1)*r3+1):q1=b2(n):q2=b3(n)!7s6=5:s7=5:7680:q$(s6,s7)="."7l=13:s6=3*1)-1+b6)7s6<1s6>1014340)7s7=3*1)-1+b7):s7<1s7>1014340*7q$(s6,s7)=".";"Spock - 'Captain, regulations require we run a planetary analysis first.'": 1im=1cr=1 2 015390AF<"Mr.Sulu - 'We can't leave the Galileo on the planet, Sir.'"P<Z<:j3=0:ld=115470(d<"Mining party not on the planet.":n "Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"THE BEST OF ED GOODING'S ///s COMPANY BBS : DISK 1 a$="*"a$="Star">a$="B"a$="Starbase">a$="@"a$="Planet">a$="K"a$="Klingon">a$="C"a$="Commander">a$="R"a$="Romulan">$=te *":ld=1:ic=0:?b>"You and the mining crew board the Galileo for the trip ";l>"back.":ic=1:ld=-1v>j3=1:3370:a2<>0>l5<>016020>g(q1,q2)=1000 >j4<>0>ic=0:sc=1:im<>0cr=1.>im=0:i=11000::"* Trip Complete *":>er use the Transporter, Captain? ";b$">b$,1)<>"N"b$,1)<>"n"C&>"Mining party boards the Galileo and heads toward the planet.""0>ic=1:sc=0:j3=1:3370:a2<>0:>l5<>015950D>g(q1,q2)=1000 N>j4<>03X>i=11000::"* Trip comples4=0c5$<>"Docked"158204="Shuttle craft cannot penetrate the shields.":=pl(ip,5)<>115350=t1=3e-5*ht:t1<.8*r515860=14120:b$,1)="Y"15860 =j3=0:=ld<>115910=sc<>115970>d4(14)<>015910B>"Spock - 'Would you rathy;" is class ";pl(ip,3)+76);.r=". Readings show ";:pl(ip,4)=0"no ";&|="Dilithium present.":pl(ip,5)=1:=j3=0:d4(10)=015790=d4(10)>014180=d4(10)=-1141704="Shuttle craft was captured by the Klingons.":=:io<>115310=cuits activated...Loading...";:15260,=1)>cp15680)6="She's gonna blow!!":14640:14520:9@=e1=e1+4000*(1+.9*1)):"It worked, Captain!!":cr=0:J=d4(1)<>012740T=:px<>015720%^="No planets in this quadrant.":8h="Planet at ";px;"-";p0 units of energy, Captain.":<=13:"The Matter/Anti-matter Integrator will blow if"!<=13:"we overload it now.":4="Scotty - 'It's a risky operation, Captain. ";(="Do you still want to try it?' ";b$"=b$,1)<>"Y"b$,1)<>"y"0"=:"Cir>"Y" 0 015540 0(<"Mining operation complete.":im=1: