%%HP: T(1)A(G)F(,);
 "XA" "" INPUT OBJ
"YA" "" INPUT OBJ
"XB" "" INPUT OBJ
"YB" "" INPUT OBJ
"Az A-P " "" INPUT
OBJ "Az B-P " ""
INPUT OBJ  XA YA XB
YB A B
   XB XA - YB B TAN
* - YA A TAN * + A
TAN B TAN - / DUP YA
- A TAN * XA + SWAP
  
