@MR?ݛ6XD:\6=:67980 ?x(n)*3+(8-y(n))*36$:s$(zz+2)=" ":x(n)=x:y(n)=y:s(x,y)=2*(n<5)+6*(n=5):e(n)=e(n)-5:n<5z=41)+x*3+(8-y)*36$:s$(zz+2)="":s$:1:502 8n=5e(n)>100dp(n)ź(*3)1270 !x(n)<5x=gx-(*2) !x(n)>4x=gx+(*2) !y(n)<5y=gy-(*2) !y(n)>4y=gy+(*2) x=gxy=gy1210 x<1x=8 x>8x=1 y<1y=8 y>8y=1 g(x,y)4001210 M21,0;"Klingonen gehen zum Sektor ";x;",";y,:1:502 s(x(n),y(n))=0:z=41)+x(n)*3+(8-y(n))*36$:s$(zz+2)=" ":s$:g(gx,gy)=g(gx,gy)-100d:ks=ks-1:e(n)=0:z=21+gx*4+(8-gy)*36$:g$(z)=((g$(z))-1):g(x,y)=g(x,y)+100d s$  bax1310  bx=(*8)+1:y=(*8)+1:g(x,y)<100db(x,y)(x=gxy=gy)1320( ~bax=x:bay=y:21,0;2;7;1;" Sternbasis ";bax;",";bay;" unter Angriff",:1:75K Sb(bax,bay)=b(bax,bay)-(*1500):b(bax,bay)0b(bax,bay)=0:21,0;2;7;1;" Sternbasis ";bax;",";bay;" zerstoert",:1:502:b1=b1-1:g(bax,bay)=g(bax,bay)-10 :z=21+bax*4+(8-bay)*36$+1:bax=0:bay=0:g$(z)"-"g$(z)="0" "sh<0en=en+sh:sh=0  t1=tempt osx=sx:osy=sy  600X :2;"  das Computer Programm":2;5,2;"Uebersetzt von Udo R. Pfeifer": @6,0;"Sie haben bis Sternzeit ";:t=t2:2060  #,;k1;" Klingonen zu zerstoeren"; 1b11,"Sie haben ";b1;" moegliche Basen" /b1=1,"Es ist nur eine Basis moeglich"   t<10000; t<100d0; *.t/10 ;:t/10 =(t/10 )".0"; 4 >210 ,0;"Kontrollraum COMPUTER",,, H!"1: Manoever Hyperfahrt ", R"2: Schild Status", \ "3: Phaser Navigation", f""4: Photonentorp. Zieltorpedos", p"5: Abtastung Sonde", z "6: Instruktion Streubombe", ""7: Weltraumatlas Selbstzerst.", ""8: Computer Kontrollraum", J21,0;"Weiter mit einer bel. Taste...":1:0:: /21,0;"Eingabe: Neuer Sektor...", katt=1 Ys$=22+0+0+20+1+" 1 2 3 4 5 6 7 8 " y=81-1 ts$(41)+(8-y)*36$)=y+20+1+" "+20+1+y+" " y 0s$(329I)=" 1 2 3 4 5 6 7 8 " rdock=0:bx=0:by=0:osx=0:osy=0:lock=0:n=14:e(n)=0:n  ss=g(gx,gy) (ks=(ss/100d):ss=ss-100d*ks &bs=(ss/10 ):ss=ss-10 *bs Jz=21+gx*4+(8-gy)*36$:g$(zz+2)=ks+bs+ss <x=18:y=18:s(x,y)=0:y:x $n=15:e(n)=0:n Vs(sx,sy)=1:z=41)+sx*3+(8-sy)*36$:s$(zz+2)="" ks=02380L $n=1ks .Lx=(*8)+1:y=(*8)+1:s(x,y)02350. 8s(x,y)=2:z=41)+x*3+(8-y)*36$:s$(zz+2)="":e(n)=400:x(n)=x:y(n)=y:p(n)=3 Bn Lbs=02410j VLx=(*8)+1:y=(*8)+1:s(x,y)02390V `js(x,y)=3:bx=x:op=1:by=y:z=41)+x*3+(8-y)*36$:s$(zz+2)="" jss=02460 tn=1ss ~Lx=(*8)+1:y=(*8)+1:s(x,y)02430~ Rs(x,y)=4:z=41)+x*3+(8-y)*36$:s$(zz+2)=" * " n (*10 )2460 Lx=(*8)+1:y=(*8)+1:s(x,y)02452 Bs(x,y)=6:e(5)=500:x(5)=x:y(5)=y  A2:11 ,0;"SEKTOR ";gx;",";gy,"KONDITION "; &dock0;" DOCK ";:2510 5kse(5)2;7;1;"ROT";:, 0kse(5)4;0;"GRUEN";:, dam=0 /sh<0en=en+sh:sh=0:dam=1 0"ENERGIE ";en,"STERNDAT. ";:t=t1:2060  ","SCHILD ";sh,"KLINGONEN ";k1, "TORPEDOS ";pt,"COMPUTER "; 1 comp6;0;"AN";:,,,"1: Hyperfahrt","5: Sonde","2: Status","6: Streubombe","3: Navigation","7: Selbstzerst. 4: Zieltorpedos","8: Kontrollraum", comp0;"AUS";:,,,"1: Manoever ","5: Abtast.","2: Schild","6: Instruktion","3: Phaser","7: Sternatlas","4: Photontorp.","8: Computer", 0:s$  dam (<d1=(*5)+1:d1<1d1>52600( <$d(d1)=d(d1)+(*10 )+10 F<21,0;"Unfall bei ";d$(d1),:1:502 P[21,0;:t=d(d1):2060 :" Sternentage zur Reperatur",:1:502 d ny1=y2x1=x2b$=" 0.00": xy1=y2x1x2b$="270.00": 1b=(18000PF*((x2-x1)/(y2-y1))/)/100d y2y1x284800 w=i:w<1 Yen20*w21,0;"Ungenuegende Energie",:1:502:4800 Ga$="Richtung (0-360)?":9600%:i<0i>360h4820 @b=i*/180:en=(en-20*w):tempt=(tempt+w*8) ox=gx:oy=gy:osx=sx:osy=sy 'c=0:u=8:5060:c &x1=gx*8+osx:y1=gy*8+osy @x2=(.5+x1+8*w*b):y2=(.5+y1+8*w*b) ;x29 x272Hy29 y272H4930B x2<9 x2=64@+x2 $x2>72Hx2=x2-64@ .y2<9 y2=64@+y2 8y2>72Hy2=y2-64@ = 4880 L0gx=(x2/8):gx=x2/8gx=gx-1 V0gy=(y2/8):gy=y2/8gy=gy-1 `sx=x2-8*gx jsy=y2-8*gy ls(osx,osy)=0:z=41)+osx*3+(8-osy)*36$:s$(zz+2)=" ":s(sx,sy)=1:z=41)+sx*3+(8-sy)*36$:s$(zz+2)="" tgxoxgyoy2210 ~ 421,0;"Sprung-oder Ionenfahrt (S/I)?"; ""5010 )i$=:i$=""(i$"s"i$"i")5020 i$="s"4800 $d(3)d1=3:2630F "21,0;"IONENFAHRT",,  w=0 Da$="Einheiten (0-8)?":9600%:i<0i>85030 u=i:u<1 Xen5*u21,0;"Ungenuegende Energie",:1:502:5028 i21,0;"IONENFAHRT",,:a$="Richtung (0-360)?":9600%:i<0i>360h5040 &en=en-(5*u):tempt=(tempt+u) b=i*/180:c=0 Lx1=sx:y1=sy:tx=x1:ty=y1:x2=(.5+x1+u*b):y2=(.5+y1+u*b) B(x2-x1)>(y2-y1)ix=(x2-x1):iy=(y2-y1)/(x2-x1):ct=(x2-x1) B(y2-y1)>(x2-x1)iy=(y2-y1):ix=(x2-x1)/(y2-y1):ct=(y2-y1) :(x2-x1)=(y2-y1)ix=(x2-x1):iy=(y2-y1):ct=(x2-x1) Itx=tx+ix:ty=ty+iy:x1=(tx+.5):y1=(ty+.5):ct=ct-1 9x11x18y11y1851702 w &x1<1gx+ix<1gx=9 &x1>8gx+ix>8gx=0 &y1<1gy+iy<1gy=9 &y1>8gy+iy>8gy=0 =x1<1gx=gx-1:tx=8:x1=tx:x2=x2+8  =x1>8gx=gx+1:tx=1:x1=tx:x2=x2-8 =y1<1gy=gy-1:ty=8:y1=ty:y2=y2+8 =y1>8gy=gy+1:ty=1:y1=ty:y2=y2-8 #sx=x1:sy=y1 (2210:2470 2Ds(x1,y1)>1c=s(x1,y1):he=(u*(i$="i")+10 *w*(i$="s")) <cct>05090 ==ctx=tx-ix:ty=ty-iy:x2=(.5+tx):y2=(.5+ty) >s(sx,sy)=0:z=41)+sx*3+(8-sy)*36$:s$(zz+2)=" ":sx=x2:sy=y2:s(sx,sy)=1:z=41)+sx*3+(8-sy)*36$:s$(zz+2)="":s$ Ac=221,0;"Kollision mit Klingons in ";x1;",";y1,:1:502:n=0:k=14:n=n+k*(x(k)=x1)*(y(k)=y1):k:e(n)=e(n)-he:e(n)0e(n)=0:21,0;"Klingons zerstoert",:1:502:k1=k1-1:s(x(n),y(n))=0:z=41)+x(n)*3+(8-y(n))*36$:s$(zz+2)=" ":g(gx,gy)=g(gx,gy)-100d:z=21+gx*4+(8-gy)*36$:ks=ks-1:g$(z)=ks Bc=321,0;"Kollision mit der Basis in ";x1;",";y1,:1:502:b(gx,gy)=b(gx,gy)-he:b(gx,gy)0b(gx,gy)=0:21,0;"Sternbasis arbeitet nicht mehr",:1:502:b(gx,gy)=0 Cdc=421,0;"Vom Stern gestoppt in ";x1;",";y1,:1:502:he=he*2 Dc=621,0;"Kollision mit Romulan in ";x1;",";y1,:1:502:e(5)=e(5)-he:e(5)0e(5)=0:21,0;"Romulan zerstoert",:1:502:s(x(5),y(5))=0 Edcs$;:21,0;he;" Schildeinheiten entzogen",:1:502:sh=sh-he:2590 F P+en=en+sh:sh=0:tempt=tempt+1 Z?a$="Schild Energie (0-"+(en-1)+")?":9600%:sh=i d&sh<0sh>en-15210Z n en=en-sh x $d(5)d1=5:2630F Vkse(5)21,0;"Keine Klingonen vorhanden",:1:502: Pdock21,0;"Waehrend Andockung schutzlos! ",:1:502: >a$="Phaserenergie (0-"+(en-1)+")?":9600%:pe=i "&pe<0pe>en-15400 'pe=0 (5tempt=tempt+2*ks+2*(e(5)>0) ,Ren=en-pe:pe=(pe/(ks+(e(5)>0))):en=en+pe*(ks+(e(5)>0)) 1hedx=20+24*sx:edy=171-8*(9 -sy):epx=1+3*sx:epy=(9 -sy) 6n=15 @e(n)5520 E en=en-pe Jpkdx=20+24*x(n):kdy=171-8*(9 -y(n)):kpx=1+3*x(n):kpy=(9 -y(n)) NKhe=(3*pe/((sx-x(n))*(sx-x(n))+(sy-y(n))*(sy-y(n)))):he>pehe=pe P\he=021,0;"Phaserenergie zu gering...",:1:502:5520 T7n<5edx,edy:1;6;kdx-edx,kdy-edy YXepy,epx;1;"":n<5kpy,kpx;6;2;1;1;"" ^%m=17:.01z# =,m*m:m r_n<521,0;he;" Einheit. auf Klingon in ";x(n);",";y(n),:1:502 wNn=521,0;he;" Einheiten auf Romulan",:1:502 |e(n)=e(n)-he 3n<5e(n)0e(n)=0:21,0;"Klingon zerstoert",:1:502:k1=k1-1:s(x(n),y(n))=0:z=41)+x(n)*3+(8-y(n))*36$:s$(zz+2)=" ":g(gx,gy)=g(gx,gy)-100d:z=21+gx*4+(8-gy)*36$:ks=ks-1:g$(z)=ks xn=5e(n)0e(n)=0:21,0;"Romulan zerstoert",:1:502:s(x(n),y(n))=0 2470 :n  $d(1)d1=1:2630F Idock21,0;"Bei Andockung schutzlos",:1:502: Ept21,0;"Kein Torpedo mehr...",:1:502: lockks5610 *21,0;"Torpedos gesperrt..", 6f=0:k=14:e(k)ptf5607 k: Ef=1:x1=sx:y1=sy:tx=x1:ty=y1:x2=x(k):y2=y(k):5640  5606 Ga$="Richtung (0-360)?":9600%:i<0i>360h5610 b=i*/180:c=0 Zx1=sx:y1=sy:tx=x1:ty=y1:x2=(.5+x1+15*b):y2=(.5+y1+15*b) $pt=pt-1:tempt=tempt+3  5(x2-x1)>(y2-y1)ix=(x2-x1):iy=(y2-y1)/(x2-x1) 5(y2-y1)>(x2-x1)iy=(y2-y1):ix=(x2-x1)/(y2-y1) -(x2-x1)=(y2-y1)ix=(x2-x1):iy=(y2-y1) &:tx=tx+ix:ty=ty+iy:x1=(tx+.5):y1=(ty+.5) 0c=0:x1<1x1>8y1<1y1>8tx=tx-ix:ty=ty-iy:x1=(tx+.5):y1=(ty+.5):c=1:sx=x1sy=y1c=5 2c5710N :s(x1,y1)>1c=s(x1,y1):c4s(x1,y1)=0:z=41)+x1*3+(8-y1)*36$:s$(zz+2)=" " ?c>15705I D 5670& Ic25710N J]n=14:x(n)=x1y(n)=y1e(n)>0e(n)=0:k1=k1-1:ks=ks-1 Kn N>edx=20+24*sx:edy=171-8*(9 -sy) Xhkdx=20+24*x1:kdy=171-8*(9 -y1):kpx=1+3*x1:kpy=(9 -y1) ]?(kdx-edx)>(kdy-edy)ix=(kdx-edx):iy=(kdy-edy)/(kdx-edx) b?(kdy-edy)>(kdx-edx)iy=(kdy-edy):ix=(kdx-edx)/(kdy-edy) g5(kdx-edx)=(kdy-edy)ix=(kdx-edx):iy=(kdy-edy) ln=08:.01z# =,n*n:n:1:x=edx:y=edy:x2=x:y2=y:x,y:0,2:2,0:0,-2:-1,0 n+c=50:c=1:5760 qQix=1x=edxkdx4*ix:5785:y=edy+(x-edx)*iy:x:5755{ v8y=edykdy4*iy:5785:x=edx+(y-edy)*ix:y {Vx2,y2:0,2:2,0:0,-2:-1,0:0 1c=1s$;:21,0;"Verirrt..",, c>1s$;:kpy,kpx;1;" ";6;2;1;1;" ";:1;" ":n=110 :.02{# =,(*502)-25:n c=221,0;"Guter Treffer, Klingon zerstoert":g(gx,gy)=g(gx,gy)-100d:z=21+gx*4+(8-gy)*36$:g$(z)=ks c=321,0;"Das war wohl nichts, oder?!?":b1=b1-1:b(gx,gy)=0:bs=0:g(gx,gy)=g(gx,gy)-10 :z=21+gx*4+(8-gy)*36$:g$(z+1)="0" ;c=421,0;"Torpedoenergie absorbiert", Qc=621,0;"Sehr gut, Romulan zerstoert",:e(5)=0 1:502: qx2,y2:0,2:2,0:0,-2:7;0;0;0;-1,0 ox,y:0,2:2,0:0,-2:6;2;1;1;-1,0 .01z# =,30 x2=x:y2=y: $d(2)d1=2:2630F y0,0,,1,:tempt=tempt+2:0,0;8;0;" KBS KBS KBS", Q1:y=gy+1gy-1-1:8;"",8; x=gx-1gx+1 cx1=x+8*(x<1)-8*(x>8):y1=y+8*(y<1)-8*(y>8):a$="" s=g(x1,y1):a$="" s<100da$=a$+"0" s<10 a$=a$+"0"  a$=a$+s Az=21+x1*4+(8-y1)*36$:g$(zz+2)=a$  "";a$;"";  $x:,8;"",:y N0:21,0;"Weiter mit einer bel. Taste.",:1:0   p42000:2010:2110>:9000(#:: 8tempt=tempt+2:g$ BA9 -gy,4*gx-3;1;0;6;"" LG21,0;"Weiter mit einer bel. Taste.",:1:0:  8000@ ctempt=tempt+1:ks=421,0;"Hyperfahrt unmoeglich",:1:502: bks>1*10 >121,0;"Hyperfahrt unmoeglich",:1:502: Nen/20021,0;"Ungenuegende Energie",:1:502: &tempt=tempt+1:en=en-200 $n=040(:.02{# =,n:n dgx=(*8)+1:gy=(*8)+1:sx=(*8)+1:sy=(*8)+1  2210  hd=0:n=15:d=d+d(n):n:d21,0;"Kein Unfall.",,:1:502: 0,0,0,0;2;1;13 ;"STATUS",0,,5;"UNFALL";20;"ZEITVERLUST",,, m=0:n=15 Ad(n)m=m+1:m;") ";d$(n);" ";:t=d(n):2060 :, n H21,0;"Weiter mit einer bel. Taste..",:1:0: X$1:16,0, ]tempt=tempt+2 bRa$="Start Koordinaten: x=":9600%:x1=i:x1<1x1>87010b dRa$="Start Koordinaten: y=":9600%:y1=i:y1<1y1>87012d l816,0;"Start Koordinaten (";x1;",";y1;")", vPa$="Zielkoordinaten: x=":9600%:x2=i:x2<1x2>87030v xOa$="Zieloordinaten: y=":9600%:y2=i:y2<1y2>87032x );" Zielkoordinaten (";x2;",";y2;")",,, Bd=((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)):d=(d*100d)/100d  2670n  "Peilung ";b$;", Distanz ";d, -21,0;0;"Nochmal(Y/N)?"; ""7140 )i$=:i$=""(i$"n"i$"y")7150 "0;i$;:i$="y"7000X  0:  Jks21,0;"Keine Klingonen im Sektor",:1:502: %tempt=tempt+2 *&n=14:e(n)7240H 4.kpx=1+3*x(n):kpy=(9 -y(n)) >Mm=120:kpy,kpx;(*900+100d):.02{# =,0:m Rn \Klock=1:21,0;"Torpedos gesperrt",:1:502: 5z=21+gx*4+(8-gy)*36$+1 Vg$(z)="0"kse(5)21,0;"Sektor leer...",,:1:502: tempt=tempt+2 40,0,:x1=sx:y1=sy ;1:0,0;1;13 ;"SONDE",:,, ,1;"KLINGON BRINGT ENERGIETORPEDOS", 0:n=14 =" ";n;:e(n)" -",:7460$ `x2=x(n):y2=y(n):2670n :" ";b$;" ";e(n),8;8;8;8;p(n), $n .,, 0g$(z)="1"x2=bx:y2=by:2670n :1;" BASIS ";0;b$;" ";b(gx,gy),8;8;8;8;8;"N/A", 1e(5)x2=x(5):y2=y(5):2670n :1;"ROMULAN ";0;b$;" ";e(5),8;8;8;8;"0", 8G21,0;"Weiter mit einer bel. Taste.",:1:0: btempt=tempt+2:bomb21,0;"Streubomben aufgebraucht..",:1:502: 6;2;1;s$ Un=115:6:.02{# =,*502:2:.02{# =,*502:n 6;2;s$ (e(5)=0:k1=k1-ks:b1=b1-bs Qx=18:y=18:z=41)+x*3+(8-y)*36$ -s(x,y)=0:s$(zz+2)=" ":y:x Vz=41)+sx*3+(8-sy)*36$:s(sx,sy)=1:s$(zz+2)="" Vz=21+gx*4+(8-gy)*36$:g(gx,gy)=0:g$(zz+2)="000" 0ks=0:n=14:e(n)=0:n 7:bomb=0: xEtempt=tempt+2:0,0;"Selbstzerstoerungscode?";f$ Pe$f$21,0;"Selbstzerstoerung ausgeloest!",:1:502: 11 ,0; Wn=100d1-1:ں(n/13 );9 ;n;" ";:.02{# =,60<-n:n %0;7;" ZERO!", "temp=bomb:7610:bomb=temp end=4:8300l @comp=1-comp J6n=115:.05|L,*20-20:n T "" "" "" "" "" "" "" "" "" "" "" "" "" &"" 0"" :"" D"" N"" X"" l,21,0,,:23692\,255 v 8100 n=119 r$:7;r$, (*8):5 n 2n=122:,,:(*8):7:n 7 !4 2000 !56,0; !6!end=1"Keine Energie..." !7end=2"Keine Zeit...." !8-end=3"Nun denn, Mission vollendet!" !9,end=4"Selbstzerstoerung vollendet" !>58,0;"Sie hatten vom Sterndatum 000.0", !H)"bis Sterndatum ";:t=t2:2060 :, !R";k2;" Klingonen zu zerstoeren " !\.b2=1"Es war eine Basis moeglich!",,, !f1b21"Es waren ";b2;" Basen moeglich",,, !p'"Ab Sterndat. ";:t=t1:2060 :, !z k3=k2-k1 !)"haben Sie ";k3;" Klingonen zerstoert"; !b2'"und ";b1;" Basen"; !b2" verbleiben" !score=(100d*k3/k2-b2) !score<0score=0 !)'"Ihre Leistung betraegt ";score;"%"'' ""Eine neue Mission (Y/N)?"; """8720" ")i$=:i$=""(i$"y"i$"n")8730" "$ i$="y" ". #( 2000 #2)7,0;"Instruktionen(Y/N)?"; #<""9020<# #F)i$=:i$=""(i$"y"i$"n")9030F# #Pi$:i$="n" #Z2000:8,10 ;1;" EINLEITUNG ";0,,,"Die Milchstrasse wird von Klin- gonen-Kriegsschiffen angegriffenAls Kapitaen der USS Enterprise sollen Sie die Klingonen finden","und die Eindringlinge zerstoeren",,, #d9900&:i$="e" #n:" 1 2 3 4 5 6 7 8 8 * 8 7 * 7 6 6 5 5 4  4 3 3 2 * * 2 1  1 1 2 3 4 5 6 7 8" #,,"Die Milchstrasse hat 64 ","Sektoren. Ein kleiner, fuer Sie wichtiger Ausschnitt, wird dabeiam Bildschirm angezeigt.",,, #?" Enterprise"," Klingonen"," Sternbasis"," * Stern" #9900&:i$="e" #Q2000:,,"Sie erfahren nun etwas ueber dieaktuelle Situation im All...",,, #}"SEKTOR 3,7KONDITION ROTENERGIE 1270STERNDAT.013.7SCHILD 357KLINGONEN 72TORPEDO'S 8COMPUTER AUS",, #%"Ihre Kommandomoeglichkeiten...",,, #o"1: Manoever5: Abtastung2: Schild6: Instruktion3: Phaser7: Sternkarte4: Photontorp.8: Computer",,, #9900&:i$="e" #2000:,,"Haben Sie Klingonen im Sektor, greifen diese sofort an und ent-ziehen dem Schild die Energie.",,,"Wenn die Schildenergie alle ist,koennen Sie aus der HauptenergieEnergie uebertragen. Das schadetaber der Enterprise.", $U"Durch die Kommandos (1-8)? ha- ben Sie die Moeglichkeit sich zuverteidigen...",,, $9900&:i$="e" $32000:,,"MANOEVER ",,,,"Eine Einheit fuer die Ionenfahrtbringt Sie eine Position weiter,der Sprungfaktor '1' versetzt Sie um einen ganzen Sektor in der Galaxie.",,,,"Richtungen werden immer als Pei-lung von 0-360 Grad angegeben.",,8;"0"," 270 90",8;8;"180" $"9900&:i$="e" $,r2000:,,"SCHILD",,,,"Sie muessen Ihre Energie mit derHauptenergie und der Schildener-gie aufteilen.",, $6,,"PHASER",,,,"Phaser Energie ist getrennt zwi-schen Klingonen die sich in Be- wegung befinden oder rotieren.","Je genauer Sie zielen, desto","bessere Effekte hat Ihr Phaser." $@9900&:i$="e" $J2000:,,"PHOTONENTORPEDOS",,,"Die Photonentorpedos brauchen","eine Richtungsangabe von 0-360 Grad.Sie zerstoeren alles ausserSternen.",,,, $T"WEITSICHTABTASTUNG(RADAR)",,,"Ergibt eine Uebersicht ueber dieumliegenden 8 Sektoren. Die Ba- sen, Sterne und Klingonen werdenmit drei Zahlen angezeigt.",,, $^9900&:i$="e" $h2000:,,"INSTRUKTIONEN",,,,"Erinnern Sie sich an die galak- tische Situation und lassen Sie sich die Kontrollmoeglichkeiten nochmals erklaeren.",, $r,"GALAKTISCHER ATLAS",,,"Erstellt den Nahbereich inner- halb der gesamten Galaxie. Je- doch nur die Bereiche, die abge-tastet wurden oder in denen Sie schon waren.",,, $|9900&:i$="e" $f2000:,,"COMPUTER",,,,"Aktiviert den Bord-Computer, undschafft Ihnen neue Kommandos...",,, $s"1: Hyperfahrt5: Sonde2: Status6: Streubombe3: Navigation7: Selbstzerst. 4: Zieltorpedo8: Kontrollraum" $9900&:i$="e" $2000:,,"HYPERFAHRT",,,,"Versetzt die Enterprise an eine","zufaellig ausgesuchte Position innerhalb der Galaxie.",,, $Q"STATUS",,,,"Informiert Sie ueber jeweilige Unfallart und Reperaturdauer." $9900&:i$="e" $g2000:,,"NAVIGATION",,,,"Zeigt Richtung (Peilung) und Distanz zwischen zwei Punkten.",,, $̄"ZIELSUCHENDE PHOTONENTORPEDOS",,,"Diese Torpedos benoetigen keine Richtungs- und Zieleingabe, sie finden selbst ihr Ziel.",,, $9900&:i$="e" $h2000:,,"SONDE",,,,"Gibt Informationen ueber Klingo-nen, Basen und Romulans in IhremSektor." $Z,,"STREUBOMBEN",,,,"Sie zerstoeren alles in ihrem Sektor, sogar Basen und Sterne." $9900&:i$="e" $2000:,,"SELBSTZERSTOERUNG",,,"Alles im Sektor wird zerstoert einschliesslich der Enterprise und das Spiel endet." $o,,"KONTROLLRAUM",,,,"Schaltet den Computer aus und Sie uebernehmen wieder die Kon- trollraumsteuerung." $9900&:i$="e" %2000:,,"Um die Klingonen zu zerstoeren muessen Sie jeden um 400 Einhei-ten schwaechen.Achtung: Sie ha- ben eigene Phaser.",,, %"Von Zeit zu Zeit greift Sie auchein Romulan an. Seine Schiffe mit je 500 Energieeinheiten be- nutzen einen faulen Trick um nicht gesehen zu werden. Nur dieSonde entdeckt sie." % 9900&:i$="e" %2000:,,"Das Andocken an die Sternenbasiserneuert Ihren Energietank und verschafft Ihnen neue Photonen- torpedos.Ihr Schiff wird repa- riert.Basen haben 4000 Energie- einheiten und produzieren staen-dig Torpedos." %9900&:i$="e" %&2000:,,,,1;"Das sind die Reisen des",,,"Sternenschiffes ""Enterprise""...",,,"Reichen 5 Jahre um neue Welten",,,"zu erschliessen, Leben oder neue",,"Zivilisationen zu entdecken?",,," SEI KUEHN!!! "," GEHE DAHIN WO NOCH KEINER WAR!" %0I21,0;"Weiter mit einer bel. Taste...",:1:0 %: % (a$);b$ %6dec=0:blank=0:num=0:err=0 %n=16 %b$(n)="."decerr=1 %b$(n)="."dec=1 %b$(n)=" "blank=1 %6b$(n)"0"b$(n)"9"num=1:blankerr=1 %8b$(n)"."b$(n)" "(b$(n)<"0"b$(n)>"9")err=1 %n %erri=-1 %&b$=" "err=1:i=-1 % erri=b$ % &621,0;"E(beenden), SPACE(fortfahren)..." &""9910& &i$=:i$=""9920& & '"STAR TREK"5 ?% 1982. R & R SOFTWARE EBEBEBhe f  C@@ C@@ UPhotonen TorpedoAbtastung Ionenfahrt Sprungfahrt Phaserkurve HG2aXrnGT RAUMKARTE8---:---:---:---:---:---:---:---7---:---:---:---:---:---:---:---6---:---:---:---:---:---:---:---5---:---:---:---:---:---:---:---4---:---:---:---:---:---:---:---3---:---:---:---:---:---:---:---2---:---:---:---:---:---:---:---1---:---:---:---:---:---:---:--- 1 2 3 4 5 6 7 8 I :.1}L,1:100d:0 dTMM0XWq0 G P P  P 333MN@>v>>BB<DHpHDB@~BfZBBBBbRJFB,62>,0,0,0,128,255,0,0,0,0,0,0,568,252,0,0,0,0 P0,0,0,15,15,0,0,0,0,60<,195,255,255,195,60<,0,0,0,0,240,240,0,0,0 dRg$=22+0+0+23+10 +0+"RAUMKARTE"+6 ny=81-1 xRg$=g$+20+1+y+20+0+"---:---:---:---:---:---:---:---" y Pg$=g$+20+1+" 1 2 3 4 5 6 7 8 "+20+0 9000(# t2=(*1001)+1000 k1=(*513)+502 b1=(*6)+5 c2000:6,0;"Warten Sie einen Moment Kapitaenich konstruiere das Universum..." Yx=18:y=18:g(x,y)=(*4)+1:b(x,y)=0:y:x b1=0330J n=1b1 Lx=(*8)+1:y=(*8)+1:g(x,y)10 240 +g(x,y)=g(x,y)+10 :b(x,y)=4000 n n=14 Mx=(*8)+1:y=(*8)+1:g(x,y)400280 "g(x,y)=g(x,y)+400 ,n Jn=17k1 TMx=(*8)+1:y=(*8)+1:g(x,y)300,340T ^g(x,y)=g(x,y)+100d hn  2010 710 ,0;"Akzeptieren Sie das Spiel (Y/N)?"; ""410 (i$=:i$=""(i$"y"i$"n")420 i$:i$="y"520 &'"Wollen Sie selbst aufbauen(Y/N)?"; ""450 (i$=:i$=""(i$"y"i$"n")460 i$:i$="n"150 `a$="Zieldatum (100-200)":9600%:t2=(10 *i):t2<1000t2>2000480 Ta$="Klingonarmee (50-100)":9600%:k1=i:k1<502k1>100d490 Ia$="Basen (0-20)":9600%:b1=i:b1<0b1>20500  190 "Selbstzerstoerungscode?";e$  2110> &Jw=0:u=0:bax=0:bay=0:t1=0:k2=k1:b2=b1 0Hen=2000:sh=1000:pt=10 :comp=0:bomb=1: :dgx=(*8)+1:gy=(*8)+1:sx=(*8)+1:sy=(*8)+1 N:2210:2470 S tempt=t1 Xdock=0:coms=3 Y2x=sx-1sx+1:y=sy-1sy+1 ZD(sx-x)=(sy-y)x<1x>8y<1y>8609a [s(x,y)3609a \jb(gx,gy)0opop=0:21,0;"Die Sternenbasis arbeitet nicht",:1:502 ]b(gx,gy)0609a _dock=1:pt=10 :b(gx,gy)=b(gx,gy)+en+sh:en=2000:sh=1000:b(gx,gy)=b(gx,gy)-3000 :n=15:d(n)=0:n `mb(gx,gy)<0b(gx,gy)=b(gx,gy)+en+sh:en=(2*b(gx,gy)/3):sh=b(gx,gy)-en:b(gx,gy)=0 ay:x b 2470 Qt2-t1<2021,0;"Zieldaten erscheinen...",:1:502 %en0end=1:8300l  t1t2end=2:85004! %k1=0end=3:85004! 921,0,,21,0;"Kommandos(1-8)?"; n=502:key=1 keyƦ""725 -key=0:i$=:i$"1"i$"8"730 #n=n-1:n>0710 key720 5tempt=tempt+2:21,0,,:743 X21,0,,;0,0:g=4800+200*i$:compg=g+1600@ Z0:g:coms=coms-1:2470 :21,0,,:tempt=t1coms700 qgx=baxgy=baybax=0:bay=0:21,0;"Attacke auf Basis aufgeschoben",:1:502 %n=15:d(n)746 d(n)=d(n)-(tempt-t1) Vd(n)0d(n)=0:21,0;d$(n);" REPARIERT",:.2~L,40( n Qkse(5)>0760:katt=katt+1:katt>5katt=1  1280 -n=katt:e(n)>01160:775 /katt=katt+1:katt>5katt=1  760  0n=5osxp(n)ú(*4)1050  s(x(n),y(n))=5  Ix1=x(n):y1=y(n):tx=x1:ty=y1:x2=osx:y2=osy:x1=x2y1=y21050 5(x2-x1)>(y2-y1)ix=(x2-x1):iy=(y2-y1)/(x2-x1)  5(y2-y1)>(x2-x1)iy=(y2-y1):ix=(x2-x1)/(y2-y1) *-(x2-x1)=(y2-y1)ix=(x2-x1):iy=(y2-y1) 4:tx=tx+ix:ty=ty+iy:x1=(tx+.5):y1=(ty+.5) >}x1<1x1>8y1<1y1>8tx=tx-ix:ty=ty-iy:x1=(tx+.5):y1=(ty+.5):c=0:860\ H:s(x1,y1)0s(x1,y1)5c=s(x1,y1):860\ R 8204 \s(x(n),y(n))=2 ^Jc3((x1-x(n))<(osx-x(n)))((y1-y(n))<(osy-y(n)))1050 _kc1c4s(x1,y1)=0:z=41)+x1*3+(8-y1)*36$:s$(zz+2)=" " `c2870f aPk=14:x(k)=x1y(k)=y1e(k)=0:k1=k1-1:ks=ks-1 bk fp(n)=p(n)-1 phedx=20+24*x1:edy=171-8*(9 -y1):epx=1+3*x1:epy=(9 -y1) zBkdx=20+24*x(n):kdy=171-8*(9 -y(n)) ?(edx-kdx)>(edy-kdy)ix=(edx-kdx):iy=(edy-kdy)/(edx-kdx) ?(edy-kdy)>(edx-kdx)iy=(edy-kdy):ix=(edx-kdx)/(edy-kdy) 5(edx-kdx)=(edy-kdy)ix=(edx-kdx):iy=(edy-kdy) B21,0;"Klingonen ";x(n);",";y(n);" feuern Torpedos", k=08:.01z# =,k*k:k:1:x=kdx:y=kdy:x2=x:y2=y:x,y:0,2:2,0:0,-2:-1,0 Pix=1x=kdxedx4*ix:5785:y=kdy+(x-kdx)*iy:x:960 8y=kdyedy4*iy:5785:x=kdx+(y-kdy)*ix:y zx2,y2:0,2:2,0:0,-2:1;0;0;0;-1,0:0 ʗc>1s$;:epy,epx;1;" ";6;0;1;1;" ";:1;" ":k=110 :.02{# =,(*502)-25:k c=1s$;:epy,epx+1;6;2;1;1;1;" ";:k=110 :.02{# =,(*502)-25:k:21,0;"200 Einheiten auf dem Schild",:1:502:sh=sh-200:2470 :2590 ԕc=221,0;"Klingonkanoniere=Kriegsfuehrer",:g(gx,gy)=g(gx,gy)-100d:z=21+gx*4+(8-gy)*36$:g$(z)=ks ޿c=321,0;"Sternbasis zerstoert",:b1=b1-1:b(gx,gy)=0:bs=0:g(gx,gy)=g(gx,gy)-10 :z=21+gx*4+(8-gy)*36$:g$(z+1)="0" >c=621,0;"Romulan zerstoert",:r=0 ;c=421,0;"Torpedoenergie absorbiert", c11:502  770 e(n)<2770 .pe=(e(n)/2) 3Khe=(3*pe/((sx-x(n))*(sx-x(n))+(sy-y(n))*(sy-y(n)))):he>pehe=pe 4he<1770 5 e(n)=pe 6_n<521,0;"Klingons ";x(n);",";y(n);" benutzen Phaser",:1:502 7Kn=521,0;"Romulan benutzt Phaser",:1:502 8hedx=20+24*sx:edy=171-8*(9 -sy):epx=1+3*sx:epy=(9 -sy) Bpkdx=20+24*x(n):kdy=171-8*(9 -y(n)):kpx=1+3*x(n):kpy=(9 -y(n)) LPn<5kdx,kdy:1;6;edx-kdx,edy-kdy:kpy,kpx;1;"" Q4epy,epx;6;2;1;1;"" V%m=17:.01z# =,m*m:m jB21,0;he;" Treffer auf Schild",:1:502 t"sh=sh-he:2470 :2590 ~2470 :770 e(n)<61210 :x=(*3)-1+x(n):y=(*3)-1+y(n) 5x<1x>8y<1y>81160 s(x,y)1160 s(x(n),y(n))=0:z=41)+