%%HP: T(1)A(D)F(.);
« "HZ DIST?" {
":VT€:        
:SLOPE DIST: "
{ 1 0 } V } INPUT
OBJ¨ SWAP HMS¨ SIN
* ABS
»