:Disp "cranwell@yahoo.com"
:Input "FSH Newt=",N
:Input "ROD LNTH=",M
:Input "RODô=",A
:Input "CABLEô=",C
:(N cos 60)/sin (A+C)üT
:Disp "CABLE TENSION",T