: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

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)