Startrek dy0%dy)fy236077\,60<:3 23692\,255: 236099\,60< uu$(10 ,22):a$(5,2):g(8,8):s(8,8):k(3,3):d(10 ) sd=0:ka=0:tk=0:kq=0:eq=0:b2=0:xm=0:tec=0:c$="":kp=0:dt=0:s=0:t=0  6000p:d$="-Startrek-":xs=3:ys=20:y=0:cs=8:0:1:0:7::9500%  100d 6000p::d$="Geben Sie Ihre Sicherheits-":xs=1:ys=4:y=502:9500%:d$="aufklarungsnummer ein!":y=100d:9500%:82R,70F:0,2:84T,70F:0,2:d$="(1-1000)":y=144:9500% t9 (e8=t9 P$t9<1t9>100020 Z:a=1t9/2 d#(t9/4.2fff)*23672x\:r9= na x:r3=0:k3=0 } w1=0 6000p:d$="Geben Sie den Grad ein!":xs=1:ys=4:cs=8:y=502:9500%:d$="(1=leicht - 12=schwer)":y=100d:9500% r9 rr=r9 -x4=r9:r9=r9+0.001wn:w1=w1+0.001wn  B6000p:d$="Kommando: Warten!":ys=3:y=14:9500%:d$="Sie werden einer Mission":y=40(:9500%:d$="zugewiesen mit einem Misser-":y=70F:9500%:d$="folgsfaktor von "+(rr*12.5H)+".":y=100d:9500%:d$="Auf Wiedersehen, Sir...":ys=4:y=130:9500% cx=/180 /xa=(x4*502):ac=(1/(x4+.1}L)) x49 3790 5e=3000 -xa+100d:p=10 :s9=200 Bd()=(((k(i,1)-s1))^2+((k(i,2)-s2))^2) 2q1=(*8+1):q2=(*8+1) 2s1=(*8+1):s2=(*8+1) L" Triebwerke "," Kleinraumsensoren "," Grossraumsensoren " L" Phaser "," Photonentorpedos ","Schutzschildkontrolle " "e" Schadenkontrolle "," Computer "," Schadenreparatur "," Funkverkehr " ,a=110 :u$(a):a 6Za$(1)=" .":a$(2)=" E":a$(3)=" *":a$(4)=" K":a$(5)=" B" @Wf1=.76B\):f2=.01z# =:f3=.95s333:f4=.99}p:k9=0:b9=k9:k3=0 JKi=18:j=18:r1=:r2=:r3=(8*+1) T;k3=0:(r1>(f1-f2*r9))k9=k9+1:k3=k3+1 U/(r1>(f3-f2*r9))k9=k9+1:k3=k3+1 V/(r1>(f4-f2*r9))k9=k9+1:k3=k3+1 Y!b3=0:(r2>f3)b3=1 ^.b9=b9+b3:g(i,j)=100d*k3+10 *b3+r3 cj:i h%(b9>0k9>9 )320@ r:6000p:d$="Operationsziel:":y=10 :xs=2:ys=5:9500%:d$="Zerstoren Sie "+(k9)+" Klingonen":y=502:xs=1:ys=3:9500%:68D,123{:69E,123{:68D,122z:69E,122z:66B,123{:65A,123{:66B,122z:65A,122z:b9>1d$="mit "+(b9)+" eigenen Sternenbasen":y=80P:9500%:380| tAd$="mit "+(b9)+" eigenen Sternenbasis":y=80P:9500% | u=k9:yy=b9   .t9=k9+502+*k9/r9+10 -r9:pr=t9/k9 8d$="in "+t9+" Sternentagen.":y=110n:9500% 6236077\,249:18,0:4250 .s3=0:b3=s3:k3=b3:s(8,8) &k(3,3):s(s1,s2)=1 9x=.01z# =*g(q1,q2):k3=x:yy=(x-k3)*10 :b3=yy &s3=g(q1,q2)-100d*k3-10 *b3 +k3=0k(3,3):510 0:0:0:2:2:7:1:0:" A l a r m s t u f e R o t ! ":0:7:0:a=1k3 Or1=(*8+1):r2=(*8+1):s(r1,r2)0520 _s(r1,r2)=3:k(a,1)=r1:k(a,2)=r2:k(a,3)=s9:a:b3=0540 b3=0540 Is14r1=(*4+5):r2=(*8+1):525   2r1=(*8+1):r2=(*8+1)  s(r1,r2)0520 s(r1,r2)=4 s3=0580D &a=1s3 0Or1=(*8+1):r2=(*8+1):s(r1,r2)05600 :s(r1,r2)=2:a Dg(q1,q2)=(g(q1,q2))+.5 N X2::"Ihre Position:" ],10 ;"Quadrant (";(q1);",";(q2);")" b,10 ;"Sektor (";(s1);",";(s2);")" gdt=12681y lkp04040 vdt=12681y sl=0:s<200*k3:2:7:1:" Schutzschildenergie zu gering! ":0:7:0:j=1502:j:sl=1:a=6:740 a=2:740  a236077\,60<:2::6;1;1;u$(2):0;5;3;" ":a=18:0;5;3;:b=18:0;5;a$((s(a,b))+1);:b:0;5;" ":a:236077\,249:0;5;3;" ":0:7 2::1;"Schutzschildenergie: ";((s*100d))/100d:1;"Torpedos: ";p;16;"Energie: ";e:1;"Sternentage: ";t9-t  701 /:s<0e<0e+s<02560  1:  3210 L236077\,60<:2:6;1;0;"=> Commando? "; e<0s=s-e:e=e+e s<0e=e-s:s=s+s i$=:i$=""710 .05|L,34.4 i$=13 780  i$="c"i$="C":703 i$"b"i$"B"720 i$=:i$=""718 7.05|L,34.4 :i$>"/"i$<"8"i$::703 &i$<480ůi$>579710 a=i$ a=0a=10 X8;8;1;6;":";a;" ":7:0:236077\,249 a=1770 d(a)0770 22::2;7;1;"Achtung!" /2:"Schadensmeldung:"::1;u$(a) dt=12671o  701 ,a=1236077\,60<:810* -a=2236077\,249:660 .a=3236077\,249:1460 .a=4236077\,249:1520 .a=5236077\,249:1780 .a=6236077\,249:2130R -a=7236077\,60<:2220  -a=8236077\,60<:2670n  -a=9 236077\,60<:4890  .a=10 236077\,60<:38902  82:::6;1;1;"Commandos:":  a=19  u$(a)+a a u$(10 )+0 " Screen lschen C" $" Neue Borderfarbe B+(Farbcode)"  701 *32::6;1;1;u$(1) 42:"Kurs?";:c1:c1<0c1>359.993R8;8;8;8;8;"zwischen 0 und 359.99 Grad":8204 68;": ";c1 92:"Geschwindigkeit?"; ;w1 >#sl=0:kp=0:850R H Rw10700 \&d(1)0w1ac 885u f?:"Triebwerke sind beschaedigt!":"max. Geschwindigkeit: ";ac g p 8204 u8;": ";w1 z0tec=tec+1:c$="":k3>02280 e>5*w1970 s<12440 }2::1;" Achtung, Energievorrat:";e;" ":"Uebertragen Sie aus den Schutz-","schilden die benoetigte Energie!"   a=6 d(a)<02240  770 wieder=0 .i=110 :d(i)01010 -d(i)=d(i)+1:d(i)<01010  d(7)<01010 xwieder=0wieder=1:2::6;1;1;"Schaden-Kontroll Bericht:":"Repariert wurden:" 5;(u$(i)) i:>.1}L1120` >.1}L1120`  1090B >r9/10 *r1=(*8+1):d(r1)<0 $ d(r1)=d(r1)-10 *-1 .d(7)<0 8[2::6;1;1;"Schaden-Kontroll Bericht:":"Es sind ausgefallen:" =5;(u$(r1)): B4r1=(*8+1):d(r1)01120` L d(7)<01120` Vg2::d(r1)=0:6;1;1;"Schaden-Kontroll Bericht:":"Repariert wurden:" [ (u$(r1)) `bw1=w1*8:a1=8*q2+s2-9 :b1=72H-8*q1-s1:w1<1w1=w1*1.25 j3e=e-2*w1:t=t+w1/25:t>t92510 ta2=(a1+w1*(c1*cx)+.5) ~b2=(b1+w1*(c1*cx)+.5) >(a2<0a2>63?b2<0b2>63?)1190 m2::"Captain, beachten Sie die Be-":"stimmungen der Sternenflotte!":"(Bleiben Sie in der Galaxie)" t=t+w1/24 "Zeitverlust: ";(w1/24)  700 &a(x)=(.5+a1+x*(c1*cx)) &b(x)=(.5+b1+x*(c1*cx)) x=0̺(w1)+1 W(q1=8-(b(x)/8)q2=(a(x)/8+1))x=w1+1:1390n Vs3=8-b(x)+8*(b(x)/8):s4=a(x)+1-8*(a(x)/8) s(s3,s4)11390n Ms(s1,s2)=0:s1=8-b(x-1)+8*(b(x-1)/8) Ms2=a(x-1)+1-8*(a(x-1)/8):s(s1,s2)=1 L2::"Navigationsfehler:":"Triebwerke stoppten in (";s1;",";s2;")."   t=t+(w1/24) "Zeitverlust: ";(w1/24)  (s(s3,s4)4700 2236077\,249:2::"Captain, Sie haben an eine","Sternenbasis angedockt!","Die Energievorr@te sind","aufgefrischt worden.","Pr_fen Sie die Schutz-","schilde bez_glich der Energie!" 8b>8a<1b<11450 s(a,b)=413302 b:a:700 52::6;1;1;u$(3): a=(q1-1)(q1+1) b=(q2-1)(q2+1) >a<1b<1a>8b>8" ***";:1515 d$=((g(a,b))) d$=1d$=" "+d$ d$=2d$=" "+d$ " "; d$; g(a,b)=(g(a,b))+.5 b:" ":::a:236077\,60<:"Die erste Zahl von hinten ent- spricht der Anzahl der Sterne, die zweite der Anzahl der Ster- nenbasen und die dritte der An- zahl der Klingonen in den um- liegenden Quadranten.":701 32::6;1;1;u$(4) k302260  d(8)01560 e2;7;1;"Achtung!":"Durch Computerfehler ","verminderte Treffergenauigkeit! " 0:7  :"Phaser auf Ziel gerichtet." "Verfuegbare Energie:";e "%2::"Einheiten zum Feuern?"; $d$ 'Fj=1(d$)-1:d$(j)<46.ůd$(j)>5791572$ (j )x=d$ ,8;": ";x 6:e-x<0"Energie ist nicht ausreichend!":701 @!t=t+.05|L:t>t92510 Je=e-x Tc$"D"2280 ^ d(8)01650r hx=x* ri=13 |"k(i,3)01760 $h=(x/d())+(-.5)*8* k(i,3)=k(i,3)-h "2::"Phaser - Wirkung:": J(h);" Treffer auf Schiff in (";(k(i,1));",";(k(i,2));")." ."Energie des Feindschiffs: ";(k(i,3))  "k(i,3)>01760 "Feindschiff in (";(k(i,1));",";(k(i,2));") zerstoert."::k3=k3-1:k9=k9-1:k9=02640P  2: og(q1,q2)=g(q1,q2)-100d:s(k(i,1),k(i,2))=0:k(i,1)=0:k(i,2)=0 )e=e+k(i,3):k(i,3)=0 i  701 32::6;1;1;u$(5) p>01820 J2::2;7;1;"Alle Photonentorpedos verbraucht"  701 :"Richtung?"; d$:d$=""1823  >i=1(d$):d$(i)<46.ůd$(i)>5791823 !i #c1=d$:8;": ";c1 &!t=t+.05|L:t>t92510 0!p=p-1:c$"D"2280 5:"Flugbahn des Torpedos:": :]a1=8*q2+s2-9 :b1=72H-8*q1-s1:c1=90Z*(c1/90Z)2080  D&a(w=(.w)=(.5+a1+w*(c1*cx)) N&b(w=(.w)=(.5+b1+w*(c1*cx)) Xw=010 .9ffff b%w=0s3=s1:s4=s2:1940 lG(q1=8-(b(w)/8)q2=(a(w)/8+1))701 vVs3=8-b(w)+8*(b(w)/8):s4=a(w)+1-8*(a(w)/8) a(w)=a2ƨb(w)=b22060  a2=a(w):b2=b(w) G.1}L,-10 :" (";s3;",";s4;") ";a$(1+(s(s3,s4))) &s(s3,s4)+1=12060  &s(s3,s4)+1=22060  &s(s3,s4)+1=32040 &s(s3,s4)+1=41960 &s(s3,s4)+1=52030 ]<(.07}\(*x4):"Schutzschilde des Klingonen- schiffs lenken Torpedo ab!":701 `:"Klingonenschiff zerstoert!":e=e+*100d:s(s3,s4)=0:g(q1,q2)=g(q1,q2)-100d 6k3=k3-1:k9=k9-1:k9=02640P a=13 ck(a,1)=s3k(a,2)=s4k(a,1)=0:k(a,2)=0:k(a,3)=0 a  701 :2;7;1;"Sternenbasis zerstoert!!! ";0;0;:b3=0:b9=b9-1:s(s3,s4)=0:2050 :1;1;"Stern zerst\rt!!! E-Verlust: 300":e=e-300,:s(s3,s4)=0:g(q1,q2)=g(q1,q2)-1:701 'g(q1,q2)=g(q1,q2)-10 :701  w  701  w=08 *s3=(s1-(w*(c1*cx))) 4s4=(s2+(w*(c1*cx))) >8s3>8s4>8s3<1s4<1701 H 1940 R32::6;1;1;u$(6) \:"Verf_gbare Energie:" ^2;e;" + ";s; `" = "; b(e+s) d+2::"Einheiten => Schutzschilde?"; fd$ hFj=1(d$)-1:d$(j)<46.ůd$(j)>5792150f ij kx=d$ px<0700 ze+s-x<02150f  e=e+s-x s=x 8;": ";s sl=1650  701 32::6;1;1;u$(7) D:i=110 :u$(i);(d(i)*1000000t$)/1000000t$:i :dt=12671o  701 U2::"Kleinraumsensoren sondieren kei-":"ne Klingonen in diesem Quadrant!": dt=12671o  701 c$="D"k30701   i=13 "k(i,3)02420t /h=k(i,3)/(d())+(-.5)**7 12::"Feindtreffer auf die Enterprise:": $qs=s-h:(h);" Treffer von Klingon in (";(k(i,1));",";(k(i,2));")":"Schutzschildenergie: ";(s): . 8s<02540 B 1040 L>r9/10 2420t V2r1=(8*+1):r2=(8*+1) `!(s(r1,r2)=0)2390V j^s(r1,r2)=3:s((k(i,1)),(k(i,2)))=0:k(i,1)=r1:k(i,2)=r2 ti ~ N2:::2;6;1;" Unternehmen fehlgeschlagen!!! ":  cy=1:2580 k302580 2280 2470   "Sternenzeit: ";t 2580   ]2:::2;6;1;" Unternehmen kampfunfaehig!!! ":"Energie: ";e+s cy=0 &"Es sind ";k9;" Klingonen uebrig!": L:1;6;1;1;" Sie haben versagt!! ": (l=(*5) 2l=03430f 3l=13460 4l=23480 5l=33500 6l=43530 5792682z a=i$ &8;6;1;":";a;" " dt=1 ?2:a+1=1236077\,249:2890J a+1=22940| a+1=32990 a+1=42830 a+1=5590N a+1=63390> 6a+1=7236077\,249:3410R a+1=85100 a+1=9 700 .2::"Moegliche Computerfunktionen:": " 0 = Galaktische Karte" !" 1 = Allgem. Zustandsbericht" $" 2 = Torpedo Flugbahnberechnung" " 3 = Neue Mission" " 4 = gegenwaertige Position" " 5 = Selbst-Zerstoerung" " 6 = Richtungs-Kompass" " 7 = Erfolgsfaktor" " 8 = Ende Computer" " 9 = Befehle Computer" 2810  2680x 3:"--Voruebergehende Fehlfunktion--"::701 xm<028706 :"--Security Control--" %:"Soll man die Mission abbrechen?" "d$=:d$=""2850" $.04|# =,34.4 %d$="j"d$="J" ' 2880@ , 6:"--Security Control--" 8?:"Sie sind nicht fuer eine neue Mission autorisiert." @2:2680x J(2::"Quadranten Speicherkarte:" TMa=18:b=18:g(a,b)=(g(a,b))" ???";:2930r ^d$=((g(a,b))) _d$=1d$=" "+d$ `d$=2d$=" "+d$ h" "; jd$; rb::a:2680x | 2::"Zustands-Bericht:" :"Uebrige Klingonen: ";k9 "Uebrige Zeit: ";t9-t "Sternenbasen: ";b9 :a=7:740 !2:k3=02260  *d(2)<0a=2:730 &:"---Torpedo Flugbahnberechnung---" &:"Koor. min. max. Distanz" $"--------------------------------"  i=13 %(k(i,3)>0)3180l Aw1=(((s1-k(i,1)))^2+((s2-k(i,2)))^2) .w1=0:"==> Fehlfunktion!":701 9s1=k(i,1)s2k(i,2)c5=180:3100 ;s2=k(i,2)s1k(i,1)c5=90Z:3100  xx=(k(i,2))-s2:yy=s1-(k(i,1)):xx=(1/w1)*xx:yy=(1/w1)*yy:c1=xx*(180/):c2=yy*(180/) xx>0yy>0c5=c2 .xx<0yy>0c5=c1:c2=c2+90Z 1xx<0yy<0c5=c2*-1+180 (xx>0yy<0c5=c2+360h  & 0c8=c5-(10 *) :c9=c5+(10 *) Dc9<0c9=c9+360h Nc8<0c8=c8+360h Xp"(";(k(i,1));",";(k(i,2));")";8;c8;17;c9;25;((w1*1000))/1000 b li vdt=12681y x 700  mr=(t9-t)/k9:dt=0 xm=((mr-pr)/pr)*100d ka=13320 >.01z# =*r9b9=0 2ka=1:a=18:b=18 \g(a,b)-100d*(g(a,b)/100d)>9 k1=a:k2=b:>.5a=8:b=8 Mb:a:tk=t+.09}8Q*(((q1-k1))^2+((q2-k2))^2)*(10 -r9) tk=tk+1 Q2::"Sternenbasis in Quadrant (";k1;",";k2;")","wird angegriffen!!!":  _"Sie haben ";((tk-t)*100000CP)/100000CP;" Sternentage,":"um die Basis zu retten!": tsd14210r C 5300 R 3650B \ 2670n f2::6;1;"Sie haben sich zu oft am grau- samen Feuer der Hoelle vorbeibe-wegt. " p zt02620<  3550 2::1;6;"Sie werden aufgrund Ihrer unzu- reichenden Faehigkeiten auf die Sonne geschossen! " 3550 a2::6;1;"Sie werden fuer Ihre Inkompetenzstandrechtlich erschossen! " 3550 2::1;6;"Sie werden inhaftiert, bis die hoeheren Maechte geruhen, sich an ihrer Hinrichtung zu amue- sieren! "  t02620< 3550 3500  9l=(u-k9)*10 +((u-k9)*500/t)-100d*(y-b9) $e0s<0l=l-200 k9=0l=l+(r9*100d) 2: "Ihre Punktzahl: ";l :::  2620< $ . 8 B):2:"Richtungszeiger (in Grad):" LQ132,147:0,-127:195,84T:-127,0 V(84T,132:96`,-96` `*180,132:-96`,-96` j2,15;"090" t20,15;"270" ~11 ,5;"180" 11 ,25;"000" 4,8;"135" 4,22;"045" 18,8;"225" 18,22;"315" 19,0   xx=(*10 )+1  :x4>12 3880( X2:15,0:i=1622:" ":i 15,0;"Die Commando-Zentrale gibt Ihnenhiermit bekannt, dass der ge-waehlte Grad ";x4;" in der Experten-":18,0;"kategorie liegt."; w " Falls Sie nichtgenuegend qualifiziert sind,sin-ken ihre Chancen, erfolgreich zusein, auf einen Wert von NULL."  <"Wuenschen Sie eine weniger ge- faehrliche Mission ? ";d$ ,d$(1)="j"d$(1)="J"120x  :230 (16,0;"Sie haben um eine hoffnungslose Mission gebeten. Entweder geben Sie gleich auf, oder Sie lassen sich im Kampf vernichten." - 3830 2/2::"------Funkverbindung aktiv------" < F 3770 Ppd=xx Z 3770 dpe=xx n 3770 xpf=xx  3770 pg=xx ph=pd*10 +pe pj=pf*10 +pg ph=pj2820 %kp=1:pd=pepf=pg4030  4050 0:"Atmosphaerische Stoerungen in: ":605] A "Verlassen Sie Ihre augenblick- liche Position!"::810* "Autorisierte Frequenzen:": "Commando - Staatenbund: ";ph "Commando - Klingonen: ";pj  !"Kommunikation auf Frequenz: "; xf xf xf=ph4320 xf=pj4610  ")1;7;2;"==> Alarm!" ,q"Versuchte Kommunikation auf ge-sperrten Frequenzen waehrend derSicherheitskontrolle auf derEnterprise: "; 6 @ J3770:a=xx T)3770:i=(xx/2)+(x4/7) ^A1;7;1;"Schadensmeldung:"::5;u$(a) hd(a)=d(a)-i:701 r 2: |1;6;2;"Die Security-Control gibt Ihnen bekannt, dass Sie nicht autori- siert sind, sich selbst zu zer- stoeren. Verfolgen Sie die Ihnenaufgetragene Mission. "  :2680x  "Fortschrittsfaktor:";pr  3770 3tf=(xx*x4)/1.6L:tf<10 tf=tf+10  :"Toleranzfaktor: +/-";tf;"%"   xm=04370 xm>04390& "(xm)>(tf*1.5@)4450b (xm)>tf4420D m2:: "Captain,Sie operieren zu langsam=> Los, mehr Tempo! (Die Commandozentrale)"  701 2:: "Sie operieren entsprechend den Daten, die der Zentralrechner fuer diese Mission errechnet hat. (Die Commandozentrale)"  701 &xm>tf4540 (xm>(tf*1.5@)4570 02:: "Captain, Ihre Operationsdaten sind besser, als der Zentral- rechner fuer diese Mission er- rechnet hat. (Die Commandozentrale)" : 701 D2:: "Captain, Ihre Operationswerte liegen ausserhalb des errech- neten Toleranzfaktors! (Die Commandozentrale)" N."NB: Kommunizieren Sie mit den Klingonen!" X$eq=1:sd=1:38902 b yy=ac^x4 l:2::1;"--------Computerzentrale--------"::9 ;7;1;"Sie sind aufgrund Ihrer Kampf- stellung hoffnungslos verloren! Wir haben auf Ihrem Schiff das Selbstzerstoerungssystem akti- viert. Goodbye, Captain... "  54306  5300 2::1;6;1;"Captain, Ihre Operationsdatensind wesentlich besser, als derZentralrechner fuer diese Mis-sion errechnet hat:KommunizierenSie mit dem Klingonenfuehrer undquittieren Sie dessen Niederlage"  kq=1 :38902 ں2::1;1;6;" Nachricht der Commandozentrale ";0;" Der Feind hat sich ergeben !!! ": ::  100d  2640P kq=14860 eq=14640   xm=04690R xm>04740 (xm)tf4690R  !2::"Klingonenzentrale:" *~"Natuerlich freuen wir uns, dass Sie verhandeln wollen, Captain. Aber hier ist eine Nachricht Ihrer Commando-Zentrale:": 4 54306 > H 2600( R 3770 \xx54730z f/2::"Nachricht der Klingonenzentrale:" p7:"Keine weiter Kommunikation zu diesem Zeitpunkt!" q 4820 zE:"Wir sprechen mit unseren Waffen,du altes Schwein!!!":4820  3770 aq=((xx+1)/2) aq=14710f aq=24730z #aq=3aq=44770 aq=54740 gf=tf*1.5@ xm>gf4860 xm>tf4830 f2::"Captain, wir verachten Sie, Sie sind kein Problem fuer die glor-reiche Klingonenflotte!" ':"Ende der Kommunikation":700  3770 Lxx5" Klingonenzentrale an die Enterprise:":4730z  4870  /2::"Nachricht der Klingonenzentrale:" a:1;6;1;"Wir geben den Krieg auf! Unsere Glueckwuensche, Captain! "  3600 'av=(x4/2)+1:dr=-1 $tec10 701 d(a)<05070 72::u$(a);8;"in Ordnung!"::5030 :u$(a);"repariert.": &d(a)=0:tec=0:701 1:"Zur Zeit keine Schaeden,Captain!":700  2:  4290 B2::"Anfaenglicher Missions-Fort- schrittsfaktor: ";pr  9:"Momentaner Missions-Fort- schrittsfaktor: ";mr .xm<0d$=" verschlechtert":5150 d$=" verbessert"  (^"Ihre Kampfstellung hat sich um","einen Faktor von ";(xm*1000)/1000;" %",d$;"." 2#(xm)tfd$="nicht ":5190F <d$="" Fb"Ihre bisherigen Erfolge liegen",d$;"in der fuer diese Mission":"errechneten Toleranzgrenze!!!" P Zd$="nicht "5220d _ 2670n dxm<05230n i 5270 n:sd=1:kd=0 x1;"Captain, die Commando-Zentrale gibt Ihnen bekannt, dass Sie derFeind vernichten wird. Sie sind nun autorisiert,das Selbstzer- stoerungssystem zu aktivieren!!!" 54306:2670n :sd=0:kd=1 k"Captain, die Commando-Zentrale gibt Ihnen bekannt, dass Sie mitIhrer Mission erfolgreich sein werden!" 54306:4540   5420,  2: H6;1;1;1;"Self Destruct System activated!!" :: X1;1;0;6;"Der Countdown beginnt ! ":5420,:: D25;1;6;1;1;"FIVE"::5420, D20;1;5;1;1;"FOUR"::5420, E15;1;4;1;1;"THREE"::5420, C10 ;1;3;6;1;"TWO"::5420, B5;1;2;6;1;"ONE"::5420, :1;2;5;1;"ZERO"::5420, "6:"BOOOOOOMMMMM":5420,:30::5440@ ,Saaa=0:i=15024:.006yD,i:(i/7):i:0: 68aaa=0:i=1300,:aaa=aaa+1:i: @7:0::502:7:0:0:0:7::21,0;" 1982 Sinclair Research Ltd";:2620< pbeep=2 zbeep=beep+3 .04|# =,beep beep40(  6010z %#xxx=(256-xs*cs*d$)/2 %jaaa=23306 [:aaa,xxx:aaa+1,y:aaa+2,xs:aaa+3,ys:aaa+4,cs:aaa=aaa+4 % iii=1 %siii=1+(d$)9505!%:aaa+iii,d$(iii):iii=iii+1:9503%:aaa+i,255:rrr=65024: % Taaa+iii,d$(iii):iii=iii+1:9503%:aaa+i,255:rrr=65024: %!'aaa+iii,255:rrr=65024: %&b"Startrek"95200%:"Loading..."65024,511:"Characters"63744,1024: %0~65023::"Loading: Startrek":"  by Idi productions'83  by EMM Software 1983":""65024:"": estee)yWLoading...d![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P 88 MMMXLXL8Wqv>(8>BB<DHpHDB@@@@@~BfZBBBBbRJFB(8DDD8|BB|@@|||8p||||~|00000` 0`0 ||`0 0`x 00|~~8d|||||88888|||||~|||888888|t8|8|t88888p8000008||88<~|8l```|~~||~~||