Command to duplicate a border (curves) and offset in one shot?

Is there command to duplicate a border and offset it in one shot? e.g.

Hello - no, but a macro should help

! _DupBorder _Pause _SelNone _SelLast _Offset

Do delete the original border curve:

! _DupBorder _Pause _SelNone _SelLast _Offset _MultiPause _SelNone _SelPrev _Delete

-Pascal

Gracias.