1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00

Added GURTMUFF.BAS.

This commit is contained in:
Markus Birth 1995-12-14 19:13:36 +01:00
parent 59784b90dd
commit 0dda8ad584
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A

28
GURTMUFF/GURTMUFF.BAS Normal file
View 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