mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 12:04:08 +00:00
Added GURTMUFF.BAS.
This commit is contained in:
parent
59784b90dd
commit
0dda8ad584
28
GURTMUFF/GURTMUFF.BAS
Normal file
28
GURTMUFF/GURTMUFF.BAS
Normal file
@ -0,0 +1,28 @@
|
||||
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
|
||||
|
Loading…
Reference in New Issue
Block a user