start:
CLS
h=0
R=0
faktor=0
PRINT
PRINT " Berechnung der Schnittweiten-Differenz Hyperbel"
PRINT " ==============================================================="
PRINT " h=200 | r=3200 | konKonst=-1.5 (Hyperbel) "
PRINT
PRINT " Bei Parabel -1 |  Eingabe -1.000001, wegen Fehlermeldung"
PRINT " --------------------------------------------------------"
PRINT " Einfallsh”he = halber Durchmesser";
INPUT h
PRINT " Eingabe Radius Krmmungsmittelpunkt";
INPUT R
konstante:
PRINT " Konische Konstante ";
INPUT k
glied1=-k/(k+1)
PRINT " Glied1 = ";glied1
PRINT
glied2=(k+1)*h^2
Glied3=SQR(R^2-glied2)
sdiff=glied1*(R-Glied3)
PRINT " SchnittweitenDifferenz = ";sdiff
PRINT
REPEAT
UNTIL INKEY$>CHR$(0) OR MOUSEK
ALERT 2,"andere Konstante?",1," Ja | END | Neu ",a&
IF a&=1
  GOTO konstante
ENDIF
IF a&=3
  GOTO start
ENDIF

END