XProfan

Título de la ventana "Bildschirmdimensionen uno 16:9 Fernsehers"
Ventana de Estilo 24:CLS:font 2:declarar Diag!
:proc Breite :parámetros Diag!:volver Diag!*16/sqrt(337):ENDPROC
:proc Höhe :parámetros Diag!:volver Diag!*9/sqrt(337):ENDPROC
Nochmal:
imprimir "\n Diagonale [cm oder -Zoll] = ";:input Diag!
caso Diag!<0:Diag!=-2.54*Diag!
imprimir "\n Sichtbare Bildhöhe   [cm]: ";format$("%g",Höhe(Diag!))
imprimir "\n Sichtbare Ancho de imagen [cm]: ";format$("%g",Breite(Diag!))
imprimir "\n Probewert Diag = ";
imprimir format$("%g",sqrt(sqr(Breite(Diag!))+sqr(Höhe(Diag!))))
waitinput:cls:goto "Nochmal"