Method code for $integer.to_english()

[Turn on line numbering]

---

arg num;
var num_str, sign;

// 12500 => "12,500"
// if (abs(num) < 9999)
//  return tostr(num);
sign = num ? abs(num) / num : 1;
num = abs(num);
num_str = "";
while (num > 999) {
    num_str = "," + tostr(1000 + num % 1000).subrange(2) + num_str;
    num = num / 1000;
}
num_str = tostr(num) + num_str;
return (sign == 1 ? "" : "-") + num_str;

---

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