XProfan

Window Title "Bildschirmdimensionen one 16:9 Fernsehers"
Window Style 24:CLS:font 2:declare Diag!
:proc wide :parameters Diag!:return Diag!*16/sqrt(337):endproc
:proc Höhe :parameters Diag!:return Diag!*9/sqrt(337):endproc
Nochmal:
print "\n Diagonale [cm or -inch] = ";:input Diag!
case Diag!<0:Diag!=-2.54*Diag!
print "\n Visible Bildhöhe   [cm]: ";stature$("%g",Höhe(Diag!))
print "\n Visible Bildbreite [cm]: ";stature$("%g",wide(Diag!))
print "\n Probewert Diag = ";
print stature$("%g",sqrt(sqr(wide(Diag!))+sqr(Höhe(Diag!))))
waitinput:cls:goto "Nochmal"