dec_to_oct

COPY/// dec_to_oct(dec)
//
//  Returns a string of octal digital (3 bits each)
//  representing the given decimal integer.
//
//      dec         non-negative integer, real
//
/// gmlscripts.pro/license
{
    var dec, oct, o;
    dec = argument0
    oct = "";
    o = "01234567";
    do {
        oct = string_char_at(o, (dec & 7) + 1) + oct;
        dec = dec >> 3;
    } until (dec == 0);
    return oct;
}