C I#1: 1F97878: 1:7:0,31,0,39::F5000 z 62,32,14,4,33,0,236,6,240,119,35,16,252,13,194,23,01,201  I1 18( X2 272I1,X<I:7FJ130:S1((1)39):S);"*":J P7:(15,10);" " U(16,9);" [[[ "/Z(17,8);" [ [ "cd(18,8);"[[":10:(18,15);"the APOLLO "n7:(19,7);" [EARTH[":3:(19,15);" "x7:(20,8);"[[":10:(20,15);" Mission "7:(21,8);" [ [ " (22,9);" [[[ " $5:(23,10);" "B(18,28);" " V(19,28);" "j(20,28);" "|4:A129 4L912:(L,A1);" ":L(9,A);"[[[[[[[[[[" (10,A);"[[[[[[[[[[" (11,A);"[[[[[[[[[["(12,A);"[[[[[[[[[["1:! A+2 R"(4,7);" "~,(5,7);" [[[ [[[ [[[ [ [ [[[ " 6(6,7);" [ [ [ [ [ [ [ [ [ [ " @(7,7);" [[[ [[[ [ [ [ [ [ [ " J(8,7);" [ [ [ [ [ [ [ [ [ "!T(9,7);" [ [ [ [[[ [[[ [[[ [[[ " g^6:(12,7);" a game by Chris Koegler" h(13,7);" ":22:(29,29);"ENTER" r-18,.25,-16,.25,229,.25,216,.25 |193,.25,172,.25,153,.25,144,.25 128,.25,114,.25,108,.25,96,.25> 86,.25,76,.25,72,1 J I115Y  H,L:460_ q  470  H0 470 Q$"":Q$:Q$(13)475:470 (29,29);" " I039 5:J030:(J,I);" " :::I0:J0 Q$""::1:6:3,27,0,39 I "APOLLO-Das neueste Spiel fuer den KC85/3": | "von Christoph Koegler. (dt. Farbversion)":7 "Sie brauchen Reaktionsschnelligkeit,": "Kalkulationsvermoegen und Mut zum": "Risiko, um das meiste Geld fuer Mond-":/ "gestein zu bekommen. Etwas Glueck":V "brauchen Sie natuerlich auch.": "Hauptstrategie Ihres Spieles muss es": "sein, moeglichst wenig Treibstoff zu": "verbrauchen, sonst haben Sie keine": "Chance zu gewinnen."::20:(27,30);"-ENTER-"' L$:L$""508X ::7:"Sie befinden sich in der Kommando-" :"kabine des Raumschiffes APOLLO." :"Ihre Bewerbung bei der NASA wurde" :"bestaetigt. Der NASA-Chefarzt" :"hat gegen einen Raumflug nichts ein-" " &:"zuwenden."@ 0:"Sie duerfen am Flug zum Mond mit"\ ::"APOLLO teilnehmen." D:"Bevor es losgeht brauche ich aber" N:7:"Ihren Namen :" X:6: N$: Y(N$)10602:610 Z10::"Das ist zu lang. Bitte geben Sie nur".["Ihren Vornamen oder eine Abkuerzung an!":590?b ]l6:"Astronaut ";N$;",":v4:"Ihr Flugauftrag lautet:":::7"1. Start von CAPE CANAVERAL":"2. Durchflug eines Meteoritenschwarmes"" auf der Uebergangsbahn Erde-Mond":D"3. Mondlandung und wissenschaftliche" h" Arbeit (Gesteinsproben)":"4. Rueckstart und Wiederankopplung an" " das Raumschiff APOLLO": "5. Durchflug eines Meteritenscchwarmes"" auf der Uebergagsbahn Mond-Erde":W"6. Landung auf der Erde im Stillen Ozean": t20:(27,30);"-ENTER-" A$:A$""750:7:"Doch jetzt genug gefaselt !":  "Das Unternehmen APOLLO beginnt !"::"Der Bordcomputer gibt Ihnen bei";22;" -C- "::7Z "den Countdown. Bei 0 starten Sie mit";20;" -S-"::7b*:410:"VIEL GLUECK !!!":VZ1:P50>G$H G$""830R G$"C"860: 830\::6: (8,13);"Countdown goes!":4f10,12,19,21:2:(9,19);"[[[":(13,19);"[[[" 9kQ1012:(Q,18);"[ [":QGp0:7::Yz H9 0 1i(11,19);HrH$y2 H$"S"1000 H3,27,0,39:1:5::(6);"START VERPASST !!!!!!":7:::"Der NASA-Chef hat Sie vor Wut von der"3:"Spitze ihrer 110m hohen Saturn-Rakete"a:"geschmissen. Ihr Sturz dauerte genau":"4.270148 Sekunden."::120:3800:0:10:0,31,0,39:(11,6);"[[[[[ [[[[[ [[[[[ [[[[[ [[[[[ ["(12,6);"[ [ [ [ [ [ [ ["1(13,6);"[[[[[ [ [[[[[ [[[[[ [ ["`(14,6);" [ [ [ [ [ [ [ "(15,6);"[[[[[ [ [ [ [ [[ [ ["$7:X1P:FF10:(3,1);"Treibstoff:" )F0F0+F03610.:(3,12);F:(3,18);"l.":X830:H01090:1123YB6,26,0,39::"Sie sind um";H;"sec zu zeitig gestartet."L:"Die dadurch notwendige Bahnkorrektur"V:"kostet sie";H100;"l. Treibstoff.":30`Y1H10:FF10:F0F0aF0(3,12);" 0 ":3610 b(3,12);F::1:YcVZ 1125,29907e30:1:7:3,27,0,39:`j"Sie befinden sich jetzt auf der":t"Uebergangsbahn Erde-Mond.":~"Seit laengerem durchstreift ein":"Meteoritenschwarm dieses Gebiet.":"Sie duerfen nicht getroffen werden!".:"Jede Bahnkorrektur (Joystick oder":`"Cursortasten) kostet Sie 10l Treibstoff.":"Das rote Kaestchen ist Ihr Raumschiff."::6:"ACHTUNG! GLEICH GEHT'S LOS !!!"100::1:: VZ21250A(325)B(325):VZ1S20(5,S);"["#1,23,0,391I20300g (26,0);"Treibstoff:":(26,11);F:(26,16);"l."v F03700A(I)((2)19) B(I)((3)19) 27<A(I));"[";P7ZB(I));"" d1520nIxI3013201520 I,0,31,0,39:7,1::4,27,0,39F10:,"GRATULATION !"N:p7:"Sie haben es geschafft."x30 VZ 1700,1000010:(5,S);"["(4,S1);" "W$"":W$:W$(8)W$(9)1545:Ԉ1580 IFJOYST(1)=1ANDS>1THENS=S-1 W$(8)S1SS1AIFJOYST(1)=1ANDS>1THENF=F-10YW$(8)S1FF10{IFJOYST(1)=2ANDS<36THENS=S+1W$(9)S36SS1"IFJOYST(1)=2ANDS<36THENF=F-10'W$(9)S36FF10,A(I17)S 16106A(I17)B(I17)1S 1610@W$"": 5J:::: HT::4,27,0,39V^::::h(6);(3,24);"HAVARIE!":V130::1j8:7:6:5:4:3:2:1lV:7|:::"Ihr Treibstofftank ist leckgeschlagen"V10(1((1)99)): VFVF&:"und Sie verlieren";V;"l Treibstoff`30:(26,0);"Treibstoff:":(26,11);F:(26,17);"l."30:W1V10:FF10:(26,11);F::W:30 F03700 VZ 1700,10000:1:1:2:80:::6);(28,(160)):7( "Sie haben die Handsteuerung beim Lande-":X "anflug auf dem Mond 5000m ueber einem": "geeigneten Landeplatz uebernommen." "Die Sinkgeschwindigkeit betraegt 500m/s." "Der Tank enthaelt noch";F;"l Treib-"::"stoff."10:::"Wuenschen Sie Instruktionen ?"(A$;& A$"J" 1880N0 A$"N" 2100XN1820X:: " HIER DIE VORSCHRIFT FUER DIE LANDUNG:"b2);(37,(160)):l7v "(1) Nach jeder Sekunde werden die Hoehe,"; 4)"die Geschwindigkeit sowie der ver-"34)"bleibende Tankinhalt gemeldet."` "(2) Auf Anfrage geben Sie die Menge "4)"Treibstoff ein, die Sie in der "4)"naechsten Sekunde verbrennen wollen.";"(3) Der max. Schub Ihrer Triebwerke be-" 4)"traegt 50 m/s^2, das entspricht "; 4)"300l Treibstoff pro Sekunde."j  "(4) Beim Beruehren der Mondoberflaeche" 4)"schaltet das Triebwerk automatisch" 4)"aus, und Sie erhalten Angaben ueber" 4)"die Landegeschwindigkeit und den" !4)"verbliebenen Treibstoff."C! "(5) Ist der Tank vor der Landung leer,"m! 4)"wird der Rapport weitergefuehrt,!4)"bis Sie den Mond erreicht haben."! :22:(27,30);"-ENTER-"!*A$"":A$:A$(13)2100:2090!4A$"":7,0:0,31,0,39::.">:5:"Beginn der Landung...VOLLE KONZENTRATION"C"HT0:H5000:V500K"R7 "\10)"ZEIT";15)"HOEHE";21)"TEMPO";27)"TANK";"f32)"EINSATZ""p11)"(s)";16)"(m)";21)"(m/s)";28)"(l)";"z34)"(l)""10);(29,(160))"2,23,0,8:5:8:##(2,0);"[":J17:(2,J);"[":I#(2,8);"[":J322:(J,8);"[":s#(23,8);"[":J711:(23,J);"[":#(23,0);"[":J2231:(J,0);"[":#8:J17:(22,J);"["::6:(3,4);"O" #5,21,11,39:10;(2,0);" ":0:7:J3$PRINT$ T;4)(H);10)(V);4$15)(F);21)" ";C$F02430u$4;(23,10);"TREIBSTOFF FUER BREMSSTOSS ?":$6:"";B:7$ (23,10);(28," ")$ B0 2450$ B300 B300$$ BF BF$. V1VB50:FFB:HH.5(VV1)%8 H02480$%B 5:6;(J,4);(32(J2)126)W%L J(2219H5000):J1:4;(J,4);(196):J2^%V 0m%` TT1:VV1}%j F0 2260%t B02440%~ :26,6::"*** TANK LEER ***":7,0:% T;4)(H);10)(V);16)"0": 5 & B0 :10::"NICHT SCHUMMELN !!"::7& B0& 23501& :7,1:::::N& 9) "*** KONTAKT ***"`& HH.5(VV1)q& B50 2540& D(V(VVH(1002B)))(50B) & 2550& DHV& V1V(50B)D& :::"LANDUNG NACH :";TD;"s"' "LANDEGESCHWINDIGKEIT :";V1;"m/s"!' F0 2600L' "TREIBSTOFF :";F;"l":2610`'( "TANK LEER !"r'2 V10 2680'< 4:2:12,19,0,39:'F :(40,"+");'P "GRATULATION !!! PERFEKTE LANDUNG !!!"'Z 100:2980'd (40,"+") (n 20,23,0,39:7:1:: (x (V1)5 2750M( :"**** BRUCHLANDUNG, SCHADE ****":|( "Ihre Verwandten werden benachrichtigt !"( V1802780( V115 2870( V19 2930( :"Sie haben Ihren Landeapparat beschaedigt"::( 100:2980( ) ) ) 8A) "****************************************"H) 6x) "SIE HABEN EIN NEUES MONDMEER GESCHAFFEN!") 8) "****************************************")" 7::"DER NEUE MONDKRATER IST";(V1V110014); *, "METER TIEF":100:3800*6 QV1V110014*@ F*J "Sie haben einen neuen " f*T " KRATER GESCHAFFEN !"*^ "========================================"*h 2850 *r *| "Sie haben Ihr Raumschiff in einen Berg"* 4+ "Schrott verwandelt":+ 7:2850%+ F03610:3400?+ 1:7: ::4,27,0,39r+ 7:"Sie muessen jetzt mit Ihrem Mondlande-":+ "fahrzeug an die Kommandokabine an-"+ "koppeln. Bewegen Sie das MLF mit den":, "Cursortasten. Jede Bewegung kostet Sie":, "10l Treibstoff.":::10N, "GLEICH GEHT'S LOS !!!":5::"HINWEIS":, "DIE TASTEN ' 1 , 2 , 3 ,4 ' KOENNEN AUCH" , "BENUTZT WERDEN.":100, ::C12, D20:E5:G3, A(4(1))1: F0F0: F03610 - 6:(26,0);"Treibstoff:":(26,11);F- (26,16);"l."0- A1 CC1B- A2 CC1T- A3 DD1f- A4 DD1v- C1 C1- C23 C23- D0 D0-& D39 D39-0 4;(C,D);"" -5 W$"":W$ -: IF JOYST(1)=8AND E>1THEN3140:ELSE3150.? W$(11) E13140:3150/.D EE1:FF10[.N IF JOYST(1)=4AND E<23THEN3160:ELSE3170z.S W$(10) E233160:3170.X EE1:FF10.b IF JOYST(1)=1AND G>0THEN3180:ELSE3190.g W$(8) G03180:3190.l GG1:FF10/v IF JOYST(1)=2AND G<39THEN3200:ELSE3205//{ W$(9) G393200:3205@/ GG1:FF10q/ IF JOYST(1)=5ANDG>0ANDE<23THEN3210:ELSE3220/ W$"1" DG0E233210:3220/ GG1:EE1:FF20/ IF JOYST(1)=6ANDG<39ANDE<23THEN3230:ELSE3240 0 W$"2" G39E23 3230:3240 0 GG1:EE1:FF20P0 IF JOYST(1)=9ANDG>0ANDE>1THEN3250:ELSE3260v0 W$"3" G0E13250:32600 GG1:EE1:FF200 IF JOYST(1)=10ANDG<39ANDE>1THEN3270:ELSE32900 W$"4" G39E13270:32900 GG1:EE1:FF201 4;(E,G);""'1 EC GD 3320L1 2:(C,D);" ":(E,G);" ":3020V1 z1 (11,12);"A"::(11,13);"N":1 (11,14);"G"::(11,15);"E":1 (11,16);"K"::(11,17);"O":1 (11,18);"P"::(11,19);"P": 2* (11,20);"E"::(11,21);"L":224 (11,22);"T"::(11,23);"."::60n29 13,27,0,39:7:"Sie muessen jetzt nochmal durch den":2: "Schwarm fliegen. Benutzen Sie wieder":2; "Cursortasten oder Joystick.":102< ::"GLEICH GEHT'S LOS !!!":100::2> VZ2:1250 3C :3H :7,6::4,27,0,39:"Sie haben den Mond erreicht.l3R :"Sie muessen jetzt entscheiden, wieviel":3\ "kg Bodenproben sie mitnehmen.":3f "Fuer einen Rueckstart ohne zusaetzliche":3p "Masse brauchen Sie 500l Treibstoff,":4z "fuer jedes kg Zuladung kommen 10l":K4 "Treibstoff dazu. Sie erhalten auf der":r4 "Erde pro kg Mondgestein 100$.":4 "Fuer den Rueckflug brauchen Sie noch":4 "etwas Treibstoff. Sie haben noch":4 7:F;"l Treibstoff."::105 "Wieviel kg Proben nehmen Sie mit?";PR:7T5 :"Treibstoff:";F;"l.":4::"Fertig zum Rueckstart!"i5 P(PR10500)105 :"Sie werden";PR10500;"l Treibstoff brauchen"::5 7::"Countdown mit";:21;" -C-":5 " Start mit";:21;" -S-" 5VZ2:83062990=610,1:::4,27,0,39:10);"Treibstoff alle !!!" x6:::7:"Das ist Ihr Ende. Sie sind bewegungs-" 6!: "unfaehig und werden uebermorgen":6$"ersticken."::6.6:"HERZLICHES BEILEID."6860:38007t30:::"Sie haben keinen Treibstoff mehr und":D7~"stuerzen auf den Mond.":60:2100g70,31,0,39:0:7::4,27,0,39 76);" [[[[[[[[" 76);" [[ [[["76);" [[[[[[[[ ["76);" [[[[[[[ [ [[[[[[[["86);"[[ [ [[[ [[[":8 6);"[[[[[[[[[[[[[[[[[[[[[[[[ ["a86);"[ Hier ruht in Frieden [ [ 86);"[ [ ["8(6);"[ Astronaut ";N$;29);"[ ["8-6);"[ [ [" 826);"[[[[[[[[[[[[[[[[[[[[[[[[[["9<6);" [ [ [";9F6);" [Friede[ ["Z9P6);" [ [ ["y9Z6);" [Seinen[ ["9d6);" [ [ [" 9n6);" [Atomen[ ["9x6);" [ [ ["9}6);" [ [[[ [ [":6);" [ [[[ [ ["4:6);" [ [ [ ["S:6);" [ [ [ ["q:6);" [[[[[[[[[[[:(30,31);"ENTER" :W$"":W$:W$(13)4010:4000:(30,3);" MIR WIRD GANZ UEBEL !!! ":50:60750 :;'0,31,0,39:7,7::: P2: H;'7:"Sie sind im Landeanflug auf die Erde."v;'"Die kegelfoermige Kommandokabine Ihres";'"Raumschiffes hat sich abgetrennt und";'"faellt zur Erde. Sie muessen unbedingt";'"mit Fallschirm und Bremstriebwerk im"'<'"Wasser landen, sonst zerschellt Ihr"a<'"Raumschiff. Mit den ";:6;"Cursortasten";:" bewe-<'"gen Sie sich horizontal, mit";:6;" -F- ";:"loesen"<'"sie den Fallschirm ab 19km Entfernung" ='"aus und mit";:6;" -B- ";:"starten sie das Brems-" ,='"triebwerk bei 0km Entfernung."d='::10;"ACHTUNG! GLEICH GEHT'S LOS!!!":200:YP8 |='0,31,0,39:7,7::= '4;(23,0);"[[[[[[[[[[[[[[[[[[[[[[[[[[[["=!'4;(22,0);"[[[[[[[[[[[[[" ="'1;(23,27);"[[[[[[[[[[[[[":6:24,30,0,39: >$'7:: I022F>.'7:(0,22);"Hoehe:":(0,28);22I:(0,34);"km"z>/'(2,18);"Treibstoff:":(2,28);F:(2,34);"l.">1'EL26YP:EL0EL0>3'(1,18);"Entfernung:":(1,28);EL:(1,34);"km":1 >8'B$:B$"B"EL0BLBL1 ?B' B$"F"L10FLFL12?G'W$"":W$:W$(8)W$(9)10065:10080O?L'IFJOYST(1)=2THENYP=YP+2?N'W$="":W$=INKEY$:IFW$=CHR$(8)ORW$=CHR$(9)THENGOTO10065:ELSE10080?Q'W$(9)YPYP6:W$""?V' IFJOYST(1)=1THENYP=YP-2?['W$(8)YPYP2:W$""?`'YP1YP1@e'YP36YP36@g' I3I3'@j'FL010260 9@t'(I,YP);""Y@~'BL0FL0F010120:10130@'P10:(I1,YP);"":FF100:F0F0@'P@'FL0(I3,YP1);" ":Ԉ10170@'(I2,YP1);" ":(I1,YP1);" "@'(I,YP);" "A'BL0(I1,YP);" "A'I>A'(23,YP);"":V25(0,32);"0"MA'YP2YP2oA' FL0 BL0 YP25 10400zA'10510A((I3,YP1);" [[ "A((I2,YP1);"[[[["A(((I1,YP1);" ^^" A2(10100A<(10500B(10:(19,YP2);"RUMMS!":(23,YP2);" " B(3PB((23,YP1);"":(22,YP);"":(23,YP2);"":3B((23,YP2);"":(22,YP1);"":(23,YP3);""B((21,YP);"" B(YP35YP35B((23,YP2);"EXITUS.":7 :30:3800C)PAUSE30:WINDOW0,31,0,39:COLOR7,2:CLS:WINDOW7C)30:0,31,0,39:7,3:::"FLUGAUSWERTUNG" QC)"--------------"::C")"Sie haben vom Mond ";PR;"kg Proben mit-":C,)"gebracht. Dafuer bekommen Sie ";PR100;"$":C6)"Ausserdem haben Sie ";F;"l Treibstoff": D@)"nicht verbraucht. Das macht nocheinmal":FDJ)F10;"$. Insgesamt hat Ihnen das Unter-":xDT)"nehmen also ";F10(PR100);"$ gebracht.":D^)"HERZLICHEN GLUECKWUNSCH !!!"Dh)22:(29,29);"-ENTER-"Dr)W$"":W$:W$(13) :Ԉ10610DD0:C0:0,31,0,39:7,1:: EX220:Y50ER130.EX,Y,R,6:X,49,R,6 ;E:60720FEI19OEC,D^EX,Y,C,D,6dE{E26,31,0,39:5::E&60740E00,150,0,65,0,247,110,255,220E:255,319,255,319,146,319,100,319,58ED:1,1: 'FNJ(8(9)):J0J760750:7,J:0,31,0,39:2FX RFbH(8(1)):H7H060770YFlHzFvA(32(2)):A31A060790FB(32(3)):B0B3160800FAB60790FC(40(4)):C0C3960820FD(40(5)):D0C3960830FCD60820GA,B,C,D::607700800FAB60790FC(40(4)):C0C3960820FD(40(5)):D0C3960830FCD60820G