Method code for $integer.to_english()

[Turn off line numbering]

---

  1: arg num;
  2: var num_str, sign;
  3: 
  4: // 12500 => "12,500"
  5: // if (abs(num) < 9999)
  6: //  return tostr(num);
  7: sign = num ? abs(num) / num : 1;
  8: num = abs(num);
  9: num_str = "";
 10: while (num > 999) {
 11:     num_str = "," + tostr(1000 + num % 1000).subrange(2) + num_str;
 12:     num = num / 1000;
 13: }
 14: num_str = tostr(num) + num_str;
 15: return (sign == 1 ? "" : "-") + num_str;

---

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