Method code for $command_lib.recard_shortcut()

[Turn off line numbering]

---

  1: arg short;
  2: var x, part;
  3: 
  4: part = 1;
  5: while ((x = stridx(short, "*"))) {
  6:     short = substr(short, 1, x - 1) + "%" + part + substr(short, x + 1);
  7:     part++;
  8: }
  9: return short;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit