Method code for $integer.roman_numeral_scheme()

[Turn off line numbering]

---

  1: arg val, x, y, z;
  2: var rnlist;
  3: 
  4: rnlist = [x, x * 2, x * 3, x + y, y, y + x, y + x * 2, y + x * 3, x + z];
  5: return rnlist[val];
  6: 
  7: // $#Edited: 24 Jul 97 15:55 $user_scott

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]