%%HP: T(3)A(D)F(.);

\<< OVER RCL ROT

  IFERR PURGE

  THEN PGDIR

  END SWAP STO

\>>