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