startrek \X\T.09}8Q,-20:.09}8Q,-19:.09}8Q,5:.09}8Q,-10 : 0r=55461.5@:.01z# =,r:r: 7.05|L,*30-20:.09}8Q,*502: 12 ,0; #i=1k:>.9ffff32 9jx=x:jy=y:dx=k(i,2):dy=k(i,1):630v d=0h=e(i):20 h=e(i)/d+(*20) sh/h524  26 2j=(*7+1):f(j)=1:dg=1 z$=h:5:8+(1*(z$=2));z$;" HIT ON SHIELD":sh/h58;n$(j);17;1;" DAMAGED "  sh=sh-h sh<09750& i:150 $3,27;sh;" " (Gr=10 21:r,0;" ":r - 2 F.r=18:0;r,1;b$:r K P5s(ay,ax)=1:c$(1)"0"s(ay,ax)=2 Q#c$(2)="1"s(ay,ax)=3 R3c$(1)"0"c$(2)="1"s(ay,ax)=4 U Z>.3 \+i=17:f(i)=096` ^f(i)=0:98b `i b7;2;14,3;" DAMAGE CONTROL REPORT:";1;7;15,3;" ";N$(i);14;"OPERATIONAL." c-502:i=17:f(i)=1 di f dg=0 h n 40( s*4;0;11 ,12 ;"1 2 3";12 ,12 ;" ";13 ,12 ;" ";14,12 ;" ";15,12 ;"84";16,12 ;" ";17,12 ;" ";18,12 ;" ";19,12 ;"7 6 5" x:21,1;"ZULU What course, Captain?" z7:z$:z$=""110n {9r=1̱z$:z$(r)"."z$(r)<"0"z$(r)>"9"110n |*r:c=z$:c<1c9 110n }#c<4c=c+4:135 c=c-4 c=c*45-:i=c*/180 nx=i:ny=i: x<1x=1 x>8x=8 y<1y=1 y>8y=8  A21,2;1;" PRESS ENTER TO CONTINUE ":7 0:.1}L,20  Pc$=a$((ay-1)*8+ax):k=c$(1):b=c$(2):s=c$(3) i=18:p$(i)=b$:i s260 i=1s Ls1=(*8)+1:s2=(*8)+1:p$(s1,s2)" "240 p$(s1,s2)="*":i b=0290" Lb1=(*8)+1:b2=(*8)+1:p$(b1,b2)" "270 p$(b1,b2)="" " k=0 , i=1k 6tk(i,1)=(*8+1):k(i,2)=(*8+1):p$(k(i,1),k(i,2))" "3106 @Fp$(k(i,1),k(i,2))="":e(i)=160+(*91[):i Ji: jxdxjydy520 dn=270:580D jxdxjydy540 dn=90Z:580D 'dn=(((jy-dy)/(jx-dx)))*180/ &jx>dxjydydn=dn+180 0jxdydn=360h-dn :jx>dxjy1Ž((x+.5)-b2)>12230 i13 ,0;"CHEKOV We have docked with theStarbase, Captain.":7:7:250 &dk=1:3,27;" " r$="s":8600! $i=17:f(i)=0:i +3000 :r$="":dg=0:1500  j=1k Se(j)=e(j+o):k(j,1)=k(j+1,1):k(j,2)=k(j+1,2) j   Rej=ik:e(j)=e(j+1):k(j,1)=k(j+1,1):k(j,2)=k(j+1,2):j: i$:i$=""r$="s" ,r=1̱i$:i$(r)<"1"i$(r)>"8"r$="s" r: 0:236099\,75K st=(*3000 )+2000  8600! 2em=0:af=0:f=0:b$=" " <nb=0:nk=0:sc=0:dk=0:dg=0  7000X:5:0: D10 ,4;"Please wait a while";4;"Captain ";o$;"." $a$(64@,3):p$(8,8):s(8,8):n$(7,8):k(4,2):e(4):f(7) 8)1090B:i=17:n$(i):i BK"NAVIGATE","S.R.SCAN","L.R.SCAN","TORPEDO","PHASERS","COMPUTER","SHIELDS" Li=164@ Vr= `(r<.5k=(*2):1150~ j1r>.93nzk=(*4+1):1150~ t k=0 ~nk=nk+k:s=(*6) Ea$(i)=k+"0"+s:i:nk<18nk>40(nk=0:1100L ,l=4nb=3+(*2+1) !l=3l=2nb=3 l=1nb=2 l=0nb=1 i=1nb gbx=(*8+1):by=(*8+1):a$((by-1)*8+bx,2)"0"1180 8a$((by-1)*8+bx,2)="1":i:7100 gax=(*8+1):ay=(*8+1):a$((ay-1)*8+ax,1)"0"1200  200 Ix=(*8+1):y=(*8+1):p$(y,x)" "1220 i=18 &j=18:s(i,j)=0:j i r$="s":3000 :r$=""  5500|  40( +dk1k1ƥ>.510 11 ,8;"1 NAVIGATE";8;"2 S.R.SCAN";8;"3 L.R.SCAN";8;"4 TORPEDO";8;"5 PHASERS";8;"6 COMPUTER";8;"7 SET SHIELDS";8;"8 GALAXY MAP";8;"9 SAVE" I2;7;1;21,7;" ENTER COMMAND ":7 kZ$:Z$1Z$<"1"Z$>"9"7:1;21,0;" WRONG ENTRY, TRY AGAIN ":1540  z$="s" Z$="1"2000 2000+Z$*500 40(:af=0 K13 ,0;" SCOTT  What Warp Factor, Captain?":7 jz$:r=1̱z$:z$(r)"."z$(r)<"0"z$(r)>"9"13 ,8;"Could you repeat that,":2020 r Aw=((z$)+.5):110n:40(:w=01500 qx=(x+.5+w*nx):qy=(y+.5+w*ny):f(1)=1w<5qx1qx8qy1qy82070 o13 ,0;" SCOTT  Will it be hyperdrive, Captain?":7:z$:40(:¯z$="y"2800  j=1w  mm=x+nx:n=y+ny:xx=(m+.5):yy=(n+.5):xx<1xx>8yy<1yy>82500 *)p$(yy,xx)" "p$(yy,xx)""2200 4qy,x;"":.1}L,20:yy,xx;1;6;"":p$((y+.5),(x+.5))=" ":p$(yy,xx)="" > x=m:y=n Hj R x=xx:y=yy \c$(2)="1"700 fdg=190Z p 2230 "z$=p$(yy,xx):z$=""9300T$ t13 ,0;" CHEKOV  Emergency stop Captain,we nearly hit a ";"Star."z$="*";"Klingon."z$="":7 ^502:em=em+1:x=(x+.5):y=(y+.5):em>7ƥ>.59000(# #em>7ƥ>.59000(# Ius=w*2+(r$="s")*(w*4):r$="":e=e-us:e09100# $st=st+j/8:st>lm9200#  3030 !70F:dk=0:f=0 "af=080P:af=1 xx12540 ax-1<12700 &ax=ax-1:x=9 :2570 xx82570 ax+1>82700 x=0:ax=ax+1 yy12600(  ay-1<12700 &ay=ay-1:y=9 :2630F (yy82630F 2 ay+1>82700 <ay=ay+1:y=0 F(x=(x+nx+.5):y=(y+ny+.5) P 150 Z$200:p$(y,x)" "2650Z d6:1;y,x;"" nj=w2140\ x 2120H 13 ,0;" SPOCK  Captain,we are forbiddenby Federation Law to leave this Galaxy. Hence, I have had to terminate the warp drive.":7 N150:em=em+2:1;y,x;"":160:40(:2225 +70F:80P:dk=0:f=0 Tgx=(ax-1)*8+x:gy=(ay-1)*8+y:ngx=gx+(w*nx):ngy=gy+(w*ny) Dxx=ngx/8:yy=ngy/8:ax=(xx+1):ay=(yy+1) Bx=((xx-xx)*8+.5):y=((yy-yy)*8+.5) >ax=ax+(x>8)-(x<1):ay=ay+(y>8)-(y<1) "9ax<1ax>8ay<1ay>89400$ ,x>8x=1 .x<1x=8 0y>8y=1 2y<1y=8 6/200:p$(y,x)" "ƥ>.4L28706 @p$(y,x)=""9300T$ Ep$(y,x)" "9500% J(6:1;y,x;"":2140\ +f(2)=1f=2:62008 440(:p$(y,x)="":0,1;"12345678" Di=18:i;0;7;p$(i):i:.1}L,28 c$(1)"0"1;2;7;0,16;"***RED ALERT***":fr=14:.05|L,0:.1}L,-20:.05|L,-30:.15~,-5:r:f=1 ?c$(1)="0"4;0,16;"CONDITION GREEN" F1,16;"Stardate ";st;" ";2,16;"Energy ";e;" ";3,16;"Shield ";sh;" ";4,16;"Torpedoes ";t;" ";5,16;"Quadrant ";ay;",";ax;6,16;"Position ";y;",";x;7,16;"Klingons ";nk;" ";8,16;"Sts. Left ";(lm-st);" " *.05|L,0:e09100# af=0 r$="s"  1500 +f(3)=1f=3:62008 E40(:i=-11:ay+i<1ay+i>83560 ;j=-11:ax+j<1ax+j>83550 ʰ0;7;i*2+15,6;" ";ay+i;" ":.01z# =,*30:0;7;11 ,j*5+15;" ";ax+j;" ":.01z# =,10 -(*10 ) o7;2;i*2+15,j*5+15;a$((ay-1+i)*8+ax+j):.01z# =,*5 j i z0;14,14;"";15,14;"";15,18;"";16,14;"" !25:160:1500 #f(4)f=4:62008 k40(:t=013 ,0;" SCOTT  No torpedoes left,","Captain!":160:1500 &tx=x:ty=y:k=0em=em+1 >m=x:n=y:110n:ma=m+nx:na=n+ny:t=t-1:40( 4n=n+ny:m=m+nx:tx=(m+.5):ty=(n+.5) 9tx<1tx>8ty<1ty>83010 :z$=p$((ty+.5),(tx+.5)):z$" "4090 Vr=12:.15~,-30:.001wn,502:.0005vn,65A:r 21;na,ma;" ";2;0;ty,tx;"" ma=m:na=n:4040 z$=""9600% z$="*"13 ,0;" SPOCK  Sensors indicate torpedodiffused by a star, Captain.":na,ma;"":200:3010 L20:na,ma;"":1;6;ty,tx;"";:5:8;"" c13 ,0;" SPOCK  Sensors indicate","Klingon at ";ty;",";tx;" has been","destroyed." "1m=(tx+.5):n=(ty+.5):p$(n,m)=" " ,)k=1sc=sc+e(1):4180T 6:i=1k:k(i,1)=tyk(i,2)=tx4170J @i J sc=sc+e(i) T#k=k-1:k1850R YGc$(1)=k:a$((ay-1)*8+ax,1)=k:nk=nk-1 ^nk=09700% h200:3010 #f(5)f=5:62008 ,40(:k=0r$="s":em=em+1 e$=e:13 ,0;" SCOTT  Energy level is ";e$,"Captain, how much shall I use for the phasers?":7:z$:z$=""4520 :r=1̱z$:z$(r)"."z$(r)<"0"z$(r)>"9"4520 !r:p=z$:p04520 p0  %e(i)>0175:4600 1;k(i,1),k(i,2);"";:5:8;"":p$(k(i,1),k(i,2))=" ":nk=nk-1:nk=09700%  -150:40(:k=k-1:850R *8c$(1)=k:a$((ay-1)*8+ax,1)=k 47i=i-1:k(k+1,1)=0:4600 f(6)5400  40( 1;7;12 ,5;" COMPUTER OPERATIONS ";5;0;''5;"1 STARBASE RENDEZVOUS";5;"2 NAVIGATIONAL AID";5;"3 PHOTON TORPEDO DATA";5;"4 DAMAGE REPORT"''8;2;7;1;" ENTER OPTION ";  7 _z$:z$1z$<"1"z$>"4"7:21,0;"INCORRECT, TRY AGAIN.":5030 Q5050*(z$="1")+5150*(z$="2")+5300*(z$="3")+5400*(z$="4") '40(:c$(2)="1"5090 z$="Starbase " c13 ,0;" SPOCK  That is illogical,","Captain. There is no ";z$,"in this quadrant." 6r=05:7:r:200:1500 %jx=x:jy=y:dx=b2:dy=b1:500 I13 ,5;"Distance = ";w$;14,5;"Direction = ";z$ 160:1500 U40(:z$="That does not compute, Captain":j$=" " (jx=(ax-1)*8+x:jy=(ay-1)*8+y:13 ,7;1;" ENTER QUADRANT: ";14,11 ;" ROW " 27:900 7r$"s"qy=i$:5190F <<r$="":21,1;z$:.1}L,28:51702 F#qy<1qy>85180< K_21,0;j$;14,11 ;" ROW ";1;15,11 ;" COLUMN " P7:900 Ur$"s"qx=i$:5220d Z<r$="":21,1;z$:.1}L,28:5200P d#qx<1qx>85210Z i^r$="":40(:13 ,7;1;" ENTER POSITION ";14,11 ;" ROW " n7:900 sr$"s"py=i$:5250 x<r$="":21,1;z$:.1}L,28:5230n #py<1py>85240x fr$="":21,0;j$;14,11 ;" ROW ";1;15,11 ;" COLUMN " 7:900 r$"s"px=i$:5280 <r$="":21,1;z$:.1}L,28:5260 #px<1px>85270 Ir$="":40(:dy=(qy-1)*8+py:dx=(qx-1)*8+px 500:w$=((d+1.5@)):13 ,5;"Distance = ";w$;14,5;"Direction = ";z$:7:25:160:1500 640(:c$(1)="0"z$="Klingon ":5070  i=1k  jx=x:jy=y -dx=k(i,2):dy=k(i,1):500 w$=(d+1) ܆i+9 +((i=2)*2)+((i=3)*4)+((i=4)*6),4;i;" Distance = ";w$;6;"Direction = ";z$ ..01z# =,502:i:160:1500  40( "oi=17:i+10 ,0;n$(i)," DAMAGED "f(i);"OPERATIONAL"f(i):.025{L,480:i ,!25:160:1500 |#f(7)f=7:62008 -e=e+sh:40(:z$=" CHEKOV ":e$=e p13 ,0;z$;" We have ";e$;" units of","energy Captain, What shield","level do you require?":7 z$:z$=""5540 :r=1̱z$:z$(r)"."z$(r)<"0"z$(r)>"9"5540 r Ush=z$:sh"5"7010b lFl=z$-1:lm=15+l*5+(*20+1):lm=st+lm v  Fi=416:4;i,4;" ":i *2;7;8,7;" ";9 ,7;" TIME LIMIT = ";LM-ST;" ";10 ,7;" KLINGONS = ";NK;" ";11 ,7;" STARBASES = ";NB;" ";12 ,7;" " 4 160: > @"g" J1:7:1: T15;2,6;"  GEMINI SOFTWARE " ^!8200 :568,128: c4I=112 :X,Y:X,Y:.05|L,5:I h76L,128 m4I=18:X,Y:X,Y:.05|L,10 :I r96`,128 w4I=18:X,Y:X,Y:.05|L,15:I |92\,124| 4I=14:X,Y:X,Y:.05|L,15:I 116t,128 5I=112 :X,Y:X,Y:.05|L,20:I !8230& :112p,124| 4I=14:X,Y:X,Y:.05|L,20:I !8210 :148,128 4I=18:X,Y:X,Y:.05|L,25:I !82400 :168,128 5I=112 :X,Y:X,Y:.05|L,30:I !8230& :164,124| 4I=14:X,Y:X,Y:.05|L,30:I !8250: :188,128 5I=112 :X,Y:X,Y:.05|L,35#:I 208,128 5I=111 :X,Y:X,Y:.05|L,40(:I 611 ,1;"Type in your surname, please":o$ o$=""8160 4o$>90Zo$(1)=(o$(1)-32 ) i2;11 ,0;" Welcome aboard Starship";2-(o$>9 );"Enterprise, Captain ";o$ 502:1000 -16,0,0,-12 ,12 ,0,0,-4,-12 ,0,0,-4,16,0,0,12 ,-12 ,0,0,4,12 ,0,0,4 0,-4,-6,0,0,-16,-4,0,0,16,-6,0,0,4,16,0 0,-20,-4,0,0,8,-8,0,0,-8,-4,0,0,20,16,0 &C0,-4,-8,0,0,4,8,0 00,-12 ,-4,0,4,-4,0,-4,-4,0,0,4,-4,4,-4,0,0,-8,-4,0,0,20,16,0 :0,-4,-12 ,0,0,-4,8,0,0,-4,-8,0,0,-4,12 ,0,0,-4,-16,0,0,20,16,0 D0,-4,-8,-6,8,-6,0,-4,-12 ,8,0,-8,-4,0,0,20,4,0,0,-8,12 ,9 !8e=(*250)+3000 :sh=(*90Z+10 ) !t=15: #('502:2:6:0: #28,0;" MCCOY  Captain, I think that you could do with some rest,so I have prepared the Sick Bay foryou. Spock will take over." #< 9800H& #'502:1:6:0: #8,0;" UHURU  We are out of energy, Captain. I have made contact with Starfleet Command for a rescue mission." # 9800H& #'502:1:6:0: #8,0;"Captain ";o$;","'"you have failed your mission."'"The task will have to be","continued by another Starship." $ 9800H& $T'502:3:6:0: $^o8,0;"The late Captain ";o$;","'"Enterprise was destroyed when itran into a Starbase forcefield." $h 9850z& $'502:4:6:0: $±7,0;"Enterprise ventured out of the Galaxy. The last report at Starfleet Command stated that ithad been captured by the enemy who were demanding a ransom." $ 9850z& %'502:6:1:7: %&8,0;"Enterprise collided with a"'"Star "p$(y,x)="*";"Klingon "p$(y,x)="";", while jumping out of"'"hyperspace and was destroyed." %0 9850z& %'502:1:4:0: %n8,0;"Your torpedo has destroyed a Starbase, Captain ";o$;"."'"You will be Court Martialled." % 9850z& %'502:5:3:7: %R9 ,0;"Well done Captain ";o$;" ."'"You have completed your mission." % 9800H& &'502:5:2:7: & H9 ,0;"The Klingons have managed to destroy Enterprise." &* 9850z& &H160:6560 &z!"Do you want to play again?";k$ &¯k$="y":8010J &.:10 ,1;"Thanks for playing ";o$ zxyOHowarde #tfB l@000004002011003000005000004003101003000004015005003100002000003115102005000000004003001103000003000000103002002100000013005002103403002004105002001103100002001402113004003000001103000004104105E * * E=NAVIGATES.R.SCANL.R.SCANTORPEDO PHASERS COMPUTERSHIELDS -&(ksC002b pE3088RZ9hstartrek.1XGȪD$~|~ff~<~$Bff  @ @@ Ј@  <~ ~<00Z<