The TPU$TPU routine invokes DECTPU and is equivalent to the DCL
    command EDIT/TPU.

    Format

      TPU$TPU  command