5 DISPLAY_CLEAR 10 HTEXT('R',12,15,CHR$(27)+'#3'+' LUNAR ') 15 HTEXT('R',13,15,CHR$(27)+'#4'+' LUNAR ') 20 PAUSE(3) 23 MOVE_CURSOR(17,1) 25 PRINT ,'DIT IS EEN SIMULATIE VAN EEN MAANLANDING MET DE ' 30 PRINT ,'APOLLO-LUNAR CAPSULE' \ PRINT \ PRINT 35 PRINT 'DE BOORDCOMPUTER (merk onbekend) HEEFT HET ECHTER OPGEGEVEN' 40 PRINT 'EN JE ZULT DUS VERPLICHT ZIJN DE LANDING MANUEEL UIT TE VOEREN' 45 PRINT \ PRINT \ PRINT 50 PRINT 'DAARTOE ZUL JE DE BRANDSTOF TOEVOER NAAR DE AFREM-RAKETTEN MOETEN' 55 PRINT 'REGELEN TUSSEN 0 EN 400 KG PER SECONDE.' 60 PRINT \ PRINT 65 PRINT 'OM DE 10 SECONDEN KAN JE DEZE AFSTELLING VERANDEREN.' 70 PRINT 75 PRINT 'DE CAPSULE WEEGT 65 TON EN JE HEBT NOG 33 TON BRANDSTOF OVER.' 80 PRINT \ PRINT 'VEEL GELUK' 83 PAUSE(10) 85 L=0 \ B=0 90 WINDOW('EXACT',0,0,400,200,1) 95 PRINT 'SEC','KM + M','KM/H','KG BRANDST.','TOEVOER' 100 A=120 \ V=1 \ M=33000 \ N=16500 \ G=1.00000E-03 \ Z=1.8 105 PRINT 110 P=0 112 R=0 115 PRINT L,INT(A*1.6);INT(1600*(A-INT(A))),3600*V*1.6,(M-N)*2, 120 IF A*1.6<=2 THEN IF P=0 THEN GRAPH_INIT 125 IF A*1.6<=2 THEN IF P=0 THEN WINDOW('E',0,0,400,2.5,1) 135 POINT(,L,A*1.6,1) 136 IF A*1.6<=2 THEN IF P=0 THEN HTEXT('R',1,1,' 2 KM ') 137 IF R=0 THEN HTEXT('R',1,1,' 200 KM ') \ R=R+1 138 IF A*1.6<=2 THEN P=P+1 139 INPUT K 140 T=10 \ K=K/2 145 IF M-N<5.00000E-03 THEN 185 150 IF T<2.50000E-03 THEN 115 155 S=T \ IF M>N+S*K^C THEN 165 160 S=(M-N)/K 165 GOSUB 300 \ IF I<=0 THEN 260 170 IF V<=0 THEN 180 175 IF J<0 THEN 275 180 GOSUB 255 \ GO TO 145 185 ERASE_GRAPH('ALL',,,1) \ B=1 190 PRINT 'BRANDSTOFTANK LEEG NA 'L' SECONDEN' \ S=(-V+SQR(V^2+2*A*G))/G 195 V=V+G*S \ L=L+S 200 W=3600*V 205 IF B=1 THEN 210 \ ERASE_GRAPH('ALL',,,1) 210 PRINT 'LANDING OP DE MAAN NA 'L' SECONDEN - LANDINGSSNELHEID: 'W*1.6' KM/H' 215 IF W>1.2 THEN 220 \ PRINT 'UITSTEKENDE LANDING !!' \ GO TO 315 220 IF W>10 THEN 225 \ PRINT 'GOEDE LANDING, (ZOU BETER KUNNEN)' \ GO TO 315 225 IF W>60 THEN 230 \ GO TO 245 230 PRINT 'TOTALE KATASTROFE, GEEN OVERLEVENDEN, ' 235 PRINT 'WEER EEN KRATER VAN 'W*.277*.3048' METER DIEP BIJ OP DE MAAN.' 240 GO TO 315 245 PRINT 'JE HEBT AVERIJ OPGELOPEN BIJ DE LANDING, JE ZULT OP DE REDDINGS-' 250 PRINT 'PLOEG MOETEN WACHTEN.' \ GO TO 315 255 L=L+S \ T=T-S \ M=M-S*K \ A=I \ V=J \ RETURN 260 IF S<5.00000E-03 THEN 200 265 D=V+SQR(V^2+2*A*(G-Z*K/M)) \ S=2*A/D 270 GOSUB 300 \ GOSUB 255 \ GO TO 260 275 W=(1-M*G/(Z*K))/2 \ S=M*V/(Z*K*(W+SQR(W^2+V/Z)))+.05 \ GOSUB 300 280 IF I<=0 THEN 260 285 GOSUB 255 \ IF J>0 THEN 145 290 IF V>0 THEN 275 295 GO TO 145 300 Q=S*(K+1.00000E-04)/M 305 J=V+G*S-Z*Q*(1+Q*(1/2+Q*(1/3+Q*(1/4+Q/5)))) 310 I=A-G*S*S/2-V*S+Z*S*Q/2*(1+Q*(1/3+Q*(1/6+Q*(1/10+Q/15)))) \ RETURN 315 PRINT \ PRINT \ PRINT 'WIL JE NOG EENS PROBEREN (JA of NEEN)'; \ INPUT A$ 320 IF A$='JA' THEN DISPLAY_CLEAR \ GO TO 85 325 IF A$='NEEN' THEN PRINT \ PRINT 'TOT ZIENS DAN' \ GO TO 335 330 PRINT 'Alleen JA of NEEN antwoorden a.u.b.' \ GO TO 315 335 END