OK LIST 2 REM MONDLANDUNG 3 REM 5 FORV=1TO25:PRINT:NEXT 10 PRINT"DIESES PROGRAMM SIMU-":PRINT 20 PRINT"LIERT EINE MONDLANDUNG":PRINT 30 PRINT"MIT EINER 5000 KG SCHWE-":PRINT 40 PRINT"REN RAUMFAEHRE.":PRINT:PRINT 50 PRINT"Wenn Sie ':' druecken":PRINT 60 PRINT"werden Sie vom Mutter-":PRINT 70 PRINT"schiff ausgeklinkt.":PRINT 75 PRINT"WELCHE HOEHE":INPUTH 80 FORV=1TO1000:NEXT 90 T=0:N=0 92 M=500:G=0 100 REM RAHMEN 105 FORV=1TO25:PRINT:NEXT 110 POKE53446,210 111 POKE53467,207 112 POKE54118,209 113 POKE54139,208 120 FORV=53447TO53466 121 POKEV,135 122 NEXT 130 FORV=54119TO54138 131 POKEV,128 132 NEXT 140 FORV=53478TO54086STEP32 141 POKEV,136 142 NEXT 150 FORV=53499TO54107STEP32 151 POKEV,143 152 NEXT 160 FORV=53481TO53498 161 READA 162 POKEV,A 163 NEXT 200 REM CONTROL PANEL 210 FORV=53575TO53594 211 READA 212 POKEV,A 213 NEXT 220 FORV=53639TO53658 221 READA 222 POKEV,A 223 NEXT 230 FORV=53703TO53722 231 READA 232 POKEV,A 233 NEXT 240 FORV=53767TO53786 241 READA 242 POKEV,A 243 NEXT 250 FORV=53831TO53850 251 READA 252 POKEV,A 253 NEXT 260 FORV=54087TO54106 261 READA 262 POKEV,A 263 NEXT 300 REM START AUSWERTUNG 310 K=57088:POKE530,1 320 POKEK,191 330 IFPEEK(K)<>239THEN330 400 REM KEYBOARDABFRAGE 405 IFM<=0THENS=0:GOTO450 410 POKEK,127 411 A=PEEK(K) 412 IFA=127THENS=4000:GOTO450 413 IFA=191THENS=8000:GOTO450 414 IFA=223THENS=12000:GOTO450 415 IFA=239THENS=16000:GOTO450 416 IFA=247THENS=20000:GOTO450 417 IFA=251THENS=24000:GOTO450 418 IFA=253THENS=28000:GOTO450 420 POKEK,191 421 A=PEEK(K) 422 IFA=127THENS=32000:GOTO450 423 IFA=191THENS=36000:GOTO450 424 IFA=223THENS=40000:GOTO450 430 S=0 450 REM BERECHNUNGEN 460 B=(S/5000)-(2841630/(H+1738000)) 465 H=H-G-B/2 470 G=G-B 475 O=(S/8) 480 M=M-(O/1000) 485 T=T+1 500 REM ZEITVERZOEGERUNG 600 REM WERTE DRUCKEN 610 A=T 620 GOSUB1000 630 FORV=1TO4 640 POKE54102-V,A(V) 650 NEXT 700 IFH<=0THENH=0:GOTO9500 705 A=H 710 GOSUB1000 720 FORV=1TO5 730 POKE53592-V,A(V) 740 NEXT 800 A=ABS(G) 810 GOSUB1000 820 IFG<0THENPOKE53650,45:GOTO840 830 POKE53650,32 840 FORV=1TO4 850 POKE53655-V,A(V) 860 NEXT 900 A=S 901 GOSUB1000 902 FORV=1TO5 903 POKE53720-V,A(V) 904 NEXT 910 IFM<0THENM=0:GOSUB9000 911 A=M 912 GOSUB1000 913 FORV=1TO3 914 POKE53782-V,A(V) 915 NEXT 920 A=O 921 GOSUB1000 922 FORV=1TO4 923 POKE53847-V,A(V) 924 NEXT 930 GOTO400 1000 REM WERTZERLEGUNG 1001 FORV=1TO7 1002 A(V)=0 1003 NEXT 1010 IFA<1000000THEN1110 1020 IFA<100000 THEN1120 1030 IFA<10000 THEN1130 1040 IFA<1000 THEN1140 1050 IFA<100 THEN1150 1060 IFA<10 THEN1160 1070 IFA<1 THENRETURN 1100 A(7)=INT(A/1000000) 1105 A=A-(1000000*A(7)) 1110 A(6)=INT(A/100000) 1115 A=A-(100000*A(6)) 1120 A(5)=INT(A/10000) 1125 A=A-(10000*A(5)) 1130 A(4)=INT(A/1000) 1135 A=A-(1000*A(4)) 1140 A(3)=INT(A/100) 1145 A=A-(100*A(3)) 1150 A(2)=INT(A/10) 1155 A=A-(10*A(2)) 1160 A(1)=INT(A) 1170 FORV=1TO7 1175 A(V)=A(V)+48 1180 NEXT 1190 RETURN 1999 GOTO400 2000 DATA65,82,73,65,78,69,32 2001 DATA77,79,79,78,76,65,78,68,73,78,71 2010 DATA72,73,71,72,32,84,79,84,32,32,58,32,53,48,48,48,48,32,32,109 2020 DATA83,80,69,69,68,32,82,69,76,32,58,32,48,48,48,48,32,109,47,115 2030 DATA84,52,82,85,83,84,32,32,32,32,58,32,48,48,48,48,48,32,32,78 2040 DATA81,85,46,79,70,32,70,85,69,76,58,32,53,48,48,32,32,109,94,51 2050 DATA81,85,46,80,69,82,32,83,69,67,58,32,48,48,48,48,100,109,94,51 2060 DATA84,73,77,69,32,82,69,76,32,58,32,48,48,48,48,32,32,115,32 2061 DATA32 9000 REM FUEL 0 9001 POKE53927,69 9002 POKE53928,78 9003 POKE53929,68 9004 POKE53930,32 9005 POKE53931,79 9006 POKE53932,70 9007 POKE53933,32 9008 POKE53934,70 9009 POKE53935,85 9019 POKE53936,69 9020 POKE53937,76 9021 POKE53938,32 9022 POKE53939,32 9023 POKE53940,33 9030 RETURN 9500 REM HOEHE 0 9510 IFG<10THEN9600 9511 FORV=1TO25:PRINT:NEXT 9512 PRINT"Seihen Sie froh, dass":PRINT 9513 PRINT"dies nur ein Simulator":PRINT 9514 PRINT"ist. Sie sind mit einer":PRINT 9515 PRINT"Geschwindigkeit von" 9516 PRINT:PRINTG*3.6; 9517 PRINT" km/h ":PRINT 9518 PRINT"auf dem Mondboden aufge-":PRINT 9519 PRINT"schlagen und zerschellt." 9520 PRINT 9521 PRINT"Es gibt kein Ueberleben" 9522 PRINT:PRINT"fuer Sie" 9530 END 9600 FORV=53927TO53946 9601 POKEV,32 9602 NEXT 9603 IFG>3THEN9700 9610 POKE54087,83 9611 POKE54088,79 9612 POKE54089,70 9613 POKE54090,84 9700 POKE54092,76 9701 POKE54093,65 9702 POKE54094,78 9703 POKE54095,68 9704 POKE54096,73 9705 POKE54097,78 9706 POKE54098,71 9707 POKE54091,32 9708 FORV=54099TO54106 9709 POKEV,32:NEXT 9710 FORV=0TO3000:NEXT 9719 PRINT:PRINT:PRINT 9720 PRINT"NEUES GLUECK-NEUES SPIEL" 9721 PRINT:PRINT"NOCHMAL ABSTUERZEN?" 9723 FORX=0TO3000:NEXTX 9724 RUN OK