From 0dda8ad584247e37461952a9a935893eea4e2854 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Thu, 14 Dec 1995 19:13:36 +0100
Subject: [PATCH] Added GURTMUFF.BAS.

---
 GURTMUFF/GURTMUFF.BAS | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 GURTMUFF/GURTMUFF.BAS

diff --git a/GURTMUFF/GURTMUFF.BAS b/GURTMUFF/GURTMUFF.BAS
new file mode 100644
index 0000000..166fb77
--- /dev/null
+++ b/GURTMUFF/GURTMUFF.BAS
@@ -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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
+
\ No newline at end of file