%%HP: T(3)A(D)F(.);
\<< PVI - L 2 / + \-> X
  \<<
    CASE 'X\>=0' 'X\<=L
' AND
      THEN 'EL-.01*
G1*L/2+X*.01*G1+X^2
*.01*(G2-G1)/2/L'
\->NUM
      END 'X<0'
      THEN 'EL+.01*
G1*(X-L/2)' \->NUM
"STA IS BEFORE PVC"
CLLCD 1 DISP 1
FREEZE
      END 'EL+.01*
G2*(X-L/2)' \->NUM
"STA IS AFTER PVT"
CLLCD 1 DISP 1
FREEZE
    END
  \>> "ELEV" \->TAG
\>>
