Method code for $command_lib.recard_shortcut()

[Turn on line numbering]

---

arg short;
var x, part;

part = 1;
while ((x = stridx(short, "*"))) {
    short = substr(short, 1, x - 1) + "%" + part + substr(short, x + 1);
    part++;
}
return short;

---

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