EnterpriseSS4S 9000(# sc=0 [sch=2:l=0:sprit=4500:r=0:la=1:p(20):h(20)  40(  o(11 ) i=111 a o(i)=a #i (z9300T$,9400$,9500%,9550N%,9600%,9700%,9750&,9800H&,9850z&,9900&,9950& P 6100 S.01z# =,30 T.01z# =,-20 U x=1 Z y=14 _3;y,x;"" ai=10 4-3:.1}L,i:.1}L,i+3:.1}L,i+6:.1}L,i+3:.1}L,i-3:.1}L,i+6:.1}L,i:i d$57342=1871000 n$57342=1831200 x$64510=1891400x $65022=1891600@ $32766=1831800 r1000 r1200 -la=1r=1x35100 500 dsprit=sprit-10 :5;1;0,25;" ";sprit;" ":sprit=06000p 100d raketensteuerung f=(*k)+1 h(f)=22 "7;0;h(f),p(f);" " h(f)=h(f)-2 &Ah(f)27;0;h(f),p(f);" ":h(f)=22: +l570: 0 580D :(h(f),p(f))=15.05|L,-20:.05|L,30:6;h(f)+2,p(f);"";2;h(f)+2,p(f);"":7;0;h(f)+2,p(f);" ":h(f)=22: N2;h(f),p(f);"" S:h(f)-1=yh(f)=yp(f)=xp(f)=x+13000 X vor  y,x;" "  x=x+1 $(y,x+1)73000 $r3;y,x;"":1040  3;y,x;"" Jrx=30x=0:la=la+1:6100:.01z# =,10   zurueck  y,x;" "  x=x-1 &r=1ƫ(y,x)73000 $r3;y,x;"":1240 3;y,x;"" Irx=1x=30:la=la-1:6100:.01z# =,10 w xoben  y,x;" " y>2y=y-1 3(y,x)7ū(y,x+1)73000 $r3;y,x;"":1440 3;y,x;"" ? @unten J y,x;" " Ty<21y=y+1 Y3(y,x)7ū(y,x+1)73000 ^$r3;y,x;"":1640h c3;y,x;""  fire ).01z# =,20:.01z# =,-10 r1900l i=x+231 !#at=(y,i):at74500 &i +(x+2)*8,(21-y)*8+7:(i-3-x)*8,0:1:(x+2)*8,(21-y)*8+7:(i-3-x)*8,0:0 0 1990 li=x-10-1 q#at=(y,i):at74600 vi (x-1)*8,(21-y)*8+7:-(x-i-2)*8,0:1:(x-1)*8,(21-y)*8+7:-(x-i-2)*8,0:0  kollision =.05|L,10 :.01z# =,20:.01z# =,-10 sch=sch-1 Ksch=11;0,3;"":3099 gi=13:.01z# =,-10 :y,x;"":7:.01z# =,20:y,x;"":0:i 5000  abschuss der basis  r=1 sprit=sprit+1000 52:14,27;"":.1}L,30 H6:2;6;14,27;"":.1}L,-10 G2:6;2;14,27;" ":.1}L,25 "6;14,27;" "  0 .01z# =,30   treffer1 at=61835+ (at=2sc=sc+502:5500| at=5sc=sc+10 :sprit=sprit+20:.01z# =,10 :6;y,i;"":.05|L,-10 :7;0;y,i;" ":1835+ at=1794000  1835+  treffer2 at=61935 (at=2sc=sc+502:5600  at=5sc=sc+10 :sprit=sprit+20:.01z# =,10 :6;y,i;"":.05|L,-10 :7;0;y,i;" ":1935  1935 du verlierst 7:0: .i=0-20-1:.01z# =,i:i %i=-200:.01z# =,i:i ,7,2;"Du hast ";sc;" Punkte !" Fschsc1;10 ,4;"HIGHSCORE !":hsc=sc:5080 &10 ,2;"Highscore = ";hsc (20,0;"Druecke eine Taste" 0:0 ="s"Ŧ="a"5090  5200P 7:0: i=13 H.2~L,0:.2~L,4:.2~L,5:.4L,7  i  5160( i=119:a,b:a,b i (D.4L,4,.4L,0,.4L,4,.6,2,.2~L,4,.2~L,4,.2~L,2,.73333,0,.4L,4,.4L,7,.2~L,7,.4L,5,.2~L,4,.2~L,5,.4L,7,.4L,4,.4L,0,.4L,2,.6,0 2+1;7,5;"GRATULIERE !!" <51;9 ,5;"DU HAST ES GESCHAFFT !!" F>1;11 ,0;"NUN GEHT'S WIEDER VON VORNE LOS" I321,0;"Druecke eine Taste !":0 K0:7:10 Pende Z d 3,1;"Willst Du :" n(5,13 ;"noch mal spielen ?" x!7,13 ;"Aufhoeren ?" &9 ,13 ;"Spiel loeschen ?" =""5260 *="n"Ŧ="N"0:7::9 ="a"Ŧ="A" ="s"Ŧ="S"  5260  { |kaputte rakete 1  c=1k h(c)=yp(c)>x.01z# =,10 :h(c),p(c);6;"":.05|L,-20:h(c),p(c);2;"":.01z# =,10 :h(c),p(c);7;0;" ":h(c)=22:5540 c  1835+ kaputte rakete 2 c=k1-1 h(c)=yp(c),32 ,64@,240,240,0,0 #U"",255,187,189,145,149,145,255,255 #U"",255,255,137,185,203,137,255,255 #*hsc=0:0:0:7: #?7;"Brauchen Sie eine Anleitung ?",,,;10 ;"(j/n)" #=""9103# #="j"9150# # 9 # #""" #(2,6;"E N T E R P R I S E" #35,0;"Ziel des Spieles ist die Basis" #!:"des Gegners zu zerstoeren ." ##:"Dazu muss man die Enterprise " ##:"{ } durch 11 Landschaften " ##:"zur Basis { } steuern und " #:"die Basis abschiessen !" #:"Danach muss man zum " ##:"Ausgangspunkt zurueckfliegen." #*21,2;"Druecke eine Taste !" # 0: #:"Allerdings Du auf Deinem" #:"Flug von Raketen { } " #:"attackiert......." #*21,2;"Druecke eine Taste !" # 0: #:"Punkte :" #%:"Fuer jede abgeschossene Rakete " #:"gibt es 50 Punkte ." #:"Fuer jeden abgeschossenen" #%:"Treibstofftank { } gibt es 10" ##:"Punkte + 10 Einheiten Sprit ." #&:"Fuer den Abschuss der Basis gibt" #.:"es als Bonus 1000 Einheiten"::"Sprit ." #&:"Druecke eine Taste !!":0: #$:"Wenn der Benzinvorrat, der in " #:"der rechten oberen Ecke " $%:"angezeigt wird, verbraucht ist," $:"ist das Spiel aus !!" $&:"Das Spiel ist ebenfalls beendet," $%:"wenn Du 2 Mal mit einer Rakete," $:"einem Treibstofftank etc." $:"zusammengestossen bist !" $*21,2;"Druecke eine Taste !" $ 0: $:"Lenkung :" $ :" w - nach oben" $ :" s - nach unten" $ !:" u - bei Hinflug : bremsen " $ %:" bei Rueckflug : beschleun." $ &:" i - bei Hinflug : beschleunigen" $":" bei Rueckflug : bremsen" $:" n - FEUER" $*21,2;"Druecke eine Taste !" $" 0: $S 9 $T1. landschaft $U k=7 $V :6 $Yj=1520 $[i=30-1 $^ j,i;"" $hi:j $m*i=23232Z23363C[:i,480:i $r*i=23200Z23203Z:i,480:i $u 9350$ $wi=115 $|a,b $~ a,b;"" $i $21,8,21,12 ,21,18,21,19,21,20,20,19,21,29,21,30,21,31,20,29,20,30,20,31,19,30,19,31,18,31 $020,18;"":20,20;"" $ 2 $i=17 $a:21,a;"" $h(i)=21:p(i)=a $i $=5,6,9 ,11 ,14,23,26 $ 5 $i=13 $a:21,a;"" $i $10 ,16,28 $ 7 $ $2. landschaft $ k=6 $ :6 $*i=23232Z23263Z:i,480:i $6i=1921:i,0;"":i $5i=1718:i,0;"":i $#16,1;"" $"15,1;"" $ 14,2;"" $13 ,3;"" $12 ,5;"" $11 ,6;"" $10 ,7;"" $Ai=2123:21,i;"":i:20,22;"" $ 9470$ $ 5 $i=17 $a,b:a,b;"" $i $|12 ,4,11 ,5,10 ,8,13 ,11 ,15,13 ,21,28,21,30 % 2 %@16,0;"":p(2)=0:h(2)=16 %@14,1;"":p(3)=1:h(3)=14 %@13 ,2;"":p(4)=2:h(4)=13 %B21,24;"":p(5)=24:h(5)=21 % B21,26;"":p(6)=26:h(6)=21 %(h(1)=9 :p(1)=7 %9 ,7;"" % 7 % %3. landschaft %10:7:0::6:l=0 % k=15 %!*i=23232Z23263Z:i,480:i %".i=1921:i,2;"":i %#7i=1621:i,17;"":i %$)i=2231:15,i;"":i %%)i=1720:15,i;"":i %&)i=1721:i,16;"":i %')i=1921:i,15;"":i %()i=2021:i,14;"":i %)21,13 ;"" %*%14,18;" " %+13 ,29;"" %-21,0;"" %.20,1;"" %/21,9 ;"" %020,9 ;"" %21,29;"" %32,30;"" %4 2 %:i=15 %<18,i+1;"" %=h(i)=18:p(i)=i+1 %>i %@!5;18,7;"" %B 9546J% %Di=615 %Fa,b:a,b;"" %Gh(i)=a:p(i)=b %Hi %J20,13 ,19,14,18,15,16,16,15,21,13 ,22,13 ,24,13 ,25,14,26,15,27 %L+5;13 ,18;"":7 %M %N4. landschaft %O<1:1::0:7:k=3:l=1 %Pi=9 10 %Rj=031 %T i,j;" " %Vj:i %Xm=5:n=13 %Zj=02 %\i=mn %] i,j;" " %^i %_m=m+1:n=n-1 %`j %b8,3;" " %c2:9580l% %di=13 %fa,b:a,b;"" %gp(i)=b:h(i)=a %hi %l413 ,0,12 ,1,11 ,2 %m 5 %n10 ,10 ;"";10 ,15;"";10 ,17;"";10 ,20;"";10 ,22;"";10 ,27;"" %p 7 % %5. landschaft %&1:1::0:7 %k=11 :l=1 %i=817 %j=11 16 % i,j;" " %j %i %i=9 10 %j=06 % ;i,j;" " %j %i %'i=812 :i,7;" ":i %i=713 %j=810 % i,j;" " %j:i %014,9 ;" ":15,10 ;" " %7,11 ;" " %6,9 ;" " %/;5,10 ;" ":5,13 ;" " %m=9 :n=17 %j=1720 %i=mn % i,j;" " %i %m=m+1:n=n-1 %j %)i=13 14:i,21;" ":i %)i=12 15:i,22;" ":i % m=11 %i=2326 %j=mm+6 % j,i;" " %j % m=m-1 %i %(i=711 :i,27;" ":i %(i=710 :i,28;" ":i %(i=811 :i,29;" ":i %(i=710 :i,30;" ":i %(i=610 :i,31;" ":i %5:9684% %i=17 %a,b % a,b;"" %i %~10 ,4,15,10 ,14,20,14,21,14,26,10 ,26,10 ,30 %i=111 % 2 %a,b % a,b;"" %h(i)=a:p(i)=b %i %12 ,7,13 ,8,14,9 ,17,11 ,17,12 ,17,14,17,15,16,18,15,19,15,22,16,24 % 7 ! %6. landschaft %10:0:7::6:l=0 % k=8 %*i=23232Z23263Z:i,480:i %j=1521 %j,0;"" %j %i=2021 %i,13 ;"" %i %12 ,0;"" %13 ,0;"" %14,0;"" %(i=1921:i,5;"":i %86;21,6;"":21,12 ;"" %19,13 ;"" %21,24;"" %1,0;"" %2,0;"" & 5 &21,8;" " &19,19;" " &20,24;"" & 2 &@18,5;"":h(1)=18:p(1)=5 & @13 ,3;"":h(8)=13 :p(8)=3 & @20,6;"":h(2)=20:p(2)=6 & i=37 &18,i+10 ;"" & h(i)=18:p(i)=i+10 &i & 7 & &7. landschaft &:6:k=11 &*i=23232Z23263Z:i,480:i &21,0;"" &20,1;"" &.18,2;"":19,2;"" & &21,14;" " &"20,15;"" &# 5 &$ 9772,& &&i=110 &(a,b:a,b;"" &*i &,20,0,19,1,17,2,19,3,19,4,20,5,20,14,20,15,20,21,20,28 &- 2 &. 97826& &0i=111 &2a:21,a;"" &3h(i)=21:p(i)=a &4i &6b7,9 ,11 ,13 ,17,19,23,25,27,30,31 &> 7 &G &H8. landschaft &I:6:k=10 &J*i=23232Z23263Z:i,480:i &K<j=1821:j,7;"":j &L7j=12 17:j,12 ;"":j &M.j=711 :j,15;"":j &N(j=56:j,17;"":j &O:i=10 11 :j=13 17:j,i;"":j:i &P9i=2223:j=9 11 :j,i;"":j:i &Q 9816X& &Ri=126 &Sa,b:a,b;"" &Ti &X21,0,21,1,21,4,21,5,21,6,20,5,20,6,11 ,13 ,11 ,14,10 ,13 ,10 ,14,17,7,17,8,17,9 ,16,8,16,9 ,15,9 ,12 ,11 ,9 ,14,6,16,4,18,6,20,8,22,10 ,24,11 ,24,11 ,25 &Z 5 &[20,0;"" &\19,5;"" &]14,9 ;"" &^11 ,11 ;"" &_9 ,13 ;"" &`8,14;"" &a6,15;"" &b5,16;"" &c4,17;"" &d 2 &e 9840p& &fi=110 &ha,b:h(i)=a:p(i)=b &j a,b;"" &li &p3,18,6,19,5,20,6,21,7,22,8,23,9 ,24,17,27,21,28,21,29 &x 7 &y &z9. landschaft &{:6:k=20 &~*i=23232Z23263Z:i,480:i &21,21;"" &20,21;"" &21,4;"" &20,4;"" &19,5;"" &21,12 ;"" &20,13 ;"" & 2 & 9876& &i=19 &a &21,a;"" &h(i)=21:p(i)=a &i &N1,2,7,9 ,16,18,20,28,30 & 9890& &i=10 14 &a,b &h(i)=a:p(i)=b & a,b;"" &i &Y19,4,18,6,20,12 ,19,13 ,20,14 &i=1520 &19,i+6;"" &h(i)=19:p(i)=i+6 &i & 7 & &10. landschaft &:k=7:6 &*i=23232Z23263Z:i,480:i &Ai=1821:i,6;"":i &?i=1617:i,7;"":i &0i=11 15:i,9 ;"":i &-i=9 13 :i,21;"":i &2i=56:i,13 ;"":i &-i=24:i,13 ;"":i &1,14;"" &.4,20;"";3,20;"" &w7,11 ;"";6,12 ;"";17,6;"";8,16;"";9 ,16;"" &*i=9 10 :i,10 ;"":i &*i=9 12 :i,27;"":i &114,30;"";15,29;"" &/11 ,30;"";12 ,30;"" &6,25;"" &D21,4;"";20,5;"";19,5;"" &17,7;"" &D15,7;"";14,8;"";13 ,8;"" & 2 &21,1;"" &-i=13:h(i)=21:p(i)=i:i &Ri=47:28-i*2,i;"":p(i)=i:h(i)=28-i*2:i & 5 & 9946& &i=17 &a,b:a,b;"" &i &|10 ,17,8,21,8,23,15,21,15,23,13 ,30,7,26 & 7 & &11. landschaft &:6:k=20 &*i=23232Z23263Z:i,480:i &i=1921 &i,15;"" &i &i=1721 &i,21;"" &i &18,20;"" &i=1521 &i,24;"" &i &i=12 21 &i,29;"" &i &21,13 ;"" &20,14;"" &&i=111 :i,30;"" &i & 2 &i=19 &21,i+2;"" &p(i)=i+2:h(i)=21 &i &i=10 14 &18,i+5;"" &p(i)=i+5:h(i)=18 &i & 9988' &i=1520 'a,b:2;a,b;"" 'p(i)=b:h(i)=a 'i 'm17,20,16,21,16,22,16,23,14,24,14,25 '41;3;6;14,27;"" ' 7 '  ' '"enterprise"9000(# ]