mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-20 01:03:26 +01:00
28 lines
876 B
QBasic
28 lines
876 B
QBasic
|
10 CLS
|
|||
|
|
20 COLOR 15
|
|||
|
|
30 PRINT"Gurtmuffel<65>"
|
|||
|
|
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<6C> '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<45>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<6E>glich!"
|
|||
|
|
260 GOTO 270
|
|||
|
|
270 END
|
|||
|
|
|