%%HP: T(3)A(D)F(.);
\<< OVER RCL ROT
  IFERR PURGE
  THEN PGDIR
  END SWAP STO
\>>
