//! textmacro ARGB_CHAR takes int, chr
        set i=0
        loop
            exitwhen i==16
            set i2cc[$int$*16+i]="$chr$"+i2cc[$int$*16+i]
            set i2cc[i*16+$int$]=i2cc[i*16+$int$]+"$chr$"
            set i=i+1
        endloop
    //! endtextmacro
    
    
private function init takes nothing returns nothing
 local integer i=0
    
     //! runtextmacro ARGB_CHAR( "0","0")

define argb_char (a, b) = {
    int i = 0x00
    loop {
        i2cc [a * 16 + i] = `b` + i2cc [a * 16 + i]
        i2cc [i * 16 + a] = i2cc [i * 16 + a] + `b`
        exitwhen ++i == 0x10
    }
}

private init () {
    argb_char (0, 0)
    // ...