%%HP: T(1)A(G)F(,);
 CLEAR "XA? " ""
INPUT OBJ 'Xa' STO
"XB? " "" INPUT OBJ
'Xb' STO "XC? " ""
INPUT OBJ 'Xc' STO
"YA? " "" INPUT OBJ
'Ya' STO "YB? " ""
INPUT OBJ 'Yb' STO
"YC? " "" INPUT OBJ
'Yc' STO "? " ""
INPUT OBJ '' STO
"? " "" INPUT OBJ
'' STO Xb Xa - Yb Ya
-  TAN / - NUM 'A'
STO Yb Ya - Xb Xa - 
TAN / + NUM 'B' STO
Xb Xc - Yb Yc -  TAN
/ + NUM 'C' STO Yb
Yc - Xb Xc -  TAN /
- NUM 'D' STO A B D
- * B A C - * - A C -
SQ B D - SQ + / NUM
'E' STO Xb E B D - *
- NUM 'Xp' STO Yb E
A C - * + NUM 'Yp'
STO "Xp: " Xp "Yp: "
Yp { Yp Xp E D C B A
  Yc Yb Ya Xc Xb Xa
} PURGE
