dec_to_roman

COPY//
//  Returns a string of Roman numerals representing the given integer.
//
//      num         positive integer less than 5000, real
//
/// gmlscripts.pro/license
{
    var roman;
    if ((argument0 < 1) || (argument0 > 4999)) return "";
    roman  = string_copy("    M   MM  MMM MMMM",4*(argument0 div 1000)+1,4);
    roman += string_copy("    C   CC  CCC CD  D   DC  DCC DCCCCM  ",4*((argument0 mod 1000) div 100)+1,4);
    roman += string_copy("    X   XX  XXX XL  L   LX  LXX LXXXXC  ",4*((argument0 mod 100) div 10)+1,4);
    roman += string_copy("    I   II  III IV  V   VI  VII VIIIIX  ",4*(argument0 mod 10)+1,4);
    roman  = string_replace_all(roman," ","");
    return roman;
}