Method code for $integer.roman_numeral_scheme()

[Turn on line numbering]

---

arg val, x, y, z;
var rnlist;

rnlist = [x, x * 2, x * 3, x + y, y, y + x, y + x * 2, y + x * 3, x + z];
return rnlist[val];

---

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