ZX Trek S S U O"New York":0:1:1:17,0;:-:60<:"" New York @N`_@#__@:a_q_G_@#_zO|<O@/g#` x"S:``_z !?__` ?A~ /@ ` <? ^ >t/_` >vw>Vￗ@?=v:p/A?: Z` ?:~ ?` <?:^ >t_` >Bvnj;w?Vￗ;=v:?@?'_ +~ 1_= <7_M_ ?v@?_`>v;?w?v;< v:Z`$7A^ +G~1P?~ <?P _` <@v_`?vnj@ ?w>?v?v ^`@?^ ?D'~?~ <h?;__` <@w_`?vG?w?v?v?Z`@,^ ?:=~??` ?~ <x?猂;@ _` ?vnj;G?~?? w>~ [ v?:_ Z` ?:#^ ?~??~'0^ <4;M_` ?vD?V_w>B~{A v"'P Z` ?^ ?:??C?}^ >t/;_` ?vG>V_v>~ v?~x v<0 ??0>~Ѽ vB0 ??0<<~B~<|?~;vT@p`E0 ?0 00 0 @B@B@BB >~;@" vO0 ?0 00 0  A 1560 F 2110> Z 2480 \ 2110> _ 20 ZPeter Lovett Ltd., marketed by Impact Software,70 Redford Avenue,Edinburgh EH13OBW. Long Range Scan #1190:d(3)<10 d=qr+1:e=qc+1  b=d-ard+ar  c=e-are+ar $ 1230 .c 8b B Clear L.R.Scan a=13 17 a,10 ;" " a  Show Quad. b,c on Scan b-qr+14,c-qc+11 ; 2b<1b>10 c<1c>10 " ": >a=g$(b,c,1):z$(b,c)=(a+1):f=g$(b,c,3) !a=0a=f*99c-2 a$=(a+480) '6-f;a$;b-1,c-1;a$ 2900T : Might LR Scan ?2900T :(b-qr-1)arƽ(c-qc-1)ar1230 ( FShort Range Sensor Scan K 2900T Pd(2)<10 Zseen1475 nhe=sr+1:hf=sc+1 x%ha=(he-hr):ha<1ha=1 'hb=(he+hr):hb>10 hb=10 %hc=(hf-hr):hc<1hc=1 'hd=(hf+hr):hd>10 hd=10 .d=(hb-ha=9 hd-hc=9 ):seen=seend  g=hahb #g+9 ,hc-1;q$(g,hchd) g:2900T )dockedesr+10 ,esc;5;"" Ahk=1:romh(rr,rc)rr+9 ,rc-1;7;"R" qg ia=1nk:b=l(a,2):c=l(a,3):h(b,c)hk=hk+1:b+9 ,c-1;7;"K" a:2900T ׉a=1nt:hx=t(a,1):hy=t(a,2):(hx-sr)bxhabxhbbyhcbyhdbx+9 ,by-1;5;"B"  8 d(3)10 d1540 !hkǯz$(qr+1,qc+1) z$(qr+1,qc+1)=hk:a=hk+47/-2*(hk=1):hk=0a=base*99c+46.:qr,qc;6-base;(hk+47/-2*(hk=1)) qr,qc;6-base;a;: Damage Control d(dev)=100d Aa=d(dev)+*(docked*30+10 ):a>100da=100d 'c=d(dev):d(dev)=a:b=dev:1600@ "dev=1 ,Mdev=2seen=(c>99c):hr=d(2)/9 -1:1350F: 1dev315906 3Oar=((d(3)-10 )/40():ar>((c-10 )/40()1000 4 6dev<7 7dev=81596< 9/c100db=18:1600@:b : <docked1730: =2a=((d(8)-10 )/16):a<0 >1888`-a*30: @Show status of device b A$2900T :a=d(b):a>d(7) Ca$=a:a=0a$="OUT" F2b,29;" ";b,32 -a$;:1980: JEnergy Transfer R(dockeddcin)sh=ideal Tdocked1636d WAb=4000-en-sh:a=(s(esab,3)-en-sh)/2:b>ab=a Zb<0b=0 ^b>200b=200 a,s(esab,3)=s(esab,3)-b:en=en+b chpt<9 s(esab,4)>0s(esab,4)=s(esab,4)-1:pt=pt+1:1738 d*sh=ideald(6)<10 1680 h1sb=(ideal-sh)*d(6)*5:sb>ensb=en m"se=sh+sb:se<0se=0 #(sh-ideal)=(ideal-se)se=ideal en=en+sh-se:sh=se dcin4630 1858B: Stardate date=date+1:a$=date @10 ,27;a$(12);":";a$(34) Ldate=mdate+29350$:a$="Your current score is "+a:9310^$  Ship's Computer Display #i=1888`1738-30 i i  Show dc & pt d(8)<90Z 818,31;:a=dc*15:a$=dc:1980 :19,31;:a=pt*15:a$=pt:1980: Show cou & wf Cd(8)>74J16,31;cou;17,31;wf  Show sector no. d(8)<58: ;a$=(esr+1)+","+(esc+1):15,25; 2090*:a$: $Show quadrant no. &d(8)<42* 0ia$=(qr+1)+","+(qc+1):14,25;:a=(qr-4.5):b=(qc-4.5):b>aa=b :&a=290"-40(*a:1975: BShow energy values C 2900T Dd(8)<26 I a$=en N812 ,25;:a=en/2-40(:1975 S a$=sh X:13 ,25;:a=sh/2-40(:1975: `Show Condition bd(8)<10 l"con=(en+sh)/10 +pt*20 v$a=18:con=con+d(a):a h2900T :a$=" ":dockedcon=con+s(esab,3)/30+s(esab,4)*6:a$="Docked" landa$="Landed"  qgcon=con-150*(nk+rom) ?a=(con/300,)-1:(a<0):a>2a=2 a<1a=3 N11 ,26;8-2*a;(con<300,)*7;a$:0:  2090* Show a$ in colour (a=(a/45--.01z# =):(a<0) a<0a=0 a>2a=2 #a+2;a$;8:0: *Print spaces before a$ 4b$="":b$(a$6);: >Move U.S.S. Enterprise ? 2400` Cgo4500 F 1610J Hmx=sr+ex:my=sc+ey K4(mx-(mx+.5))<.0001sQXmx=mx+.001wn N4(my-(my+.5))<.0001sQXmy=my+.001wn Rmxi=mx:myi=my:2900T \+mxi=esrmyi=escsr=mx:sc=my:2340$ f(qx=(mxi/10 ):qy=(myi/10 ) pqxqy2300 z>mxi=mxi+1:myi=myi+1:l$=q$(mxi,myi):2900T "l$="B"l$="+"l$="."2250 ?>.5cou=cou-1+(cou=1)*8:2245 'cou=cou+1-(cou=8)*8 $2350. :2900T :2120H base2255 >bx=esr+1by=esc+1a$="B":a=5:2260 a$=".":a=2 Mq$(esr+1,esc+1)=a$:d(2)9 esr+10 ,esc;a;a$ sr=mx:esr=mx sc=my:esc=my Ul$="B"wf=0:iwf=0:docked=1:2385Q :1888`:2295 q$(mxi,myi)="" $1350F:1798:2340$ rom2315 Grom=0:ren<**250tnr=tnr-1:score=score+20 8sr=mx-qx*10 :esr=sr:sc=my-qy*10 :esc=sc qr=qr+qx:qc=qc+qy 2qg=(qr0qr9 qc0qc9 )  2540 $2400` : .New Course 3"sr=esr+.5:sc=esc+.5 Ldx=x(cou):dy=y(cou) QNew Warp Factor V ex=wf*dx:ey=wf*dy:1768 Ydockedwfdocked=0 [1888`: `6 Times per Stardate j02900T :*12 15-lev2500 a$="s":dch=0a$="" Qdch=dch+(dch<9 ):a$=dch+" Dilithium crystal"+a$+" now found":9310^$ ya=(*5+1):anss(a,3)=s(a,3)+100d/(lev+2):s(a,4)=s(a,4)+(>.8L) 4860 :b=4000-sh-en:b>0en=en+1:1858B  New Quadrant 1828$:1798 #nt=0:2:seen=0 10 ,0; l=110 q$(l)=".........." " " (l 21q$(esr+1,esc+1)="":qg2630F <nk=0:base=0:a=(qr-4.5):b=(qc-4.5):stars=((1+)*502/(a*a+b*b-20)):ns2800 Aqx*(qr-4.5)>5qy*(qc-4.5)>5score=score-100d:a$="Left the galaxy: end of game":9800H& D 2800 Fl$=g$(qr+1,qc+1) P/nk=l$:stars=l$(2):base=l$(3) Znk2800 dnz=0:a$=qr+qc nm=1tnk x&k$(m,12)a$2790 62900T :k$(m,3)=02790 nz=nz+1:l(nz,1)=m 2850" :q$(qx,qy)="K" ;l(nz,2)=qx:l(nz,3)=qy:l(nz,4)=0 nz=nk2800 m U6:l=1stars:2850" :qx+9 ,qy-1;"*";:q$(qx,qy)="*":l !baseesab=0:2830 72850" :bx=qx:by=qy:q$(bx,by)="B":a=1ns 5s(a,1)=qrs(a,2)=qcesab=a:2830 a: E8:1000:1350F:tnr*stars>*10004710f 1888`: Pseudorandom qx,qy Dqx=ps:ps=(ps-qx)*10 :qy=ps:ps=(ps-qy)*69E/7: "Obtain Place qx,qy ' 2840 61(qx-esr)<3ƽ(qy-esc)<32850" @qx=qx+1:qy=qy+1 Jq$(qx,qy)"."2850" O2900T : TKeyboard Input ^y$=:k="a":y$="" `landact=1:p(1)=-999:p(2)=2:9 ,10 ;8;"Beam me up,Scotty";0:2960 ccn=02930r h4k=y$-480:k=-36$ce=02955 k#cn=3cn=52973 m3k<(cn7)k>8+(cn=7)2960 p"act=1:p(cn)=k:2955 r#y$"A"y$"Z"y$=(y$+32 ) wk=17 |Jy$=c$(k)cn=k:9 ,10 ;8;d$(k):ce=0:2960 k =cn=0:9 ,10 ;8;"Command ?";0 "w$=:k="a":w$""2960  %k-35#2980 :2960 #p(cn)=ce:act=1:2955 (Accumulate ce) ,k=-36$ce=(ce/10 ):2995 $k<0k>9 ce>999 ce=ce*10 +k *9 ,28;8;ce;0: Individual functions: (C=Course Change) ic=a:go=1: M3;Load crystal ,dca$="No crystal available":9310^$ 8dcina$="Previous crystal still present!":9310^$ Uen+sh*(d(6)>0)>500a$="Energy supplies are adequate":9310^$ Vdc=dc-1:dcin=1+(>.73333):1738:dct=(5/(+.02{# =)): M4;Remove crystal 5dcina$="Power channel already empty":9310^$ =dcin=0:a$="Dilithium Crystal jettisoned":9310^$ M5;Engage a$="" 9en<502a$="50 units of energy needed":9310^$ Pieng=6-a:en=en-502:a$="Impulse engines "+a$+"engaged":9310^$ M6;Disengage a$="dis":3024 M command !a>2a*8+2980 a*18+3234 M7;Starbase Report 4750:c=0 ma$="Quadrant "+(s(c,1)+1)+","+(s(c,2)+1)+": base has "+s(c,3):9310^$ ba=g$(s(c,1)+1,s(c,2)+1,1):a$=" "+a:h$="s.":a=0a$="no" a=1h$="." Ha$="energy, "+s(c,4)+" torpedoes,"+a$+" Klingon"+h$:9310^$ M8;Home in 4750:c=0 6basea=bx-esr-1:b=by-esc-1:3052 &a=s(c,1)-qr:b=s(c,2)-qc Ud=(a*a+b*b+.0001sQX):a=((a/d)*b*4/-.5):a<1a=a+8 0a$="Starfleet suggests course "+a:9310^$ P=Phaser Fire ;dockeda$="Cannot fire phasers while docked":9310^$ :d(4)<10 a$="Phasers inoperable":9310^$ 5zap=a:zap>ena$="Insufficient energy":9310^$ -nkv=sr:w=sc:3280 :y=a:3074 8roma$="No target available for phasers":9310^$ /v=sr+.5-rr:w=sc+.5-rc:z=v*v+w*w [en=en-zap:1858B:x=d(4)*.3-.3:imp=zap*(sh-1000)/3001 &imp>0zap=zap-imp:4070 soff1,32 Nzap=(zap/z*x+):nka=y:y=l(a,1):x=k$(y,3)-zap:3085 ren=ren-zap:ren>0 rom=0:tnr=tnr-1:score=score+20:q$(rr,rc)=".":a$="Romulan destroyed":9310^$:h(rr,rc)rr+9 ,rc-1;2;".":1888`  x<0x=0 )k$(y,3)=x:x=03220  R=Repair Selection Hd(a)+docked0a$="Can only repair that at starbase":9310^$ !Jd(a)<100ddev,10 ;" ";:dev=a:1;dev,10 ;" ";: $9a$=e$(a):3110& :a$=a$+" working 100%":9310^$ &LET a$=TRM$(a$) (8a=a$:a$(a)=" "a$=a$(1a-1):3112( + 0S=Set Ideal Shield Energy D ideal=a: NT=Launch Photon Torpedo Sxdockedpt=0d(5)<10 en<20nt=3nk=0a$="Cannot launch photon torpedo":9310^$ X\4185Y:nt=nt+1:pt=pt-1:en=en-20:z=d(5)*.01z# =-.05|L bt(nt,1)=esr+.5:t(nt,2)=esc+.5:t(nt,6)=z:p=nt:a=a+1-8*(a>6):3500 :1738: lW=Choose Warp Factor qiwf=a:go=1: W=Spare command  Klingon Destruction  Yb=l(a,2):c=l(a,3):q$(b,c)=".":h(b,c)b+9 ,c-1;2;"." 5y=14:l(a,y)=l(nk,y):y:nk=nk-1 Eg$(qr+1,qc+1,1)=nk:y=z$(qr+1,qc+1) 3y>1z$(qr+1,qc+1)=(y-1) =d(3)>10 b=qr+1:c=qc+1:1230 0a$="Klingon destroyed":9310^$:1888` ~score=score+10 :exk=exk+1:exk=tnkscore=score+tnr+200:a$="Congratulations, you've won!":9800H&  M1;Beamdown %wfa$="Not stationary":9310^$ 3en<10 a$="Insufficient energy":9310^$ a=esr:a=0a=1 'b=esr+2:b=11 b=10 c=esc:c=0c=1 'd=esc+2:d=11 d=10 e=ab:f=cd q$(e,f)="*"3266 f:e +a$="No planets around here !":9310^$ Dland=1:en=en-10 :1860D:iwf=0:dch=0 [9 ,10 ;"Any key to beam up...":1888`:a=en+sh-10 :ideal>aideal=a  M2;Beam up 1landa$="Beam up? You're aboard!":9310^$ 3en<10 a$="Insufficient energy":9310^$ Yland=0:cn=0:en=en-10 :1858B:dc=dc+dch:dc>9 dc=9 J1738:1888`:9 ,10 ;8;"Command?";0: Nearest Klingon a=0:z=999 ~y=1nk:2900T :vv=l(y,2)-.5-v:ww=l(y,3)-.5-w:x=vv*vv+ww*ww:xnt 2900T %d(8)<**90Z3400H nk3400H Nv=t(p,1):w=t(p,2):b=t(p,5):3280 :z=z*1.001 Ĝ (px=xx/z:pk=px*yy*4/:pl=pk-b pl<-4pl=pl+8 *Fpl>.5a=b+1-8*(b=7):3500 :3400H 4;pl<-.5a=b-1+8*(b=0):3500 HSpv=(t(p,1)+1):pw=(t(p,2)+1):q$(pv,pw)"+"3420\ Req$(pv,pw)=".":h(t(p,1)+.5,t(p,2)+.5)pv+9 ,pw-1;2;"." \px=t(p,1)+t(p,3):py=t(p,2)+t(p,4):pxi=px+1:pyi=py+1:t(p,1)=px:t(p,2)=py:pxi<1pxi>10 pyi<1pyi>10 3520 :3320 ful$=q$(pxi,pyi):l$="."q$(pxi,pyi)="+":(px-sr)lev+83710~ #kf=kf+1:kf>tnkkf=1 $ke=k$(kf,3):ke3590 *tnk>10 3550  @kr=k$(kf,1):kc=k$(kf,2):3595 :3630.  (Klingon kf energy) ke=255 ,ke=ke+10 :ke>255ke=255 $k$(kf,3)=ke: .kr=qrkc=qc 88g$(kr+1,kc+1,3)=03690j B+d=1:ent=0:a=15 L-s(a,1)=krs(a,2)=kc3680` Va: `,bz=a:4020:4190^:2900T : j 4310 t2900T : ~p=1nk:2900T %kf=l(p,1):ke=k$(kf,3) kr=qr:kc=qc:3595  .kx=l(p,2):ky=l(p,3):3770 )4020:ent4050:3765  4190^ p:2900T : Klingon homes in 3930Z:d1 e=kx+x:f=ky+y 3840:ok  x10 ok=0: $f<1f>10 ok=0: q$(e,f)"."ok=0: ((ok=1:q$(e,f)="K":q$(kx,ky)="." 28h(e,f)e+9 ,f-1;7;"K":3900< 7h(kx,ky)3910F <%kx+9 ,ky-1;2;"." F,l(p,2)=e:l(p,3)=f:kx=e:ky=f P3930Z: ZIdentify Klingon Target d;2900T :x=sr+.5-kx:y=sc+.5-ky:d=x*x+y*y nbase3990 xa=bx-kx:b=by-ky:c=a*a+b*b c2900T :a=(ke*(14-d)/502):a=kea=a-1 9k$(kf,3)=(ke-a):imp=(lev+1)*a/d/7: Phaser impact imp soff.5,30 \a=imp*2.2 *sh^.2~L:imp=imp*15-a:2900T :imp04080 a Hscore=score-300,:a$=" ENTERPRISE DESTROYED":9800H& "Damage random device 4b=(*8+1):d=*502:d>impd=imp "d>d(b)d=d(b) ,0imp=imp-d:d(b)=d(b)-d:1600@:4180T 6,b=2hr=d(2)/9 -1: @3b=3ar=((d(3)-10 )/40(): J Tsoff U,a=15:.005y# =,5:a: Ysoff Z.b=16.1}L:.01z# =,b:b: ^Damage Starbase bz hu2900T :b=kr+1:c=kc+1:s(bz,3)=s(bz,3)-imp*20:s(bz,3)<04240 m)s(bz,3)imp*2004210r omb=bz:4820:d(7)a*2a$="Quadrant "+(kr+1)+","+c+": Base in danger!":9310^$ r docked |bz=esab1888`  Dimp=-s(bz,3)/20:a=14:s(bz,a)=s(ns,a):a Fns=ns-1:a$="Starbase at "+b+","+c+" destroyed!":9310^$ esabbz4280 {base=0:a$=(docked*102f+46.):q$(bx,by)=a$:h(bx,by)bx+9 ,by-1;2+docked*3;a$ &g$(b,c,3)=0:1300 7score=score-100d:esabbzesab=esab-(esab>bz): 2esab=0:dockeddocked=0:4050  New Klingon quadrant <a=(*2)*2-1:b=kr+1:c=kc+1 >.54360 .kx=b:ky=c+a:ky<1ky>10 ky=c-a  4370 .ky=c:kx=b+a:kx<1kx>10 kx=b-a #d=g$(kx,ky,1):d=3 9g$(b,c,1)=(g$(b,c,1)-1):1300 &\k$(kf,1)=(kx-1):k$(kf,2)=(ky-1):g$(kx,ky,1)=(d+1) 05b=kx:c=ky:1300:bqr+1cqc+1 :Na=(*10 +1):qr=krqx=a:qy=1+9 *(qc10 acc=acc+d(1)/30:4515 acc=acc+ieng/9 a=acc:acc=acc-a b=iwf-wf:b4550 aenb=b*(b-1):4540 wf=wf+b:en=en-z  2900T :cou=ic4610 ,wfd(1)/10 wfieng4558 Nx$(69 )"slow"a$="Must slow down to change course":9310^$  4610  wf=0cou=ic:4600 Xz=en-2*wf*y:z<0a$="Insufficient energy":9310^$:ic=cou:4610 _c=cou-ic:(c/4)+2*(c<0)cou=cou+1-8*(cou=8):4590 'cou=cou-1+8*(cou=1) en=z:wf-6>*10 d(1)=d(1)-502*:b=1:1600@:a$="Engines damaged by manoeuvre":9310^$ 2350. :4620  b2385Q  "1858B:go=(wfiwfcouic): Crystal activity  dcin=3 *Ken=en+502-5*lev+20*:en+sh>4000en=4000-sh 4.dct=dct-1:dct=0dcin=3: >dcin=1 HPen=en+600X*(-.8L)/(dct+1):en<0en=0:4700\ R$en>4000-shen=4000-sh \0d=100d/(dct*dct):b=6:4130": fEnter Romulan p6rom=1:ren=250:2850" :rr=qx:rc=qy z?q$(qx,qy)="R":h(qx,qy)qx+9 ,qy-1;7;"R"  Nearest starbase 3baseb=esab:c=esab:4820:d=a:4800 7nsa$="No starbases left!":9310^$:c=0: 6d=999:b=1ns:4820:d>ac=b:d=a b Id(7)*10000'4710f  4910. .9ffffdockedx=sr+.5-rr:y=sc+.5-rc:d=(x*x+y*y):a=ren*(14-d)/(14+d):ren=ren-a:imp=(lev+1)*a/d/10 :4050:4910. .9ffff4910. $Grom=0:ren<**250tnr=tnr-1:score=score+20 )@q$(rr,rc)=".":h(rr,rc)rr+9 ,rc-1;2;"."; .2900T : #(Game Initialisation #) #*01:1:6::3,3; #, "SPACE, THE FINAL FRONTIER."''" This is a voyage of the"''" Starship Enterprise. Its"''" five year mission, to"''" explore strange new worlds,"''" to seek out new life and new"''" civilisations,TO BOLDLY GO"''" where no man has gone before." #1Variables Initialisation #2b$(7):c$(7):d$(7,18):e$(8,18):g$(10 ,10 ,3):k$(70F,3):q$(10 ,10 ):x$(32 ):z$(10 ,10 ) #7ld(8):l(3,4):p(8):s(5,4):t(3,6):x(8):y(8) #<qr=(*8+1) #Fqc=(*8+1) #P6sr=5.50:sc=5.50:esr=5:esc=5 #U*:a="e":9330r$:a="b":9330r$ #ZAa=18:x(a),y(a):d(a)=91[:p(a)=-999:a #dqg=1:tnk=0 #nv=110 #sy=16-(v-5.50) #xw=110 #%nk=(**(4-tnk*.13~R/v)) #Jg$(v,w)=nk+((y-(w-5.50))*(1+))+0:z$(v,w)=0 #x=1nk #?tnk=tnk+1:k$(tnk)=(v-1)+(w-1)+255 #x #w #v #פacc=0:act=0:ar=2:cn=0:con=1400x:cou=(*8+1):date=3000 :dc=5:dcin=0:dev=7:docked=0 #܂en=1917}:exk=0:go=0:hr=9 :ic=cou:ideal=1500:ieng=0:imp=0:iwf=5:kf=0 #yland=0:ps=9 *+1/3:pt=7:rom=0:score=-3:sh=1083;:tnr=5:wf=iwf #c$="cmprstww":d$(1)="Enterprise Course?":d$(2)="Misc. order no. ?":d$(3)="Phaser Energy ?":d$(4)="Device to Repair ?":d$(5)="Shield Energy ?":d$(6)="Torpedo Course ?":d$(7)="Warp Factor ?" #;21,0;"Level (0=easy to 9=impossible) ?"; #L9890&:lev=a$-480:tnr=lev:lev<0lev>9 9194# #;21,0;"Do you want sound effects[y/n] ?"; #69890&:soff=(a$<"o"):a$"y"a$"n"9198# #Screen Initialisation #5:7:0: #`1:5:a=09 :10 :a:a=10 17:a,10 ;" ":a #5:ns=(*4+2):a=1ns:b=(*10 ):c=(*10 ):s(a,1)=b:s(a,2)=c:s(a,3)=5000:s(a,4)=30-3*lev:g$(b+1,c+1,3)=1:b,c;"":z$(b+1,c+1)=1:a #:0:a=10 19:a,0;" ":a #:7:4:b=18:b,30;"91":b $5:7:a=08:a,10 ;(a=dev);" ";:a:9 ,10 ;0;"Command ? ";:a=10 17:a,15;" ":a:8:8 $ 0,11 ;"DAMAGE CONTROL REPORT";:e$(1)="Warp Engines":e$(2)="S.R. Sensors":e$(3)="L.R. Sensors":e$(4)="Phaser Control":e$(5)="Photon Torp. Tubes":e$(6)="Shield Control":e$(7)="Communications":e$(8)="Ship's Computer" $ *a=18:a,11 ;e$(a);:a $N10 ,10 ;"Long Stardate";11 ,10 ;"Range Condition";12 ,10 ;"Scan Energy";13 ,16;"Shields";14,16;"Quadrant";15,16;"Sector";16,16;"Course";17,16;"Warp Factor";18,10 ;"Dilithium Crystals";19,10 ;"Photon Torpedoes" $1a$="1982 Peter Lovett Ltd.":x$="":9310^$ $ 2540 $" 1730 $, 2350. $S $T>h(b,c)=((b-.5-sr),0 &E0,0,24,60<,60<,24,0,0 '0,.11}aG,-.08}# =,.08}# =,-.11}aG,0,-.08}# =,-.08}# =,0,-.11}aG,.08}# =,-.08}# =,.11}aG,0,.08}# =,.08}# = ' 4180T