XProfan

Windowtitle "STANGE-UMS-ECK-PROBLEM"
declare x!,y!,Lmax!,h!
start:
font 2:Print "\n Vorfrage: Lichte Plafondhöhe in [m],"
print "\n (worth 0: 2D-trouble): ";:input h!:print
rept:
font 2
print "\n wide of ambulation 1 [m] = ";:input x!:case x!<=0:x!=1/1e12
print "\n wide of ambulation 2 [m] = ";:input y!:case y!<=0:y!=1/1e12
Lmax!=((x!)^(2/3)+(y!)^(2/3))^1.5
print "\n Max. Schattenlänge = ";Lmax!,"[m]"
print "\n\n the means, slanting raised get one eine"
print "\n slim bar with of/ one maximalen Raumdiagonale "
print "\n of ";stature$("0.000",Sqrt(sqr(h!)+sqr(Lmax!)));
print " [m] around the corner.":font 0
print "\n\n [Button or ESC for Neustart]"
waitinput
cls
case %key=27:goto "start"
goto "rept"