Directory of image this file is from
This file as a plain text file
10 REM *****UEBERSETZER: WOLFGANG WEINERT***** 20 PRINT"WOLLEN SIE ERLAEUTERUNGEN(JA ODER NEIN)";\INPUT A$ 30 IF A$="NEIN" THEN 110\IF A$="JA" THEN 60 40 PRINT "BITTE NUR MIT JA ODER NEIN ANTWORTEN";\INPUT A$ 50 GOTO 30 60 PRINT"'SPLAT' SIMULIERT EINEN FALLSCHIRMSPRUNG BEI DEM SIE"; 70 PRINT"VERSUCHEN","MUESSEN,DEN SCHIRM IM LETZTMOEGLICHEN"; 80 PRINT" AUGENBLICK","ZU OEFFNEN, OHNE DASS SIE AM BODEN ZER"; 90 PRINT"SCHELLEN.","SIE KOENNEN IHRE FLUGGESCHWINDIGKEIT ENTWEDER"; 100 PRINT" SELBST WAEHLEN ODER VOM COMPUTER BESTIMMEN LASSEN." 110 PRINT\RANDOMIZE 120 PRINT"WILLKOMMEN ZU 'SPLAT'-- DAS SPIEL, DASS EINEN" 130 PRINT"FALLSCHIRMSPRUNG SIMULIERT! VERSUCHEN SIE,IHREN SCHIRM" 140 PRINT"IM LETZTMOEGLICHEN AUGENBLICK ZU OEFFNEN,OHNE ZU ZERSCHELLEN." 150 PRINT"ZERSCHELLEN!!!" 160 PRINT\PRINT\D1=0\V=0\A=0\N=0\M=0\D1=INT(9001*RND(1)+1000) 170 PRINT"WOLLEN SIE IHRE FLUGGESCHWINDIGKEIT SELBST WAEHLEN"; 180 INPUT A1$\IF A1$="NEIN" THEN 220\IF A1$="JA" THEN 200 190 PRINT"'JA' ODER 'NEIN' BITTE";\GOTO 180 200 PRINT"WELCHE FLUGGESCHWINDIGKEIT (M/SEC) ";\INPUT V1 210 V1=V1*(5280/3600)\V=V1+((V1*RND(0))/20)-((V1*RND(O))/20) 220 V1=INT(1000*RND(0)) 230 PRINT"OK, HOECHSTE FALLGESCHWINDIGKEIT = ";V1;"M/SEC" 240 V1=V1*(5280/3600)\V=V1+((V1*RND(0))/20)-((V1*RND(0))/20) 250 PRINT"WOLLEN SIE EINE BESTIMMTE SCHWERKRAFT WAEHLEN(J ODER N)"; 260 INPUT B1$\IF B1$="N" THEN 300\IF B1$="J" THEN 280 270 PRINT"ANTWORTEN SIE BITTE MIT 'J' ODER 'N'";\GOTO 260 280 PRINT"WELCHE SCHWERKRAFT(IN M/SEC SEC)";\INPUT A2 290 A=A2+((A2*RND(0))/20)\GOTO 510 300 G2=INT(1+(10*RND(X)))\GOTO 1040 310PRINT"SIE SIND AUF DEM MERKUR,SCHWERKRAFT=4.066M/SEC/SEC"\GOTO410 320PRINT"SIE SIND AUF DER VENUS,SCHWERKRAFT=9.433M/SEC/SEC"\GOTO420 330PRINT"SIE SIND AUF DER ERDE,SCHWERKRAFT=9.81M/SEC/SEC"\GOTO430 340PRINT"SIE SIND AUF DEM MOND,SCHWERKRAFT=1.571M/SEC/SEC"\GOTO440 350PRINT"SIE SIND AUF DEM MARS,SCHWERKRAFT+3.813M/SEC/SEC"\GOTO450 360PRINT"SIE SIND AUF DEM JUPITER,SCHWERKRAFT=26M/SEC/SEC"\GOTO460 370PRINT"SIE SIND AUF DEM SATURN,SCHWERKRAFT=11.5M/SEC/SEC"\GOTO470 380PRINT"SIE SIND AUF DEM URANUS,SCHWERKR.=10.32M/SEC/SEC"\GOTO480 390PRINT"SIE SIND AUF DEM NEPTUN,SCHWERKRAFT=12.08M/SEC/SEC"\GOTO490 400PRINT"SIE SIND AUF DER SONNE,SCHWERKRAFT=273,3M/SEC/SEC"\GOTO500 410 A2=3.721\GOTO 290 420 A2=8.633\GOTO 290 430 A2=9.81\GOTO 290 440 A2=1.571\GOTO 290 450 A2=3.813\GOTO 290 460 A2=25.989\GOTO 290 470 A2=11.469\GOTO 290 480 A2=10.31\GOTO 290 490 A2=12.079\GOTO 290 500 A2=273.3\GOTO 290 510PRINT\PRINT" HOEHE =";D1;"METER" 520 PRINT" ENDGESCHWINDIGKEIT =";V1;"M/SEC +-5%" 530 PRINT" SCHWERKRAFT =";A2;"M/SEC/SEC +-5%" 540 PRINT"BESTIMMEN SIE DIE ZEIT DES FREIEN FALLS." 550 PRINT"WIEVIELE SEKUNDEN";\INPUT T\PRINT 560 PRINT"ZEIT(SEC)","GEFALLENE STRECKE(M)" 570 PRINT"=========","====================" 580 FOR I=0 TO T STEP(T/8) 590 IF I>V/A THEN 610\D=D1-((A/2)*I^2)\PRINT I,D\NEXT I 600 GOTO 660 610 PRINT"ENDGESCHWINDIGKEIT ERREICHT BEI T PLUS ";V/A;"SEKUNDEN" 620 FOR I=I TO T STEP(T/8) 630 D=D1-((V^2/(2*A))+(V*(I-(V/A)))) 640 IF D<=10 THEN 1110\PRINT I,D\NEXT I 650 GOTO 660 660 PRINT"FALLSCHIRM GEOEFFNET"\K=0\K1=0 670 FOR I=1 TO 4000 680 IF A(I)=0 THEN 700\K=K+1\IF D>=A(I) THEN 690\K1=K1+1 690 NEXT I 700 A(I)=D\I=I-1\G3=K-K1\IF G3<=.1*K THEN 730\IF G3<=.25*K THEN 770 710 IF G3<=.5*K THEN 800\IF G3<=.75*K THEN 830\IF G3<=.9*K THEN 860 720 GOTO 900 730 PRINT"KLASSE!!! DAS IST EIN SPRUNG!!!" 740 PRINT"VON DEN ";K;" ERFOLGREICHEN SPRUENGEN VOR DEN IHREN" 750 PRINT"OEFFNETEN NUR ";K-K1;" IHREN SCHIRM KNAPPER ALS SIE !!" 760 GOTO 1130 770 PRINT"SCHON GANZ GUT! ";K;" ERFOLGREICHE SPRUENGE GINGEN DEN" 780 PRINT"IHREN VORAUS UND NUR ";K-K1;" WAREN BESSER ALS SIE!!!" 790 GOTO 1130 800 PRINT"NICHT SCHLECHT! ";K;" ERFOLGREICHE SPRUENGE GINGEN DEN" 810 PRINT"IHREN VORAN.SIE WURDEN VON ";K-K1;" BESSEREN SPRUENGEN " 820 PRINT"BESIEGT."\GOTO 1130 830 PRINT"BESCHEIDEN,NICHT WAHR?SIE SCHAFFTEN NUR ";K-K1;" VON " 840 PRINT"DEN ";K;"ERFOLGREICHEN SPRUENGEN VOR DEN IHREN." 850 GOTO 1130 860 PRINT"HUCH! HABEN SIE DENN UEBERHAUPT KEIN BISSCHEN SPORT IM" 870 PRINT"BLUT? ES GAB ";K;" ERFOLGREICHE SPRUENGE VOR IHREM UND" 880 PRINT"SIE WAREN NUR IN ";K1;" SPRUENGEN BESSER ALS DER SCHLECHTESTE" 890 PRINT"HALTEN SIE SICH BESSER FIT!!!"\GOTO 1130 900 PRINT"HEY! SIE ZOGEN DIE REISSLEINE VIEL ZU FRUEH." 910 PRINT K;" SPRUENGE WAREN VOR DIESEM ERFOLGREICH UND SIE KAMEN" 920 PRINT"IN NUMMER ";K-K1;" ! MACHEN SIE SICH NICHTS DRAUS!!" 930 GOTO 1130 940 PRINT"GEHE HIN IN FRIEDEN!"\GOTO 1120 950 PRINT "MOEGEN SIE DIE ENGEL INS PARADIES GELEITEN!"\GOTO 1120 960 PRINT "GENIESSEN SIE DIE LETZTE RUHE!"\GOTO 1120 970 PRINT"SIE UNGLUECKSRABE!"\GOTO 1120 980PRINT"VERDAMMTER MIST!!!"\GOTO 1120 990 PRINT"EIN TRITT WUERDE DEN AUFTRIEB FOERDERN!"\GOTO 1120 1000 PRINT"HMM!EINE KUERZERE ZEIT WAERE BESSER GEWESEN!"\GOTO 1120 1010 PRINT"MAMMI!MAMMI!MAMMIII!!!"\GOTO 1120 1020 PRINT"FEIGLING!"\GOTO 1120 1030 PRINT"WIE GEWONNEN,SO ZERRONNEN."\GOTO 1120 1040 IF G2=1 THEN 310\IF G2=2 THEN 320\IF G2 =3 THEN 330 1050 IF G2=4 THEN 340\IF G2=5 THEN 350\IF G2=6 THEN 360 1060 IF G2=7 THEN 370\IF G2=8 THEN 380\IF G2=9 THEN 390\GOTO 400 1070 PRINT SQR(2*D1/A),"CRASH"\G1=INT(1+(10*RND(X))) 1080 IF G1 = 1 THEN 940\IF G1=2 THEN 950\IF G1=3 THEN 960 1090 IF G1=4 THEN 970\IF G1 = 5 THEN 980\IF G1=6 THEN 990 1100 IF G1=7 THEN 1000\IF G1=8 THEN 1010\IF G1=9 THEN 1020\GOTO 1030 1110 PRINT(V/A)+((D1-(V^2/(2*A)))/V),"CRASH"\GOTO 1130 1120 PRINT"ICH GEBE IHNEN EINE NEUE CHANCE!" 1130 PRINT"WOLLEN SIE NOCHEINMAL SPIELEN";\INPUT Z$ 1140 IF Z$="JA" THEN 160\IF Z$="NEIN" THEN 1160 1150 PRINT "BITTE MIT JA ODER NEIN ANTWORTEN"\GOTO 1130
1160 PRINT"PROBIEREN SIE DOCH NOCH EINMAL,JA";\INPUT Z$ 1170 IF Z$="JA" THEN 160 1180 PRINT"SIE FEIGLING!!! HABEN WOHL DIE HOSE VOLL??"\END