mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
28 lines
876 B
QBasic
28 lines
876 B
QBasic
10 CLS
|
||
20 COLOR 15
|
||
30 PRINT"Gurtmuffelø"
|
||
40 PRINT"~`S. Heblik"
|
||
50 PRINT
|
||
60 PRINT"Eingabe:"
|
||
70 INPUT"Geschwindigkeit des Fahrzeugs [km/h] :",SPD
|
||
80 IF SPD=0 THEN 240
|
||
90 MS=SPD*1000/3600
|
||
100 H=.5*MS*MS/9.810001
|
||
110 STOCK=INT(H/2.8+.5)
|
||
120 PRINT"Aufprall entspricht einem Sprung aus ";INT(H*100)/100;"m H”he"
|
||
130 PRINT"bzw. aus der ";STOCK;"Etage!"
|
||
140 PRINT
|
||
150 IF SPD<10 THEN 190
|
||
160 IF SPD>=10 AND SPD<20 THEN 200
|
||
170 IF SPD>=20 AND SPD<50 THEN 210
|
||
180 IF SPD>=50 THEN 220
|
||
190 PRINT"Das gibt bloá 'ne Schramme!":GOTO 270
|
||
200 PRINT"Das k”nnte schon eine Beule geben!":GOTO 270
|
||
210 PRINT"Das wird einiges anrichten!":GOTO 270
|
||
220 PRINT"Das ist ja LEBENSGEFŽHRLICH!!!":GOTO 270
|
||
230 GOTO 270
|
||
240 PRINT"Mensch, gib' was vern<72>nftiges ein! Kein Mensch kann"
|
||
250 PRINT"mit 0 km/h gegen einen Baum fahren. Das ist praktisch unm”glich!"
|
||
260 GOTO 270
|
||
270 END
|
||
|