:Disp "cranwell@yahoo.com"
:Disp "A = angle of shadow"
:Disp "B = angle of pyramid"
:Disp "L = length between"
::Input "Aô=?",A
:Input "Bô=?",B
:Input "LENGTH=?",L
:(L tan A tan B)/(tan B-tan A)üD
:Disp "HEIGHT="
:Disp D