%%HP: T(3)A(D)F(.);
\<<
  IF G1 G2 * DUP
ABS ==
  THEN
"GRADES HAVE SAME SIGN"
DOERR
  END G1 G2 - INV L
* G1 * PVI + L 2 /
- DUP "STATION"
\->TAG SWAP ELEV
  IF 'G2-G1<0'
  THEN "HIGH POINT"
  ELSE "LOW POINT"
  END CLLCD 1 DISP
1 FREEZE
\>>
