%%HP: T(3)A(R)F(.);
{ { "FORM" ENVFORM }
  { "CHOOS"
    \<<
      IF ENVSAMP
      THEN
        IF
          DUP TYPE 8. ==
        THEN
          ENVDFLT
        END
        ENVPLOT
      END
    \>> }
  { }
  { }
  { }
  { "CLEAN" \<< { EQ PPAR VPAR TPAR ZPAR ARGUMS WAVEFORM RESULT } PURGE \>> }
  { }
  { "CHOOS" \<< ENVSAMP DROP 1.02 MENU \>> }
  { }
  { "GENER" ENVGNRT }
  { "ENVEL" ENVCALC } }