XProfan

Window Title "Horizont-Entfernung"
declare d!,r!,h!:font 2
r!=6371' Durchschnittlicher Erdradius [km]
lop:
Cls
print "\n Sichtlinie to that horizon [km] to charge:"
print " =======================================\n"
print "\n Augenhöhe over Horizonthöhe [m]: ";
input h!:h!=h!/1000
d!=sqrt(2*r!*h!+sqr(h!))
print "\n Horizontentfernung: ";stature$("###0.###",d!);" km"
waitinput
goto "lop"